UO-Dev Arama


Yazar: 4s3d3
Tarih: 26-04-2020 18:26





https://i.hizliresim.com/2vCH9u.jpg

Kod:
[Plevel 1]
Playerlist

[Function Playerlist]
Src.dialogclose cevrimicioyuncu
Src.dialog cevrimicioyuncu

[Dialog cevrimicioyuncu]
150,100
Nomove
Page 0

Resizepic 0 0 83 500 360
//Resizepic 10 10 9300 480 340
Checkertrans 7 10 487 340

Resizepic 0 360 83 500 50
Resizepic 7 370 9300 487 30
Checkertrans 7 370 487 30

Resizepic 200 370 2620 160 30
Button 350 375 4024 4025 1 0 29051453
dtextentrylimited 205 375 200 20 1152 1 14

Dtext 185 20 75 Çevrimici Oyuncu Menü
Dtext 70 50 75 Oyuncu İsmi
Dtext 210 50 75 Bulunduğu Yer
Dtext 390 50 75 Guild
Dtext 70 375 75 Online Oyuncu Ara :
Dtext 220 320 75 Konumum :
Dtext 290 320 <Qval <Src.Tag.Konumum>?38:1152> <Qval <Src.Tag.Konumum>?Kapalı:Açık>
Button 190 322 <Qval <Src.Tag.Konumum>?11400:11410> <Qval <Src.Tag.Konumum>?11401:11411> 1 0 26081071

Local.Sutun=0
Local.Sayfa=1

Page 1

For 0 <Hval <Serv.Clients>-1> ///Serverdeki tüm playerler
If <Local.Sutun> >10 ////Sayfadaki Maks. player sayısı
Local.Sutun=0
Button 450 315 015e1 015e5 0 <Eval <Local.Sayfa>+1> 1 /////ileri Butonu
Local.Sayfa +=1

Page <Eval <Local.Sayfa>>     

Button 30 315 015e3 015e7 0 <Eval <Local.Sayfa>-1> 1  /////Geri Butonu
Endif
If (<Serv.Client.<Eval <Local._For>>.Account.Plevel> < 2)   ///Plevel 8den küçükleri listeye alıyoruz
Local.Sutun += 1
If (<Serv.Client.<Local._For>.Kills> <7)    //// Listedekilerin kill sayısı 7den küçükse alacakları renk
Local.Renk 064
ElseIf (<Serv.Client.<Local._For>.Kills> >7)  /// kill sayısı büyükse alacakları renk
Local.Renk=39
Endif
Resizepic 35 <Eval (<Local.Sutun>*20)+60> 9300 430 20
Dtext 40 <Eval (<Local.Sutun>*20)+60> <Eval <Local.Renk>> <Serv.Client.<Local._For>.Name>
DHtmlGump 170 <Eval (<Local.Sutun>*20)+60> 168 20 0 0 <Def.bfont_red><Qval <Serv.Client.<Local._For>.Tag.Konumum>?<Def.Center>Konum Gizlenmiş<Def.Centerb>:<Def.BFont_Black><Def.Center><Serv.Client.<Local._For>.Region.Name>>
Dtext 355 <Eval (<Local.Sutun>*20)+60> <Qval <Serv.Client.<Local._For>.Guild>?75:42> <Qval <Serv.Client.<Local._For>.Guild>?<Serv.Client.<Local._For>.memoryfindtype.memory_guild.link.name>:Yok>
Endif
Endif

Local.bkisi=0
Local.tsayfa=1000

Page 1000

For 1 <Src.dCTag.Aranantoplam>
Ref1=<Src.CTag0.AranantoplamUiD<dlocal._for>>
If (<Local.Bkisi> > 8)
Local.Bkisi=0
Button 250 335 015e1 015e5 0 <eval <Local.Tsayfa>+1> 1
Local.BSayfa += 1
Page <dLocal.BSayfa>
Button 30 335 015e3 015e7 0 <eval <local.BSayfa>-1> 1
Endif
Local.Bkisi +=1
If (<Ref1.Kills> < 7)
Local.BRenk 064
ElseIf (<Ref1.Kills> > 7)
Local.BRenk 39
Endif
Resizepic 35 <eval (<Local.BKisi>*20)+60> 9300 430 20
DHtmlGump 170 <Eval (<Local.Bkisi>*20)+60> 170 20 0 0 <Def.bfont_red><Qval <Ref1.Tag.Konumum>?<Def.Center>Konum Gizlenmiş<Def.Centerb>:<Def.BFont_Black><Def.Center><Ref1.Region.Name>>
Dtext 40 <Eval (<Local.BKisi>*20)+60> <Eval <Local.BRenk>> <Ref1.Name>
Dtext 355 <Eval (<Local.BKisi>*20)+60> <Qval <Ref1.Guild>?75:42> <Qval <Ref1.Guild>?<Ref1.memoryfindtype.memory_guild.link.name>:Yok>
Endfor
Endfor

[Dialog Cevrimicioyuncu Button]

On 29051453
if <isempty <argtxt[1]>>
src.sysmessage @39,1,1 Boş bırakamazsınız.
return 1
endif
if ((strlen(<argtxt[1]>)) < 4)
src.sysmessage @39,1,1 Arama yapabilmeniz için en az 4 karakter kullanmalısınız.
return 1
endif
if (<isnum <argtxt[1]>>)
src.sysmessage @39,1,1 Rakam giremezsiniz.
return 1
endif
if !strmatch('*[a-z]*','<argtxt[1]>')
src.sysmessage @39,1,1 Sadece Nick oluşturabileceğiniz harfleri kullanabilirsiniz.
return 1
endif
Src.Cevrimicioyuncuara <argtxt1>

On 26081071
If <Src.Tag.Konumum>
Src.Tag.Konumum
Src.Hata Konumunuz artık gizli değil.
Src.Dialog Cevrimicioyuncu
Else
Src.Tag.Konumum 1
Src.Mesaj1 Konumunuz gizlendi.
Src.Dialog Cevrimicioyuncu
Return 1
Endif

[Function Cevrimicioyuncuara]
Src.CTag0.Aranantoplam 0
For 0 <Eval <Serv.Clients>-1>
If (<Serv.Client.<Eval <Local._For>>.Account.Plevel> < 2) ////Staffları aramalarda bulamasın
Ref1=<Serv.Client.<dLocal._For>.UID>
If (STRMATCH(*<Args>*,'<Ref1.name>'))
Src.CTag0.Aranantoplam ++
Src.CTag0.AranantoplamUid<Src.dCTag.Aranantoplam> <Ref1>
Endif
Endif
Endfor
If (<Src.Ctag0.Aranantoplam> >0)
SDialog Cevrimicioyuncu,1000
Src.Mesaj Arama sonuçlarında <Eval <Src.ctag0.aranantoplam>> kişi bulundu.
Return 1
Endif
Src.Hata Aradığınız kelime ile ilgili herhangi bir sonuç bulunamadı.

[Function AlphaBlack]
Gumppictiled <Argv[0]> <Argv[1]> 2624 <argv[2]> <Argv[3]>
CheckerTrans <Argv[0]> <Argv[1]> <Argv[2]> <Argv[3]>



Yorumlar

Henüz yorum yapılmamıştır.

Oylamalar

Oylama :
Üyelerin oylama ortalaması (10 dışında) : Henüz Oylanmamış   
Oylar: 0

Benzer Sayfalar

SayfalarYorumlarGönderenTarih


Keywords:

ultima online, RunUO, ultima online download, sphere scripting, role play, uo grafik, second age ultima, uo loop, macroman, pvp server, server kurulumu, sphere, multool, ml mulls, 56b 55r 55i, htmlgumps, client 4x, client edit, sphere release, osi, rp server, sunucular, ghost mouse, inside uo, kingdom reborn, stygian abyss, uo nasıl oynanır, mondain's legacy, age of shadows, world build, grandmaster, ultima online pvp, player dosyaları, ultima online indir, frp game, RunUO 1.0.0, razor, uo rice, hue editör, skill tools, ultima online patch, axis, world build, verdata, verdata patcher, map editör, gump editör, mul patcher, aos mulls, scriptler, anim edit, anim publish, hues mul, hosting vps, event dialog, account sistemi, skill gain, static yapımı,