GS-Zone
Facebook Twitter

Dos codes Adaptados de 115 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

1

Nota » 05 Oct 2009 12:51

ADAPTACION DEL CODIGO DE MITHANDIR(OBJETOS RANDMO Y AUMENTO DE ORO)

Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Const OBJTYPE_MANCHAS = 35


Abajo ponemos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. Public Const OBJTYPE_otBolson = 36


Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Select Case Obj.ObjType


Debajo ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case OBJTYPE_otBolson
  2.         Dim CuantoOro As Long
  3.         CuantoOro = RandomNumber(1000, 10000) * 2
  4.         If UserList(UserIndex).flags.Muerto = True Then
  5.             Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas muerto!! Solo podes usar items cuando estas vivo." & FONTTYPE_INFO)
  6.         Exit Sub
  7.         End If
  8.         UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + CuantoOro
  9.             Call SendUserStatsBox(UserIndex)
  10.         Dim ind As String
  11.         ind = UserList(UserIndex).Char.charindex
  12.             Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbYellow & "°" & "+ " & CuantoOro & " GLD" & "°" & ind)
  13.             Call QuitarUserInvItem(UserIndex, Slot, 1)
  14.             Call UpdateUserInv(True, UserIndex, Slot)
  15.     Exit Sub


'CuantoOro = RandomNumber(1000, 10000) * 2 ' MODIFICAR POR LO KE ESTEDES KIERAN


2) Objeto Random (112)

Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Case 6  ' Pocion Negra


Y antes del end select Ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  Case 7
  2.                 Dim Sorpresa As Obj
  3.                     If UserList(UserIndex).flags.Muerto = True Then
  4.                         Call SendData(ToIndex, UserIndex, 0, "||No puedes abrir un regalo estando muerto" & FONTTYPE_INFO)
  5.                     Exit Sub
  6.                 End If
  7.                     If MapInfo(UserList(UserIndex).Pos.Map).Pk = True Then
  8.                         Call SendData(ToIndex, UserIndex, 0, "||Debes estar en una zona segura." & FONTTYPE_INFO)
  9.                     Exit Sub
  10.                 Else
  11.                 Sorpresa.Amount = 1
  12.                 Sorpresa.ObjIndex = RandomNumber(1, 700)
  13.                                              
  14.                 Call MakeObj(ToMap, 0, UserList(UserIndex).Pos.Map, Sorpresa, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
  15.                 Call QuitarUserInvItem(UserIndex, Slot, 1)
  16.                 Call SendData(ToIndex, UserIndex, 0, "||" & UserList(UserIndex).Name & " el objeto sorpresa es un/una: " & ObjData(Sorpresa.ObjIndex).Name & FONTTYPE_GUILD)
  17.                 Exit Sub


[OBJ NÚMERO]
Name=Sorpresa
TipoPocion=7
GrhIndex= IMÁGEN DE UN REGALITO :$
ObjType=11
Agarrable=0
Crucial=1


Y listo

Este tambien lo aporto,Mas bien corrigo y adapto el code por 112 esta desterrada de la sociedad¡ :P

Saludos

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