//************************************************************
// Sunucu : Midas
// Sunucu Site : www.midas.gen.tr
// Scripted : By Robellious
// Sunucu Version : 0.56b-Nightly
//
// Bu Script Midas İçin hazırlanmış veya düzenlenmiştir.
// Yürkçe Karakterler İçin farklı kaydet utf -8
//************************************************************
// DOSYA SON GUNCELLEME: SALI, Aralık 15, 2008
//************************************************************


[function saybakalim]
var.safedekiler 00
var.actidekiler 00
var.dmdekiler 00
serv.allclients saymayabasla
src.saymayabasla
src.sdialog d_travgate
return 1

// region bölgesini yazarsanız safed vb kaçar kişi oldunu görebilirler ben 3 tane olarak ayarladım.

[function saymayabasla]
if (strmatch('<region.name>','Pazar Alani'))
var.safedekiler +=1
return 1
elseif (strmatch('<region.name>','Action Zone'))
var.actidekiler +=1
return 1
elseif  (strmatch('<region.name>','Death Match'))
var.dmdekiler +=1
return 1
endif

[itemdef i_gater]
name gater
id i_handr_1
type t_eq_script
weight 0
layer layer_special

On=@Create
attr attr_invis|attr_decay

On=@Equip
timer 30
src.sdialog 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_decay

On=@Equip
timer 10
src.dialog d_facet_moongate
src.dialogclose d_runebook
src.dialogclose d_runebook_rename
src.dialogclose d_runebook_localname

on=@unequip
src.dialogclose d_facet_moongate

On=@Timer
remove
return 1

[itemdef i_moongate_e]
Name Moongate
ID i_moongate_blue
Type t_eq_script
Weight 0

On=@create
Color=0810
attr=08050

On=@Step
src.sysmessage @0481,,1 Çift Tıklayınız.
src.move -1
return 1

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> > 3)
src.sysmessage @0481,,1 Yeterince yakin degilsiniz.
else
src.events -e_olmesakin

src.sdialog d_facet_moongate
RETURN 1
endif

On=@Click
if (<src.region.type> == <region.type>)
message @07ac Moongate
else
message @07ac Moongate
endif
return 1

[dialog d_gatetravel]
-100,-100
nomove

resizepic 190 165 3600 180 160
htmlgump 240 185 120 20 0 0 0

htmlgump 258 218 80 20 1 0 0
htmlgump 258 273 80 20 2 0 0
Tilepic 300 210 0f6c

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

[dialog d_gatetravel text]
<var.pg_font2>>Gececekmisiniz?
<var.pg_font1>>Evet
<var.fontkirmizi>>Hayir

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

On=1 // gate'e gir
if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery))
src.sysmessage @0481,1,1 s
skill fail
f_fizzle
endif
if !(<findid.i_gater.link.isitem>)
sysmessage @0481,1,1 Gate gecemeden kapanmis.
findid.i_gater.remove
elseif (<findid.i_gater.link.distance> > 3)
sysmessage @0481,1,1 Gate'e ulasamiyorsunuz.
findid.i_gater.remove
else
goplace <findid.i_gater.morep>
findid.i_gater.timer 2
endif

[dialog d_gatetravel]
-100,-100
nomove

resizepic 190 165 83 140 120
resizepic 197 174 3000 128 102
htmlgump 220 185 120 20 0 0 0

htmlgump 258 218 80 20 1 0 0
htmlgump 258 238 80 20 2 0 0

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

[dialog d_gatetravel text]
Travel Gecis
Evet
Hayir

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

On=1 // gate'e gir
if !(<findid.i_gater.link.isitem>)
Smg Gate gecemeden kapanmis.
findid.i_gater.remove
elseif (<findid.i_gater.link.distance> > 3)
Smg Gate'e ulasamiyorsunuz.
findid.i_gater.remove
else
go <findid.i_gater.morep>
findid.i_gater.timer 2
endif


[DIALOG d_travgate]
0,0
NOMOVE
resizepic 10 80 5120 340 500
resizepic 20 90 3000 320 480

// html
text 50 92 <eval 07a1> 0 0
button 30 120 2714 2715 1 0 1
text 60 120 <eval 07fd> 1
button 30 150 2714 2715 1 0 2
text 60 150 <eval 025> 2
button 30 180 2714 2715 1 0 3
text 60 180 <eval 07fd> 3
button 30 210 2714 2715 1 0 4
text 60 210 <eval 0797> 4
button 30 240 2714 2715 1 0 5
text 60 240 <eval 0797> 5
button 30 270 2714 2715 1 0 6
text 60 270 <eval 0797> 6
button 30 300 2714 2715 1 0 7
text 60 300 <eval 0481> 7
button 30 330 2714 2715 1 0 8
text 60 330 <eval 0481> 8
button 30 360 2714 2715 1 0 9
text 60 360 <eval 0481> 9
button 30 390 2714 2715 1 0 10
text 60 390 <eval 028> 10
button 30 420 2714 2715 1 0 11
text 60 420 <eval 028> 11
button 30 450 2714 2715 1 0 12
text 60 450 <eval 028> 12


button 30 510 2714 2715 1 0 13
text 60 510 <eval 049> 13


[DIALOG d_travgate TEXT]
  Midas Moongate
Safe Alani [<eval <var.safedekiler>> Kişi İçerde]
Action Zone [Yeni] [<eval <var.actidekiler>> Kişi İçerde]
Boya Odası
Death Match [<eval <var.dmdekiler>> Kişi İçerde] [<qval (<var.dmacik> = 1)? Kapalı:Açık>]
Puan Alani
Puan Alani2
Afk Room
Sehirler
Dungeonlar
Kale 1
Kale 2
Kumar Alani

Cancel

[DIALOG d_travgate BUTTON]
ONBUTTON=0
RETURN 1

ONBUTTON=1
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
SRC.GO 1974,2072
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=2
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
SRC.GO 3020,3377,15
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=3
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
SRC.go 1903,2112
src.events -e_safe
src.events -e_mekan
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=4
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
src.DIALOG d_deatdg
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=5
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
SRC.GO 5577,1915
src.events -e_safe
src.events -e_mekan
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=6
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
SRC.GO vesper
src.events -e_safe
src.events -e_mekan
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sın Veya Yaralısın.
ENDIF
endif
SRC.FIX

ONBUTTON=7
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
SRC.GO 1866,2079   
src.events -e_safe
src.events -e_mekan
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=8
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
SRC.DIALOG d_sehir
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=9
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
src.DIALOG d_dungeongates
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=10
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
SRC.GO 1415,1625,23
src.events -e_safe
src.events -e_mekan
ELSE
SRC.SYSMESSAGE  @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=11
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
SRC.GO 1523,1507     
src.events -e_safe
src.events -e_mekan
ELSE
SRC.SYSMESSAGE  @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=12
IF (<targ.DISTANCE> <=3)
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> >
src.sysmessage bakimda
//src.go kumar alani
//src.events -e_safe
//src.events -e_mekan
ELSE
SRC.SYSMESSAGE @0484 Gate'den Uzakda'sin Veya Yaralisin.
ENDIF
endif
SRC.FIX

ONBUTTON=13
RETURN 1

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

On=@Create
Color=080a

On=@Step
src.sysmessage @0481,,1 Çift Tıklayınız.
src.move w
return 1

On=@Dclick
if (<src.ctag0.gateacik> == 0)
src.ctag0.gateacik 1
src.timerf 10, src.dialogclose d_travgate
endif
src.sysmessage @07a1,1,1 Moongate Dialogu 10 Saniye Sonra Kapanacaktir.
serv.allclients saybakalim
return 1
endif

On=@Click
src.sysmessage @0481,,1 Cift Tiklayiniz.

[EOF]