|
İçerde : 1 misafir, 0 üye : ---
|
on=8 // Moongateler :!!
dialog d_moongatedungeon
return 1
[dialog d_moongatedungeon]
50,50
nomove
PAGE 0
resizepic 200 90 5100 220 280
resizepic 210 95 3500 200 260
button 240 130 4006 4005 1 0 1
button 240 155 4006 4005 1 0 2
button 240 180 4006 4005 1 0 3
button 240 205 4006 4005 1 0 4
button 240 230 4006 4005 1 0 5
button 240 255 4006 4005 1 0 6
button 240 280 4006 4005 1 0 7
button 240 305 4006 4005 1 0 8
dhtmlgump 290 126 300 20 0 0 <var.fontkirmizi>Covetous
dhtmlgump 290 151 300 20 0 0 <var.fontkirmizi>Deceit
dhtmlgump 290 176 300 20 0 0 <var.fontkirmizi>Despise
dhtmlgump 290 201 300 20 0 0 <var.fontkirmizi>Destard
dhtmlgump 290 226 300 20 0 0 <var.fontkirmizi>Hythloth
dhtmlgump 290 251 300 20 0 0 <var.fontkirmizi>Shame
dhtmlgump 290 276 300 20 0 0 <var.fontkirmizi>Wrong
dhtmlgump 290 301 300 20 0 0 <var.fontkirmizi>Ice Isle
dhtmlgump 245 100 300 20 0 0 <serv.servname> Dungeonlar
[dialog d_moongateeklenti text]
Covetous
Deceit
Despise
Destard
Hythloth
Shame
Wrong
Ice Isle
<serv.servname> Dungeonlar
[dialog d_moongateeklenti button]
on=1 // covetous
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
SRC.go 5456,1862
src.sysmessage @0725,,1 Artik Guvende Deilsiniz...
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
ENDIF
on=2 // deceit
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> <=2)
events e_actionevent
SRC.go 5187,635
src.sysmessage @0725,,1 Artik Guvende Degilsin.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=3 // despise
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> <=2)
events e_actionevent
SRC.1298,1080
src.sysmessage @0725,,1 Artik Guvende Degilsin.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=4 // destard
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> <=2)
events e_actionevent
SRC.go 1176,2637
src.sysmessage @0725,,1 Artik Guvende Degilsiniz.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=5 // Hythloth
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> <=2)
events e_actionevent
SRC.go 4722,3822
src.sysmessage @0725,,1 Artik Guvende Degilsiniz...
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=6 // shame
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 (0<src.tag0.ticaret>==01)
src.sysmessage @187 Ticaret yaparken moongate kullanamazsiniz.
return 1
endif
iF (<targ.DISTANCE> <=2)
events e_actionevent
SRC.go 513,1561
src.sysmessage @0725,,1 Artik Guvende Degilsin.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=7 // wrong
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> <=2)
events e_actionevent
SRC.go 5825,599
src.sysmessage @0725,,1 Artik Guvende Degilsin.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=8 // ice isle
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> <=2)
src.go 4038,529
src.sysmessage @07a1,2 Artık Guvende Degilsin.
events e_actionevent
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
[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_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 @0481 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_moongatedungeon]
50,50
nomove
PAGE 0
resizepic 200 90 5100 220 280
resizepic 210 95 3500 200 260
button 240 130 4006 4005 1 0 1
button 240 155 4006 4005 1 0 2
button 240 180 4006 4005 1 0 3
button 240 205 4006 4005 1 0 4
button 240 230 4006 4005 1 0 5
button 240 255 4006 4005 1 0 6
button 240 280 4006 4005 1 0 7
button 240 305 4006 4005 1 0 8
dhtmlgump 290 126 300 20 0 0 <def.bfont_dred>Covetous
dhtmlgump 290 151 300 20 0 0 <def.bfont_dred>Deceit
dhtmlgump 290 176 300 20 0 0 <def.bfont_dred>Despise
dhtmlgump 290 201 300 20 0 0 <def.bfont_dred>Destard
dhtmlgump 290 226 300 20 0 0 <def.bfont_dred>Hythloth
dhtmlgump 290 251 300 20 0 0 <def.bfont_dred>Shame
dhtmlgump 290 276 300 20 0 0 <def.bfont_dred>Wrong
dhtmlgump 290 301 300 20 0 0 <def.bfont_dred>Ice Isle
dhtmlgump 245 100 300 20 0 0 <serv.servname> Dungeonlar
[dialog d_moongatedungeon button]
on=1 // covetous
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
SRC.go 5456,1862
src.sysmessage @0725,,1 Artik Guvende Deilsiniz...
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
ENDIF
on=2 // deceit
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> <=2)
events e_actionevent
SRC.go 5187,635
src.sysmessage @0725,,1 Artik Guvende Degilsin.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=3 // despise
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> <=2)
events e_actionevent
SRC.1298,1080
src.sysmessage @0725,,1 Artik Guvende Degilsin.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=4 // destard
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> <=2)
events e_actionevent
SRC.go 1176,2637
src.sysmessage @0725,,1 Artik Guvende Degilsiniz.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=5 // Hythloth
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> <=2)
events e_actionevent
SRC.go 4722,3822
src.sysmessage @0725,,1 Artik Guvende Degilsiniz...
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=6 // shame
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> <=2)
events e_actionevent
SRC.go 513,1561
src.sysmessage @0725,,1 Artik Guvende Degilsin.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=7 // wrong
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> <=2)
events e_actionevent
SRC.go 5825,599
src.sysmessage @0725,,1 Artik Guvende Degilsin.
src.dialogclose d_runebook
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=8 // ice isle
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> <=2)
src.go 4038,529
src.sysmessage @07a1,2 Artık Guvende Degilsin.
events e_actionevent
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
[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_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 @0481 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_moongatedungeon]
[dialog d_moongateeklenti button]
[dialog d_moongatedungeon]
[dialog d_moongatedungeon button]
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>))
|