////////////////////////////////////////////////////////////////////////////////////
// Bu sistem Nemesis tarafından kodlanmıştır //
// //
// Defnamelerin altına nekadar eklerseniz , Moongate sayısı okadar artar , siler iseniz //
// Moongate sayısı ve dialog boyutu azalır. Yeni bir moongate alanı eklemek için : //
// moon10 , moonkord10 şeklinde ekleme yapıp moontoplamı 10 a çıkarmanız gerek //
// moon10'a şehiradı , moonkord10'a ise şehirin kordinatını girmeniz gerekmektedir //
// //
/////////////////////////////////////////////////////////////////////////////////////
[DEFNAME Moonlar]
moontoplam 9
moon1 Britain
moonkord1 Britain
moon2 Moonglow
moonkord2 Moonglow
moon3 Cove
moonkord3 Cove
moon4 Trinsic
moonkord4 Trinsic
moon5 Skara Brae
moonkord5 Skara Brae
moon6 Minoc
moonkord6 Minoc
moon7 Yew
moonkord7 Yew
moon8 Jhelom
moonkord8 Jhelom
moon9 Magincia
moonkord9 Magincia
[FUNCTION kontrol]
if (<src.findid i_rune_poison>)
src.sysmessage @39,0,1 Üzerinizde zehir var iken bu işlemi gerçekleştiremezisiniz..
return 1
elseif (<src.hits> < <src.str>)
src.sysmessage @39,0,1 Yaralı iken bu işlemi gerçekleştiremezsiniz..
return 1
ELSE
SRC.<args>
endif
[ITEMDEF i_nemesis_moongate]
ID=i_moongate_blue
NAME=Moongate
on=@create
attr 010
color 07a1
On=@Click
message @07a1 <region.name> Moongate
return 1
endif
on=@dclick
kontrol sdialog d_nememoon
return 1
on=@step
kontrol sdialog d_nememoon
return 1
[dialog d_nememoon]
50,50
resizepic 0 0 3500 200 <EVAL <DEF.moontoplam>*30>
dtext 70 20 0 - Sehirler -
VAR.moonbasla=50
FOR 1 <EVAL <DEF.moontoplam>>
dtext 50 <EVAL <VAR.moonbasla>> 0 <DEF.moon<EVAL <LOCAL._for>>>
button 25 <EVAL <VAR.moonbasla>> 55 56 1 0 <EVAL <LOCAL._for>>
VAR.moonbasla <VAR.moonbasla> + 20
ENDFOR
[dialog d_nememoon button]
VAR.moontoplam <EVAL <DEF.moontoplam>>
ON 1 90
SRC.go <DEF.moonkord<eval <argn>>>
RETURN 1
endif
0 Total votes: 0
Yorumlar (0)