Mirroristas/rathena
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated Euphy's WoE controller using the new mail script command (#4243)

Browse Source 
* Splitted the item reward and zeny to support multi-reward by mail

Thanks to @burningFlower74, @Lemongrass3110 !
This commit is contained in:
Atemo 2019-08-14 16:24:14 +02:00 committed by GitHub
parent 152bdb0e15
commit a83e9f34e7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 36 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
npc/custom/woe_controller.txt
View File

@ -53,7 +53,7 @@ OnInit:
// [1] Enable rewards. // [1] Enable rewards.
// [2] Mail all rewards. // [2] Mail all rewards.
// - If not set, players receive items in their inventory. // - If not set, players receive items in their inventory.
// - Only ONE item can be sent via mail, plus Zeny. // - Only ONE item can be sent via mail for PACKETVER < 20150513 while later clients are limited to MAIL_MAX_ITEM (5).
// - Note that offline players do NOT receive rewards. // - Note that offline players do NOT receive rewards.
// [4] Only reward Guild Masters. // [4] Only reward Guild Masters.
// - If not set, all guild members are rewarded. // - If not set, all guild members are rewarded.
@ -67,9 +67,13 @@ OnInit:
set .Options, 1|8; set .Options, 1|8;
// Rewards per castle. // Rewards per castle.
// -- when given directly: <itemID>,<amount>{,<itemID>,<amount>,...} // setarray .reward_id[0], <itemID>{,<itemID>,...}
// -- via mail (option 2): <itemID>,<amount>,<Zeny> // setarray .reward_amount[0], <amount>{,<amount>,...}
setarray .Reward[0],14001,1; setarray .reward_id[0],14001;
setarray .reward_amount[0],1;
// Zeny reward:
.reward_zeny = 0;
// ----------------------------------------------------------- // -----------------------------------------------------------
// Constants (leave this section alone). // Constants (leave this section alone).
@ -91,6 +95,7 @@ OnInit:
// ----------------------------------------------------------- // -----------------------------------------------------------
.reward_id_size = getarraysize(.reward_id);
set .Size, getarraysize($WOE_CONTROL); set .Size, getarraysize($WOE_CONTROL);
if (.AutoKick || .NoOwner) if (.AutoKick || .NoOwner)
for(set .@i,0; .@i<30; set .@i,.@i+1) { for(set .@i,0; .@i<30; set .@i,.@i+1) {
@ -160,10 +165,13 @@ function Add_Zero {
} }
OnReward: OnReward:
if (!.reward_id_size && !.reward_zeny)
return;
set .@sql$, ((.Options&4)?"position = 0":"online = 1"); set .@sql$, ((.Options&4)?"position = 0":"online = 1");
if (.Options&2) set .@str$,gettimestr("%B %d, %Y",21); if (.Options&2) set .@str$,gettimestr("%B %d, %Y",21);
freeloop(1); freeloop(1);
for(set .@i,0; .@i<30; set .@i,.@i+1) for(set .@i,0; .@i<30; set .@i,.@i+1) {
if (getarg(0)&(1<<.@i)) { if (getarg(0)&(1<<.@i)) {
set .@gid, getcastledata(.Castles$[.@i],1); set .@gid, getcastledata(.Castles$[.@i],1);
if (!.@gid) continue; if (!.@gid) continue;
@ -175,22 +183,35 @@ OnReward:
setd ".@ip_"+.@i+"_"+.@ip$,1; setd ".@ip_"+.@i+"_"+.@ip$,1;
} }
if (.Options&2) { if (.Options&2) {
query_sql("INSERT INTO `mail` (send_name,dest_id,title,message,nameid,amount,identify,zeny,time) VALUES ("+ .@charid = .@cid[.@j];
"'no-reply',"+.@cid[.@j]+",'** Siege Reward: "+getcastlename(.Castles$[.@i])+" **',"+ .@sender$ = "no-reply";
"'Brave one,% % Congratulations!% Your guild has successfully occupied% territory in the War of Emperium on% "+.@str$+".% % % % % [ Your reward is attached. ]',"+ .@title$ = "** Siege Reward: "+getcastlename(.Castles$[.@i])+" **";
.Reward[0]+","+.Reward[1]+",0,"+.Reward[2]+",UNIX_TIMESTAMP(NOW()))"); .@body$ = "Brave one,\r\n \r\n Congratulations!\r\n Your guild has successfully occupied\r\n territory in the War of Emperium on\r\n "+.@str$+".\r\n \r\n \r\n \r\n \r\n [ Your reward is attached. ]";
if (!getd(".@str_"+.@cid[.@j]) && isloggedin(.@aid[.@j],.@cid[.@j])) {
if (.reward_id_size)
mail .@charid, .@sender$, .@title$, .@body$, .reward_zeny, .reward_id, .reward_amount;
else
mail .@charid, .@sender$, .@title$, .@body$, .reward_zeny;
if (PACKETVER < 20150513 && !getd(".@str_"+.@cid[.@j]) && isloggedin(.@aid[.@j],.@cid[.@j])) {
setd ".@str_"+.@cid[.@j],1; setd ".@str_"+.@cid[.@j],1;
message rid2name(.@aid[.@j]),"You've got mail! Please re-login to update your mailing list."; message rid2name(.@aid[.@j]),"You've got mail!";
} }
} else if (isloggedin(.@aid[.@j])) { } else if (isloggedin(.@aid[.@j])) {
for(set .@k,0; .@k<getarraysize(.Reward); set .@k,.@k+2) .@name$ = rid2name(.@aid[.@j]);
getitem .Reward[.@k], .Reward[.@k+1], .@aid[.@j]; .@castle_name$ = getcastlename(.Castles$[.@i]);
message rid2name(.@aid[.@j]),"You have been rewarded for conquering "+getcastlename(.Castles$[.@i])+"."; for ( .@k = 0; .@k < .reward_id_size; .@k++ ) {
if (checkweight(.reward_id[.@k], .reward_amount[.@k]))
getitem .reward_id[.@k], .reward_amount[.@k], .@aid[.@j];
else
message .@name$, "You can't receive x" + .reward_amount[.@k] + " " + getitemname(.reward_id[.@k]) + " for conquering " + .@castle_name$ + " because you're overweight.";
}
Zeny += .reward_zeny;
message .@name$, "You have been rewarded for conquering " + .@castle_name$ + ".";
} }
} }
} }
if (.Options&2) query_sql("UPDATE `mail` SET message = REPLACE(message,'%',CHAR(13)) WHERE send_name = 'no-reply'"); }
return; return;
OnPCLoadMapEvent: OnPCLoadMapEvent: