Muchos codigos, creo que nunca vistos.

  • Iniciador del tema Anonymous
  • Fecha de inicio
Estado
Cerrado para nuevas respuestas.
A

Anonymous

Invitado
[PEDIDO] Muchos codigos, creo que nunca vistos.

Bueno aca enumero los codigos, agan los que puedan y la mejor mayoría mejor. POR FAVOR ENUMERENLOS y si encaso que exista uno, pasen tan solo el link, grcias.



1. Colores del clan (soea lo que te aprece abajo del nick) que sean elegibles al crear el clan.
2. Sistema de Ofertas, cada 1 hora un item baja el 10% de su valor (y asi va cambiando) (la formula sería (Precio-SkillComercio) - Oferta) y que el item que entra a oferta sea anunciado y solo dure 10 minutos en la oferta.
3. Hacer un nuevo "consejo del caos" que se llame "Consejo de los Mejores" y que sea en color besh.
4. Hacer un comando que al ejecutarlo, te abra un notepad (hosteado en el server) el cual se pueden tomar apuntes y etc, que al ser cerrado, se guarde (para dejar mensajes y etc)
5. Cuando alguien es matado, envez de ser fantasma, que pase a ser esqueleto
6. El clero lee palabras a los fantasmas y los otros no.
7. Poción de invi (no encuentro el codigo)
8. Que los npcs puedan tener escudo
9. Que los GM's hablen en diferente FONT.
10. Sistema de maxima capacidad de "/GM". Es decír que si hay ya 10 mensajes en al cola, no puede ser agregado otro si no se limpia alguno.


Muchas gracias, espero sus respuestas :)


[Estaba al pdeo en la hora de Literature y los pensé ;] ][/img]
 

facundo

Oráculo Lvl 3
5-
buscas

[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;">Const</span> iCuerpoMuerto = <span style="color: #cc66cc;">8</span></li><li style="" class="li2"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> iCabezaMuerto = <span style="color: #cc66cc;">500</span></li></ol></div>[/vb]

y cambias el 8 por el numero del cuerpo del esqueleto y el 500 lo cambias por un 0 (por que ya tiene cabeza el esqueleto)
6-

Buscan en

Case ToDeadArea

Lo siguiente:

[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>MapData<span style="color: #66cc66;">(</span>sndMap, X, Y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">UserIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Muerto</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Or</span> UserList<span style="color: #66cc66;">(</span>MapData<span style="color: #66cc66;">(</span>sndMap, X, Y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">UserIndex</span><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: #b1b100;">Then</span></li></ol></div>[/vb]

y lo cambian por

[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>MapData<span style="color: #66cc66;">(</span>sndMap, X, Y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">UserIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Muerto</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Or</span> UserList<span style="color: #66cc66;">(</span>MapData<span style="color: #66cc66;">(</span>sndMap, X, Y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">UserIndex</span><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: #b1b100;">Or</span> UserList<span style="color: #66cc66;">(</span>MapData<span style="color: #66cc66;">(</span>sndMap, X, Y<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">UserIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Clase</span> = <span style="color: #ffffff;">"Clerigo"</span> <span style="color: #b1b100;">Then</span></li></ol></div>[/vb]
 

Shed

128bpm
Ex-Staff
Fijate si para la 7 te sirve usar esto:


[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">' 0 = viejo</span></li><li style="" class="li1"><span style="color: #808080;">' 1 = nuevo</span></li><li style="" class="li2">#Const MODO_INVISIBILIDAD = <span style="color: #cc66cc;">0</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #808080;">' cambia el estado de invisibilidad a 1 o 0 dependiendo del modo: true o false</span></li><li style="" class="li2"><span style="color: #808080;">'</span></li><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> PonerInvisible<span style="color: #66cc66;">(</span>ByVal UserIndex <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, ByVal estado <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">#If MODO_INVISIBILIDAD = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> </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;">Invisible</span> = <span style="color: #b1b100;">IIf</span><span style="color: #66cc66;">(</span>estado, <span style="color: #cc66cc;">1</span>, <span style="color: #cc66cc;">0</span><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;">flags</span>.<span style="color: #66cc66;">Oculto</span> = <span style="color: #b1b100;">IIf</span><span style="color: #66cc66;">(</span>estado, <span style="color: #cc66cc;">1</span>, <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Counters</span>.<span style="color: #66cc66;">Invisibilidad</span> = <span style="color: #cc66cc;">0</span></li><li style="" class="li1">#If SeguridadAlkon <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> EncriptarProtocolosCriticos <span style="color: #b1b100;">Then</span></li><li style="" class="li2">        <span style="color: #b1b100;">Call</span> SendCryptedData<span style="color: #66cc66;">(</span>SendTarget.<span style="color: #66cc66;">ToMap</span>, <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>, <span style="color: #ffffff;">"NOVER"</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Char</span>.<span style="color: #66cc66;">CharIndex</span> & <span style="color: #ffffff;">","</span> & <span style="color: #b1b100;">IIf</span><span style="color: #66cc66;">(</span>estado, <span style="color: #cc66cc;">1</span>, <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Else</span></li><li style="" class="li1">#End <span style="color: #b1b100;">If</span></li><li style="" class="li2">        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>SendTarget.<span style="color: #66cc66;">ToMap</span>, <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>, <span style="color: #ffffff;">"NOVER"</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Char</span>.<span style="color: #66cc66;">CharIndex</span> & <span style="color: #ffffff;">","</span> & <span style="color: #b1b100;">IIf</span><span style="color: #66cc66;">(</span>estado, <span style="color: #cc66cc;">1</span>, <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">#If SeguridadAlkon <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2">#End <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1">#Else</li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> EstadoActual <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #808080;">' Está invisible ?</span></li><li style="" class="li1">EstadoActual = <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;">Invisible</span> = <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #808080;">'If EstadoActual <> Modo Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> Modo = <span style="color: #b1b100;">True</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #808080;">' Cuando se hace INVISIBLE se les envia a los</span></li><li style="" class="li2">        <span style="color: #808080;">' clientes un Borrar Char</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;">Invisible</span> = <span style="color: #cc66cc;">1</span></li><li style="" class="li1"><span style="color: #808080;">'        'Call SendData(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.CharIndex & ",1")</span></li><li style="" class="li2">        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>SendTarget.<span style="color: #66cc66;">ToMap</span>, <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>, <span style="color: #ffffff;">"BP"</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Char</span>.<span style="color: #66cc66;">CharIndex</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Else</span></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"><span style="color: #808080;">'End If</span></li><li style="" class="li1"> </li><li style="" class="li2">#End <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]
 
A

Anonymous

Invitado
Donde pondría eso? Donde pongo el id de la poción? Gracias.-
 

facundo

Oráculo Lvl 3
7-
buscas

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">            <span style="color: #b1b100;">Case</span> <span style="color: #cc66cc;">6</span>  <span style="color: #808080;">' Pocion Negra</span></li><li style="" class="li1">                <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="li2">                    <span style="color: #b1b100;">Call</span> QuitarUserInvItem<span style="color: #66cc66;">(</span>UserIndex, Slot, <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">                    <span style="color: #b1b100;">Call</span> UserDie<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</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;">"||Sientes un gran mareo y pierdes el conocimiento."</span> & FONTTYPE_FIGHT<span style="color: #66cc66;">)</span></li><li style="" class="li2">                <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]

y abajo pones

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">            <span style="color: #b1b100;">Case</span> <span style="color: #cc66cc;">7</span> <span style="color: #808080;">' Pocion inv</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;">Invisible</span> = <span style="color: #cc66cc;">1</span></li><li style="" class="li2">                <span style="color: #b1b100;">Call</span> SendData<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>, <span style="color: #ffffff;">"NOVER"</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Char</span>.<span style="color: #66cc66;">charindex</span> & <span style="color: #ffffff;">",1"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> QuitarUserInvItem<span style="color: #66cc66;">(</span>UserIndex, Slot, <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToPCArea, UserIndex, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, <span style="color: #ffffff;">"TW"</span> & SND_BEBER<span style="color: #66cc66;">)</span></li><li style="" class="li2"> </li></ol></div>[/vb]
 

Shed

128bpm
Ex-Staff
Te falto el [vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb] no?
 

facundo

Oráculo Lvl 3
no, por que estas en un case. primero tiene que ir el end select y ademas sigue el sub por eso no se cierra
 
A

Anonymous

Invitado
No sería mejor asi?
Código:
 
                            Case 13 ' Pocion inv
                           If UserList(UserIndex).flags.Invisible = 0 Then
                UserList(UserIndex).flags.Invisible = 1
                Call SendData(ToIndex, UserIndex, 0, "|| Te has vuelto invisible." & FONTTYPE_VENENO)
                Call SendData(ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.charindex & ",1")
                Call QuitarUserInvItem(UserIndex, Slot, 1)
                Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_BEBER)
 

facundo

Oráculo Lvl 3
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">             <span style="color: #b1b100;">Case</span> <span style="color: #cc66cc;">13</span> <span style="color: #808080;">' Pocion inv</span></li><li style="" class="li1"><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;">invisible</span> = <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="li2">                UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Invisible</span> = <span style="color: #cc66cc;">1</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> SendData<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>, <span style="color: #ffffff;">"NOVER"</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Char</span>.<span style="color: #66cc66;">charindex</span> & <span style="color: #ffffff;">",1"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> QuitarUserInvItem<span style="color: #66cc66;">(</span>UserIndex, Slot, <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">                <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToPCArea, UserIndex, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, <span style="color: #ffffff;">"TW"</span> & SND_BEBER<span style="color: #66cc66;">)</span></li></ol></div>[/vb]
 

DarkMage

Destructor Lvl 1
Voy a hacer el del consejo de los mejores.. estoy aprendiendo asique si me sale mal no se enojen :p ¿Y besh es como un color entre marron y dorado no?

DarkMage
 
A

Anonymous

Invitado
Blanco y Amarillo, tenue. un color asi muchisimo mas claro
 

DarkMage

Destructor Lvl 1
Para el del "Consejo de los mejores" buscamos

Código:
Public Const FONTTYPE_CONSEJO = "~130~130~255~1~0"

Y de bajo ponemos

Código:
[color=green]'podes reemplazar "~164~82~0~1~0" por el color que queres.[/color]
Public Const FONTTYPE_CONSEJOMEJORES = "~164~82~0~1~0"
Public Const FONTTYPE_CONSEJOMEJORESVesA = "~164~82~0~1~0"




Ahora buscamos

Código:
UserList(UserIndex).flags.PertAlConsCaos = val(GetVar(UserFile, "CONSEJO", "PERTENECECAOS"))

Y arriba ponemos:

Código:
UserList(UserIndex).flags.PertAlConsMejores = val(GetVar(UserFile, "CONSEJO", "PERTENECEMEJORES"))




Buscamos:

Código:
Call WriteVar(UserFile, "CONSEJO", "PERTENECECAOS", UserList(UserIndex).flags.PertAlConsCaos)

Y abajo ponemos:

Código:
Call WriteVar(UserFile, "CONSEJO", "PERTENECEMEJORES", UserList(UserIndex).flags.PertAlConsMejores)




Buscamos:

Código:
                If UserList(TempCharIndex).flags.PertAlCons > 0 Then
                    Stat = Stat & " [CONSEJO DE BANDERBILL]" & FONTTYPE_CONSEJOVesA

Y abajo ponemos

Código:
                If UserList(TempCharIndex).flags.PertAlConsMejores > 0 Then
                    Stat = Stat & " [CONSEJO DE LOS MEJORES]" & FONTTYPE_CONSEJOMEJORESVesA




Buscamos:

Código:
Public Const ToDeadArea = 18

Y abajo ponemos:

Código:
Public Const ToConsejoMejores = 19



Buscamos:

Código:
    Case ToConsejoCaos

Y arriba ponemos:

Código:
    Case ToConsejoMejores
        For LoopC = 1 To LastUser
            If (UserList(LoopC).ConnID <> -1) Then
                If UserList(LoopC).flags.PertAlConsMejores > 0 Then
                    Call EnviarDatosASlot(LoopC, sndData)
                End If
            End If
        Next LoopC
        Exit Sub


Y ahi estaria.. probalo y me decis.. este es el segundo codigo que hago ojala que este bien como el otro. :p

DarkMage
 

DarkMage

Destructor Lvl 1
Bueno mientras me dijeron lo que era el beish o besh yo postie el codigo.. si no te gusta el color lo podes cambiar.


DarkMage
 
A

Anonymous

Invitado
Ya hice el mio propio, era facil = y ya lo probé y andubo ahora espero que respondan los otros codigos lpm!
 

facundo

Oráculo Lvl 3
DarkMage

[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;">Const</span> FONTTYPE_CONSEJOMEJORES = <span style="color: #ffffff;">"~164~82~0~1~0"</span></li><li style="" class="li2"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> FONTTYPE_CONSEJOMEJORESVesA = <span style="color: #ffffff;">"~164~82~0~1~0"</span></li></ol></div>[/vb]

Para que lo repetis xD con uno alcanza.
 
Estado
Cerrado para nuevas respuestas.
Arriba