set $pesp,rand (4001,4407);
    atcommand strcharinfo(0)+":@item "+$pesp;

//===== Athena Script =======================================
//= Maquina Traga Monedas
//===== By ================================================
//= GM Atomix
//===== Version ===========================================
//= 1.0
//===== Compatible With ===================================
//= eAthena 0.52
//===== Description =======================================
//= Es un NPC que te pide 100.000 zeny y tienes la probabilidad de Ganar desde 0 zeny a 100.000.000 zeny
//=========================================================
prontera.gat,154,171,4    script    Maquina Traga Monedas    801,{
mes "¿Quieres jugar en esta maquina traga moneda?";
mes "Los Premios van desde 0 Zeny asta 100.000.000 Zeny";
mes "deveras darme 100.000 Zeny para Jugar";
next;
menu "Si",jugar,"No",cerrar;
jugar:
if (Zeny <100000) goto cerrar2;
set Zeny,zeny-100000;
set $price, rand  (0,100000000);
set zeny, zeny+~$price;
mes "Ya as Jugado y As retirado tu Dinero..., ya puedes Itre";
close;
cerrar:
mes "no Eres lo suficientemente Valiente para arriesgar dinero.";
close;
cerrar2:
mes "No tienes el dinero suficiente para Jugar en esta Maquina";
close;