OTServ
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.
Dirección Ip
[8.54] Pokemon Ot V.5 [LES INTERESARA] 3
Conectarse

Recuperar mi contraseña

Buscar
 
 

Resultados por:
 

 


Rechercher Búsqueda avanzada

Mejores posteadores
XxStroksxX (463)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 
~*~[:Đαяќ:]~[:тιβια:]~*~ (366)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 
spoor (83)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 
Dj Pacos (73)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 
God Skit (68)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 
GoD MexicanSoul (40)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 
fuzzy (35)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 
Eddie (31)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 
GOD Chimito (30)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 
conalep1996 (23)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote1111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote2111[8.54] Pokemon Ot V.5 [LES INTERESARA] Vote3111 

Últimos temas
» [???] [Super Naruto OT]
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Lun Jun 08, 2015 12:08 pm por keishmer91

» [ACTION] God/GM da item a un player
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Mar Dic 02, 2014 12:53 pm por hecmanos

» [8.60] Nuevo War Thais By TheRobertxon
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Vie Jun 20, 2014 10:56 am por luismc

» [7.92]Naruto Final Story!
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Dom Mayo 26, 2013 2:40 am por ricardotuck

» [9.1] Fun Server
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Mar Mayo 14, 2013 5:32 pm por skifer

» [9.1] The Forgotten Server v0.2.11pl2 (Mystic Spirit)
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Mar Mayo 14, 2013 5:29 pm por skifer

» New Map 8.60 (Darksystem) By: Turock & Gilio LIsto Arreglado El
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Mar Mayo 07, 2013 5:27 pm por tonyso

» Ocean Clasic Global Map 8.6
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Miér Mayo 01, 2013 11:19 pm por maganiua

» ayuda a abrir puertos
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Lun Abr 29, 2013 5:58 pm por XxStroksxX

» [8.60] Speedy War
[8.54] Pokemon Ot V.5 [LES INTERESARA] Icon_m10Dom Abr 28, 2013 5:51 pm por Sunnade'Audio

Upload Images
ImagesHack
Scanner
VirusTotal

[8.54] Pokemon Ot V.5 [LES INTERESARA]

+7
Ky Kyske
p4nx0x
GoD MexicanSoul
luisalex2289
~*~[:Đαяќ:]~[:тιβια:]~*~
gerardo huarcaya rivera
XxStroksxX
11 participantes

Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por XxStroksxX Jue Ene 27, 2011 3:08 am

Código:
Order System(Move) [100%]
Flying System[100%]
Ride System [100%]
Surf System[100%]
Cut System(Order)[100%]
Dig System(Order)[100%]
Rock Smash System(Order)[100%]
Light System(flash)(Order)[100%]
Teleport System(/h City)[100%]
m1-m9(Configurado Solo En 35Pokemons)
Pokemons Passivos/Agressivos[100%]
Sistema de Ventaja/Desventaja[100%]
Evolution System[100%]
Catch System[100%]
Go/Back System[100%]
Portrait(imagenes del pokemon al ponerlo)[100%]
Nurse Joy(Ya Cura Todos Los Pokes)[100%]
Nuevo Mapa por brun123
Carry System máximo 6 pokebolas(Si Capturas La #7 Se Va Al CP)[100%]
LvL para usar pokémons[100%]
Pokemons Mas Fuertes(Explico En Descripcion)[100%]
Hold Position(.h y el poke no se mueve)[100%]
Turn System(t1,t2,t3,t4)[100%]

Descripcion:

Nuevos Systemas:

Nuevo Fly System, (COmo El De PO!!!)
Nuevo Surf System, (Como El De PO)
Nuevo Ride System, (Por Order)
Cut System, (Por Order)
Rock Smash System, (Por Order)
Dig System, (Por Order)
Pokemons Mas Fuertes(Por Nivel)

Preguntas:
Q:Como Uso Ride System??
R:Dale Clic En Order I Lo Usas En Ti.

Q:Como Surfeo?
R: Solamente Sumonea Tu Pokemon y Corre Al Agua (:

Q:Como Uso Rock Smach, Cut, Dig System?
R: Solo SUmonea El Pokemon y Dale Order A Lo Qe Bayas A Usar

Q: Como Funciona El Systema De POkemons Mas Fuertes?
R: Bueno Miren Cada Pokemon Puede Ser Mas Fueret Cuando Tu Subes Lvl Al Pokemon Se Le Agrega Vida (:


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Arreglar Fly System:
Nos Vamos A Data/Scripts/Order I Borramos Todo y Ponemos Esto Dentro:
Código:
-- feito por brun123, editado por glugluguga


local nao = {'4820', '4821', '4822', '4823', '4824', '4825', '1395', '1389', '1391', '1393', '460'}

local direction = {'4', '5', '6', '7'}
-- ridefly
local
ridefly = {'Crystal Onix', 'Venusaur', 'Ninetales', 'Arcanine',
'Ponyta', 'Rapidash', 'Doduo', 'Dodrio', 'Onix', 'Rhyhorn', 'Tauros',
'Porygon', 'Aerodactyl', 'Dragonite', 'Charizard', 'Pidgeot', 'Fearow',
'Moltres', 'Zapdos', 'Articuno', 'Mew', 'Mewtwo'}
local ride =
{'Crystal Onix', 'Venusaur', 'Ninetales', 'Arcanine', 'Ponyta',
'Rapidash', 'Doduo', 'Dodrio', 'Onix', 'Rhyhorn', 'Tauros'}
local
fly = {'Porygon', 'Aerodactyl', 'Dragonite', 'Charizard', 'Pidgeot',
'Fearow', 'Zapdos', 'Moltres', 'Articuno', 'Mew', 'Mewtwo'}
local flys = {
[265] = {229, 2300, 350}, -- moltres
[283] = {230, 2100, 350}, -- artic
[199] = {224, 2600, 350}, -- zapdos
[9] = {232, 2200, 525}, -- 1000
[34] = {233, 2200, 525},-- two
[210] = {221, 1300, 410},-- nite
[80] = {222, 900, 375}, -- geot
[17] = {226, 800, 400}, -- fearow
[10] = {227, 1100, 410}, -- aero
[67] = {216, 1000, 410}, -- chari
[97] = {316, 600, 440}, -- porygon
}

local rides = {
[93] = {128, 780, 400}, -- tauros
[114] = {129, 800, 375}, -- kyuubi
[220] = {130, 800, 395}, -- rapid
[16] = {131, 410, 500}, -- ponyta
[77] = {132, 400, 510}, -- rhyhorn
[88] = {12, 900, 390}, -- arcan
[493] = {492, 1000, 360}, -- shiny arca
[496] = {494, 420, 420}, -- shiny vneu
[292] = {293, 480, 430}, -- cristal onix
[248] = {126, 450, 450}, -- onix
[22] = {134, 390, 450}, -- venu
[120] = {133, 750, 380}, -- dodrio
[26] = {135, 420, 500}, -- doduo
}
local bolas = {'2222', '2223', '2224'}
local ultra = {'2220', '2221', '2227'}
local etudao = 9506

-- ROCK SMASH
local
rocksmash = {'Sandshrew', 'Sandslash', 'Diglett', 'Dugtrio',
'Primeape', 'Machop', 'Machoke', 'Machamp', 'Geodude', 'Graveler',
'Golem' , 'Onix', 'Cubone', 'Marowak', 'Rhyhorn', 'Rhydon',
'Kangaskhan', 'Tauros', 'Snorlax', 'Poliwrath'}
local erockmash = 9502
local cdrocksmash = 5
-- ROCK SMASH

-- DIG
local digholes = {'468', '481', '483'}
local
dig = {'Raticate', 'Sandshrew', 'Sandslash', 'Diglett', 'Dugtrio',
'Primeape', 'Machop', 'Machoke', 'Machamp', 'Geodude', 'Graveler',
'Golem' , 'Onix', 'Cubone', 'Marowak', 'Rhyhorn', 'Rhydon',
'Kangaskhan', 'Tauros', 'Snorlax'}
local edig = 9504
local cddig = 5
-- DIG

-- CUT
local
cut = {'Raticate', 'Bulbasaur', 'Ivysaur', 'Venusaur', 'Charmeleon',
'Sandshrew', 'Sandslash', 'Gloom', 'Vileplume', 'Paras', 'Parasect',
'Meowth', 'Persian', 'Bellsprout', 'Weepinbell', 'Victreebel',
'Farfetchd', 'Krabby', 'Kingler', 'Exeggutor', 'Cubone', 'Marowak',
'Tangela', 'Scyther', 'Pinsir'}
local ecut = 9503
local cdcut = 5
-- CUT

-- BLINK
local blink = {'Abra', 'Kadabra', 'Alakazam', 'Porygon'}
local exhaustblink = 9501
local cdblink = 50
-- BLINK

-- LIGHT
local
light = {'Abra', 'Kadabra', 'Alakazam', 'Magnemite', 'Magneton',
'Drowzee', 'Hypno', 'Voltorb', 'Electrode', 'Mrmime', 'Electabuzz',
'Jolteon', 'Porygon', 'Pikachu', 'Raichu'}
local exhautStorage = 9500
local time = 600
local cd = 17
-- LIGHT

function onUse(cid, item, frompos, item2, topos)
if getPlayerItemCount(cid, item2.itemid) >= 1 then
return false
end
if getTilePzInfo(getCreaturePosition(cid)) then
return doPlayerSendCancel(cid, "You can't use order here.")
end
if exhaustion.get(cid, etudao) then
doPlayerSendCancel(cid, "Please wait a few seconds before using order again!")
return true
end
if item2.uid == cid then
if
#getCreatureSummons(cid) == 0 and getPlayerStorageValue(cid, 17000)
<= 0 and getPlayerStorageValue(cid, 17001) <= 0 then
doPlayerSendCancel(cid, "You need a pokemon to use order.")
return true
end

if
getPlayerStorageValue(cid, 17000) <= 0 and
getPlayerStorageValue(cid, 17001) <= 0 and not isInArray(ridefly,
getCreatureName(getCreatureSummons(cid)[1])) then
doPlayerSendCancel(cid, "You can't ride this pokemon nor fly with it.")
return true
end

if
getPlayerStorageValue(cid, 17000) <= 0 and
getPlayerStorageValue(cid, 17001) <= 0 and
getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 then
return true
end


if
getPlayerStorageValue(cid, 17001) <= 0 and
getPlayerStorageValue(cid, 17000) <= 0 and isInArray(ride,
getCreatureName(getCreatureSummons(cid)[1])) then
local pokemon = rides[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType]
if getCreatureSpeed(getCreatureSummons(cid)[1]) >= 1 then
doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
end
local function ride(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(cid)) <= params.d then
doChangeSpeed(cid, -250)
doChangeSpeed(cid, pokemon[2])
exhaustion.set(cid, etudao, 4)
setPlayerStorageValue(cid, 17001, 1)
doSetCreatureOutfit(cid, {lookType = pokemon[1], lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1)
setPlayerStorageValue(cid, 61209, getCreatureMaxHealth(getCreatureSummons(cid)[1]))
setPlayerStorageValue(cid, 61210, getCreatureHealth(getCreatureSummons(cid)[1]))
doRemoveCreature(getCreatureSummons(cid)[1])
else
dir = getDirectionTo(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(params.cid))
if dir == NORTHWEST then
if math.random(1,100) >= 51 then
dir = NORTH
else
dir = WEST
end
elseif dir == SOUTHWEST then
if math.random(1,100) >= 51 then
dir = SOUTH
else
dir = WEST
end
elseif dir == SOUTHEAST then
if math.random(1,100) >= 51 then
dir = SOUTH
else
dir = EAST
end
elseif dir == NORTHEAST then
if math.random(1,100) >= 51 then
dir = NORTH
else
dir = EAST
end
end
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1]))
doPushCreature(getCreatureSummons(params.cid)[1], dir, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
else
doPushCreature(getCreatureSummons(params.cid)[1], dir, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
end
end
end
end
end

local function speed(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1]))
end
end
end
end
doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", let me ride you!", 1)
exhaustion.set(cid, etudao, 4)
if getPlayerGroupId(cid) >= 2 and getPlayerGroupId(cid) <= 6 then
distanc = 1
else
distanc = 0
end
local distance = distanc
for i=1,12 do
addEvent(ride, pokemon[3]*i, {cid = cid, d = distance})
addEvent(speed, ((pokemon[3]*12)+100), {cid = cid})
end   
return true
end

if getPlayerStorageValue(cid, 17001) >= 1 then
setPlayerStorageValue(cid, 17001, 0)
if getPlayerGroupId(cid) ~= 6 then
setPlayerGroupId(cid, 8)
end
doCreatureSetLookDir(cid, 2)
doChangeSpeed(cid, -(getCreatureSpeed(cid)))
doChangeSpeed(cid, 250)
doRemoveCondition(cid, CONDITION_OUTFIT)
local item = getPlayerSlotItem(cid, 8)
doCreatureSay(cid, "" .. getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball.")..", let me get down!", 1)
pk = doSummonCreature(getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball."), getCreaturePosition(cid))
doConvinceCreature(cid, pk)
registerCreatureEvent(cid, "PlayerPokeDeath")
if isInArray(bolas, item.itemid) then
registerCreatureEvent(pk, "DiePoke")
elseif isInArray(ultra, item.itemid) then
registerCreatureEvent(pk, "DiePoke2")
end
setCreatureMaxHealth(pk, (getPlayerStorageValue(cid, 61209)))
doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61209)))
doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61210))-(getPlayerStorageValue(cid, 61209)))
return true
end


if getPlayerStorageValue(cid, 17000) >= 1 then
if getTileInfo(getThingPos(cid)).itemid == 460 then
doPlayerSendCancel(cid, "You can't stop flying at this height!")
return true
end
if getTileInfo(getThingPos(cid)).itemid >= 4820 and getTileInfo(getThingPos(cid)).itemid <= 4825 then
doPlayerSendCancel(cid, "You can't stop flying above the water!")
return true
end
if getPlayerGroupId(cid) ~= 6 then
setPlayerGroupId(cid, 8)
end
doCreatureSetLookDir(cid, 2)
setPlayerStorageValue(cid, 17000, 0)
doChangeSpeed(cid, -(getCreatureSpeed(cid)))
doChangeSpeed(cid, 250)
doRemoveCondition(cid, CONDITION_OUTFIT)
local item = getPlayerSlotItem(cid, 8)
doCreatureSay(cid, "" .. getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball.")..", let me get down!", 1)
pk = doSummonCreature(getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball."), getCreaturePosition(cid))
doConvinceCreature(cid, pk)
registerCreatureEvent(cid, "PlayerPokeDeath")
if isInArray(bolas, item.itemid) then
registerCreatureEvent(pk, "DiePoke")
elseif isInArray(ultra, item.itemid) then
registerCreatureEvent(pk, "DiePoke2")
end
setCreatureMaxHealth(pk, (getPlayerStorageValue(cid, 61209)))
doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61209)))
doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61210))-(getPlayerStorageValue(cid, 61209)))
return true
end

if
getPlayerStorageValue(cid, 17000) <= 0 and
getPlayerStorageValue(cid, 17001) <= 0 and isInArray(fly,
getCreatureName(getCreatureSummons(cid)[1])) then
if getPlayerStorageValue(cid, 17000) <= 0 then
local pokemon = flys[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType]
local function fly(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(cid)) <= params.dd then
doPlayerSendTextMessage(cid,27, "Type "up" to fly higher and "down" to fly lower." )
setPlayerStorageValue(cid, 61209, getCreatureMaxHealth(getCreatureSummons(cid)[1]))
setPlayerStorageValue(cid, 61210, getCreatureHealth(getCreatureSummons(cid)[1]))
setPlayerStorageValue(cid, 17000, 1)
registerCreatureEvent(cid, "Flying")
doChangeSpeed(cid, -250)
doChangeSpeed(cid, pokemon[2])
exhaustion.set(cid, etudao, 4)
doSetCreatureOutfit(cid, {lookType = pokemon[1], lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1)
doRemoveCreature(getCreatureSummons(cid)[1])
else
dir = getDirectionTo(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(params.cid))
if dir == NORTHWEST then
if math.random(1,100) >= 51 then
dir = NORTH
else
dir = WEST
end
elseif dir == SOUTHWEST then
if math.random(1,100) >= 51 then
dir = SOUTH
else
dir = WEST
end
elseif dir == SOUTHEAST then
if math.random(1,100) >= 51 then
dir = SOUTH
else
dir = EAST
end
elseif dir == NORTHEAST then
if math.random(1,100) >= 51 then
dir = NORTH
else
dir = EAST
end
end
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1]))
doPushCreature(getCreatureSummons(params.cid)[1], dir, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
else
doPushCreature(getCreatureSummons(params.cid)[1], dir, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
end
end
end
end
end

local function speed(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1]))
end
end
end
end

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", lets fly!", 1)
exhaustion.set(cid, etudao, 4)
if getPlayerGroupId(cid) >= 2 and getPlayerGroupId(cid) <= 6 then
distancc = 1
else
distancc = 0
end
local distancee = distancc
for i=1,12 do
addEvent(fly, pokemon[3]*i, {cid = cid, dd = distancee})
addEvent(speed, ((pokemon[3]*12)+100), {cid = cid})
end   
return true
end
return true
end
end
-- ROCK SMASH
if item2.itemid == 1285 and getPlayerStorageValue(cid, 63215) <= 0 then
if #getCreatureSummons(cid) == 0 then
doPlayerSendCancel(cid, "You need a pokemon to use rock smash.")
return true
end
if not isInArray(rocksmash, getCreatureName(getCreatureSummons(cid)[1])) then
doPlayerSendCancel(cid, "This pokemon can't use rock smash.")
return true
end
if isInArray(rocksmash, getCreatureName(getCreatureSummons(cid)[1])) then
if exhaustion.get(cid, erocksmash) then
doPlayerSendCancel(cid, "Please wait a few seconds before using rock smash again!")
return true
end


if getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 then
return true
end
doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
local function tocut(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) >= 1 then
return true
end
if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 100) >= 1 then
return true
end
if getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 1 then
doSendMagicEffect(topos, 118)
doTransformItem(getTileItemById(topos, 1285).uid, 2257)
exhaustion.set(cid, erocksmash, cdrocksmash)
setPlayerStorageValue(getCreatureSummons(params.cid)[1], 100, 1)
local function detrans(params)
doTransformItem(getTileItemById(topos, 2257).uid, 1285)
if isCreature(getCreatureSummons(params.ciddd)[1]) then
setPlayerStorageValue(getCreatureSummons(params.ciddd)[1], 100, 0)
end
end
addEvent(detrans, 5500, {ciddd = cid})
doCreatureSay(getCreatureSummons(cid)[1], "ROCK SMASH!", TALKTYPE_MONSTER)
local function nmr(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))
end
end
end
end
addEvent(nmr, 400, {cid = cid})
else
local badire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), topos)
if badire == NORTHWEST then
if math.random(1,100) >= 51 then
badire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) then
badire = NORTH
else
badire = WEST
end
else
badire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) then
badire = WEST
else
badire = NORTH
end
end
elseif badire == SOUTHWEST then
if math.random(1,100) >= 51 then
badire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) then
badire = SOUTH
else
badire = WEST
end
else
badire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) then
badire = WEST
else
badire = SOUTH
end
end
elseif badire == SOUTHEAST then
if math.random(1,100) >= 51 then
badire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) then
badire = SOUTH
else
badire = EAST
end
else
badire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) then
badire = EAST
else
badire = SOUTH
end
end
elseif badire == NORTHEAST then
if math.random(1,100) >= 51 then
badire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) then
badire = NORTH
else
badire = EAST
end
else
badire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) then
badire = EAST
else
badire = NORTH
end
end
end
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))
doPushCreature(getCreatureSummons(params.cid)[1], badire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
else
doPushCreature(getCreatureSummons(params.cid)[1], badire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
end
end
end
end
end

doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", smash this rock!", 1)
local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])
local temk = 1000 -(2.3 * speed)
addEvent(tocut, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})
for i = 1, getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), topos) * 2 do
addEvent(tocut, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})
end
return true
end
end
-- ROCK SMASH END

-- CUT
if item2.itemid == 2767 and getPlayerStorageValue(cid, 63215) <= 0 then
if #getCreatureSummons(cid) == 0 then
doPlayerSendCancel(cid, "You need a pokemon to use cut.")
return true
end
if not isInArray(cut, getCreatureName(getCreatureSummons(cid)[1])) then
doPlayerSendCancel(cid, "This pokemon can't use cut.")
return true
end
if isInArray(cut, getCreatureName(getCreatureSummons(cid)[1])) then
if exhaustion.get(cid, ecut) then
doPlayerSendCancel(cid, "Please wait a few seconds before using cut again!")
return true
end
if getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 then
return true
end
doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
local function tocut(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) >= 1 then
return true
end
if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 101) >= 1 then
return true
end
if getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 1 then
doSendMagicEffect(topos, 141)
doTransformItem(getTileItemById(topos, 2767).uid, 6216)
exhaustion.set(cid, ecut, cdcut)
setPlayerStorageValue(getCreatureSummons(params.cid)[1], 101, 1)
local function detrans(params)
doTransformItem(getTileItemById(topos, 6216).uid, 2767)
if isCreature(getCreatureSummons(params.ciddd)[1]) then
setPlayerStorageValue(getCreatureSummons(params.ciddd)[1], 101, 0)
end
end
addEvent(detrans, 5500, {ciddd = cid})
doCreatureSay(getCreatureSummons(cid)[1], "CUT!", TALKTYPE_MONSTER)
local function nmr(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))
end
end
end
end
addEvent(nmr, 400, {cid = cid})
else
adire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), topos)
if adire == NORTHWEST then
if math.random(1,100) >= 51 then
adire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) then
adire = NORTH
else
adire = WEST
end
else
adire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) then
adire = WEST
else
adire = NORTH
end
end
elseif adire == SOUTHWEST then
if math.random(1,100) >= 51 then
adire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) then
adire = SOUTH
else
adire = WEST
end
else
adire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) then
adire = WEST
else
adire = SOUTH
end
end
elseif adire == SOUTHEAST then
if math.random(1,100) >= 51 then
adire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) then
adire = SOUTH
else
adire = EAST
end
else
adire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) then
adire = EAST
else
adire = SOUTH
end
end
elseif adire == NORTHEAST then
if math.random(1,100) >= 51 then
adire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) then
adire = NORTH
else
adire = EAST
end
else
adire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) then
adire = EAST
else
adire = NORTH
end
end
end
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))
doPushCreature(getCreatureSummons(params.cid)[1], adire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
else
doPushCreature(getCreatureSummons(params.cid)[1], adire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
end
end
end
end
end

doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", cut this bush!", 1)
local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])
temk = 1000 -(2.3 * speed)
addEvent(tocut, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})
for i = 1, getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), topos) * 2 do
addEvent(tocut, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})
end

return true
end
end
-- CUT END

-- DIG
if isInArray(digholes, item2.itemid) and getPlayerStorageValue(cid, 63215) <= 0 then
if #getCreatureSummons(cid) == 0 then
doPlayerSendCancel(cid, "You need a pokemon to use dig.")
return true
end
if not isInArray(dig, getCreatureName(getCreatureSummons(cid)[1])) then
doPlayerSendCancel(cid, "This pokemon can't use dig.")
return true
end
if isInArray(dig, getCreatureName(getCreatureSummons(cid)[1])) then
if exhaustion.get(cid, edig) then
doPlayerSendCancel(cid, "Please wait a few seconds before using dig again!")
return true
end
if getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 then
return true
end
doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
local function tocut(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) >= 1 then
return true
end
if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 99) >= 1 then
return true
end
if getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 1 then
doSendMagicEffect(topos, 3)
setPlayerStorageValue(getCreatureSummons(params.cid)[1], 99, 1)
doTransformItem(getTileItemById(topos, item2.itemid).uid, item2.itemid+1)
exhaustion.set(cid, edig, cddig)
local function detrans(params)
doTransformItem(getTileItemById(topos, item2.itemid+1).uid, item2.itemid)
if isCreature(getCreatureSummons(params.ciddd)[1]) then
setPlayerStorageValue(getCreatureSummons(params.ciddd)[1], 99, 0)
end
end
addEvent(detrans, 5500, {ciddd = cid})
doCreatureSay(getCreatureSummons(cid)[1], "DIG!", TALKTYPE_MONSTER)
local function nmr(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))
end
end
end
end
addEvent(nmr, 400, {cid = cid})
else
local cdire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), topos)
if cdire == NORTHWEST then
if math.random(1,100) >= 51 then
cdire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) then
cdire = NORTH
else
cdire = WEST
end
else
cdire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) then
cdire = WEST
else
cdire = NORTH
end
end
elseif cdire == SOUTHWEST then
if math.random(1,100) >= 51 then
cdire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) then
cdire = SOUTH
else
cdire = WEST
end
else
cdire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) then
cdire = WEST
else
cdire = SOUTH
end
end
elseif cdire == SOUTHEAST then
if math.random(1,100) >= 51 then
cdire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) then
cdire = SOUTH
else
cdire = EAST
end
else
cdire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) then
cdire = EAST
else
cdire = SOUTH
end
end
elseif cdire == NORTHEAST then
if math.random(1,100) >= 51 then
cdire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) then
cdire = NORTH
else
cdire = EAST
end
else
cdire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) then
cdire = EAST
else
cdire = NORTH
end
end
end
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))
doPushCreature(getCreatureSummons(params.cid)[1], cdire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
else
doPushCreature(getCreatureSummons(params.cid)[1], cdire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
end
end
end
end
end

doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", open this hole!", 1)
local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])
temk = 1000 -(2.3 * speed)
addEvent(tocut, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})
for i = 1, getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), topos) * 2 do
addEvent(tocut, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})
end
return true
end
end
-- DIG END

-- BLINK
if
#getCreatureSummons(cid) == 0 and getPlayerStorageValue(cid, 63215)
<= 0 and getPlayerStorageValue(cid, 17000) <= 0 then
doPlayerSendCancel(cid, "You need a pokemon to use order.")
return true
end
if not isMonster(item2.uid) and getPlayerStorageValue(cid, 63215) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 then
if isInArray(blink, getCreatureName(getCreatureSummons(cid)[1])) then
if exhaustion.get(cid, exhaustblink) then
if getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 then
doPlayerSendCancel(cid, "You can't order your pokemon to move now.")
return true
end
doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", move!", 1)
doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
setPlayerStorageValue(getCreatureSummons(cid)[1], 12, 1)
local function move(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 12) == 0 then
return true
end
if getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 0 then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
local function speeed(params)
if isCreature(params.sum) then
if getCreatureSpeed(params.sum) == 0 then
doChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))
end
end
end
addEvent(speeed, 600, {sum = getCreatureSummons(params.cid)[1]})
end
setPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)
return true
end
local dire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), params.topos)
if dire >= 0 and dire <= 7 then
if dire == NORTHWEST then
if math.random(1,100) >= 51 then
dire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = NORTH
else
dire = WEST
end
else
dire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = WEST
else
dire = NORTH
end
end
elseif dire == SOUTHWEST then
if math.random(1,100) >= 51 then
dire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = SOUTH
else
dire = WEST
end
else
dire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = WEST
else
dire = SOUTH
end
end
elseif dire == SOUTHEAST then
if math.random(1,100) >= 51 then
dire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = SOUTH
else
dire = EAST
end
else
dire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = EAST
else
dire = SOUTH
end
end
elseif dire == NORTHEAST then
if math.random(1,100) >= 51 then
dire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = NORTH
else
dire = EAST
end
else
dire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = EAST
else
dire = NORTH
end
end
end
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))
doPushCreature(getCreatureSummons(params.cid)[1], dire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
else
doPushCreature(getCreatureSummons(params.cid)[1], dire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
end
end
end
end
end

local function voltarnormal(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
local function speeed(params)
if isCreature(params.sum) then
doChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))
end
end
addEvent(speeed, 0, {sum = getCreatureSummons(params.cid)[1]})
end
setPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)
end
end
end

local pois = getThingPos(item2.uid)
local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])
local temk = 1000 -(2.3 * speed)
local SumPos = getThingPos(getCreatureSummons(cid)[1])
local travelx = math.abs((topos.x) - (SumPos.x))
local travely = math.abs((topos.y) - (SumPos.y))
local travel = ((travelx) + (travely))
addEvent(move, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})
for i = 1, travel do
addEvent(move, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})
end
addEvent(voltarnormal, temk * travel, {cid = cid})
exhaustion.set(cid, etudao, travel)
else
if not isWalkable(topos, cid, 0, 0) then
doPlayerSendCancel(cid, "Your pokemon cannot teleport there.")
return true
end
if getItemName(item2.uid) == "shallow water" then
doPlayerSendCancel(cid, "Your pokemon cannot teleport there.")
return true
end
doTeleportThing(getCreatureSummons(cid)[1], topos)
doSendMagicEffect(topos, 134)
doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", teleport there!", 1)
doCreatureSay(getCreatureSummons(cid)[1], "BLINK!", TALKTYPE_MONSTER)
exhaustion.set(cid, exhaustblink, cdblink)
return true
end
return true
end
end
--- BLINK END

-- LIGHT --
if
isCreature(item2.uid) and getCreatureMaster(item2.uid) == cid and
getPlayerStorageValue(cid, 63215) <= 0 and
getPlayerStorageValue(cid, 17000) <= 0 and item2.uid ~= cid then
if not isInArray(light, getCreatureName(getCreatureSummons(cid)[1])) then
doPlayerSendCancel(cid, "This pokemon can't use flash.")
return true
end
if isInArray(light, getCreatureName(getCreatureSummons(cid)[1])) then
if not isMonster(item2.uid) and getCreatureMaster(item2.uid) ~= cid then
return doPlayerSendCancel(cid,"Please use flash on your pokemon.")
end
if exhaustion.get(cid, exhautStorage) then
doPlayerSendCancel(cid,"Please wait a few seconds before using flash again!")
return true
end
exhaustion.set(cid, exhautStorage, cd)
doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use flash!", 1)
doCreatureSay(getCreatureSummons(cid)[1], "FLASH!", TALKTYPE_MONSTER)
doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 28)
doSetCreatureLight(getCreatureSummons(cid)[1], 8, 215, time*1000)
return true
end
end
-- LIGHT END --
if #getCreatureSummons(cid) == 0 then
return true
end
if getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 then
doPlayerSendCancel(cid, "You can't order your pokemon to move now.")
return true
end
if getPlayerStorageValue(getCreatureSummons(cid)[1], 12) == 1 then
doPlayerSendCancel(cid, "You can't order your pokemon to move now.")
return true
end
doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", move!", 1)
doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))
setPlayerStorageValue(getCreatureSummons(cid)[1], 12, 1)
local function move(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 12) == 0 then
return true
end
if getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 0 then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
local function speeed(params)
if isCreature(params.sum) then
if getCreatureSpeed(params.sum) == 0 then
doChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))
end
end
end
addEvent(speeed, 600, {sum = getCreatureSummons(params.cid)[1]})
end
setPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)
return true
end
local dire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), params.topos)
if dire >= 0 and dire <= 7 then
if dire == NORTHWEST then
if math.random(1,100) >= 51 then
dire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = NORTH
else
dire = WEST
end
else
dire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = WEST
else
dire = NORTH
end
end
elseif dire == SOUTHWEST then
if math.random(1,100) >= 51 then
dire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = SOUTH
else
dire = WEST
end
else
dire = WEST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = WEST
else
dire = SOUTH
end
end
elseif dire == SOUTHEAST then
if math.random(1,100) >= 51 then
dire = SOUTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = SOUTH
else
dire = EAST
end
else
dire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = EAST
else
dire = SOUTH
end
end
elseif dire == NORTHEAST then
if math.random(1,100) >= 51 then
dire = NORTH
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = NORTH
else
dire = EAST
end
else
dire = EAST
if isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) then
dire = EAST
else
dire = NORTH
end
end
end
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))
doPushCreature(getCreatureSummons(params.cid)[1], dire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
else
doPushCreature(getCreatureSummons(params.cid)[1], dire, 1, 0)
doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))
end
end
end
end
end

local function voltarnormal(params)
if isCreature(params.cid) then
if isCreature(getCreatureSummons(params.cid)[1]) then
if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then
local function speeed(params)
if isCreature(params.sum) then
if getCreatureSpeed(params.sum) == 0 then
doChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))
end
end
end
addEvent(speeed, 0, {sum = getCreatureSummons(params.cid)[1]})
end
setPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)
end
end
end

local pois = getThingPos(item2.uid)
local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])
local temk = 1000 -(2.3 * speed)
local SummonPos = getThingPos(getCreatureSummons(cid)[1])
local travelx = math.abs((topos.x) - (SummonPos.x))
local travely = math.abs((topos.y) - (SummonPos.y))
local travel = ((travelx) + (travely))
addEvent(move, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})
for i = 1, travel do
addEvent(move, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})
end
addEvent(voltarnormal, temk * travel, {cid = cid})
exhaustion.set(cid, etudao, travel)
return true
end

Descargar el Server

+REP!


creditos:
XTibia.
XxStroksxX
XxStroksxX

+ Administrador +
+ Administrador +

¡Sorcerer Rapero!
Masculino España Géminis Cerdo
Chrome
Edad Edad : 28
Mensajes Mensajes : 463
Localización Localización : Barcelona
Fecha de inscripción Fecha de inscripción : 01/08/2010

Hoja de personaje
Personaje: Khail Phount
Vocation: Knight
Mundo: Infernia

http://www.otserv.biz/

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por gerardo huarcaya rivera Sáb Ene 29, 2011 8:04 am

como me creo una cuanta
gerardo huarcaya rivera
gerardo huarcaya rivera

Infiltrado
Infiltrado

+ New User +
Masculino Chile Escorpio Mono
Edad Edad : 31
Mensajes Mensajes : 2
Localización Localización : alto hospicio
Fecha de inscripción Fecha de inscripción : 29/01/2011

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por gerardo huarcaya rivera Sáb Ene 29, 2011 8:54 am

men no hay un lugar en donde me pueda crear la cuenta pagina no se o se crea ahi mismo men plix una respuesta se que tuserver es bueno
gerardo huarcaya rivera
gerardo huarcaya rivera

Infiltrado
Infiltrado

+ New User +
Masculino Chile Escorpio Mono
Edad Edad : 31
Mensajes Mensajes : 2
Localización Localización : alto hospicio
Fecha de inscripción Fecha de inscripción : 29/01/2011

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por XxStroksxX Sáb Ene 29, 2011 1:32 pm

Tienes Que Creartela con un programa llamado Sqlite que viene ai en el server

PD: Gracias por regristrarte!
XxStroksxX
XxStroksxX

+ Administrador +
+ Administrador +

¡Sorcerer Rapero!
Masculino España Géminis Cerdo
Chrome
Edad Edad : 28
Mensajes Mensajes : 463
Localización Localización : Barcelona
Fecha de inscripción Fecha de inscripción : 01/08/2010

Hoja de personaje
Personaje: Khail Phount
Vocation: Knight
Mundo: Infernia

http://www.otserv.biz/

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por ~*~[:Đαяќ:]~[:тιβια:]~*~ Sáb Ene 29, 2011 4:47 pm

buena we ajaja xD
~*~[:Đαяќ:]~[:тιβια:]~*~
~*~[:Đαяќ:]~[:тιβια:]~*~

+ Moderador +
+ Moderador +

*~Elder Wolf~*
Masculino Mexico Virgo Cerdo
Chrome
Edad Edad : 28
Mensajes Mensajes : 366
Localización Localización : :O ala versh XD
Fecha de inscripción Fecha de inscripción : 29/01/2011

http://www.chaosserv.no-ip.info

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por luisalex2289 Sáb Feb 12, 2011 5:07 pm

Pongan una guia para saber como entrar....
ya baje el programa y estoy en ceros.... no se como crear una cuenta, como entrar, si necesito otro programa aparte del que baje aqui....???????
luisalex2289
luisalex2289

Infiltrado
Infiltrado

+ New User +
Masculino Mexico Aries Serpiente
Edad Edad : 35
Mensajes Mensajes : 1
Localización Localización : Monterrey
Fecha de inscripción Fecha de inscripción : 12/02/2011

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por XxStroksxX Sáb Feb 12, 2011 6:35 pm

Pues tienes que crearte obligatoriamente una database para pokemon tienes que tener pagina Sad lo siento

Suerte Bien
XxStroksxX
XxStroksxX

+ Administrador +
+ Administrador +

¡Sorcerer Rapero!
Masculino España Géminis Cerdo
Chrome
Edad Edad : 28
Mensajes Mensajes : 463
Localización Localización : Barcelona
Fecha de inscripción Fecha de inscripción : 01/08/2010

Hoja de personaje
Personaje: Khail Phount
Vocation: Knight
Mundo: Infernia

http://www.otserv.biz/

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por ~*~[:Đαяќ:]~[:тιβια:]~*~ Jue Feb 24, 2011 10:41 am

Razz see
~*~[:Đαяќ:]~[:тιβια:]~*~
~*~[:Đαяќ:]~[:тιβια:]~*~

+ Moderador +
+ Moderador +

*~Elder Wolf~*
Masculino Mexico Virgo Cerdo
Chrome
Edad Edad : 28
Mensajes Mensajes : 366
Localización Localización : :O ala versh XD
Fecha de inscripción Fecha de inscripción : 29/01/2011

http://www.chaosserv.no-ip.info

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por GoD MexicanSoul Vie Feb 25, 2011 1:38 pm

Lol solo isiste copy and paste we ese teema es de [ADMIN] Pollito
GoD MexicanSoul
GoD MexicanSoul

Forero fase Beta
Forero fase Beta

+ New User +
Masculino Mexico Tauro Perro
Edad Edad : 29
Mensajes Mensajes : 40
Localización Localización : EN mi casa
Fecha de inscripción Fecha de inscripción : 13/02/2011

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por XxStroksxX Vie Feb 25, 2011 9:59 pm

Si, pero los creditos son de Xtibia.. Smile
XxStroksxX
XxStroksxX

+ Administrador +
+ Administrador +

¡Sorcerer Rapero!
Masculino España Géminis Cerdo
Chrome
Edad Edad : 28
Mensajes Mensajes : 463
Localización Localización : Barcelona
Fecha de inscripción Fecha de inscripción : 01/08/2010

Hoja de personaje
Personaje: Khail Phount
Vocation: Knight
Mundo: Infernia

http://www.otserv.biz/

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por p4nx0x Dom Feb 27, 2011 11:32 am

Hola, soy nuevo en el foro y queria preguntar si alguien me podria ayudar con el catch system, he tratado de agregar los pokemon que faltan al script pero no lo he podido lograr con exito, si alguien lo hizo podria porfavor orientarme un poco?, seria de gran ayuda Smile


De ante mano gracias.-

Greetings, p4nx0x.-
p4nx0x
p4nx0x

Infiltrado
Infiltrado

+ New User +
Masculino Chile León Cabra
Chrome
Edad Edad : 32
Mensajes Mensajes : 1
Localización Localización : Iquique,Chile
Fecha de inscripción Fecha de inscripción : 27/02/2011

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por ~*~[:Đαяќ:]~[:тιβια:]~*~ Dom Feb 27, 2011 2:40 pm

si los creditos son de Xtibia
~*~[:Đαяќ:]~[:тιβια:]~*~
~*~[:Đαяќ:]~[:тιβια:]~*~

+ Moderador +
+ Moderador +

*~Elder Wolf~*
Masculino Mexico Virgo Cerdo
Chrome
Edad Edad : 28
Mensajes Mensajes : 366
Localización Localización : :O ala versh XD
Fecha de inscripción Fecha de inscripción : 29/01/2011

http://www.chaosserv.no-ip.info

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por Ky Kyske Sáb Sep 03, 2011 1:25 pm

Buen aporte men Rep Arrow
Ky Kyske
Ky Kyske

Infiltrado
Infiltrado

+ New User +
Masculino Mexico Pez Gallo
Chrome
Edad Edad : 31
Mensajes Mensajes : 1
Localización Localización : Disneyland
Fecha de inscripción Fecha de inscripción : 03/09/2011

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por aalvarez rivera Jue Oct 06, 2011 10:58 pm

oie indeo te pido un favor como me hago GOD porfa espero tu respuesta
aalvarez rivera
aalvarez rivera

Infiltrado
Infiltrado

+ New User +
Masculino Chile Escorpio Rata
Chrome
Edad Edad : 27
Mensajes Mensajes : 1
Localización Localización : Arica
Fecha de inscripción Fecha de inscripción : 06/10/2011

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por Edy135 Miér Ene 04, 2012 12:21 am

buen aporte alguien me ayuda con los puertos??? nomas no me sale tengo q desactivar algo de antivirus o como??? ayuden jeje msn: [email=edy_135@hot]edy_135@hot[/email]........
Edy135
Edy135

Infiltrado
Infiltrado

+ New User +
Masculino España Cáncer Perro
Internet Explorer
Edad Edad : 29
Mensajes Mensajes : 2
Localización Localización : China
Fecha de inscripción Fecha de inscripción : 03/01/2012

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por Edy135 Sáb Ene 07, 2012 8:26 pm

ay algo mal en el catch system no estan todos los pokemon escritos ahy
Edy135
Edy135

Infiltrado
Infiltrado

+ New User +
Masculino España Cáncer Perro
Internet Explorer
Edad Edad : 29
Mensajes Mensajes : 2
Localización Localización : China
Fecha de inscripción Fecha de inscripción : 03/01/2012

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por Noechido Lun Abr 02, 2012 5:55 am

un mega favor no podras subirlo a otra pagina que no sea megaupload?
Noechido
Noechido

Infiltrado
Infiltrado

+ New User +
Masculino Mexico Tauro Perro
Chrome
Edad Edad : 30
Mensajes Mensajes : 1
Localización Localización : Mexico
Fecha de inscripción Fecha de inscripción : 02/04/2012

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por Lugnaf Miér Abr 24, 2013 2:07 pm

Actualizen la descargaa!!! Smile
me interesa mucho
GRACIAS POR EL SERVER
Lugnaf
Lugnaf

Infiltrado
Infiltrado

+ New User +
Masculino Mexico Virgo Cerdo
Chrome
Edad Edad : 28
Mensajes Mensajes : 1
Localización Localización : Mexico
Fecha de inscripción Fecha de inscripción : 24/04/2013

Volver arriba Ir abajo

[8.54] Pokemon Ot V.5 [LES INTERESARA] Empty Re: [8.54] Pokemon Ot V.5 [LES INTERESARA]

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.