Hechizo Teleport (Iao Style) [Beta]
bueno, yo creo que funciona
busquen
hubo varios edit's, asique pueden probarlo nuevamente
eso lo agrege al final
[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><li style="" class="li1"> </li></ol></div>[/vb]
y abajo de ese end if pognan
[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"> MapF = <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]
busquen dentro del sub cargarhechizos
[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><li style="" class="li2"> </li></ol></div>[/vb]
y abajop ongan
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><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="li2"> 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="li1"> 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><li style="" class="li2"> </li></ol></div>[/vb]
abajo de todo esto tienen que tener
Hechizos(Hechizo).Nombre = Leer.DarValor("Hechizo" & Hechizo, "Nombre")
, seguro qesta
busquen
[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 pongan
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"> TeleportX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> TeleportXMap <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> 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]
vayan al Sub PasarSegundo()
yabajo de esto
[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]
pongan
[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]
abajo les tiene que quedar
next i
desp
busquen
[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]
y abajo pongan
[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]
y para el dat pongan
creo que declaramos todo, puede ser que me falte algo, en caso de ser asi avisenme, porq lo hise ai en el codigo y no aca[/quote]
bueno, yo creo que funciona
busquen
hubo varios edit's, asique pueden probarlo nuevamente
- Dim ET As Obj
ET.Amount = 1
ET.ObjIndex = 378
eso lo agrege al final
[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><li style="" class="li1"> </li></ol></div>[/vb]
y abajo de ese end if pognan
[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"> MapF = <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]
busquen dentro del sub cargarhechizos
[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><li style="" class="li2"> </li></ol></div>[/vb]
y abajop ongan
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><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="li2"> 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="li1"> 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><li style="" class="li2"> </li></ol></div>[/vb]
abajo de todo esto tienen que tener
Hechizos(Hechizo).Nombre = Leer.DarValor("Hechizo" & Hechizo, "Nombre")
, seguro qesta
busquen
[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 pongan
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"> TeleportX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> TeleportXMap <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> 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]
vayan al Sub PasarSegundo()
yabajo de esto
[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]
pongan
[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]
abajo les tiene que quedar
next i
desp
busquen
[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]
y abajo pongan
[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]
y para el dat pongan
[HECHIZO16]
Nombre=Portal
Desc=Crea un portal
PalabrasMagicas=Gogogo xd
HechizeroMsg=Has creado un portal
Tipo=0
WAV=17
FXgrh=0
MinSkill=40
ManaRequerido=120
Target=4
StaRequerido= 16
Teleport=1
TeleportMap=2
TeleportX=50
TeleportY=1
creo que declaramos todo, puede ser que me falte algo, en caso de ser asi avisenme, porq lo hise ai en el codigo y no aca[/quote]