Moongate

• xwerswoodx
• 2009-07-05 18:49
• 0 Yorumlar
• 1769 Görüntüleme

Yardımlarından dolayı " BASİC " e çok teşekkürler...



NOT: EĞER SCRİPT YAZMAYI BİLMİYORSANIZ LÜTFEN SCP ÜSTÜNDE OYNAMAYINIZ



[email protected]



VEYA BİLGİLİ BİRİ İLE İLETİŞİME GEÇİNİZ...



//***************************************

// YAZAR: xwerswoodx

// YAPIM: Hamit Devecioğlu (c)2003-2009

// TARİH: 03.07.2009

// SAAT : 17:54

// KONU : Işınlanma Kapısı Versiyon v 01 (Moongate Versiyon 4)

//***************************************

VERSION:0.56b



[Defname isinlanmakapisi]

gatetoplam=15

gate_1=1337,1997,5		// Britain Moongate

location_1=Britain

gate_2=2729,2133		// Bucaneers Den Moongate

location_2=Bucaneers Den

gate_3=2481,1122,5		// Cove Moongate

location_3=Cove

gate_4=5352,4025,47		// Delucia Moongate

location_4=Delucia

gate_5=1500,3772,5		// Jhelom Moongate

location_5=Jhelom

gate_6=Magincia moongate	// Magincia Moongate

location_6=Magincia

gate_7=Minoc-Vesper moongate	// Minoc Moongate

location_7=Minoc

gate_8=Moonglow moongate	// Moonglow Moongate

location_8=Moonglow

gate_9=3521,1106,20		// Njuhelm Moongate

location_9=Njuhelm

gate_10=3705,2724,23		// Occlo Moongate

location_10=Occlo

gate_11=2773,3518		// Serpents Hold Moongate

location_11=Serpents Hold

gate_12=Skara Brae moongate	// Skara Brae Moongate

location_12=Skara Brae

gate_13=Trinsic moongate	// Trinsic Moongate

location_13=Trinsic

gate_14=Minoc-Vesper Moongate	// Vesper Moongate

location_14=Vesper

gate_15=Yew moongate		// Yew Moongate

location_15=Yew



[Dialog d_moongate_V4]

-297,-126

Move

resizepic 297 125 2620 250 480

//resizepic 297 125 3500 250 480

dtext 322 136 47 Moongate V4

dtext 350 575 920 Iptal

button 316 573 4006 4007 1 0 0



local.x 173

for 1 <ddef.gatetoplam>

button 316 <eval <local.x>> 4006 4007 1 0 <dlocal._for>

local.x +=25

endfor



local.z 175

for 1 <ddef.gatetoplam>

dtext 350 <dlocal.z> 920 <def.location_<dlocal._for>>

local.z +=25

endfor



[Dialog d_moongate_V4 TEXT]



[Dialog d_moongate_V4 BUTTON]

On=0

src.findid.i_tektiklama.remove

return 1



On=1 15

IF ( <eval <distance>> < 3 )

	if (<src.findid.i_rune_poison>)

	src.hata Uzerinizde zehir varken moongate kullanamazsiniz.

	return 1

	elseif (<src.hits> < <src.str>)

	src.hata Yaraliylen moongate kullanamazsiniz.

	return 1

	ELSE

	src.go <def.gate_<dargn>>

	src.np <def.location_<dargn>> Sehrine Hos Geldiniz.

	src.findid.i_tektiklama.remove

	return 1

	endif

else

src.hata Moongate'yi kullanabilmek icin yakin olmalisiniz.

src.findid.i_tektiklama.remove

return 1

endif



[Itemdef i_moongate_v4]

Defname=i_moongate_v4

Id=i_moongate_gray

Name=Moongate

Type=t_normal



On=@Create

Color=00

Attr=Attr_static



On=@Click

message @75 [ <serv.name> ]

message @55 ( <region.name> )

message @95 <name>

return 1



On=@Dclick

if (<distance> < 3)

src.moongate

return 1

else

src.hata Moongate'yi kullanabilmek icin daha yakin olmalisiniz.

return 1

endif



On=@Step

Dclick

src.move 1

return 1



[Function moongate]

if (<src.findid.i_rune_poison>)

src.hata Uzerinizde zehir varken moongate kullanamazsiniz.

return 1

elseif (<src.hits> < <src.str>)

src.hata Yaraliylen moongate kullanamazsiniz.

return 1

elseif (<src.findid.i_tektiklama>)

src.hata Sadece bir kere acabilirsiniz.

return 1

else

sdialog d_moongate_v4

src.newitem i_tektiklama

src.act.bounce

return 1

endif



[itemdef i_tektiklama]

Id=i_gold

Name=Tek Tiklama



On=@Create

AttR=attr_invis|attr_decay

[EOF]

Değerlendirmeler

Total votes: 0