MarZ
Nivel 1
Mensajes : 27
Reputación : 0
Fecha de inscripción : 19/02/2012
 | Tema: Recompensa por frags  Mar Feb 21, 2012 8:42 pm | |
| Buscamos Código: - Código:
-
Case "/ONLINE" Arriba ponemos Código: - Código:
-
Case "/RECOMPENSA"
If UserList(UserIndex).Stats.UsuariosMatados < 50 Then
Call SendData(ToTarget.ToIndex, UserIndex "||Necesitas 50 frags para recibir la recomensa" & FONTTYPE_INFO)
Exit Sub
Else
If UserList(UserIndex).flags.recomensa = 1 Then
Call SendData(ToTarget.ToIndex, UserIndex "||Has recibido la recomensa, ahora no podras recibir otras recompensas más nw" & FONTTYPE_INFO)
Exit Sub
Else
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + 1000000
Call SendData(ToTarget.ToIndex, UserIndex "||¡Has recibido la recompensa y se te a otorgado 1.000.000 monedas de oro"
UserList(UserIndex).flags.recomensa = 1
End If
End If
End If
Exit Sub Buscamos Código: - Código:
-
Public Type User Flags Abajo ponemos Código: - Código:
-
Recomensa As Byte Buscamos Código: - Código:
-
Call WriteVar(UserFile, "FLAGS", "Navegando", CStr(UserList(UserIndex).flags.Navegando)) Abajo ponemos Código: - Código:
-
Call WriteVar(UserFile, "FLAGS", "Recomensa", CStr(UserList(UserIndex).flags.Recomepnsa)) Buscamos Código: - Código:
-
UserList(UserIndex).flags.Navegando = CByte(UserFile.GetValue("FLAGS", "Navegando")) Abajo ponemos Código: - Código:
-
UserList(UserIndex).flags.Recomensa = CByte(UserFile.GetValue("FLAGS", "Recomensa")) ATENCION!!!!! No van a poder loguear con pjs ya creados porque modifica el charfile, modifiquen todos los charfiles o hagan reset: Abajo de Navegando=0 ponen Recomensa=0 (si no hacen reset) FUENTE: Server Argentum/ Usuario: Matt Shadows EDITADO PONIENDOLO EN CODE BY MATONGRUD LA PROXIMA VEZ PONGAN ALGO SUYO Y QUE ADEMAS DE MATT SHADOWS JUSTO QUE ES BOBO |
|
Fleep
Admin
Mensajes : 107
Reputación : 1
Fecha de inscripción : 14/02/2012
| | Tema: Re: Recompensa por frags Miér Feb 22, 2012 1:08 am | |
| Buen aporte se agradece
Suerte y Saludos! |
|
Eruby
Nivel 3
Mensajes : 77
Reputación : 0
Fecha de inscripción : 15/02/2012
| | Tema: Re: Recompensa por frags Miér Feb 22, 2012 2:40 am | |
| |
|
MaToNGrUd
PROGRAMADOR
Mensajes : 77
Reputación : 0
Fecha de inscripción : 14/02/2012
| | Tema: Re: Recompensa por frags Miér Feb 22, 2012 7:00 pm | |
| COPY AND PASTE POR FAVOR POLOMENOS PONELO EN CODE de vb |
|
NajseV
Nivel 7
Mensajes : 151
Reputación : -2
Fecha de inscripción : 18/02/2012
| | Tema: Re: Recompensa por frags Vie Feb 24, 2012 12:35 am | |
| este tambien es un buen aporte .. yo lo habia puesto cuando tenia mi ao pero enves de oro .. daba items al igual que cuando te enlistabas y ponias /recompensa |
|
kHANGEL tRUE
Nivel 7
Mensajes : 160
Reputación : 0
Fecha de inscripción : 20/02/2012
Edad : 24
Localización : Argentum-Zone
| | Tema: Re: Recompensa por frags Vie Feb 24, 2012 4:23 am | |
| Te das cuenta que no es propio ya que dice CODIGO sin [code] es copiado claramente pero no me molesta eso me molesta que no lo diga. |
|
MarZ
Nivel 1
Mensajes : 27
Reputación : 0
Fecha de inscripción : 19/02/2012
| | Tema: Re: Recompensa por frags Vie Feb 24, 2012 9:27 am | |
| Bueno la verdad que agradezco que me lo hallas editado pero por favor no insultes a nacho GRACIAS. |
|
MaToNGrUd
PROGRAMADOR
Mensajes : 77
Reputación : 0
Fecha de inscripción : 14/02/2012
| | Tema: Re: Recompensa por frags Vie Feb 24, 2012 9:48 am | |
| Decime porque no si es un Tonto :S Aver que Parte no entienden que es un Fraka es amigo de shak creo les pido codes y los postea como que son de el |
|
Contenido patrocinado
| | Tema: Re: Recompensa por frags | |
| |
|
