Ares Chat Client En Real Basic [COMO ACER UN BOT]

Los Usuarios Que Chatean En Ares Algunas Se Habrán Preguntado Como Crear Un Ares Chat Client,  Este Proyecto es Para  Aquellas Personas Que Quieran Crear Uno.
 
Capitulo 1

 
Este Ares Chat Client Está Programado En Real Basic. Por Lo Tanto Tienes Que Tener Indispensablemente Este Programa.
 
Bien, Suponiendo Que Ya Tienes El Programa Real Basic, Lo Abrimos.
 
 
 
Bien, Ya Abierto El Nuevo Proyecto Damos Un Click Sobre App (¡Atención! Un solo clic).
 
Bien, Del Lado Derecho Pueden Ver La Tabla “Property” & “Value”, En Las Zonas Que Están Marcadas En La Imagen: Major Version, Minor Version, SubVersion, Release, NonRelease, Poner Respectivamente: [1]-[0]-[0]-[0]-[0].
Estos Settings Son Para Que Se Reconozca La Version De Nuestro programa.
 
 
 
Bien, Ahora Damos Doble Click Sobre “Window1”.
 
 
*Esta Es Una Parte De Lo que Veremos En Nuestra Pantalla.*
 
Bien, Empecemos. Primero Que Nada Tenemos Que Ponerle Un Nombre A Nuestra Principal Ventana De Nuestra Aplicación, Por Lo Tanto Vamos A Title Y Le Ponemos Un Nombre, Por Ejemplo “Ares Chat Client By Toro”
                                                    
Bien, Ahora Vamos Más Arriba A Position. Y Ponemos Los Siguientes Settings:
                                                       
Bien Ahora Le Pondremos Color A Nuestra Ventana, Le Damos Click A “HasBackColor”. Una Casilla Abajo Pueden Ver La Propiedad “BackColor”, Damos Click En EL Pequeño Icono De Al Lado, Y Seleccionamos El Color Que Queramos Para Nuestra Aplicación. Yo Escogí El Negro: &c000000
                                                    
Bien Empecemos A Crear Nuestro Chat Client, Seleccionamos El Control [EditField].
                                                                  
Ahora Con El Ratón Lo Seleccionamos Y Al Mismo Tiempo Lo Arrastramos Hasta Nuestra Ventana.
 
Bien, Sabemos Que Al Seleccionarlo Con Un Click Al Lado Derecho Nos Sale La Tabla “Property & Value”. Ahora De Arriba Abajo. A La Propiedad [Name:] Le Quitamos Editfield1 Y Lo Cambiamos Por “username” (sin comillas).
 
Bien Ahora Seleccionamos El Control “StaticText”, Con El Cual Aremos Un Texto Llamado “Nick Name:”
                                                
Se Preguntaran Porqué Al Hacer Este Paso No Aparece Su Texto (sale todo negro) Ah Pues Pórque Se Necesita Poner Color A Las Letras De La Siguiente Forma:
 
Como Pueden Ver En La Imagen Siguiente Puse En Tex: “Nick Name:”, Mas Abajo En TextFont: Le Puse Comic Sams MS (Pueden Utilizar El Tipo De Font Que Deseen), En TextSize: Puse 14 (Buen Tamaño De Letra) Y Seleccioné La Casilla Bold:
                            
 
Bien, Ahora Creamos Un Segundo EditField, Al Cual Le Modificaremos La Propiedad [Name:] Y Le Pondremos “address” (sin comillas).
 
Te Preguntaras Porqué El EditField Tiene El Texto [127.0.0.1], Ah Pues Porque Esa Es La Dirección IP Por Defecto Que Dejaremos, Y Se La Podemos Poner En La Siguiente Propiedad:
                                                   
Ahora Agregamos Un Nuevo StaticText Un Poco Arriba De El EditField address, Y Le Pondremos “Dirección IP:”.
                                                   
Bien Ahora Creamos Un Tercer EditField, El Cual Llevará La Propiedad Name: port.
            
Como Puedes Ver Este EditField También Tiene Letras Dentro, Eh De Suponer Que Tienes Muy Claro Como Ponérselas.
 
Ahora Creamos Un Tercer StaticText, Con El Texto “Puerto:”.
Bien, A Continuación Creamos Un Cuarto EditField, El Cual Levará La Propiedad Name: files.
 
Ahora Como Se Habrán Imaginado Crearemos Un Cuarto StaticText Con El Texto “Archivos:”.
 
Bien Ahora Creamos Un Control PopupMenu, El Cual Llevara La Propiedad Name: Combo1.
        
P.D. El Control PopupMenu Se Encuentra En La Tabla Izquierda De Menús:
                                                
Sin Dejar De Seleccionar El Popupmenu De Hoy En Adelante Combo1, Vamos A La Propiedad InitialValue: Y Le Damos Click En El Pequeño Icono. 
 
Bien Ahora Introducimos Los Siguientes Datos:
N/A                                               
56K
128K
Cable
DSL
T1
T3                                   Y Damos Click En OK
                     
Bien Con Esos Datos Ya Tendremos Introducido Lo Que Será El Combo Donde Seleccionaremos La Conexión De Nuestro Bot.
 
A Continuación Pasaremos A Crear Dos Botones, [Conectar] [Cerrar].
 
Creamos Un Nuevo Control PushButtom, El Cual Se Encuentra En La Tabla Izquierda.
A Este PushButtom Le Pondremos Las Siguientes Propiedades.
                                         
Creamos Un Segundo PushButtom Con Las Siguientes Propiedades:
                                         
Nos Debe Quedar Algo Así:
                                        
Bien, Si Ustedes Desean Pueden Introducir Un Control ProgressWhel Que Es Este:
Bien A Continuación Pasaremos A La Siguiente Etapa Que Es Crear La Interfaz Del Chat.
Creamos Un Nuevo EditField Un Poco Debajo De Nuestros EditField’s Y PushButtom.
Nos Debe Quedar Así:
 
Este EditField Será Para El Topic De La Sala A La Que Conectaremos Nuestro Client. Ahora A Este EditField Le Agregaremos La Propiedad Name: “topic” (sin comillas y en minúsculas).
 
A Este Paso No Le Puse Una Imagen Porque Supongo Que Ustedes Ya Saben Como Agregarle Una Propiedad Name:
 
A Continuación Crearemos Un EditField, Que Será Para El Chat.
 
Con Las Siguientes Propiedades:
                                       
Como Pueden Ver La Propiedad Name: Lleva areschat. ControlOrder, Left, Top, Width & Height, No Es Necesario Que Pongan Esos Valores. Las Propiedades Lock, Si Se Deben Marcar. Multiline Se Debe Marcar Porque Por Defecto No Se Marca. También Styled Se Marca. TextColor Es El Color De Letra Que Deseamos Ver En El Chat, Yo Escogí Un Color Azul Oscuro &c0000A0. Y Por Último La Font, Escogí Tahoma, Tamaño 12. (Aunque dice tehoma:S).
 
Bien Ahora Pasamos A Crear Un Control ListBox, Que Será Para Representará La Lista De Usuarios:
Pueden Ver En La Siguiente Imagen Que La Propiedad Name Del ListBox Le Puse “list1”.
 
También Podrán Notar Que La Propiedad “Initial Value” Tiene Algunos Valores, Los Cuales Son Los Siguientes:
 
Usuario    Archivos  Velocidad
 
*Nota: ColunmWidths Es Para Poner El Tamaño De Las Columnas, No Es Necesario Tener Los Valores Puestos En La Imagen, Ya Que No Todos Tendrán El Mismo Espacio.

Bien, Ahora Nos Dedicaremos A Crear La Zona Donde Chatearemos.
 
Creamos Un EditField Que Servirá Para Poner El Texto Donde Chatearemos.
Lo Único Que Modificaremos A Este EditField Será La Propiedad Name: La Cual Llevara message.
Bien, Ahora Creamos Un PushButtom Que Será El Botón De Enviar. A Este Botón Lo Que Le Cambiaremos Será La Propiedad Caption: A La Cual Le Ponemos Enviar, Y Marcamos La Casilla “Default”
Con Esto Hemos Terminado La Interfaz De Nuestra Primera Ventana. Pero Ahora Falta Lo Mas Indispensable, La Forma En Que Se Va A Conectar.
 
Bien Primero Que Nada Vamos A Seleccionar 2 Controles “timer”, 1 Control “socket” Y Un Control “contextualmenu”. Estos Controles Estarán Escondidos Alejados De Nuestra Ventana.
                           
A Estos Controles No Les Modificaremos Ninguna Propiedad Ya Que Solo En El Modo Comandos Será Donde Los Modifiquemos.
Bien Ahora Creamos Dos Pequeños EditField, (Widht=21, Height=12). Uno Llevará La Propiedad Name “aresmsg” y “nick” (sin comillas claro está).
Bien Con Esto Hemos Terminado El Primer Capitulo De Nuestro Tutorial.
 
 

Capitulo 2

Bien Ahora Pasemos A Lo Que Para Mí Es Lo Más Fácil De Hacer Un Chat Client: Programación De Comandos.
 
Le Damos Click En EL Pequeño Icono De Modo Comandos:
                                                    
Y Nos Sale Una Ventana Como Esta:
 
Damos Un Click En El Pequeño Icono Que Está En Controls [+]
                                   
Y Se Nos Abre Un Menú.
 
Bien Abrimos La Raíz ContextualMenu1, Y Localizamos La Propiedad Action. En Esa Propiedad Ponemos El Siguiente Código: (lo pueden copiar-pegar. Ctrl.+C-Ctrl+V Resp.)
 
 select case item
  case "Enviar Privado"
    window2.show
    window2.title = "Privado al usuario: " + list1.cell(list1.listindex, 0)
    window2.pmname.text = list1.cell(list1.listindex, 0)
  
  
  
  Case "Ignorar"
    //MSG_CHAT_CLIENT_IGNORELIST              = 45; 0 = no 1 = yes + username + NULL ?
  
    tcpsocket1.write ignoremsg(list1.cell(list1.listindex, 0), "ignore"
  
  Case "Designorar"
    tcpsocket1.write ignoremsg(list1.cell(list1.listindex, 0), "unignore"
  end select
 
Habiendo Puesto Este Código, En La Misma Raíz ContextualMenu, Abrimos La Propiedad Open, Y Ponemos El Siguiente Código:
 
  me.addrow  "Enviar Privado"
  me.addrow "Ignorar"
  me.addrow "Designorar"
 
Bien Cerramos Esa Raíz Y Nos Vamos A La Raíz list1, La Cual Es El ComboBox. Y Localizamos La Propiedad CellClick Y Ponemos Este Codigo:
 
if IsCMMClick then
    me.ListIndex = row
    me.Refresh
    ContextualMenu1.Open
  end if
 
En La Misma Raíz Buscamos La Propiedad DoubleClick Y Le Ponemos El Código:
 
  window2.show
  window2.title = "Privado al usuario: " + list1.cell(list1.listindex, 0)
  window2.pmname.text = list1.cell(list1.listindex, 0)
 
 
Cerramos Esa Raíz Y Abrimos La Raíz “message”. Localizamos La Propiedad KeyDowm Y Le Ponemos Este Codigo:
 
  dim usersay as string
  dim k1 as string
  usersay = message.text
 
  if key = chr(13) OR key = chr(3) then
    if me.text = "" then
      return true
    end
  
    k1=mid(usersay , 5)
    if left(usersay , 3) = "/me" then
      message.text = k1
      TCPSocket1.write chr(lenB(message.text))+chr(&h00)+chr(&h0B)+message.text
      message.text = ""
    else
      TCPSocket1.write chr(lenB(message.text))+chr(&h00)+chr(&h0A)+message.text
      message.text = ""
    end if
  end
 
Cerramos Esta Raíz Y Abrimos La Raíz PushButtom1, Localizamos La Propiedad Action Y Le Ponemos El Siguiente Código:
 
 
  if me.caption = "Conectar" then
    TCPSocket1.address = address.text
    TCPSocket1.Port = val(port.text)
    TCPSocket1.connect
    timer1.enabled = true
    me.caption = "Desconectar"
    Areschat.text = ""
    areschat.selstart = len(areschat.text)
    areschat.seltextcolor = RGB(51,51,153)
    areschat.text  = "Conectando, por favor espera..."+endofline
  
  elseif me.caption = "Desconectar" then
    TCPSocket1.disconnect
    timer1.enabled = false
    me.caption = "Conectar"
    Areschat.text = ""
  end if
 
Cerramos Esa Raíz Y Abrimos PushButtom2. Seleccionamos La Propiedad Action Y Ponemos Este Código:
 
Sub Action()
  Window1.Close
End Sub
 
Cerramos Esa Raíz Y Abrimos PushButtom3, De Igual Forma Ponemos El Siguiente Código En La Propiedad Action:
 
 
  dim usersay as string
  dim k1 as string
  usersay = message.text
  k1=mid(usersay , 5)
  if left(usersay , 3) = "/me" then
    message.text = k1
    TCPSocket1.write chr(lenB(message.text))+chr(&h00)+chr(&h0B)+message.text
    message.text = ""
  else
    TCPSocket1.write chr(lenB(message.text))+chr(&h00)+chr(&h0A)+message.text
    message.text = ""
  end if
 
Bien, Cerramos Esa Raíz Y Abrimos La Raíz TCPSocket1. Localizamos La Propiedad Connected Y Le Ponemos El Siguiente Código:
 
  Dim speed As String
  Dim tosend As String
  dim ipadd as string
  dim theip as string
  dim ipdata as string
  Dim SplitIp() As String
  dim i as integer
 
  ipadd = ""
  theip = tcpsocket1.localaddress
  splitIp = Split(theip, "."
  For i = 0 To UBound(SplitIp)
    ipdata = splitip(i)
    ipadd = ipadd + chr(val(ipdata))
  next i
 
  If Combo1.text = "" Then speed = Chr(0) + Chr(0) + Chr(0) + Chr(0)
  If Combo1.text = "N/A" Then speed = Chr(0) + Chr(0) + Chr(0) + Chr(0)
  If Combo1.text = "DSL" Then speed = Chr(&HB8) + Chr(&H88) + Chr(0) + Chr(0)
  If Combo1.text = "56k" Then speed = Chr(&HE0) + Chr(&H15) + Chr(0) + Chr(0)
  If Combo1.text = "64k" Then speed = Chr(0) + Chr(&H19) + Chr(0) + Chr(0)
  If Combo1.text = "T1" Then speed = Chr(&H40) + Chr(&H42) + Chr(&HF) + Chr(0)
  If Combo1.text = "33.3k" Then speed = Chr(&H2) + Chr(&HD) + Chr(0) + Chr(0)
  If Combo1.text = "14.4k" Then speed = Chr(&HA0) + Chr(&H5) + Chr(0) + Chr(0)
  If Combo1.text = "128k" Then speed = Chr(0) + Chr(&H32) + Chr(0) + Chr(0)
  If Combo1.text = "28.8k" Then speed = Chr(&H40) + Chr(&HB) + Chr(0) + Chr(0)
  If Combo1.text = "Cable" Then speed = Chr(&HA8) + Chr(&H61) + Chr(&H0) + Chr(&H0)
  If Combo1.text = "T3" Then speed = Chr(&HA0) + Chr(&H25) + Chr(&H26) + Chr(&H0)
  tosend = Chr(1)'not shared for shared use chr(3)
  areschat.selstart = len(areschat.text)
  areschat.seltextcolor = RGB(51,51,153)
  areschat.seltext = "Conectando, iniciando protocolo..."+endofline
  tcpsocket1.write LogInPacket(username.text, ipadd, 0, val(files.text), speed, tosend)
 
Después Localizamos La Propiedad DataAvailable Y Le Ponemos El Código:
 
timer2.enabled = true
 
Enseguida La Propiedad Error Y Ponemos El Código:
 
  areschat.selstart = len(Areschat.text)
  areschat.seltextcolor = RGB( 217, 0, 39 )
  areschat.seltext = "Desconectado(10057)"+endofline

PRIMEROS PASO PARA ACER UN SCRIP

Primero que nada tenes que saber que el script se guarda con .js al final. Por ej: script.js
Y en un block de notas. No es necesario que te lo diga, si es obvio.

Luego, agregar un titulo al script. Usando:

print(0, "Titulo";-) ;
print(userobj.vroom, "Titulo") ;
print(userobj, "Titulo") ;

0 = Numero de la vroom
userobj.vroom = Vroom del usuario que lo carga
userobj = Solo lo lee el que lo carga

Luego, saber las funciones. Ésta es la mas sencilla:

function onCommand(userobj, cmdText, tUser, arguments) {

Despues, poner un comando, por ej:

if(cmdText.substr(0,9)=="#comando" && userobj.admin>=51){

(0,9) = Cantidad de letras ke puede tener el comando. Podes poner las que quieras.
51 = Poder que tenes que tener para usarlo. Si el comando es para todos, pone 50

Despues poner el anuncio:

print(0, "Todos son gays") ;

->Tambien podes usar los otros, que se explican al principio de este block<-

Y luego cerrar el comando, usando llaves {}

}
}

Y listo, ahi tenes un script sencillo. Recuerda que tenes que poner la misma cantidad
de } que las abiertas, o sea, si hay 7 de estas { tenes ke poner 7 de estas } al
final de tu script.

//-------Definir al usuario-------//

Por ejemplo, digamos que yo quiero sacar a un usuario de la sala con un comando de mi
script.

Entonces tendriamos que poner:

if(cmdText.substr(0,9)=="#kill " && userobj.admin>=51){
user(tUser.id).disconnect()
print(0, "El usuario " +tUser.name+ " fue sacado por " +userobj.name+ ") ;
}
tUser = usuario al que sacas y demas.
userobj.name = usuario que hace el comando

userobj.id = ID del usuario que hace el comando
userobj.name = nombre del usuario que hace el comando
userobj.orgName = nombre original del usuario que hace el comando (Por si se llega a cambiar de nick)
userobj.externalIp = IP externa del usuario que hace el comando
userobj.localIp = IP interna del usuario que hace el comando
userobj.version = Version del ares del usuario que hace el comando

tUser.id = ID del usuario al que le hacen la accion

  ^------ en esto, solo tienen que cambiar userobj por tUser. (Asi me ahorro explicar)

//----- Tambien para hacer mas facil las cosas, usemos variables-----//

Las variables, sirven, segun yo, para hacer mas facil las cosas...

Por ejemplo, si tengo una ropa, y la quiero poner en el script, y la voy a usar en todos los comandos
Tengo que crear una variable.

var rOpa="||----> otto <----||";         <--- esa seria la ropa... y siempre tenes
que poner un ; al final de la variable

Y luego activarla:
rOpa=true;

//----- Para salida y entrada de usuarios ------//

Para que anuncie la llegada de un usuario, tenes que poner aparte en tu script esto:

on Join = function(userobj, text){
print(0, "Vamos loco, llego " +userobj.name+ " tu ID es " +userobj.id+ " pasala bien (Y)") ;
}

Para que anuncie cuando un usuario se va, tenes que poner:

onPart = function(userobj, text){
print(0, "Uh, que pena. Se fue " +userobj.name+ " );
}

//---------Otras acciones--------//

Estas acciones son para el usuario que usted quieras

user(ID).admin=level        Para el level del otro

user(ID).sendText("Me gusta por la cola")          Para clonar al otro

user(ID).localIp          Para ver el IP interno del otro

user(ID).externalIp       Para ver el IP externo del otro

user(id).version         Para ver la version del ares del otro

user(ID).name="nick"       Para cambiar nick al otro

user(ID).redirect("HASLINK") Para redireccionar al otro a otra sala

//-------- el script te queda asi si usas estas funciones------//

print(0, "Script cargado") ;

function onCommand(userobj, cmdText, tUser, arguments) {
if(cmdText.substr(0,9)=="#comando" && userobj.admin>=51){
print(0, "Este comando es una prueba") ;
}}

on Join = function(userobj, text){
print(0, "Vamos loco, llego " +userobj.name+ " tu ID es " +userobj.id+ " pasala bien (Y)") ;
}

onPart = function(userobj, text){
print(0, "Uh, que pena. Se fue " +userobj.name+ " );
}

if(cmdText.substr(0,9)=="#adios " && userobj.admin>=51){
user(tUser.id).disconnect()
}

Ahora para poner colores al script hay maneras con un script  de java  como el   javascript2.js  u  otro ke tenga la funcion  #aecode   que da la misma funcion convierte los colores a a los codigos del script y tambien las letras unicodes las convierte  a codigos para el script, voy a poner un ejemplo:   uneval ("     ")  en medio de los parentises ponen  los colores  y letras  que desean convertir.

"x0310Bienvenido x0306a x0303mi x0305sala"