Ajuda aquie porvafor

por hbo123 Seg 05 Mar 2012, 12:24

Queria pedir 1 warp por resets, tipow, so irá entrar no mapa se tiver 100 resets, e por ae vai.

obrigado.

por Thales12 Seg 05 Mar 2012, 16:10

no principal.txt ou main.txt procure por:

Código:: Sub Commands(index) On Error Resume Next Dim Portal Dim mapnum Dim x Dim y Dim i Dim TextSay Dim n Dim m Dim C m = GetVar("Dados.ini", "MAX", "MAX_MAPS") TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

em baixo add:

Código:: If Lcase(Mid(TextSay, 1, 7)) = "/cidade" Then If GetPlayerResets(index) = 10 Then Call playsound(index, "magic12.wav")' Call PlayerWarp(index, 3, 9, 13) Call PlayerMsg(index, "Você foi para a cidade", 4) End If End If

por Gu1lh3rm3 Seg 05 Mar 2012, 16:19

acho que você quer Warp por script, pelo oque intendi é na hora que você vai passar no mapa né, intao no seu main.txt proucure por

Código:: Sub ScriptedTile(index, Script)

eu to ligado que tu sabe mecher no ScriptTile, intao coloca assim na Case disponivel

Código:: Case X If GetPlayerResets(index) < 100 Then Call BlockPlayer(index) Call PlayerMsg(index, "você presisa ter 100 resets para passar aqui!", 4) End If

e no final do seu main.txt adicione

Código:: Sub BlockPlayer(index) Dim PlayerDir Dim Map Dim X Dim Y PlayerDir = GetPlayerDir(index) Map = GetPlayerMap(index) X = GetPlayerX(index) Y = GetPlayerY(index) Select Case PlayerDir Case 0 Call PlayerWarp(index, Map, X, Y + 1) Case 1 Call PlayerWarp(index, Map, X, Y - 1) Case 2 Call PlayerWarp(index, Map, X + 1, Y) Case 3 Call PlayerWarp(index, Map, X - 1, Y) End Select End Sub

bom ai la em cima onde é para colocar a Case, é só você mudar o Case X para um numero, exemplo: Case 5

bom isso deve funcionar, se não funcionar fala para min, que eu arrumo oque faltar Ajuda aquie porvafor 965439