Jump to content
  • 0
madtoyz

Setup Satan Catcher Event by Karul, make it auto event.

Question

Which part i need to writedown the OnClock in this script ?

 

//Made by Karul
//==========Start/Announcer NPC
izlude,142,184,3    script    Satan Catcher Event    793,{

set [email protected]$,"^9932CC[Satan Catcher] ^000000";

if(getgmlevel() < 80) {
    mes [email protected]$;
    mes "Sorry you are no Level 80 GM";
    close;
    } else {
    L_Main:
    mes [email protected]$;
    mes "What do you want to do?";
    switch(select("Item [" + getitemname([email protected]) + "]:Start Event")) {
            case 1: next;
                    mes [email protected]$;
                    mes "What item do you want as the reward?";
                    input [email protected];
                    next;
                    mes [email protected]$;
                    mes "How many of that item(s) do you want to give?";
                    input [email protected];
                    next;
                    mes [email protected]$;
                    mes "This is your amount:";
                    mes ""[email protected]+"";
                    next;
                    goto L_Main;
            case 2: next;
                    mes [email protected]$;
                    mes "Starting Event...";
                    close2;
                    Announce "Satan Catcher Event is being held!",bc_all;
                    sleep 5000;
                    Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                    enablenpc "satanevent";
                    initnpctimer;
                    end;
                    
                    OnTimer30000:
                            Announce "Thirty Seconds Have Passed By!",bc_all;
                            sleep 5000;
                            Announce "Hurry to infront of me 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;
                            sleep 1000;
                            Announce "4!",bc_all;
                            sleep 1000;
                            Announce "3!",bc_all;
                            sleep 1000;
                            Announce "2!",bc_all;
                            sleep 1000;
                            Announce "1!",bc_all;
                            sleep 1000;
                            Announce "0!",bc_all;
                            sleep 1000;
                            disablenpc "satanevent";
                            donpcevent "Rewarder::OnEnable";
                            stopnpctimer;
                            end;
        }
    }
OnInit:
disablenpc "satanevent";
hideonnpc "Rewarder";
}

//=================Warp NPC
izlude,140,182,0    warp    satanevent    1,1,2008rwc_08,50,51

//=================Reward NPC
2008rwc_08,50,51,5    script    Rewarder    793,{

set [email protected]$,"[Rewarder]";

    mes [email protected]$;
    if([email protected] == 1) goto L_SATAN;
    mes "Please tell me your name.";
    next;
    input [email protected]$;
    if([email protected]$ != strcharinfo(0)) {
        mes [email protected]$;
        mes "Are you sure that is your character name?";
        close;
    }
    mes [email protected]$;
    mes "Congratulations You Have Won!";
    Announce "Congratulations to " + [email protected]$ + "! He / She has won " + [email protected] + " " + getitemname([email protected]) + "(s)!",bc_all;
    getitem [email protected],[email protected];
    atcommand "@go 0";
    hideonnpc "Rewarder";
    end;
    
L_SATAN:
    mes [email protected]$;
    mes "Please tell me your name";
    next;
    input [email protected]$;
    if([email protected]$ != strcharinfo(0)) {
        mes [email protected]$;
        mes "Are you sure that is your character name?";
        close;
    }
    mes [email protected]$;
    mes "Congratulations You Have Won!";
    Announce "Congratulations to " + [email protected]$ + "! He / She has won " + [email protected] + " " + getitemname([email protected]) + "(s)!",bc_all;
    getitem [email protected],[email protected];
    set SATAN,0;
    atcommand "@go 0";
    hideonnpc "Rewarder";
    end;
    
OnEnable:
    set [email protected]$,"[Rewarder]";
    
    mapannounce "2008rwc_08","" + [email protected]$ + ": I will be summoning 100 different kinds of Satan Morroc.",16;
    sleep 5000;
    mapannounce "2008rwc_08","" + [email protected]$ + ": Only one of these Satan Morrocs are the real one.",16;
    sleep 5000;
    mapannounce "2008rwc_08","" + [email protected]$ + ": The correct one will be called 'Satan Morroc'.",16;
    sleep 5000;
    mapannounce "2008rwc_08","" + [email protected]$ + ": Kill the wrong one, you're out. Kill the right one, you win.",16;
    sleep 5000;
    mapannounce "2008rwc_08","" + [email protected]$ + ": Now let's play!",16;
    goto L_Start;
    end;

L_Start:
    set [email protected]$,"[Rewarder]";

    mapannounce "2008rwc_08","" + [email protected]$ + ": 5!",16;
    sleep 1000;
    mapannounce "2008rwc_08","" + [email protected]$ + ": 4!",16;
    sleep 1000;
    mapannounce "2008rwc_08","" + [email protected]$ + ": 3!",16;
    sleep 1000;
    mapannounce "2008rwc_08","" + [email protected]$ + ": 2!",16;
    sleep 1000;
    mapannounce "2008rwc_08","" + [email protected]$ + ": 1!",16;
    sleep 1000;
    mapannounce "2008rwc_08","" + [email protected]$ + ": GO!",16;
    sleep 1000;
    areamonster "2008rwc_08",39,63,63,45,"Satan Morroc",4200,1,"satanwin::OnMobKilled";
    areamonster "2008rwc_08",63,63,37,46,"Satanic Morroc",4200,10,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",39,63,63,45,"Satan Moroc",4200,10,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",63,63,37,46,"Satan Morocc",4200,10,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",39,63,63,45,"Satin Mrroc",4200,10,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",63,63,37,46,"I am Satan Morroc",4200,5,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",39,63,63,45,"Corrom Natas",4200,1,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",63,63,37,46,"SaTaN MoRrOc",4200,1,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",39,63,63,45,"Sattan Morroc",4200,1,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",63,63,37,46,"Say Ten More Rocks",4200,10,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",39,63,63,45,"Satan of the Morroc",4200,10,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",63,63,37,46,"Morroc's Satan",4200,10,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",39,63,63,45,"S4t4n M0rr0c",4200,10,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",63,63,37,46,"Saten Morroc",4200,10,"satanlose::OnMobKilled";
    areamonster "2008rwc_08",39,63,63,45,"Stan Morrc",4200,1,"satanlose::OnMobKilled";
    end;
}

//========Killed the right one
-    script    satanwin    -1,{

    set [email protected]$,"[Rewarder]";

OnMobKilled:
    dispbottom "Satan Morroc: ASDFGHJKL; You found me.";
    set [email protected],1;
    atcommand "@doommap";
    killmonster "2008rwc_08","All";
    mapannounce "2008rwc_08","" + [email protected]$ + " 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)
2008rwc_08    mapflag    nowarp
2008rwc_08    mapflag    nowarpto
2008rwc_08    mapflag    noteleport
2008rwc_08    mapflag    nosave
2008rwc_08    mapflag    nomemo
2008rwc_08    mapflag    nobranch
2008rwc_08    mapflag    noloot
2008rwc_08    mapflag    noskill
2008rwc_08    mapflag    nopenalty
 
Link to comment
Share on other sites

4 answers to this question

Recommended Posts

                    Announce "Satan Catcher Event is being held!",bc_all;
                    sleep 5000;
                    Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                    enablenpc "satanevent";
                    initnpctimer;
                    end;

Right above that, so it will look like this:

case 2: next;
                    mes [email protected]$;
                    mes "Starting Event...";
                    close2;
                    OnClockXXXX: //Placing this here, will have it start the NPC event.
                    Announce "Satan Catcher Event is being held!",bc_all;
                    sleep 5000;
                    Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                    enablenpc "satanevent";
                    initnpctimer;
                    end;

*Note - While this WILL make it auto-start. It will also error out the script, because the rewards aren't set. To fix this, simply change the [email protected]   into    $Variables.  This is because [email protected] is a Temp-Global var, and well, with an event like this that will continue to run and be on the server, you might as well use perm-global vars. 2 or 3 of these isn't gonna hurt your servers performancec at all.

Link to comment
Share on other sites

                    Announce "Satan Catcher Event is being held!",bc_all;
                    sleep 5000;
                    Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                    enablenpc "satanevent";
                    initnpctimer;
                    end;

Right above that, so it will look like this:

case 2: next;
                    mes [email protected]$;
                    mes "Starting Event...";
                    close2;
                    OnClockXXXX: //Placing this here, will have it start the NPC event.
                    Announce "Satan Catcher Event is being held!",bc_all;
                    sleep 5000;
                    Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                    enablenpc "satanevent";
                    initnpctimer;
                    end;

*Note - While this WILL make it auto-start. It will also error out the script, because the rewards aren't set. To fix this, simply change the [email protected]   into    $Variables.  This is because [email protected] is a Temp-Global var, and well, with an event like this that will continue to run and be on the server, you might as well use perm-global vars. 2 or 3 of these isn't gonna hurt your servers performancec at all.

 

when i find (ctrl+f) in script..i dont find any [email protected] ..

this is my script after editing OnClock

//Made by Karul
//==========Start/Announcer NPC
izlude,142,184,3	script	Satan Catcher Event	793,{

set [email protected]$,"^9932CC[Satan Catcher] ^000000";

if(getgmlevel() < 80) { 
	mes [email protected]$;
	mes "Sorry you are no Level 80 GM";
	close;
	} else {
	L_Main:
	mes [email protected]$;
	mes "What do you want to do?";
	switch(select("Item [" + getitemname([email protected])  + "]:Start Event")) {
			case 1: next;
					mes [email protected]$;
					mes "What item do you want as the reward?";
					input [email protected];
					next;
					mes [email protected]$;
					mes "How many of that item(s) do you want to give?";
					input [email protected]s;
					next;
					mes [email protected]$;
					mes "This is your amount:";
					mes ""[email protected]+"";
					next;
					goto L_Main;
			case 2: next;
					mes [email protected]$;
                    mes "Starting Event...";
                    close2;
                    OnClock0000: //Placing this here, will have it start the NPC event.
					OnClock0200:
					OnClock0400:
					OnClock0600:
					OnClock0800:
					OnClock1000:
					OnClock1200:
					OnClock1400:
					OnClock1600:
					OnClock1800:
					OnClock2000:
					OnClock2200:
                    Announce "Satan Catcher Event is being held!",bc_all;
                    sleep 5000;
                    Announce "The warp portal has appeared in izlude infront of me!",bc_all;
                    enablenpc "satanevent";
                    initnpctimer;
                    end;
					
					OnTimer30000:
							Announce "Thirty Seconds Have Passed By!",bc_all;
							sleep 5000;
							Announce "Hurry to infront of me 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;
							sleep 1000;
							Announce "4!",bc_all;
							sleep 1000;
							Announce "3!",bc_all;
							sleep 1000;
							Announce "2!",bc_all;
							sleep 1000;
							Announce "1!",bc_all;
							sleep 1000;
							Announce "0!",bc_all;
							sleep 1000;
							disablenpc "satanevent";
							donpcevent "Rewarder::OnEnable";
							stopnpctimer;
							end;
		}
	}
OnInit:
        disablenpc "satanevent";
        hideonnpc "Rewarder";
}

//=================Warp NPC
izlude,140,182,0	warp	satanevent	1,1,2008rwc_08,50,51

//=================Reward NPC
2008rwc_08,50,51,5	script	Rewarder	793,{

set [email protected]$,"[Rewarder]";

	mes [email protected]$;
	if([email protected] == 1) goto L_SATAN;
	mes "Please tell me your name.";
	next;
	input [email protected]$;
	if([email protected]$ != strcharinfo(0)) {
		mes [email protected]$;
		mes "Are you sure that is your character name?";
		close;
	}
	mes [email protected]$;
	mes "Congratulations You Have Won!";
	Announce "Congratulations to " + [email protected]$ + "! He / She has won " + [email protected] + " " + getitemname([email protected])  + "(s)!",bc_all;
	getitem [email protected],[email protected];
	atcommand "@go 0";
	hideonnpc "Rewarder";
	end;
	
L_SATAN:
	mes [email protected]$;
	mes "Please tell me your name";
	next;
	input [email protected]$;
	if([email protected]$ != strcharinfo(0)) {
		mes [email protected]$;
		mes "Are you sure that is your character name?";
		close;
	}
	mes [email protected]$;
	mes "Congratulations You Have Won!";
	Announce "Congratulations to " + [email protected]$ + "! He / She has won " + [email protected] + " " + getitemname([email protected])  + "(s)!",bc_all;
	getitem [email protected],[email protected];
	set SATAN,0;
	atcommand "@go 0";
	hideonnpc "Rewarder";
	end;
	
OnEnable:
	set [email protected]$,"[Rewarder]";
	
	mapannounce "2008rwc_08","" + [email protected]$ + ": I will be summoning 100 different kinds of Satan Morroc.",16;
	sleep 5000;
	mapannounce "2008rwc_08","" + [email protected]$ + ": Only one of these Satan Morrocs are the real one.",16;
	sleep 5000;
	mapannounce "2008rwc_08","" + [email protected]$ + ": The correct one will be called 'Satan Morroc'.",16;
	sleep 5000;
	mapannounce "2008rwc_08","" + [email protected]$ + ": Kill the wrong one, you're out. Kill the right one, you win.",16;
	sleep 5000;
	mapannounce "2008rwc_08","" + [email protected]$ + ": Now let's play!",16;
	goto L_Start;
	end;

L_Start:
	set [email protected]$,"[Rewarder]";

	mapannounce "2008rwc_08","" + [email protected]$ + ": 5!",16;
	sleep 1000;
	mapannounce "2008rwc_08","" + [email protected]$ + ": 4!",16;
	sleep 1000;
	mapannounce "2008rwc_08","" + [email protected]$ + ": 3!",16;
	sleep 1000;
	mapannounce "2008rwc_08","" + [email protected]$ + ": 2!",16;
	sleep 1000;
	mapannounce "2008rwc_08","" + [email protected]$ + ": 1!",16;
	sleep 1000;
	mapannounce "2008rwc_08","" + [email protected]$ + ": GO!",16;
	sleep 1000;
	areamonster "2008rwc_08",39,63,63,45,"Satan Morroc",4200,1,"satanwin::OnMobKilled";
	areamonster "2008rwc_08",63,63,37,46,"Satanic Morroc",4200,10,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",39,63,63,45,"Satan Moroc",4200,10,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",63,63,37,46,"Satan Morocc",4200,10,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",39,63,63,45,"Satin Mrroc",4200,10,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",63,63,37,46,"I am Satan Morroc",4200,5,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",39,63,63,45,"Corrom Natas",4200,1,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",63,63,37,46,"SaTaN MoRrOc",4200,1,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",39,63,63,45,"Sattan Morroc",4200,1,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",63,63,37,46,"Say Ten More Rocks",4200,10,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",39,63,63,45,"Satan of the Morroc",4200,10,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",63,63,37,46,"Morroc's Satan",4200,10,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",39,63,63,45,"S4t4n M0rr0c",4200,10,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",63,63,37,46,"Saten Morroc",4200,10,"satanlose::OnMobKilled";
	areamonster "2008rwc_08",39,63,63,45,"Stan Morrc",4200,1,"satanlose::OnMobKilled";
	end;
}

//========Killed the right one
-	script	satanwin	-1,{

	set [email protected]$,"[Rewarder]";

OnMobKilled:
	dispbottom "Satan Morroc: ASDFGHJKL; You found me.";
	set [email protected],1;
	atcommand "@doommap";
	killmonster "2008rwc_08","All";
	mapannounce "2008rwc_08","" + [email protected]$ + " 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)
2008rwc_08	mapflag	nowarp
2008rwc_08	mapflag	nowarpto
2008rwc_08	mapflag	noteleport
2008rwc_08	mapflag	nosave
2008rwc_08	mapflag	nomemo
2008rwc_08	mapflag	nobranch
2008rwc_08	mapflag	noloot
2008rwc_08	mapflag	noskill
2008rwc_08	mapflag	nopenalty

BUMP

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use and Privacy Policy.