Bende bi hazine sistemi var biraz sorunlu galiba

121
0.00 189 0

.treasure yaz haci sonra yeri seç 1saatte bir filan çıkıyor olmasi lazim..

-1

36 BostancÎ½ , Türkiye
0.00 398 0

ne alaka yaw yazdım bişey olmadı

Fro.By

121
0.00 189 0

:O_o ciddi ciddi çıkmadığını mı idda ediyorsun bana..

cuneytgunes

54 ank , Türkiye
8.70 82 0

valla bende o kadar istedim sağlam çalışlanı koymadılar tamam şimdi bu oldu diyorsun kasaya yıklandıgında bunu kullanamazsınız yazıyor başka deniyorsun oldugu yerde acıyor oyle bozuk scp. koymuşlar hep sağlam yok!!!

-1

36 BostancÎ½ , Türkiye
0.00 398 0

bedne var sağlam ama biraz sorun var galiba

Nicole

Novice

1.4

33 Yalova , Türkiye
72.10 179 0

Koy scripti buraya sorunlarıda söyle elimizden geldiği kadar yardımcı olalım.

-1

36 BostancÎ½ , Türkiye
0.00 398 0

Şimdi sorun şurda bazen sürekli olarak bilinmeyen bir kağıt parçası çıktı diyor bide hazinenin olduğu yeri kazdığımızda bi sürü yaratık çıkıyor hepsiniz kesince hazine falan çıkmıyor acaba yaratıkların içine nasıl item ekleriz??


[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
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

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]

GodFather

Novice

1.1

31 Bursa , Türkiye
62.89 167 0

hata nedir?

-1

36 BostancÎ½ , Türkiye
0.00 398 0

Chainsaw