Bilinmiyor -  29-07-2009 18:23
Kod:
///////////////////////////////////////////////////////////////////////
// *Scripter Name : Raskol Serna
// *Shard Name : The Rosario Game
// *Shard Address : www.rosario.gen.tr
// *Personal Address : www.raskolserna.com
// *Messenger and E-Mail : [email protected]
// *Sphere Version : Specially 0.56b and maybe other releases
//
// *Bu kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// *The codes are written or were edited by TheRaskol (Raskol Serna).
///////////////////////////////////////////////////////////////////////

[DIALOG d_travgate]
100,100
page 0
nomove
resizepic 10 50 3600 190 325

text 25 68 105 0 0
button 30 100 2714 2715 1 0 1
text 60 100 1152 1 0 0
button 30 125 2714 2715 1 0 2
text 60 125 1152 2 0 0
button 30 150 2714 2715 1 0 3
text 60 150 1152 3 0 0
button 30 175 2714 2715 1 0 4
text 60 175 1152 4 0 0
button 30 200 2714 2715 1 0 5
text 60 200 1152 5 0 0
button 30 225 2714 2715 1 0 6
text 60 225 1152 6 0 0
button 30 250 2714 2715 1 0 7
text 60 250 1152 7 0 0
button 30 275 2714 2715 1 0 8
text 60 275 1152 8 0 0
button 30 300 2714 2715 1 0 9
text 60 300 1152 9 0 0
button 30 340 2714 2715 1 0 10
text 60 340 1152 10 0 0
//110 210 1152 3 0 0

[DIALOG d_travgate TEXT]
<SRC.REGION.NAME>
Marble Island
Moonglow
Britain
Jhelom
Yew
Minoc
Trinsic
Skara Brae
Magincia
Çıkış

[DIALOG d_travgate BUTTON]
ONBUTTON=0
RETURN 1

ONBUTTON=1
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
IF (<DISTANCE><=3)
SRC.GO 1978,2078
ELSE
src.sysmessage @0845,1,1 Moongate'e ulaşamıyorsunuz!
ENDIF
SRC.FIX

ONBUTTON=2
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
IF (<DISTANCE><=3)
SRC.GO 4468,1283,5
ELSE
src.sysmessage @0845,1,1 Moongate'e ulaşamıyorsunuz!
ENDIF
SRC.FIX

ONBUTTON=3
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
IF (<DISTANCE><=3)
SRC.GO 1337,1997,5
ELSE
src.sysmessage @0845,1,1 Moongate'e ulaşamıyorsunuz!
ENDIF
SRC.FIX

ONBUTTON=4
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
IF (<DISTANCE><=3)
SRC.GO 1500,3772,5
ELSE
src.sysmessage @0845,1,1 Moongate'e ulaşamıyorsunuz!
ENDIF
SRC.FIX

ONBUTTON=5
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
IF (<DISTANCE><=3)
SRC.GO 772,752,5
ELSE
src.sysmessage @0845,1,1 Moongate'e ulaşamıyorsunuz!
ENDIF
SRC.FIX


ONBUTTON=6
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
IF (<DISTANCE><=3)
SRC.GO 2702,693,5
ELSE
src.sysmessage @0845,1,1 Moongate'e ulaşamıyorsunuz!
ENDIF
SRC.FIX

ONBUTTON=7
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
IF (<DISTANCE><=3)
SRC.GO 1829,2948,-20
ELSE
src.sysmessage @0845,1,1 Moongate'e ulaşamıyorsunuz!
ENDIF
SRC.FIX

ONBUTTON=8
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
IF (<DISTANCE><=3)
SRC.GO 644,2067,5
ELSE
src.sysmessage @0845,1,1 Moongate'e ulaşamıyorsunuz!
ENDIF
SRC.FIX

ONBUTTON=9
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
IF (<DISTANCE><=3)
SRC.GO 3564,2139,34
ELSE
src.sysmessage @0845,1,1 Moongate'e ulaşamıyorsunuz!
ENDIF
SRC.FIX

ONBUTTON=10
RETURN 1

[ITEMDEF i_travgate]
DEFNAME=i_travgate
TYPE=t_moongate
ID=i_moongate_blue
NAME=Moongate

ON=@DCLICK
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<src.findid i_rune_poison>)
src.sysmessage @0845,1,1 Zehirliyken moongate'i kullanamazsınız!
elseif (<src.hits> < <src.str>) && !(<src.flags>&statf_dead)
src.sysmessage @0845,1,1 Yaralıyken moongate'i kullanamazsınız!
elif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @0845,1,1 Gizliyken moongate'i kullanamazsınız!
else
sDIALOG d_travgate
RETURN 1


ON=@STEP
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<src.findid i_rune_poison>)
src.sysmessage @0845,1,1 Zehirliyken moongate'i kullanamazsınız!
elseif (<src.hits> < <src.str>) && !(<src.flags>&statf_dead)
src.sysmessage @0845,1,1 Yaralıyken moongate'i kullanamazsınız!
elif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @0845,1,1 Gizliyken moongate'i kullanamazsınız!
else
sDIALOG d_travgate
SRC.MOVE 1
return 1
endif
RETURN 1

[typedef t_moongate]
ON=@DCLICK
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<src.findid i_rune_poison>)
src.sysmessage @0845,1,1 Zehirliyken moongate'i kullanamazsınız!
elseif (<src.hits> < <src.str>) && !(<src.flags>&statf_dead)
src.sysmessage @0845,1,1 Yaralıyken moongate'i kullanamazsınız!
elif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @0845,1,1 Gizliyken moongate'i kullanamazsınız!
else
sDIALOG d_travgate
RETURN 1


ON=@STEP
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<src.findid i_rune_poison>)
src.sysmessage @0845,1,1 Zehirliyken moongate'i kullanamazsınız!
elseif (<src.hits> < <src.str>) && !(<src.flags>&statf_dead)
src.sysmessage @0845,1,1 Yaralıyken moongate'i Kullanamazsiniz.
elif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @0845,1,1 Gizliyken moongate'i kullanamazsınız!
else
sDIALOG d_travgate
SRC.MOVE 1
return 1
endif
RETURN 1

[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
if (<eval <tag.rbgate>>==1)
src.dialog d_gatetravel
endif

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.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if !(<src.flags>&statf_stone)
if (<distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
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
message a Moongate
endif
return 1

[dialog d_gatetravel]
-100,-100
nomove

resizepic 190 165 3600 140 120
text 210 185 38 0 0 0

text 258 218 1152 1 0 0
text 258 238 1152 2 0 0

button 225 215 4006 4007 1 0 1
button 225 235 4018 4019 1 0 0

[dialog d_gatetravel text]
Gate'i Kullan
Evet
Hayır

[dialog d_gatetravel button]
On=0
findid.i_gater.remove

On=1 // gate'e gir
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if !(<findid.i_gater.link.isitem>)
src.sysmessage @0845,1,1 Gate geçemeden kapanmış!
findid.i_gater.remove
elseif (<findid.i_gater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_gater.remove
else
go <findid.i_gater.morep>
findid.i_gater.timer 2
endif

[dialog d_facet_moongate]
-100,-100
nomove

resizepic 190 165 5120 180 240
htmlgump 220 185 120 20 0 0 0

htmlgump 240 215 80 20 1 0 0
htmlgump 240 235 80 20 2 0 0
htmlgump 240 255 80 20 3 0 0
htmlgump 240 275 80 20 4 0 0
htmlgump 240 295 80 20 5 0 0
htmlgump 240 315 80 20 6 0 0
htmlgump 240 335 80 20 7 0 0
htmlgump 240 355 80 20 8 0 0
//htmlgump 240 375 80 20 9 0 0

button 220 215 2714 2715 1 0 2
button 220 235 2714 2715 1 0 3
button 220 255 2714 2715 1 0 4
button 220 275 2714 2715 1 0 5
button 220 295 2714 2715 1 0 6
button 220 315 2714 2715 1 0 7
button 220 335 2714 2715 1 0 8
button 220 355 2714 2715 1 0 9
//button 220 375 2714 2715 1 0 10

[dialog d_facet_moongate text]
<serv.name> Moongate
Moonglow
Britain
Jhelom
Yew
Minoc
Trinsic
Skara Brae
Magincia
Pazar Alanı

[dialog d_facet_moongate button]
On=0
findid.i_moongater.remove

On=2
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_moongater.remove
else
go moonglow moongate
findid.i_moongater.timer 2
endif

On=3
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_moongater.remove
else
go britain moongate
findid.i_moongater.timer 2
endif

On=4
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_moongater.remove
else
go 1499,3772,5 //jhelom moongate
findid.i_moongater.timer 2
endif

On=5
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_moongater.remove
else
go 771,752,5 //yew moongate
findid.i_moongater.timer 2
endif

On=6
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_moongater.remove
else
go 2702,693,5 //minoc-vesper moongate
findid.i_moongater.timer 2
endif

On=7
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_moongater.remove
else
go trinsic moongate
findid.i_moongater.timer 2
endif

On=8
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_moongater.remove
else
go skara brae moongate
findid.i_moongater.timer 2
endif

On=9
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_moongater.remove
else
go 3563,2139,34 //magincia moongate
findid.i_moongater.timer 2
endif

On=10
if (<src.isevent.e_ticaret_tuccar>)
src.sysmessage @0845,1,1 Ticaret yaparken bunu kullanamazsınız!
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysmessage @0845,1,1 Gate'e ulaşamıyorsunuz!
findid.i_moongater.remove
elseif (<flags>&statf_criminal)
src.sysmessage @0845,1,1 Pazar alanı'na criminal iken gidemezsiniz!
findid.i_moongater.remove
else
go 1979 2080
findid.i_moongater.timer 2
endif


[EOF]

YORUMLAR (0)

Henüz yorum yapılmamış.

BENZER SAYFALAR