Todo-Argentum
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Todo-Argentum


[Aporte] Regalos Stylo iao

Todo-Argentum :: AO 12.x

Ir abajo

[Aporte] Regalos Stylo iao Empty [Aporte] Regalos Stylo iao

Mensaje por Sderty Vie Ago 23, 2013 12:04 am

Buscan

Código:
otManchas = 35
y abajo
Código:
otregalito = xx 'Alguno numero libre
Buscan

Código:
Case eOBJType.otBebidas
Y arriva

Código:
Case eOBJType.otregalito 'By sderty
       miObj.ObjIndex = 1351 'Cambian por el item que quieran que de el regalo
        miObj.amount = 1 'Aca la cantidad de items que quieren que de el regalo
        If UserList(UserIndex).flags.Muerto = 1 Then
            WriteConsoleMsg 1, UserIndex, "¡¡Estas muerto!! Solo podes usar items cuando estas vivo.", FontTypeNames.FONTTYPE_INFO
        Exit Sub
        End If
    If MeterItemEnInventario(UserIndex, miObj) Then
        End If
WriteConsoleMsg 1, UserIndex, "Has recibido un gran objeto...", FontTypeNames.FONTTYPE_INFO
Call QuitarUserInvItem(UserIndex, Slot, 1)
Call UpdateUserInv(False, UserIndex, Slot)
Sderty
Sderty

[Aporte] Regalos Stylo iao 5O26YPx

Aportes : 13

Mensajes : 44
Puntos : 75
Edad : 26
Localización : Caba Flores.-

Volver arriba Ir abajo

Volver arriba

- Temas similares

Todo-Argentum :: AO 12.x

 
Permisos de este foro:
No puedes responder a temas en este foro.