Cluck !

[Damon]

Hi.

I see on another server, an event Cluck, and the chicken move when player click it.

Can i have please ? o/

This, my Cluck script.

prontera,142,229,5	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 " + 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:
OnClock0015:
OnClock0215:
OnClock0415:
OnClock0615:
OnClock0815:
OnClock1015:
OnClock1215:
OnClock1415:
OnClock1615:
OnClock1715:
OnClock2015:
OnClock2215:
announce "[Cluck! Cluck! Boom!] va commencer ! Venez à Prontera !",bc_blue;
initnpctimer;
end;
OnTimer10000:
announce "Dépechez vous et venez au dessus de la fontaine de Prontera pour attraper le Poulet !",bc_blue;
end;
OnTimer20000:
announce "Il a mangé mes Gold Coins ! Attrapez le, et je vous les offrirais",bc_blue;
set $@startcluck,1;
end;

L_playcluck:
specialeffect2 2;
switch( rand(9) ) {
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;
default:
npctalk "WOOF!...........";
specialeffect2 72;
announce "[Cluck! Cluck! Boom!] " + strcharinfo(0) + " a gagné ! Bien joué !",0;
getitem 671,5;
set $@startcluck,0;
break;
}
}

(Or if you have the script already make, i take it too )

Thx a lot people !

Edited December 11, 2011 by Damon

[Emistry]

try this method...

Find this

L_playcluck:

add this line below it.

npcwalkto 142+rand(-10,10),229+rand(-10,10);

the result should be walking around the area of 10x10

with the Coordinate 142,229 as center.

[iFoxkun]

You can insert the commands:

npcspeed; (Adjusts the speed of players, just like @speed ingame)

npcwalkto; (Makes an npc move to a designated cell, most npc's don't have walking sprites)

npcstop; (makes an npc stop moving)

Ex.

OnTouch: (use this command)~

Edited December 11, 2011 by iFoxkun

[Damon]

Thx <3