KazNack Sargento
Mensajes : 275
Fecha de inscripción : 08/05/2011
| Tema: [APORTE] /ALIMENTOS Jue 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. |
|
NazduM Administrador
Mensajes : 239
Fecha de inscripción : 04/05/2011
Edad : 27
Localización : COMPU:)
Sexo :
| Tema: Re: [APORTE] /ALIMENTOS Jue Jun 23, 2011 5:58 pm | |
| Lindo aporte nahue |
|