viewing paste Unknown #22149 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206
//= Poring Catcher - Auto Event Script
//===== By: =================================================================================
//= Washi - www.EarthBound-RO.com
//===== Compatible With: ====================================================================
//= Any eAthena Version
//===== Description: ========================================================================
//= Single NPC that starts automatically starts every hour.
//===== Additional Comments: ================================================================
//= This script is a combenation of the Dice Event by [Mahina]
//= and the origonal Poring Catcher Event by [Wild Karrd]
//===========================================================================================
//= OnMinute - Change this to the minute you would like this script to load. [ LINE 22 ]
//= getitem - Change this to the Item ID of your prize. [ LINE 118 ]
//===========================================================================================
-       script  poring#announcer        -1,{
 
OnInit:
        disablenpc "poringevent";
        hideonnpc "poringevent";
        hideonnpc "Poring Catcher#evnt2";
        bindatcmd "poringcatch", strnpcinfo(3) +"::OnAtcommand",99,99;
        end;
 
OnAtcommand:
        announce "Poring Catcher : It's time to play some Poring Catcher!",bc_blue;
        announce "Poring Catcher : Prize will be  Credit.",bc_blue;
        killmonster "poring_w01","All";
        sleep2 10000;
        announce "Poring Catcher : Please make your way to the centre of Event Area.",bc_blue;
        sleep2 10000;
        announce "Poring Catcher : After one minute the portal will close.",bc_blue;
        sleep2 10000;
        announce "Poring Catcher : Enter the warp portal now if you want to join.",bc_blue;
        hideoffnpc "poringevent";
        enablenpc "poringevent";
        initnpctimer;
        end;
 
OnTimer30000:
        announce "Poring Catcher : Last 30 seconds.",bc_blue;
        sleep2 5000;
        announce "Poring Catcher : Hurry to the upper Left of dewata if you want to join.",bc_blue;
        end;
       
OnTimer50000:
        announce "Poring Catcher : Last 10 seconds.",bc_blue;
        end;
       
OnTimer55000:
        announce "Poring Catcher : 5.",bc_blue;
        end;
       
OnTimer56000:
        announce "Poring Catcher : 4.",bc_blue;
        end;
       
OnTimer57000:
        announce "Poring Catcher : 3.",bc_blue;
        end;
       
OnTimer58000:
        announce "Poring Catcher : 2.",bc_blue;
        end;
       
OnTimer59000:
        announce "Poring Catcher : 1.",bc_blue;
        end;
       
OnTimer60000:
        announce "Poring Catcher : Time's up! Portal will open again in 1 hour.",bc_blue;
        end;
       
OnTimer61000:
        disablenpc "poringevent";
        hideonnpc "poringevent";
        donpcevent "Poring Catcher#evnt2::OnEnable";
        stopnpctimer;
        end;
        }
       
//--------------------------------------------------
       
prontera,150,150,0      warp    poringevent     2,2,poring_w01,106,129 
       
//--------------------------------------------------
 
poring_w01,100,127,4    script  Poring Catcher#evnt2    715,{
 
//--------------------------------------------------
 
        mes "[Poring Catcher]";
        if(PORING_c == 1) goto L_PORING;
        mes "Please tell me your name";
        next;
        input .@name$;
        if(.@name$ != strcharinfo(0)) {
                mes "[Poring Catcher]";
                mes "Are you sure thats your character name?";
                close;
        }
        mes "[Poring Catcher]";
        mes "Congrats. You've won.";
        close2;
        announce "Poring Catcher : All laugh at, "+.@name$+". - This player tried to cheat the system. Muhahahahaha!",bc_blue;
        warp "dicastes01",197,184;
        end;
 
L_PORING:
        mes "Please tell me your name";
        next;
        input .@name$;
        if(.@name$ != strcharinfo(0)) {
                mes "[Poring Catcher]";
                mes "Are you sure thats your character name?";
                close;
        }
        mes "[Poring Catcher]";
        mes "Congrats. You've won.";
        close2;
        announce "Poring Catcher : We have a winner, "+.@name$+". - Event Award Won!",0;
 
        getitem 7227,2;
        //set zeny,zeny+1000000;
 
        set PORING_c,0;
        warp "dicastes01",197,184;
        hideonnpc "Poring Catcher#evnt2";
        end;
       
OnEnable:
        mapannounce "poring_w01","Poring Catcher : I will be summoning 100 different Porings.",0;
        sleep2 10000;
        mapannounce "poring_w01","Poring Catcher : Only one of these Porings is the correct Poring.",0;
        sleep2 10000;
        mapannounce "poring_w01","Poring Catcher : The correct Poring is called [ Poring ], all the other Porings have different names.",0;
        sleep2 10000;
        mapannounce "poring_w01","Poring Catcher : Take your time because if you kill the wrong Poring, your out of the game.",0;
        sleep2 10000;
        mapannounce "poring_w01","Poring Catcher : The first player to kill the correct Poring wins.",0;
        sleep2 10000;
        mapannounce "poring_w01","Poring Catcher : That's that.. Now let's play...",0;
        goto L_Start;
        end;
       
L_Start:
        mapannounce "poring_w01","Poring Catcher : 5",0;
        sleep2 1000;
        mapannounce "poring_w01","Poring Catcher : 4",0;
        sleep2 1000;
        mapannounce "poring_w01","Poring Catcher : 3",0;
        sleep2 1000;
        mapannounce "poring_w01","Poring Catcher : 2",0;
        sleep2 1000;
        mapannounce "poring_w01","Poring Catcher : 1",0;
        sleep2 1000;
        mapannounce "poring_w01","Poring Catcher : Lets Do This!",0;
        areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Pouring",1002,10,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Proing",1002,10,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Poiring",1002,10,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Poing",1002,10,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"I am not Poring",1002,5,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Gniriop",1002,1,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Porring",1113,1,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Porinng",1062,1,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Poriiing",1002,10,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"PoriNgg",1002,10,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Porong",1002,10,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled";
        areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled";
        end;
}
 
-       script  poringwin       -1,{
 
OnMobKilled:
        dispbottom "Poring : Congratulations. You've got me.";
        set PORING_c,1;
        atcommand "@doommap";
        killmonster "poring_w01","All";
        mapannounce "poring_w01","Poring Catcher : Come to me and tell me your name.",0;
        hideoffnpc "Poring Catcher#evnt2";
        end;
 
}
 
-       script  poringlose      -1,{
 
OnMobKilled:
        dispbottom "Poring Catcher : Wahaha, your a loser! - I wasnt the correct Poring.";
        warp "florian",111,150;
        end;
 
}
 
// -- Mapflags
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
Viewed 874 times, submitted by unknown.