/////////////////////////////////////////////////////////////////////////////////
// Scripter Name: -
// Shard Name: The Rosario Game
// Shard Adress : www.rosario.gen.tr
// Sphere Version: 56b
//
// Bu dosya içindeki kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// The codes was writting or editing by Raskol Serna
/////////////////////////////////////////////////////////////////////////////////
[dialog d_treasure]
50,50
page 0
resizepic 0 0 3600 220 140
dtext 50 20 38 Treasure Menüsü
dtext 45 50 1152 Treasure map aç
dtext 45 70 1152 Kazı yap
dtext 45 90 1152 Arrow quest kapat
button 25 52 2224 2117 1 0 1
button 25 72 2224 2117 1 0 2
button 25 92 2224 2117 1 0 3
[dialog d_treasure button]
onbutton 1
sdialog d_treasure_map
SRC.ARROWQUEST <morex>,<morey>
onbutton 2
if !(<src.isnextp <eval <morex>> <eval <morey>> 40>)
src.sysmessage @0845,1,1 Hazine yakınında değilsiniz!
return 1
endif
if (<more2>)
IF (<src.isnextp <eval <morex>> <eval <morey>> 40>)
IF !(<src.findid.i_shovel>)
src.sysmessage @0845,1,1 Bunu kullanmak için shovel'a ihtiyacınız vardır!
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
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
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.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
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
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.effect 1,i_gold,20,20
ENDIF
tag.status=Hazine bulundu
src.sysmessage @00482,1,1 Hazine sahibi olabilmeniz için bütün yaratıkları öldürmelisiniz!
more1=1
ENDIF
ENDIF
onbutton 3
src.arrowquest
[itemdef i_cont_define]
NAME=Treasure Container
ID=i_box_brass
TYPE=t_normal
weight 0.1
ON=@CREATE
COLOR 070d
ON=@DCLICK
if <cont> != <src.findlayer(21)>
src.sysmessage @0845,1,1 Bunu kullanabilmeniz için çantanızda olmalıdır!
return 1
endif
SRC.SAYUA 920,6,6,0 * sandığı kırar *
src.newitem i_map_of_treasure
src.act.equip
src.sysmessage @666,1,1 Bilinmeyen bir kağıt parçası çıktı.
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=@dclick
if <cont> != <src.findlayer(21)>
src.sysmessage @0845,1,1 Bunu kullanabilmeniz için çantanızda olmalıdır!
return 1
endif
SRC.SAYUA 920,6,6,0 * şişeyi kırar *
src.newitem i_map_of_treasure
src.act.equip
src.sysmessage @666,1,1 Bilinmeyen bir kağıt parçası çıktı.
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=didn't open
color=06aa
f_treasure_selection
on=@click
message @03b2,,1, <name>
message @50,,1 (<tag.status>)
return 1
on=@dclick
if <cont> != <src.findlayer(21)>
src.sysmessage @0845,1,1 Bunu kullanabilmeniz için çantanızda olmalıdır!
return 1
elif (<more1>)
src.sysmessage @0845,1,1 Bu hazine daha önce bulunmuştur!
src.arrowquest
remove
return 1
endif
if (<dispid> = i_map)
sdialog d_treasure
return 1
endif
IF !(RAND(6))
IF !(<SRC.CARTOGRAPHY> >= 100.0) && (<src.skilltotal> < 700.0))
SRC.CARTOGRAPHY += <EVAL {1 2}>
ENDIF
MORE2=1
src.sysmessage @00482,1,1 Haritayı başarılı bir şekilde açtınız.
tag.status=<src.name>'s map
tag.cozdum=1
dispid=i_map
attr=attr_newbie
update
ELSE
src.sysmessage @0845,1,1 Harita inceleme işlemi başarısız!
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> bölgesinde. 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
dorand 7
serv.newitem i_ma_3
serv.newitem i_ma_6
serv.newitem i_ma_9
serv.newitem i_ma_12
serv.newitem i_ma_15
serv.newitem i_leather_invul
serv.newitem i_studded_invul
enddo
//serv.newitem={i_ma_3 1 i_ma_6 1 i_ma_9 1 i_ma_12 1 i_ma_15 1 i_leather_invul 1 i_studded_invul 1}
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 @666,1,1 Tüm yaratıkları öldürdünüz!
try uid.<uid.<argo.uid>.more2>.sysmessage @00482,1,1 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=@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=@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=@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=@Create
NPC=brain_dragon
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]
0
Total votes: 0
Yorumlar (0)