Wortel Angels Posted August 2, 2012 Author Share Posted August 2, 2012 I got an Request from daxterxx and made it for free so ill make it PublicThis is Just the Basic ill add some AddOns to it if i got Ideas ;-)**How is it Working?**Step 1\. Target an PlayerStep 2\. Right-Klick the playerStep 3\. Choose ;-)**AddOns**>! >! [Add this](http://www.touchofdeathforums.com/smf2/index.php/topic,82165.msg879824.html)>! And youll walk to the Left-Click position>! >! First add this [Here](http://www.touchofdeathforums.com/smf2/index.php/topic,82036.0.html)>! Then change>! ``` 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```>! to>! ```>! If frmMain.picPlayerInfo.Visible = True 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>! End If```>! Then>! Klick on the Label which opens the picPlayerInfo>! And delete the Code>! Then>! Delete the Label>! Then Add to picMenu an label>! Name: lblMViewPlayer>! Caption: View Player>! Then klick on lblMViewPlayer>! and add>! ```If myTarget <> MyIndex Then>! picPlayerInfo.Visible = True>! picMenu.Visible = False>! Else>! AddText "Invalid target.", BrightRed>! picMenu.Visible = False>! End If```>! The End ;-)>! >! First add>! [This](http://www.touchofdeathforums.com/smf2/index.php/topic,78441.0.html)>! Then add an new Label to picMenu>! Name: lblMGInvite>! Caption: Guild Invite>! Klick on it and add>! ```If myTarget <> MyIndex Then>! Call GuildCommand(2, Player(myTarget).Name)>! picMenu.Visible = False>! Else>! AddText "Cant invite yourself", BrightRed>! picMenu.Visible = False>! End If```>! The End ;-)>! >! First add an new Label>! Name: lblMWhisper>! Caption: Whisper>! Klick on it and add>! ```If myTarget <> MyIndex Then>! txtMyChat.text = "!" & Trim(Player(myTarget).name) & " ">! picMenu.Visible = False>! Else>! AddText "You cant Whisper yourself.", BrightRed>! picMenu.Visible = False>! End If``` >! >! First add [This](http://www.touchofdeathforums.com/smf2/index.php/topic,82035.0.html)>! Then add an new Label to picMenu>! Name: lblMPVP>! Caption: PVP>! Klick on it and add>! ```If myTarget <> MyIndex Then>! SendPVPRequest (Player(myTarget).Name)>! picMenu.Visible = False>! Else>! AddText "You cant fight yourself.", BrightRed>! picMenu.Visible = False>! End If```>! >! Change>! ``` If myTargetType = TARGET_TYPE_PLAYER Then>! If Button = vbRightButton Then>! picMenu.Top = Y>! picMenu.Left = X>! frmMain.picMenu.Visible = True>! End If>! End If```to>! ``` If myTargetType = TARGET_TYPE_PLAYER Then>! If Button = vbRightButton Then>! picMenu.Top = Y>! picMenu.Left = X>! frmMain.picMenu.Visible = True>! If GetPlayerAccess(MyIndex) > 1 Then>! frmMain.lblMGM.Visible = True>! End If>! End If>! End If```Add to frmMain at bottom>! ```Private Sub lblMGM_Click()>! picMenu.Visible = False>! picMenuGM.Top = picMenu.Top>! picMenuGM.Left = picMenu.Left>! picMenuGM.Visible = True>! lblMGM.Visible = False>! lblMGMBack.Visible = True>! End Sub>! Private Sub lblMGMBack_Click()>! picMenu.Visible = True>! picMenu.Top = picMenuGM.Top>! picMenu.Left = picMenuGM.Left>! picMenuGM.Visible = False>! lblMGM.Visible = True>! lblMGMBack.Visible = False>! End Sub>! Private Sub LBLMGMClose_Click()>! picMenuGM.Visible = False>! End Sub```>! Add to picMenu an Label>! Name: lblMGM>! Capton: >>>! Visible: False>! i put it at the right from Close>! Add picMenuGM to your frmMain>! [Download picMenuGM](http://www.file-upload.net/download-4629560/picmenugm.frm.html) >! >! Add an new Label to picMenuGM>! Name: lblMGMKick>! Caption: Kick>! And add in it>! ```SendKick Player(myTarget).Name>! picMenuGM.Visible = False```>! >! Add an new Label to picMenuGM>! Name: lblMGMBan>! Caption: Ban>! And add in it>! ```SendBan Player(myTarget).Name>! picMenuGM.Visible = False```>! >! Add an new Label to picMenuGM>! Name: lblMGMMake>! Caption: Make GM>! And put this code in it>! ```SendSetAccess Player(myTarget).Name, 3>! picMenuGM.Visible = False```Why 3 Because else you cant remove the access ;-)>! >! Add an new Label to picMenuGM>! Name: lblMGMRemove>! Caption: Remove GM>! And put this code in it>! ```SendSetAccess Player(myTarget).Name, 0>! picMenuGM.Visible = False```>! More Ideas ? PM me or write it here**Tutorial**Search```Private Sub picScreen_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)```Add under``` If Options.Debug = 1 Then On Error GoTo errorhandler```This``` If myTargetType = TARGET_TYPE_PLAYER Then If Button = vbRightButton Then picMenu.Top = y picMenu.Left = x frmMain.picMenu.Visible = True End If End If```At Bottom of frmMain add```Private Sub lblMClose_Click()picMenu.Visible = FalseEnd SubPrivate Sub lblMInvite_Click() If myTarget <> MyIndex Then SendPartyRequest picMenu.Visible = False Else AddText "Invalid invitation target.", BrightRed picMenu.Visible = False End IfEnd SubPrivate Sub lblMTrade_Click() If myTarget <> MyIndex Then SendTradeRequest picMenu.Visible = False Else AddText "You cant Trade yourself.", BrightRed picMenu.Visible = False End IfEnd Sub```Copy the picMenuTo your frmMainThe End ;-)**Menu must be at the Front of picScreen else you dont see it****Screenshot**[](http://www.pic-upload.de/view-15416044/Unbenannt.png.html)This is my FIRST self-made TutorialSo all Credits to me ;-)–-[PicMenu & PicMenuAdmin](http://www.file-upload.net/download-7341808/Form1.frm.html) Link to comment Share on other sites More sharing options...
Santini Posted August 2, 2012 Share Posted August 2, 2012 Hi,It would be good if you could trade via the menu.Kindest Regards,Santini Link to comment Share on other sites More sharing options...
Guest Posted August 2, 2012 Share Posted August 2, 2012 Well done mate! The only thing I want to see is when you want to trade, you actually auto walk up next to the person and begin trading or auto attacking. Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Author Share Posted August 2, 2012 Santini Trade is included ;-)daxterxx Sended you the client and you just use the arrows xDEDIT–-Added Screenshot+1 to my Tutoriallist ;-)Added picMenu to Attachments Link to comment Share on other sites More sharing options...
Guest Posted August 2, 2012 Share Posted August 2, 2012 Yanno looking at your code, this could easily be implemented to right click on resources, items ect. Fishing mining woodcutting. Im going to look into this. Excellent, excelent job man. Im also try a forc walk to target method to walk over to another player Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Author Share Posted August 2, 2012 Yeah i know i added now the AddOn for the Player InformationEDIT–-Added AddOn for Player Information By Me & ZoptoAdded AddOn for Guild Invite By Scott Link to comment Share on other sites More sharing options...
Guest Posted August 2, 2012 Share Posted August 2, 2012 nice job man Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Author Share Posted August 2, 2012 If you got more Ideas PM ;-)If i find out how to make an Pathfinding ill add Trade with pathfinding and an picMenu for Mobsand thereAttackEventually Tame <–- For Pet syteme.c.t. Link to comment Share on other sites More sharing options...
Zopto Posted August 2, 2012 Share Posted August 2, 2012 works grate i have idea what about option pm when you click on that it alows you to chat whit friends? Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Author Share Posted August 2, 2012 PM… Nice idea xDIf you klick on PM it adds to your txtmychat "!Playername "Added to Waiting list Link to comment Share on other sites More sharing options...
Domino_ Posted August 2, 2012 Share Posted August 2, 2012 make distance requested for player menu… Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Author Share Posted August 2, 2012 What ?? xD Link to comment Share on other sites More sharing options...
Domino_ Posted August 2, 2012 Share Posted August 2, 2012 its wierd if your 10 tiles away from player and trade with him….. Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Author Share Posted August 2, 2012 ah this does not work xDYou must stand near to you trade partner ;-)*Added AddOn Private Message* Link to comment Share on other sites More sharing options...
Zopto Posted August 2, 2012 Share Posted August 2, 2012 anyway grate job!! Link to comment Share on other sites More sharing options...
minipimp Posted August 2, 2012 Share Posted August 2, 2012 Very nicely done mate! Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Author Share Posted August 2, 2012 Thanks…To the Ideas please only important things... this is an quick menu and not an 100 choices menu haha Link to comment Share on other sites More sharing options...
Vus Posted August 2, 2012 Share Posted August 2, 2012 Nice tutorial and these addons can be useful as well, good job. :) Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 2, 2012 Author Share Posted August 2, 2012 Thanks ;-) ill do my best xDThat makes me happy my first self-made Tutorial helps ;-)*Added AddOn Duell* Link to comment Share on other sites More sharing options...
Guest Posted August 2, 2012 Share Posted August 2, 2012 Dude this is honestly great work. BUT FIGURE OUT THE OATH FINDING!!!!!! :) Link to comment Share on other sites More sharing options...
JohnPony Posted August 2, 2012 Share Posted August 2, 2012 @daxterxx:> Dude this is honestly great work. BUT FIGURE OUT THE OATH FINDING!!!!!! :)Spirea's source has path finding, there are a few people left with the source. Ill ask DFA if i can give it out. Link to comment Share on other sites More sharing options...
Guest Posted August 2, 2012 Share Posted August 2, 2012 I have speria source :D Link to comment Share on other sites More sharing options...
iSnow Posted August 3, 2012 Share Posted August 3, 2012 Good job Immortal, this fits my needs perfectly. Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 3, 2012 Author Share Posted August 3, 2012 kk if anyone can pm me the pathfinding ill try to figure it out ;-) Link to comment Share on other sites More sharing options...
JohnPony Posted August 3, 2012 Share Posted August 3, 2012 @daxterxx:> I have speria source :DYou don't have the real Spirea source, not the one Genusis used to make his game.You have a older version that was released by DFA on echostorm. 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