Kolay Moongate Sistemi

• Nemesis[Berq]
• 2008-10-31 13:51
• 0 Yorumlar
• 1562 Görüntüleme

////////////////////////////////////////////////////////////////////////////////////

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

Değerlendirmeler

Total votes: 0