[Aportes indexados] Hechizo Teleport (Iao Style) (Beta)

Estado
Cerrado para nuevas respuestas.

Pocho

Oráculo Lvl 3
Hechizo Teleport (Iao Style) [Beta]

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]
 

germu

Newbie Lvl 1
no encuentro el Sub CargarHechizos aparece Sub UploadUserHechizos pero tampoco aprece for hechizo = 1....
saludos
 

facundo

Oráculo Lvl 3
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> CargarHechizos<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]

Esta en FileIO.bas
 

germu

Newbie Lvl 1
Gracias Facundo

Y Sub PasarSegundo() ?? Lo mismo con

Código de Visual Basic:
--------------------------------------------------------------------------------
'Flags
Type UserFlags

Hacia el final.


Saludos.
 

facundo

Oráculo Lvl 3
¿Eso no encontras?

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Sub</span> PasarSegundo<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> </li></ol></div>[/vb]

esta en General.bas

Y


[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="li2"><span style="color: #b1b100;">Type</span> UserFlags </li></ol></div>[/vb]

Esta en Declares.bas
 

DarkMage

Destructor Lvl 1
germu dijo:
Gracias Facundo

Y Sub PasarSegundo() ?? Lo mismo con

Código de Visual Basic:
--------------------------------------------------------------------------------
'Flags
Type UserFlags

Hacia el final.


Saludos.

Mira ke no tenes q abrir los modulos por separado ^^
 

germu

Newbie Lvl 1
aaaaaaa? como qe no? qe consecuencia puede traer
yo lo qe hice fue abrir modhechizos.bas agregar guardar y cerrar
luego abrir general.bas agregar, cerrar y gaurdar y etc

esta mal eso?
saludos


case"/meditar" donde lo encuentro?
Gracias
 

facundo

Oráculo Lvl 3
Lo encontras en

TCP_HandleData2.bas

No es que este mal.. Lo podes hacer así.. Pero cuando tengas que compilar vas a tener que abrir el proyecto..

Es mejor si lo abrís todo desde el principio, es lo mismo..
 

germu

Newbie Lvl 1
nooooooooooo no funca
dice Else without If

ElseIf UserList(i).flags.Portal > 1 Then

saco If

me marca

Else UserList(i).flags.Portal > 1 Then

Ayuda Pocho

Saludos
 

Pocho

Oráculo Lvl 3
hago 2 post asi no confundo


Edite el primer post debido a que habia un ElseIf que tenia que ser 1 IF y no un ELSE ^^
 

Dj Mixer

Destructor Lvl 1
Pocho dijo:
anda, no nada? algun admin lo mueve a desarrollos ? media pila admins feos
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">On</span> Desvirtue <span style="color: #b1b100;">Goto</span> Kuack</li></ol></div>[/vb]


Chau pocho ajaja
Ahi viene tavo y te corre con la pala
Guarda q tenes 2 advertencias y ya t metiste un error con decir eso de shura en el otro thread ;D

Salu2

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Kuack : Perdon por el desvirtue</li></ol></div>[/vb]
 

germu

Newbie Lvl 1
Pocho no anda, Saqe End If del final y me lo acepto

Luego salta el error de variable en

f Hechizos(uh).TeleportX = 1 Then
Dim Mapaf, Xf, Yf As Integer
If UserList(UserIndex).flags.Portal > 0 Then
Dim TiemPoP As Integer
Mapaf = Hechizos(uh).TeleportXMap
Xf = Hechizos(uh).TeleportXX
Yf = Hechizos(uh).TeleportXY
TiemPoP = 10 ' segundos
UserList(UserIndex).flags.Portal = TiemPoP
Call MakeObj(ToMap, 0, UserList(UserIndex).Pos.Map, ET, UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY)
MapF = 1
Xf = 50
Yf = 70
MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY).TileExit.Map = Mapaf
MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY).TileExit.X = Xf
MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY).TileExit.Y = Yf
UserList(UserIndex).flags.Portal = TiemPoP
UserList(UserIndex).flags.PortalM = UserList(UserIndex).Pos.Map
UserList(UserIndex).flags.PortalX = UserList(UserIndex).flags.TargetX
UserList(UserIndex).flags.PortalY = UserList(UserIndex).flags.TargetY


No encuentra ET

Saludos
 

Pocho

Oráculo Lvl 3
germu dijo:
Pocho no anda, Saqe End If del final y me lo acepto

Luego salta el error de variable en

f Hechizos(uh).TeleportX = 1 Then
Dim Mapaf, Xf, Yf As Integer
If UserList(UserIndex).flags.Portal > 0 Then
Dim TiemPoP As Integer
Mapaf = Hechizos(uh).TeleportXMap
Xf = Hechizos(uh).TeleportXX
Yf = Hechizos(uh).TeleportXY
TiemPoP = 10 ' segundos
UserList(UserIndex).flags.Portal = TiemPoP
Call MakeObj(ToMap, 0, UserList(UserIndex).Pos.Map, ET, UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY)
MapF = 1
Xf = 50
Yf = 70
MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY).TileExit.Map = Mapaf
MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY).TileExit.X = Xf
MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY).TileExit.Y = Yf
UserList(UserIndex).flags.Portal = TiemPoP
UserList(UserIndex).flags.PortalM = UserList(UserIndex).Pos.Map
UserList(UserIndex).flags.PortalX = UserList(UserIndex).flags.TargetX
UserList(UserIndex).flags.PortalY = UserList(UserIndex).flags.TargetY


No encuentra ET

Saludos
a si, me olide de decirlo, eso es un teleport ^^ no se q numero es

edit1: tengo 6 advertencias

edit2:

asi tiene q qedar


Dim ET As Obj
ET.Amount = 1
ET.ObjIndex = 378
 

germu

Newbie Lvl 1
Encontre un error
[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">    <span style="color: #66cc66;">[</span>color=cyan<span style="color: #66cc66;">]</span>MapF = <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">[</span>/color<span style="color: #66cc66;">]</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]


no lo reconoce y puse
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Dim</span> Mapaf, Mapf, Xf, Yf <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li></ol></div>[/vb]

y lo compile :oops:

No se si lo pusiste mal y es Mapaf = 1 en vez de Mapf = 1
o yo agrege Mapf al pedo y qeda todo mal

Saludos
 

facundo

Oráculo Lvl 3
Asi:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Dim</span> Mapf, Xf, Yf <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li></ol></div>[/vb]
 
Estado
Cerrado para nuevas respuestas.
Arriba