Bloqueio por Level

por Raicon Sex 08 Out 2010, 19:51

Ta ai:
No Fundo do Main

Código:: Sub BlockLevel(index, LevelNeeded) Dim Dir Dim Dir2 if getplayerdir(index) = 1 then Dir = getplayery(index) -2 Dir2 = getplayerx(index) end if if getplayerdir(index) = 0 then Dir = getplayery(index) +2 Dir2 = getplayerx(index) end if if getplayerdir(index) = 2 then Dir2 = getplayerx(index) +2 Dir = getplayery(index) end if if getplayerdir(index) = 3 then Dir2 = getplayerx(index) -2 Dir = getplayery(index) end if if getplayerlevel(index) < LevelNeeded then call playerwarp(index, getplayermap(index), Dir2, Dir) end if 'By: Raicon end sub