Guerra de Guilds por VB

por Gu1lh3rm3 Ter 25 Set 2012, 16:19

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

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

bom ai está!, estado por macacos!, funciona que é uma maravilha KKK'
Creditos:
Gu1lh3rm3 - por fazer para Visual Basic
Teste50 - por criar o verdadeiro por Script

por Ryo Ter 25 Set 2012, 17:27

UP +1 obrigado por disponibilizar =)

por Gu1lh3rm3 Ter 25 Set 2012, 17:35

que isso u-ú, apenas to fazeno oque gosto, ajudando Razz

por RenanR Ter 25 Set 2012, 19:29

Meio simples, apenas pra ir e comentar, mas vale né. +1 pela contribuição.

por Pablo Ter 25 Set 2012, 19:44

É um bom tutorial, bem legal e bem feito, tem como melhora-lo mais ainda porem isso fica a sua escolha, levou meu +1 obrigado pela colaboração

Atenciosamente,
Pablo