Esfera de Experiencia

Tema: Esfera de Experiencia Dom Ago 11, 2013 4:52 pm

TODO PROCEDIMIENTO EN SERVIDOR

Buscamos :

Código:: otMochilas = 37

Despues abajo :

Código:: EsferadeExp = 38

Buscamos :

Código:: Case eOBJType.otBebidas

Arriba ponemos :

Código:: Case eOBJType.EsferadeExp
   If .flags.Muerto = 1 Then
   Call WriteConsoleMsg(UserIndex, "¡¡Estás muerto!! Sólo puedes usar ítems cuando estás vivo.", FontTypeNames.FONTTYPE_INFO)
   Exit Sub
   End If
dim random as long
random = randomnumber(10000, 200000)
.stats.exp = .stats.exp + random
call writeconsolemsg(userindex, "¡Felicitaciones, la esfera sagrada de experiencia te ha otorgado " & random & " puntos de experiencia",fonttypenames.fonttype_CONSEJO)
   Call WriteUpdateExp(UserIndex)
   Call CheckUserLevel(UserIndex)
'Quitamos del inv el item
   Call QuitarUserInvItem(UserIndex, Slot, 1)

Si lo retocas un poco lo podes hacer style Hispano la version pasada de 12.1 De que si la tomabas tenias 24 hs de exp x2 Saludos fuente GS-ZONE

EDIT:

Código:: A la hora de datearlo, el OBJTYPE debe ser 38

Tema: Re: Esfera de Experiencia Dom Ago 11, 2013 8:29 pm

Buen aporte.

capas que lo use para que mod?

Tema: Re: Esfera de Experiencia Dom Ago 11, 2013 9:04 pm

Para Alkon 13.0