Gemi Scripting lazım arkadaslar

Öncelikle Merhaba Arkadaşlar. Bana Acilen Gemi Scp'si Lazım Gemide Ağ Attıgım Zaman Geminin Kasasına Düşücek Cıkan Balıklar Yardımcı Olursanız Sevınırım. İyi Günler..

@xenox katılıyorum

olta ile tutulan balıkların ve in mani ylem büyüsüyle yapılan yiyeceklerin çantana düşmesi için fix eventinin altına aşağıdaki yazdığım kodu koy ;

on=@ItemDropOn_Ground
if (<act.attr> == 04008)
	act.attr 0
endif

if (<eval <weight>+<act.weight>>) < <maxweight>)
	if ((<action> == id(skill_fishing)) || (<action> == skill_fishing))
		if ((<act.type> == t_fish) || (<act.baseid> == i_shell) || (<act.baseid> == i_bottle_define))
 			act.bounce
		endif
 	elseif ((<action> == id(skill_magery)) || (<action> == skill_magery))
		if (<act.type> == t_food)
			act.bounce
		endif
	endif
endif

ağ ile tutturduğun balıkların gemi kasasına düşmesi içinde aşağıdaki scripti kullan;

[ITEMDEF i_fishing_net_green]
ID=i_fishing_net_3
VALUE=1600
WEIGHT=5
NAME=special fishing net
RESOURCES=20 I_CLOTH, 1 I_SHELL
SKILLMAKE=TAILORING 65.3
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fishing Net

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

On=@Click
message @1153,,1 Balıkçı ağı
return 1

on=@DClick
IF ! (<MORE1> == 1000 )
MESSAGE @1153,,1 [ağ kurulu]
RETURN 1

ELSEIF (<SRC.FISHING> < 90.0)
src.sys_error Bunu kullanabilmek için 90.0 Fishing skilline sahip olmalısınız.
RETURN 1
        src.ctag.agatti 00
ELSEIF !(<SRC.REGION.FLAGS>&region_flag_ship)
	src.smsh Bunu yalnızca gemide kullanabilirsiniz.
        src.tag0.agatti 00
	RETURN 1
ELSEIF !(<REGION.FLAGS>&region_flag_ship)
	src.smsh Bunu yalnızca gemide kullanabilirsiniz.
        src.tag0.agatti 00
	RETURN 1
ELSEIF (strmatch('<src.ctag.agatti>','01'))
        src.sys_error Önceden attığınız ağ parçalanmadan yenisini atamazsınız.
        return 1
ELSEIF  (<src.uid> == <cont.cont.uid>)
        src.ctag.agatti 01
src.say_normal Hoyde ! Rasgele !
        src.sys_normal Ağı attınız.
MORE1=100
        DROP
        REMOVE
Serv.newitem i_fishnet_spawner2
new.equip
new.MORE1 6
new.timer 3
new.morep <src.p>
ATTR=0010
TIMER=(<SRC.FINDID.i_fishnet_spawner2.MORE1> * <SRC.FINDID.i_fishnet_spawner2.TIMER>)
RETURN 1
        src.sys_error Ağ parçalandı.
        src.ctag.agatti 00

ENDIF
RETURN 1

ON=@Timer
timer=10
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
ref1=<topobj.uid>
if (<cont>)
if !(<more1> = 0)
                if !(<ref1.REGION.FLAGS>&region_flag_ship)
                ref1.sys_error Gemiden ayrıldığınız için ağ işlemi iptal oldu.
                more1 0
                timer 1
                cont.ctag.agatti 00
                return 1
                endif
more1 -= 1
timer = 1
                ref1.sys_normal Denizden çıkanlar ambara yüklendi.
serv.newitem { i_shell 1 i_fish_big_1 1 i_fish_big_2 1 i_fish_big_3 1 i_fish_big_4 1 }
new.amount = <qval (<ref1.fishing> == 1000)?12:10> 
                if (0<var.ship.<ref1.region.uid>.hatch>)
                new.cont <var.ship.<ref1.region.uid>.hatch>
                return 1
                endif
                foritems 20
                if ((<type> == t_ship_hold_lock) || (<type> == t_ship_hold)) && (<region.uid> == <ref1.region.uid>)
                new.cont <uid>
                return 1
                endif
                endfor
elseif (<more1> = 0)
                cont.sys_error Ağ parçalandı.
                cont.ctag.agatti 00
if (rand(10) == 1)
if (rand(8) == 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 45
cont.tag.fact
cont.sys_normal 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.say_normal * Dibe doğru dalar *
more2 1
timer 45
return 1
else
cont.remove 1
remove
return 1
endif

anca dalga geçsinler yardım alanı bura arkadaşlar unutuyorsunuz bazı şeyleri ... geyik alanı değil ...

yardım için yazılan bi soruya cewap milyonda 1 gelir ama iş dalgaya geldimi saldırırsınız