ok kardesım
[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
REF1=<SRC>
FORITEMS 5
IF (<REGION.UID> == <REF1.REGION.UID>)
IF (<TYPE> == t_ship_hold) || (<TYPE> == t_ship_hold_lock)
SRC.ACT.CONT=<UID>
ENDIF
ENDIF
ENDFOR
IF ! (<MORE1> == 1000 ) && (<topobj.uid> != <src.uid>)
MESSAGE @0481 [kurulu]
RETURN 1
ELSEIF (<SRC.FISHING> < 90.0)
SRC.message @0481 Bunu kullanmak icin 90 fishing skilline sahip olmalisiniz!
RETURN 1
ELSEIF !(<SRC.REGION.FLAGS>®ion_flag_ship)
SRC.message @0481 Bunu sadece gemilerde kullanabilirsiniz!
RETURN 1
ELSEIF !(<REGION.FLAGS>®ion_flag_ship)
SRC.message @0481 Bunu sadece gemilerde kullanabilirsiniz!
RETURN 1
ELSEIF new.cont <src.region.<Ref1>.uid> // (<src.uid> == <cont.cont.uid>)
DROP
src.sayua 0bb2,6,6,0 Hoyde! Rasstgele!
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
[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,40}
cont.act.update
timer = 1
return 1
elseif (<more1> = 0)
if (rand(10) == 1)
if (rand(5) == 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.smsx Ağınıza büyük birşeyler takıldı.
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 0bb2,6,6,0 * dibe doğru dalar *
more2 1
timer 4
return 1
else
cont.remove 1
remove
return 1
endif
kardesım kasaya atıyor amau hata cıktı
0:38:ERROR:(fishing.scp,42)Can't resolve <src.region.01570e.uid>
00:38:ERROR:(fishing.scp,42)Undefined symbol 'new'
Galiba sona ulastık basıc