[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 Cok uzaktasiniz.
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 Cok uzaktasiniz.
return 1
elseif (rand(100)>><SRC.STAM>)
src.sayu *Topu alamaz!*
else 
src.sayu *Topu alir!*
TIMER=-1
endif

[function f_calcio]
if (rand(10)==0)
var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)-1)>
src.sayu *Topa vurur!*
elseif (rand(10)==1)
var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)-2)>
src.sayu *Topa vurur!*
elseif (rand(10)==2)
var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)-3)>
src.sayu *Topa vurur!*
elseif (rand(10)==3)
var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)+1)>
src.sayu *Topa vurur!*
elseif (rand(10)==4)
var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)+2)>
src.sayu *Topa vurur!*
elseif (rand(10)==5)
var.time=<eval (((<SRC.STAM>+<SRC.STR>)/10)+3)>
src.sayu *Topa vurur!*
elseif (rand(10)==9) && elseif (rand(100)>><SRC.STAM>)
src.sayu *Topa vuramaz!*
var.time=0 
else
var.time=<eval ((<SRC.STAM>+<SRC.STR>)/10)>
src.sayu Topa vurur!
endif

[typedef t_soccer_ball]
on=@step
IF elseif (rand(100)>><SRC.STAM>)
src.sayu Topu kaybeder.
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