[itemdef i_cont_define]
NAME=Treasure Container
ID=i_box_brass
TYPE=t_normal
weight 0.1
ON=@CREATE
COLOR 070d
ON=@CLICK
MESSAGE @47,,1 a Belirsiz Sandik
return 1
ON=@DCLICK
if (<topobj.uid> != <src.uid>)
src.sysmessage @38,,1 Hata: Bunu kullanabilmeniz icin cantanizda olmali.
return 1
endif
SRC.SAYUA 920,6,6,0 * Sandigi kirar *
src.newitem i_map_of_treasure
src.act.equip
src.sysmessage @50 Bilinmeyen bir kagit parcasi cikti
remove
return 1
[itemdef i_bottle_define]
NAME=an SOS Bottle
ID=i_bottle_ale
TYPE=t_normal
weight 0.1
value 9
ON=@CREATE
COLOR 070d
ON=@CLICK
MESSAGE @47,,1 <name>
return 1
ON=@DCLICK
if (<topobj.uid> != <src.uid>)
src.sysmessage @38,,1 Hata: Bunu kullanabilmeniz icin cantanizda olmali.
return 1
endif
SRC.SAYUA 920,6,6,0 * siseyi kirar *
src.newitem i_map_of_treasure
src.act.equip
src.sysmessage @50 Bilinmeyen bir kagit parcasi cikti
remove
return 1
[itemdef i_map_of_treasure]
NAME=a Treasure Map
ID=i_map_rolled
VALUE=5000
TYPE=t_normal
WEIGHT=3
ON=@Create
tag.status=Acilmamis
color=06aa
f_treasure_selection
on=@click
message @03b2,,1, <name>
message @00044 (<tag.status>)
return 1
on=@dclick
if (<more2>) && !(<more1>) && !(<src.isnextp <eval <morex>> <eval <morey>> 10>)
sdialog d_treasure_map
elif (<topobj.uid>!=<src>) && !(<src.isgm>)
src.sysmessage @38,,1 Hata: Cantanizda olmadan kullanamazsiniz.
elif (<more1>)
src.sysmessage @38,,1 Hata: Bu hazine zaten daha once bulunmus.
elif (<more2>)
IF (<src.isnextp <eval <morex>> <eval <morey>> 10>)
IF !(<src.findid.i_shovel>)
src.sysmessage @38,,1 Hata: Shovel ihtiyaciniz var.
else
IF !(<attr> & 04)
FOR 2
serv.newnpc=c_orc_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
ENDFOR
FOR 2
serv.newnpc=c_rotting_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
ENDFOR
serv.newnpc=c_m_cyclops_king_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
serv.newnpc=c_m_efreet
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
serv.newnpc=c_m_dragon_crystal_treasure
new.p=<morep>
new.tag.prizemoney=<eval <src.cartography>*10>
new.tag.prizeitem=<hval <def.random_treasure_prize>>
new.moveback
new.fix
new.home=<new.p>
new.homedist 5
new.events +e_treasure_chest
new.removetimer <EVAL 60*30>
new.say @50 Benim hazinemi almak ???
new.effect 1,i_gold,20,20
ELSE
FOR 2
serv.newnpc=c_orc_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
ENDFOR
FOR 2
serv.newnpc=c_rotting_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
ENDFOR
serv.newnpc=c_m_cyclops_king_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
serv.newnpc=c_m_efreet
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
serv.newnpc=c_m_dragon_crystal_treasure
new.p=<morep>
new.tag.prizemoney=<eval <src.cartography>*10>
new.tag.prizeitem=<hval <def.random_treasure_prize>>
new.moveback
new.fix
new.home=<new.p>
new.homedist 5
new.events +e_treasure_chest
new.removetimer <EVAL 60*30>
new.say @50 Yok olun!! Yoksa sizi oldururum !
new.effect 1,i_gold,20,20
ENDIF
tag.status=Hazine bulundu
src.sysmessage @03b2,,1, Hazine&?nin sahibi olmaniz icin butun yaratiklari oldurmeniz gerekmektedir.
more1=1
ENDIF
ENDIF
ELIF !(RAND(6))
IF !(<SRC.CARTOGRAPHY> >= 100.0)
SRC.CARTOGRAPHY += <EVAL &?1 2}>
ENDIF
MORE2=1
src.sysmessage @03b2,,1, Haritayi basarili bir sekilde actiniz.
tag.status=<src.name> tarafindan acilmis
dispid=i_map
attr=attr_newbie
update
ELSE
src.sysmessage @0ad Basarisiz
ENDIF
RETURN 1
//
[DIALOG d_treasure_map]
200,90
PAGE 0
resizepic 0 0 5120 403 494
gumppic 10 10 5528
gumppic <EVAL (10+((<morex>*100)/1337))> <EVAL (10+((<morey>*100)/1067))> 0938
gumppic <EVAL (10+((<src.p.x>*100)/1337))> <EVAL (10+((<src.p.y>*100)/1067))> 0939
dhtmlgump 20 400 240 85 1 200 Hazine :: <TAG0.LUGAR> bolgesinde. Koordinat :: <eval <morex>>,<eval <morey>>
tilepic 280 400 7575
tilepic 302 400 7576
///////////////////
[function isnextp]
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<argn1>,<argn2>
IF (<new.distance> <= <argn3>)
new.remove
return 1
else
new.remove
return 0
ENDIF
/////////////////
[DEFNAME premios_tesouro]
random_treasure_ingots &? I_ORE_VALORITE 1 I_ORE_VERITE 1 I_ORE_MYTHERIL 1 }
random_treasure_prize &? RANDOM_PLATEMAIL_INVULNERABILITY 1 RANDOM_PLATEMAIL_DEFENSE 1 random_treasure_ingots 1 RANDOM_PLATEMAIL_FORTIFICATION 1 RANDOM_PLATEMAIL_GUARDING 1 RANDOM_PLATEMAIL_HARDENING 1 RANDOM_WEAPON_FORCE 1 RANDOM_WEAPON_MIGHT 1 RANDOM_WEAPON_POWER 1 RANDOM_WEAPON_RUIN 1 RANDOM_WEAPON_vanq 1 RANDOM_SHIELD_INVULNERABILITY 1 RANDOM_SHIELD_DEFENSE 1 RANDOM_SHIELD_FORTIFICATION 1 RANDOM_SHIELD_GUARDING 1 RANDOM_SHIELD_HARDENING 1 }
//////////////////
[events e_treasure_chest]
ON=@Death
FINDID.i_map_of_treasure.REMOVE
ON=@DEATHCORPSE
serv.newitem=i_hazine1
new.color=02b3
new.attr=attr_decay|attr_move_never
new.p=<argo.p>
new.nudgeup 12
new.timer=360
new.events +t_found_treasure
new.more1=<EVAL &?100 1000}>
local.bau=<new>
serv.newitem=i_gold
new.amount=<tag.prizemoney>
new.cont=<Local.Bau>
serv.newitem=<tag.prizeitem>
new.cont=<local.bau>
IF (<NEW.TYPE>==t_ore)
NEW.AMOUNT=<EVAL &?1 3}>
ENDIF
try uid.<argo.uid>.move nw 4
try uid.<argo.uid>.empty
try uid.<argo.uid>.remove
try uid.<local.bau>.update
try uid.<uid.<argo.uid>.more2>.sysmessage @03b2,,1, Hazine kasasinin koruyucalarini oldurdunuz. Hazine sizindir.
///////////////////
[function f_treasure_selection]
SERV.NEWITEM i_gold
NEW.ATTR=ATTR_INVIS
DORAND 3
NEW.RANDLOCATION
NEW.DUNGLOCATION
NEW.RANDLOCATION
ENDDO
TAG.LUGAR=<NEW.REGION.NAME>
MOREP=<NEW.P>
NEW.REMOVE
[TYPEDEF t_found_treasure]
ON=@Dclick
IF !(<SRC.LOCKPICKING> >= <MORE2>)
SRC.DAMAGE <EVAL &?50 150}> 01 <UID>
ENDIF
[FUNCTION removetimer]
SERV.NEWITEM i_removetimer_mem
EQUIP <NEW>
NEW.TIMER=<ARGN1>
[ITEMDEF i_removetimer_mem]
ID=i_memory
NAME=remove timer
TYPE=t_eq_script
ON=@Timer
cont.remove
return 1
[FUNCTION RANDLOCATION]
dorand 4
p=<eval &?4446 4553}>,<eval &?3454 3485}>
p=<eval &?4384 4491}>,<eval &?3133 3148}>
p=<eval &?2023 2202}>,<eval &?3319 3360}>
p=<eval &?2410 2530}>,<eval &?3893 3975}>
endif
LOCAL.TMP=<OBJ>
OBJ=<region.uid>
IF (<obj.type>==t_multi)
OBJ=<LOCAL.TMP>
RANDLOCATION
RETURN 1
ELIF (<region.flags>®ion_flag_guarded) || (<region.flags>®ion_flag_safe) || (<isneartype t_rock>) || (<isneartype t_tree>) || (<isneartype t_door>) || (<isneartype t_wall>) || (<isneartype t_water>) || (<isneartype t_multi 10>) || (<serv.map(<p>).terrain>==0244)
OBJ=<LOCAL.TMP>
RANDLOCATION
RETURN 1
ENDIF
FIX
OBJ=<LOCAL.TMP>
[FUNCTION DUNGLOCATION]
DORAND 6
P=<eval &?5313 5326}>,<eval &?577 625}>
P=<eval &?5394 5592}>,<eval &?1954 2028}>
P=<eval &?5388 5512}>,<eval &?662 754}>
P=<eval &?5134 5163}>,<eval &?798 870}>
P=<eval &?5914 5990}>,<eval &?147 238}>
P=<eval &?5515 5621}>,<eval &?15 119}>
ENDDO
LOCAL.TMP=<OBJ>
OBJ=<region.uid>
IF (<obj.type>==t_multi)
OBJ=<LOCAL.TMP>
DUNGLOCATION
RETURN 1
ELIF (<region.flags>®ion_flag_guarded) || (<region.flags>®ion_flag_safe) || (<isneartype t_rock>) || (<isneartype t_tree>) || (<isneartype t_door>) || (<isneartype t_wall>) || (<isneartype t_water>) || (<isneartype t_multi 10>) || (<serv.map(<p>).terrain>==0244)
OBJ=<LOCAL.TMP>
DUNGLOCATION
RETURN 1
ENDIF
FIX
OBJ=<LOCAL.TMP>
// Protectors
[CHARDEF c_rotting_treasure]
NAME=Royal Guards of Treasure
SOUND=snd_monster_zombie1
ID=C_ZOMBIE
CAN=MT_RUN|MT_WALK
DAM=3,0
ARMOR=35
TEVENTS=e_undead
on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1
ON=@Create
COLOR=042
NPC=brain_undead
STR=300
DEX=175
INT=10
ON=@NPCRestock
ITEM=i_gold,50000
ITEM=i_reg_krystal_l
ITEM=
ITEM=
ITEM=
PARRYING=&?90.0 100.0}
MAGICRESISTANCE=&?100.0}
TACTICS=&?90.0 100.0
WRESTLING=&?120.0 130.0}
POISONING=&?300.0 700.0}
FAME=&?300 5000}
KARMA=&?-6000 -6200}
[CHARDEF c_orc_treasure]
id=c_orc
NAME=Trasure Servants
SOUND=snd_MONSTER_ORC1
ICON=i_pet_ORC
ANIM=078c7f
DAM=3,9
ARMOR=14
CAN=MT_WALK|MT_RUN|MT_USEHANDS|MT_EQUIP
RESOURCES=8 i_ribs_raw
FOODTYPE=15 t_meat_raw
DESIRES=i_gold,spk_orc
TSPEECH=spk_orc
CATEGORY=Monsters
SUBSECTION=Orcs
DESCRIPTION=Orc
on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1
ON=@Create
NPC=brain_monster
FAME=&?100 1000}
KARMA=&?-1000 -5000}
STR=&?96 120}
DEX=&?81 105}
INT=&?36 60}
PARRYING=&?50.0 75.0}
MAGICRESISTANCE=&?50.0 75.0}
TACTICS=&?55.0 80.0}
WRESTLING=&?50.0 70.0}
[CHARDEF c_m_cyclops_king_treasure]
NAME=Kyrandia King
SOUND=snd_MONSTER_CYCLOPS1
ID=c_CYCLOPS
DAM=6,30
ARMOR=28
RESOURCES=30 i_ribs_raw
FOODTYPE=15 t_meat_raw
CAN=MT_WALK
on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1
ON=@Create
STR=&?350 390}
DEX=&?95 115}
INT=&?37 58}
MAGICRESISTANCE=&?60.0 75.0}
PARRYING=&?70.0 80.0}
TACTICS=&?80.0 100.0}
WRESTLING=&?80.0 90.0}
NPC=BRAIN_MONSTER
KARMA=&?-5000 -5999}
FAME=&?100 2000}
[CHARDEF c_m_dragon_crystal_treasure]
ID=c_DRAGON_RED
NAME=Lord of the Treasure
SOUND=snd_MONSTER_DRAGON1
ICON=i_pet_dragon
DAM=9,29
ARMOR=36
RESOURCES=99 i_ribs_raw,8 i_reag_dragon_blood,20 i_hide
CAN=MT_WALK|MT_FLY|MT_FIRE_IMMUNE
FOODTYPE=80 t_meat_raw
DESIRES=i_gold
AVERSIONS=r_water,r_civilization
on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1
ON=@Create
NPC=brain_dragon
COLOR=07fff
STR=&?825 940}
DEX=&?105 140}
INT=&?435 475}
PARRYING=&?55.0 95.0}
MAGICRESISTANCE=&?99.0 100.0}
TACTICS=&?98.0 100.0}
WRESTLING=&?90.0 93.0}
TAMING=99.0
FAME=&?3000 9000}
KARMA=&?-5000 -5999}
//Sise
[REGIONRESOURCE mr_bottle_define]
skill=100.0
amount=1
REAP=i_bottle_define
REGEN=60*15*10
//Kutu
[REGIONRESOURCE mr_cont_define]
skill=100.0
amount=1
REAP=i_cont_define
REGEN=60*15*10
[FUNCTION closealldialogs]
IF (<MEMORYFINDTYPE.memory_gumprecord>)
FORCHARMEMORYTYPE memory_gumprecord
TRYSRC <CONT> SRC.DIALOGCLOSE <TAG0.DIALOG_NAME> <ARGN2>
REMOVE
ENDFOR
ENDIF
[function moveback]
doswitch <dir>
begin
if (<canmove s>)
move s
endif
end
begin
if (<canmove sw>)
move sw
endif
end
begin
if (<canmove w>)
move w
endif
end
begin
if (<canmove nw>)
move nw
endif
end
begin
if (<canmove n>)
move n
endif
end
begin
if (<canmove ne>)
move ne
endif
end
begin
if (<canmove e>)
move e
endif
end
begin
if (<canmove se>)
move se
endif
end
begin
if (<canmove s>)
move s
endif
end
enddo
[EOF]
[itemdef i_cont_define]
NAME=Treasure Container
ID=i_box_brass
TYPE=t_normal
weight 0.1
ON=@CREATE
COLOR 070d
ON=@CLICK
MESSAGE @47,,1 a Belirsiz Sandik
return 1
ON=@DCLICK
if (<topobj.uid> != <src.uid>)
src.sysmessage @38,,1 Hata: Bunu kullanabilmeniz icin cantanizda olmali.
return 1
endif
SRC.SAYUA 920,6,6,0 * Sandigi kirar *
src.newitem i_map_of_treasure
src.act.equip
src.sysmessage @50 Bilinmeyen bir kagit parcasi cikti
remove
return 1
[itemdef i_bottle_define]
NAME=an SOS Bottle
ID=i_bottle_ale
TYPE=t_normal
weight 0.1
value 9
ON=@CREATE
COLOR 070d
ON=@CLICK
MESSAGE @47,,1 <name>
return 1
ON=@DCLICK
if (<topobj.uid> != <src.uid>)
src.sysmessage @38,,1 Hata: Bunu kullanabilmeniz icin cantanizda olmali.
return 1
endif
SRC.SAYUA 920,6,6,0 * siseyi kirar *
src.newitem i_map_of_treasure
src.act.equip
src.sysmessage @50 Bilinmeyen bir kagit parcasi cikti
remove
return 1
[itemdef i_map_of_treasure]
NAME=a Treasure Map
ID=i_map_rolled
VALUE=5000
TYPE=t_normal
WEIGHT=3
ON=@Create
tag.status=Acilmamis
color=06aa
f_treasure_selection
on=@click
message @03b2,,1, <name>
message @00044 (<tag.status>)
return 1
on=@dclick
if (<more2>) && !(<more1>) && !(<src.isnextp <eval <morex>> <eval <morey>> 10>)
sdialog d_treasure_map
elif (<topobj.uid>!=<src>) && !(<src.isgm>)
src.sysmessage @38,,1 Hata: Cantanizda olmadan kullanamazsiniz.
elif (<more1>)
src.sysmessage @38,,1 Hata: Bu hazine zaten daha once bulunmus.
elif (<more2>)
IF (<src.isnextp <eval <morex>> <eval <morey>> 10>)
IF !(<src.findid.i_shovel>)
src.sysmessage @38,,1 Hata: Shovel ihtiyaciniz var.
else
IF !(<attr> & 04)
FOR 2
serv.newnpc=c_orc_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
ENDFOR
FOR 2
serv.newnpc=c_rotting_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
ENDFOR
serv.newnpc=c_m_cyclops_king_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
serv.newnpc=c_m_efreet
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
serv.newnpc=c_m_dragon_crystal_treasure
new.p=<morep>
new.tag.prizemoney=<eval <src.cartography>*10>
new.tag.prizeitem=<hval <def.random_treasure_prize>>
new.moveback
new.fix
new.home=<new.p>
new.homedist 5
new.events +e_treasure_chest
new.removetimer <EVAL 60*30>
new.say @50 Benim hazinemi almak ???
new.effect 1,i_gold,20,20
ELSE
FOR 2
serv.newnpc=c_orc_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
ENDFOR
FOR 2
serv.newnpc=c_rotting_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
ENDFOR
serv.newnpc=c_m_cyclops_king_treasure
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
serv.newnpc=c_m_efreet
new.p=<morep>
new.fix
new.home=<new.p>
new.homedist 5
new.removetimer <EVAL 60*30>
serv.newnpc=c_m_dragon_crystal_treasure
new.p=<morep>
new.tag.prizemoney=<eval <src.cartography>*10>
new.tag.prizeitem=<hval <def.random_treasure_prize>>
new.moveback
new.fix
new.home=<new.p>
new.homedist 5
new.events +e_treasure_chest
new.removetimer <EVAL 60*30>
new.say @50 Yok olun!! Yoksa sizi oldururum !
new.effect 1,i_gold,20,20
ENDIF
tag.status=Hazine bulundu
src.sysmessage @03b2,,1, Hazine&?nin sahibi olmaniz icin butun yaratiklari oldurmeniz gerekmektedir.
more1=1
ENDIF
ENDIF
ELIF !(RAND(6))
IF !(<SRC.CARTOGRAPHY> >= 100.0)
SRC.CARTOGRAPHY += <EVAL &?1 2}>
ENDIF
MORE2=1
src.sysmessage @03b2,,1, Haritayi basarili bir sekilde actiniz.
tag.status=<src.name> tarafindan acilmis
dispid=i_map
attr=attr_newbie
update
ELSE
src.sysmessage @0ad Basarisiz
ENDIF
RETURN 1
//
[DIALOG d_treasure_map]
200,90
PAGE 0
resizepic 0 0 5120 403 494
gumppic 10 10 5528
gumppic <EVAL (10+((<morex>*100)/1337))> <EVAL (10+((<morey>*100)/1067))> 0938
gumppic <EVAL (10+((<src.p.x>*100)/1337))> <EVAL (10+((<src.p.y>*100)/1067))> 0939
dhtmlgump 20 400 240 85 1 200 Hazine :: <TAG0.LUGAR> bolgesinde. Koordinat :: <eval <morex>>,<eval <morey>>
tilepic 280 400 7575
tilepic 302 400 7576
///////////////////
[function isnextp]
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<argn1>,<argn2>
IF (<new.distance> <= <argn3>)
new.remove
return 1
else
new.remove
return 0
ENDIF
/////////////////
[DEFNAME premios_tesouro]
random_treasure_ingots &? I_ORE_VALORITE 1 I_ORE_VERITE 1 I_ORE_MYTHERIL 1 }
random_treasure_prize &? RANDOM_PLATEMAIL_INVULNERABILITY 1 RANDOM_PLATEMAIL_DEFENSE 1 random_treasure_ingots 1 RANDOM_PLATEMAIL_FORTIFICATION 1 RANDOM_PLATEMAIL_GUARDING 1 RANDOM_PLATEMAIL_HARDENING 1 RANDOM_WEAPON_FORCE 1 RANDOM_WEAPON_MIGHT 1 RANDOM_WEAPON_POWER 1 RANDOM_WEAPON_RUIN 1 RANDOM_WEAPON_vanq 1 RANDOM_SHIELD_INVULNERABILITY 1 RANDOM_SHIELD_DEFENSE 1 RANDOM_SHIELD_FORTIFICATION 1 RANDOM_SHIELD_GUARDING 1 RANDOM_SHIELD_HARDENING 1 }
//////////////////
[events e_treasure_chest]
ON=@Death
FINDID.i_map_of_treasure.REMOVE
ON=@DEATHCORPSE
serv.newitem=i_hazine1
new.color=02b3
new.attr=attr_decay|attr_move_never
new.p=<argo.p>
new.nudgeup 12
new.timer=360
new.events +t_found_treasure
new.more1=<EVAL &?100 1000}>
local.bau=<new>
serv.newitem=i_gold
new.amount=<tag.prizemoney>
new.cont=<Local.Bau>
serv.newitem=<tag.prizeitem>
new.cont=<local.bau>
IF (<NEW.TYPE>==t_ore)
NEW.AMOUNT=<EVAL &?1 3}>
ENDIF
try uid.<argo.uid>.move nw 4
try uid.<argo.uid>.empty
try uid.<argo.uid>.remove
try uid.<local.bau>.update
try uid.<uid.<argo.uid>.more2>.sysmessage @03b2,,1, Hazine kasasinin koruyucalarini oldurdunuz. Hazine sizindir.
///////////////////
[function f_treasure_selection]
SERV.NEWITEM i_gold
NEW.ATTR=ATTR_INVIS
DORAND 3
NEW.RANDLOCATION
NEW.DUNGLOCATION
NEW.RANDLOCATION
ENDDO
TAG.LUGAR=<NEW.REGION.NAME>
MOREP=<NEW.P>
NEW.REMOVE
[TYPEDEF t_found_treasure]
ON=@Dclick
IF !(<SRC.LOCKPICKING> >= <MORE2>)
SRC.DAMAGE <EVAL &?50 150}> 01 <UID>
ENDIF
[FUNCTION removetimer]
SERV.NEWITEM i_removetimer_mem
EQUIP <NEW>
NEW.TIMER=<ARGN1>
[ITEMDEF i_removetimer_mem]
ID=i_memory
NAME=remove timer
TYPE=t_eq_script
ON=@Timer
cont.remove
return 1
[FUNCTION RANDLOCATION]
dorand 4
p=<eval &?4446 4553}>,<eval &?3454 3485}>
p=<eval &?4384 4491}>,<eval &?3133 3148}>
p=<eval &?2023 2202}>,<eval &?3319 3360}>
p=<eval &?2410 2530}>,<eval &?3893 3975}>
endif
LOCAL.TMP=<OBJ>
OBJ=<region.uid>
IF (<obj.type>==t_multi)
OBJ=<LOCAL.TMP>
RANDLOCATION
RETURN 1
ELIF (<region.flags>®ion_flag_guarded) || (<region.flags>®ion_flag_safe) || (<isneartype t_rock>) || (<isneartype t_tree>) || (<isneartype t_door>) || (<isneartype t_wall>) || (<isneartype t_water>) || (<isneartype t_multi 10>) || (<serv.map(<p>).terrain>==0244)
OBJ=<LOCAL.TMP>
RANDLOCATION
RETURN 1
ENDIF
FIX
OBJ=<LOCAL.TMP>
[FUNCTION DUNGLOCATION]
DORAND 6
P=<eval &?5313 5326}>,<eval &?577 625}>
P=<eval &?5394 5592}>,<eval &?1954 2028}>
P=<eval &?5388 5512}>,<eval &?662 754}>
P=<eval &?5134 5163}>,<eval &?798 870}>
P=<eval &?5914 5990}>,<eval &?147 238}>
P=<eval &?5515 5621}>,<eval &?15 119}>
ENDDO
LOCAL.TMP=<OBJ>
OBJ=<region.uid>
IF (<obj.type>==t_multi)
OBJ=<LOCAL.TMP>
DUNGLOCATION
RETURN 1
ELIF (<region.flags>®ion_flag_guarded) || (<region.flags>®ion_flag_safe) || (<isneartype t_rock>) || (<isneartype t_tree>) || (<isneartype t_door>) || (<isneartype t_wall>) || (<isneartype t_water>) || (<isneartype t_multi 10>) || (<serv.map(<p>).terrain>==0244)
OBJ=<LOCAL.TMP>
DUNGLOCATION
RETURN 1
ENDIF
FIX
OBJ=<LOCAL.TMP>
// Protectors
[CHARDEF c_rotting_treasure]
NAME=Royal Guards of Treasure
SOUND=snd_monster_zombie1
ID=C_ZOMBIE
CAN=MT_RUN|MT_WALK
DAM=3,0
ARMOR=35
TEVENTS=e_undead
on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1
ON=@Create
COLOR=042
NPC=brain_undead
STR=300
DEX=175
INT=10
ON=@NPCRestock
ITEM=i_gold,50000
ITEM=i_reg_krystal_l
ITEM=
ITEM=
ITEM=
PARRYING=&?90.0 100.0}
MAGICRESISTANCE=&?100.0}
TACTICS=&?90.0 100.0
WRESTLING=&?120.0 130.0}
POISONING=&?300.0 700.0}
FAME=&?300 5000}
KARMA=&?-6000 -6200}
[CHARDEF c_orc_treasure]
id=c_orc
NAME=Trasure Servants
SOUND=snd_MONSTER_ORC1
ICON=i_pet_ORC
ANIM=078c7f
DAM=3,9
ARMOR=14
CAN=MT_WALK|MT_RUN|MT_USEHANDS|MT_EQUIP
RESOURCES=8 i_ribs_raw
FOODTYPE=15 t_meat_raw
DESIRES=i_gold,spk_orc
TSPEECH=spk_orc
CATEGORY=Monsters
SUBSECTION=Orcs
DESCRIPTION=Orc
on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1
ON=@Create
NPC=brain_monster
FAME=&?100 1000}
KARMA=&?-1000 -5000}
STR=&?96 120}
DEX=&?81 105}
INT=&?36 60}
PARRYING=&?50.0 75.0}
MAGICRESISTANCE=&?50.0 75.0}
TACTICS=&?55.0 80.0}
WRESTLING=&?50.0 70.0}
[CHARDEF c_m_cyclops_king_treasure]
NAME=Kyrandia King
SOUND=snd_MONSTER_CYCLOPS1
ID=c_CYCLOPS
DAM=6,30
ARMOR=28
RESOURCES=30 i_ribs_raw
FOODTYPE=15 t_meat_raw
CAN=MT_WALK
on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1
ON=@Create
STR=&?350 390}
DEX=&?95 115}
INT=&?37 58}
MAGICRESISTANCE=&?60.0 75.0}
PARRYING=&?70.0 80.0}
TACTICS=&?80.0 100.0}
WRESTLING=&?80.0 90.0}
NPC=BRAIN_MONSTER
KARMA=&?-5000 -5999}
FAME=&?100 2000}
[CHARDEF c_m_dragon_crystal_treasure]
ID=c_DRAGON_RED
NAME=Lord of the Treasure
SOUND=snd_MONSTER_DRAGON1
ICON=i_pet_dragon
DAM=9,29
ARMOR=36
RESOURCES=99 i_ribs_raw,8 i_reag_dragon_blood,20 i_hide
CAN=MT_WALK|MT_FLY|MT_FIRE_IMMUNE
FOODTYPE=80 t_meat_raw
DESIRES=i_gold
AVERSIONS=r_water,r_civilization
on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1
ON=@Create
NPC=brain_dragon
COLOR=07fff
STR=&?825 940}
DEX=&?105 140}
INT=&?435 475}
PARRYING=&?55.0 95.0}
MAGICRESISTANCE=&?99.0 100.0}
TACTICS=&?98.0 100.0}
WRESTLING=&?90.0 93.0}
TAMING=99.0
FAME=&?3000 9000}
KARMA=&?-5000 -5999}
//Sise
[REGIONRESOURCE mr_bottle_define]
skill=100.0
amount=1
REAP=i_bottle_define
REGEN=60*15*10
//Kutu
[REGIONRESOURCE mr_cont_define]
skill=100.0
amount=1
REAP=i_cont_define
REGEN=60*15*10
[FUNCTION closealldialogs]
IF (<MEMORYFINDTYPE.memory_gumprecord>)
FORCHARMEMORYTYPE memory_gumprecord
TRYSRC <CONT> SRC.DIALOGCLOSE <TAG0.DIALOG_NAME> <ARGN2>
REMOVE
ENDFOR
ENDIF
[function moveback]
doswitch <dir>
begin
if (<canmove s>)
move s
endif
end
begin
if (<canmove sw>)
move sw
endif
end
begin
if (<canmove w>)
move w
endif
end
begin
if (<canmove nw>)
move nw
endif
end
begin
if (<canmove n>)
move n
endif
end
begin
if (<canmove ne>)
move ne
endif
end
begin
if (<canmove e>)
move e
endif
end
begin
if (<canmove se>)
move se
endif
end
begin
if (<canmove s>)
move s
endif
end
enddo
[EOF]
[itemdef i_cont_define]
NAME=Treasure Container
ID=i_box_brass
TYPE=t_normal
weight 0.1
ON=@CREATE
COLOR 070d
ON=@CLICK
MESSAGE @58 Belirsiz Sandik
return 1
ON=@DCLICK
if (<topobj.uid> != <src.uid>)
src.sysmessage @037 Bunu kullanabilmeniz icin cantanizda olmali.
return 1
endif
SRC.SAYUA 920,6,6,0 * Sandigi kirar *
src.newitem i_define_haritasi
src.act.equip
src.sysmessage @0482 Bilinmeyen bir kagit parcasi cikti
remove
return 1
[itemdef i_bottle_define]
NAME=SOS Bottle
ID=i_bottle_ale
TYPE=t_normal
weight 0.1
value 9
ON=@CREATE
COLOR 070d
ON=@CLICK
MESSAGE @58 SOS Bottle
return 1
ON=@DCLICK
if (<topobj.uid> != <src.uid>)
src.sysmessage @37 Bunu kullanabilmeniz icin cantanizda olmali.
return 1
endif
SRC.SAYUA 920,6,6,0 * Siseyi Kirar *
src.newitem i_define_haritasi
src.act.equip
src.sysmessage @0482 Bilinmeyen bir kagit parcasi 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 (0<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_rotting
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=2800
serv.newnpc=c_rotting
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=2800
serv.newnpc=c_rotting
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=2800
serv.newnpc=c_m_efreet
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=2800
serv.newnpc=c_m_cyclops_king
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=2800
serv.newnpc=c_m_dragon_crystal
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
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=<hval <def.random_treasure_prize>>
new.effect 1,i_gold,20,20
local.container=<new.uid>
serv.newitem=i_tesouro_monstro
new.cont=<local.npc1>
new.timer=3000
ELSE
serv.newnpc=c_rotting
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.timer=2800
serv.newnpc=c_rotting
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.timer=2800
serv.newnpc=c_orc
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
local.npc1=<new.uid>
serv.newitem=i_tesouro_monstro
new.timer=2800
serv.newnpc=c_m_cyclops_king
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
new.fix
new.home=<new.p>
new.homedist 10
new.events +e_tesouro_chefe
local.npc1=<new.uid>
new.say @0482 Hazinemi Almakmi ? KACMAYIN Gelin....
new.tag.tpx=<tag.tpx>
new.tag.tpy=<tag.tpy>
new.tag.prizemoney=<eval <src.cartography>*10>
new.tag.prizeitem=<hval <def.random_treasure_prize>>
new.effect 1,i_gold,20,20
local.container=<new.uid>
serv.newitem=i_tesouro_monstro
new.timer=3000
ENDIF
src.sysmessage @0482 Hazineye el koyabilmek icin yaratiklari oldurmen gerekiyor.
tag.tachado=1
remove
return 1
elseif (0<tag.decifrado>==0) && (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 !(0<tag.decifrado>==1) && (0<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_PLATEMAIL_INVULNERABILITY 1 RANDOM_PLATEMAIL_DEFENSE 1 RANDOM_PLATEMAIL_FORTIFICATION 1 RANDOM_PLATEMAIL_GUARDING 1 RANDOM_PLATEMAIL_HARDENING 1 RANDOM_WEAPON_FORCE 1 RANDOM_WEAPON_MIGHT 1 RANDOM_WEAPON_POWER 1 RANDOM_WEAPON_RUIN 1 RANDOM_WEAPON_vanq 1 RANDOM_SHIELD_INVULNERABILITY 1 RANDOM_SHIELD_DEFENSE 1 RANDOM_SHIELD_FORTIFICATION 1 RANDOM_SHIELD_GUARDING 1 RANDOM_SHIELD_HARDENING 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 28
BEGIN
tag.tpx=1250
tag.tpy=2581
tag.lugar="West from Trinsic"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=1899
tag.tpy=2375
tag.lugar="Northwest from Trinsic"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=<eval &褳792 1336}>
tag.tpy=<eval &褳640 2432}>
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
tag.lugar="at <new.region.name>"
END
BEGIN
tag.tpx=1479
tag.tpy=1881
tag.lugar="Southeast of Britain, where ocean meets land"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=1177
tag.tpy=2156
tag.lugar="South from Britain, where travellers get lost"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=1856
tag.tpy=861
tag.lugar="at sands of Compassion"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>,8
END
BEGIN
tag.tpx=<eval &褳792 1336}>
tag.tpy=<eval &褳640 2432}>
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
tag.lugar="at <new.region.name>"
END
BEGIN
tag.tpx=2636
tag.tpy=889
tag.lugar="next to Vesper, next to the mountains"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=5139
tag.tpy=970
tag.lugar="in Destard at the third lava pool"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=627
tag.tpy=1487
tag.lugar="next to Yew, where Orcs are born"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=<eval &褳792 1336}>
tag.tpy=<eval &褳640 2432}>
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
tag.lugar="at <new.region.name>"
END
BEGIN
tag.tpx=1652
tag.tpy=2894
tag.lugar="next to Trinsic at the Hidden Vale"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=4585
tag.tpy=3613
tag.lugar="at the first lava pool, on the left of the Avatar Isle"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=2447
tag.tpy=3612
tag.lugar="at the left shore of a marble island"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=<eval &褳792 1336}>
tag.tpy=<eval &褳640 2432}>
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
tag.lugar="at <new.region.name>"
END
BEGIN
tag.tpx=1323
tag.tpy=544
tag.lugar="at the Waterfall of Justice"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>,30
END
BEGIN
tag.tpx=<eval &褳792 1336}>
tag.tpy=<eval &褳640 2432}>
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
tag.lugar="at <new.region.name>"
END
BEGIN
tag.tpx=5519
tag.tpy=673
tag.lugar="at the last steps of the downest stair of Despise"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=2190
tag.tpy=1409
tag.lugar="at the first bone pile of the dock of the home of the orcs at Cove"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=5703
tag.tpy=639
tag.lugar="at the center of a room, in the most wrong dungeon"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=<eval &褳792 1336}>
tag.tpy=<eval &褳640 2432}>
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
tag.lugar="at <new.region.name>"
END
BEGIN
tag.tpx=6119
tag.tpy=219
tag.lugar="at the biggest of all dungeons, inside a room full of blood."
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=2006
tag.tpy=2933
tag.lugar="next to the left entrance of Trinsic"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=1606
tag.tpy=3531
tag.lugar="at the beach next to the Hidden Vale"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=5758
tag.tpy=2908
tag.lugar="at the entrance of the hottest dungeon, almost like hell"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=5209
tag.tpy=2322
tag.lugar="at the most hidden entrance of the coldest dungeon"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>,33
END
BEGIN
tag.tpx=733
tag.tpy=1152
tag.lugar="next to Yew cemitery"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
BEGIN
tag.tpx=<eval &褳792 1336}>
tag.tpy=<eval &褳640 2432}>
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
tag.lugar="at <new.region.name>"
END
BEGIN
tag.tpx=5199
tag.tpy=616
tag.lugar="in Deceit, where Orcs have lunch"
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<eval <tag.tpx>>,<eval <tag.tpy>>
END
ENDDO
new.fix
new.timer=1
IF (<new.region.flags>==<new.region.flags>|region_flag_guarded) || (<new.region.flags>==<new.region.flags>|region_flag_safe) || (<new.region.flags>==0892) || (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
[EOF]