;##########################################
; spuzzy2@hotmail.com
;##########################################

on *:CHAT:*:{
  if $1 == !players {
    msg = $+ $nick 3Listing Online Players:
    msg = $+ $nick -
    %y = 1
    while %y <= $chat(0) {
      msg = $+ $nick 3 $+ $chat(%y) 10- Level:3 $getinfo($chat(%y),level) 10Gang: $getinfo($chat(%y),GANGNAME) 10Network: $getinfo($chat(%y),LASTNET)
      inc %y
    }
    msg = $+ $nick -
    msg = $+ $nick 10Total players online:3 $chat(0)
  }
  ; if $1 == stats {
  ;    ;    if $nick == %l.nick { msg =$nick 10You were the last person to use this command, you cannot use it again until someone else does, This is to prevent abuse. | halt }
  ;    msg = $+ $nick 3Listing All Players:
  ;    msg = $+ $nick -
  ;    %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  ;    unset %x
  ;    %x = 1
  ;    while %x <= %nof {
  ;      %file1 = $findfile(players\,*.ini,%x)
  ;      %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\players\) - 8))
  ;      %ttt2 = $calc($len(%ttt) - 4)
  ;      %ttt3 = $left(%ttt,%ttt2)
  ;      %gang = $getinfo2(%ttt3,Gang)
  ;      %net = $getinfo2(%ttt3,lastnet)
  ;      if %ttt3 == $null { goto endd }
  ;      inc %x
  ;    }
  ;    :endd
  ;    halt
  ;  }
  if $1 == !users {
    if $nick == %l.l.nick { msg =$nick 10Sorry you cannot use this command yet, this is to prevent abuse. | halt }
    %blehh = $findfile(players\,*.ini,0,inc %nof 1)
    unset %x
    %x = 1
    %l.l.nick = $nick
    while %x <= %nof {
      %file1 = $findfile(players\,*.ini,%x)
      %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\players\) - 8))
      %ttt2 = $calc($len(%ttt) - 4)
      %ttt3 = $left(%ttt,%ttt2)
      if %ttt3 == $null { goto end }
      %level = $getinfo2(%ttt3,Level)
      %gang = $getinfo2(%ttt3,Gangname)
      %Net = $getinfo2(%ttt3,lastnet)
      msg =$nick 7 $+ %ttt3 $+ : 10Level:3 %level 10Gang:3 %gang 10Last network:3 %net
      msg =$nick -
      inc %x
    }
    :end
    halt
  }
}