API tools faq
paste
yuhsing

Untitled

yuhsing
Aug 23rd, 2013
102
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.82 KB | None | 0 0
raw download clone embed print report
  1. //============================================================
  2. // WoE Castle Flag (prtg_cas03) //
  3. //============================================================
  4. prontera,155,234,4 script War of Emperium Flag 722,{
  5.  
  6. if ( .Map$ == "" || ( gettime(3) != 21 || ( gettime(3) == 21 && gettime(2) > 20 ) ) ) {
  7. mes "^0000FFWar of Emperium Flag^000000";
  8. mes " ";
  9. mes "^FF0000WoE info:^000000";
  10. mes " ";
  11. mes "Tuesday from ^00FF008.00PM^000000 to ^FF00009.00PM^000000";
  12. mes "Thursday from ^00FF008.00PM^000000 to ^FF00009.00PM^000000";
  13. mes "Saturday from ^00FF008.00PM^000000 to ^FF00009.00PM^000000";
  14. mes "Sunday from ^00FF008.00PM^000000 to ^FF00009.00PM^000000";
  15. mes " ";
  16. mes "Please use ^FF0000@time^000000 to check current server time.";
  17. close;
  18. }
  19.  
  20. if( getcharid(2) != getcastledata( .Map$,1 ) || !getcharid(2) || strcharinfo(0) != getguildmaster( getcastledata( .Map$,1 ) ) ){
  21. mes "Only guild master "+getguildmaster( getcastledata( .Map$,1 ) )+" from "+getguildname( getcastledata( .Map$,1 ) )+" guild can claim the rewards!";
  22. close;
  23. }
  24. mes "Master "+strcharinfo(2)+", please read this description ^FF0000CAREFULLY..^000000";
  25. mes " ";
  26. mes "Please remember that I can only warp you to the reward room ONE TIME only!!";
  27. mes " ";
  28. mes "We're ^FF0000NOT RESPONSIBLE^000000 if you or your guild members diconnect or error while we recall..";
  29. next;
  30. mes "Do you understand?";
  31. mes " ";
  32. mes "If yes, please proceed now..";
  33. mes " ";
  34. mes "If not, you only have 10 minutes before I'm gone..";
  35. next;
  36. if( .Map$ == "" ) close;
  37. if( select( "Okay. I Understand.:Wait a second!!" ) == 2 ) close;
  38. enablenpc "Recall NPC#01";
  39. warp "new_zone04",180,145;
  40. announce "Guild Master of "+getguildname( getcastledata( .Map$,1 ) )+" guild has been warped to Reward Room.",0;
  41. sleep2 100;
  42. announce "All members of "+getguildname( getcastledata( .Map$,1 ) )+" guild please be prepared for the recall.",0;
  43. sleep2 100;
  44. announce "Make sure you are not in recall-disabled maps such as castle!",0;
  45. set .Map$,"";
  46. end;
  47.  
  48. //OnInit:
  49. OnAgitEnd:
  50. switch( gettime(4) ){
  51. Case 0: if( gettime(3) == 21 ) set .Map$,"prtg_cas01"; break; // Sunday
  52. Case 2: if( gettime(3) == 21 ) set .Map$,"prtg_cas01"; break; // Tuesday
  53. Case 4: if( gettime(3) == 21 ) set .Map$,"prtg_cas01"; break; // Thursday
  54. Case 6: if( gettime(3) == 21 ) set .Map$,"prtg_cas01"; break; // Saturday
  55. default: end;
  56. }
  57.  
  58. if ( ( gettime(4)==0 && gettime(3)==21 ) || ( gettime(4)==2 && gettime(3)==21 ) || ( gettime(4)==4 && gettime(3)==21) || ( gettime(4)==6 && gettime(3)==21) ){
  59. sleep2 2000;
  60. announce "WoE Flag : Attention to the Guild Master of the winning guild for War of Emperium today.",0;
  61. sleep2 2000;
  62. announce "WoE Flag : Kindly come and talk to me at Prontera Town now to claim your rewards.",0;
  63. sleep2 2000;
  64. announce "WoE Flag : No more redeem of reward after 10 minutes!.",0;
  65. }
  66. end;
  67.  
  68. OnRecvCastlePt01:
  69. FlagEmblem GetCastleData("prtg_cas01",1);
  70. end;
  71. }
  72.  
  73. allone,206,196,4 script War of Emperium Flag#a1 722,{
  74.  
  75. OnRecvCastlePt01:
  76. FlagEmblem GetCastleData("prtg_cas01",1);
  77. end;
  78. }
  79.  
  80. //============================================================
  81. // Baby WoE Castle Flag (gefg_cas01) //
  82. //============================================================
  83. prontera,148,230,5 script Baby WoE Flag 722,{
  84.  
  85. if ( .Map$ == "" || ( gettime(3) != 21 || ( gettime(3) == 21 && gettime(2) > 20 ) ) ) {
  86. mes "^0000FFBaby War of Emperium Flag^000000";
  87. mes " ";
  88. mes "^FF0000Baby WoE info:^000000";
  89. mes " ";
  90. mes "Monday from ^00FF008.00PM^000000 to ^FF00009.00PM^000000";
  91. mes "Wednesday from ^00FF008.00PM^000000 to ^FF00009.00PM^000000";
  92. mes "Friday from ^00FF008.00PM^000000 to ^FF00009.00PM^000000";
  93. mes " ";
  94. mes "Please use ^FF0000@time^000000 to check current server time.";
  95. close;
  96. }
  97.  
  98. if( getcharid(2) != getcastledata( .Map$,1 ) || !getcharid(2) || strcharinfo(0) != getguildmaster( getcastledata( .Map$,1 ) ) ){
  99. mes "Only guild master "+getguildmaster( getcastledata( .Map$,1 ) )+" from "+getguildname( getcastledata( .Map$,1 ) )+" guild can claim the rewards!";
  100. close;
  101. }
  102. mes "Master "+strcharinfo(2)+", please read this description ^FF0000CAREFULLY..^000000";
  103. mes " ";
  104. mes "Please remember that I can only warp you to the reward room ONE TIME only!!";
  105. mes " ";
  106. mes "We're ^FF0000NOT RESPONSIBLE^000000 if you or your guild members diconnect or error while we recall..";
  107. next;
  108. mes "Do you understand?";
  109. mes " ";
  110. mes "If yes, please proceed now..";
  111. mes " ";
  112. mes "If not, you only have 10 minutes before I'm gone..";
  113. next;
  114. if( .Map$ == "" ) close;
  115. if( select( "Okay. I Understand.:Wait a second!!" ) == 2 ) close;
  116. enablenpc "Recall NPC#01";
  117. warp "new_zone04",180,145;
  118. announce "Guildmaster of "+getguildname( getcastledata( .Map$,1 ) )+" guild has been warped to Reward Room.",0;
  119. sleep2 100;
  120. announce "All members of "+getguildname( getcastledata( .Map$,1 ) )+" guild please be prepared for the recall.",0;
  121. sleep2 100;
  122. announce "Make sure you are not in recall-disable maps such as castle!",0;
  123. set .Map$,"";
  124. end;
  125.  
  126. //OnInit:
  127. OnAgitEnd:
  128. switch( gettime(4) ){
  129. Case 1: if( gettime(3) == 21 ) set .Map$,"payg_cas04"; break; // Monday
  130. Case 3: if( gettime(3) == 21 ) set .Map$,"payg_cas04"; break; // Wednesday
  131. Case 5: if( gettime(3) == 21 ) set .Map$,"payg_cas04"; break; // Friday
  132. }
  133.  
  134. //if ( (gettime(3) == 20 && gettime(2)==30) ){
  135. if ( ( gettime(4)==1 && gettime(3)==21 ) || ( gettime(4)==3 && gettime(3)==21 ) || ( gettime(4)==5 && gettime(3)==21) ){
  136. sleep2 2000;
  137. announce "Baby WoE Flag : Attention to the Guild Master of the winning guild for Baby War of Emperium today.",0;
  138. sleep2 2000;
  139. announce "Baby WoE Flag : Kindly come and talk to me at Prontera Town now to claim your rewards.",0;
  140. sleep2 2000;
  141. announce "Baby WoE Flag : No more redeem of reward after 10 minutes!.",0;
  142. }
  143. end;
  144.  
  145. OnRecvCastlePy04:
  146. FlagEmblem GetCastleData("payg_cas04",1);
  147. end;
  148. }
  149.  
  150. allone,197,195,4 script Baby WoE Flag#a1 722,{
  151.  
  152. OnRecvCastlePy04:
  153. FlagEmblem GetCastleData("payg_cas04",1);
  154. end;
  155. }
  156.  
  157. //============================================================
  158. // KoE Castle Flag (gefg_cas01) //
  159. //============================================================
  160. prontera,163,230,3 script KoE Flag 722,{
  161.  
  162. if ( .Map$ == "" || ( gettime(3) < 19 && gettime(2) >= 18 )) {
  163. mes "^0000FFKing of Emperium Flag^000000";
  164. mes " ";
  165. mes "^FF0000KoE info:^000000";
  166. mes " ";
  167. mes "Everyday from ^00FF006.00PM^000000 to ^FF00007.00PM^000000";
  168. mes " ";
  169. mes "Please use ^FF0000@time^000000 to check current server time.";
  170. close;
  171. }
  172.  
  173. if( getcharid(2) != getcastledata( .Map$,1 ) || !getcharid(2) || strcharinfo(0) != getguildmaster( getcastledata( .Map$,1 ) ) ){
  174. mes "Only guild master "+getguildmaster( getcastledata( .Map$,1 ) )+" from "+getguildname( getcastledata( .Map$,1 ) )+" guild can claim the rewards!";
  175. close;
  176. }
  177. mes "Master "+strcharinfo(2)+", please read this description ^FF0000CAREFULLY..^000000";
  178. mes " ";
  179. mes "Please remember that I can only warp you to the reward room ONE TIME only!!";
  180. mes " ";
  181. mes "We're ^FF0000NOT RESPONSIBLE^000000 if you or your guild members diconnect or error while we recall..";
  182. next;
  183. mes "Do you understand?";
  184. mes " ";
  185. mes "If yes, please proceed now..";
  186. mes " ";
  187. mes "If not, you only have 10 minutes before I'm gone..";
  188. next;
  189. if( .Map$ == "" ) close;
  190. if( select( "Okay. I Understand.:Wait a second!!" ) == 2 ) close;
  191. enablenpc "Recall NPC#01";
  192. warp "new_zone04",180,145;
  193. announce "Guildmaster of "+getguildname( getcastledata( .Map$,1 ) )+" guild has been warped to Reward Room.",0;
  194. sleep2 100;
  195. announce "All members of "+getguildname( getcastledata( .Map$,1 ) )+" guild please be prepared for the recall.",0;
  196. sleep2 100;
  197. announce "Make sure you are not in recall-disable maps such as castle!",0;
  198. set .Map$,"";
  199. end;
  200.  
  201. //OnInit:
  202. OnAgitEnd:
  203. switch( gettime(4) ){
  204. Case 0: if( gettime(3) == 19 ) set .Map$,"gefg_cas01"; break; // Sunday
  205. Case 1: if( gettime(3) == 19 ) set .Map$,"gefg_cas01"; break; // Monday
  206. Case 2: if( gettime(3) == 19 ) set .Map$,"gefg_cas01"; break; // Tuesday
  207. Case 3: if( gettime(3) == 19 ) set .Map$,"gefg_cas01"; break; // Wednesday
  208. Case 4: if( gettime(3) == 19 ) set .Map$,"gefg_cas01"; break; // Thursday
  209. Case 5: if( gettime(3) == 19 ) set .Map$,"gefg_cas01"; break; // Friday
  210. Case 6: if( gettime(3) == 19 ) set .Map$,"gefg_cas01"; break; // Saturday
  211. }
  212.  
  213. if( gettime(3) == 19 ){
  214. sleep2 2000;
  215. announce "KoE Flag : Attention to the Guild Master of the winning guild for King of Emperium today.",0;
  216. sleep2 2000;
  217. announce "KoE Flag : Kindly come and talk to me at Prontera Town now to claim your rewards.",0;
  218. sleep2 2000;
  219. announce "KoE Flag : No more redeem of reward after 10 minutes!.",0;
  220. }
  221. end;
  222.  
  223. OnRecvCastleG01:
  224. FlagEmblem GetCastleData("gefg_cas01",1);
  225. end;
  226. }
  227.  
  228. allone,214,195,4 script KoE Flag#a1 722,{
  229.  
  230. OnRecvCastleG01:
  231. FlagEmblem GetCastleData("gefg_cas01",1);
  232. end;
  233. }
  234.  
  235. //============================================================
  236. // Recall NPC#01 (new_zone04) //
  237. //============================================================
  238.  
  239. new_zone04,180,151,5 script Recall NPC#01 894,{
  240.  
  241. if( !getcharid(2) || strcharinfo(0) != getguildmaster( getcharid(2) ) ){
  242. mes "Only guild master "+getguildmaster( getcastledata( .Map$,1 ) )+" can use this NPC!";
  243. close;
  244. }
  245. mes "Greetings guild master "+strcharinfo(2)+", do you want to recall your guild member now?";
  246. if( select( "Yes:Cancel" ) == 2 ) close;
  247. next;
  248. atcommand "@guildrecall "+getcharid(2)+"";
  249. mes "Last chance to recall your guild members again. Make sure all of your members are ready before you click next.";
  250. next;
  251. atcommand "@guildrecall "+getcharid(2)+"";
  252. disablenpc "Recall NPC#01";
  253. mes "Please ask your members to take the rewards now.";
  254. mes " ";
  255. mes "See you next time guild master "+strcharinfo(2)+"..";
  256. sleep2 100;
  257. announce "Please take your Support Ticket at Support Ticket NPC.",bc_map;
  258. sleep2 1000;
  259. npctalk "Please take now! You have 2 minutes from now to claim your ticket!";
  260. enablenpc "Support Ticket#01";
  261. close2;
  262. sleep2 60000;
  263. npctalk "You cannot AFK or stay in this map any longer. Please leave this map now!";
  264. sleep2 60000;
  265. disablenpc "Support Ticket#01";
  266. announce "Support Ticket NPC are now Disabled",0;
  267. end;
  268. }
  269.  
  270. //============================================================
  271. // Ticket NPC#01 (new_zone04) //
  272. //============================================================
  273.  
  274. - script RecallTicket#disable -1,{
  275.  
  276. OnInit:
  277. disablenpc "Support Ticket#01";
  278. disablenpc "Recall NPC#01";
  279. }
  280.  
  281. new_zone04,189,148,5 script Support Ticket#01 904,{
  282.  
  283. if ( (gettime(4)==0 && gettime(3)==21) ) goto Sun;
  284. if ( (gettime(4)==2 && gettime(3)==21) ) goto Tue;
  285. if ( (gettime(4)==4 && gettime(3)==21) ) goto Thur;
  286. if ( (gettime(4)==6 && gettime(3)==21) ) goto Sat;
  287. if ( (gettime(4)==1 && gettime(3)==21) ) goto BWOE;
  288. if ( (gettime(4)==3 && gettime(3)==21) ) goto BWOE;
  289. if ( (gettime(4)==5 && gettime(3)==21) ) goto BWOE;
  290. if ( gettime(3) == 19 ) goto KOE;
  291.  
  292.  
  293. //=============================
  294. //THIS IS TICKET FOR WOE SUNDAY
  295. //=============================
  296. Sun:
  297. mes "Hello ^FF0000"+strcharinfo(0)+"^000000!!!";
  298. mes " ";
  299. mes "Congratulations for winning the War of Emperium";
  300. mes " ";
  301. mes "May ^0000FF"+strcharinfo(2)+"^000000 Guild will be the best";
  302. mes "Guild ever!!";
  303. next;
  304. mes "So, here's your ticket.";
  305. mes " ";
  306. mes "Please use this ticket to claim your Sunday WoE Reward";
  307. mes " ";
  308. mes "Congratulations again and keep up the good work!";
  309. close2;
  310. rentitem 30006,518400; //TICKET FOR SUNDAY WOE HERE
  311. warp "prontera",155,181;
  312. end;
  313.  
  314. //================================
  315. //THIS IS TICKET FOR WOE TUESDAY
  316. //================================
  317. Tue:
  318. mes "Hello ^FF0000"+strcharinfo(0)+"^000000!!!";
  319. mes " ";
  320. mes "Congratulations for winning the War of Emperium";
  321. mes " ";
  322. mes "May ^0000FF"+strcharinfo(2)+"^000000 Guild will be the best";
  323. mes "Guild ever!!";
  324. next;
  325. mes "So, here's your ticket.";
  326. mes " ";
  327. mes "Please use this ticket to claim your Tuesday WoE Reward";
  328. mes " ";
  329. mes "Congratulations again and keep up the good work!";
  330. close2;
  331. rentitem 30003,518400; //TICKET FOR Tuesday WOE HERE
  332. warp "prontera",155,181;
  333. end;
  334.  
  335. //================================
  336. //THIS IS TICKET FOR WOE THURSDAY
  337. //================================
  338. Thur:
  339. mes "Hello ^FF0000"+strcharinfo(0)+"^000000!!!";
  340. mes " ";
  341. mes "Congratulations for winning the War of Emperium";
  342. mes " ";
  343. mes "May ^0000FF"+strcharinfo(2)+"^000000 Guild will be the best";
  344. mes "Guild ever!!";
  345. next;
  346. mes "So, here's your ticket.";
  347. mes " ";
  348. mes "Please use this ticket to claim your Thursday WoE Reward";
  349. mes " ";
  350. mes "Congratulations again and keep up the good work!";
  351. close2;
  352. rentitem 30004,518400; //TICKET FOR Thursday WOE HERE
  353. warp "prontera",155,181;
  354. end;
  355.  
  356. //===============================
  357. //THIS IS TICKET FOR WOE SATURDAY
  358. //===============================
  359. Sat:
  360. mes "Hello ^FF0000"+strcharinfo(0)+"^000000!!!";
  361. mes " ";
  362. mes "Congratulations for winning the War of Emperium";
  363. mes " ";
  364. mes "May ^0000FF"+strcharinfo(2)+"^000000 Guild will be the best";
  365. mes "Guild ever!!";
  366. next;
  367. mes "So, here's your ticket.";
  368. mes " ";
  369. mes "Please use this ticket to claim your Saturday WoE Reward";
  370. mes " ";
  371. mes "Congratulations again and keep up the good work!";
  372. close2;
  373. rentitem 30005,518400; //TICKET FOR SATURDAY WOE HERE
  374. warp "prontera",155,181;
  375. end;
  376.  
  377. //===========================
  378. //THIS IS TICKET FOR BABY WOE
  379. //===========================
  380. BWOE:
  381. mes "Hello ^FF0000"+strcharinfo(0)+"^000000!!!";
  382. mes " ";
  383. mes "Congratulations for winning the Baby War of Emperium";
  384. mes " ";
  385. mes "May ^0000FF"+strcharinfo(2)+"^000000 Guild will be the best";
  386. mes "Guild ever!!";
  387. next;
  388. mes "So, here's your Reward.";
  389. mes " ";
  390. mes "Congratulations again and keep up the good work!";
  391. close2;
  392. getitem 7420,500; // Skull
  393. // getitem 7539,200; // Poring Coin
  394. warp "prontera",155,181;
  395. end;
  396.  
  397. //===================================
  398. //THIS IS TICKET FOR KING OF EMPERIUM
  399. //===================================
  400. KOE:
  401. mes "Hello ^FF0000"+strcharinfo(0)+"^000000!!!";
  402. mes " ";
  403. mes "Congratulations for winning the King of Emperium";
  404. mes " ";
  405. mes "May ^0000FF"+strcharinfo(2)+"^000000 Guild will be the best";
  406. mes "Guild ever!!";
  407. next;
  408. mes "So, here's your ticket.";
  409. mes " ";
  410. mes "Please use this ticket to claim your reward at KoE Reward NPC";
  411. mes " ";
  412. mes "Congratulations again and keep up the good work!";
  413. close2;
  414. getitem 7420,500; // Skull
  415. getitem 30581,2; //Promo Coin
  416. // getitem 7539,200; // Poring Coin
  417. // getitem 30582,1; // Hollow Coin
  418. warp "prontera",155,181;
  419. end;
  420. }
  421.  
  422. new_zone04 mapflag nosave SavePoint
  423. new_zone04 mapflag nobranch
  424. new_zone04 mapflag nomemo
  425. new_zone04 mapflag nopenalty
  426. new_zone04 mapflag noreturn
  427. new_zone04 mapflag nosave SavePoint
  428. new_zone04 mapflag noteleport
  429. new_zone04 mapflag nowarp
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!