//===== Athena Script ===================================== //= Cluck! Cluck! Boom! //===== By Keale of VoidRO ================================ //===== 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. //= v1.1 - Перевод на Русский =) by Sanasol //=========================================================
prontera,156,219,4 script Cluckers 800,{
if ($@startcluck == 1) goto L_playcluck;
cluckcluck: if (getgmlevel() >= 80) goto cluckadmin; mes "[Cluckers]"; mes ""Кла-кла-кла; mes "Кла-кла"; close;
cluckadmin: mes "[Cluckers]"; mes "Cluck cluck! Cluuuuuck? ^FF0000~Привет GM " + strcharinfo(0) + ", Хочешь погамать сегодня?~^000000"; mes "Cluck cluck... CLUCK! ^FF0000~Просто скажи мне что сделать!~^000000"; switch(select("Начать евент:Проверить приз:Установить приз:Кудахтать не сегодня")) { case 1: next; mes "[Cluckers]"; mes "CLUCK! ^FF0000~Конечно!~^000000"; emotion 33; close2; goto L_cluckannounce; case 2: next; mes "[Cluckers]"; mes "Cluck, cluck cluck... Cluck! ^FF0000~Текущий приз^000000 ^008000"+ $cluck_item_amount +" "+ getitemname($cluck_item_id) +".^000000"; next; goto cluckadmin; case 3: next; mes "[Cluckers]"; mes "Cluck cluck? Cluck??? ^FF0000~Какой будет приз? Введите ID вещи.~^000000"; input $cluck_item_id; next; mes "[Cluckers]"; mes "Cluck? cluuuck? ^FF0000~Какое кол-во призов дать?~^000000"; input $cluck_item_amount; next; mes "[Cluckers]"; mes "Cluck cluck..? Cluck. ^FF0000~Так-с Приз^000000 ^008000"+ $cluck_item_amount +" "+ getitemname($cluck_item_id) +"^000000? ^FF0000Превосходно.~^000000"; emotion 33; next; goto cluckadmin; case 4: next; mes "[Cluckers]"; mes "Cluck cluck cluck..."; close; }
L_cluckannounce: announce "[Cluck! Cluck! Boom!] начинается в Prontera!",bc_blue; initnpctimer; end; OnTimer10000: announce "Пожалуйста поспешите позади фонтана, если Вы хотите играть с сумасшедшим цыпленком!",bc_blue; end; OnTimer20000: announce "Цыпленок съела один из моих призов! Верни их!",bc_blue; end; OnTimer30000: announce "Тыкните на сумашедшего цыпленка чтобы выиграть.! Вы готовы??",bc_blue; end; OnTimer40000: announce "Го Кликайте!!!",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) + " Выиграл(а) приз! Великолепно",0; getitem $cluck_item_id,$cluck_item_amount; set $@startcluck,0; } else { npctalk "Cluck! CLUUUCK!!"; atcommand "@nuke "+strcharinfo(0); } break; } } }