Como crear Scripts en Xtremeworlds "Hecho por mi"

Hola Taringueros en este post pondre un tutorial de Como crear Scripts en Xtremeworlds que es un programa para hacer juegos RPG Online osea MMORPG bien empezemos. ¿Que son los Scripts? Los Scripts son basicamente una parte del juego si no tenes los scripts no podes hacer tu juego aca hay un tuto de como hacer scripts y ponerlos en tu juego! Aprendiendo a hacer Scripts... Bueno una vez que ya tengan creado el juego con Xtremeworlds La ip y eso una cosa antes tienen que ser Root Admin asi que en el server pongan esto /setaccess 9 Y EL NOMBRE DE SU PERSONAJE EL PERSONAJE TIENE QUE ESTAR ONLINE Una vez que agan tengan todo eso apretan F1 en el juego cuando estan juegando eso es para que les salgan las opciones de Root Admin. Bien ahora como hacer Scripts. Cuando ya ayan puesto F1 y les salga esta pantalla: Bueno hay entra a Edit Scripting.Y les saldra esta pantalla: Bueno aca les dejo unos scripts para que los pongan pero cada uno tiene su regla. Aca les dejo el del transformador es para que el personaje se transforme en Cualquier cosa. dim rnd Rnd = rand(635,1) If ItemNum = UNA COSA ACA BA EL NUMERO DE ITEM QUE SERA EL TRANSFORMADOR then Call Setplayersprite(index,rnd) end if Ahora donde ubicar este Script? Este Script se unbica despues de este mensaje. Sub UseItem(Index, ItemNum, ItemType, SlotNum) Aca una imagen de como queda: Ahora el de Carameloraro Que es Carameloraro? Es un item que te sube un lvl. Bien aca el Script: If ItemNum = ACA BA EL NUMERO DEL ITEM then Call SetPlayerExp(index, GetPlayerNextLevel(index)) call onlevelup(index) Call SetPlayerExp(index,0) Call TakeItem(Index, 496, 1) end if Este abajo del Script del transformador "ACUERDENSE DE SEPARAR" Ahora viene el de perder SP ¿Que es perder SP? Perder SP es cuando estas corriendote empezas a agotar si te quedas con poco SP te moris. Aca el Script: If GetPlayerGuild(index) = "" then Call SetPlayerGuildAccess(Index, "1" Call SendPlayerData(Index) End If call UpdateRankings(Index) End Sub Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index) TotalExp = GetPlayerExp(Index) - GetPlayerNextLevel(Index) Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 2) Call SetPlayerExp(Index, TotalExp) Call Hechizoaljugador(index, 14) Loop Call BattleMsg(Index, "Tienes " & GetPlayerPOINTS(Index) & " puntos de estado.", BRIGHTBLUE, 0) Sub OnScriptedTile(index, Movement) ' Called when players mov 'SP script If Movement = 2 Then If GetPlayerSP(Index) > 0 Then Call SetPlayerSP(Index, GetPlayerSP(Index) - 1) Else If GetPlayerSP(Index) = 0 Then Call SetPlayerHP(Index, GetPlayerHP(Index) - (GetPlayerMAXHP(Index) / 100)) End If End If End If If GetPlayerSP(Index) = GetPlayerMAXSP(Index) * .5 Then Call PlayerMsg(Index, "YA EMPIEZAS A CANSARTE.", 6) Else If GetPlayerSP(Index) = 1 Then Call PlayerMsg(Index, "PARA DE CORRER O TE LASTIMARAS.", 4) End If End If If GetPlayerSP(Index) = 0 then If HasItem(Index, 293) => 1 Then Call TakeItem(Index, 293, 1) call SetPlayerSP(Index, GetPlayerMaxSP(Index)) End If End If If GetPlayerHP(Index) = 0 Then Call OnDeath(Index, "player" Call PlayerMsg(Index,"Has muerto de cansancio .", 14) Call GlobalMsg(GetPlayerName(Index)& " ha muerto de cansancio.", 14) Else If Movement = 1 Then Call SetPlayerSP(Index, GetPlayerSP(Index) + 1) End If End If 'SP finish Ese Script va despues de este. que esta por lo primero. Sub OnLevelUp(index) ' Called to check for player levelup If GetPlayerExp(index) >= GetPlayerNextLevel(index) Then If (GetPlayerLevel(index) + 1) <= GetServerMaxLevel Then i = Int(GetPlayerSPEED(index) / 10) If i < 1 Then i = 1 If i > 3 Then i = 3 Call SetPlayerLevel(index, GetPlayerLevel(index) + 1) Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + i) Call SetPlayerExp(index, 0) Call PlayerMsg(index, "Has ganado un nivel! Ahora tienes " & GetPlayerPOINTS(index) & " puntos de stat para repartir.", C_GREY) Call GetStats(index) Else Call PlayerMsg(index, "Sorry " & GetPlayerName(index) & " but " & GetServerMaxLevel & " is the level cap.", C_WHITE) Call SetPlayerExp(index, 0) End If End If Bueno acuerdense separar y no juntar con el script de abajo tampoco aca una imagen de como queda este: Bien luego pondre mas Aproximadamente pondre los de: Evolucion y Que un NPC te lleve a un mapa o te cruce de rio algo asi Bueno Suerte!!!