ガチャ - athena_wiki @Wiki

izlude.gat,120,121,5 script ガチャガチャ爺 933,{
set @zeny,1000;
mes "[ガチャガチャ爺]";
mes "ガチャガチャを知っとるかい？";
mes "とりあえず、やってみるかぇ？";
mes @zeny + "zeny必要なんじゃけどな。";
next;
switch (select("やる","やめる"))
{
case 1:
L_0:
if (zeny < @zeny) goto L_2;
set @rand,rand(1101,5168);//(501,13400)item_dbのIDを見て調節要
set @ina$,getitemname(@rand);
if @ina$=="" goto L_0;//←はずれありの場合はL_1に変え、25～28行目のコメントアウトを外す。
mes "[ガチャガチャ爺]";
mes "出たのは" + @ina$ + "じゃったぞ。";
getitem @rand,1,1;
set zeny,zeny - @zeny;
close;

L_2:
mes "お前さんは破産してしまっているようじゃな。。。";
close;

case 2:
mes "気が向いたらいつでも来たらいいぞ。";
close;
}
}