Ben şuan hazine.scp hatalımı hatasızmı demedim bile benim şuan yapmak istediğim kendime ait olan scpmin son basamağını yapmk ama ok çıkmıyor bir türlü:
On=2
src.arrowquest <eval <ctag0.tps>>,<eval <ctag0.tpc>>
src.sayu Britain'a ok cikarttiniz.
src.sysmessage @07a1 Oku Takip Edip Yulunuzu Bulunuz..! SAYIN <src.name>
Eğer hazine.scp'yi istersen buyur ama kendi dialogumda sağdece ok çıkartmak kaldı !,O da çıkmıyor !
[DEFNAME treasure_system]
TREASURE_1 "5479,3473,37"
TREASURE_2 "1232,848"
TREASURE_3 "5765,2613,67"
TREASURE_4 "5150,2443,13"
TREASURE_5 "2504,4020"
TREASURE_6 "6123,3949,21"
TREASURE_7 "1146,593,1"
TREASURE_8 "4784,3849"
TREASURE_9 "6110,3470,1"
[ITEMDEF i_treasure_chest]
ID=i_chest_metal_brass
NAME=Treasure
TYPE=t_container
ON=@Create
ATTR=Attr_Static|Attr_Move_Never
MOREY=1
TIMER=<EVAL (3600*8)>
ON=@Click
MSG_OK <NAME>
MSG_NORMAL <F_LOOK_TIME <TIMER>>
RETURN 1
ON=@Dclick
IF (<MOREY>)
SRC.SYS_HATA Bu hazinenin kilidi kırılmamış.
ELSEIF (<F_Treasure_Fix>)
SRC.SYS_HATA Tüm hazine yaratıkları ölmeden hazineyi açamazsınız.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Hazineye ulaşamıyorsunuz.
ELSEIF (<SRC.F_Flags_Check>)
SRC.SYS_HATA Bu durumda iken hazineyi açamazsınız.
ELSE
SRC.SYS_OK Hazine kasasını başarılı bir şekilde açtınız.
RETURN 0
ENDIF
RETURN 1
ON=@Timer
FOR 5
IF !STRMATCH("<F_SELECT <dLOCAL._FOR>,<TAG0.NPCS>>","0")
REF44=<F_SELECT <dLOCAL._FOR>,<TAG0.NPCS>>
IF (<REF44>) && (<REF44.ISCHAR>) && STRMATCH(*treasure*,<REF44>)
REF44.KILL
ENDIF
ENDIF
ENDFOR
TIMERF 1,Remove_Map
TIMERF 2,Remove
RETURN 1
[FUNCTION remove_map]
IF (<TAG0.LINK>)
IF (<UID.<TAG0.LINK>.TYPE>==t_map)
TRY UID.<TAG0.LINK>.REMOVE
ENDIF
ENDIF
[TEMPLATE t_treasure_chest]
CONTAINER=i_treasure_chest
ITEM=i_gold,{20000 30000}
ITEM=random_weapon_power,R5
ITEM=i_egg_ostard,R8
ITEM=i_invulnerability_hide,R2
ITEM=i_orc_helm
[ITEMDEF i_treasure_bottle]
ID=i_bottle
NAME=Kayip Sise
TYPE=t_normal
On=@Click
MSG_NORMAL <NAME>
RETURN 1
On=@Dclick
IF (RAND(20)==1)
SRC.SYS_HATA Kayıp şişeden asılsız,yırtılmış bir harita çıktı.
SERV.NEWITEM i_treasure_map,1,<SRC>
NEW.MOREZ 1
REMOVE
ELSE
SERV.NEWITEM i_treasure_map,1,<SRC>
SRC.SYS_OK Gerçek bir hazine haritası !
REMOVE
ENDIF
RETURN 1
[ITEMDEF i_treasure_map]
ID=i_map
NAME=Treasure Map
TYPE=t_map
On=@Create
MOREY=1
On=@Click
MSG_OK <NAME>
IF (<MOREZ>)
MSG_NORMAL Asılsız çıkmış.
ELSE
MSG_NORMAL Çözen:<QVAL (<MORE2>)?<UID.<MORE2>.NAME>:Çözülmemiş>
IF !(<MOREY>)
MSG_NORMAL Yeri:<TAG0.TREASURE>
ENDIF
ENDIF
RETURN 1
On=@Dclick
IF (<TOPOBJ>!=<SRC>)
SRC.SYS_HATA Hazine haritası çantanızda olmalıdır.
ELSEIF (<MOREZ>)
SRC.SYS_HATA Bu harita okunamayaca kadar yırtık.
ELSEIF (<SRC.CARTOGRAPHY> <90.0) && !(<MORE2>)
SRC.SYS_HATA Bu haritayı çözebilecek kadar bilginiz yok.
ELSEIF (<MORE2>) && !(<MOREM>)
SRC.ARROWQUEST=<TAG.ARROWQUEST>
SRC.SYS_OK Hazineye ok çıkarttınız.
SRC.SYS_OK Hazine <TAG.TREASURE> bölgesi civarlarında.
ELSEIF (RAND(100) < 65) && !(<MORE2>)
SRC.SYS_HATA Hazineyi çözmeyi başaramadınız.
ELSEIF (<MORE2>) && (<MOREM>)
SRC.SYS_HATA Bu hazine çoktan açılmış.
ELSE
TAG.ARROWQUEST=<DEF.TREASURE_<R1,9>>
MORE2=<SRC>
MOREY=0
COLOR=0455
SERV.NEWITEM t_treasure_chest
NEW.P <TAG.ARROWQUEST>
NEW.TAG0.LINK=<UID>
REF8=<NEW>
SERV.NEWNPC C_TREASURE_NPC1
NEW.P <TAG.ARROWQUEST>
NEW.HOME <TAG.ARROWQUEST>
NEW.HOMEDIST 2
NEW.TAG0.NPC=1
NEW.TAG0.LINK=<REF8>
REF8.TAG0.TREASURE_NPC1=1
REF8.TAG0.NPCS .=, <NEW>
SERV.NEWNPC C_TREASURE_NPC2
NEW.P <TAG.ARROWQUEST>
NEW.HOME <TAG.ARROWQUEST>
NEW.HOMEDIST 2
NEW.TAG0.NPC=2
NEW.TAG0.LINK=<REF8>
REF8.TAG0.TREASURE_NPC2=1
REF8.TAG0.NPCS .=, <NEW>
SERV.NEWNPC C_TREASURE_NPC3
NEW.P <TAG.ARROWQUEST>
NEW.HOME <TAG.ARROWQUEST>
NEW.HOMEDIST 2
NEW.TAG0.NPC=3
NEW.TAG0.LINK=<REF8>
REF8.TAG0.TREASURE_NPC3=1
REF8.TAG0.NPCS .=, <NEW>
SERV.NEWNPC C_TREASURE_NPC4
NEW.P <TAG.ARROWQUEST>
NEW.HOME <TAG.ARROWQUEST>
NEW.HOMEDIST 2
NEW.TAG0.NPC=4
NEW.TAG0.LINK=<REF8>
REF8.TAG0.TREASURE_NPC1=1
REF8.TAG0.NPCS .=, <NEW>
SRC.ARROWQUEST=<TAG.ARROWQUEST>
TAG.TREASURE=<REF8.REGION.NAME>
SRC.SYS_OK Bu hazine <TAG.TREASURE> bölgesi civarlarında bulunuyor.
ENDIF
RETURN 1
//////////////////////////////
[CHARDEF c_treasure_npc1]
ID=c_skeleton
NAME=Hazine Koruyucusu
CAN=MT_WALK
DAM=10,15
ARMOR=60
TEVENTS=e_treasure_npc
ON=@Create
COLOR=0460
STR={500 600}
INT={200 300}
DEX={200 300}
SWORDSMANSHIP={100.0 120.0}
TACTICS={100.0 120.0}
WRESTLING={100.0 120.0}
PARRYING={100.0 120.0}
FAME=1000
KARMA=-10000
[CHARDEF c_treasure_npc2]
ID=c_skeleton
NAME=Hazine Koruyucusu
CAN=MT_WALK
DAM=10,15
ARMOR=60
TEVENTS=e_treasure_npc
ON=@Create
COLOR=0460
STR={500 600}
INT={200 300}
DEX={200 300}
SWORDSMANSHIP={100.0 120.0}
TACTICS={100.0 120.0}
WRESTLING={100.0 120.0}
PARRYING={100.0 120.0}
FAME=1000
KARMA=-10000
[CHARDEF c_treasure_npc3]
ID=c_skeleton
NAME=Hazine Koruyucusu
CAN=MT_WALK
DAM=10,15
ARMOR=60
TEVENTS=e_treasure_npc
ON=@Create
COLOR=0460
STR={500 600}
INT={200 300}
DEX={200 300}
SWORDSMANSHIP={100.0 120.0}
TACTICS={100.0 120.0}
WRESTLING={100.0 120.0}
PARRYING={100.0 120.0}
FAME=1000
KARMA=-10000
[CHARDEF c_treasure_npc4]
ID=c_troll
NAME=Hazine Koruyucusu
CAN=MT_WALK
DAM=10,15
ARMOR=60
TEVENTS=e_treasure_npc
ON=@Create
COLOR=0455
STR={500 600}
INT={200 300}
DEX={200 300}
SWORDSMANSHIP={100.0 120.0}
TACTICS={100.0 120.0}
WRESTLING={100.0 120.0}
PARRYING={100.0 120.0}
FAME=1000
KARMA=-10000
////////////////////
[EVENTS e_treasure_npc]
ON=@Click
MSG_HATA [ Treasure Guard ]
ON=@SpellEffect
IF (<dARGN1>==1) || (<dARGN1>==3) || (<dARGN1>==5) || (<dARGN1>==8) || (<dARGN1>==47)
SAY_OK [<SERV.SPELL.<dARGN1>.NAME> Resist]
RETURN 1
ENDIF
ON=@Death
REF8=<TAG0.LINK>
REF9=<REF8.TAG0.LINK>
REF8.TAG0.TREASURE_NPC<dTAG0.NPC>=
REF9.MOREX +=1
IF (<REF9.dMOREX> >3)
REF9.MOREM=1
ENDIF
hazine bu ama dediğim gibi denemedim.
