Comando /daroro

Comando:/DarOro Nick cantidad

SERVIDOR:

Buscamos:



"/BMSG "



Y arriba agregamos:



If UCase$(Left$(rData, ) = "/DARORO " Then
Dim Cantidad As Long
Cantidad = UserList(UserIndex).Stats.GLD
Call LogGM(UserList(UserIndex).name, rData, False)
rData = Right$(rData, Len(rData) -
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