¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.


Todo sobre AO
 
ÍndiceÚltimas imágenesBuscarRegistrarseConectarse

 

 /DARORO nick

Ir abajo 
AutorMensaje
Agus
Admin



Mensajes : 69
Fecha de inscripción : 01/07/2008

/DARORO nick Empty
MensajeTema: /DARORO nick   /DARORO nick EmptyJue Jul 03, 2008 6:06 am

Buscan
Código:

Case "/RESUCITAR"
y arriba ponen
Código:

 If UCase$(Left$(rData, (8))) = "/DARORO " Then
Dim Cantidad As Long
Cantidad = UserList(UserIndex).Stats.GLD
Call LogGM(UserList(UserIndex).name, rData, False)
rData = Right$(rData, Len(rData) - (8))
tIndex = NameIndex(ReadField(1, rData, 32))
Arg1 = ReadField(2, rData, 32)
If tIndex <= 0 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Usuario offline." & FONTTYPE_INFO)
Exit Sub
End If

If val(Arg1) > Cantidad Then
Call SendUserStatsBox(tIndex)
Call SendUserStatsBox(UserIndex)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No tenes esa cantidad de oro" & FONTTYPE_WARNING)
ElseIf val(Arg1) < 0 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No podes transferir cantidades negativas" & FONTTYPE_WARNING)
Call SendUserStatsBox(tIndex)
Call SendUserStatsBox(UserIndex)
Else
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Le regalaste " & val(Arg1) & " monedas de oro a " & UserList(tIndex).name & "!" & FONTTYPE_WARNING)
Call SendData(SendTarget.ToIndex, tIndex, 0, "||¡" & UserList(UserIndex).name & " te regalo " & val(Arg1) & " monedas de oro!" & FONTTYPE_WARNING)
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - val(Arg1)
UserList(tIndex).Stats.GLD = UserList(tIndex).Stats.GLD + val(Arg1)
Call SendUserStatsBox(tIndex)
Call SendUserStatsBox(UserIndex)
Exit Sub
End If
Exit Sub
End If
0.11.2 & 0.11.5
Volver arriba Ir abajo
https://recompilacionao.forosactivos.com
 
/DARORO nick
Volver arriba 
Página 1 de 1.
 Temas similares
-
» /RMSG dice nick

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: 0.11.5-
Cambiar a: