/////////////////////////////////////////////////////////////////
// Scripter Name: Alien
//--------------------------
// Shard Name: Erxis Uo
//--------------------------
// FILE LAST UPDATED: 30-Ekim-2007
//--------------------------
// VERSION=0.56b
//--------------------------
// E-mail: ua_burak_antifb@hotmail.com
//--------------------------
// Bu Scriptte Yardimi Geçen Slothere'ye teşekkürler.
/////////////////////////////////////////////////////////////////


[PLEVEL 1]
online

[FUNCTION online]
sysmessage @07a1  Iyi Oyunlar Dileriz...
sysmessage @07a1  Oyuncu Listesi Acildi.
IF (<var0.event.current>)
sysmessage  Iyi Oyunlar Dileriz...
ENDIF
sdialog d_online
ELSE
ENDIF

[DIALOG d_online]
220,100
PAGE 0
resizepic 0 0 3600 445 315
resizepic 10 6 3500 424 51
checkertrans 12 56 420 248
dhtmlgump 130 15 220 20 0 0 <DEF.BFONT_RED><DEF.BFONT_SIZE7> <serv.name> Online Menüsü
dhtmlgump 130 25 220 20 0 0 <DEF.BFONT_BLUE>  Online Oyuncu :  <SERV.CLIENTS>
LOCAL.AUMENTAR=0
LOCAL.PAGE=1
PAGE 1
FOR 0 <HVAL <SERV.CLIENTS>-1>
IF (<LOCAL.AUMENTAR> > 9)
LOCAL.AUMENTAR=0
button 400 285 015e1 015e5 0 <EVAL <LOCAL.PAGE>+1> 1
LOCAL.PAGE += 1
PAGE <EVAL <LOCAL.PAGE>>
button 360 285 015e3 015e7 0 <EVAL <LOCAL.PAGE>-1> 1
ENDIF
IF (<SERV.CLIENT.<LOCAL._FOR>.UID>)
LOCAL.AUMENTAR += 1
IF (<SERV.CLIENT.<LOCAL._FOR>.GM>)
LOCAL.COLOR=55
ELSEIF (<SERV.CLIENT.<LOCAL._FOR>.ISPK>)
LOCAL.COLOR=39
ELSE
LOCAL.COLOR=88
ENDIF
dtext 15 <EVAL (<LOCAL.AUMENTAR>*20)+60> <EVAL <LOCAL.COLOR>> <SERV.CLIENT.<LOCAL._FOR>.NAME>
dtext 120 <EVAL (<LOCAL.AUMENTAR>*20)+60> 1152 Bulundugu Yer : <SERV.CLIENT.<LOCAL._FOR>.REGION.NAME>
ENDIF
ENDFOR

on=0
sysmessage @07a1 Online Menüsünü Kapattiniz.

[function ISPK]
if <kills> serv.murdermincount