Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 /DARORO nick

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


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

MensajeTema: /DARORO nick   Jue 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
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
/DARORO nick
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» ¿Quieres cambiar tu Nick del foro? Es aquí.
» Quiero cambiar mi Nick
» como hacer salir el rango ex.(caballero wyvern) debajo el nick?
» ID Network = Nick foro
» Como poner nick en MWS

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