Zopto Posted August 1, 2012 Author Share Posted August 1, 2012 Some players like to see information from other players. As for level, stats etc.. so let startCredits to **Mortal Angels** for fix!!And **Zopto** for starting the basic systemHere is the working code with str, agi e.c.t. that you know whats what**All ClientSide**Search```Public Sub DrawPlayerName(ByVal Index As Long)```Change to```Public Sub DrawPlayerName(ByVal Index As Long, myTarget As Long)```Search``` If Options.Debug = 1 Then On Error GoTo errorhandler```Under add``` If frmMain.picPlayerInfo.Visible = True Then If myTargetType = TARGET_TYPE_PLAYER And myTarget <> MyIndex Then frmMain.lblPlayerName.Caption = Trim(Player(myTarget).Name) & "- Level" & Trim(Player(Index).Level) frmMain.charstat(0).Caption = "Str: " & Trim(Player(myTarget).Stat(1)) frmMain.charstat(1).Caption = "End: " & Trim(Player(myTarget).Stat(2)) frmMain.charstat(2).Caption = "Int: " & Trim(Player(myTarget).Stat(3)) frmMain.charstat(3).Caption = "Agi: " & Trim(Player(myTarget).Stat(4)) frmMain.charstat(4).Caption = "Will: " & Trim(Player(myTarget).Stat(5)) Else frmMain.picPlayerInfo.Visible = False AddText "Invalid target.", BrightRed End If Else End If```Search``` ' draw player names For i = 1 To Player_HighIndex If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then Call DrawPlayerName(i) End If Next```Change to``` ' draw player names For i = 1 To Player_HighIndex If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then Call DrawPlayerName(i, myTarget) End If Next```Now at frmMainMake an PictureBox, name it picPlayerInfoCreate an Label, name it lblPlayerNameCreate an Label, name it charstatCopy it 4 Times untill you got something that looks like this:[![](http://www7.pic-upload.de/thumb/02.08.12/n19u1wx425kb.png)](http://www.pic-upload.de/view-15410655/Unbenannt.png.html)Now add an label where the menu is (Its to open the pic)Klick on it and paste in``` If Not picPlayerInfo.Visible Then picPlayerInfo.Visible = True Else picPlayerInfo.Visible = False End If```**EDIT–-**picPlayerInfo Example with CloseJust Copy/Paste then add toClose / lblPICard_Click```picPlayerInfo.visible = False```Now Search``` frmMain.picHotbar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\hotbar.jpg")```And under it add``` frmMain.picPlayerInfo.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\playerinfo.jpg")```Now put the playerinfo.jpg to data files\graphics\gui\main\http://www.touchofdeathforums.com/smf2/index.php?action=dlattach;topic=82036.0;attach=21717;imagePlayer info cardhttp://www.touchofdeathforums.com/smf2/index.php?action=dlattach;topic=82036.0;attach=21715Now if you got an target and klick on this label it will show the pic with Name, Level and stats Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 1, 2012 Share Posted August 1, 2012 I think its because (Player (Index)Index is for your number try it with victim or target idk what it is if i traget another player Link to comment Share on other sites More sharing options...
Zopto Posted August 1, 2012 Author Share Posted August 1, 2012 @Mortal:> I think its because (Player (Index)> Index is for your number try it with victim or target idk what it is if i traget another playeri try whit target and victim but not work :( any others idea Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 1, 2012 Share Posted August 1, 2012 myTarget ???Its ised at the guild system so try it ;-)SO :```frmMain.picPlayerInfo.Visible = True frmMain.lblPlayerName.Caption = Trim (Player (myTarget). Name) frmMain.lblPlayerName = Trim (Player (myTarget). Name) & "- Level" & Trim (Player (myTarget). Level) frmMain.charstat (0). Caption = Trim (Player (myTarget). Stat (1)) frmMain.charstat (1). Caption = Trim (Player (myTarget). Stat (2)) frmMain.charstat (2). Caption = Trim (Player (myTarget). Stat (3)) frmMain.charstat (3). Caption = Trim (Player (myTarget). Stat (4)) frmMain.charstat (4). Caption = Trim (Player (myTarget). Stat (5))```I cant test it im not at home at the moment so i can just give you ideas xD (Off topic: Replyed Guild's)¨EDIT–-And dont forget to change the dim and the other stuff you need for itIll try out whats working if im at home ;-) Link to comment Share on other sites More sharing options...
Zopto Posted August 1, 2012 Author Share Posted August 1, 2012 tnx for answer about guildhmm i got run time error 9 infrmMain.lblPlayerName.Caption = Trim(Player(myTarget).Name) Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 1, 2012 Share Posted August 1, 2012 myTarget as Long ? to the Sub or else idk sorry Link to comment Share on other sites More sharing options...
Zopto Posted August 1, 2012 Author Share Posted August 1, 2012 @Mortal:> myTarget as Long ? to the Sub or else idk sorrymyTarget as long Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 1, 2012 Share Posted August 1, 2012 add to the sublikeSub blablabla(myTarget as Long) Link to comment Share on other sites More sharing options...
hisherwin Posted August 2, 2012 Share Posted August 2, 2012 how do i view this information? Link to comment Share on other sites More sharing options...
hisherwin Posted August 2, 2012 Share Posted August 2, 2012 @Zopto:> i found bug: when i click on player it show my status exept his> dose any one cnow how to fix that??i think this one ```frmMain.picPlayerInfo.Visible = True frmMain.lblPlayerName.Caption = Trim (Player (Mytarget , Index). Name) frmMain.lblPlayerName = Trim (Player (Mytarget , Index). Name) & "- Level" & Trim (Player (Mytarget , Index). Level) frmMain.charstat (0). Caption = Trim (Player (Mytarget , Index). Stat (1)) frmMain.charstat (1). Caption = Trim (Player (Mytarget , Index). Stat (2)) frmMain.charstat (2). Caption = Trim (Player (Mytarget , Index). Stat (3)) frmMain.charstat (3). Caption = Trim (Player (Mytarget , Index). Stat (4)) frmMain.charstat (4). Caption = Trim (Player (Mytarget , Index). Stat (5))```Idk if this work , I will check later. Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Share Posted August 2, 2012 **All ClientSide**Search```Public Sub DrawPlayerName(ByVal Index As Long)```Change to```Public Sub DrawPlayerName(ByVal Index As Long, myTarget As Long)```Search``` If Options.Debug = 1 Then On Error GoTo errorhandler```Under add``` If frmMain.picPlayerInfo.Visible = True Then If myTargetType = TARGET_TYPE_PLAYER And myTarget <> MyIndex Then frmMain.lblPlayerName.Caption = Trim(Player(myTarget).Name) & "- Level" & Trim(Player(Index).Level) frmMain.charstat(0).Caption = "Str: "Trim(Player(myTarget).Stat(1)) frmMain.charstat(1).Caption = "End: "Trim(Player(myTarget).Stat(2)) frmMain.charstat(2).Caption = "Int: "Trim(Player(myTarget).Stat(3)) frmMain.charstat(3).Caption = "Agi: "Trim(Player(myTarget).Stat(4)) frmMain.charstat(4).Caption = "Will: "Trim(Player(myTarget).Stat(5)) Else frmMain.picPlayerInfo.Visible = False AddText "Invalid target.", BrightRed End If Else End If```Search``` ' draw player names For i = 1 To Player_HighIndex If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then Call DrawPlayerName(i) End If Next```Change to``` ' draw player names For i = 1 To Player_HighIndex If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then Call DrawPlayerName(i, myTarget) End If Next```Now at frmMainMake an PictureBox, name it picPlayerInfoCreate an Label, name it lblPlayerNameCreate an Label, name it charstatCopy it 4 Times untill you got something that looks like this:[![](http://www7.pic-upload.de/thumb/02.08.12/n19u1wx425kb.png)](http://www.pic-upload.de/view-15410655/Unbenannt.png.html)Now add an label where the menu is (Its to open the pic)Klick on it and paste in``` If Not picPlayerInfo.Visible Then picPlayerInfo.Visible = True Else picPlayerInfo.Visible = False End If```Now if you got an target and klick on this label it will show the pic with Name, Level and stats Link to comment Share on other sites More sharing options...
Zopto Posted August 2, 2012 Author Share Posted August 2, 2012 tnx mortal!!!! Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Share Posted August 2, 2012 No Problem ;-)Its just Basic and not really good coded with the pic.visible e.c.t. but it works if i got more time ill maka it again with rightklick menu Link to comment Share on other sites More sharing options...
Zopto Posted August 2, 2012 Author Share Posted August 2, 2012 ok i set it in frst post agen tnx mortal for your time to fix this system!! Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Share Posted August 2, 2012 I Updated it a bit now it show str agi e.c.t. Its better i think else you dont know whats what ;-) Link to comment Share on other sites More sharing options...
Zopto Posted August 2, 2012 Author Share Posted August 2, 2012 i posted it ^^ agen tnx Link to comment Share on other sites More sharing options...
Zopto Posted August 2, 2012 Author Share Posted August 2, 2012 Angel wee need somting like this???```If myTargetType = TARGET_TYPE_PLAYER And myTarget <> vbLeftButton Then(open card info that ``` Link to comment Share on other sites More sharing options...
Guest Posted August 2, 2012 Share Posted August 2, 2012 Youlld get it ;) Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Share Posted August 2, 2012 you dont need it but ill look if i got the rightklick menu for Daxterxx that you can choose there "View Player"And then it will show itThis here is just the BASIC ;-)+ 1 To my Tutorial List ;-) hahaha Link to comment Share on other sites More sharing options...
Zopto Posted August 2, 2012 Author Share Posted August 2, 2012 ohh yes sry i am left hended for me right click is left and left is right xD Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Share Posted August 2, 2012 haha no problem ill build it then in = Taget Player - Rightklick - Show menu - Choose View Player - Show this here Link to comment Share on other sites More sharing options...
Zopto Posted August 2, 2012 Author Share Posted August 2, 2012 i think that will work…i trying also to add picture of player in info card it will be more proffesional Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Share Posted August 2, 2012 Thats easy xD just look at picCharacter and use this change Index to mytarget and it will work i thinkIf anyone have more ideas PM me or write here if its Ok for ZoptoMomentan Rightklick list–-AttackTradeView Player--- Link to comment Share on other sites More sharing options...
Zopto Posted August 2, 2012 Author Share Posted August 2, 2012 it is ok whit me loli have more idea what about to you add duel system then in left click add dueland that picture of player Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Share Posted August 2, 2012 I think ill make an new post if i got it working then add as AddOnsYou duel system, Player Info e.c.t.else the other Users need to add all and thats bad ;-) Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now