Jump to content
  • 0

help me need to make auto poring catcher

jpnazar

Asked by jpnazar,

 Share

Question

jpnazar Poring

jpnazar

Posted
  • Group:  Members
  • Topic Count:  75
  • Topics Per Day:  0.02
  • Content Count:  170
  • Reputation:   1
  • Joined:  03/26/13
  • Last Seen:  
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]
Link to comment
Share on other sites

8 answers to this question

Recommended Posts

Emistry Deviling

Emistry

Posted
  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10015
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  
Posted

change all $@ to $

Link to comment
Share on other sites
jpnazar Poring

jpnazar

Posted
  • Group:  Members
  • Topic Count:  75
  • Topics Per Day:  0.02
  • Content Count:  170
  • Reputation:   1
  • Joined:  03/26/13
  • Last Seen:  
  • Author
Posted

done for this :)

Link to comment
Share on other sites
jpnazar Poring

jpnazar

Posted
  • Group:  Members
  • Topic Count:  75
  • Topics Per Day:  0.02
  • Content Count:  170
  • Reputation:   1
  • Joined:  03/26/13
  • Last Seen:  
  • Author
Posted

but how to fix the price not entering it in game?

Link to comment
Share on other sites
Emistry Deviling

Emistry

Posted
  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10015
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  
Posted

but how to fix the price not entering it in game?

elaborate more ? hmm?

Link to comment
Share on other sites
jpnazar Poring

jpnazar

Posted
  • Group:  Members
  • Topic Count:  75
  • Topics Per Day:  0.02
  • Content Count:  170
  • Reputation:   1
  • Joined:  03/26/13
  • Last Seen:  
  • Author
Posted

fvwd5.jpg

In game i enter the price every restart server , i want to fix it when restart server the price not reset . sorry for bad english

Link to comment
Share on other sites
jpnazar Poring

jpnazar

Posted
  • Group:  Members
  • Topic Count:  75
  • Topics Per Day:  0.02
  • Content Count:  170
  • Reputation:   1
  • Joined:  03/26/13
  • Last Seen:  
  • Author
Posted

which line ?

Link to comment
Share on other sites
llchrisll Santa Poring

llchrisll

Posted
  • Group:  Members
  • Topic Count:  12
  • Topics Per Day:  0.00
  • Content Count:  626
  • Reputation:   188
  • Joined:  11/19/11
  • Last Seen:  
Posted

which line ?

Like Emistry saied, EVERY $@, like in $@SatanReward and $@SatanRewardItems.

So each line those variables appear.

 

Regards,

Chris

Link to comment
Share on other sites
jpnazar Poring

jpnazar

Posted
  • Group:  Members
  • Topic Count:  75
  • Topics Per Day:  0.02
  • Content Count:  170
  • Reputation:   1
  • Joined:  03/26/13
  • Last Seen:  
  • Author
Posted

THANKS SIR :D

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.

×
 Share
Go to question listing
×
×
  • Create New...