//===== Athena Script =====================================
//= Cluck! Cluck! Boom!
//===== By Keale of VoidRO ================================
//= http://voidro.com
//===== Description =======================================
//= Click the chicken and try retrieve the item at a low 
//= chance. If you fail he will nuke, freeze, stone, 
//= stun, or make you fall asleep.
//= The prize is configurable and triggered by the NPC.
//===== Credits ===========================================
//= LuTze for his 'Chicken of Punishment' script.
//= BrianL for suggesting the 'switch' command.
//===== Version ===========================================
//= v1.1
//=========================================================
//= v1.0 - First release.
//= v1.1 - Using 'switch rand' instead.
//=========================================================
 
prontera,156,219,4  script  Cluckers    800,{
 
if ($@startcluck == 1) goto L_playcluck;
 
cluckcluck:
    if (getgmlevel() >= 80) goto cluckadmin;
        mes "[Cluckers]";
        mes "Cluck cluck! Cluuuuuck?";
        mes "Cluck....";
    close;
    
cluckadmin:
        mes "[Cluckers]";
        mes "Cluck cluck! Cluuuuuck? ^FF0000~Hi GM " + strcharinfo(0) + ", Wanna play today?~^000000";
        mes "Cluck cluck... CLUCK! ^FF0000~Just tell me what to do!~^000000";
        switch(select("Start Event:Check Prize:Set Prize:Not today Cluckers")) {
case 1:
        next;
        mes "[Cluckers]";
        mes "CLUCK! ^FF0000~Sure thing!~^000000";
        emotion 33;
        close2;
        goto L_cluckannounce;
case 2:
        next;
        mes "[Cluckers]";
        mes "Cluck, cluck cluck... Cluck! ^FF0000~The current prize is^000000 ^008000"+ $cluck_item_amount +" "+ getitemname($cluck_item_id) +".^000000";
        next;
        goto cluckadmin;
case 3:
        next;
        mes "[Cluckers]";
        mes "Cluck cluck? Cluck??? ^FF0000~What should the prize for winning be? Please input the ID.~^000000";
        input $cluck_item_id;
        next;
        mes "[Cluckers]";
        mes "Cluck? cluuuck? ^FF0000~How many if this item should I give away?~^000000";
        input $cluck_item_amount;
        next;
        mes "[Cluckers]";
        mes "Cluck cluck..? Cluck. ^FF0000~So, the prize is^000000 ^008000"+ $cluck_item_amount +" "+ getitemname($cluck_item_id) +"^000000? ^FF0000Great.~^000000";
        emotion 33;
        next;
        goto cluckadmin;
case 4:
        next;
        mes "[Cluckers]";
        mes "Cluck cluck cluck...";
        close;
}
 
L_cluckannounce:
        announce "[Cluck! Cluck! Boom!] is about to start in Prontera!",bc_blue;
        initnpctimer;
        end;
OnTimer10000:
        announce "Please hurry behind the fountain if you want to play with the crazy chicken!",bc_blue;
        end;
OnTimer20000:
        announce "Cluckers has eaten one of my items! I'm too scared to retrieve it!",bc_blue;
        end;
OnTimer30000:
        announce "Click the insane chicken and try squeeze out the item, if you're lucky you'll win! Are you ready?",bc_blue;
        end;
OnTimer40000:
        announce "GO! Click the chicken to get the prize!",bc_blue;
        set $@startcluck,1;
        end;
        
L_playcluck:
        specialeffect2 2;
        switch( rand(15) ) {
case 0:
        npctalk "CLUUUUUUCK!!!";
        emotion 23;
        atcommand "@nuke "+strcharinfo(0);
        break;
case 1:
        npctalk "Cluuuuuck!~";
        break;
case 2:
        atcommand "@nuke "+strcharinfo(0);
        break;
case 3:
        sc_start SC_Freeze,10000,0;
        break;
case 4:
        npctalk "CLUUUUUUUUUCK!!!";
        emotion 23;
        atcommand "@nuke "+strcharinfo(0);
        break;
case 5:
        sc_start SC_Sleep,10000,0;
        break;
case 6:
        emotion 29;
        sc_start SC_Stone,10000,0;
        break;
case 7:
        npctalk "CLUUUUUUCK!!!";
        emotion 23;
        atcommand "@nuke "+strcharinfo(0);
        break;
case 8:
        npctalk "Cluck! CLUUUCK!!";
        emotion 23;
        atcommand "@nuke "+strcharinfo(0);
        break;
case 9:
        sc_start SC_Stun,10000,0;
        break;
case 10:
        emotion 29;
        sc_start SC_Sleep,10000,0;
        break;
case 11:
        npctalk "Cluck! Cluck!";
        break;
case 12:
        sc_start SC_Stun,10000,0;
        break;
case 13:
        atcommand "@nuke "+strcharinfo(0);
        break;
default:
        if( rand(50) < 3 ) {
            npctalk "WOOF!...........";
            specialeffect2 72;
            announce "[Cluck! Cluck! Boom!] " + strcharinfo(0) + " Squeezed out the prize! Well done!",0;
            getitem $cluck_item_id,$cluck_item_amount;
            set $@startcluck,0;
        } else {
            npctalk "Cluck! CLUUUCK!!";
            atcommand "@nuke "+strcharinfo(0);
            }
        break;
    }
}