1 [EEB] Guerra De Guild Por VB 2/10/2012, 03:49
Myke ~
Membro Honorário I
ai está simples e facil ;D... vamos começar
abra o client~side e vá para frmMirage, coloque um Command Button onde não ira atrapalhar o jogo e dentro desse botao coloque:
já era!!, Client~Side Finalizado
Server~Side Iniciado!
proucure por:
acima da palavra verde escrita acima adicione isso:
Se Vocês observarem bem os Códigos iram ver que pode adicionar novas funções ao mesmo.
Créditos ~
Eu por Postar
Gu1lh3rm3 por criar para VB
Test50 por criar por Script
abra o client~side e vá para frmMirage, coloque um Command Button onde não ira atrapalhar o jogo e dentro desse botao coloque:
- Código:
Call SendData("guildwar" & END_CHAR)
já era!!, Client~Side Finalizado
Server~Side Iniciado!
proucure por:
- Código:
Case "playerinforequest"
acima da palavra verde escrita acima adicione isso:
- Código:
':::::::::::::::::::::::::::::
'::::::::GUILD WAR::::::::::::
':::::::::::::::::::::::::::::
Case "guildwar"
On Error Resume Next
If GetPlayerGuild(Index) >= "#" Then
Call GlobalMsg("A Guild " & GetPlayerGuild(Index) & " entrou para guerra de guilds!!!", 14) ' Msg que vai aparecer quando usar o botao
Call PlayerWarp(Index, MAP, X, Y) ' Coordenadas para onde o player vai
End If
Exit Sub
Se Vocês observarem bem os Códigos iram ver que pode adicionar novas funções ao mesmo.
Créditos ~
Eu por Postar
Gu1lh3rm3 por criar para VB
Test50 por criar por Script