Portal
Procure:
- Código:
Private Sub picScreen_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Nessa sub encontre:
- Código:
If Options.Debug = 1 Then On Error GoTo errorhandler
Adicione em baixo:
- Código:
If myTargetType = TARGET_TYPE_PLAYER Then
If Button = vbRightButton Then
picMenu.Top = y
picMenu.Left = x
frmMain.picMenu.Visible = True
End If
End If
No final do frmMain adicione:
- Código:
Private Sub lblMClose_Click()
picMenu.Visible = False
End Sub
Private Sub lblMInvite_Click()
If myTarget <> MyIndex Then
SendPartyRequest
picMenu.Visible = False
Else
AddText "Invalid invitation target.", BrightRed
picMenu.Visible = False
End If
End Sub
Private Sub lblMTrade_Click()
If myTarget <> MyIndex Then
SendTradeRequest
picMenu.Visible = False
Else
AddText "You cant Trade yourself.", BrightRed
picMenu.Visible = False
End If[
End Sub
Agora baixe isso e coloque na PicScreen
"abra o Form.fmr clique na pic que foi aberta aperte CTRL+C e vá no seu projeto clique na PicScreen e aperte CTRL+V."
Download
Clique no botão de guilda caso teja no seu game e coloque esse cód:
- Código:
If myTarget <> MyIndex Then
Call GuildCommand(2, Player(myTarget).Name)
picMenu.Visible = False
Else
AddText "Cant invite yourself", BrightRed
picMenu.Visible = False
End If
Mandar MsgP clique em Whisper e coloque esse cód:
- Código:
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
É isso espero que gostem e usem em rararara.
