Selam Arkadaşlar Ben Kendime Göre Bi Moongate Scripti Yazdım Moongateyi Çift Tıkladığında Geri Atıyor Last Objet Yapınca Üç Kere Tıklayabiliyor Sonra Yeterince Yakın Değilsiniz Yani Bi Kere Tıkladığında Tek Kare Geri Atsın Bidaha Atmasın Ve Moongateyi Burda Tıklıyorsun MEsela Başka Menüyü Kapatmadan Başka Bir Bölgeye Gidiyosun Ordan'da Gidiyor. Yazdıklarım Biraz Karışık Olabilir Ama Nasıl Anlatacağımı Bilemedim BEni Anlayanlar Lütfen Yardım Etsin.
[itemdef i_wistamoongate]
id=i_moongate_blue
name Wista Pvp Moongate
type=t_moongate
defname=i_travgate
on=@create
color=0980
attr attr_invis|attr_can_decay
on=@step
src.smsgx Moongateleri sadece cift tiklayarak kullanabilirsiniz.
src.move se 1
IF (<targ.DISTANCE> <=1)
RETURN 1
endif
on=@dclick
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
elseif (<src.hits> < <src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
elseif (<distance> > 2)
src.sysmessage @0481,,1 Yeterince yakin degilsiniz.
else
src.dialog d_facet_moongate
RETURN 1
endif
on=@click
message @0481,,1 <name>
return 1
on=@timer
return 1
[dialog d_facet_moongate]
-75,-25
move 1
resizepic 215 92 5170 205 285
text 250 125 62 0
text 270 155 38 1
text 270 175 38 2
text 270 195 38 3
text 270 215 38 4
text 270 235 78 5
text 270 255 63 6
text 270 275 63 7
text 270 295 63 8
text 270 315 62 9
button 245 158 2224 2117 1 0 1
button 245 178 2224 2117 1 0 2
button 245 198 2224 2117 1 0 3
button 245 218 2224 2117 1 0 4
button 245 238 2224 2117 1 0 5
button 245 258 2224 2117 1 0 6
button 245 278 2224 2117 1 0 7
button 245 298 2224 2117 1 0 8
button 245 318 2224 2117 1 0 9
[dialog d_facet_moongate text]
Wista Pvp Shard
Britain
Moonglow
Bilet Alani
Destard
Rare Odasi
Spawn Odasi
Vendor Alani
Moonglow Zoo
Safe Alani
[dialog d_facet_moongate button]
On=0
findid.i_moongater.remove
/////\\\\\ Britain //////\\\\\
On=1
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
DORAND 1
SRC.GO 1483,1628,20
ENDDO
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
/////\\\\\ Moonglow //////\\\\\
On=2
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
DORAND 1
SRC.GO 4451,1152
ENDDO
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
/////\\\\\ Bilet Alani //////\\\\\
On=3
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
DORAND 1
SRC.GO 2786,862
ENDDO
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
/////\\\\\ Destard //////\\\\\
On=4
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
DORAND 1
SRC.GO 5244,998
ENDDO
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
/////\\\\\ Rare Odasi //////\\\\\
On=5
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
DORAND 1
SRC.GO 3687,1279,61
ENDDO
src.sysmessage @0481,0,1 Rare Dunyasi'na Hos Geldiniz.
endif
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
/////\\\\\ Spawn Odasi //////\\\\\
On=6
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
DORAND 1
SRC.GO 5515,1200
ENDDO
src.sysmessage @2085 Vendor Alani'na Hos Geldiniz.
endif
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
/////\\\\\ Vendor Alani //////\\\\\
On=7
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
DORAND 4
SRC.GO 5205,451,15
SRC.GO 5178,424,15
SRC.GO 5205,410,15
SRC.GO 5225,431,15
ENDDO
src.sysmessage @2085 Vendor Alani'na Hos Geldiniz.
endif
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
/////\\\\\ Moonglow Zoo //////\\\\\
On=8
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
DORAND 1
SRC.GO 4530,1378,23
ENDDO
src.sysmessage @2085 Zoo'ya Hos Geldiniz..
endif
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
/////\\\\\ Safe Alani //////\\\\\
On=9
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
DORAND 5
SRC.GO 3759,1351
SRC.GO 3755,1307
SRC.GO 3740,1353
SRC.GO 3755,1290
SRC.GO 3779,1306
ENDDO
src.sysmessage @2085 Safe Alan'a Hos Geldiniz.
endif
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
/////////////
[itemdef i_gater]
name gater
id i_handr_1
type t_eq_script
weight 0
layer layer_special
On=@Create
attr attr_invis|attr_can_decay
On=@Equip
timer 30
src.dialog d_gatetravel
On=@Timer
remove
return 1
[itemdef i_moongater]
name moongater
id i_handr_1
type t_eq_script
weight 0
layer layer_special
On=@Create
attr attr_invis|attr_can_decay
On=@Equip
timer 30
src.dialog d_facet_moongate
On=@Timer
remove
return 1
[typedef t_facet_moongate]
On=@Step
if !((<src.findid.i_moongater>) || (<src.flags>&statf_stone))
src.newitem i_moongater
src.act.link <uid>
src.act.equip
endif
return 1
On=@Dclick
if !(<src.flags>&statf_stone)
if (<distance> > 3)
src.sysmessage Gate'e ulasamiyorsunuz.
else
if (<src.findid.i_moongater>)
src.findid.i_moongater.remove
endif
src.newitem i_moongater
src.act.link <uid>
src.act.equip
endif
endif
return 1
On=@Click
if (<src.region.type> == <region.type>)
sayua 0905,0,0,0 a Moongate
else
message a Moongate
endif
return 1
[dialog d_gatetravel]
-100,-100
nomove
resizepic 200 175 5170 140 120
htmlgump 230 195 120 20 0 0 0
htmlgump 268 224 80 20 1 0 0
htmlgump 268 244 80 20 2 0 0
button 235 225 4006 4007 1 0 1
button 235 245 4018 4019 1 0 0
[dialog d_gatetravel text]
GATE TRAVEL
Evet
Hayir
[dialog d_gatetravel button]
On=0
findid.i_gater.remove
On=1 // gate'e gir
if !(<findid.i_gater.link.isitem>)
sysmessage Gate gecemeden kapanmis.
findid.i_gater.remove
elseif (<findid.i_gater.link.distance> > 3)
sysmessage Gate'e ulasamiyorsunuz.
findid.i_gater.remove
else
go <findid.i_gater.morep>
findid.i_gater.timer 2
endif
[eof]
Bu konu Slothere tarafından düzenlendi(2009-04-29 05:43, 16 yıl önce)