[PLEVEL 1] 
online

[FUNCTION online]
IF !(<ISEVENT.e_tutorial>)
sysmessageloc 036,1060659,Total,<serv.clients>
sysmessageloc 036,1060660,PKs,<totalpks>
sysmessageloc 036,1060661,APKs,<totalapks>
IF (<var0.event.current>)
sysmessageloc 036,1060662,On event,<eval <var0.event.current>>
ENDIF
sysmessageloc 036,1060658,Record,<eval <var0.clirecord>>
sDIALOG d_online
ELSE
SYSMESSAGE @036,3,1 You can't use this command while in the tutorial.
ENDIF

[DIALOG d_online]
220,100
src.closealldialogs
PAGE 0
resizepic 0 0 2620 445 315
resizepic 12 13 5120 420 290
checkertrans 12 13 420 290
dhtmlgump 150 15 120 20 0 0 <DEF.BFONT_WHITE><DEF.BFONT_SIZE7>Players Online
dhtmlgump 150 35 120 20 0 0 <DEF.BFONT_WHITE><SERV.CLIENTS> online players at the moment.
LOCAL.AUMENTAR=0
LOCAL.PAGE=1
PAGE 1
FOR 0 <EVAL <SERV.CLIENTS>-1>
IF (<LOCAL.AUMENTAR> > 9)
LOCAL.AUMENTAR=0
button 400 285 015e1 015e5 0 <EVAL <LOCAL.PAGE>+1> 1
LOCAL.PAGE ++
PAGE <EVAL <LOCAL.PAGE>>
button 360 285 015e3 015e7 0 <EVAL <LOCAL.PAGE>-1> 1
ENDIF
REF1=<SERV.CLIENT.<LOCAL._FOR>.UID>
IF (<REF1.UID>) && (<REF1.UID> != 011be6)
IF ((!(<REF1.ISGM>)) || ((<REF1.ISGM>) && (!(<REF1.FLAGS>&statf_insubstantial))))
LOCAL.AUMENTAR ++
IF (<REF1.ISGM>)
LOCAL.COLOR=55
ELIF (<REF1.ISPK>)
LOCAL.COLOR=36
ELIF (<REF1.ISCRIMINAL>)
LOCAL.COLOR=946
ELSE
LOCAL.COLOR=88
ENDIF
dtext 15 <EVAL (<LOCAL.AUMENTAR>*20)+60> <EVAL <LOCAL.COLOR>> <REF1.NAME>
dtext 170 <EVAL (<LOCAL.AUMENTAR>*20)+60> 1152 Guild: <REF1.GETGUILD>
ENDIF
ENDIF
ENDFOR

[EOF]