[AREADEF a_dungeon_1]
EVENTS=r_default,r_default_rock,r_default_water,r_default_tree,r_default_grass
NAME=Dungeon
GROUP=Other Dungeons
P=6091,1313,15,0
RECT= Şeklinde 'RECT' e Verceğimiz Kordinatı Sağ Üstten Sağ Altamı Nerden Nereydi Tam Hatırlayamadım Onu Bir Hatırlatırsanız Sevinirimç
[itemdef i_dgate]
id=0268
type=t_wall
defname=i_dgate
on=@create
color=0940
on=@step
src.sysmessage @0481,,1 Moongateleri sadece cift tiklayarak kullanabilirsiniz.
RETURN 1
endif
on=@dclick
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
RETURN 1
elseif (<src.hits> < <src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
RETURN 1
elseif (<distance> > 3)
src.sysmessage @0481,,1 Yeterince yakin degilsiniz.
else
src.dialog d_facet_dungeons
RETURN 1
endif
on=@click
message @0940,,1 [xxx]
message @0481,,1 [xx]
return 1
on=@timer
return 1
[dialog d_facet_dungeons]
50,50
nomove
PAGE 0
resizepic 0 7 5170 270 320
button 40 50 2714 2715 1 0 1
button 40 75 2714 2715 1 0 2
button 40 100 2714 2715 1 0 3
button 40 125 2714 2715 1 0 4
button 40 150 2714 2715 1 0 5
button 40 175 2714 2715 1 0 6
button 40 200 2714 2715 1 0 7
button 40 225 2714 2715 1 0 8
button 40 250 2714 2715 1 0 9
button 40 275 2714 2715 1 0 10
text 70 51 <eval 045e> 0
text 70 76 <eval 045e> 1
text 70 101 <eval 045e> 2
text 70 126 <eval 045e> 3
text 70 151 <eval 045e> 4
text 70 176 <eval 045e> 5
text 70 201 <eval 045e> 6
text 70 226 <eval 045e> 7
text 22 26 <eval 0481> 8
text 70 251 <eval 045e> 9
text 70 276 <eval 045e> 10
[dialog d_facet_dungeons text]
Ice Isle
Ice Dungeon
Fire Island
Fire Dungeon
Shame
Despise
Covetous
Hythloth
<serv.name> Moongate
Wrong
Deceit
[dialog d_facet_dungeons button]
on=1 // Ice Isle
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> < 4)
SRC.Go ice isle
src.sysmessage @07a1,,1 Safe Alani'na Hosgeldiniz.
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
ENDIF
src.fix
on=2 // ice dungeon
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
if <src.FINDID.i_mem_exp>
sysmessage @07a1,,1 Safe Alan'a Giderken Explosion Kullanimi Yasaktir.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO ice dungeon
src.sysmessage @07a1,,1 Britain'e Hosgeldiniz. Action Actif !
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=3 // fire island
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO fire island
src.sysmessage @07a1,,1 Moonglow'a Hosgeldiniz. Action Actif !
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=4 // fire dungeon
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO fire dungeon
src.sysmessage @07a1,,1 Bilet Alani [Wrong'a] Hosgeldiniz.]
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=5 // shame
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO shame
src.sysmessage @07a1,,1 Boya Alanina Hosgeldiniz..
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=6 // despise
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.go despise
src.sysmessage @07a1,,1 Hayvanat Bahcesi'ne Hosgeldiniz.
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=7 // Covetous
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
if <src.FINDID.i_mem_exp>
sysmessage @07a1,,1 Safe Alan'a Giderken Explosion Kullanimi Yasaktir.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO Covetous
src.sysmessage @07a1,,1 Coventeus'a Hosgeldiniz.
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=8 // Hythloth
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO Hythloth
src.sysmessage @07a1,,1 Hythloth hosgeldiniz.
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=9 // wrong
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO wrong
src.sysmessage @0481,,1 Wrong'a Hosgeldiniz
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=10 // deceit
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO deceit
src.sysmessage @0481,,1 deceit'e Hosgeldiniz
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_dungeons
On=@Timer
remove
return 1
[typedef t_facet_dungeons]
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 190 165 5120 140 120
resizepic 200 175 3000 120 100
htmlgump 220 185 120 20 0 0 0
htmlgump 258 218 80 20 1 0 1
htmlgump 258 238 80 20 2 0 1
button 225 215 4006 4007 1 0 1
button 225 235 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
goplace <findid.i_gater.morep>
findid.i_gater.timer 2
endif
[EOF]
[itemdef i_dgate]
id=0268
type=t_wall
defname=i_dgate
on=@create
color=0940
on=@dclick
src.sysmessage @0481,,1 Moongateleri sadece uzerinden gecerek Kullanabilirsiniz.
RETURN 1
endif
on=@step
if (<src.findid i_rune_poison>)
src.sysmessage @0481,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
RETURN 1
elseif (<src.hits> < <src.str>)
src.sysmessage @0481,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
RETURN 1
elseif (<distance> > 3)
src.sysmessage @0481,,1 Yeterince yakin degilsiniz.
else
src.sdialog d_facet_dungeons
RETURN 1
endif
on=@click
message @0940,,1 [xxx]
message @0481,,1 [xx]
return 1
on=@timer
return 1
[dialog d_facet_dungeons]
50,50
nomove
PAGE 0
resizepic 0 7 5170 270 320
button 40 50 2714 2715 1 0 1
button 40 75 2714 2715 1 0 2
button 40 100 2714 2715 1 0 3
button 40 125 2714 2715 1 0 4
button 40 150 2714 2715 1 0 5
button 40 175 2714 2715 1 0 6
button 40 200 2714 2715 1 0 7
button 40 225 2714 2715 1 0 8
button 40 250 2714 2715 1 0 9
button 40 275 2714 2715 1 0 10
text 70 51 <eval 045e> 0
text 70 76 <eval 045e> 1
text 70 101 <eval 045e> 2
text 70 126 <eval 045e> 3
text 70 151 <eval 045e> 4
text 70 176 <eval 045e> 5
text 70 201 <eval 045e> 6
text 70 226 <eval 045e> 7
text 22 26 <eval 0481> 8
text 70 251 <eval 045e> 9
text 70 276 <eval 045e> 10
[dialog d_facet_dungeons text]
Ice Isle
Ice Dungeon
Fire Island
Fire Dungeon
Shame
Despise
Covetous
Hythloth
<serv.name> Moongate
Wrong
Deceit
[dialog d_facet_dungeons button]
on=1 // Ice Isle
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> < 4)
SRC.Go ice isle
src.sysmessage @07a1,,1 Safe Alani'na Hosgeldiniz.
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
ENDIF
src.fix
on=2 // ice dungeon
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
if <src.FINDID.i_mem_exp>
sysmessage @07a1,,1 Safe Alan'a Giderken Explosion Kullanimi Yasaktir.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO ice dungeon
src.sysmessage @07a1,,1 Britain'e Hosgeldiniz. Action Actif !
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=3 // fire island
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO fire island
src.sysmessage @07a1,,1 Moonglow'a Hosgeldiniz. Action Actif !
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=4 // fire dungeon
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO fire dungeon
src.sysmessage @07a1,,1 Bilet Alani [Wrong'a] Hosgeldiniz.]
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=5 // shame
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO shame
src.sysmessage @07a1,,1 Boya Alanina Hosgeldiniz..
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=6 // despise
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.go despise
src.sysmessage @07a1,,1 Hayvanat Bahcesi'ne Hosgeldiniz.
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=7 // Covetous
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
if <src.FINDID.i_mem_exp>
sysmessage @07a1,,1 Safe Alan'a Giderken Explosion Kullanimi Yasaktir.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO Covetous
src.sysmessage @07a1,,1 Coventeus'a Hosgeldiniz.
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=8 // Hythloth
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO Hythloth
src.sysmessage @07a1,,1 Hythloth hosgeldiniz.
ELSE
SRC.SYSMESSAGE @07a1,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=9 // wrong
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO wrong
src.sysmessage @0481,,1 Wrong'a Hosgeldiniz
ELSE
SRC.SYSMESSAGE @0481,,1 Moongateden cok uzaktasiniz.
return 1
ENDIF
SRC.FIX
on=10 // deceit
if (<src.findid i_rune_poison>)
src.sysmessage @07a1,,1 Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @07a1,,1 Yaraliyken Moongate'leri Kullanamazsiniz.
return 1
endif
IF (<targ.DISTANCE> <=3)
SRC.GO deceit
src.sysmessage @0481,,1 deceit'e Hosgeldiniz
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_dungeons
On=@Timer
remove
return 1
[typedef t_facet_dungeons]
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 190 165 5120 140 120
resizepic 200 175 3000 120 100
htmlgump 220 185 120 20 0 0 0
htmlgump 258 218 80 20 1 0 1
htmlgump 258 238 80 20 2 0 1
button 225 215 4006 4007 1 0 1
button 225 235 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
goplace <findid.i_gater.morep>
findid.i_gater.timer 2
endif
[EOF]