arkadaşlar hazine sisteminde quest arrow u aktif edemedim yardımcı olabilirmisiniz
//eski sistemden
[itemdef i_define_haritasi]
NAME=Treasure Map
ID=i_map_rolled
TYPE=t_normal
SKILLMAKE=CARTOGRAPHY 95.0, Magery 70.0
RESOURCES=20 i_map_blank, 3 i_cont_define
on=@dclick
if !(<cont> == <src.findlayer.21.uid>)
src.sysmessage @38,,1 Hata: Cantanizda olmasi gerekiyor.
return 1
endif
src.sysmessage @027,1,1 Hata : Bu harita eski sistem haritasiydi.Suan yenisi cantaniza geldi.
src.newitem i_map_of_treasure
src.act.equip
src.sysmessage @50 Bilinmeyen bir kagit parcasi cikti
remove
return 1
[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 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=SOS Bottle
ID=i_bottle_ale
TYPE=t_normal
weight 0.1
value 9
ON=@CREATE
COLOR 070d
ON=@CLICK
MESSAGE @47,,1 SOS Bottle
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=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 @50,,1 (<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> acmis
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
tru 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=Rotting Corpse
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
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=Orc
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=Cyclone 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=AkiCyc Crystal
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]
