Wortel Angels Posted August 2, 2012 Author 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)
Santini Posted August 2, 2012 Posted August 2, 2012 Hi,It would be good if you could trade via the menu.Kindest Regards,Santini
Guest Posted August 2, 2012 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.
Wortel Angels Posted August 2, 2012 Author 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
Guest Posted August 2, 2012 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
Wortel Angels Posted August 2, 2012 Author 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
Wortel Angels Posted August 2, 2012 Author 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.
Zopto Posted August 2, 2012 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?
Wortel Angels Posted August 2, 2012 Author Posted August 2, 2012 PM… Nice idea xDIf you klick on PM it adds to your txtmychat "!Playername "Added to Waiting list
Domino_ Posted August 2, 2012 Posted August 2, 2012 its wierd if your 10 tiles away from player and trade with him…..
Wortel Angels Posted August 2, 2012 Author Posted August 2, 2012 ah this does not work xDYou must stand near to you trade partner ;-)*Added AddOn Private Message*
Wortel Angels Posted August 2, 2012 Author Posted August 2, 2012 Thanks…To the Ideas please only important things... this is an quick menu and not an 100 choices menu haha
Vus Posted August 2, 2012 Posted August 2, 2012 Nice tutorial and these addons can be useful as well, good job. :)
Wortel Angels Posted August 2, 2012 Author Posted August 2, 2012 Thanks ;-) ill do my best xDThat makes me happy my first self-made Tutorial helps ;-)*Added AddOn Duell*
Guest Posted August 2, 2012 Posted August 2, 2012 Dude this is honestly great work. BUT FIGURE OUT THE OATH FINDING!!!!!! :)
JohnPony Posted August 2, 2012 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.
Wortel Angels Posted August 3, 2012 Author Posted August 3, 2012 kk if anyone can pm me the pathfinding ill try to figure it out ;-)
JohnPony Posted August 3, 2012 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.
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