É Possivel Nadar ou Voar

por binho67 Ter 09 Mar 2010, 10:40

Oi galera
gostaria de perguntar se existe algum sistema de voar para eclipse ou de nadar
se tiver por favor me ajude
AA e queria tambem um sistema de ranking usando so scripts oirque ainda n sei
mecher com VB obrigado
flw Wink

por **Lendário** Ter 09 Mar 2010, 11:31

Cara a maioria dos sistemas pede vb e quando não pede é tudo simples Surprised

por binho67 Ter 09 Mar 2010, 11:44

Ok vou estudar mais o VB
mais vcs podiam por uma video aula enssinando a fazer algums sistemas
ao inves de inssinar so a mecher no vb
vlw

por St4rk Ter 09 Mar 2010, 11:55

Vou postar aque ^^:

Coloque este script em um novo case em scriptedItems:

Sub scriptedSpell(index, script)
Dim Flying
Select Case script
Case 0
Flying= GetVar("Fly.ini", GetPlayerName(index), "Flying")
If Flying = 1 Then
Call PutVar("Fly.ini", GetPlayerName(index), "Flying", 0)
Call SetPlayerClass(index, GetVar("FlyData.ini", GetPlayerName(index), "NormalClass"))
Call SetPlayerSprite(index, GetVar("FlyData.ini", GetPlayerName(index), "NormalSprite"))
Else
Call PutVar("Fly.ini", GetPlayerName(index), "Flying", 1)
Call PutVar("FlyData.ini",GetPlayerName(index), "NormalClass", GetPlayerClass(index))
Call PutVar("FlyData.ini", GetPlayerName(index), "NormalSprite", GetPlayerSprite(index))
Call SetPlayerClass(index, GetVar("FlyConfig.ini", "Config", "FlyClass"))
Call SetPlayerSprite(index, GetVar("FlyConfig.ini", "Config", "FlySprite"))
End If
End Select
End Sub

Crie um INI e bote o nome de "FlyConfig.ini" (Sem as aspas"")
Agora coloque dentro dele
FlyConfig.ini

[Config]
FlyClass=#
FlySprite=$

Substitua # com a classe que é a classe voar. Locais onde você só pode voar, colocou lá blocos de classe.
Substitua $ com o sprite que é o sprite voar. Se você ativou a voar, em seguida, seu sprite irá mudar para isso, quando você desativado então você irá mudar de volta ao normal.

Creditos : GodLord

Melhoramendo do Sistema de Voo:

Coloque este script em um novo case em scriptedItems:

Codigo:

If GetVar("Steed.ini", GetPlayerName(Index), "Steed") = "1" Then
Call PlayerMsg(Index, "You are on a steed already.", 12)
Else
Call PutVar("Steed.ini", GetPlayerName(Index), "Steed", "1")
Call PutVar("Steed.ini", GetPlayerName(Index), "NormalClass", CStr(GetPlayerClass(Index)))
Call SetPlayerClass(Index, Int(GetVar("SteedConfig.ini", "Config", "SteedClass")))
Call PutVar("Steed.ini", GetPlayerName(Index), "Sprite", CStr(GetPlayerSprite(Index)))
Call SetPlayerSprite(Index, Int(GetVar("SteedConfig.ini","Config","SteedSprite")))
Call SendPlayerData(Index)
End If

Colocar isso em um atalho:

If GetVar("Steed.ini", GetPlayerName(Index), "Steed") <> "1" Then
Call PlayerMsg(Index, "You aren't on a steed.", 12)
Else
Call PutVar("Steed.ini", GetPlayerName(Index), "Steed", "0")
Call SetPlayerClass(Index, Int(GetVar("Steed.ini", GetPlayerName(Index), "NormalClass")))
Call SetPlayerSprite(Index, Int(GetVar("Steed.ini", GetPlayerName(Index), "Sprite")))
Call SendPlayerData(Index)
End If

Create an INI called "SteedConfig.ini" (without the "")
Place the next in it:
SteedConfig.ini
Agora crie um INI e Coloque o nome de "SteedConfig.ini"(Sem aspas "")
E coloque isso nele
SeedConfig.ini

[Config]
SteedClass=#
SteedSprite=%

Creditos a GodLord,bom descupa pelo meu ingles tabajara,tentei me esforça,não encontrei nenhum erro(lembrando que não mexo com scripts Razz

) Flw gente ^^

por binho67 Ter 09 Mar 2010, 13:59

vlw funfa perfeitamente
obrigadasso!!!!!!

por St4rk Ter 09 Mar 2010, 16:54

De nada cara ^^ se precisa qual quer coisa estamos aque ;D

por FusioN Sex 25 Jun 2010, 13:06

Dúvida/Pedido/Problema Resolvido com sucesso.
Se houver algo mais por favor pedimos que efetue a criação de um novo tópico na área de Suporte para resolução.

Topico Trancado e Movido

Atenciosamente Equipe MMORPGBR.

por Conteúdo patrocinado

É Possivel Nadar ou Voar

É Possivel Nadar ou Voar

Re: É Possivel Nadar ou Voar

Re: É Possivel Nadar ou Voar

Re: É Possivel Nadar ou Voar

Re: É Possivel Nadar ou Voar

Re: É Possivel Nadar ou Voar

Re: É Possivel Nadar ou Voar

Re: É Possivel Nadar ou Voar