Fishing System (Balıkçılık Sistemi)

Aslında başka bir server için yazmıştım ama kapandığı için artık bir önemi kalmadı sizle paylaşmak istedim

Fishing Sistemi Nedir?


Balığı yakalarken.


Bıçak ile kesiyoruz katana veya cutlass gibi itemler ile değil bıçakla :).


Üstümüze gelecekler


Sonra balıkları pişirelim


Yemekler gelsin




Eğer yinede balıklar yuvarlak kalsın istiyorsanız birdaha balığı kesmeniz yeterlidir.

Eğer balıklar üst üste gelmiyorsa alttaki alternatif linklerden dosyayı indirip tiledataları uo için atın

adresinden tiledatayı indiriniz.

Alternatif Linkler:
https://rapidshare.com/files/265543863/tiledata.rar.html
https://uploaded.to/file/q3i9zo
https://www.webfilehost.com/?mode=viewupload&id=4288347
https://ultrashare.net/hosting/fl/712cbc5a04/tiledata

Scripts:

//*************************************
// YAZAR: xwerswoodx
// YAPIM: Hamit Devecioğlu (C)2003-2009
// TARIH: 08.08.2009
// SAAT : 19:37
// KONU : Balikcilik Sistemi
//*************************************
VERSION=0.56b

//Dagger / Skinning Knife / Butcher Knife On=@Targon_item altına:
if (<src.targ.baseid>==i_fish_big_2) || (<src.targ.baseid>==i_fish_big_4) || (<src.targ.baseid>==i_fish_big_5) || (<src.targ.baseid>==i_fish_big_6) || (<src.targ.baseid>==i_fish_big_10) || (<src.targ.baseid>==i_fish_big_12)
src.targ.remove
src.f_palik_2
return 1
elseif (<src.targ.baseid>==i_fish_big_1) || (<src.targ.baseid>==i_fish_big_3)
 || (<src.targ.baseid>==i_fish_big_11) || (<src.targ.baseid>==i_fish_big_7) || (<src.targ.baseid>==i_fish_big_8) || (<src.targ.baseid>==i_fish_big_9)
src.targ.remove
src.f_palik_1
return 1
elseif (<src.targ.dispid>==i_fish_raw_whole) || (<src.targ.dispid>==01e16) || (<src.targ.dispid>==i_fish_raw) || (<src.targ.dispid>==01e18)

src.targ.remove
src.newitem i_fish_cut_raw,<eval <src.targ.amount>*4>
new.bounce
return 1
endif

[REGIONRESOURCE mr_fishxx]
SKILL=60.0,100.0
AMOUNT=5,7
AMOUNT=5
AMOUNT=7
REAP={i_fish_big_10 i_fish_big_11 i_fish_big_12}
REGEN=44*60*10

[REGIONRESOURCE mr_fishxxx]
SKILL=70.0,100.0
AMOUNT=5,7
AMOUNT=5
AMOUNT=7
REAP={i_fish_big_5 i_fish_big_6 i_fish_big_7 i_fish_big_8}
REGEN=44*60*10

[Itemdef i_fish_cooked_head]
Id=i_fish_raw_head
Name=Cooked Head
Type=t_food
Value 8

On=@Create
color=024

[Itemdef i_fish_cooked_head_nw]
Id=01e1a
Name=Cooked Head
Type=t_food
Value 8

On=@Create
Color=024

[ITEMDEF 01e19]
//Balik Kafasi Kuzey (NW)
DEFNAME=i_fish_raw_head_nw
VALUE=4
WEIGHT=.1
TYPE=T_FOOD_RAW
TDATA1=i_fish_cooked_head_nw
CATEGORY=Items by Professions
SUBSECTION=Cook
DESCRIPTION=Fish Head
DUPELIST=01e1a

[ITEMDEF 01e1a]
//Balik Kafasi Kuzey (SW)
DEFNAME=i_fish_raw_head
VALUE=4
WEIGHT=.1
TYPE=T_FOOD_RAW
TDATA1=i_fish_cooked_head
CATEGORY=Items by Professions
SUBSECTION=Cook
DESCRIPTION=Fish Head
DUPELIST=01e1a

[Itemdef i_fish_cooked_whole]
Id=i_fish_raw_whole
Name=Cooked Fish
Type=t_food
Value 20

On=@Create
Color=024

[Itemdef i_fish_cooked_whole_nw]
Id=01e16
Name=Cooked Fish
Type=t_food
Value 20

On=@Create
Color=024

[ITEMDEF i_fish_big_10]
ID=09cf
VALUE=2
NAME=Kefal Baligi
TYPE=T_FISH
WEIGHT=0.5
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fish

ON=@CREATE
COLOR=033

ON=@DClick
BOUNCE
RETURN 1

[ITEMDEF i_fish_big_11]
ID=09ce
VALUE=2
NAME=Istavrit Baligi 
TYPE=T_FISH
WEIGHT=0.5
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fish

ON=@CREATE
COLOR=05

ON=@DClick
BOUNCE
RETURN 1

[ITEMDEF i_fish_big_12]
ID=09cd
VALUE=2
NAME=Sazan Baligi
TYPE=T_FISH
WEIGHT=0.5
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fish

ON=@CREATE
COLOR=041

ON=@DClick
BOUNCE
RETURN 1

[ITEMDEF i_fish_big_5]
ID=i_fish_big_4
VALUE=2
NAME=Berber Baligi
TYPE=T_FISH
WEIGHT=0.5
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fish

ON=@CREATE
COLOR=023

ON=@DClick
BOUNCE
RETURN 1

[ITEMDEF i_fish_big_6]
ID=i_fish_big_4
VALUE=2
NAME=Demasoni Baligi
TYPE=T_FISH
WEIGHT=0.5
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fish

ON=@CREATE
COLOR=06

ON=@DClick
BOUNCE
RETURN 1

[ITEMDEF i_fish_big_7]
ID=i_fish_big_1
VALUE=2
NAME=Hani Baligi
TYPE=T_FISH
WEIGHT=0.5
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fish

ON=@CREATE
COLOR=096

ON=@DClick
BOUNCE
RETURN 1

[ITEMDEF i_fish_big_8]
ID=i_fish_big_3
VALUE=2
NAME=Ahli Baligi
TYPE=T_FISH
WEIGHT=0.5
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fish

ON=@CREATE
COLOR=065

ON=@DClick
BOUNCE
RETURN 1

[ITEMDEF i_fish_big_9]
ID=i_fish_big_1
VALUE=2
NAME=Sari Prenses Baligi
TYPE=T_FISH
WEIGHT=0.5
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Fish

ON=@CREATE
COLOR=035

ON=@DClick
BOUNCE
RETURN 1

[Function f_palik_1]
src.newitem i_fish_raw,<eval <eval <src.targ.amount>>*2>
new.bounce
src.newitem i_fish_raw_head,<eval <src.targ.amount>>
new.bounce
return 1

[Function f_palik_2]
src.newitem 01e18,<eval <eval <src.targ.amount>>*2>
new.bounce
src.newitem 01e16,<eval <src.targ.amount>>
new.bounce
return 1

[ITEMDEF i_knife_fishing]
DEFNAME=i_knife_fishing
NAME=fishing knife
ID=i_knife_skinning
TYPE=T_WEAPON_FENCE
FLIP=1
RESOURCES=2 i_ingot_iron, 1 i_log
SKILLMAKE=TINKERING 27.0
DAM=9,11
SPEED=49
SKILL=Swordsmanship
REQSTR=5
TWOHANDS=N
WEIGHT=1
DUPELIST=0ec5
CATEGORY=Provisions - Weapons
SUBSECTION=Knives & Daggers
DESCRIPTION=Fishing Knife

ON=@Create
	HITPOINTS={50 60}

On=@Targon_item
if (<src.targ.baseid>==i_fish_big_2) || (<src.targ.baseid>==i_fish_big_4) || (<src.targ.baseid>==i_fish_big_5) || (<src.targ.baseid>==i_fish_big_6) || (<src.targ.baseid>==i_fish_big_10) || (<src.targ.baseid>==i_fish_big_12)
src.targ.remove
dorand 2
src.f_palik_4
src.f_palik_2
enddo
new.bounce
return 1
elseif (<src.targ.baseid>==i_fish_big_1) || (<src.targ.baseid>==i_fish_big_3)
 || (<src.targ.baseid>==i_fish_big_11) || (<src.targ.baseid>==i_fish_big_7) || (<src.targ.baseid>==i_fish_big_8) || (<src.targ.baseid>==i_fish_big_9)
src.targ.remove
dorand 2
src.f_palik_3
src.f_palik_1
enddo
return 1
elseif (<src.targ.dispid>==i_fish_raw_whole) || (<src.targ.dispid>==01e16) || (<src.targ.dispid>==i_fish_raw) || (<src.targ.dispid>==01e18)

src.targ.remove
src.newitem i_fish_cut_raw,<eval <src.targ.amount>*2>
new.bounce
return 1
endif

Bu konu xwerswoodx tarafından düzenlendi(2009-08-10 16:31, 14 yıl önce)

kapandı server bide serverin forumunda attıydım o yüzden sansürlü diildi ama baştan uplşoad yaparım şimdi

düzelttik işte mızmızlanma

Ağzımızı Silmek İçin Peçete Scriptide Yaz Tam OLsun :p

xwerswoodx : Genetic istediğin bu olsun :D:D

[Itemdef i_pecete]
id=i_paper //Attım he ciddi diilim 
Name=Pecete
Type=t_pecete

On=@Create
Color=0480

On=@Click
message @026 <name>
return 1

On=@Dclick
src.emote Agzini siler
remove
return 1

@static

saol kanka

ooooh işte şimdi tam keyif Yakında senden Bir Çilingir Sofrası Scripti Bekliyoruz Peynir,Ton Balığı , Rakı Falan :)

xwerswoodx :

[Template masa]
Region=i_table //:D
Item=i_white_cheese
Item=i_ton_baligi
Item=i_raki

[Itemdef i_raki]
Id=i_bottle
Name=Raki
Type=t_bottle

On=@Create
Color=color_o_white

On=@click
message @07a1 <name>
return 1

On=@Dclick
src.emote <name> icer
return 1

[Itemdef i_ton_baligi]
Id=i_fish_cut_cooked
Name=Ton baligi
Type=t_food

On=@Create
Color=color_o_brown

On=@click
message @07a1 <name>
return 1

On=@Dclick
src.emote <name> yer

istediğin bu olsun :D:D

Ohoo Bizide Mahçup Duruma Düşürdün Söz Bende Sana Lbr Yer Masası Yapıcam :p

Herşey iyi güzel fakat bir eksiğimiz var dansozumuz nerde hadi güzellik yapıyım size dansozde benden :D:D

[CHARDEF C_dansoz]
NAME=[ASENA]
ID=C_WOMAN
CAN=MT_WALK|MT_EQUIP|MT_FEMALE
DESIRES=i_gold,e_notoriety
TEVENTS=e_Human_Greet
TEVENTS=e_Human_ConvInit
TEVENTS=e_dansoz

TSPEECH=jobdansoz
TSPEECH=spk_rehello

ON=@Create
COLOR=colors_hot_bod
STR={86 90}
DEX={91 100}
INT={71 85}

NPC=brain_Human


ITEMNEWBIE=i_hair_buns
COLOR=colors_red
ITEMNEWBIE=i_show_timer
TIMER=10
ITEMNEWBIE=i_backpack

ON=@NPCRestock
ITEM=i_earrings_gold
COLOR=colors_all
ITEM=i_ring_gold
COLOR=colors_all
ITEM=i_bracelet_gold
COLOR=colors_all
ITEM=i_necklace_gold
COLOR=colors_all
ITEM=loot_dans_clothes

[SPEECH jobdansoz]
ON=*bayil*
ON=*sagdan*
ON=*soldan*
ON=*oh oh*
DORAND 3
SAY @0bb2,,1 Az paraya bayilmam ?
SAY @0bb2,,1 Oh oh.
SAY @0bb2,,1 oda olmaz sagdan oh oh !!!
ENDDO
ON=*muzik*
ON=*para*
DORAND 2
SAY @0bb2,,1 mezleke isterim hih <SRC.NAME>
SAY @0bb2,,1 bayilir.. <SRC.NAME>
ENDDO

ON=*ask*
SAY @0bb2,,1 Herkez bana asik su guzellige kim dayanir.


[ITEMDEF i_dansoz_timer]
ID= i_memory
TYPE= t_eq_script
NAME=Dansoz
ON=@CREATE
TIMER=10
MORE=19

ON=@TIMER
IF (<MORE>==19)
CONT.FINDLAYER(21).EMPTY
CONT.ANIM 020
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==18)
CONT.ANIM 011
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==17)
CONT.ANIM 01e
CONT.say Gulumser
CONT.FINDLAYER(6).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==16)
CONT.ANIM 010
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==15)
CONT.ANIM 0c
CONT.FINDLAYER(7).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==14)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==13)
CONT.ANIM 0d
CONT.FINDLAYER(20).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==12)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==11)
CONT.ANIM 013
CONT.FINDLAYER(23).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==10)
CONT.ANIM 01e
CONT.say @07a1 * Utanir *
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==9)
CONT.ANIM 0c
CONT.FINDLAYER(3).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==8)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>=7)
CONT.ANIM 0e
CONT.FINDLAYER(5).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==6)
CONT.FINDLAYER(11).remove
CONT.NEWITEM=i_hair_long
CONT.ACT.COLOR=colors_red
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==5)
CONT.ANIM 0d
CONT.FINDLAYER(17).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==4)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==3)
CONT.ANIM 01f
CONT.say @0bb2,,1 * Opucuk atar * // zuaha 
CONT.FINDLAYER(4).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==2)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==1)
CONT.ANIM 011
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==0)
CONT.ANIM 020
CONT.NEWITEM=i_studded_gloves
CONT.ACT.COLOR=colors_dansoz
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_hat_feather
CONT.ACT.COLOR=colors_dansoz
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_shirt_fancy
CONT.ACT.COLOR=colors_dansoz
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_shoes_plain
CONT.ACT.COLOR=colors_dansoz
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_doublet
CONT.ACT.COLOR=colors_dansoz
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_armor_female_shorts
CONT.ACT.COLOR=colors_dansoz
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_skirt_long
CONT.ACT.COLOR=colors_dansoz
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_cape
CONT.ACT.COLOR=colors_dansoz
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.FINDLAYER(11).remove
CONT.NEWITEM=i_hair_buns
CONT.ACT.COLOR=colors_red
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
REMOVE
RETURN 1

ENDIF


[TEMPLATE loot_danso_clothes]
ITEM=i_cap
color=0879
ITEM=i_doublet
color=0879
ITEM=i_kilt
color=0879

[DEFNAME HUES_DANSOZ]
colors_densoz {{1 201}}


[ITEMDEF i_show_timer]
ID= i_memory
TYPE= t_eq_script
NAME=show timer
ON=@CREATE
TIMER=300
ON=@TIMER
IF !(<CONT.RESTEST 1 i_danso_timer>
CONT.NEWITEM=i_danso_timer
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
TIMER=300
CONT.SAY @0bb2,,1 * Gobek Atmaya Baslar *
RETURN 1
ELSE
TIMER=300
RETURN 1
ENDIF

[eof]

ee bu dansöz para kabul etmiyo desiresa i_gold koy bide

on=@npcreceiveitem
if (<act.baseid> == i_gold)
sayu Allah Bereket Versin...
else
sayu Sie git...
endif

buda eksik olmuş