Colocan esto antes del ultimo End Sub (AL FINAL DE TODO) del modulo TCP_Handledata2 en la parte del servidor
1- Click Al que le queramos pasar
2-/daroro cantidad
Para la lista de codigos terminados
Código:
Select Case UCase$(Left$(rdata, 8))
Case "/DARORO " 'DAR ORO
'¿Esta el user muerto? Si es asi no puede comerciar
If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas muerto!!" & FONTTYPE_INFO)
Exit Sub
End If
'Se asegura que el target es un Usuario
If UserList(UserIndex).flags.TargetUser = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||Primero tenes que seleccionar un personaje, hace click izquierdo sobre el." & FONTTYPE_INFO)
Exit Sub
End If
rdata = Right$(rdata, Len(rdata) - 8)
If UserList(UserList(UserIndex).flags.TargetUser).flags.Muerto = 1 Then Exit Sub
End If
If CLng(val(rdata)) > 0 And CLng(val(rdata)) <= UserList(UserIndex).Stats.GLD Then
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - val(rdata)
UserList(UserList(UserIndex).flags.TargetUser).Stats.GLD = UserList(UserList(UserIndex).flags.TargetUser).Stats.GLD + val(rdata)
Else
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & " No tenes esa cantidad." & "°" & Userlist(UserList(UserIndex).flags.TargetUser).Char.charindex & FONTTYPE_INFO)
End If
Call SendUserStatsBox(UserIndex)
Call SendUserStatsBox(UserList(UserIndex).flags.TargetUser)
Exit Sub
End Select
1- Click Al que le queramos pasar
2-/daroro cantidad
Para la lista de codigos terminados