Régistrate YA!! QUE ESPERAS!

[APORTE] /ALIMENTOS Counter_asd
Régistrate YA!! QUE ESPERAS!

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



 
ÍndiceÚltimas imágenesRegistrarseConectarse
Bienvenido!! Registra un usuario YA!

Comparte | 
 

 [APORTE] /ALIMENTOS

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
KazNack
Sargento
Sargento
KazNack

Mensajes Mensajes : 275

Fecha de inscripción Fecha de inscripción : 08/05/2011


[APORTE] /ALIMENTOS Empty
MensajeTema: [APORTE] /ALIMENTOS [APORTE] /ALIMENTOS I_icon_minitimeJue Jun 23, 2011 5:48 pm

Servidor
Versión 0.11.2
En el módulo TPC del servidor agregamos:

Código:
If UCase$(rdata) = "/ALIMENTOS" Then
 
If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||Estas Muerto, no puedes usar este comando estando muerto." & FONTTYPE_INFO)
Exit Sub
End If
 
If UserList(UserIndex).Stats.GLD < 20000 Then
Call SendData(ToIndex, UserIndex, 0, "||No tienes dinero suficiente." & FONTTYPE_INFO)
Exit Sub
End If
 
 
 
    Dim MiObj1 As Obj
    MiObj1.Amount = 10
    MiObj1.ObjIndex = 26 'pollos
    Call MeterItemEnInventario(UserIndex, MiObj1)
    If Not MeterItemEnInventario(UserIndex, MiObj1) Then
    Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj1)
End If
    Dim MiObj2 As Obj
    MiObj2.Amount = 10
    MiObj2.ObjIndex = 160 'cerveza
    Call MeterItemEnInventario(UserIndex, MiObj2)
    If Not MeterItemEnInventario(UserIndex, MiObj2) Then
    Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj2)
End If
 
 
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - 20000
Call SendData(ToIndex, UserIndex, 0, "||Aqui tienes suficientes provisiones para aguantar un largo tiempo..." & FONTTYPE_INFO)
Exit Sub
End If

Función del código:
Con el comando /ALIMENTOS si tenes 20000 monedas de oro te da 10 pollos y 10 cervezas.
Volver arriba Ir abajo
NazduM
Administrador
Administrador
NazduM

Mensajes Mensajes : 239

Fecha de inscripción Fecha de inscripción : 04/05/2011

Edad Edad : 26

Localización Localización : COMPU:)

Sexo Sexo : Masculino

[APORTE] /ALIMENTOS Empty
MensajeTema: Re: [APORTE] /ALIMENTOS [APORTE] /ALIMENTOS I_icon_minitimeJue Jun 23, 2011 5:58 pm

Lindo aporte nahue Wink
Volver arriba Ir abajo
http://WWW.ARGENTUMS-ONLINES.FOROACTIVO.MX
 

[APORTE] /ALIMENTOS

Ver el tema anterior Ver el tema siguiente Volver arriba 

 Temas similares

-
» Crear Torneo Automatico [APORTE]
» [APORTE] Barrita de Exp debajo del Personaje
» Comando /editgm [APORTE]
» [APORTE] Seguridad para sv.
» [APORTE] x Segundos para Revivir al usuario
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
 :: ..::Argentum Online::.. :: Programacion-