[EEB]Sistema de Guerra ninja Basic Por ComandButton

Guiinholp Ter Out 02, 2012 6:57 pm

Bom.. so adptei ele para Naruto. "_"

¹ Primeiro Crie Um comandbutton No frm.Mirage Em um lugar da sua Escolha..

Com Caption:Guerre Ninja. Ou oque voce kiser.

De 2 clique e adicione

Código:: Call SendData("guerraninja" & END_CHAR)

Cliente Finalizado. Agora No Serve-Side Na modserverTCP Procure Por

Código:: Case "setsprite"

Acima adicione

Código:: '::::::::::::::::::::::::::::::::: '::::::::Guerra Ninja :::::::::::: '::::::::::::::::::::::::::::::::: Case "guerraninja" On Error Resume Next If GetPlayerName(Index) >= "#" Then Call GlobalMsg("O Player " & GetPlayerName(Index) & " Foi Para Guerra Ninja. !!!", 14) ' Msg que vai aparecer quando usar o botao Call PlayerWarp(Index, 200, 10, 10) ' Coordenadas para onde o player vai End If Exit Sub

Creditos
Gu1lh3rm3 - por fazer para Visual Basic
Teste50 - por criar o verdadeiro por Script

**Myke ~** Qui Out 11, 2012 12:08 am

Bom Amigo, eu Não creio que isso seja para Naruto por que você alterou só:

Código:: If GetPlayerGuild(Index) >= "#" Then

Para:

Código:: If GetPlayerName(Index) >= "#" Then

Se Fosse para Naruto poderia ser:

Código:: If GetPlayerVila(Index) >= "#" Then

Ou até msm para:

Código:: If GetPlayerClass(Index) >= "#" Then

Pórem Obg por Ajudar, esse Sistema poderá Servir para outros tipos de jogos.

Atenciosamente ~
Eu lol!

**Eduardo** Qui Out 11, 2012 4:57 am

Esse sistema é meio inutil por que teleporta apenas 1 jogador não seria bem uma guerra com apenas 1 cara , bom não programo muito em EEB mais qualquer erro falem , ta aew um codigo que sera mais util

Troquem esse codigo:

Código:: '::::::::::::::::::::::::::::::::: '::::::::Guerra Ninja :::::::::::: '::::::::::::::::::::::::::::::::: Case "guerraninja" On Error Resume Next If GetPlayerName(Index) >= "#" Then Call GlobalMsg("O Player " & GetPlayerName(Index) & " Foi Para Guerra Ninja. !!!", 14) ' Msg que vai aparecer quando usar o botao Call PlayerWarp(Index, 200, 10, 10) ' Coordenadas para onde o player vai End If Exit Sub

Por esse daqui abaixo:

Código:: Dim i As Long Case "guerraninja" On Error Resume Next For i = 1 To MAX_PLAYERS If IsPlaying(i) = True Then Call GlobalMsg(" Começou uma Guerra Ninja. !!!", 14) Call PlayerWarp(i, 200, 10, 10) End If Next i Exit Sub

"Abs: Com esse codigo você teleportara todos os jogadores, fiz sem VB então não sei se tem erro