///////////////////////////////////////////////////////////////////////
// *Scripter Name : -
// *Shard Name : The Rosario Game
// *Shard Address : www.rosario.gen.tr
// *Personal Address : www.raskolserna.com
// *Messenger and E-Mail : raskolserna@msn.com
// *Sphere Version : Specially 0.56b and maybe other releases
//
// *Bu kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// *The codes are written or were edited by TheRaskol (Raskol Serna).
///////////////////////////////////////////////////////////////////////

[ITEMDEF i_fishing_net_green]
ID=i_fishing_net_3
VALUE=500
WEIGHT=2
NAME=special fishing net
RESOURCES=10 I_ROPE, 10 I_THREAD, 4 I_SHELL
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fishing Net

On=@Create
attr attr_decay
COLOR=color_o_verite
MORE1=1000

on=@DClick

if (<src.region.guarded> == 1)
src.sysmessage @0845,1,1 Şehir içinde balık tutamazsınız!
RETURN 1
endif

IF ! (<MORE1> == 1000 )
MESSAGE [ag kurulu]
RETURN 1

ELSEIF (<SRC.FISHING> < 90.0)
src.sysmessage @0845,1,1 Bunu kullanmak için 90 fishing skilline sahip olmalısınız!
RETURN 1
ELSEIF !(<SRC.REGION.FLAGS>®ion_flag_ship)
src.sysmessage @0845,1,1 Bunu sadece gemilerde kullanabilirsiniz !
RETURN 1
ELSEIF !(<REGION.FLAGS>®ion_flag_ship)
src.sysmessage @0845,1,1 Bunu sadece gemilerde kullanabilirsiniz !
RETURN 1
ELSEIF (<src.uid> == <cont.cont.uid>)
DROP
SRC.sayua 048,6,6,0 Haydi rastgele!
MORE1=100
SRC.NEWITEM i_fishnet_spawner2
SRC.ACT.EQUIP
SRC.ACT.MORE1={6 8}
SRC.ACT.TIMER={3 5}
SRC.ACT.MOREP=<SRC.P>
ATTR=0010
TIMER=(<SRC.FINDID.i_fishnet_spawner2.MORE1> * <SRC.FINDID.i_fishnet_spawner2.TIMER>)
RETURN 1
ENDIF

RETURN 1

ON=@Timer
attr attr_decay
REMOVE
RETURN 1


[ITEMDEF i_fishnet_spawner2]
NAME=fishnet spawner
ID=i_gold
TYPE=T_EQ_SCRIPT
WEIGHT=0
LAYER=layer_special

ON=@Create
ATTR=attr_invis|attr_decay

ON=@Equip
TIMER=1

ON=@Timer
if (<cont>)
if !(<more1> = 0)
more1 = <more1> - (1)
cont.newitem { i_fish_big_1 1 i_fish_big_2 1 i_fish_big_3 1 i_fish_big_4 1 }
cont.act.p = <morep>
cont.act.amount = {10 12}
cont.act.update
timer = 1
return 1
elseif (<more1> = 0)
if (rand(50) == 1)
if (rand(50) == 1)
cont.newnpc c_dolphin
else
cont.newnpc c_sea_serpent
endif
cont.act.p <morep>
cont.act.move 12
cont.tag.fact <cont.act.uid>
cont.newitem i_sedo_remove
cont.act.cont <cont.tag.fact>
cont.act.timer 300
cont.tag.fact
cont.sysmessage @666,1,1 Ağınıza büyük bir şeyler takılır.
endif
remove
return 1
endif
endif
remove
return 1

[itemdef i_sedo_remove]
ID=i_memory
TYPE=t_eq_script
NAME=serpent&dolphin remover!

On=@Create
attr attr_decay

On=@Timer
if !(<more2>)
cont.flags <cont.flags>|04
cont.anim 4
cont.sayua 020,6,6,0 * dibe doğru dalar *
more2 1
timer 4
return 1
else
cont.remove 1
remove
return 1
endif