crash788 - 17-01-2011 18:38 GMT -
Selamün aleyküm, başlıktan da anlaşılacağı gibi ağ ile tutulan balıkların gemi kasasına düşmesini istiyorum biraz araştırma yaptım ancak cözüm bulamadım. Nasıl yapılacağı hakkında da bir bilgim olmadığı için sizlerin yardımına ihtiyaç duydum.
Ne demişler, " Akıl akıldan üstündür "
Selamün aleyküm, başlıktan da anlaşılacağı gibi ağ ile tutulan balıkların gemi kasasına düşmesini istiyorum biraz araştırma yaptım ancak cözüm bulamadım. Nasıl yapılacağı hakkında da bir bilgim olmadığı için sizlerin yardımına ihtiyaç duydum.
Ne demişler, " Akıl akıldan üstündür "
Red Bull - 17-01-2011 19:03 GMT -
Bunu dene ?
Son güncelleme: TheRaskol tarafından 17-01-2011 19:23 GMT tarihinde, önce.
Kod:
[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=@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.sysh_trk Bunu kullanabilmek için 90.0 Fishing skilline sahip olmalısınız.
RETURN 1
src.ctag.agatti 00
ELSEIF !(<SRC.REGION.FLAGS>®ion_flag_ship)
src.sysh_trk Bunu sadece gemilerde kullanabilirsiniz.
RETURN 1
ELSEIF !(<REGION.FLAGS>®ion_flag_ship)
src.sysh_trk Bunu Sadece gemilerde kullanabilirsiniz.
RETURN 1
ELSEIF (strmatch('<src.ctag.agatti>','01'))
src.sysh_trk Ö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_trk Hoyde ! Rasgele !
src.sys_trk 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.sysh_trk 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>®ion_flag_ship)
ref1.sysh_trk 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_trk Denizden çıkanlar ambara yüklendi.
serv.newitem { 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.sysh_trk 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_trk 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_trk * Dibe doğru dalar *
more2 1
timer 45
return 1
else
cont.remove 1
remove
return 1
endif
[ITEMDEF i_fish_prize]
NAME=prize fish
ID=i_fish_small
TYPE=t_fish
VALUE=7
WEIGHT=1
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Prize Fish (magic)
on=@create
COLOR=colors_brown
on=@dclick
SOUND=snd_spell_cunning
SRC.SPELLEFFECT=10,100
REMOVE
RETURN 1
[ITEMDEF i_fish_wondrous]
NAME=wondrous fish
ID=i_fish_small
TYPE=t_fish
VALUE=7
WEIGHT=1
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Wondrous Fish (magic)
on=@Create
COLOR=colors_blue
on=@DClick
SOUND=snd_spell_agility
SRC.SPELLEFFECT=9,100
REMOVE
RETURN 1
[ITEMDEF i_fish_rare]
NAME=truly rare fish
ID=i_fish_small
TYPE=t_fish
VALUE=7
WEIGHT=1
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Truly Rare Fish (magic)
on=@Create
COLOR=colors_orange
on=@DClick
SOUND=snd_spell_strength
SRC.SPELLEFFECT=16,100
REMOVE
RETURN 1
[ITEMDEF i_fish_peculiar]
NAME=highly peculiar fish
ID=i_fish_small
TYPE=t_fish
VALUE=7
WEIGHT=1
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Highly Peculiar Fish (magic)
on=@Create
COLOR=colors_green
on=@DClick
SOUND=snd_spell_agility
src.stamina = <src.stamina>+10
IF <src.stamina> > <src.dex>
src.stamina = <src.dex>
ENDIF
REMOVE
RETURN 1
Bunu dene ?
Son güncelleme: TheRaskol tarafından 17-01-2011 19:23 GMT tarihinde, önce.
kargasa - 17-01-2011 19:07 GMT -
Kod:
on=@itemdropon_ground
if (<eval <weight> + <act.weight>> < <maxweight>) && (<action> == skill_fishing)
ref1 <region.uid>
ref2 <ref1.more1>
if (<ref1.type> == t_ship) && (<ref2> == <src>)
foritems 18
if (<region.uid> == <ref1>) && (<type> == t_fish)
cont <ref1.hatch>
endif
endfor
endif
endif
crash788 - 17-01-2011 19:38 GMT -
- Redbull ve Kargasa ilginiz için çok teşekkürler. Sorunum kalmadı.
- Redbull ve Kargasa ilginiz için çok teşekkürler. Sorunum kalmadı.
Jackiess - 26-01-2011 04:45 GMT -
redbull verdiği scriptdeki türkçe karakterleri silmeyi unutma.
redbull verdiği scriptdeki türkçe karakterleri silmeyi unutma.