GS-Zone
Facebook Twitter

DisPonible Y No Dispoible (Adaptacion) Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

5

Nota » 05 Oct 2009 13:28

Hola,Este code esta en fenix y lo adapte para que funcionara en 112(CODE ECHO POR Il Nolox)

SERVER:

Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "/ONLINE"


Arriva de ESO¡ Ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "/NODISPO" 'No disponible
  2.         If UserList(UserIndex).flags.nodispo = True Then
  3.         Exit Sub
  4.         End If
  5.         If UserList(UserIndex).flags.nodispo = False Then
  6.         Call SendData(ToIndex, UserIndex, 0, "||Has pasado a estar NO DISPONIBLE" & FONTTYPE_INFO)
  7.         UserList(UserIndex).flags.nodispo = True
  8.         Call ChangeUserChar(UserIndex)
  9.         Exit Sub
  10.     Case "/DISPONIBLE" ' Disponible
  11.         If UserList(UserIndex).flags.nodispo = False Then
  12.         Exit Sub
  13.        End If
  14.         Call SendData(ToIndex, UserIndex, 0, "||Has pasado a estar DISPONIBLE" & FONTTYPE_INFO)
  15.         UserList(UserIndex).flags.nodispo = False
  16.         Call ChangeUserChar(UserIndex)
  17.         Exit Sub


Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Type Userflags


Abajo ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. NoDispo as boolean


Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If Len(UserList(TempCharIndex).Desc) > 1 Then
  2.                     Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & " - " & UserList(TempCharIndex).Desc
  3.                 Else
  4.                     'Call SendData(ToIndex, UserIndex, 0, "||Ves a " & UserList(TempCharIndex).Name & Stat)
  5.                     Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat
  6.                 End If
  7.  

Y lo remplazamos por:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If Len(UserList(TempCharIndex).Desc) > 1 Then
  2.                     Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & " - " & UserList(TempCharIndex).Desc
  3.                 Else
  4.                 If UserList(TempCharIndex).flags.NoDispo = True Then
  5.             Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & " - <<NO DISPONIBLE>>"
  6.                     Exit Sub
  7.                     'Call SendData(ToIndex, UserIndex, 0, "||Ves a " & UserList(TempCharIndex).Name & Stat)
  8.                     Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat
  9.                 End If
  10.                 End If


Luego Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub MoveUserChar(ByVal UserIndex As Integer, ByVal nHeading As Byte)


Y abajo de:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. On Error Resume Next


Ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserList(UserIndex).flags.NoDispo = False
  2. Call ChangeUserChar(UserIndex)
  3. exit sub
  4. end if


Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub TIMER_AI_Timer()


Y debajo de:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. On Error GoTo ErrorHandler


Ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserList(UserIndex).flags.NoDispo = True Then
  2. Exit Sub
  3. End If


CLIENTE

Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If Nombres Then


Y arriva ponemos:

Y aca se termina el code,Porque cuando Busco los RGB En el cliente me salta cualquier cosa,Y necesito declarar variables y hacer paweutes neceitaria ayuda


Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Sonter
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18
Arriba

Nota » 05 Oct 2009 14:20

Creo que tendrias que haber puesto todos los aportes juntos..por que los hiciste en poca diferencia de tiempo.. xD

Igual Muy buenas adaptaciones..No uso 0.11.2..No se si estan bien... ^^

" La mas linda del amor , que un tonto ha visto soñar "
McKeyN
Ex-Nosferatuz
14
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Mercedes , Bs As
Mensajes: 1865
Aportes: 4
Arriba

Nota » 05 Oct 2009 22:19

Testee los dos primeros codigos,Y andan de 10,Pero los otros no los testee,Despues aviso ;)

Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Sonter
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18
Arriba

Nota » 08 Oct 2009 17:52

Buenisimo que lo adapter. Yo estaba pensando hacer algo similar, pero en cuanto objetivo. No le digo bien la idea para que no la hagan, jaja.

Muchas gracias, ¿Que es lo que falta del código decias?

Imagen
Mithrandir
<Lider Ghulrut AO>
381
Destructor de Mentes [7]
Registrado: Años de membresíaAños de membresía
Mensajes: 814
Aportes: 44
Arriba

Nota » 11 Oct 2009 22:04

Lo que le falta es que se cambie el RGB de los colores del ciuda y pk

Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Sonter
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18
Arriba

Volver a AO 0.11.2 / AOReady

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados