API tools faq
paste
yuhsing

Untitled

yuhsing
May 28th, 2013
224
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 27.54 KB | None | 0 0
raw download clone embed print report
  1. // (c) 2008 - 2012 eAmod Project; Andres Garbanzo / Zephyrus
  2. //
  3. // - [email protected]
  4. // - MSN [email protected]
  5. // - Skype: Zephyrus_cr
  6. // - Site: http://dev.terra-gaming.com
  7. //
  8. // This file is NOT public - you are not allowed to distribute it.
  9. // Authorized Server List : http://dev.terra-gaming.com/index.php?/topic/72-authorized-eamod-servers/
  10. // eAmod is a non Free, extended version of eAthena Ragnarok Private Server.
  11.  
  12. // ==============================================================================
  13. // BattleGround System - Common NPCs
  14. // ==============================================================================
  15.  
  16. // Battleground Queue Admin
  17. // *********************************************************************
  18. - script BG_Queue_Join -1,{
  19. end;
  20.  
  21. OnInit:
  22. // Configuration
  23. // *****************************************************
  24. // Battleground Rotation - Main NPC name
  25. setarray .BG_Arenas$[0],"Flavius_TD","Conquest","Rush";
  26. // Battleground Arena Name - for announcements
  27. setarray .BG_Names$[0],"Death Match","Conquest","Rush";
  28. // Minimum Players to start the BG
  29. setarray .BG_Min[0],3,3,3;
  30. // Maximum Players per Team
  31. setarray .BG_Max[0],35,35,35;
  32. // BG Message Colors
  33. setarray .BG_Color$[0],"0xC12283","0x348017","0xE42217";
  34. // Team Building Mode : 0 = Lineal | 1 = Random | 2 = Class Priority | 3 = Faction Mode | 4 = Team Color ( by script set Bat_Team,N; )
  35. set .TeamMode, 0;
  36. // Main Code
  37. // *****************************************************
  38. set .BG_Count, getarraysize(.BG_Arenas$);
  39. set .BG_Queue, bg_queue_create("Battleground Arena","BG_Queue_Join::OnJoinEvent",80);
  40. set .VS_Queue, bg_queue_create("Free For All Arena","BG_Queue_Join::OnVersusJoin",80);
  41. // Move to Next Arena
  42. if( $BG_Index >= .BG_Count ) set $BG_Index,0; // Restart Rotation
  43. set .BG_Arena$,.BG_Arenas$[$BG_Index];
  44. set .Ready, 1;
  45. donpcevent "BG_Queue_Join::OnDoHappyHour";
  46. initnpctimer; // Rotation if BG don't start... Comment if you don't want to use this method
  47.  
  48. // Comment the next two lines if you don't want to allow @joinbg and @leavebg commands.
  49. bindatcmd "joinbg","BG_Queue_Join::OnDoJoin",0,99;
  50. bindatcmd "leavebg","BG_Queue_Join::OnDoLeave",0,99;
  51. end;
  52.  
  53. OnDoJoin: // @joinbg
  54. if( gettime(4) == 0 && gettime(3) >= 16 && gettime(3) < 18 ){
  55. if( BaseLevel < 255 && bg_logincount() > 0 ){
  56. dispbottom "[Battlegrounds] Min required level to join a battleground is 255.";
  57. }
  58. if( checkquest(8506,PLAYTIME) == 2 ){
  59. erasequest 8506;
  60. }else if( checkquest(8506,PLAYTIME) != -1 ){
  61. dispbottom "[You are a Deserter. You can't participate until the indicator goes off]";
  62. }
  63. bg_queue_join .BG_Queue;
  64. }else{
  65. dispbottom "Only available at Sunday 4pm ~ 6pm";
  66. }
  67. end;
  68.  
  69. OnDoLeave: // @leavebg
  70. if( gettime(4) == 0 && gettime(3) >= 16 && gettime(3) < 18 ){
  71. bg_queue_leave .BG_Queue;
  72. }else{
  73. dispbottom "Only available at Sunday 4pm ~ 6pm";
  74. }
  75. end;
  76.  
  77. OnRotate:
  78. OnTimer600000: // Rotation if BG don't start... Comment if you don't want to use this method. 120 = 2 Minutes
  79. set $@BG_Status, 0;
  80. // Warps Teams
  81. bg_warp $@BG_Team1,"volterra",115,174;
  82. bg_warp $@BG_Team2,"volterra",115,174;
  83. bg_warp $@BG_Team3,"volterra",115,174;
  84. // Destroy Teams
  85. bg_destroy $@BG_Team1; set $@BG_Team1, 0;
  86. bg_destroy $@BG_Team2; set $@BG_Team2, 0;
  87. bg_destroy $@BG_Team3; set $@BG_Team3, 0;
  88.  
  89. // Move to Next Arena
  90. if( set($BG_Index,$BG_Index + 1) >= .BG_Count )
  91. set $BG_Index,0; // Restart Rotation
  92.  
  93. set .BG_Arena$,.BG_Arenas$[$BG_Index];
  94. initnpctimer; // Rotation if BG don't start... Comment if you don't want to use this method
  95.  
  96. // Trigger the Event - Maybe people is waiting...
  97. OnJoinEvent:
  98. if( $@BG_Status == 2 )
  99. end; // BG Ending... Must wait until OnRotate is called
  100.  
  101. set .@Queue_Count, bg_queue_data(.BG_Queue,0);
  102. switch( $@BG_Status )
  103. {
  104. case 0: // Idle - Ready to Start
  105. if( .BG_Arena$ == "Tierra_TI" )
  106. set .@Req, .BG_Min[$BG_Index] * 3;
  107. else
  108. set .@Req, .BG_Min[$BG_Index] * 2;
  109.  
  110. if( bg_queue_checkstart(.BG_Queue,.TeamMode,( (.BG_Arena$ == "Tierra_TI") ? 3 : 2 ),.BG_Min[$BG_Index]) )
  111. {
  112. donpcevent .BG_Arena$ + "::OnBuildTeams";
  113.  
  114. // Fill Teams with Queue Members
  115. if( .BG_Arenas$[$BG_Index] == "Tierra_TI" )
  116. bg_queue2teams .BG_Queue,.BG_Min[$BG_Index],.BG_Max[$BG_Index],.TeamMode,$@BG_Team1,$@BG_Team2,$@BG_Team3;
  117. else
  118. bg_queue2teams .BG_Queue,.BG_Min[$BG_Index],.BG_Max[$BG_Index],.TeamMode,$@BG_Team1,$@BG_Team2;
  119.  
  120. stopnpctimer; // Rotation if BG don't start... Comment if you don't want to use this method
  121.  
  122. set $@BG_Status,1;
  123. set .@msg$, "Battleground -- " + .BG_Names$[$BG_Index] + " -- Begining";
  124. bgannounce .@msg$,.BG_Color$[$BG_Index];
  125.  
  126. donpcevent .BG_Arena$ + "::OnReady";
  127. }
  128. else
  129. {
  130. set .@msg$, "Battleground -- " + .BG_Names$[$BG_Index] + " -- " + (.@Req - .@Queue_Count) + " more players to start (@joinbg) if you want to join.";
  131. announce .@msg$,0,.BG_Color$[$BG_Index];
  132. }
  133. break;
  134. case 1: // Running - Others can join
  135. if( .@Queue_Count > 0 )
  136. {
  137. if( .BG_Arena$ == "Tierra_TI" )
  138. {
  139. bg_balance_teams .BG_Queue,.BG_Max[$BG_Index],.TeamMode,$@BG_Team1,$@BG_Team2,$@BG_Team3;
  140. set .@BG_Count1, bg_get_data($@BG_Team1,0);
  141. set .@BG_Count2, bg_get_data($@BG_Team2,0);
  142. set .@BG_Count3, bg_get_data($@BG_Team3,0);
  143. set .@msg$, "Battleground -- " + .BG_Names$[$BG_Index] + " -- B: " + .@BG_Count1 + "/" + .BG_Max[$BG_Index] + ", R: " + .@BG_Count2 + "/" + .BG_Max[$BG_Index] + ", G: " + .@BG_Count3 + "/" + .BG_Max[$BG_Index] + " (Playing)";
  144. }
  145. else
  146. {
  147. bg_balance_teams .BG_Queue,.BG_Max[$BG_Index],.TeamMode,$@BG_Team1,$@BG_Team2;
  148. set .@BG_Count1, bg_get_data($@BG_Team1,0);
  149. set .@BG_Count2, bg_get_data($@BG_Team2,0);
  150. set .@msg$, "Battleground -- " + .BG_Names$[$BG_Index] + " -- B: " + .@BG_Count1 + "/" + .BG_Max[$BG_Index] + ", R: " + .@BG_Count2 + "/" + .BG_Max[$BG_Index] + " (Playing)";
  151. }
  152.  
  153. bgannounce .@msg$,.BG_Color$[$BG_Index];
  154. }
  155. break;
  156. }
  157. end;
  158.  
  159. OnVersusJoin:
  160. if( $@VS_Status != 0 )
  161. end;
  162.  
  163. set .@Queue_Count, bg_queue_data(.VS_Queue,0);
  164. if( .@Queue_Count >= 10 )
  165. {
  166. donpcevent "FFA_Arena::OnBuildTeams";
  167. bg_queue2teams .VS_Queue,1,1,0,$@VS_Team[0],$@VS_Team[1],$@VS_Team[2],$@VS_Team[3],$@VS_Team[4],$@VS_Team[5],$@VS_Team[6],$@VS_Team[7],$@VS_Team[8],$@VS_Team[9];
  168. set $@VS_Status,1;
  169. announce "Battleground -- Free For All -- Begining",0,0x483D8B;
  170. donpcevent "FFA_Arena::OnReady";
  171. }
  172. else
  173. announce "Battleground -- Free For All -- " + (10 - .@Queue_Count) + " more players to start",0,0x483D8B;
  174. end;
  175.  
  176. OnFri0600: // Friday, 6 a.m.
  177. rankreset 1; // Ranking Reset
  178. end;
  179.  
  180. // BattleGround Happy Hour
  181. OnDoHappyHour:
  182. switch( gettime(4) )
  183. {
  184. case 1:
  185. case 3:
  186. case 5:
  187. if( gettime(3) >= 20 && gettime(3) < 22 )
  188. {
  189. announce "-- Battleground Happy Hour has begun | Ranked Arena Mode --",0,0x00FF00;
  190. setbattleflag "bg_reward_rates",200; // +20% Reward Rates
  191. setbattleflag "bg_ranked_mode",1;
  192. end;
  193. }
  194.  
  195. if( gettime(3) == 22 )
  196. {
  197. announce "-- Battleground Happy Hour is over | Regular Arena Mode --",0,0x00BFFF;
  198. setbattleflag "bg_reward_rates",100; // Normal Rates
  199. setbattleflag "bg_ranked_mode",0;
  200. end;
  201. }
  202. break;
  203. case 2:
  204. case 4:
  205. case 6:
  206. if( gettime(3) >= 16 && gettime(3) < 18 )
  207. {
  208. announce "-- Battleground Happy Hour has begun | Ranked Arena Mode --",0,0x00FF00;
  209. setbattleflag "bg_reward_rates",120; // +20% Reward Rates
  210. setbattleflag "bg_ranked_mode",1;
  211. end;
  212. }
  213.  
  214. if( gettime(3) == 18 )
  215. {
  216. announce "-- Battleground Happy Hour is over | Regular Arena Mode --",0,0x00BFFF;
  217. setbattleflag "bg_reward_rates",100; // Normal Rates
  218. setbattleflag "bg_ranked_mode",0;
  219. end;
  220. }
  221. break;
  222. }
  223. end;
  224. }
  225.  
  226. // Registration NPC
  227. // *********************************************************************
  228. - script BG_Register -1,{
  229.  
  230. if( getvariableofnpc(.Ready,"BG_Queue_Join") == 0 )
  231. donpcevent "BG_Queue_Join::OnInit";
  232.  
  233. mes "[^FFA500Battle Recruiter^000000]";
  234. mes "This is the Battleground Information and Registration service.";
  235. mes "What do you want to do?";
  236. next;
  237. switch( select("^FFA500Battleground Arenas^000000:^0000FFFree For All Arena^000000") )
  238. {
  239. case 1:
  240. mes "[^FFA500Battle Recruiter^000000]";
  241. mes "Battlegrounds Arena are different kinds of games where Teams fight for victory.";
  242. mes "What do you want to do?";
  243. next;
  244. switch( select("Register:Party Register:Leave Queue:Battleground Help") )
  245. {
  246. case 1:
  247. if( BaseLevel < 255 && bg_logincount() > 0 )
  248. {
  249. mes "[^FFA500Battle Recruiter^000000]";
  250. mes "Min required level to join a battleground is 255.";
  251. close;
  252. }
  253. if( checkquest(8506,PLAYTIME) == 2 )
  254. erasequest 8506;
  255. if( checkquest(8506,PLAYTIME) != -1 )
  256. {
  257. mes "[^FFA500Battle Recruiter^000000]";
  258. mes "You are a Deserter. You can't participate until the indicator goes off";
  259. close;
  260. }
  261.  
  262. mes "[^FFA500Battle Recruiter^000000]";
  263. mes "Let's proceed with the registration...";
  264. mes "You must wait on any City until BG starts.";
  265. mes "Close this window to continue...";
  266. close2;
  267. bg_queue_join getvariableofnpc(.BG_Queue,"BG_Queue_Join");
  268. end;
  269. case 2:
  270. if( getcharid(1) == 0 )
  271. {
  272. mes "[^FFA500Battle Recruiter^000000]";
  273. mes "You are not on a Party.";
  274. close;
  275. }
  276.  
  277. mes "[^FFA500Battle Recruiter^000000]";
  278. mes "Let's proceed with the registration...";
  279. mes "You must wait on any City until BG starts.";
  280. mes "Close this window to continue...";
  281. close2;
  282. bg_queue_partyjoin getcharid(1),getvariableofnpc(.BG_Queue,"BG_Queue_Join");
  283. end;
  284. case 3:
  285. mes "[^FFA500Battle Recruiter^000000]";
  286. mes "If you are registered, you will be removed.";
  287. mes "Are you sure?";
  288. next;
  289. if( select("Yes, leave queue:No, I will stay") == 2 )
  290. {
  291. mes "[^FFA500Battle Recruiter^000000]";
  292. mes "Ok, nothing to change.";
  293. close;
  294. }
  295.  
  296. mes "[^FFA500Battle Recruiter^000000]";
  297. mes "Close this window to continue...";
  298. close2;
  299. bg_queue_leave getvariableofnpc(.BG_Queue,"BG_Queue_Join");
  300. end;
  301. case 4:
  302. mes "[^FFA500Battle Recruiter^000000]";
  303. mes "Tell me... what battleground you don't understand?";
  304. next;
  305. switch( select("Death Match:Triple Inferno:Conquest:Rush") )
  306. {
  307. case 1:
  308. mes "[^FFA500Battle Recruiter^000000]";
  309. mes "Kill all the enemy players to let their Team without points.";
  310. mes "Protect our army.";
  311. break;
  312. case 2:
  313. mes "[^FFA500Battle Recruiter^000000]";
  314. mes "There are 3 teams in the battlefield, your team and other 2 enemies.";
  315. next;
  316. mes "[^FFA500Battle Recruiter^000000]";
  317. mes "Kill the enemy players, collect the skulls and bring then to the Sacrifice Totem to win points.";
  318. next;
  319. mes "[^FFA500Battle Recruiter^000000]";
  320. mes "You can collect your own team skulls and bring then to your Sacrifice Totem to avoid other teams to score.";
  321. next;
  322. mes "[^FFA500Battle Recruiter^000000]";
  323. mes "If you get killed all your skulls will be drop to the floor, including your own skull. First Team to get 80 points wins the battle.";
  324. break;
  325. case 3:
  326. mes "[^FFA500Battle Recruiter^000000]";
  327. mes "If you are Attacking, destroy the enemy defenses and it's Flag.";
  328. next;
  329. mes "[^FFA500Battle Recruiter^000000]";
  330. mes "If you are Defending, protect your castle defenses and the Flag.";
  331. break;
  332. case 4:
  333. mes "[^FFA500Battle Recruiter^000000]";
  334. mes "Fight to capture the Castle and organize your team to defend it.";
  335. next;
  336. mes "[^FFA500Battle Recruiter^000000]";
  337. mes "If you fail on the first capture, kill the defender and take it for your team.";
  338. break;
  339. }
  340. break;
  341. }
  342. close;
  343. case 2:
  344. mes "[^FFA500Battle Recruiter^000000]";
  345. mes "Free For All Arena is a Duel between 10 players with No Teams.";
  346. mes "The target is to kill 25 players.";
  347. mes "What do you want to do?";
  348. next;
  349. switch( select("Register:Leave Queue") )
  350. {
  351. case 1:
  352. if( BaseLevel < 255 && bg_logincount() > 0 )
  353. {
  354. mes "[^FFA500Battle Recruiter^000000]";
  355. mes "Min required level to join a battleground is 255.";
  356. close;
  357. }
  358. if( checkquest(8506,PLAYTIME) == 2 )
  359. erasequest 8506;
  360. if( checkquest(8506,PLAYTIME) != -1 )
  361. {
  362. mes "[^FFA500Battle Recruiter^000000]";
  363. mes "You are a Deserter. You can't participate until the indicator goes off";
  364. close;
  365. }
  366.  
  367. mes "[^FFA500Battle Recruiter^000000]";
  368. mes "Let's proceed with the registration...";
  369. mes "You must wait on any City until BG starts.";
  370. mes "Close this window to continue...";
  371. close2;
  372. bg_queue_join getvariableofnpc(.VS_Queue,"BG_Queue_Join");
  373. end;
  374. case 2:
  375. mes "[^FFA500Battle Recruiter^000000]";
  376. mes "If you are registered, you will be removed.";
  377. mes "Are you sure?";
  378. next;
  379. if( select("Yes, leave queue:No, I will stay") == 2 )
  380. {
  381. mes "[^FFA500Battle Recruiter^000000]";
  382. mes "Ok, nothing to change.";
  383. close;
  384. }
  385.  
  386. mes "[^FFA500Battle Recruiter^000000]";
  387. mes "Close this window to continue...";
  388. close2;
  389. bg_queue_leave getvariableofnpc(.VS_Queue,"BG_Queue_Join");
  390. end;
  391. }
  392. end;
  393. case 3:
  394. mes "[^FFA500Battle Recruiter^000000]";
  395. mes "May the War God bless you.";
  396. close2;
  397. warp "volterra",115,174;
  398. end;
  399. }
  400. end;
  401. }
  402.  
  403. //bat_room,160,150,3 duplicate(BG_Register) Battle Recruiter#bat 728
  404. // prontera,155,180,4 duplicate(BG_Register) Battle Recruiter#prt 728
  405.  
  406. /**
  407. // General Guillaume
  408. // *********************************************************************
  409. bat_room,160,159,3 script General Guillaume 420,{
  410. cutin "bat_kiyom2",2;
  411. mes "[General Guillaume]";
  412. mes "Hot-blooded adventurer, we need your ability to win this battle.";
  413. next;
  414. cutin "bat_kiyom1",2;
  415. mes "[General Guillaume]";
  416. mes "Our great king, Marcel Marollo VII, is very sick lately. His Majesty has declared that he chosen either me or Prince Croix as the next king amongst his 9 sons.";
  417. next;
  418. mes "[General Guillaume]";
  419. mes "Two kings can't share a nation!";
  420. mes "Only the one victorious from His Majesty's appointed battle will be enthroned.";
  421. next;
  422. mes "[General Guillaume]";
  423. mes "This is however, not just a battle between us. This battle will determine the future of this country. I pledge on my honor to prove that I'm the one who can protect this Maroll from outside threats.";
  424. next;
  425. switch( select("Join the Blue Team","Join the Green Team","End Conversation") )
  426. {
  427. case 1:
  428. cutin "bat_kiyom2",2;
  429. mes "[General Guillaume]";
  430. mes "Welcome to my army, comrade.";
  431. mes "Your eyes tell me that you're a soldier that I can trust.";
  432. set Bat_Team,1;
  433. next;
  434. mes "[General Guillaume]";
  435. mes "Now, go upstairs and apply for battle with your comrades. I'm sure they'll welcome you whole-heartedly!";
  436. break;
  437. case 2:
  438. cutin "bat_kiyom2",2;
  439. mes "[General Guillaume]";
  440. mes "So you will take this fight as your own...";
  441. mes "Then you are my enemy.";
  442. set Bat_Team,0;
  443. next;
  444. mes "[General Guillaume]";
  445. mes "Go now, We will meet again in the Battlefield.";
  446. break;
  447. case 3:
  448. mes "[General Guillaume]";
  449. mes "I'll be the one who will capture the flag!";
  450. break;
  451. }
  452.  
  453. close2;
  454. cutin "",255;
  455. end;
  456. }
  457.  
  458. // General Croix
  459. // *********************************************************************
  460. bat_room,160,140,3 script Prince Croix 416,{
  461. cutin "bat_crua1",2;
  462. mes "[Prince Croix]";
  463. mes "Wise adventurer, why don't you lend us your power for victory?";
  464. next;
  465. cutin "bat_crua2",2;
  466. mes "[Prince Croix]";
  467. mes "I do not wish to shed blood, but I have no choice but to fight for the possibility of peace and for the sake of my people.";
  468. next;
  469. mes "[Prince Croix]";
  470. mes "General Guillaume may have an advantage in this battle as he is the great general of Maroll, but that doesn't automatically mean he'll win. I want to win this battle so that I can grant a better future for my people.";
  471. next;
  472.  
  473. switch( select("Join the Red Team","Join the Green Team","End Conversation") )
  474. {
  475. case 1:
  476. mes "[Prince Croix]";
  477. mes "Thank you so much. I feel like I can win with the help of adventurers like you. Now, please go downstairs and join your comrades in sharpening their skills to fight the enemy!";
  478. set Bat_Team,2;
  479. break;
  480. case 2:
  481. mes "[Prince Croix]";
  482. mes "So you will take this fight as your own...";
  483. mes "Then you are my enemy.";
  484. set Bat_Team,0;
  485. next;
  486. mes "[Prince Croix]";
  487. mes "Go now, We will meet again in the Battlefield.";
  488. break;
  489. case 3:
  490. mes "[Prince Croix]";
  491. mes "For Maroll!";
  492. break;
  493. }
  494.  
  495. close2;
  496. cutin "",255;
  497. end;
  498. }
  499.  
  500. // Guard Dummy
  501. // *********************************************************************
  502.  
  503. bat_room,161,141,3 script Prince Croix's Aid::bat_aid 415,{ end; }
  504. bat_room,161,139,3 duplicate(bat_aid) Prince Croix's Aid::bat_aid2 415
  505. bat_room,161,160,3 duplicate(bat_aid) General Guillaume's Aid::bat_aid3 419
  506. bat_room,161,158,3 duplicate(bat_aid) General Guillaume's Aid::bat_aid4 419
  507. **/
  508. // Flags
  509. // *********************************************************************
  510.  
  511. - script Base Flag#bg -1,{ end; }
  512.  
  513. // BattleGround Warper - Exit
  514. // *********************************************************************
  515. /*
  516. bat_room,148,150,4 script Teleporter#bat 124,{
  517. mes "[Teleporter]";
  518. mes "Do you wish to leave the battlefield? Use my service to return to town.";
  519. next;
  520. if( select("Leave:Don't Leave") == 2 )
  521. {
  522. mes "[Teleporter]";
  523. mes "I'll be here whenever you're in need of my service.";
  524. close;
  525. }
  526.  
  527. switch( @ArenaPVP_out )
  528. {
  529. // Rune Midgard Republic
  530. case 1: warp "prontera",149,92; break;
  531. case 2: warp "payon",165,98; break;
  532. case 3: warp "morocc",153,94; break;
  533. case 4: warp "umbala",121,143; break;
  534. case 5: warp "comodo",196,140; break;
  535. case 6: warp "niflheim",214,193; break;
  536. case 7: warp "aldebaran",143,111; break;
  537. case 8: warp "geffen",107,53; break;
  538. // Schwarzard Republic
  539. case 9: warp "yuno",151,177; break;
  540. case 10: warp "hugel",99,143; break;
  541. case 11: warp "lighthalzen",167,93; break;
  542. case 12: warp "einbroch",70,194; break;
  543. case 13: warp "einbech",168,130; break;
  544. // Arunafelz Republic
  545. case 14: warp "rachel",118,114; break;
  546. case 15: warp "veins",207,122; break;
  547. // Islands
  548. case 16: warp "nameless_n",161,179; break;
  549. case 17: warp "louyang",213,106; break;
  550. case 18: warp "gonryun",154,111; break;
  551. case 19: warp "ayothaya",148,109; break;
  552. case 20: warp "moscovia",229,195; break;
  553. case 21: warp "xmas",151,127; break;
  554. case 22: warp "amatsu",203,107; break;
  555. case 23: warp "izlude",126,114; break;
  556. case 24: warp "brasilis",195,211; break;
  557. case 25: warp "manuk",279,214; break;
  558. case 26: warp "splendide",200,174; break;
  559. // Anyplace else
  560. default:
  561. set .@spoint$, getsavepoint(0);
  562. set .@x, getsavepoint(1);
  563. set .@y, getsavepoint(2);
  564. mes "[Teleporter]";
  565. mes "You will be sent back to " + .@spoint$ + ".";
  566. close2;
  567. warp .@spoint$, .@x, .@y;
  568. break;
  569. }
  570.  
  571. set @ArenaPVP_out, 0;
  572. end;
  573. }
  574.  
  575. // Kafra
  576. // *********************************************************************
  577. bat_room,148,147,4 script Kafra Staff::kaf_bat 861,{
  578. cutin "kafra_09",2;
  579. callfunc "F_KafSetPront";
  580. mes "[Kafra Employee]";
  581. mes "Welcome to the";
  582. mes "Kafra Corporation~";
  583. mes "The Kafra Services are";
  584. mes "always here to support";
  585. mes "you. So how can I be";
  586. mes "of service today?";
  587. callfunc "F_Kafra",5,0,0,40,800;
  588.  
  589. M_Save:
  590. savepoint "bat_room",153,149;
  591. callfunc "F_KafEnd",0,1,"in the city of Prontera";
  592. }
  593. */
  594. // Badges Exchange
  595. // *********************************************************************
  596.  
  597. volterra,117,180,3 script Telma 701,{
  598. mes "[Telma]";
  599. mes "Welcome, mighty warrior.";
  600. mes "Do you need supply for your battles?";
  601. mes "I can exchange you a nice amount for your badges or open the normal StrikeRO Supply Store for you.";
  602. next;
  603. switch( select("^0000FFBattleground Exclusive^000000:^FF0000War of Emperium Exclusive^000000") )
  604. {
  605. case 1: // BG Supply
  606. setarray .@Items[0],607,12028,678,12020,12114,12115,12116,12117,12118,12119,12120,12121,12072,12087,12082,12077,12092,12097;
  607. setarray .@Amount[0],100,100,50,50,50,50,50,50,30,30,30,30,10,10,10,10,10,10;
  608. setarray .@Value[0],3,3,3,2,2,2,2,2,2,2,2,2,5,5,5,5,5,5;
  609. set .@cID, getbattleflag("bg_reserved_char_id");
  610. set .@Tarjet$, "Battleground";
  611. break;
  612. case 2: // WoE Supply Boxs
  613. setarray .@Items[0],607,12028,678,12020,12114,12115,12116,12117,12118,12119,12120,12121,12202,12203,12204,12205,12206,12207,14287,14288;
  614. setarray .@Amount[0],100,100,50,50,50,50,50,50,30,30,30,30,1,1,1,1,1,1,5,5;
  615. setarray .@Value[0],7,7,7,4,4,4,4,4,4,4,4,4,8,8,8,8,8,8,15,15;
  616. set .@cID, getbattleflag("woe_reserved_char_id");
  617. set .@Tarjet$, "War of Emperium";
  618. break;
  619. }
  620.  
  621. set .@Menu$, "";
  622. for( set .@i, 0; .@i < getarraysize(.@Items); set .@i, .@i + 1 )
  623. set .@Menu$, .@Menu$ + .@Amount[.@i] + " " + getitemname(.@Items[.@i]) + " (" + .@Value[.@i] + " badges):";
  624. set .@j, select(.@Menu$) - 1;
  625.  
  626. mes "[Telma]";
  627. mes "^0000FF" + .@Amount[.@j] + " " + getitemname(.@Items[.@j]) + "^000000";
  628. mes "It will cost you " + .@Value[.@j] + " badges per pack.";
  629. mes "Remember this can only be used on " + .@Tarjet$ + ".";
  630. next;
  631.  
  632. mes "[Telma]";
  633. mes "But tell me first, where do you want to receive the items?";
  634. next;
  635. set .@Destiny, select("Here, in my Inventory:Direct to my Storage") - 1;
  636.  
  637. mes "[Telma]";
  638. mes "How many packets do you want to buy? (1..50)";
  639. next;
  640.  
  641. input .@total;
  642. if( .@total < 1 || .@total > 50 )
  643. {
  644. mes "[Telma]";
  645. mes "I am sorry, please input a value from 1 to 50.";
  646. mes "Talk to me again when you do your selections.";
  647. close;
  648. }
  649.  
  650. set .@vtotal, .@total * .@Value[.@j]; // Value of all Packages
  651. set .@total, .@total * .@Amount[.@j]; // Total Amount of Items
  652.  
  653. if( .@Destiny )
  654. { // Check Storage Space Limit
  655. if( .@cID )
  656. {
  657. if( checkspace(.@Items[.@j],.@total,1,0,0,254,0,.@cID&0xffff,(.@cID>>16)&0xffff) == 0 )
  658. {
  659. mes "[Telma]";
  660. mes "It's seen your storage cannot accept more items.";
  661. mes "Go to your store and check the free space.";
  662. close;
  663. }
  664. }
  665. else
  666. {
  667. if( checkspace(.@Items[.@j],.@total,1,0,0,0,0,0,0) == 0 )
  668. {
  669. mes "[Telma]";
  670. mes "It's seen your storage cannot accept more items.";
  671. mes "Go to your store and check the free space.";
  672. close;
  673. }
  674. }
  675. }
  676. else
  677. { // Check Weight Limit
  678. if( checkweight(.@Items[.@j],.@total) == 0 )
  679. {
  680. mes "[Telma]";
  681. mes "It's seen you can't carry the stuff you want to buy.";
  682. mes "Go and store some items on your Kafra Storage.";
  683. close;
  684. }
  685. }
  686.  
  687. if( countitem(7828) + countitem(7829) + countitem(7773) < .@vtotal )
  688. {
  689. mes "[Telma]";
  690. mes "Required Badges: ^0000FF" + .@vtotal + "^000000";
  691. mes "You do not have enough badges. Sorry...";
  692. mes "Participate in Battleground arenas to receive it.";
  693. close;
  694. }
  695. set .@vcount, .@vtotal;
  696. set .@i7828, 0;
  697. set .@i7829, 0;
  698. set .@i7773, 0;
  699.  
  700. // Bravery Badges
  701. if( countitem(7828) > 0 )
  702. {
  703. mes "[Telma]";
  704. mes "Required Badges: ^0000FF" + .@vcount + "^000000";
  705. mes "Bravery Badges to expend:";
  706. next;
  707. input .@i7828;
  708. if( .@i7828 < 0 || .@i7828 > countitem(7828) )
  709. {
  710. mes "[Telma]";
  711. mes "Invalid number... Sorry.";
  712. close;
  713. }
  714.  
  715. if( .@i7828 > .@vcount ) set .@i7828,.@vcount;
  716. set .@vcount, .@vcount - .@i7828;
  717. }
  718.  
  719. // Valor Badges
  720. if( .@vcount && countitem(7829) > 0 )
  721. {
  722. mes "[Telma]";
  723. mes "Required Badges: ^0000FF" + .@vcount + "^000000";
  724. mes "Valor Badges to expend:";
  725. next;
  726. input .@i7829;
  727. if( .@i7829 < 0 || .@i7829 > countitem(7829) )
  728. {
  729. mes "[Telma]";
  730. mes "Invalid number... Sorry.";
  731. close;
  732. }
  733.  
  734. if( .@i7829 > .@vcount ) set .@i7829,.@vcount;
  735. set .@vcount, .@vcount - .@i7829;
  736. }
  737.  
  738. // Heroism Badges
  739. if( .@vcount && countitem(7773) > 0 )
  740. {
  741. mes "[Telma]";
  742. mes "Required Badges: ^0000FF" + .@vcount + "^000000";
  743. mes "Heroism Badges to expend:";
  744. next;
  745. input .@i7773;
  746. if( .@i7773 < 0 || .@i7773 > countitem(7773) )
  747. {
  748. mes "[Telma]";
  749. mes "Invalid number... Sorry.";
  750. close;
  751. }
  752.  
  753. if( .@i7773 > .@vcount ) set .@i7773, .@vcount;
  754. set .@vcount, .@vcount - .@i7773;
  755. }
  756.  
  757. // Final Checks
  758. if( .@vcount != 0 )
  759. {
  760. mes "[Telma]";
  761. mes "Sorry, not enough badges to pay the total value.";
  762. close;
  763. }
  764.  
  765. mes "[Telma]";
  766. mes "Are you ready to pay and receive your items?";
  767. mes "Your payment details:";
  768. mes "^0000FF" + .@i7828 + "^000000 Bravery Badges";
  769. mes "^0000FF" + .@i7829 + "^000000 Valor Badges";
  770. mes "^0000FF" + .@i7773 + "^000000 Heroism Badges";
  771. next;
  772.  
  773. if( select("Yes, let's do it:I am sorry... not this time") == 2 )
  774. {
  775. mes "[Telma]";
  776. mes "Ok, come again if you change your mind.";
  777. close;
  778. }
  779.  
  780. if( .@Destiny )
  781. { // Check Storage Space Limit
  782. if( .@cID )
  783. {
  784. if( checkspace(.@Items[.@j],.@total,1,0,0,254,0,.@cID&0xffff,(.@cID>>16)&0xffff) == 0 )
  785. {
  786. mes "[Telma]";
  787. mes "It's seen your storage cannot accept more items.";
  788. mes "Go to your store and check the free space.";
  789. close;
  790. }
  791. }
  792. else
  793. {
  794. if( checkspace(.@Items[.@j],.@total,1,0,0,0,0,0,0) == 0 )
  795. {
  796. mes "[Telma]";
  797. mes "It's seen your storage cannot accept more items.";
  798. mes "Go to your store and check the free space.";
  799. close;
  800. }
  801. }
  802. }
  803. else
  804. { // Check Weight Limit
  805. if( checkweight(.@Items[.@j],.@total) == 0 )
  806. {
  807. mes "[Telma]";
  808. mes "It's seen you can't carry the stuff you want to buy.";
  809. mes "Go and store some items on your Kafra Storage.";
  810. close;
  811. }
  812. }
  813.  
  814. if( .@i7828 > countitem(7828) || .@i7829 > countitem(7829) || .@i7773 > countitem(7773) )
  815. {
  816. mes "[Telma]";
  817. mes "What!?, are you a magician or a thief? What did you do with your badges!?";
  818. mes "Get out of here!";
  819. close;
  820. }
  821.  
  822. delitem 7828,.@i7828;
  823. delitem 7829,.@i7829;
  824. delitem 7773,.@i7773;
  825.  
  826. if( .@cID )
  827. {
  828. if( .@Destiny )
  829. storeitem2 .@Items[.@j],.@total,1,0,0,254,0,.@cID&0xffff,(.@cID>>16)&0xffff;
  830. else
  831. getitem2 .@Items[.@j],.@total,1,0,0,254,0,.@cID&0xffff,(.@cID>>16)&0xffff;
  832. }
  833. else
  834. {
  835. if( .@Destiny )
  836. storeitem .@Items[.@j],.@total;
  837. else
  838. getitem .@Items[.@j],.@total;
  839. }
  840.  
  841. mes "[Telma]";
  842. mes "Here it is... Now take care and fight for the honor and glory of your prince.";
  843. close;
  844. }
  845.  
  846. volterra,1,1,3,7828 sshop BraveryExchanger 111,4709:1250,4719:1250,4729:1250,4739:1250,4749:1250,4759:1250
  847. volterra,1,1,3,7829 sshop ValorExchanger 111,20060:1000,20061:1000,20062:1000,20063:1000,20064:1000,20065:1000
  848. volterra,1,1,3,7773 sshop HeroismExchanger 111,1309:2000,13414:2000,1224:4000,1225:4000,1228:5000,1230:5000
  849.  
  850. volterra,113,180,3 script Battlegrounds Shop 109,{
  851. mes "[Erundek]";
  852. mes "Welcome, mighty warrior.";
  853. mes "What can I do for you today ?";
  854. next;
  855. switch( select("Bravery Badges Shop","Valor Badges Shop","Battle Badges Shop","Hmm, nothing I guess.") )
  856. {
  857. case 4:
  858. mes "[Erundek]";
  859. mes "As you wish.";
  860. mes "See you later.";
  861. close;
  862. case 1: // Bravery Badges
  863. mes "[Erundek]";
  864. mes "So you want to exchange ^0000FFBravery Badges^000000 from the Battle of Tierra Valley.";
  865. mes "Close this window to open shop.";
  866. close2;
  867. callshop "BraveryExchanger",0;
  868. end;
  869. case 2: // Valor Badges
  870. mes "[Erundek]";
  871. mes "So you want to exchange ^FF0000Valor Badges^000000 from the Battle of Flavius.";
  872. mes "Close this window to open shop.";
  873. close2;
  874. callshop "ValorExchanger",0;
  875. end;
  876. case 3: // Heroism Badges
  877. mes "[Erundek]";
  878. mes "So you want to exchange ^FFA500Heroism Badges^000000 from the Battle of Kriger Von Midgard.";
  879. mes "Close this window to open shop.";
  880. close2;
  881. callshop "HeroismExchanger",0;
  882. end;
  883. }
  884. }
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!