[itemdef i_soccer_ball]



id=i_cannon_ball



name=Soccer Ball



type=t_soccer_ball







on=@create



color=029



attr=08010







on=@dclick



if <distance>>2



src.sysmessage You're too far.



return 1



else



SRC.STAM=<SRC.STAM>-5



f_calcio



if <src.dir>==0



var.mov=0 -1 0



f_shoot



return 1



elseif (<src.dir>==1)



var.mov=1 -1 0



f_shoot



return 1



elseif (<src.dir>==2)



var.mov=1 0 0



f_shoot



return 1



elseif (<src.dir>==3)



var.mov=1 1 0



f_shoot



return 1



elseif (<src.dir>==4)



var.mov=0 1 0



f_shoot



return 1



elseif (<src.dir>==5)



var.mov=-1 1 0



f_shoot



return 1



elseif (<src.dir>==)



var.mov=1 0 0



f_shoot



return 1



elseif (<src.dir>==6)



var.mov=-1 0 0



f_shoot



return 1



elseif (<src.dir>==7)



var.mov=-1 -1 0



f_shoot



return 1



endif



endif







ON=@TIMER



IF (<VAR.TIME>>>0)



MOVE=<VAR.MOV>



VAR.TIME=<EVAL (<VAR.TIME>-1)>



f_shoot



ENDIF







ON=@CLICK



if <distance>>2



src.sysmessage You're too far.



return 1



elseif (rand(100)>><SRC.STAM>)



src.emote can't stop the ball



else



src.emote stops the ball!



TIMER=-1



endif







[function f_calcio]



if (rand(10)==0)



var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)-1)>



src.emote shoots the ball!



elseif (rand(10)==1)



var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)-2)>



src.emote shoots the ball!



elseif (rand(10)==2)



var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)-3)>



src.emote shoots the ball!



elseif (rand(10)==3)



var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)+1)>



src.emote shoots the ball!



elseif (rand(10)==4)



var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)+2)>



src.emote shoots the ball!



elseif (rand(10)==5)



var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)+3)>



src.emote shoots the ball!



elseif (rand(10)==9) && elseif (rand(100)>><SRC.STAM>)



src.emote can't shoot the ball!



var.time=0



else



var.time=<eval ((<SRC.STAM>+<SRC.STR>)/10)>



src.emote shoots the ball!



endif







[typedef t_soccer_ball]



on=@step



IF elseif (rand(100)>><SRC.STAM>)



src.emote loses the ball.



ELSE



f_step



ENDIF







[function f_shoot]



TIMER=1



//STR gain



IF ((<SRC.STR><<60) && (rand(25)==1))



SRC.STR=<SRC.STR>+1



ELSEIF ((<SRC.STR><<70) && (rand(30)==1))



SRC.STR=<SRC.STR>+1



ELSEIF ((<SRC.STR><<80) && (rand(40)==1))



SRC.STR=<SRC.STR>+1



ELSEIF ((<SRC.STR><<90) && (rand(45)==1))



SRC.STR=<SRC.STR>+1



ELSEIF ((<SRC.STR><<100) && (rand(50)==1))



SRC.STR=<SRC.STR>+1



ENDIF







[function f_step] //DEX gain and STAM loss



IF ! (SRC.TAG.SBALL)



SRC.TAG.SBALL=0



ELSE



SRC.TAG.SBALL=<SRC.TAG.SBALL>+1



ENDIF



IF (<SRC.TAG.BALL>==10)



SRC.STAM=(SRC.STAM)-1



SRC.TAG.SBALL=0



ENDIF



TIMER=-1



IF ((<SRC.DEX><<60) && (rand(100)==1))



SRC.DEX=<SRC.DEX>+1



ELSEIF ((<SRC.DEX><<70) && (rand(200)==1))



SRC.DEX=<SRC.DEX>+1



ELSEIF ((<SRC.DEX><<80) && (rand(300)==1))



SRC.DEX=<SRC.DEX>+1



ELSEIF ((<SRC.DEX><<90) && (rand(400)==1))



SRC.DEX=<SRC.DEX>+1



ELSEIF ((<SRC.DEX><<100) && (rand(0)==1))



SRC.DEX=<SRC.DEX>+1



ENDIF



if <src.dir>==0



move=0 -1 0



elseif <src.dir>==1



move=1 -1 0



elseif <src.dir>==2



move=1 0 0



elseif <src.dir>==3



move=1 1 0



elseif <src.dir>==4



move=0 1 0



elseif <src.dir>==5



move=-1 1 0



elseif <src.dir>==6



move=-1 0 0



elseif <src.dir>==7



move=-1 -1 0



endif