prontera,156,87,4	script	每日頭飾	857,{
        function	turn;
        function	showerror;
        function	checkrand;
function	turn	{
        if(getarg(0)==1||getarg(0)==3||getarg(0)==5||getarg(0)==7||getarg(0)==8||getarg(0)==10||getarg(0)==12) return 31;
        else if(getarg(0)==2) return 28;
        else return 30;
}
function	showerror	{
	dispbottom ""+getarg(0);
	close;
}
function	checkrand	{
for(set .@i,1;.@i<getarg(2)+1;set .@i,.@i+1){
if(getarg(0)==getd(getarg(1)+"["+.@i+"]")) return 1;
}return 0;
}
for(set .@i,1;.@i<6;set .@i,.@i+1)	
	mes "頭飾所需材料 : "+getitemname($td[.@i]) +" "+$tdneedn[.@i]+" 個";
mes "Exchange?";
set .@select,prompt("Exchange","cancel");
        if(.@select==255 || .@select==2) close;
        for(set .@i,1;.@i<6;set .@i,.@i+1){
        if(countitem($td[.@i])<$tdneedn[.@i]||zeny<$payzeny) {
        mes "材料或金額不足";close;
        }
}
for(set .@i,1;.@i<6;set .@i,.@i+1)
	delitem $td[.@i],$tdneedn[.@i];
getitem $ar[$isrand?rand(1,getarraysize($ar)-1):((gettime(5)- (gettime(3)>=6?0:1)  )<1? turn( gettime(6)==1?12:gettime(6)-1 ) : (gettime(5)-(gettime(3)>=6?0:1) ))],1;
set Zeny,Zeny-$payzeny;
mes "兌換成功";
close;
OnClock0600:
deletearray $td[1],128;
deletearray $tdneedn[1],128;
for(set .@o,1;.@o<6;set .@o,.@o+1){
for(;;){
set .@ra,rand(1,getarraysize($exchange)-1);
if(!checkrand($exchange[.@ra],"$td",5) && getitemname($exchange[.@ra])!="null")break;
}
setarray $td[.@o],$exchange[.@ra];
setarray $tdneedn[.@o],rand(10,100);//隨機數量
announce "每日頭飾所需材料 : "+getitemname($td[.@o]) +" "+$tdneedn[.@o]+" 個",0;
}
end;
OnWhisperGlobal:
if(getgmlevel() < 98) end;
setarray .@word$[1],"欲修改頭飾編號","欲修改材料編號","欲修改頭飾","欲修改材料";
for(set .@i,1;.@i<(set(.@a,getarraysize($ar))>set(.@b,getarraysize($exchange))?.@a:.@b);set .@i,.@i+1){
        mes .@i+" 日頭飾為 : "+getitemname($ar[.@i]);
        announce .@i+" 號材料為 : "+getitemname($exchange[.@i]),bc_self;
        }
next;
	set .@select,prompt("更改頭飾","更改材料","刷新材料");
	if(.@select==255) end;
	if(.@select==3) { close2; callsub OnClock0700; }
	mes .@word$[.@select];
	input .@q;
	if(.@q>getarraysize(.@select==1?$ar:$exchange)-1||.@q<1) showerror("Wrong number!");
	mes .@word$[.@select+2];
	input .@qq;
	if(getitemname(.@qq)=="null") showerror("Not item variable!");
	setd "$"+(.@select==1?"ar":"exchange")+"["+.@q+"]",.@qq;
	mes "更改為 : "+getitemname(getd("$"+(.@select==1?"ar":"exchange")+"["+.@q+"]"));
	close;
end;
OnInit:
set $isrand,0;//是否獲得隨機頭飾
if($ar[1]) end;
setarray $ar[1],2251,2252,2253,2254,2255,2256,2257,2258,2259,2260,2261,2262,2263,2264,2265,2266,2267,2268,2269,2270,2271,2272,2273,2274,2275,2276,2277,2278,2279,2280,2281;//頭飾
setarray $exchange[1],501,502,503,504,505,506,507,508,509,510,511,512,513,514,515,516,517,518,519,520,521,522,523,524,525,526,527,528,529,530,531;//材料
set $payzeny,100000;//製作金額
end;
}