Requesting for a "Daily supply rewards" NPC script (w/ rotating waiting room,. example: Monday rewards, Tuesday rewards, Wednesday rewards and so on)

[even]

Can someone please help me with this NPC script ->  "Daily supply rewards" (w/ rotating waiting room,. example: Monday Rewards, Tuesday Rewards, Wednesday  Rewards and so on). Sorry for my bad English. Thank you.

[Haruka Mayumi]

prontera,155,180,5	script	Daily Supply	94,{

	mes "[ Daily Supplier ]";	
	if(#DSUPPLY==gettime(DT_YYYYMMDD)){
	mes "You already received your supply today.";
		end;
	}
	mes "Here's your daily Supply!";
	explode(.@items$,.items$[gettime(DT_DAYOFWEEK)],"|");
	for(.@i=0;.@i<getarraysize(.@items$);.@i+=2)
		getitem atoi(.@items$[.@i]),atoi(.@items$[.@i+1]);
	explode(.@bitems$,.bounditems$[gettime(DT_DAYOFWEEK)],"|");
	for(.@i=0;.@i<getarraysize(.@bitems$);.@i+=2)
		getitembound atoi(.@bitems$[.@i]),atoi(.@bitems$[.@i+1]),Bound_Account;
	set #DSUPPLY,gettime(DT_YYYYMMDD);
end;

OnHour00:
	waitingroom callsub(OnCheckDay)+" Supply",0;
end;

end;
OnCheckDay:
	switch(gettime(DT_DAYOFWEEK)){
		case 0: return "Sunday";
		case 1: return "Monday";
		case 2: return "Tuesday";
		case 3: return "Wednesday";
		case 4: return "Thursday";
		case 5: return "Friday";
		case 6: return "Saturday";
		default: return "ERROR!";
			break;
	}
return;

OnInit:
	waitingroom callsub(OnCheckDay)+" Supply",0;
	
	//You can use Copy | (Vertical Bar) to separate items
	// Item ID, Amount{,Item ID,Amount}...
	setarray .items$[0],
			"501|5|502|10|503|15|504|20",	//Sunday
			"601|5|602|3", //Monday
			"501|1", //Tuesday
			"502|1", //Wednesday
			"503|1", //Thursday
			"504|1", //Friday
			"505|1"; //Saturday
	
	setarray .bounditems$,
			"501|5|502|10|503|15|504|20",	//Sunday
			"601|5|602|3", //Monday
			"505|1", //Tuesday
			"504|1", //Wednesday
			"506|1", //Thursday
			"502|1", //Friday
			"501|1"; //Saturday
end;

}

Don't Forget to press Answer and Up Vote ^_~

[even]

4 hours ago, Haruka Mayumi said:

prontera,155,180,5	script	Daily Supply	94,{

	mes "[ Daily Supplier ]";	
	if(#DSUPPLY==gettime(DT_YYYYMMDD)){
	mes "You already received your supply today.";
		end;
	}
	mes "Here's your daily Supply!";
	explode(.@items$,.items$[gettime(DT_DAYOFWEEK)],"|");
	for(.@i=0;.@i<getarraysize(.@items$);.@i+=2)
		getitem atoi(.@items$[.@i]),atoi(.@items$[.@i+1]);
	explode(.@bitems$,.bounditems$[gettime(DT_DAYOFWEEK)],"|");
	for(.@i=0;.@i<getarraysize(.@bitems$);.@i+=2)
		getitembound atoi(.@bitems$[.@i]),atoi(.@bitems$[.@i+1]),Bound_Account;
	set #DSUPPLY,gettime(DT_YYYYMMDD);
end;

OnHour00:
	waitingroom callsub(OnCheckDay)+" Supply",0;
end;

end;
OnCheckDay:
	switch(gettime(DT_DAYOFWEEK)){
		case 0: return "Sunday";
		case 1: return "Monday";
		case 2: return "Tuesday";
		case 3: return "Wednesday";
		case 4: return "Thursday";
		case 5: return "Friday";
		case 6: return "Saturday";
		default: return "ERROR!";
			break;
	}
return;

OnInit:
	waitingroom callsub(OnCheckDay)+" Supply",0;
	
	//You can use Copy | (Vertical Bar) to separate items
	// Item ID, Amount{,Item ID,Amount}...
	setarray .items$[0],
			"501|5|502|10|503|15|504|20",	//Sunday
			"601|5|602|3", //Monday
			"501|1", //Tuesday
			"502|1", //Wednesday
			"503|1", //Thursday
			"504|1", //Friday
			"505|1"; //Saturday
	
	setarray .bounditems$,
			"501|5|502|10|503|15|504|20",	//Sunday
			"601|5|602|3", //Monday
			"505|1", //Tuesday
			"504|1", //Wednesday
			"506|1", //Thursday
			"502|1", //Friday
			"501|1"; //Saturday
end;

}

Don't Forget to press Answer and Up Vote ^_~

Thank you. Your d best!

[Brahms]

On 7/12/2019 at 3:41 PM, Haruka Mayumi said:

prontera,155,180,5	script	Daily Supply	94,{

	mes "[ Daily Supplier ]";	
	if(#DSUPPLY==gettime(DT_YYYYMMDD)){
	mes "You already received your supply today.";
		end;
	}
	mes "Here's your daily Supply!";
	explode(.@items$,.items$[gettime(DT_DAYOFWEEK)],"|");
	for(.@i=0;.@i<getarraysize(.@items$);.@i+=2)
		getitem atoi(.@items$[.@i]),atoi(.@items$[.@i+1]);
	explode(.@bitems$,.bounditems$[gettime(DT_DAYOFWEEK)],"|");
	for(.@i=0;.@i<getarraysize(.@bitems$);.@i+=2)
		getitembound atoi(.@bitems$[.@i]),atoi(.@bitems$[.@i+1]),Bound_Account;
	set #DSUPPLY,gettime(DT_YYYYMMDD);
end;

OnHour00:
	waitingroom callsub(OnCheckDay)+" Supply",0;
end;

end;
OnCheckDay:
	switch(gettime(DT_DAYOFWEEK)){
		case 0: return "Sunday";
		case 1: return "Monday";
		case 2: return "Tuesday";
		case 3: return "Wednesday";
		case 4: return "Thursday";
		case 5: return "Friday";
		case 6: return "Saturday";
		default: return "ERROR!";
			break;
	}
return;

OnInit:
	waitingroom callsub(OnCheckDay)+" Supply",0;
	
	//You can use Copy | (Vertical Bar) to separate items
	// Item ID, Amount{,Item ID,Amount}...
	setarray .items$[0],
			"501|5|502|10|503|15|504|20",	//Sunday
			"601|5|602|3", //Monday
			"501|1", //Tuesday
			"502|1", //Wednesday
			"503|1", //Thursday
			"504|1", //Friday
			"505|1"; //Saturday
	
	setarray .bounditems$,
			"501|5|502|10|503|15|504|20",	//Sunday
			"601|5|602|3", //Monday
			"505|1", //Tuesday
			"504|1", //Wednesday
			"506|1", //Thursday
			"502|1", //Friday
			"501|1"; //Saturday
end;

}

Don't Forget to press Answer and Up Vote ^_~

Im having some error with your script.. would you mind fixing these?? thanks...

[Haruka Mayumi]

1 hour ago, Brahms said:

Im having some error with your script.. would you mind fixing these?? thanks...

OnHour00:
	delwaitingroom strnpcinfo(0);
	waitingroom callsub(OnCheckDay)+" Supply",0;
end;

 

[Brahms]

1 hour ago, Brahms said:

OnHour00: waitingroom callsub(OnCheckDay)+" Supply",0; end; end;

is this suppose to be 2 end;???

 

[llchrisll]

Nope, delete one.