Guest User

Untitled

a guest
Jul 7th, 2015
279
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.99 KB | None | 0 0
  1.  
  2. new_4-4,131,169,5 script Find the Baphomet 736,{
  3. mes "[ Find The Baphomet ]";
  4. if(getgmlevel() < 50) {
  5. if(.Event == 0) mes "There is no Find the Baphomet event.";
  6. else {
  7. mes "There is a Find the Baphomet event on now!";
  8. mes "Location: "+ .Map$;
  9. mes "Prize: " + getitemname(7227);
  10. mes "Number of Baphomets: " + .Baphomets;
  11. }
  12. close;
  13. }
  14. mes "Hello "+strcharinfo(0)+"! Please customize this event:";
  15. next;
  16. switch(select("Start Event:End Event")) {
  17. case 1:
  18. mes "Starting the event now...";
  19. .Event = 1;
  20. callsub OnStart;
  21. close;
  22.  
  23. case 2:
  24. mes "Ending the event now...";
  25. if(.Event) announce ""+strcharinfo(0)+" ended Find the Baphomet Event!",bc_all;
  26. killmonsterall .Map$;
  27. .Event = 0;
  28. close;
  29. }
  30.  
  31. OnMinute45: //CHANGE THIS TO THE MINUTE YOU WOULD LIKE THIS EVENT TO LOAD!
  32.  
  33. OnStart:
  34. announce "Find the Baphomet : It's time to play Find the Baphomet!",0;
  35. sleep 1000;
  36. .ran = rand(1,11);
  37. if (.ran == 11) .Map$ = "splendide";
  38. if (.ran == 10) .Map$ = "hugel";
  39. if (.ran == 9) .Map$ = "yuno";
  40. if (.ran == 8) .Map$ = "comodo";
  41. if (.ran == 7) .Map$ = "xmas";
  42. if (.ran == 6) .Map$ = "aldebaran";
  43. if (.ran == 5) .Map$ = "izlude";
  44. if (.ran == 4) .Map$ = "payon";
  45. if (.ran == 3) .Map$ = "geffen";
  46. if (.ran == 2) .Map$ = "morocc";
  47. if (.ran == 1) .Map$ = "prontera";
  48. sleep2 1000;
  49. .ran2 = rand(1,5);
  50. if (.ran2 == 5) .Baphomets = 5;
  51. if (.ran2 == 4) .Baphomets = 4;
  52. if (.ran2 == 3) .Baphomets = 3;
  53. if (.ran2 == 2) .Baphomets = 2;
  54. if (.ran2 == 1) .Baphomets = 1;
  55. announce "Find the Baphomet : The Baphomet has spawned in "+ .Map$ +"!",bc_all;
  56. sleep 10000;
  57. announce "Find the Baphomet : " + .Baphomets + " Baphomets have spawned in "+ .Map$ +"!",bc_all;
  58. sleep 10000;
  59. monster .Map$,0,0,"PLEASE DONT HIT ME!",1039,.Baphomets,strnpcinfo(0)+"::OnMobKilled";
  60. end;
  61.  
  62. OnMobKilled:
  63. mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",bc_all;
  64. Zeny += 100000000;
  65. getitem 7227,30;
  66. .Event = 0;
  67. end;
  68. }
Advertisement
Add Comment
Please, Sign In to add comment