viewing paste Unknown #10983 | 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
//= 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 "Poring Catcher#evnt2";
    end;
 
OnMinute05: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR.
 
    announce "Poring Catcher : It's time to play some Poring Catcher!",0;
    killmonster "poring_w01","All";
    sleep2 10000;
    announce "Poring Catcher : Please make your way to the centre of Prontera.",0;
    sleep2 10000;
    announce "Poring Catcher : After one minute the portal will close.",0;
    sleep2 10000;
    announce "Poring Catcher : Enter the warp portal now if you want to join.",0;
    enablenpc "poringevent";
    initnpctimer;
    end;
 
OnTimer30000:
    announce "Poring Catcher : Last 30 seconds.",0;
    sleep2 5000;
    announce "Poring Catcher : Hurry to the centre of Prontera if you want to join.",0;
    end;
    
OnTimer50000:
    announce "Poring Catcher : Last 10 seconds.",0;
    end;
    
OnTimer55000:
    announce "Poring Catcher : 5.",0;
    end;
    
OnTimer56000:
    announce "Poring Catcher : 4.",0;
    end;
    
OnTimer57000:
    announce "Poring Catcher : 3.",0;
    end;
    
OnTimer58000:
    announce "Poring Catcher : 2.",0;
    end;
    
OnTimer59000:
    announce "Poring Catcher : 1.",0;
    end;
    
OnTimer60000:
    announce "Poring Catcher : Time's up. Portal Will Open again in one hour.",0;
    end;
    
OnTimer67000:
    disablenpc "poringevent";
    donpcevent "Poring Catcher#evnt2::OnEnable";
    stopnpctimer;
    end;
    }
    
//--------------------------------------------------
    
prontera,155,172,0  warp    poringevent 2,2,poring_w01,106,129  
    
//--------------------------------------------------
 
poring_w01,100,127,4    script  Poring Catcher#evnt2    715,{
 
//--------------------------------------------------
 
    mes "[Poring Catcher]";
    if(VARPORING == 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!",0;
    warp "prontera",156,188;
    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$+". - got 2 pcs. Guardian Coin!",0;
 
    getitem 6465,2;  // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE
//  set zeny,zeny+100000;
 
    set VARPORING,0;
    warp "prontera",156,188;
    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 VARPORING,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 "prontera",156,188;
    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 1304 times, submitted by Guest.