prontera,164,88,4	script	m	721,{
	mes "[m]";
	mes "w{dԤq`";
	mes "qsX֧Qm";
	mes "unʶRqmAN|ĹoB!";
	next;
LM1:
	menu "߰ݦmƶ",Lmess,"ʶRm",Lbuy,"dʶRpμ",Lbnum,"I",Lget,"",Lcancel;
Lmess:
		mes "[m]";
		mes "ʥѥdԦqS٧U";
		mes "mʶRWh:";
		mes "CHCѥuʶR^0000FF 5^000000ACb^0000FF100~999^000000ܤ@ӸXA";
		mes "CѤȶ}AaۦӧIC";
		next;
		mes "[m]";
		mes "pGʶRXP}XۦPANOY";
		mes "iHoֿn";
		mes "pGʶRXP}Xۮt1ANOG";
		mes "iHo10Uzeny";
		next;
		mes "[m]";
		mes "l^0000FF500^000000UACW[@ʶR̴NW[^0000FF1000zeny^000000";
		mes "VhHRVCpGSHA10%NֿnܤU@C";
		mes "ֿnF^0000FF2000^000000UNAW[";
		mes "pG̦bU@}ehAӼNֿnܤU@C";
	close;
Lbuy:
		if(#TTbuyday < $TTaa) set #TTbuy,0;
		if (#TTbuy == 5 ) goto Lerr01;
		if (Zeny <1000 ) goto Lnomon;
		mes "[m]";
		mes "пJAQʶRX]100 - 999^";
		next;
		input @TTtemp;
		if (@TTtemp <100 || @TTtemp > 999) goto Lerr02;
		if (Zeny <1000 ) goto Lnomon;
		set Zeny,Zeny-1000;
		set #KF_PIT,#KF_PIT+5;		//iHn
		set $TTmon3,$TTmon3+1000;	//ֿn
		set $TTbnum,$TTbnum+1;		//ʶRH
		set $TTanum,$TTanum+1;		//֭p`ʶRH
		set #TTbuy,#TTbuy+1;		//ӪaʶR
		set #TTbuyday,$TTaa;		//ӪaʶR
		mes "[m]";
		mes "§A֧QƷ~CƱAतC";
		if (@TTtemp == $TTnum2) goto Lgood;
		if (@TTtemp == $TTnum2+1 || @TTtemp == $TTnum2-1) goto Lgood2;
	close;
	Lgood:	//Y
		set #KF_PIT,#KF_PIT+50;		//iHn
		set $TTth,$TTth+1;		//H
		if ($TTget1 == 0) goto Lset01;	//OID
		if ($TTget2 == 0) goto Lset02;
		if ($TTget3 == 0) goto Lset03;
		if ($TTget4 == 0) goto Lset04;
		if ($TTget5 == 0) goto Lset05;
		if ($TTget6 == 0) goto Lset06;
		if ($TTget7 == 0) goto Lset07;
		if ($TTget8 == 0) goto Lset08;
		if ($TTget9 == 0) goto Lset09;
		end;
	Lset01:
		set $TTget1,getcharid(0)+$TTa;
	close;
	Lset02:
		set $TTget2,getcharid(0)+$TTa;
	close;
	Lset03:
		set $TTget3,getcharid(0)+$TTa;
	close;
	Lset04:
		set $TTget4,getcharid(0)+$TTa;
	close;
	Lset05:
		set $TTget5,getcharid(0)+$TTa;
	close;
	Lset06:
		set $TTget6,getcharid(0)+$TTa;
	close;
	Lset07:
		set $TTget7,getcharid(0)+$TTa;
	close;
	Lset08:
		set $TTget8,getcharid(0)+$TTa;
	close;
	Lset09:
		set $TTget9,getcharid(0)+$TTa;
	close;
	Lgood2:	//G
		set #KF_PIT,#KF_PIT+30;		//iHn
		set $TT2th,$TT2th+1;		//GH
		if ($TTget21 == 0) goto Lset21;	//OID
		if ($TTget22 == 0) goto Lset22;
		if ($TTget23 == 0) goto Lset23;
		if ($TTget24 == 0) goto Lset24;
		if ($TTget25 == 0) goto Lset25;
		if ($TTget26 == 0) goto Lset26;
		if ($TTget27 == 0) goto Lset27;
		if ($TTget28 == 0) goto Lset28;
		if ($TTget29 == 0) goto Lset29;
		end;
	Lset21:
		set $TTget21,getcharid(0)+$TTa;
	close;
	Lset22:
		set $TTget22,getcharid(0)+$TTa;
	close;
	Lset23:
		set $TTget23,getcharid(0)+$TTa;
	close;
	Lset24:
		set $TTget24,getcharid(0)+$TTa;
	close;
	Lset25:
		set $TTget25,getcharid(0)+$TTa;
	close;
	Lset26:
		set $TTget26,getcharid(0)+$TTa;
	close;
	Lset27:
		set $TTget27,getcharid(0)+$TTa;
	close;
	Lset28:
		set $TTget28,getcharid(0)+$TTa;
	close;
	Lset29:
		set $TTget29,getcharid(0)+$TTa;
	close;
	Lerr01:
		mes "[m]";
		mes "AѤwgʶR 5 FAARF";
		mes "ƱAत!!";
	close;
	Lerr02:
		mes "[m]";
		mes "AJXTAЭsJ";
		goto Lbuy;
	Lnomon:
		mes "[m]";
		mes "AACim^0000FF 1000 ^000000ZenyC";
	close;
Lbnum:
		mes "[m]";
		mes "^0000FF"+$TTaa+"^000000֧Qm污p";
		mes "{bw^0000FF"+$TTbnum+"^000000HʶRmC";
		mes "ֿn^0000FF"+$TTmon3+"^000000 zenyC";
		mes "------------------------------";
		mes "W@֧Qm污p";
		mes "`^0000FF"+$TTmon2+"^000000 ZenyC";
		mes "ʶRHƬO^0000FF"+$TTcnum+"^000000HC";
		if ($TTth2== 0 ) goto Lnoth2;
		mes "j^0000FF"+$TTth2+"^000000 WC";
		mes "CHio^0000FF"+$TTmon1+"^000000 ZenyC";
		mes "G^0000FF"+$TT2th2+"^000000 WC";
		mes "CHio^0000FF"+$TT2mon+"^000000 ZenyC";
		if ($TTmon1>0) mes "w^0000FF"+$TTgetp+"^000000 HFC";
		if ($TTmon1==0) mes "{b٨SHӻC";
		mes "------------------------------";
		mes "~`֭pʶRHƬO^0000FF"+$TTanum+"^000000 HC";
		mes "    `֭pYHƬO^0000FF"+$TTLuk+"^000000 HC";
		mes "    `֭pGHƬO^0000FF"+$TT2Luk+"^000000 HC";
		next;
		goto LM1;
Lnoth2:
		mes "SHjC";
		mes "------------------------------";
		mes "~`֭pʶRHƬO^0000FF"+$TTanum+"^000000 HC";
		mes "    `֭pYHƬO^0000FF"+$TTLuk+"^000000 HC";
		mes "    `֭pGHƬO^0000FF"+$TT2Luk+"^000000 HC";
		next;
		goto LM1;

Lget:
		if(getcharid(0) == ($TTget1-$TTa2)) goto Lget01;
		if(getcharid(0) == ($TTget2-$TTa2)) goto Lget02;
		if(getcharid(0) == ($TTget3-$TTa2)) goto Lget03;
		if(getcharid(0) == ($TTget4-$TTa2)) goto Lget04;
		if(getcharid(0) == ($TTget5-$TTa2)) goto Lget05;
		if(getcharid(0) == ($TTget6-$TTa2)) goto Lget06;
		if(getcharid(0) == ($TTget7-$TTa2)) goto Lget07;
		if(getcharid(0) == ($TTget8-$TTa2)) goto Lget08;
		if(getcharid(0) == ($TTget9-$TTa2)) goto Lget09;
		if(getcharid(0) == ($TTget21-$TTa2)) goto Lget21;
		if(getcharid(0) == ($TTget22-$TTa2)) goto Lget22;
		if(getcharid(0) == ($TTget23-$TTa2)) goto Lget23;
		if(getcharid(0) == ($TTget24-$TTa2)) goto Lget24;
		if(getcharid(0) == ($TTget25-$TTa2)) goto Lget25;
		if(getcharid(0) == ($TTget26-$TTa2)) goto Lget26;
		if(getcharid(0) == ($TTget27-$TTa2)) goto Lget27;
		if(getcharid(0) == ($TTget28-$TTa2)) goto Lget28;
		if(getcharid(0) == ($TTget29-$TTa2)) goto Lget29;
		mes "[m]";
		mes "藍_AASAФU~C";
close;
Lget01:
		if ((Zeny+$TTmon1) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFAoOAAЮnC";
		mes "O^0000FF "+$TTmon1+"^000000 zeny";
		set Zeny,Zeny+$TTmon1;
		set $TTget1,0;		//]w
		set $TTgetp,$TTgetp+1;	//Hƥ[1
		mes "w~ʶRC";
		close;
Lget02:
		if ((Zeny+$TTmon1) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFAoOAAЮnC";
		mes "O^0000FF "+$TTmon1+"^000000 zeny";
		set Zeny,Zeny+$TTmon1;
		set $TTget2,0;
		set $TTgetp,$TTgetp+1;	//Hƥ[1
		mes "w~ʶRC";
		close;
Lget03:
		if ((Zeny+$TTmon1) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFAoOAAЮnC";
		mes "O^0000FF "+$TTmon1+"^000000 zeny";
		set Zeny,Zeny+$TTmon1;
		set $TTget3,0;
		set $TTgetp,$TTgetp+1;	//Hƥ[1
		mes "w~ʶRC";
		close;
Lget04:
		if ((Zeny+$TTmon1) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFAoOAAЮnC";
		mes "O^0000FF "+$TTmon1+"^000000 zeny";
		set Zeny,Zeny+$TTmon1;
		set $TTget4,0;
		set $TTgetp,$TTgetp+1;	//Hƥ[1
		mes "w~ʶRC";
		close;
Lget05:
		if ((Zeny+$TTmon1) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFAoOAAЮnC";
		mes "O^0000FF "+$TTmon1+"^000000 zeny";
		set Zeny,Zeny+$TTmon1;
		set $TTget5,0;
		set $TTgetp,$TTgetp+1;	//Hƥ[1
		mes "w~ʶRC";
		close;
Lget06:
		if ((Zeny+$TTmon1) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFAoOAAЮnC";
		mes "O^0000FF "+$TTmon1+"^000000 zeny";
		set Zeny,Zeny+$TTmon1;
		set $TTget6,0;
		set $TTgetp,$TTgetp+1;	//Hƥ[1
		mes "w~ʶRC";
		close;
Lget07:
		if ((Zeny+$TTmon1) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFAoOAAЮnC";
		mes "O^0000FF "+$TTmon1+"^000000 zeny";
		set Zeny,Zeny+$TTmon1;
		set $TTget7,0;
		set $TTgetp,$TTgetp+1;	//Hƥ[1
		mes "w~ʶRC";
		close;
Lget08:
		if ((Zeny+$TTmon1) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFAoOAAЮnC";
		mes "O^0000FF "+$TTmon1+"^000000 zeny";
		set Zeny,Zeny+$TTmon1;
		set $TTget8,0;
		set $TTgetp,$TTgetp+1;	//Hƥ[1
		mes "w~ʶRC";
		close;
Lget09:
		if ((Zeny+$TTmon1) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFAoOAAЮnC";
		mes "O^0000FF "+$TTmon1+"^000000 zeny";
		set Zeny,Zeny+$TTmon1;
		set $TTget9,0;
		set $TTgetp,$TTgetp+1;	//Hƥ[1
		mes "w~ʶRC";
		close;
Lget21:
		if ((Zeny+$TT2mon) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFGAoOAAЮnC";
		mes "O^0000FF "+$TT2mon+"^000000 zeny";
		set Zeny,Zeny+$TT2mon;
		set $TTget21,0;		//]w
		mes "w~ʶRC";
		close;
Lget22:
		if ((Zeny+$TT2mon) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFGAoOAAЮnC";
		mes "O^0000FF "+$TT2mon+"^000000 zeny";
		set Zeny,Zeny+$TT2mon;
		set $TTget22,0;
		mes "w~ʶRC";
		close;
Lget23:
		if ((Zeny+$TT2mon) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFGAoOAAЮnC";
		mes "O^0000FF "+$TT2mon+"^000000 zeny";
		set Zeny,Zeny+$TT2mon;
		set $TTget23,0;
		mes "w~ʶRC";
		close;
Lget24:
		if ((Zeny+$TT2mon) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFGAoOAAЮnC";
		mes "O^0000FF "+$TT2mon+"^000000 zeny";
		set Zeny,Zeny+$TT2mon;
		set $TTget24,0;
		mes "w~ʶRC";
		close;
Lget25:
		if ((Zeny+$TT2mon) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFGAoOAAЮnC";
		mes "O^0000FF "+$TT2mon+"^000000 zeny";
		set Zeny,Zeny+$TT2mon;
		set $TTget25,0;
		mes "w~ʶRC";
		close;
Lget26:
		if ((Zeny+$TT2mon) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFGAoOAAЮnC";
		mes "O^0000FF "+$TT2mon+"^000000 zeny";
		set Zeny,Zeny+$TT2mon;
		set $TTget26,0;
		mes "w~ʶRC";
		close;
Lget27:
		if ((Zeny+$TT2mon) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFGAoOAAЮnC";
		mes "O^0000FF "+$TT2mon+"^000000 zeny";
		set Zeny,Zeny+$TT2mon;
		set $TTget27,0;
		mes "w~ʶRC";
		close;
Lget28:
		if ((Zeny+$TT2mon) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFGAoOAAЮnC";
		mes "O^0000FF "+$TT2mon+"^000000 zeny";
		set Zeny,Zeny+$TT2mon;
		set $TTget28,0;
		mes "w~ʶRC";
		close;
Lget29:
		if ((Zeny+$TT2mon) >1000000000 ) goto Lmuch;
		mes "[m]";
		mes "ߧAAAFGAoOAAЮnC";
		mes "O^0000FF "+$TT2mon+"^000000 zeny";
		set Zeny,Zeny+$TT2mon;
		set $TTget29,0;
		mes "w~ʶRC";
		close;
Lmuch:
		mes "[m]";
		mes "ߧAAAFAO^0000FF "+$TTmon1+"^000000 zeny";
		mes "AW{ӦhAAFAЦsJȦAӻC";
close;
Lcancel:
		mes "[m]";
		mes "KKKK";
		close;
}

aldeba_in,21,239,4	script	m}	-1,{
end;
OnHour12:
		set $TT2mon,100000;	//G
		set $TTnum,rand(100,999);
		set $TTnum1,$TTnum2;				//OdW@X
		set $TTnum2,$TTnum;				//]mX
		set $TT3th,$TTth+$TT2th;			//]mX
		announce ""+$TTaa+"֧Qm}AXO"+$TTnum1+" @"+$TT3th+"Wa",15;
		set $TTmon4,$TTmon1;				//AW@CHio
		set $TTmon2,$TTmon3;				//W@`
		if ( $TTmon2 > 5000000 ) set $TTmon2,5000000;	//]mW500U
		set $TTmon1,$TTmon2;				//W@CHiH
//		if ( $TTth > 1 ) set $TTmon1,$TTmon2/$TTth;	//Hƥ
		set $TTLuk,($TTLuk+$TTth);			//s֭pHơC
		set $TT2Luk,($TT2Luk+$TT2th);			//s֭pGHơC
		set $TTa2,$TTa;					//OdW@
		set $TTa,$TTa+100000;				//+1
		set $TTaa,$TTaa+1;				//ơ]Ωܡ^
		set $TTth3,$TTth2;				//OdAW@H
		set $TTth2,$TTth;				//OdW@H
		set $TTth,0;					//MťH
		set $TT2th3,$TT2th2;				//OdAW@GH
		set $TT2th2,$TT2th;				//OdW@GH
		set $TT2th,0;					//MťGH
		set $TTcnum,$TTbnum;				//OdW@ʶRH
		set $TTbnum,0;					//MťʶRH
		set $TTgetp2,$TTgetp;				//OdW@H
		set $TTgetp,0;					//MťH
		if ( $TTget1 < $TTa2 ) set $TTget1,0;		//MŤW
		if ( $TTget2 < $TTa2 ) set $TTget2,0;		//MŤW
		if ( $TTget3 < $TTa2 ) set $TTget3,0;		//MŤW
		if ( $TTget4 < $TTa2 ) set $TTget4,0;		//MŤW
		if ( $TTget5 < $TTa2 ) set $TTget5,0;		//MŤW
		if ( $TTget6 < $TTa2 ) set $TTget6,0;		//MŤW
		if ( $TTget7 < $TTa2 ) set $TTget7,0;		//MŤW
		if ( $TTget8 < $TTa2 ) set $TTget8,0;		//MŤW
		if ( $TTget9 < $TTa2 ) set $TTget9,0;		//MŤW
		if ( $TTget21 < $TTa2 ) set $TTget21,0;		//MŤW
		if ( $TTget22 < $TTa2 ) set $TTget22,0;		//MŤW
		if ( $TTget23 < $TTa2 ) set $TTget23,0;		//MŤW
		if ( $TTget24 < $TTa2 ) set $TTget24,0;		//MŤW
		if ( $TTget25 < $TTa2 ) set $TTget25,0;		//MŤW
		if ( $TTget26 < $TTa2 ) set $TTget26,0;		//MŤW
		if ( $TTget27 < $TTa2 ) set $TTget27,0;		//MŤW
		if ( $TTget28 < $TTa2 ) set $TTget28,0;		//MŤW
		if ( $TTget29 < $TTa2 ) set $TTget29,0;		//MŤW
		if ( $TTth2 == 0 ) goto Lgetall;
		set $TTmon3,$TTmon;
		if ( $TTgetp2 < $TTth3 ) goto Lnoall;
	End;
Lgetall:
		set $TTmon3,$TTmon2/10+$TTmon2;
		if ( $TTmon3 > 5000000 ) set $TTmon3,5000000;
		if ( $TTgetp2 < $TTth3 ) goto Ladnoget;
	End;
Ladnoget:
		set $Tmon,($TTth3-$TTgetp);
		set $TTmon3,($TTmon4*$Tmon)+$TTmon;
		if ( $TTmon3 > 5000000 ) set $TTmon3,5000000;
	End;

OnInit:

		waitingroom "DeepROmʶRB",0;
		if ($TTinit==1) End;
		set $TTa,100000;	//]wƬĤ@
		set $TTaa,1;		//ƬĤ@]Ωܡ^
		set $TTa2,0;		//W@
		set $TTmon,1000000;	//]wl
		set $TTmon1,0;		//CHio
		set $TTmon2,0;		//W@`
		set $TTmon3,$TTmon;	//
		set $TTmon4,0;		//AW@CH
		set $Tmon,0;		//SQ
		set $TT2mon,100000;	//G
//	Lrenum1:
		set $TTnum,rand(100,999);	//]wX
//		if ($TTnum <100 || $TTnum >999 ) goto Lrenum1;
		set $TTnum2,$TTnum;	//]wĤ@X
		set $TTnum1,0;		//]wĤ@X
		set $TTcnum,0;		//W@ʶRH
		set $TTbnum,0;		//ʶRH
		set $TTanum,0;		//`֭pʶRH
		set $TTth,0;		//H
		set $TTth2,0;		//W@H
		set $TTth3,0;		//AW@H
		set $TT2th,0;		//GH
		set $TT2th2,0;		//W@GH
		set $TT2th3,0;		//AW@GH
		set $TTLuk,0;		//`֭pH
		set $TT2Luk,0;		//`֭pGH
		set $TTgetp2,0;		//W@H
		set $TTgetp,0;		//H
		set $TTget1,0;		//MŤW
		set $TTget2,0;
		set $TTget3,0;
		set $TTget4,0;
		set $TTget5,0;
		set $TTget6,0;
		set $TTget7,0;
		set $TTget8,0;
		set $TTget9,0;
		set $TTget21,0;		//MŤW
		set $TTget22,0;
		set $TTget23,0;
		set $TTget24,0;
		set $TTget25,0;
		set $TTget26,0;
		set $TTget27,0;
		set $TTget28,0;
		set $TTget29,0;
		set $TTinit,1;		//lƧ
End;

}