viewing paste Cluckers v1.1 | 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
//===== 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;
        }
}
Viewed 315 times, submitted by unknown.