Advertisement
Guest User

Untitled

a guest
Nov 8th, 2014
50
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.26 KB | None | 0 0
  1. guild_vs5,50,50,5 script Stage Game 437,{
  2. // Monster ID / Amount Initiating ( Check db/Mob_db.txt || db/Mob_db2.txt )
  3. setarray .Stage[0],
  4. 1315,35, // Stage 1 + Amount
  5. 1285,30, // Stage 2 + Amount
  6. 1831,30, // Stage 3 + Amount
  7. 1710,20, // Stage 4 + Amount
  8. 1711,20, // etc......
  9. 1833,25, //
  10. 1832,1; // Final Stage ( Max. ~64 Rounds )
  11.  
  12. // Reward ID / Amount Initiating ( Check db/Item_db.txt || db/Item_db2.txt )
  13. setarray .Reward[0],
  14. 20000,2, // Reward 1 + Amount
  15. 20001,2, // Reward 2 + Amount
  16. 20002,2, // etc......
  17. 20003,2, // etc......
  18. 20004,2, // etc......
  19. 7179,5; // Last Reward 1 ( Max. ~64 Items )
  20.  
  21. // MapFlags Initiating ( Check db/Cont.txt )
  22. setarray .MapFlags[0],0,1,2,3,4,5,11,13,14,15,22,29,30,31,32,33,34,35,38,41,43,44,47,49;
  23.  
  24. for( set .@mf,0; .@mf < getarraysize( .MapFlags ); set .@mf,.@mf + 1 )
  25. {
  26. setmapflag strcharinfo(3),.MapFlags[.@mf];
  27. }
  28. if( mobcount( strcharinfo(3),"all" ) > 0 || .Level > 0)
  29. {
  30. dispbottom "Just Kill All the Monster to Win the Game...";
  31. end;
  32. }
  33. set .Level,0;
  34. announce "[Level "+( (.Level/2)+1 )+"] : [ "+.Stage[.Level+1]+" x "+getmonsterinfo( .Stage[.Level],0)+" ]",bc_all,0x37FDFC;
  35. monster strcharinfo(3),0,0,"[Slave] "+getmonsterinfo( .Stage[.Level],0)+"",.Stage[.Level],.Stage[.Level+1],strnpcinfo(0)+"::OnMobKill";
  36. delwaitingroom;
  37. waitingroom "Left ["+mobcount( strcharinfo(3),strnpcinfo(0)+"::OnMobKill" )+"] Monster",0;
  38. end;
  39.  
  40. OnMobKill:
  41. delwaitingroom;
  42. if( mobcount( strcharinfo(3),strnpcinfo(0)+"::OnMobKill" ) == 0 && .Level < ( getarraysize( .Stage ) - 5 ) )
  43. {
  44. set .Level,.Level + 2;
  45. waitingroom "["+((( getarraysize( .Stage )/2 ) - .Level/2) - 1)+"] Rounds to Go.",0;
  46. for( set .@t,5; .@t > 0; set .@t,.@t - 1 )
  47. {
  48. announce "[Level "+( (.Level/2)+1 )+"] in "+.@t+" Seconds",bc_map,0x4EEE94,0,35;
  49. sleep2 1000;
  50. }
  51. announce "[Level "+( (.Level/2)+1 )+"] : [ "+.Stage[.Level+1]+" x "+getmonsterinfo( .Stage[.Level],0)+" ]",bc_all,0x37FDFC;
  52. monster strcharinfo(3),0,0,"[Slave] "+getmonsterinfo( .Stage[.Level],0)+"",.Stage[.Level],.Stage[.Level+1],strnpcinfo(0)+"::OnMobKill";
  53. }
  54. if( mobcount( strcharinfo(3),strnpcinfo(0)+"::OnMobKill" ) == 0 && .Level >= ( getarraysize( .Stage ) - 5 ) )
  55. {
  56. set .Level,.Level + 2;
  57. announce "BOSS Stage",bc_map,0xFF0000,0,90;
  58. specialeffect 563;
  59. sleep2 2000;
  60. for( set .@t,5; .@t > 0; set .@t,.@t - 1 )
  61. {
  62. specialeffect 563;
  63. announce "BOSS STAGE in "+.@t+" Seconds",bc_map,0xFF0000,0,60;
  64. sleep2 1000;
  65. }
  66. announce "[Level "+( (.Level/2)+1 )+"] : [ "+.Stage[.Level+1]+" x "+getmonsterinfo( .Stage[.Level],0)+" ]",bc_all,0x37FDFC;
  67. monster strcharinfo(3),0,0,"[BOSS] "+getmonsterinfo( .Stage[.Level],0)+"",.Stage[.Level],.Stage[.Level+1],strnpcinfo(0)+"::OnBossKill";
  68. }
  69. delwaitingroom;
  70. waitingroom "Left ["+mobcount( strcharinfo(3),strnpcinfo(0)+"::On"+( ( .Level-2 ) > ( getarraysize( .Stage ) - 5 ) ? "BossKill":"MobKill") )+"] Monster",0;
  71. end;
  72.  
  73. OnBossKill:
  74. delwaitingroom;
  75. if( mobcount( strcharinfo(3),strnpcinfo(0)+"::OnBossKill" ) > 0 )
  76. {
  77. waitingroom "Left ["+mobcount( strcharinfo(3),strnpcinfo(0)+"::OnBossKill")+"] Monster",0;
  78. end;
  79. }else{
  80. delwaitingroom;
  81. waitingroom "REWARD TIME",0;
  82. specialeffect 709;
  83. announce "Congratulation to Team [ "+getpartyname( getcharid(1) )+" ] who had just finished the Stage Game. ",0;
  84. getpartymember getcharid(1),1;
  85. getpartymember getcharid(1),2;
  86. set .@Location$,strcharinfo(3);
  87. for ( set .@i, 0; .@i < $@partymembercount; set .@i, .@i +1 )
  88. {
  89. if ( isloggedin($@partymemberaid[.@i]) )
  90. {
  91. attachrid $@partymemberaid[.@i];
  92. if( strcharinfo(3) == .@Location$ )
  93. {
  94. unittalk getcharid(3),"Yeehaaa !! We Beat ALL the Monster !!!";
  95. unitemote getcharid(3),e_heh;
  96. specialeffect2 709;
  97. for( set .@a,0; .@a < getarraysize( .Reward ); set .@a,.@a + 2 )
  98. getitem .Reward[.@a],.Reward[.@a+1], $@partymemberaid[.@i];
  99. dispbottom "Gained those items as Reward for Finishing Stage Game";
  100. }
  101. }
  102. }
  103. sleep2 5000;
  104. mapwarp strcharinfo(3),"prontera",155,180;
  105. set .Level,0;
  106. delwaitingroom;
  107. }
  108. OnInit:
  109. waitingroom "Click Me",0;
  110. end;
  111. }
  112.  
  113.  
  114. prontera,160,157,5 script Stage Game#Register 794,{
  115.  
  116. while(1){
  117. mes "Hello, i am ^FF0000Stage Game Manager^000000. How can i help you ?";
  118. mes "^0000FFRegistration Status^000000 : "+( getmapusers(.Map$) > 0 ?"^FF0000OFF":"^00FF00ON")+"^000000";
  119. mes "(^FF0000Only Leader can Register^000000)";
  120. mes "";
  121. mes "It is In ^FF0000BETA Test^000000.";
  122. next;
  123. switch(select("^00FF00Stage Game Information^000000",
  124. ( getmapusers(.Map$) > 0 || getcharid(0) != getpartyleader( getcharid(1),2 ) )?"":"^0000FFRegister for Stage Game^000000",
  125. ( getmapusers(.Map$) < 1 || getgmlevel() < 60 )?"":"^FF0000Reset Stage Game^000000")) {
  126.  
  127. Case 1:
  128. mes "^FF0000Stage Game^000000 is a small game that have alot of monster to be kill from round to round.";
  129. mes "With every increase or round you manage to reach, the monster could be stronger than before.";
  130. next;
  131. mes "You could win up some ^0000FFUnique^000000 prize upon you finished the whole ^FF0000Stage Game^000000";
  132. next;
  133. mes "In order to ^0000FFRegister^000000 for ^FF0000Stage Game^000000, all your party member must meet the ^0000FFRequirements^000000";
  134. next;
  135. mes "[ ^00FF00Requirements^000000 ]";
  136. mes "^0000FFBase Level^000000 : "+.Level+" Level";
  137. mes "^0000FFZeny^000000 : "+.Zeny+" Zeny ";
  138. mes "^0000FFParty Members^000000 : "+.PartyMember+" Members";
  139. mes "(^FF0000Level / Zeny only Applied on Leader ^000000 )";
  140. next;
  141. break;
  142. Case 2:
  143. // if( getgmlevel() < 80 ){
  144. // mes "Stage Game is under Debugging Development. Simple Game but Hard ";
  145. // close;
  146. // }
  147. getpartymember getcharid(1),1;
  148. getpartymember getcharid(1),2;
  149. set @Count,0;
  150. for ( set .@i, 0; .@i < $@partymembercount; set .@i, .@i +1 ){
  151. if ( isloggedin($@partymemberaid[.@i]) ){
  152. set @Count,@Count+1;
  153. }
  154. }
  155. if( @Count < .PartyMember || BaseLevel < .Level || Zeny < .Zeny ){
  156. mes "[ ^00FF00Requirements^000000 ]";
  157. mes "^0000FFBase Level^000000 : "+.Level+" Level";
  158. mes "^0000FFZeny^000000 : "+.Zeny+" Zeny ";
  159. mes "^0000FFParty Members^000000 : "+.PartyMember+" Members";
  160. mes "(^FF0000Level / Zeny only Applied on Leader ^000000 )";
  161. close;
  162. }else{
  163. set Zeny, Zeny - .Zeny;
  164. mes "Your party will now be warped into the Destination to start the Game.";
  165. dispbottom "Click on the NPC inside to start the game.";
  166. delwaitingroom "Stage Game";
  167. close2;
  168. announce "Team [ "+getpartyname( getcharid(1) )+"] has joined STAGE GAME.",0;
  169. warpparty .Map$,0,0,getcharid(1);
  170. killmonster .Map$,"All";
  171. set getvariableofnpc(.Level,"Stage Game"),0;
  172. end;
  173. }
  174. Case 3:
  175. mes "The Game has been Reset.";
  176. killmonster .Map$,"All";
  177. mapwarp .Map$,"prontera",155,180;
  178. announce "A GM has RESET the Stage Game, Sorry for the Incovenience.",0;
  179. set getvariableofnpc(.Level,"Stage Game"),0;
  180. delwaitingroom "Stage Game";
  181. next;
  182. break;
  183. }
  184. }
  185. close;
  186.  
  187. OnInit:
  188. waitingroom "Stage Game",0;
  189. OnWhisperGlobal:
  190. set .Level,1;
  191. set .Zeny,0;
  192. set .PartyMember,1;
  193. set .Map$,"guild_vs5";
  194. while(sleep2(1000))
  195. {
  196. delwaitingroom;
  197. waitingroom ( getmapusers(.Map$) > 0 ? " NOT":" " )+" Available",0;
  198. }
  199. end;
  200. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement