Jump to content
  • 0

help me need to make auto poring catcher

jpnazar

Asked by jpnazar,

 Share

Question

jpnazar Poring

jpnazar

Posted
Posted (edited)

here is my poring catcher how can i make this auto event every 1 hr



//Made by Karul
//==========Start/Announcer NPC
quiz_02,323,234,3    script    Poring Catcher Event    793,{

set .@name$,"^9932CC[Poring 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($@SatanReward)  + "]: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 "Poring Catcher Event is being held!",bc_all;
                    sleep 5000;
                    Announce "The warp portal has appeared in prontera!",bc_all;
                    enablenpc "satanevent";
                    initnpctimer;
                    end;
                    
                    OnTimer30000:
                            Announce "Thirty Seconds Have Passed By!",bc_all;
                            sleep 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;
                            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
prontera,155,180,0    warp    satanevent    1,1,poring_w01,102,113
prontera,115,93,5    script    DisguiseEvent    858,{
OnInit:
    waitingroom "Disguise Event",0;
    end;
end;
}

//=================Reward NPC
poring_w01,100,127,5    script    Rewarder    793,{

set .@sname$,"[Rewarder]";

    mes .@sname$;
    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 .@sname$;
    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 Poring.",16;
    sleep 5000;
    mapannounce "poring_w01","" + .@aname$ + ": Only one of these Porings are the real one.",16;
    sleep 5000;
    mapannounce "poring_w01","" + .@aname$ + ": The correct one will be called 'Poring'.",16;
    sleep 5000;
    mapannounce "poring_w01","" + .@aname$ + ": Kill the wrong one, you're out. Kill the right one, you win.",16;
    sleep 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;
    sleep 1000;
    mapannounce "poring_w01","" + .@aname$ + ": 4!",16;
    sleep 1000;
    mapannounce "poring_w01","" + .@aname$ + ": 3!",16;
    sleep 1000;
    mapannounce "poring_w01","" + .@aname$ + ": 2!",16;
    sleep 1000;
    mapannounce "poring_w01","" + .@aname$ + ": 1!",16;
    sleep 1000;
    mapannounce "poring_w01","" + .@aname$ + ": GO!",16;
    sleep 1000;
    areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"satanwin::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Pouring",1002,20,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Proing",1002,10,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Poiring",1002,20,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Poing",1002,10,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"I am not Poring",1002,5,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Gniriop",1002,1,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Poring",1113,1,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Poring",1062,1,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Poriiing",1002,10,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"PoriNg",1002,10,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Porong",1002,10,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"satanlose::OnMobKilled";
    areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"satanlose::OnMobKilled";
    end;
}

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

    set .@aname$,"[Rewarder]";

OnMobKilled:
    dispbottom "Poring: 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 "Poring: 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
 

 

 

Edited by Emistry
Changed [Quote] to [Code]

8 answers to this question

Recommended Posts

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.

×
 Share
Go to question listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...