Hola, queria pedir si alguien me podria correguir este codigo.
Gracias!
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #cc66cc;">10</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/TRANSFER "</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> rdata = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">10</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> < <span style="color: #cc66cc;">3</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, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||El usuario es inexistente o no esta conectado."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</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;">exit</span> <span style="color: #b1b100;">sub</span></li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"> tIndex = NameIndex<span style="color: #66cc66;">(</span>ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">" "</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> rdata = ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">2</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">" "</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> EsNewbie<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</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, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Lo sentimos, los newbies no pueden transferirse oro."</span> & FONTTYPE_INFO<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;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> tIndex < <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||El usuario es inexistente o no esta conectado."</span> & FONTTYPE_INFO<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="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> rdata < <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #b1b100;">If</span> rdata > UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> <span style="color: #b1b100;">Then</span> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </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;">"||Le has entregado "</span> & rdata & <span style="color: #ffffff;">" de oro a "</span> & UserList<span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">"."</span> & FONTTYPE_VENENO<span style="color: #66cc66;">)</span></li><li style="" class="li2"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, tIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||"</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">" te dio "</span> & rdata & <span style="color: #ffffff;">" de oro."</span> & FONTTYPE_VENENO<span style="color: #66cc66;">)</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> - rdata</li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> = UserList<span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> + rdata</li><li style="" class="li2"> SendUserStatsBox <span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span></li><li style="" class="li1"> SendUserStatsBox <span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span></li><li style="" class="li1"> </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;">Privilegios</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> LogGM<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span>, <span style="color: #ffffff;">"/Transferir "</span> & UserList<span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">" "</span> & rdata, <span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Privilegios</span> = <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</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"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li></ol></div>[/vb]
Gracias desde ya
Gracias!
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #cc66cc;">10</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/TRANSFER "</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> rdata = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">10</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> < <span style="color: #cc66cc;">3</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, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||El usuario es inexistente o no esta conectado."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</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;">exit</span> <span style="color: #b1b100;">sub</span></li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"> tIndex = NameIndex<span style="color: #66cc66;">(</span>ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">" "</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> rdata = ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">2</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">" "</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> <span style="color: #b1b100;">If</span> EsNewbie<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</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, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Lo sentimos, los newbies no pueden transferirse oro."</span> & FONTTYPE_INFO<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;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> tIndex < <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||El usuario es inexistente o no esta conectado."</span> & FONTTYPE_INFO<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="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"> <span style="color: #b1b100;">If</span> rdata < <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #b1b100;">If</span> rdata > UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> <span style="color: #b1b100;">Then</span> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </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;">"||Le has entregado "</span> & rdata & <span style="color: #ffffff;">" de oro a "</span> & UserList<span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">"."</span> & FONTTYPE_VENENO<span style="color: #66cc66;">)</span></li><li style="" class="li2"> <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, tIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||"</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">" te dio "</span> & rdata & <span style="color: #ffffff;">" de oro."</span> & FONTTYPE_VENENO<span style="color: #66cc66;">)</span></li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> - rdata</li><li style="" class="li1"> UserList<span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> = UserList<span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> + rdata</li><li style="" class="li2"> SendUserStatsBox <span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span></li><li style="" class="li1"> SendUserStatsBox <span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span></li><li style="" class="li1"> </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;">Privilegios</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> LogGM<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span>, <span style="color: #ffffff;">"/Transferir "</span> & UserList<span style="color: #66cc66;">(</span>tIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">" "</span> & rdata, <span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Privilegios</span> = <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</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"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li></ol></div>[/vb]
Gracias desde ya