Script de esferas del dragon

[Drake]

hola alguienn podria proporcionarme un script de esferas del dragon? kuando tengas las 7 bolas halar con un npc para k te lleve al un mapa dnd ai recompensas xD

gracias

[canido]

por que no se lo pides a augusto creo que como lo pides tu es igual a como lo tiene augusto! XD

Solo digo, te seria mas facil...

[iki141]

Añadir en Sub ScriptedNPC

Case 1 'NPC Kamisama que te lleva al salón de recompensas
If CheckItemValue(Index,A) = 1 then 'El primer numero es el numero de Item de la esfera 1, el segundo es la cantidad de esferas 1 requeridas
If CheckItemValue(Index,B) = 1 then 'Idem anterior con esfera 2
If CheckItemValue(Index,C) = 1 then 'Idem anterior con esfera 3
If CheckItemValue(Index,D) = 1 then 'etc, no me hagas escribir mas hdp xD
If CheckItemValue(Index,E) = 1 then
If CheckItemValue(Index,F) = 1 then
If CheckItemValue(Index,G) = 1 then
Call SetPlayerMap(Index, Mapa)
Call SetPlayerX(Index, X)
Call SetPlayerY(Index, Y)
Call SendPlayerData(Index)
End If
End If
End If
End If
End If
End If
End If
Exit Sub

Case 2 'NPC que te devuelve al mundo normal
Call SetPlayerMap(Index, Mapa1)
Call SetPlayerX(Index, X1)
Call SetPlayerY(Index, Y1)
Exit Sub



****Configuración:
A,B,C,D,E,F y G reemplazar por el número de Item creado para cada esfera.
Mapa = N° Mapa donde te transporta Kamisama
X = Coordenada X del Mapa donde te tranporta
Y = Coordenada Y del Mapa donde te transporta
Mapa1 = Mapa donde volves al conseguir la recompensa y hablar con el NPC del lugar.
X1= Coordenada X de adonde vuelvas.
Y2= Coordenada Y de adonde vuelvas.


-----------------------------------------------------------------------------------------------------

Pegar al final del Main.txt si ya no lo habías pegado antes (abajo de todo el texto):

Function CheckItemValue(index, item) 'esta función no fue creada por mi
SLOT = 1
encontrado = 0
CheckItemValue = 0
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
CheckItemValue = CheckItemValue + GetPlayerInvItemValue(Index, SLOT)
encontrado = 100000
End If
SLOT = SLOT+1
Loop
If encontrado = 1 Then
CheckItemValue = 1
End If
End Function

-------------------------------------------------------------------------------------------------------


Aclaración: Obviamente tenes que crear las 7 esferas, los 2 NPC como Scripted y las recompensas posiblemente las insertes como objetos en el mapa.

Aclaración 2: No hago scripts personales, no se acostumbren, esto fue una excepción. Salu2

[Drake]

muchas gracais a iki por su excepcion que jamas olvidare xD