Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //==========Start/Announcer NPC
- quiz_02,323,234,3 script Satan Catcher Event 793,{
- set .@name$,"^9932CC[Satan Catcher] ^000000";
- if(getgmlevel() < 80) {
- mes .@name$;
- mes "Sorry you are no Level 80 GM";
- close;
- } else {
- L_Main:
- mes .@name$;
- mes "What do you want to do?";
- switch(select("Item [" + getitemname($SReward) + "]:Start Event")) {
- case 1: next;
- mes .@name$;
- mes "What item do you want as the reward?";
- input $SatanReward;
- next;
- mes .@name$;
- mes "How many of that item(s) do you want to give?";
- input $SatanRewardItems;
- next;
- mes .@name$;
- mes "This is your amount:";
- mes ""+$SatanRewardItems+"";
- next;
- goto L_Main;
- case 2: next;
- mes .@name$;
- mes "Starting Event...";
- close2;
- Announce "Satan Catcher Event is being held!",bc_all;
- sleep2 5000;
- Announce "The warp portal has appeared in prontera!",bc_all;
- enablenpc "satanevent";
- disablenpc "rewardevent";
- initnpctimer;
- end;
- OnTimer30000:
- Announce "Thirty Seconds Have Passed By!",bc_all;
- sleep2 5000;
- Announce "Hurry to Prontera if you want to join!",bc_all;
- end;
- OnTimer40000:
- Announce "Twenty seconds left!",bc_all;
- end;
- OnTimer50000:
- Announce "Ten seconds left!",bc_all;
- end;
- OnTimer55000:
- Announce "5!",bc_all;
- sleep2 1000;
- Announce "4!",bc_all;
- sleep2 1000;
- Announce "3!",bc_all;
- sleep2 1000;
- Announce "2!",bc_all;
- sleep2 1000;
- Announce "1!",bc_all;
- sleep2 1000;
- Announce "0!",bc_all;
- sleep2 1000;
- disablenpc "satanevent";
- donpcevent "Rewarder::OnEnable";
- stopnpctimer;
- end;
- }
- }
- OnInit:
- disablenpc "satanevent";
- hideonnpc "Rewarder";
- end;
- }
- //=================Warp NPC
- prontera,155,180,0 warp satanevent 1,1,poring_w01,102,113
- //=================Reward NPC
- poring_w01,100,127,5 script Rewarder 793,{
- set .@name$,"^9932CC[Rewarder] ^000000";
- mes .@name$;
- if(.@SATAN == 1) goto L_SATAN;
- mes "Please tell me your name.";
- next;
- input .@charname$;
- if(.@charname$ != strcharinfo(0)) {
- mes .@name$;
- mes "Are you sure that is your character name?";
- close;
- }
- mes .@name$;
- mes "Congratulations You Have Won!";
- Announce "Congratulations to " + .@charname$ + "! He / She has won " + $SatanRewardItems + " " + getitemname($SatanReward) + "(s)!",bc_all;
- getitem $SatanReward,$SatanRewardItems;
- atcommand "@go 0";
- hideonnpc "Rewarder";
- end;
- L_SATAN:
- mes .@name$;
- mes "Please tell me your name";
- next;
- input .@charname$;
- if(.@charname$ != strcharinfo(0)) {
- mes .@name$;
- mes "Are you sure that is your character name?";
- close;
- }
- mes .@name$;
- mes "Congratulations You Have Won!";
- Announce "Congratulations to " + .@charname$ + "! He / She has won " + $SatanRewardItems + " " + getitemname($SatanReward) + "(s)!",bc_all;
- getitem $SatanReward,$SatanRewardItems;
- set SATAN,0;
- atcommand "@go 0";
- hideonnpc "Rewarder";
- end;
- OnEnable:
- set .@aname$,"[Rewarder]";
- mapannounce "poring_w01","" + .@aname$ + ": I will be summoning 100 different kinds of Satan Morroc.",16;
- sleep2 5000;
- mapannounce "poring_w01","" + .@aname$ + ": Only one of these Satan Morrocs are the real one.",16;
- sleep2 5000;
- mapannounce "poring_w01","" + .@aname$ + ": The correct one will be called 'Satan Morroc'.",16;
- sleep2 5000;
- mapannounce "poring_w01","" + .@aname$ + ": Kill the wrong one, you're out. Kill the right one, you win.",16;
- sleep2 5000;
- mapannounce "poring_w01","" + .@aname$ + ": Now let's play!",16;
- goto L_Start;
- end;
- L_Start:
- set .@aname$,"[Rewarder]";
- mapannounce "poring_w01","" + .@aname$ + ": 5!",16;
- sleep2 1000;
- mapannounce "poring_w01","" + .@aname$ + ": 4!",16;
- sleep2 1000;
- mapannounce "poring_w01","" + .@aname$ + ": 3!",16;
- sleep2 1000;
- mapannounce "poring_w01","" + .@aname$ + ": 2!",16;
- sleep2 1000;
- mapannounce "poring_w01","" + .@aname$ + ": 1!",16;
- sleep2 1000;
- mapannounce "poring_w01","" + .@aname$ + ": GO!",16;
- sleep2 1000;
- areamonster "poring_w01",84,119,121,90,"Satan Morroc",3031,1,"satanwin::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Satanic Morroc",3031,10,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Satan Moroc",3031,10,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Satan Morocc",3031,10,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Satin Mrroc",3031,10,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"I am Satan Morroc",3031,5,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Corrom Natas",3031,1,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"SaTaN MoRrOc",3031,1,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Sattan Morroc",3031,1,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Say Ten More Rocks",3031,10,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Satan of the Morroc",3031,10,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Morroc's Satan",3031,10,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"S4t4n M0rr0c",3031,10,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Saten Morroc",3031,10,"satanlose::OnMobKilled";
- areamonster "poring_w01",84,119,121,90,"Stan Morrc",3031,1,"satanlose::OnMobKilled";
- end;
- }
- //========Killed the right one
- - script satanwin -1,{
- set .@aname$,"[Rewarder]";
- OnMobKilled:
- dispbottom "Satan Morroc: ASDFGHJKL; You found me.";
- set .@SATAN,1;
- atcommand "@doommap";
- killmonster "poring_w01","All";
- mapannounce "poring_w01","" + .@aname$ + " Come to me and tell me your name.",16;
- hideoffnpc "Rewarder";
- end;
- }
- //========Killed the wrong one
- - script satanlose -1,{
- OnMobKilled:
- dispbottom "Satan Morroc: ASDFGHJKL; You haven't found my twin!";
- atcommand "@go 0";
- end;
- }
- // -- Mapflags (If Wanted)
- poring_w01 mapflag nowarp
- poring_w01 mapflag nowarpto
- poring_w01 mapflag noteleport
- poring_w01 mapflag nosave
- poring_w01 mapflag nomemo
- poring_w01 mapflag nobranch
- poring_w01 mapflag noloot
- poring_w01 mapflag noskill
- poring_w01 mapflag nopenalty
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement