Düzenleme!!(hazine)

[itemdef i_bag_define]
NAME=Define Bag
ID=i_bag
TYPE=t_normal
weight 0.1
value 9

ON=@CREATE
COLOR 07ad

ON=@CLICK
MESSAGE @58,9 [Define Bag]
return 1

ON=@DCLICK
if (<topobj.uid> != <src.uid>)
	src.sysmessage @37 Cantadan baska biyerde acamassiniz.
	return 1
endif
SRC.SAYUA 920,6,6,0 * Poseti Acar *
src.newitem i_define_haritasi
src.act.equip
src.sysmessage @0482 Define Haritasi Cikti
remove
return 1

[itemdef i_define_haritasi]
NAME=Treasure Map
ID=i_map_rolled
TYPE=t_normal
SKILLMAKE=SKILL_CARTOGRAPHY 95.0, Skill_Magery 70.0
RESOURCES=20 i_scroll_blank, 1000 i_gold

ON=@Create
tag.status="Cozulmemis"
tag.tachado=0
tag.decifrado=0
color=07a1
f_selecionar_local_tesouro

on=@click
message @68 <name>
message @48 (<tag.status>)
return 1

on=@dclick
if (<src.distance> > 5)
src.sysmessage @0482 Defineye Cok uzaktasin nasil kazmayi planliyosun ?
return 1
elseif !(<cont>)
src.sysmessage @0482 Bu haritayi herkesin icinde okumayi dusunmuyosun heralde...
return 1
elseif (<tag.asilsiz>==1)
src.sysmessage @0482 Harita asilsiz cikti biri senle dalga gecmis olmali..
return 1
elseif (<tag.tachado>==1)
src.sysmessage @0482 Bu harita biri tarafindan cozulmus coktan defineyi almistir.
return 1
elseif (<tag.decifrado>==1) && (<src.isnextp <eval <tag.tpx>> <eval <tag.tpy>> 10>) && !(<src.findid.i_shovel>)
src.sysmessage @0482 Kazi yapabilmek icin Shovel (Kurek) a ihtiyaciniz var
return 1
elseif (<tag.decifrado>==1) && (<src.isnextp <eval <tag.tpx>> <eval <tag.tpy>> 10>) && (<src.findid.i_shovel>)
IF (<src.str> > 99) && (<src.dex> > 99) && (<src.int> > 99) && (<src.skilltotal> > 1000)
serv.newnpc=c_m_towerman
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=7000
serv.newnpc=c_m_towerman
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=7000
serv.newnpc=c_m_towerman
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=7000
serv.newnpc=c_hazine_dragon
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=7000
serv.newnpc=c_hazine_dragon
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=7000
serv.newnpc=c_m_dragon_hazine
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
new.events +e_tesouro_chefe
local.npc1=<new.uid>
new.say @07ad Kim Benim Hazinemi Almaya Kalkisti ?
new.tag.tpx=<tag.tpx>
new.tag.tpy=<tag.tpy>
new.tag.prizemoney=<eval <src.cartography>*10>
new.tag.prizeitem=
new.effect 1,i_gold,20,20
local.container=i_bag
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=7200
ELSE
serv.newnpc=c_m_towerman
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.timer=7000
serv.newnpc=c_m_towerman
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.timer=7000
serv.newnpc=c_m_towerman
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.timer=7000
serv.newnpc=c_hazine_dragon
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 5
new.events +e_tesouro_chefe
local.npc1=<new.uid>
new.say @0482 Kim Benim Hazinemi Almaya Kalkisti ?
new.tag.tpx=<tag.tpx>
new.tag.tpy=<tag.tpy>
new.tag.prizemoney=
new.tag.prizeitem=
new.effect 1,i_gold,20,20
local.container=i_Bag
serv.newitem=i_tesouro_monstro
new.timer=7200
ENDIF
tag.status="Hazine Bulundu"
src.sysmessage @0482 Hazineye el koyabilmek icin yaratiklari oldurmen gerekiyor.
tag.tachado=1
return 1
elseif (<tag.decifrado>==0) && (<tag.asilsiz>==0) && (<eval RAND(6)>==1) && (<src.cartography> > 99.9)
tag.decifrado=1
src.message @0482 Haritayi cozmeyi basardiniz.
tag.status="<src.name> Tarafindan Cozulmus"
dispid=i_map
update
return 1

elseif !(<tag.decifrado>==1) && (<tag.asilsiz>==0) && (<eval RAND(8)>==1) && (<src.cartography> > 99.9)
tag.asilsiz=1
src.sysmessage @0482 Haritadaki bilgiler asilsiz cikti haritada belirtildigi gibi bir yer yok.
tag.status="Asilsiz cikmis"
dispid=i_map
update
return 1

elseif !(<src.cartography> > 99.9)
src.sysmessage @037 Haritadaki bilgileri anlicak kadar yetenekli degilsiniz.
return 1

elseif (<tag.decifrado>==0) && (<cont>==<src.findlayer.21.uid>)
src.sysmessage @0482 Harita hakkinda bilgi edinemediniz!
update
return 1
elseif (<src.var.okcikartti> == 2)
src.sysmessage @0482 Defineyi aramaktan vaz gectiniz
src.var.okcikartti 0
src.arrowquest
return 1
elseif (<cont>==<src.findlayer.21.uid>) && (<src.var.okcikartti> == 0)
src.arrowquest <eval <tag.tpx>>,<eval <tag.tpy>>
src.sysmessage @88 Haritaya gore hazine <tag.lugar> civarlarinda ,cikan ok u takip et...
src.var.okcikartti 2
return 1
elseif (<cont>==0)
return 1
endif

///////////////////

[function isnextp]
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <argn1>>,<eval <argn2>>
IF (<new.distance> < <argn3>) || (<new.distance>==<argn3>)
new.remove
return 1
else
new.remove
return 0
ENDIF

/////////////////

[DEFNAME premios_tesouro]
random_treasure_prize { RANDOM_WEAPON_vanq 1
 RANDOM_WEAPON_FORCE 1 
RANDOM_WEAPON_MIGHT 1 
RANDOM_WEAPON_POWER 1 
RANDOM_WEAPON_RUIN 1 
i_cont_define 1
i_darknessshield 1 }

/////////////////

[ITEMDEF i_tesouro_monstro]
NAME=Monstros Tesouro Mem
ID=i_memory
TYPE=t_eq_script
LAYER=30

ON=@Timer
cont.remove

//////////////////

[events e_tesouro_chefe]
ON=@DEATHCORPSE
serv.newitem=i_hazine1
new.color=07ad
new.attr=attr_decay|attr_move_never
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>,<eval <p.z>>
new.timer=360
try uid.<uid.<argo.uid>.more2>.sysmessage @0482 Hazine Gardiyanlarini Oldurdun, Kasayi Alabilirsin.
try uid.<uid.<argo.uid>.more2>.arrowquest
src.var.okcikartti 0



///////////////////

[function f_selecionar_local_tesouro]
DORAND 5
BEGIN
tag.tpx=2209
tag.tpy=1253
tag.lugar="Cove Orc Camp'in Ustunde"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=1713
tag.tpy=1609
tag.tpz=3
tag.lugar="Britain'in Dogusundaki Kiyida"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=4310
tag.tpy=3732
tag.lugar="Deniz Asiri Biryer"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=2035
tag.tpy=1006
tag.lugar="Bataklikta"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=1871
tag.tpy=886
tag.lugar="Buyuk Bir Colde"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=5755
tag.tpy=2334
tag.tpz=7
tag.lugar="Karli Bir Yerde"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=2150
tag.tpy=3636
tag.lugar="Dunyanin En Assasi"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
ENDENDDO
new.fix
new.timer=1
IF (<new.region.flags>==<new.region.flags>|region_flag_guarded) || (<new.region.flags>==<new.region.flags>|region_flag_safe) || (0<uid.<new.region.uid>.type>==t_multi) || (<new.isneartype t_rock>) || (<new.isneartype t_tree>) || (<new.isneartype t_door>) || (<new.isneartype t_wall>) || (<new.isneartype t_water>)
f_selecionar_local_tesouro
ENDIF