// Yarışma :: UO-Dev 1. Scripting Yarışması
// Adres :: http://www.uo-developer.com
// Yazar :: robellious
// Script Adı :: moongate system

[FUNCTION f_array]
local.temp = <argv[<eval <argv> - 1>]> -1
return <argv[<dlocal.temp>]>


[defname regionlarfln]
toplam 5
alan1 ActionZone,Action Alanı,Bu Alanda rakiplerinizle kapışabilirsiniz.
alan2 SafeAlan,Safe Zone,Bu Alanda gereksinimlerinizi karşılayabilirsiniz.
alan3 DeathMatchs,Death Match Sahası,ufak bi alanda istediğiniz kişiye saldırabilirsiniz. Stafflar açabilir yada kapatabilir.
alan4 Pazar,Pazar Alanı,Bu alanda eşya satışlarınızı gerçekleştirebilirsiniz..
alan5 Duello,Duello Arena,En kısa sürede aktif olucaktır.

[defname sehirler]
toplamm 5
sehir1 Britain,Action Alanı,Bu şehirde rakiplerinizle kapışabilirsiniz.
sehir2 Moonglow,Action Alanı,Bu şehirde rakiplerinizle kapışabilirsiniz.
sehir3 Minoc,Action Alanı,Bu şehirde rakiplerinizle kapışabilirsiniz.
sehir4 Cove,Savaş Şehri,Neblies yetkilileri tarafından yapılan savaşlar bu şehirde gerçekleşir.
sehir5 Delucia,Quest Şehri,Neblies yetkilileri tarafından yapılan questler bu şehirde gerçekleşir.

[defname dungeonlar]
toplammm 5
dunge1 Destard,Dungeon Alanı,Bu Alanda bazı bosslar için yada puan için pvm yapabilirsiniz.
dunge2 Despise,Dungeon Alanı,Bu dungeon'da rakiplerinizle kapışabilir ayrıca eşya çıkartabilirsiniz.
dunge3 Deceit,Dungeon Alanı,Bu dungeon'da rakiplerinizle kapışabilir ayrıca eşya çıkartabilirsiniz.
dunge4 Hythloth,Dungeon Alanı,Bu Alanda bazı bosslar için yada puan için pvm yapabilirsiniz.
dunge5 Wrong,Dungeon Alanı,Bu dungeon'da rakiplerinizle kapışabilir ayrıca eşya çıkartabilirsiniz.


[itemdef i_moongate]
id i_moongate_black
name Moongate


on=@create
color 0796
attr 010
tag.sahip 0
timerd 1

on=@step
if (<src.dir> == 0)
src.move 0 1
elseif (<src.dir> == 1)
src.move -1 1
elseif (<src.dir> == 2)
src.move -1 0
elseif (<src.dir> == 3)
src.move -1 -1
elseif (<src.dir> == 4)
src.move 0 -1
elseif (<src.dir> == 5)
src.move 1 -1
elseif (<src.dir> == 6)
src.move 1 0
elseif (<src.dir> == 7)
src.move 1 1
src.smsx iki kere tıklamanız yeterlidir.
endif
return 1

on=@dclick
tag.sahip <src.uid>
sdialog d_facet_moongate
return 1

on=@timer
if !(<tag.sahip> = 0)
if (<distance <tag.sahip>> > 3)
try uid.<tag.sahip>.dialogum 1
tag.sahip 0
timerd 1
endif
endif
timerd 1
return 1

[function dialogum]
if <args> = 1
trysrc <uid> dialogclose d_facet_moongate
trysrc <uid> dialogclose d_regionlar
trysrc <uid> dialogclose d_dungeonn
endif


[dialog d_regionlar]
0,0
nomove
local.genisle 93
local.carp 95
resizepic 10 10 5120 450 <eval (<local.genisle>*<def.toplam>)+80>
resizepic 20 20 3000 430 <eval (<local.genisle>*<def.toplam>)+60>
dhtmlgump 150 35 200 20 0 0 <def.bfont_dred><serv.name> UO - Moongate Menüsü

for x 0 <eval <serv.clients>-1>
for y 1 <def.toplam>
if (strmatch('<serv.client.<dlocal.x>.region.name>','<f_array <def.alan<dlocal.y>>,1>'))
local.<f_array <def.alan<dlocal.y>>,1> <eval <local.<f_array <def.alan<dlocal.y>>,1>>+1>
endif
endfor
endfor

for 1 <def.toplam>
resizepic 20 <eval (<dlocal._for>*<dlocal.carp>)-25> 3000 430 2
dhtmlgump 25 <eval (<dlocal._for>*<dlocal.carp>)-20> 400 20 0 0 <def.bfont_dred><dlocal._for>) <def.bfont_dblue><f_array <def.alan<dlocal._for>>,2> <def.bfont_dgreen>[<f_array <def.alan<dlocal._for>>,1>]
resizepic 25 <eval (<dlocal._for>*<dlocal.carp>)> 3000 300 65
dhtmlgump 30 <eval (<dlocal._for>*<dlocal.carp>)+5> 300 40 0 0 <def.bfont_dred>Açıklama : <def.bfont_dblue><f_array <def.alan<dlocal._for>>,3>
dhtmlgump 30 <eval (<dlocal._for>*<dlocal.carp>)+45> 300 40 0 0 <def.bfont_dred>İçerdeki Kişi Sayısı : <def.bfont_dyellow><dlocal.<strarg <f_array <def.alan<dlocal._for>>>,1>>
button 330 <eval (<dlocal._for>*<dlocal.carp>)+5> 55 56 1 0 <dlocal._for>
button 330 <eval (<dlocal._for>*<dlocal.carp>)+40> 55 56 1 0 <eval <dlocal._for>+300>
dhtmlgump 350 <eval (<dlocal._for>*<dlocal.carp>)+5> 200 20 0 0 <def.bfont_dred>Alana Git
dhtmlgump 350 <eval (<dlocal._for>*<dlocal.carp>)+40> 200 20 0 0 <def.bfont_dred>İçerdeki Kişiler
endfor

[dialog d_regionlar button]
on 1 100
if (<distance> > 3)
src.mrt Yetişemiyorsunuz.
return 1
endif


if (<src.hits> < <src.str>)
src.sysmessage @0785,1,1 Canınız az iken geçemesiniz.
return 1
endif


src.go <f_array <def.alan<argn>>,1>

on 300 500
if (<distance> > 3)
src.mrt Yetişemiyorsunuz.
return 1
endif


src.ctag.kisiler=
local.buton <eval <argn>-300>
local.toplam 0

for x 0 <eval <serv.clients>-1>
if (strmatch('<serv.client.<dlocal.x>.region.name>','<f_array <def.alan<dlocal.buton>>,1>'))
local.toplam +=1
src.ctag.kisiler <src.ctag.kisiler>,<serv.client.<dlocal.x>.uid>
endif
endfor
say <dlocal.toplam>
src.ctag.toplam <local.toplam>
src.ctag.alan <f_array <def.alan<dlocal.buton>>,1>
if <local.toplam> = 0
src.sysmessage @07a1,1,1 Bu Alanda Kimse Yok.
return 1
endif
src.ctag0.page_view 1
src.ctag0.sayfa 1
src.sdialog d_kisiler

[dialog d_kisiler]
0,0
nomove
resizepic 10 10 5120 750 300
resizepic 20 20 3000 730 280
resizepic 35 45 3000 40 2
resizepic 150 45 3000 90 2
resizepic 295 45 3000 90 2
resizepic 490 45 3000 35 2
resizepic 640 45 3000 65 2
resizepic 20 270 3000 730 2
dhtmlgump 30 30 2500 20 0 0 <def.bfont_dred>  İsim            Kills/Deaths         Fame/Karma               Guild                Ölü/Diri
local.kisiler = 0
for 1 8
local.for_ = <eval <local._for> + <eval <src.ctag0.page_view>-1>>
if <f_array <ctag.kisiler>,<dlocal.for_>>
if <uid.<f_array <ctag.kisiler>,<dlocal.for_>>.isplayer>
if <uid.<f_array <ctag.kisiler>,<dlocal.for_>>.kills> > 6
local.renk <def.bfont_red>
else
local.renk <def.bfont_blue>
endif
dhtmlgump 30 <eval (<dlocal.kisiler>*30)+50> 250 20 0 0 <local.renk> <uid.<f_array <ctag.kisiler>,<dlocal.for_>>.name>
dhtmlgump 150 <eval (<dlocal.kisiler>*30)+50> 250 20 0 0 <def.bfont_dblue> <eval <uid.<f_array <ctag.kisiler>,<dlocal.for_>>.kills>> <def.bfont_dred>/ <def.bfont_dgreen><eval <uid.<f_array <ctag.kisiler>,<dlocal.for_>>.deaths>>
dhtmlgump 280 <eval (<dlocal.kisiler>*30)+50> 250 20 0 0 <def.bfont_dblue> <eval <uid.<f_array <ctag.kisiler>,<dlocal.for_>>.fame>> <def.bfont_dred>/ <def.bfont_dgreen><eval <uid.<f_array <ctag.kisiler>,<dlocal.for_>>.karma>>
if (<uid.<f_array <ctag.kisiler>,<dlocal.for_>>.memoryfindtype.memory_guild>)
if (<uid.<f_array <ctag.kisiler>,<dlocal.for_>>.memoryfindtype.memory_guild.link.align> == 2)
local.guildrenk <def.bfont_red>
endif
if (<uid.<f_array <ctag.kisiler>,<dlocal.for_>>.memoryfindtype.memory_guild.link.align> == 1)
local.guildrenk <def.bfont_blue>
endif
if (<uid.<f_array <ctag.kisiler>,<dlocal.for_>>.memoryfindtype.memory_guild.link.align> == 0)
local.guildrenk <def.bfont_green>
endif
dhtmlgump 460 <eval (<dlocal.kisiler>*30)+50> 250 20 0 0 <local.guildrenk><uid.<f_array <ctag.kisiler>,<dlocal.for_>>.memoryfindtype.memory_guild.link.name> [<uid.<f_array <ctag.kisiler>,<dlocal.for_>>.memoryfindtype.memory_guild.link.abbrev>]
else
dhtmlgump 500 <eval (<dlocal.kisiler>*30)+50> 250 20 0 0 <def.bfont_dgreen>Yok
endif
if (<uid.<f_array <ctag.kisiler>,<dlocal.for_>>.hits> > 0)
local.durum <def.bfont_dblue>Diri
else
local.durum <def.bfont_red>Ölü
endif
dhtmlgump 665 <eval (<dlocal.kisiler>*30)+50> 250 20 0 0 <local.durum>
local.kisiler +=1
endif
endif
endfor
dhtmlgump 320 275 200 20 0 0 <def.bfont_dblue>[<ctag.alan>]<def.bfont_dred> Sayfa <dctag.sayfa>
if !(<ctag0.page_view> == 1)
dhtmlgump 45 275 200 20 0 0 <def.bfont_dred> Geri
button 30 277 015e3 015e7 1 0 2000
endif
if !(<dlocal.for_> > <ctag0.toplam>)
button 720 277 015e1 015e5 1 0 200
dhtmlgump 685 275 35 20 0 0 <def.bfont_dred> İleri
endif

[dialog d_kisiler button]
on 200
src.ctag.page_view <eval <src.ctag.page_view>+8>
src.ctag.sayfa +=1

src.sdialog d_kisiler

on 2000
src.ctag.sayfa -=1
src.ctag.page_view -=8
src.sdialog d_kisiler


// şehirler

[dialog d_sehirler]
0,0
nomove
local.genisle 93
local.carp 95
resizepic 10 10 5120 450 <eval (<local.genisle>*<def.toplamm>)+80>
resizepic 20 20 3000 430 <eval (<local.genisle>*<def.toplamm>)+60>
dhtmlgump 150 35 200 20 0 0 <def.bfont_dred><serv.name> UO - Moongate Menüsü

for x 0 <eval <serv.clients>-1>
for y 1 <def.toplamm>
if (strmatch('<serv.client.<dlocal.x>.region.name>','<f_array <def.sehir<dlocal.y>>,1>'))
local.<f_array <def.sehir<dlocal.y>>,1> <eval <local.<f_array <def.sehir<dlocal.y>>,1>>+1>
endif
endfor
endfor

for 1 <def.toplam>
resizepic 20 <eval (<dlocal._for>*<dlocal.carp>)-25> 3000 430 2
dhtmlgump 25 <eval (<dlocal._for>*<dlocal.carp>)-20> 400 20 0 0 <def.bfont_dred><dlocal._for>) <def.bfont_dblue><f_array <def.sehir<dlocal._for>>,2> <def.bfont_dgreen>[<f_array <def.sehir<dlocal._for>>,1>]
resizepic 25 <eval (<dlocal._for>*<dlocal.carp>)> 3000 300 65
dhtmlgump 30 <eval (<dlocal._for>*<dlocal.carp>)+5> 300 40 0 0 <def.bfont_dred>Açıklama : <def.bfont_dblue><f_array <def.sehir<dlocal._for>>,3>
dhtmlgump 30 <eval (<dlocal._for>*<dlocal.carp>)+45> 300 40 0 0 <def.bfont_dred>İçerdeki Kişi Sayısı : <def.bfont_dyellow><dlocal.<strarg <f_array <def.sehir<dlocal._for>>>,1>>
button 330 <eval (<dlocal._for>*<dlocal.carp>)+5> 55 56 1 0 <dlocal._for>
button 330 <eval (<dlocal._for>*<dlocal.carp>)+40> 55 56 1 0 <eval <dlocal._for>+300>
dhtmlgump 350 <eval (<dlocal._for>*<dlocal.carp>)+5> 200 20 0 0 <def.bfont_dred>Alana Git
dhtmlgump 350 <eval (<dlocal._for>*<dlocal.carp>)+40> 200 20 0 0 <def.bfont_dred>İçerdeki Kişiler
endfor

[dialog d_sehirler button]
on 1 100
if (<distance> > 3)
src.mrt Yetişemiyorsunuz.
return 1
endif

if (<src.hits> < <src.str>)
src.sysmessage @0785,1,1 Canınız az iken geçemesiniz.
return 1
endif

src.go <f_array <def.sehir<argn>>,1>

on 300 500
if (<distance> > 3)
src.mrt Yetişemiyorsunuz.
return 1
endif

src.ctag.kisiler=
local.buton <eval <argn>-300>
local.toplam 0

for x 0 <eval <serv.clients>-1>
if (strmatch('<serv.client.<dlocal.x>.region.name>','<f_array <def.sehir<dlocal.buton>>,1>'))
local.toplam +=1
src.ctag.kisiler <src.ctag.kisiler>,<serv.client.<dlocal.x>.uid>
endif
endfor
src.ctag.toplam <local.toplam>
src.ctag.alan <f_array <def.sehir<dlocal.buton>>,1>
if <local.toplam> = 0
src.sysmessage @07a1,1,1 Bu Alanda Kimse Yok.
return 1
endif
src.ctag0.page_view 0
src.ctag0.sayfa 1
src.sdialog d_kisiler

//dungeon

[dialog d_dungeonn]
0,0
nomove
local.genisle 93
local.carp 95
resizepic 10 10 5120 450 <eval (<local.genisle>*<def.toplammm>)+80>
resizepic 20 20 3000 430 <eval (<local.genisle>*<def.toplammm>)+60>
dhtmlgump 150 35 200 20 0 0 <def.bfont_dred><serv.name> UO - Moongate Menüsü

for x 0 <eval <serv.clients>-1>
for y 1 <def.toplammm>
if (strmatch('<serv.client.<dlocal.x>.region.name>','<f_array <def.dunge<dlocal.y>>,1>'))
local.<f_array <def.dunge<dlocal.y>>,1> <eval <local.<f_array <def.dunge<dlocal.y>>,1>>+1>
endif
endfor
endfor

for 1 <def.toplam>
resizepic 20 <eval (<dlocal._for>*<dlocal.carp>)-25> 3000 430 2
dhtmlgump 25 <eval (<dlocal._for>*<dlocal.carp>)-20> 400 20 0 0 <def.bfont_dred><dlocal._for>) <def.bfont_dblue><f_array <def.dunge<dlocal._for>>,2> <def.bfont_dgreen>[<f_array <def.dunge<dlocal._for>>,1>]
resizepic 25 <eval (<dlocal._for>*<dlocal.carp>)> 3000 300 65
dhtmlgump 30 <eval (<dlocal._for>*<dlocal.carp>)+5> 300 40 0 0 <def.bfont_dred>Açıklama : <def.bfont_dblue><f_array <def.dunge<dlocal._for>>,3>
dhtmlgump 30 <eval (<dlocal._for>*<dlocal.carp>)+45> 300 40 0 0 <def.bfont_dred>İçerdeki Kişi Sayısı : <def.bfont_dyellow><dlocal.<strarg <f_array <def.dunge<dlocal._for>>>,1>>
button 330 <eval (<dlocal._for>*<dlocal.carp>)+5> 55 56 1 0 <dlocal._for>
button 330 <eval (<dlocal._for>*<dlocal.carp>)+40> 55 56 1 0 <eval <dlocal._for>+300>
dhtmlgump 350 <eval (<dlocal._for>*<dlocal.carp>)+5> 200 20 0 0 <def.bfont_dred>Alana Git
dhtmlgump 350 <eval (<dlocal._for>*<dlocal.carp>)+40> 200 20 0 0 <def.bfont_dred>İçerdeki Kişiler
endfor

[dialog d_dungeonn button]
on 1 100
if (<distance> > 3)
src.mrt Yetişemiyorsunuz.
return 1
endif

if (<src.hits> < <src.str>)
src.sysmessage @0785,1,1 Canınız az iken geçemesiniz.
return 1
endif

src.go <f_array <def.dunge<argn>>,1>

on 300 500
if (<distance> > 3)
src.mrt Yetişemiyorsunuz.
return 1
endif

src.ctag.kisiler=
local.buton <eval <argn>-300>
local.toplam 0

for x 0 <eval <serv.clients>-1>
if (strmatch('<serv.client.<dlocal.x>.region.name>','<f_array <def.dunge<dlocal.buton>>,1>'))
local.toplam +=1
src.ctag.kisiler <src.ctag.kisiler>,<serv.client.<dlocal.x>.uid>
endif
endfor
src.ctag.toplam <local.toplam>
src.ctag.alan <f_array <def.alan<dlocal.buton>>,1>
if <local.toplam> = 0
src.sysmessage @07a1,1,1 Bu Alanda Kimse Yok.
return 1
endif
src.ctag0.page_view 0
src.ctag0.sayfa 1
src.sdialog d_kisiler


[dialog d_facet_moongate]
0,10
nomove
resizepic 10 80 5120 340 260
resizepic 20 90 3000 320 240

Resizepic 20 290 3000 320 3 //çizgimiz en alt

dhtmlgump 115 90 250 25 0 0 <def.bfont_red><def.u> Neblies Moongate
dhtmlgump 60 120 250 25 0 0 <def.bfont_dblue>Neblies Alanlar
dhtmlgump 60 150 250 25 0 0 <def.bfont_dblue>Guildine Git<def.bfont_dgreen> [Guild Sayısı <serv.guilds>]
dhtmlgump 60 180 250 25 0 0 <def.bfont_dblue>Neblies Şehirler
dhtmlgump 60 210 250 25 0 0 <def.bfont_dblue>Neblies Dungeon

dhtmlgump 60 240 250 25 0 0 <def.bfont_dblue>Puan Alanı
dhtmlgump 60 270 150 25 0 0 <def.bfont_dblue>Puan Alanı 2


dhtmlgump 60 300 140 20 0 0 <def.bfont_dblue>Neblies Boya Alanı
dhtmlgump 220 300 70 20 0 0 <def.bfont_dblue>Neblies Bar

button 30 120 2714 2715 1 0 1
button 30 150 2714 2715 1 0 2
button 30 180 2714 2715 1 0 3
button 30 210 2714 2715 1 0 4

button 30 240 2714 2715 1 0 5
button 30 270 2714 2715 1 0 6

button 30 300 2714 2715 1 0 7
button 190 300 2714 2715 1 0 8



[dialog d_facet_moongate button]
On=1
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
dialog d_regionlar
ELSE
src.smsx Gate'den uzakdasınız veya yaralısınız.
ENDIF
SRC.FIX

On=2
if !(<memoryfindtype.memory_guild>)
src.sysmessage @07a1,1,1 Guildiniz Yok.
else
src.go <memoryfindtype.memory_guild.link.p>
return 1
endif

on=3
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
sdialog d_sehirler
ELSE
src.smsx Gate'den uzakdasınız veya yaralısınız.
ENDIF
SRC.FIX

On=4
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
dialog d_dungeonn
ELSE
src.smsx Gate'den uzakdasınız veya yaralısınız.
ENDIF
SRC.FIX

On=5
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
src.go 5578,1914
ELSE
src.smsx Gate'den uzakdasınız veya yaralısınız.
ENDIF
SRC.FIX

on=6
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
src.go 4573,3628,30
ELSE
src.smsx Gate'den uzakdasınız veya yaralısınız.
ENDIF
endif
SRC.FIX

On=7
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
src.go 1858,2082
ELSE
src.smsx Gate'den uzakdasınız veya yaralısınız.
ENDIF
SRC.FIX

on=8
if (<src.hits> == <src.str>) || (<src.hits> == 0) || (<src.hits> > <src.str>) || (<distance> > 3)
src.go 1916,2119
ELSE
src.smsx Gate'den uzakdasınız veya yaralısınız.
ENDIF
SRC.FIX