HECHIZO DE TELEPORT by 'Pocho'
En ModHechizo.bas Buscamos
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Else</span> <span style="color: #808080;">' /GS</span></li><li style="" class="li1"> </li><li style="" class="li2"> Select <span style="color: #b1b100;">Case</span> Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Tipo</span></li><li style="" class="li1"> <span style="color: #b1b100;">Case</span> uInvocacion <span style="color: #808080;">'</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> HechizoInvocacion<span style="color: #66cc66;">(</span>UserIndex, b<span style="color: #66cc66;">)</span></li><li style="" class="li2"> <span style="color: #b1b100;">Case</span> uEstado</li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> HechizoTerrenoEstado<span style="color: #66cc66;">(</span>UserIndex, b<span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #b1b100;">End</span> Select</li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]
y abajo agregamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">If</span> Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportX</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> Mapaf, Xf, Yf <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> TiemPoP <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> ET <span style="color: #b1b100;">As</span> Obj </li><li style="" class="li2">ET.<span style="color: #66cc66;">Amount</span> = <span style="color: #cc66cc;">1</span> </li><li style="" class="li1">ET.<span style="color: #66cc66;">ObjIndex</span> = <span style="color: #cc66cc;">378</span> </li><li style="" class="li1">Mapaf = Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXMap</span></li><li style="" class="li2">Xf = Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXX</span></li><li style="" class="li1">Yf = Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXY</span></li><li style="" class="li1"> TiemPoP = <span style="color: #cc66cc;">10</span> <span style="color: #808080;">' segundos</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = TiemPoP</li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> MakeObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, ET, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> MapaF = <span style="color: #cc66cc;">1</span></li><li style="" class="li2"> Xf = <span style="color: #cc66cc;">50</span></li><li style="" class="li1"> Yf = <span style="color: #cc66cc;">70</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> = Mapaf</li><li style="" class="li2"> MapData<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span> = Xf</li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span> = Yf</li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = TiemPoP</li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||No puedes lanzar mas de un portal a la vez"</span> & <span style="color: #b1b100;">vbRed</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]
Luego vamos a FileIO.bas y en el Sub CargarHechizos buscamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'Llena la lista</span></li><li style="" class="li1"><span style="color: #b1b100;">For</span> Hechizo = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">To</span> NumeroHechizos</li></ol></div>[/vb]
y abajo ponemos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportX</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"TeleportX"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXMap</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"TeleportX"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXX</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"TeleportX"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXY</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"TeleportX"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]
abajo tendremos que tener:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Nombre</span> = Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"Nombre"</span><span style="color: #66cc66;">)</span> </li></ol></div>[/vb]
Segimos
En Declares.bas buscamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'**************************************************************</span></li><li style="" class="li1"><span style="color: #808080;">'**************************************************************</span></li><li style="" class="li2"><span style="color: #808080;">'************************ TIPOS *******************************</span></li><li style="" class="li1"><span style="color: #808080;">'**************************************************************</span></li><li style="" class="li1"><span style="color: #808080;">'**************************************************************</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Type</span> tHechizo</li></ol></div>[/vb]
y abajo agregamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> TeleportX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> TeleportXMap <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> TeleportXX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> TeleportXY <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li></ol></div>[/vb]
Luego vamos a General.bas y en Sub PasarSegundo() debajo de:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> <span style="color: #b1b100;">ElseIf</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">EstaEmpo</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> + <span style="color: #cc66cc;">1</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">30</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #808080;">'If FileExist(CharPath & UserList(Z).Name & ".chr", vbNormal) Then</span></li><li style="" class="li2"> <span style="color: #808080;">'esto siempre existe! sino no estaria logueado ;p</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #808080;">'TmpP = val(GetVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "Cant"))</span></li><li style="" class="li2"> <span style="color: #808080;">'Call WriteVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "Cant", TmpP + 1)</span></li><li style="" class="li1"> <span style="color: #808080;">'Call WriteVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "P" & TmpP + 1, LCase$(UserList(Z).Name) & ": CARCEL " & 30 & "m, MOTIVO: Empollando" & " " & Date & " " & Time)</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #808080;">'Call Encarcelar(Z, 30, "El sistema anti empollo")</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, i, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"!! Fuiste expulsado por permanecer muerto sobre un item"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #808080;">'Call SendData(ToAdmins, Z, 0, "|| " & UserList(Z).Name & " Fue encarcelado por empollar" & FONTTYPE_INFO)</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> CloseSocket<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> <span style="color: #b1b100;">ElseIf</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">15</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, i, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"|| LLevas 15 segundos bloqueando el item, muévete o serás desconectado."</span> & FONTTYPE_WARNING<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span> </li></ol></div>[/vb]
y agregamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> mapa, x, y <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> mapa = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span></li><li style="" class="li1"> x = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span></li><li style="" class="li1"> y = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> EraseObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, mapa, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">OBJInfo</span>.<span style="color: #66cc66;">Amount</span>, mapa, x, y<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> EraseObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span>, <span style="color: #cc66cc;">1</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> > <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> - <span style="color: #cc66cc;">1</span> </li></ol></div>[/vb]
nos quedaria ASÍ:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> <span style="color: #b1b100;">ElseIf</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">EstaEmpo</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> + <span style="color: #cc66cc;">1</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">30</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #808080;">'If FileExist(CharPath & UserList(Z).Name & ".chr", vbNormal) Then</span></li><li style="" class="li2"> <span style="color: #808080;">'esto siempre existe! sino no estaria logueado ;p</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #808080;">'TmpP = val(GetVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "Cant"))</span></li><li style="" class="li2"> <span style="color: #808080;">'Call WriteVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "Cant", TmpP + 1)</span></li><li style="" class="li1"> <span style="color: #808080;">'Call WriteVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "P" & TmpP + 1, LCase$(UserList(Z).Name) & ": CARCEL " & 30 & "m, MOTIVO: Empollando" & " " & Date & " " & Time)</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #808080;">'Call Encarcelar(Z, 30, "El sistema anti empollo")</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, i, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"!! Fuiste expulsado por permanecer muerto sobre un item"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #808080;">'Call SendData(ToAdmins, Z, 0, "|| " & UserList(Z).Name & " Fue encarcelado por empollar" & FONTTYPE_INFO)</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> CloseSocket<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> <span style="color: #b1b100;">ElseIf</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">15</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, i, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"|| LLevas 15 segundos bloqueando el item, muévete o serás desconectado."</span> & FONTTYPE_WARNING<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> mapa, x, y <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> mapa = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span></li><li style="" class="li1"> x = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span></li><li style="" class="li1"> y = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> EraseObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, mapa, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">OBJInfo</span>.<span style="color: #66cc66;">Amount</span>, mapa, x, y<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> EraseObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span>, <span style="color: #cc66cc;">1</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> > <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> - <span style="color: #cc66cc;">1</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Next</span> i </li></ol></div>[/vb]
Volvemos a Declares.bas y buscamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'Flags</span></li><li style="" class="li1"><span style="color: #b1b100;">Type</span> UserFlags </li></ol></div>[/vb]
debajo agregamos y terminamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> Portal <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> PortalM <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> PortalX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> PortalY <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li></ol></div>[/vb]
Luego, en hechizos.dat agregamos HECHIZOxx y ponemos asi:
[HECHIZOxx]
Nombre=Portal Ullathorpe
Desc=Crea un portal a Ullathorpe
PalabrasMagicas=Di' Ulla'h Tl^p :lol: :lol: :lol:
HechizeroMsg=Has creado un portal a Ullathorpe
Tipo=0
WAV=17
FXgrh=0
MinSkill=40
ManaRequerido=1800
Target=4
StaRequerido= 16
Teleport=1
TeleportMap=1
TeleportX=50
TeleportY=50
----------------------------------------------------------------------------------
Saludos :idea:
En ModHechizo.bas Buscamos
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Else</span> <span style="color: #808080;">' /GS</span></li><li style="" class="li1"> </li><li style="" class="li2"> Select <span style="color: #b1b100;">Case</span> Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Tipo</span></li><li style="" class="li1"> <span style="color: #b1b100;">Case</span> uInvocacion <span style="color: #808080;">'</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> HechizoInvocacion<span style="color: #66cc66;">(</span>UserIndex, b<span style="color: #66cc66;">)</span></li><li style="" class="li2"> <span style="color: #b1b100;">Case</span> uEstado</li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> HechizoTerrenoEstado<span style="color: #66cc66;">(</span>UserIndex, b<span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #b1b100;">End</span> Select</li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]
y abajo agregamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">If</span> Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportX</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> Mapaf, Xf, Yf <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> TiemPoP <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> ET <span style="color: #b1b100;">As</span> Obj </li><li style="" class="li2">ET.<span style="color: #66cc66;">Amount</span> = <span style="color: #cc66cc;">1</span> </li><li style="" class="li1">ET.<span style="color: #66cc66;">ObjIndex</span> = <span style="color: #cc66cc;">378</span> </li><li style="" class="li1">Mapaf = Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXMap</span></li><li style="" class="li2">Xf = Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXX</span></li><li style="" class="li1">Yf = Hechizos<span style="color: #66cc66;">(</span>uh<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXY</span></li><li style="" class="li1"> TiemPoP = <span style="color: #cc66cc;">10</span> <span style="color: #808080;">' segundos</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = TiemPoP</li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> MakeObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, ET, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> MapaF = <span style="color: #cc66cc;">1</span></li><li style="" class="li2"> Xf = <span style="color: #cc66cc;">50</span></li><li style="" class="li1"> Yf = <span style="color: #cc66cc;">70</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> = Mapaf</li><li style="" class="li2"> MapData<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span> = Xf</li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span> = Yf</li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = TiemPoP</li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetX</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">TargetY</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||No puedes lanzar mas de un portal a la vez"</span> & <span style="color: #b1b100;">vbRed</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]
Luego vamos a FileIO.bas y en el Sub CargarHechizos buscamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'Llena la lista</span></li><li style="" class="li1"><span style="color: #b1b100;">For</span> Hechizo = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">To</span> NumeroHechizos</li></ol></div>[/vb]
y abajo ponemos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportX</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"TeleportX"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXMap</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"TeleportX"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXX</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"TeleportX"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TeleportXY</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"TeleportX"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]
abajo tendremos que tener:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Nombre</span> = Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"Nombre"</span><span style="color: #66cc66;">)</span> </li></ol></div>[/vb]
Segimos
En Declares.bas buscamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'**************************************************************</span></li><li style="" class="li1"><span style="color: #808080;">'**************************************************************</span></li><li style="" class="li2"><span style="color: #808080;">'************************ TIPOS *******************************</span></li><li style="" class="li1"><span style="color: #808080;">'**************************************************************</span></li><li style="" class="li1"><span style="color: #808080;">'**************************************************************</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Type</span> tHechizo</li></ol></div>[/vb]
y abajo agregamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> TeleportX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> TeleportXMap <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> TeleportXX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> TeleportXY <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li></ol></div>[/vb]
Luego vamos a General.bas y en Sub PasarSegundo() debajo de:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> <span style="color: #b1b100;">ElseIf</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">EstaEmpo</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> + <span style="color: #cc66cc;">1</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">30</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #808080;">'If FileExist(CharPath & UserList(Z).Name & ".chr", vbNormal) Then</span></li><li style="" class="li2"> <span style="color: #808080;">'esto siempre existe! sino no estaria logueado ;p</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #808080;">'TmpP = val(GetVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "Cant"))</span></li><li style="" class="li2"> <span style="color: #808080;">'Call WriteVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "Cant", TmpP + 1)</span></li><li style="" class="li1"> <span style="color: #808080;">'Call WriteVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "P" & TmpP + 1, LCase$(UserList(Z).Name) & ": CARCEL " & 30 & "m, MOTIVO: Empollando" & " " & Date & " " & Time)</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #808080;">'Call Encarcelar(Z, 30, "El sistema anti empollo")</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, i, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"!! Fuiste expulsado por permanecer muerto sobre un item"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #808080;">'Call SendData(ToAdmins, Z, 0, "|| " & UserList(Z).Name & " Fue encarcelado por empollar" & FONTTYPE_INFO)</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> CloseSocket<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> <span style="color: #b1b100;">ElseIf</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">15</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, i, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"|| LLevas 15 segundos bloqueando el item, muévete o serás desconectado."</span> & FONTTYPE_WARNING<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span> </li></ol></div>[/vb]
y agregamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> mapa, x, y <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> mapa = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span></li><li style="" class="li1"> x = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span></li><li style="" class="li1"> y = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> EraseObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, mapa, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">OBJInfo</span>.<span style="color: #66cc66;">Amount</span>, mapa, x, y<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> EraseObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span>, <span style="color: #cc66cc;">1</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> > <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> - <span style="color: #cc66cc;">1</span> </li></ol></div>[/vb]
nos quedaria ASÍ:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> <span style="color: #b1b100;">ElseIf</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">EstaEmpo</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> + <span style="color: #cc66cc;">1</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">30</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #808080;">'If FileExist(CharPath & UserList(Z).Name & ".chr", vbNormal) Then</span></li><li style="" class="li2"> <span style="color: #808080;">'esto siempre existe! sino no estaria logueado ;p</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #808080;">'TmpP = val(GetVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "Cant"))</span></li><li style="" class="li2"> <span style="color: #808080;">'Call WriteVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "Cant", TmpP + 1)</span></li><li style="" class="li1"> <span style="color: #808080;">'Call WriteVar(CharPath & UserList(Z).Name & ".chr", "PENAS", "P" & TmpP + 1, LCase$(UserList(Z).Name) & ": CARCEL " & 30 & "m, MOTIVO: Empollando" & " " & Date & " " & Time)</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #808080;">'Call Encarcelar(Z, 30, "El sistema anti empollo")</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, i, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"!! Fuiste expulsado por permanecer muerto sobre un item"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #808080;">'Call SendData(ToAdmins, Z, 0, "|| " & UserList(Z).Name & " Fue encarcelado por empollar" & FONTTYPE_INFO)</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> CloseSocket<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> <span style="color: #b1b100;">ElseIf</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">EmpoCont</span> = <span style="color: #cc66cc;">15</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, i, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"|| LLevas 15 segundos bloqueando el item, muévete o serás desconectado."</span> & FONTTYPE_WARNING<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> mapa, x, y <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> mapa = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span></li><li style="" class="li1"> x = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span></li><li style="" class="li1"> y = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> EraseObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, mapa, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">OBJInfo</span>.<span style="color: #66cc66;">Amount</span>, mapa, x, y<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> EraseObj<span style="color: #66cc66;">(</span>ToMap, <span style="color: #cc66cc;">0</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span>, <span style="color: #cc66cc;">1</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span>, MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">Map</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">x</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> MapData<span style="color: #66cc66;">(</span>mapa, x, y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">TileExit</span>.<span style="color: #66cc66;">y</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalM</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalY</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">PortalX</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> > <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span> UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> = UserList<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Portal</span> - <span style="color: #cc66cc;">1</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Next</span> i </li></ol></div>[/vb]
Volvemos a Declares.bas y buscamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'Flags</span></li><li style="" class="li1"><span style="color: #b1b100;">Type</span> UserFlags </li></ol></div>[/vb]
debajo agregamos y terminamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> Portal <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> PortalM <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> PortalX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> PortalY <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li></ol></div>[/vb]
Luego, en hechizos.dat agregamos HECHIZOxx y ponemos asi:
[HECHIZOxx]
Nombre=Portal Ullathorpe
Desc=Crea un portal a Ullathorpe
PalabrasMagicas=Di' Ulla'h Tl^p :lol: :lol: :lol:
HechizeroMsg=Has creado un portal a Ullathorpe
Tipo=0
WAV=17
FXgrh=0
MinSkill=40
ManaRequerido=1800
Target=4
StaRequerido= 16
Teleport=1
TeleportMap=1
TeleportX=50
TeleportY=50
----------------------------------------------------------------------------------
PASENLO A DESARROLLO COMPLETADOS
Saludos :idea: