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]
0
Total votes: 0
Yorumlar (0)