prontera,156,178,4	script	Cluckers	800,{
if (getgmlevel() >=60) goto cluckadmin;
if ($@startcluck == 1) goto L_playcluck;

cluckcluck:
	if (getgmlevel() >= 60) goto cluckadmin;
	mes "[Cluckers]";
	mes "Cluck cluck! Cluuuuuck?";
	mes "Cluck....";
	close;

GM:
	mes "[Cluckers]";
	mes "Cluck cluck! Cluuuuuck? ^FF0000~Hi GM " + strcharinfo(0) + ", Wanna stop the event?~^000000";
	mes "Cluck cluck... CLUCK! ^FF0000~Just tell me what to do!~^000000";
	next;
	switch(select("Stop Event","Check Prize","Cancel")) {
		case 1:
			set $@startcluck,0;
			mes "[Cluckers]";
			mes "Cluck cluck! Cluuuuuck!!";
			announce "Cluckers event has been stop by Admin / GM , Thanks for playing",bc_all;
			close;
		case 2:
			mes "[Cluckers]";
			mes "Cluck, cluck cluck... Cluck! ^FF0000~The current prize is^000000 ^008000"+ $cluck_item_amount +" "+ getitemname($cluck_item_id) +".^000000";
			close;
		case 3:
			mes "[Cluckers]";
			mes "Cluck cluck! Cluuuuuck?";
			mes "Cluck....";
			close;
		}

cluckadmin:
	if ($@startcluck == 1) goto GM;
		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!] Cluckers Events The Stealing Chicken Has Been Start At Prontera!",bc_blue;
initnpctimer;
	set(.starer$, escape_sql(strcharinfo(0)));
	end;
OnTimer10000:
	announce "Go to Prontera now!!!Event will be start...",bc_blue;
	end;
OnTimer20000:
	announce "Citizen of Prontera : A chicken has eaten my stuff!!!HELP....!!!",bc_all;
	end;
OnTimer30000:
	announce "Click Cluckers the stealer chicken!!If You're Lucky You Get The Prize!!Ready??",bc_blue;
	end;
OnTimer40000:
	announce "GO!Click Cluckers the stealer chicken and get the prize!!!",bc_all;
	query_sql("SELECT `key` FROM `event_log` WHERE `event` = 'Cluckers' AND `won_by` IS NULL", .@key);
	if(.@key)
		query_sql("UPDATE `event_log` SET `started_time` = NOW(), `started_by` = '" + .starer$ + "' WHERE `key` = " + .@key);
	else
		query_sql("INSERT INTO `event_log` (`started_time`, `event`, `started_by`) VALUES (NOW(), 'Cluckers', '" + .starer$ + "')");
	set $@startcluck,1;
	end;

L_playcluck:
	specialeffect2 2;
	switch( rand(24) ) {
		case 0:
			npctalk "Hahahahaha...Loe Apes Banget !!!";
			emotion 23;
			atcommand "@nuke "+strcharinfo(0);
			break;
		case 1:
			npctalk "Sorry kk Semua , Orang Jelek Ga Akan Dapet Hadiah~";
			break;
		case 2:
			npctalk "Ashh...Ngapaen Sih Colek2, Jablay Ya?:ngacir:";
			atcommand "@nuke "+strcharinfo(0);
			break;
		case 3:
			sc_start SC_FREEZE,10000,0;
			break;
		case 4:
			npctalk "Wakwkakwkawka...Anda Belum Beruntung";
			emotion 23;
			atcommand "@nuke "+strcharinfo(0);
			break;
		case 5:
			sc_start SC_SLEEP,10000,0;
			break;
		case 6:
			emotion 29;
			atcommand "@nuke "+strcharinfo(0);
			break;
		case 7:
			npctalk "Oi Kakak,Sudah Bosan Sama Manusia Ya?Kok Colek2 Ayam :ngakak";
			emotion 23;
			atcommand "@nuke "+strcharinfo(0);
			break;
		case 8:
			npctalk "Saya Ganteng Terima Kasih";
			emotion 23;
			atcommand "@nuke "+strcharinfo(0);
			break;
		case 9:
			nude;
			break;
		case 10:
			emotion 29;
			sc_start SC_SLEEP,10000,0;
			break;
		case 11:
			npctalk "http://27.111.34.120/CP";
			break;
		case 12:
			sc_start SC_STUN,10000,0;
			break;
		case 13:
			nude;
			break;
		case 14:
			sc_start SC_BLIND,10000,0;
			break;
		case 15:
			nude;
			break;
		case 16:
			npctalk "Kalau Colek2 Terus Saya Bunuh Terus Nih";
			nude;
			break;
		case 17:
			npctalk "http://27.111.34.120/CP";
			sc_start SC_CURSE,10000,0;
			break;
		case 18:
			npctalk "http://27.111.34.120/CP";
			nude;
			break;
		case 19:
			npctalk "Kapok Bugilll.....";
			sc_start SC_CURSE,10000,0;
			break;
		case 20:
			atcommand "@jump "+strcharinfo(0);
			break;
		case 21:
			atcommand "@jump "+strcharinfo(0);
			break;
		case 22:
			atcommand "@jump "+strcharinfo(0);
			break;
default:
	if( rand(50) < 3 ) {
		npctalk "WOOF!...........";
		specialeffect2 72;
		announce "[Cluck! Cluck! Boom!] "+strcharinfo(0)+" won the Cluck Event! He won a "+ $cluck_item_amount +" "+getitemname($cluck_item_id)+" !",0;
		getitem $cluck_item_id,$cluck_item_amount;
		query_sql("UPDATE `event_log` SET `won_by` = '" + escape_sql(strcharinfo(0)) + "', `won_time` = NOW(), `price_id` = " + $cluck_item_id + ", `price_amount` = " + $cluck_item_amount + " WHERE `event` = 'Cluckers' AND `won_by` IS NULL");
		set $@startcluck,0;
		}
	else {
		npctalk "Cluck! CLUUUCK!!";
		atcommand "@nuke "+strcharinfo(0);
		}
	break;
}
}

-	script	EDCluckers	-1,{
OnClock2200:
    announce "Cluckers : Uda Malem Neh~ , WaktuNya Bobok..Gua Pamit Pulang Dolo",bc_all;
    disablenpc "Cluckers";
    end;
OnClock0900:
    announce "Cluckers : Petok Petok Petok , Uda Pagi~ Saatnya Saya Kerja Kembali, Morning All",bc_all;
    enablenpc "Cluckers";
    end;
}