[defname hazine_koordinatlari]
// ilk 3 virgül hazine koordinatı 4,üncü virgülden sonrası hazineni nerede olduğu hakkında açıklaması
hazine_koordinat.1 1159,2217,1,Britain labirentinin ortasında
hazine_koordinat.2 5142,2904,51,Delucia civarlarında, Cyclops Valley bölgesinde
hazine_koordinat.3 5204,3653,1,Delucia civarlarında, City of the Dead bölgesinde
hazine_koordinat.4 1989,275,5,Wrong girişinde
hazine_koordinat.5 5578,3187,2,Terathan Keep bölgesinde
hazine_koordinat.6 2356,1192,10,Cove Territory bölgesinde
hazine_koordinat.7 3343,284,4,Vesper Territory cıvarlarında, Windmare bölgesinde
hazine_koordinat.8 2118,2734,20,Trinsic cıvarlarında,Barrier island bölgesinde
hazine_koordinat.9 463,2059,8,Skara Brae cıvarlarında, Iver's Rounding adasında
hazine_koordinat.10 2360,1184,10,Cove Territory bölgesinde
hazine_koordinat.11 2453,1121,8,Cove mezarlığında
hazine_koordinat.12 2951,2180,51,Skull island bölgesinde
hazine_koordinat.13 1009,2667,6,Destard bölgesinde
hazine_koordinat.14 4454,3099,2,Fire island bölgesinde
hazine_koordinat.15 3573,2124,23,Magicia Moongate etrafında
hazine_koordinat.16 4585,1327,8,Moonglow Territory cıvarlarında
hazine_koordinat.17 1843,3019,7,Trinsic Territory cıvarlarında
hazine_koordinat.18 6003,3254,-4,Orcish Lands ormanında
hazine_koordinat.19 789,1612,2,Yew Territory bölgesinde
hazine_koordinat.20 4593,3507,20,Fire island arkasında.
hazine_koordinat.21 835,300,2,Yew Territory bölgesinde
hazine_koordinat.22 1866,828,7,Desert of Compassion çölünün ortasında
hazine_koordinat.23 2145,3961,6,Amoeba adasında
hazine_koordinat.24 2368,3472,3,Bald isle yukarısında[/highlight]
[itemdef i_bottle_sos]
id = i_bottle_ale
name = sos bottle
weight = 1.0
type = t_normal
on=@clienttooltip
src.addcliloc <def.empty_cliloc>,Belirsiz Sandık
on=@click
message @,,1 <name>
message @,,1 belirsiz sandık
return 1
on=@dclick
target
src.sysmessage @,,1 Şişeyi kırmak için yere atın!
return 1
on=@targon_ground
src.say @,,1 şişeyi kırar
if <r2>==1
serv.newitem i_map_treasure
new.bounce
src.say @,,1 wupps
src.sysmessage @,,1 Bir define haritası buldun.
else
src.say @,,1 boş çıktı
endif
remove
return 1
[itemdef i_map_treasure]
id = i_map_rolled
name Treasure Map
type = t_normal
on=@clienttooltip
src.addcliloc <def.empty_cliloc>,Level <eval <more1>>
on=@click
message @,,1 <name>
return 1
on=@create
local.random = <R1,26>
tag.treasure_morep = <GETARGVX 1,<DEF.hazine_koordinat.<dlocal.random>>>,<GETARGVX 2,<DEF.hazine_koordinat.<dlocal.random>>>,<GETARGVX 3,<DEF.hazine_koordinat.<dlocal.random>>>
tag.treasure_description = <GETARGVX 4,<DEF.hazine_koordinat.<dlocal.random>>>
more1 = <r1,5>
tag.coz = 1
on=@dclick
if (<topobj.uid> != <src.uid>)
src.sysmessage @34,,1 Çantanızda olması gerekiyor.
return 1
elif (<tag0.harita_durum>)
src.arrowquest -1
tag.harita_durum =
src.sysmessage @34,,1 Haritanın izini sürmekten vazgeçtiniz.
return 1
elif (<tag0.treasure_found>)
src.sysmessage @34,,1 Çok geç kaldınız, bu haritanın izi çoktan sürülmüş!
return 1
endif
if (<tag0.coz>)
if <r3> == 1
tag.coz =
else
src.sysmessage @34,,1 Haritayı çözemediniz! incelemeye devam edin.
return 1
endif
endif
if (<src.cartography> == 100.0)
src.sysmessage @,,1 Hazine <tag.treasure_morep> koordinatlarında, <tag.treasure_description>... Çıkan Oku takip edin o sizi hazineye götürecek.
src.arrowquest <tag0.treasure_morep>
tag.harita_durum = 1
dispid = i_map
update
else
src.sysmessage @,,1 Cartography yeteneğinizin 100.0 olması gerekiyor.
endif
IF (strcmpi("<TAG0.TREASURE_MOREP>","<SRC.P>")==0)
serv.newitem i_paver_sandstone
new.color = colors_all
new.timer = 120
new.p <tag0.treasure_morep>
if !(<SRC.FINDLAYER.layer_horse>) && (<SRC.FINDLAYER(1).baseid> == i_pickaxe)
if (<more1> == 1)
serv.newitem = hazine_kasasi
elif (<more1> == 2)
serv.newitem = hazine_kasasi2
elif (<more1> == 3)
serv.newitem = hazine_kasasi3
elif (<more1> == 4)
serv.newitem = hazine_kasasi4
elif (<more1> == 5)
serv.newitem = hazine_kasasi5
endif
ref1 = <new>
ref1.color = colors_all
ref1.drop
ref1.nudgedown 5
ref1.move = 1
src.face <ref1>
ref1.timerf 1,nudgeup 2
ref1.timerf 2,nudgeup 1
src.anim 9
src.timerf 2,anim 9
src.speedmode 4
src.timerf 3,speedmode 0
src.arrowquest
tag.treasure_found = 1
tag.harita_durum =
tag.treasure_morep =
else
src.sysmessage @34,,1 At üzerinde kazı yapamazsınız veya elinizde pickaxe bulunmuyor !
endif
endif
return 1
// hazine sandıklarından çıkacak olan eşyalar hazine_kasasi1 ,2,3,4,5 diye gidenler levelleridir. :-)
[itemdef i_hazine_kasa]
id = i_chest_metal
name = Hazine Sandığı
type = t_container
on=@clienttooltip
if !(<type> == t_container_locked)
src.addcliloc <def.empty_cliloc>,Unlocked
endif
on=@click
message @,,1 <hepsikucuk <name>>
message @,,1 Level <more1>
endif
on=@dclick
if (<type> == t_container_locked)
say @,,1 kilitli kasa
return 1
endif
forchars 15
if (<body> == c_efreet) || (<body> == c_drake_red) || (<body> == c_elemental_blood)
src.sysmessage @34,,1 Bu kasa efreet, dragon ve blood element ile büyülenmiş, onları öldürmen gerekiyor.
return 1
endfor
endif
on=@create
type = t_container_locked
attr = attr_move_never
on=@timer
remove
return 1
[template hazine_kasasi1]
CONTAINER=i_hazine_kasa
item = i_arrow,{10 30}
item = i_shroud_hooded
color colors_all
item = i_potion_healgreat,{3 5}
item = i_potion_curegreat,{3 5}
item = i_potion_refreshtotal,{3 5}
item = i_potion_agilitygreat,{3 5}
ITEM={ random_reagent 1 0 5 },{3 5}
ITEM={ random_reagent 1 0 5 },{3 5}
item = i_potion_poisondeadly,{3 5}
item = random_scroll,{1 3}
item = random_scroll,{1 3}
item = random_scroll,{1 3}
item = random_scroll,{1 3}
item = i_bandage,{10 20}
item = random_weapon_all
item = random_weapon_all
item = random_weapon_all
item = random_weapon_all
item = { i_mask_deer 1 i_mask_orc 1 i_bone_helmet 1 i_mask_bear 1 i_mask_blue 1 i_mask_tribal_red 1 i_helm_orc 1 }
item = { i_mask_deer 1 i_mask_orc 1 i_bone_helmet 1 i_mask_bear 1 i_mask_blue 1 i_mask_tribal_red 1 i_helm_orc 1 }
ITEM = i_gold,{1000 1500}
item = i_flesh_right_leg
item = i_flesh_left_leg
item = i_flesh_right_arm
item = i_flesh_left_arm
item = i_flesh_head
item = i_flesh_torso
[template hazine_kasasi2]
CONTAINER=i_hazine_kasa
item = i_arrow,{10 30}
[template hazine_kasas3]
CONTAINER=i_hazine_kasa
item = i_arrow,{10 30}
[template hazine_kasasi4]
CONTAINER=i_hazine_kasa
item = i_arrow,{10 30}
[template hazine_kasasi5]
CONTAINER=i_hazine_kasa
item = i_arrow,{10 30}
// lockpick için entegre edilmesi gereken şey veya sizin bir özel bir isteğiniz var ise.
on=@dclick
if !(<topobj.uid> == <src.uid>)
src.sysmessage @,,1 Çantanızda kullanabilirsiniz.
return 1
endif
on=@targon_item
if !(<argo.type> == t_container_locked)
src.sysmessage @,,1 Bunu sadece kilitli kasalar üzerinde kullanabilirsiniz.
return 1
endif
if (<argo.baseid> == i_hazine_kasa)
if (<src.lockpicking> == 100.0)
if <r3> == 1
argo.color =
src.consume 1 i_lockpick
argo.type = t_container
argo.timer = 7200
sound = 0ff
f_hazine_yaratiklari
else
src.sysmessage @,,1 Başarısız oldunuz, tekrar deneyin.
src.consume 1 i_lockpick
return 1
endif
else
src.sysmessage @,,1 Lockpicking yeteneğinizin 100.0 olması gerekiyor!
return 1
endif
endif
// hazine yaratıkları
[function f_hazine_yaratiklari]
newnpc = c_orc
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_snake_giant
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_imp
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_drake_red
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_elemental_blood
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_yomotsu_warrior
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_yomotsu_priest
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_yomotsu_elder
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_barbarian_chieftain
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_barbarian_warrioress
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_barbarian_shaman
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_efreet
new.home <src>
new.homedist 3
new.removednpc 1200
newnpc = c_kappa
new.home <src>
new.homedist 3
new.removednpc 1200
// yaratıkların belirli bir sürü sonra silinmesi için.
[itemdef i_mem_removednpc]
id = i_memory
name = npcai removed
type = t_eq_script
layer = layer_special
on=@timer
cont.remove
return 1
[FUNCTION removednpc]
SERV.NEWITEM i_mem_removednpc
EQUIP <NEW>
NEW.TIMER = <ARGV[0]>
