Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: /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 | |
|