Skynet_Salvation.mrc

; ------------------------------------------------------------------  ;
;; SKYNET, TFC edition ... By MERKiN                                  ;;
;; re-eddited by MERKiN NOW TO iNCLUDE 310% MORE AWESOMENESS!!!       ;;
; ------------------------------------------------------------------  ;

; change_log: http://pastebin.com/f54a1894f  shit was getting too long
; Don't let immitation SkyNet's fool you.
; This is the original and only one.
; -MERKiN aka MiLES DYSON | irc.drowning.us #evilb0x
;

on 1:START:{ /timer 0 600 /check_servers | hmake cliptemp | /timer 0 1800 savehashes | admin_load_pickup | /HMake flood 150 | %silence = 0 | hmake iptracker | /versionz | /window @RECONNECT_LOG | hmake map_score | hmake superusr | hmake top_maps | hmake pickup_usrs | skynet_makehash | skynet_loadhash | admin_hash | admin_load_pickup | load_supr | load_pick | load_maps | timer 0 90000 /fun_shit }
on *:CONNECT:{ //auth | versionz | /window @RECONNECT_LOG | admin_load_pickup | log_all | hmake iptracker | /timer 0 900 /check_servers | connect_all | timer 1 1 log_all | /timer 1 2 msg %pickupadmin [ 07SKY-NET ]: TFC Bot by MERK07iN Version: [ 07 $+ %version $+ i ] Log: [ 07 $+ %changelog ] Date: [ 07 $+ %date ] Status: [ 09ONLiNE ] | %skynet_status = 09ONLiNE | join %pickupchan | join %pickupadmin }
on 1:LOAD:{ connect_all | log_all | helpme | loadhashes | hmake cliptemp }
on *:DISCONNECT: { kill_all | sockclose * |  savehashes }

alias versionz { %version = 8.0 | %date = 02/10/10 | %changelog = http://pastebin.com/f122128de }

alias makeshit { hmake cliptemp }

;alias bantrent { msg %pickupadmin [07SKYNET]: Search & Destroy Status: 09ENABLED. Run mother fucker. | set %searchanddestroy 1 }
;alias unbantrent { msg %pickupadmin [07SKYNET]: Search & Destroy Status: 04DiSABLED. | set %searchanddestroy 0 }


alias savehashes {
  save_admin
  skynet_savehash
  save_pick
  save_maps
  save_stats
  hsave -so iptracker %skynetloc $+ iptracker.hsh
}

alias rofl {
  /say $read(%skynetloc $+ 1.txt) $read(%skynetloc $+ 2.txt) $read(%skynetloc $+ 3.txt) $read(%skynetloc $+ 4.txt)
}

alias load_maplist { hmake -m maplist | hload -s maplist %skynetloc $+ maplist.hsh }


alias helpme { hmake admin_help | hmake ingame_help | hmake public_help | load_pub | load_admin | load_ingame }
alias loadhashes { load_maplist | hmake admin_help | hmake ingame_help | hmake public_help | hmake superusr | hmake top_maps | hmake pickup_usrs | skynet_makehash | hmake iptracker | skynet_loadhash | admin_hash | admin_load_pickup | load_supr | load_pick | load_maps | load_pub | load_ingame | load_admin | hload -s iptracker %skynetloc $+ iptracker.hsh }
;alias savetrentsban { hsave -so bantrent %skynetloc $+ bantrent.hsh }

;//-----

alias saveclip {
  %x = 1
  hfree cliptemp
  hmake cliptemp
  while %x <= $cb(0) {
    if ($cb(%x) != $null) {
      hadd -m cliptemp %x $cb(%x)
    }
    inc %x
  }
}

alias load_ip {
  hload -s iptracker %skynetloc $+ iptracker.hsh
}

alias restoreclip {
  %x = 1
  clipboard $null
  %lastclip = $hget(cliptemp, 0).Item
  while %x <= $hget(cliptemp, 0).Item {
    ;%y = $hget(cliptemp, %x).Item
    if (($hget(cliptemp, %x) != $null) && ($hget(cliptemp, %lastclip) != $clrf)) {
      //clipboard -an $hget(cliptemp, %x)
    }
    inc %x
  }
}

alias min {
  var %num = $1-,%x = 1,%min
  while (%x <= $numtok(%num,32)) {
    var %tok = $gettok(%num,%x,32)
    if (!%min) || (%tok < %min) { %min = %tok }
    inc %x
  }
  return %min
}
alias max {
  var %num = $1-,%x = 1,%max
  while (%x <= $numtok(%num,32)) {
    var %tok = $gettok(%num,%x,32)
    if (!%max) || (%tok > %max) { %max = %tok }
    inc %x
  }
  return %max
}
alias average {
  var %num = $1-,%x = 1,%total,%tok
  while (%x <= $numtok(%num,32)) {
    %tok = $gettok(%num,%x,32)
    %total = $calc(%total + %tok)
    inc %x
  }
  return $calc(%total / %x)
}
alias decimal {
  if ($2 isnum) {
    var %tok = $gettok($2,2,46),%tokn = $gettok($2,1,46)
    if ($1 = 0) { return %tokn | halt }
    return %tokn $+ . $+ $iif($right($left(%tok,$calc($1 + 1)),1) >= 5,$calc($left(%tok,$1) + 1),$left(%tok,$1))
  }
}

;\\----


alias avg_pick {
  %start_date = $ctime(December 20 2009 15:00)
  %end_date = $ctime
  %nom_nom = $int($1)
  %time_diff = $calc($int(%end_date) - $int(%start_date))
  %time_diff = $calc(((%time_diff / 60) / 60 ) / 24 )
  %pickups_per = $calc(%nom_nom / %time_diff)
  echo -a %pickups_per
  %avg_pick = $round(%pickups_per, 1)
  ;echo -a %avg_pick
}

alias load_pub {
  hload -s public_help %skynetloc $+ public.hsh
}

alias load_ingame {
  hload -s ingame_help %skynetloc $+ ingame.hsh
}

alias load_admin {
  hload -s admin_help %skynetloc $+ adminchan.hsh
}


alias admin_help {
  var %x = 1
  msg %pickupadmin  07[ Displaying Help for: Admin Channel07 ]
  while (%x <= $hget(admin_help,0).Item) {
    set %desc $hget(admin_help, %x).Item
    set %cmd $hget(admin_help, %desc)
    msg %pickupadmin 7[ Command: 07 $+ %desc / 07Desc: %cmd 07 $+ ]
    inc %x
  }
  ;  msg %pickupadmin Total #pickup Players: [07 $+ $calc(%x - 1) $+ ]
}

alias pub_help {
  var %x = 1
  msg %pickupadmin  07[ Displaying Help for: Public Channel07 ]
  while (%x <= $hget(public_help,0).Item) {
    set %desc $hget(public_help, %x).Item
    set %cmd $hget(public_help, %desc)
    msg %pickupadmin 7[ Command: 07 $+ %desc / 07Desc: %cmd 07 $+ ]
    inc %x
  }
  ;  msg %pickupadmin Total #pickup Players: [07 $+ $calc(%x - 1) $+ ]
}

alias skynetoff {
  adminoff
  set %skyneton 0
  set %skynet_status 04OFFLiNE 
  msg %pickupadmin [07SKYNET]: SkyNet Has been 04DiSABLED running in debug mode.
}

alias skyneton {
  adminon
  set %skyneton 1
  set %skynet_status 09ONLiNE 

  msg %pickupadmin [07SKYNET]: SkyNet Has been 09ENABLED now running in production mode.

}

alias ingame_help {
  var %x = 1
  msg %pickupadmin  07[ Displaying in-game help07 ]
  while (%x <= $hget(ingame_help,0).Item) {
    set %desc $hget(ingame_help, %x).Item
    set %cmd $hget(ingame_help, %desc)
    msg %pickupadmin 7[ Command: 07 $+ %desc / 07Desc: %cmd 07 $+ ]
    inc %x
  }
  ;  msg %pickupadmin Total #pickup Players: [07 $+ $calc(%x - 1) $+ ]
}

alias banthatnigga {
  %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    raw_skynet $hget(server_ip, %x).Item addip 0 $1
    raw_skynet $hget(server_ip, %x).Item writeip
    inc %x
  }
}


alias banthatfgt {
  %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    raw_skynet $hget(server_ip, %x).Item banid 0 $1 kick
    raw_skynet $hget(server_ip, %x).Item writeid
    inc %x
  }
}

alias add_alias {
  hadd pickup_usrs $1 $2
}

alias save_pick {
  hsave -o pickup_usrs %skynetloc $+ pickup_usrs.hsh
}

alias load_supr {
  hload -s superusr %skynetloc $+ suser.hsh
}

alias load_pick {
  hload -s pickup_usrs %skynetloc $+ pickup_usrs.hsh
}


alias kill_TFC {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    raw_skynet $hget(server_ip, %x).Item say SkyNet has decided to end TFC. Good Bye!
    raw_skynet $hget(server_ip, %x).Item quit
    kill_server $hget(server_ip, %x).Item
    sockclose * $+ $hget(server_ip, %x).Item $+ *
    inc %x
  }
}

alias save_maps {
  hsave -o top_maps %skynetloc $+ top_maps.hsh

}

alias load_maps {
  hload -s top_maps %skynetloc $+ top_maps.hsh

}


on 4:TEXT:*SkyNet Shutdown*:?:{
  //msg %pickupadmin [4SHUTDOWN]: SkyNet Shutdown initiated by $nick $+ .
  var %x = 1
  ; connect_all
  while (%x <= $hget(server_ip,0).Item) {
    raw_skynet $hget(server_ip, %x).Item say SkyNet has been shutdown by $nick
    inc %x
  }
  /sockclose *
  /msg %pickupadmin [4SHUTDOWN]: Closing sockets.
  /sockclose *
  /msg %pickupadmin [4SHUTDOWN]: Killing active timers.
  /msg %pickupadmin [7SKYNET] Status: [4OFFLiNE] Have a Good Day... :)
  set %skynet_status 04OFFLiNE
  /timer* off
  /timer* off
}

alias adminoff {
  if ($hget(axxs_list,0).Data != $null) {
    hfree -s axxs_list
    echo -a AXXS_LiST DELETED ETC.
    hload -s pickup_usrs %skynetloc $+ axxs_pickup.hsh
  }

}


alias lookup {
  %namelook = $1

  if ($hget(pickup_usrs, %namelook) != $null) {
    %suckone = $hget(pickup_usrs, %namelook)
    %color = 07
  }

  if ($hget(axxs_list, %namelook) != $null) {
    %suckone = $hget(axxs_list, %namelook)
    %color = 09
  }
  if (($hget(axxs_list, %namelook) = $null) && ($hget(pickup_usrs, %namelook) = $null)) {
    %color = 07
    %suckone = Invalid User
  }

  %suckme = $hget(iptracker, %suckone)

  if (%suckme = $null) {
    %suckme = No Information yet.
  }


  msg %pickupadmin [07USR-DB]: User [ $+ %color $+ %namelook $+ ] is [ $+ %color $+ %suckone $+ ] IP [ $+ %color $+ %suckme $+ ]

}

alias adminon {
  hmake axxs_list
  admin_load_pickup
  %x = 1
  while %x < $hget(pickup_usrs,0).Data {
    %mergeface = $hget(axxs_list, %x).Item
    if ($hfind(pickup_usrs,%mergeface) != $null) {
      hdel pickup_usrs $hget(axxs_list,%x).Item
    }
    inc %x
  }
  echo -a Admin Restored.
}


on 4:TEXT:add_admin*:?:{
  if ((*steam_* iswm $3) && (*steam_* !isin $2)) {
    add_admin $2 $3
    /msg $nick Admin $2 with steamid $3 added.
  }
  else { /msg $nick Syntax: add_admin Name STEAM_ID }
}

on 4:TEXT:add_server*:?:{
  if (($2 != $null) && ($3 != $null) && ($4 != $null) && ($5 != $null)) {
    add_server $2 $3 $4 $5 $6
    msg $nick Server $2 added.
    log_skynet $2
    connect_server $2
  }
  else {
    msg $nick Syntax: add_server alias IP port rcon_password sv_password
  }
}

on 4:TEXT:del_server*:?:{
  if ($2 != $null) {
    del_server $2
    msg %pickupadmin [07SKYNET]: Server 07 $+ $2 $+  has been deleted.
    msg $nick [07SKYNET]: Server 07 $+ $2 $+  has been deleted.

  }
  if ($2 = $null) {
    msg $nick Syntax: del_server ALiAS
  }
}

on 4:TEXT:del_admin*:?:{
  if (*steam_* iswm $2) {
    if (STEAM_0:0:11334077 iswm $2) || (STEAM_0:0:5364267 iswm $2) { msg $nick I cannot let you do that $nick | msg %pickupadmin fI cannot let you do that $nick. | .mode %pickupadmin +b $address($nick,0) | .kick %pickupadmin $nick I cannot let you remove my master $nick }
    remove_user $2
    /msg $nick Admin with steamid $2 removed.
  }
  else { /msg $nick Syntax: del_admin STEAM_ID }
}

on 4:TEXT:change_rcon*:?:{
  if ($hget(server_rcon, $2) != $null) {
    hadd server_rcon $2 $3
    msg $nick RCON for $2 changed to $3
    kill_server $2
    log_skynet $2
    ;raw_skynet $2 say RCON Changed Successfully.
    skynet_savehash
  }
  else { msg $nick Syntax: change_rcon alias rcon }
}

alias add_usr {
  auser =3 $address($1, 0)
}
on 4:TEXT:add_user*:?:{
  if ($2 != $null) {
    auser -a =3 $address($2, 0)
    //msg $nick User $2 with hostmask $address($2,0) added.
  }
  else { msg $nick Syntax: add_user HOSTMASK }
}

on 4:TEXT:del_user*:?:{
  if ($2 != $null) {
    ruser $2
    //msg $nick user $2 with hostmask $address($2,0) removed.
  }
  else { msg $nick Syntax: del_user HOSTMASK }
}

on 4:TEXT:change_rcon*:?:{
  if (($2 != $null) && ($1 != $null)) {
    hdel -s $hget(server_rcon, $2)
    hadd -s server_rcon $2 $3
    msg $nick RCON for $2 changed to $3

  }
  else { msg $nick Syntax: change_rcon SRVR NEW_RCON }
}

alias split {
  set %determine $asc($1)
  set %name1 $gettok($2,2,%determine)
  ; echo -a %name1
}


alias advpub {
  set %reunion 1
  set %name PUB
  set %serverport $hget(server_port, %name)
  var %serverip = $hget(server_ip, %name)
  var %rcon = $hget(server_rcon, %name)
  var %listenport = $hget(server_listenport, %name)
  var %challenge = $hget(server_challenge, %name)
  sockudp -k work_ $+ %name $rand(7000,8500) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " status
}

alias reunion {
  var %x = 1
  set %reunion 1
  while (%x <= $hget(server_ip,0).Item) {
    set %name $hget(server_ip, %x).Item
    set %serverport $hget(server_port, %name)
    var %serverip = $hget(server_ip, %name)
    var %rcon = $hget(server_rcon, %name)
    var %listenport = $hget(server_listenport, %name)
    var %challenge = $hget(server_challenge, %name)
    timer 1 1 server_info %name
    sockudp -k work_ $+ %name $rand(7000,8500) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " status
    ; -- alias map --- ;
    timer 1 1 sockclose work_ $+ %name
    ;  msg %pickupadmin [07 $+ %hostname $+ ] IP: [07 $+ %serverip $+ : $+ %serverport $+ ] Current players: [07 $+ %curr_players $+ $chr(47) $+ %total_players $+ ] Map: [07 $+ %curr_map $+ ] Alias: [07 $+ %name $+  ]
    inc %x
  }
}

alias server_list {
  var %x = 1
  set %reunion 1
  set %srvrchan $1
  while (%x <= $hget(server_ip,0).Item) {
    set %name $hget(server_ip, %x).Item
    set %serverport $hget(server_port, %name)
    var %serverip = $hget(server_ip, %name)
    var %rcon = $hget(server_rcon, %name)
    var %listenport = $hget(server_listenport, %name)
    var %challenge = $hget(server_challenge, %name)
    set %infotime 1
    timer_mptime %name
    ;timer 1 2 sockudp -k work_ $+ %name $rand(7000,8500) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " status
    ; msg %pickupadmin %name
    timer 1 3 server_info %name
    timer 1 3.6 sockclose work_ $+ %name
    ; timer 1 4 set %infotime 0
    inc %x
  }
}

alias alias_list {
  var %x = 1
  ; set %reunion 1
  while (%x <= $hget(pickup_usrs,0).Item) {
    set %name $hget(pickup_usrs, %x).Item
    set %steam $hget(pickup_usrs, %name)
    set %ipfuck $hget(iptracker, %steam)
    ; write %skynetloc $+ User_list.csv %steam $+ , $+ %name
    if ($hget(iptracker, %steam) = $null) {
      %ipfuck = No Information Yet.
    }
    ; msg %pickupadmin $chr(35) $+ %x [7SteamID]: %steam [07User]: %name [07IP]: %ipfuck
    write %skynetloc $+ users.csv %name $+ , %+ %steam %+ , $+ %ipfuck
    inc %x
  }
  ;msg %pickupadmin Total #TFc Players: [07 $+ $calc(%x - 1) $+ ]
}




alias all_mapz {
  var %x = 1
  ; set %reunion 1
  %mapzz = 0
  msg %pickupadmin 7¤10[07 Maps over 20 plays since : 0712/20/2009 10]7¤
  while (%x <= $hget(top_maps,0).Item) {
    set %name $hget(top_maps, %x).Item
    set %steam $hget(top_maps, %name)
    ; write %skynetloc $+ User_list.csv %steam $+ , $+ %name


    inc %x
    %mapzz = $calc(%mapzz + $int(%steam))
  }

  var %x = 1
  while (%x <= $hget(top_maps,0).Item) {
    set %name $hget(top_maps, %x).Item
    set %steam $hget(top_maps, %name)
    ;  if ($calc(($int(%steam)/$int(%mapzz) * 100)) > 4) {
    ; write %skynetloc $+ maps.csv %name $+ , %+ %steam
    msg %pickupadmin 7[ Map: 07 $+ %name / 07 $+ %steam plays 07 / 07 $+ $calc(($int(%steam)/$int(%mapzz)*100)) $+  $+ $chr(32) $+ $chr(37) 07 $+ ]
    ; }
    inc %x

  }
  ;  msg %pickupadmin Total: [07 %mapzz ]
}

alias low_mapz {
  var %x = 1
  %mapzz = 0
  msg %map_chan 7¤[07 Maps under 20 plays since : 0712/20/2009 ]7¤
  while (%x <= $hget(top_maps,0).Item) {
    set %name $hget(top_maps, %x).Item
    set %steam $hget(top_maps, %name)
    inc %x
    %mapzz = $calc(%mapzz + $int(%steam))
  }
  var %x = 1
  while (%x <= $hget(top_maps,0).Item) {
    set %name $hget(top_maps, %x).Item
    set %steam $hget(top_maps, %name)
    if ($hget(top_maps, %name) < 20) {
      msg %map_chan 7[ Map: 07 $+ %name / 07 $+ %steam plays 07 / 07 $+ $round($calc(($int(%steam)/$int(%mapzz)*100)),2) $+  $+ $chr(32) $+ $chr(37) 07 $+ ]
    }
    inc %x
  }
  msg %map_chan 7¤[07 Total Map Plays since 0 $+ 12/20/2009 is: 07 $+ %mapzz ]7¤

}

alias top_mapz {
  var %x = 1
  %mapzz = 0
  ; if ($1 = $null) {
  ;  %mapnum = 20
  ;}
  ;else { %mapnum = $1 }

  msg %map_chan 7¤14[07 Maps over 14 $+ %mapnum $+  07plays since : 0712/20/2009 14]7¤
  while (%x <= $hget(top_maps,0).Item) {
    set %name $hget(top_maps, %x).Item
    set %steam $hget(top_maps, %name)
    inc %x
    %mapzz = $calc(%mapzz + $int(%steam))
  }
  var %x = 1
  while (%x <= $hget(top_maps,0).Item) {
    set %name $hget(top_maps, %x).Item
    set %steam $hget(top_maps, %name)
    if ($hget(top_maps, %name) > %mapnum) {
      msg %map_chan 14[ 07Map: 14 $+ %name / 07 $+ %steam 14plays 14 / 07 $+ $round($calc(($int(%steam)/$int(%mapzz)*100)),2) $+  $+ $chr(32) $+ 07 $+ $chr(37) 14 $+ ]
    }
    inc %x
  }

  msg %map_chan 7¤14[07 Total Map Plays since 14 $+ 012/20/2009 is: 07 $+ %mapzz 14]7¤
  avg_pick %mapzz
  msg %map_chan 7¤14[07 Average Pickups per day: 14 $+ %avg_pick 14]7¤
}

alias server_info {
  var %x = 1
  set %reunion 1
  set %name $1
  set %serverport $hget(server_port, %name)
  var %serverip = $hget(server_ip, %name)
  var %rcon = $hget(server_rcon, %name)
  var %listenport = $hget(server_listenport, %name)
  var %challenge = $hget(server_challenge, %name)
  set %infotime 1
  var %info_chan
  if ($2 != $null) {
    %srvrchan = $2
  }
  else { %srvrchan = $chan }
  timer_mptime %name
  /timer 1 2 sockudp -k work_ $+ %name $rand(7000,8500) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " status
  %sockname = work $+ %name
  timer 1 5 /sockclose work_ $+ %name
}



alias admin_list {
  var %x = 1
  ; set %reunion 1
  while (%x <= $hget(axxs_list,0).Item) {
    set %name $hget(axxs_list, %x).Item
    set %steam $hget(axxs_list, %name)
    ;write %skynetloc $+ User_list.csv %steam $+ , $+ %name

    msg %pickupadmin $chr(35) $+ %x [7SteamID]: %steam [07User]: %name
    inc %x
  }
  msg %pickupadmin Total #TFC admins: [07 $+ $calc(%x - 1) $+ ]
}


alias rehash_all {
  var %x = 1
  sockclose *
  timer* off
  while (%x <= $hget(server_ip,0).Item) {
    ;echo -a $hget(server_ip, %x).Item
    kill_server $hget(server_ip, %x).Item
    ;sockclose * $+ $hget(server_ip, %x.Item) $+ *
    connect_server $hget(server_ip, %x).Item
    log_skynet $hget(server_ip, %x).Item
    timer 1 1 raw_skynet $hget(server_ip, %x).Item say Srvr Rehash Completed.
    inc %x

  }
  timer 0 750 .check_servers
  timer 0 90000 fun_shit
  ;timer 0 300 /check_echo
  set %skynet_status 09ONLiNE
  ; msg %pickupadmin SkyNet Rehashed.
}

; -----------// init // ------------------------ ;


alias skynet_makehash {
  hmake -s server_ip
  hmake -s server_port
  hmake -s server_rcon
  hmake -s server_password
  hmake -s server_listenport
  hmake -s server_challenge
  ; load hash tables here
  ;add_server DOM5 69.65.56.132 27017 grenade test

}

alias del_server {
  set %name $1
  kill_server $1
  hdel -s server_ip %name
  hdel -s server_port %name
  hdel -s server_rcon %name
  hdel -s server_password %name
  hdel -s server_listenport %name
  hdel -s server_challenge %name
  skynet_savehash
  skynet_loadhash
}

alias admin_hash {
  hmake -s axxs_list
}

alias admin_load_pickup {
  hfree -w axxs_list
  hmake axxs_list
  hload -s axxs_list %skynetloc $+ axxs_pickup.hsh
}

alias admin_load_tfc {
  hfree -w axxs_list
  hmake axxs_list
  hload -s axxs_list %skynetloc $+ axxs_TFC.hsh
}


alias add_admin {
  hadd -s axxs_list $1 $2
}

alias save_admin {
  hsave -o axxs_list %skynetloc $+ axxs_pickup.hsh
}

alias remove_user {
  %name = $hfind(axxs_list, $1).Data
  hdel -s axxs_list %name
  ; hsave -o axxs_list %skynetloc $+ axxs_pickup.hsh
}

alias del_alias {
  %name = $hfind(pickup_usrs, $1).Data
  hdel -s pickup_usrs %name
}

alias add_server {
  if ($hget(server_ip, $1)) {
    echo -a Already added
  }
  else {
    hadd server_ip $1 $2
    hadd server_port $1 $3
    hadd server_rcon $1 $4
    hadd server_password $1 $5
    //msg %pickupadmin [07 $+ SKY-NET]: Learning completed for Server: [07 $+ $2 $+ : $+ $3 $+ ] Alias: [07 $+ $1 $+ ]

  }
}

alias skynet_savehash {
  hsave -o server_ip %skynetloc $+ server_ip.hsh
  hsave -o server_port %skynetloc $+ server_port.hsh
  hsave -o server_rcon %skynetloc $+ server_rcon.hsh
  hsave -o server_password %skynetloc $+ server_password.hsh
  hsave -o server_listenport %skynetloc $+ server_listenport.hsh
  hsave -o server_challenge %skynetloc $+ server_challenge.hsh
}

alias skynet_killhash {
  hfree server_ip
  hfree server_port
  hfree server_rcon
  hfree server_password
  hfree server_listenport
  hfree server_challenge
}

alias skynet_loadhash {
  hload -s server_ip %skynetloc $+ server_ip.hsh
  hload -s server_port %skynetloc $+ server_port.hsh
  hload -s server_rcon %skynetloc $+ server_rcon.hsh
  hload -s server_password %skynetloc $+ server_password.hsh
  hload -s server_listenport %skynetloc $+ server_listenport.hsh
  hload -s server_challenge %skynetloc $+ server_challenge.hsh
}

alias timer_mptime {
  if ($hget(server_ip,$1).Item) {
    %time1srv = 1
    var %serverip = $hget(server_ip, $1)
    var %serverport = $hget(server_port, $1)
    var %rcon = $hget(server_rcon, $1)
    var %listenport = $hget(server_listenport, $1)
    var %challenge = $hget(server_challenge, $1)
    sockudp -k time_ $+ $1 $rand(7000,8000) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " $+ $chr(32) $+ mp_timeleft
    timer 1 2 /sockclose time_ $+ $1
  }
}


alias maplist {
  if ($hget(server_ip,$1).Item) {
    %time1srv = 1
    var %serverip = $hget(server_ip, $1)
    var %serverport = $hget(server_port, $1)
    var %rcon = $hget(server_rcon, $1)
    var %listenport = $hget(server_listenport, $1)
    var %challenge = $hget(server_challenge, $1)
    sockudp -k mapz_ $+ $1 $rand(7000,8000) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " $+ $chr(32) $+ maps *
    timer 1 2 /sockclose mapz_ $+ $1
  }
}


alias log_everything {
  /connect_all
  echo -a All Challenge Sockets Connected.
  /timer 1 1 /log_all
  echo -a All Log Sockets Connected.

}

alias log_all {
  var %x = 1
  ; connect_all
  /timer* off
  /timer* off
  while (%x <= $hget(server_ip,0).Item) {
    kill_log $hget(server_ip, %x).Item
    log_skynet $hget(server_ip, %x).Item
    ; raw_skynet $hget(server_ip, %x).Item echo SkyNet Initialized.
    inc %x
  }
  .timer 0 750 .check_servers
  .timer 0 90000 fun_shit

  ;timer 0 300 /check_echo
  set %skynet_status 09ONLiNE
}
alias connect_all {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    connect_server $hget(server_ip, %x).Item
    inc %x
  }
}

alias vote_results {
  var %x = 1
  %srvr = $1
  hmake -s %srvr $+ _vote
  while %x <= $hget(%srvr $+ _steamID, 0).Item {
    hinc %srvr $+ _vote $hget(%srvr $+ _steamID, %x).Data
    ; raw_skynet %name say $hget(%srvr $+ _vote, %x).Item has $hget(%srvr $+ _vote, %x).Data votes
    inc %x
  }

  %b = 1
  while %b <= $hget(%srvr $+ _vote, 0).Item {
    ;  $inc(
    %total_votes = $int(%total_votes) + $int($hget(%srvr $+ _vote, %b).Data)
    inc %b

  }

  var %y = 1
  if ($hget(%srvr $+ _vote, %y).Item != $null) {
    raw_skynet %srvr say Voting Results:
  }
  if ($hget(%srvr $+ _vote, %y).Item = $null) {
    raw_skynet %srvr say No votes collected you lazy fucks.
  }
  while %y <= $hget(%srvr $+ _steamID, 0).Item {
    ;hinc $1 $+ _vote $hget($1 $+ _steamID, %y).Data
    if ($hget(%srvr $+ _vote, %y).Item != $null) {
      ;%percent = $round($calc(($int($hget(%srvr $+ _vote, %y).Data)/$int(%total_votes)) * 100),0) $+ $chr(37)
      raw_skynet %srvr say $hget(%srvr $+ _vote, %y).Item has $hget(%srvr $+ _vote, %y).Data vote(s)
      %mapass = %mapass $+ $chr(32) $+ $hget(%srvr $+ _vote, %y).Data $+ $chr(32)
    }
    inc %y
  }

}

alias logs {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    set %name $hget(server_ip, %x).Item
    set %rcon $hget(server_rcon, %x).Data
    var %serverip = $hget(server_ip, %x).Data
    var %serverport = $hget(server_port, %x).Data
    var %challenge = $hget(server_challenge, %x).DAta
    sockudp logz_ $+ %name $rand(7000,8500) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " logaddress_add
    inc %x
  }
}

alias connect_server {
  ;echo -a $1
  if ($hget(server_ip,$1).Item) {
    var %serverip = $hget(server_ip, $1)
    var %serverport = $hget(server_port, $1)
    var %rcon = $hget(server_rcon, $1)
    ;%listenport = $hget(server_listenport, $1)
    sockclose challenge_ $+ $1
    sockudp -kn challenge_ $+ $1 %serverip %serverport ÿÿÿÿchallenge rcon
    .timer 1 1 sockclose challenge_ $+ $1
  }
}

alias check_servers {
  var %x = 1
  ;check_echo
  while (%x <= $hget(server_ip,0).Item) {
    set %name $hget(server_ip, %x).Item
    check_server %name
    inc %x
  }
}

alias check_echo {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    set %name $hget(server_ip, %x).Item
    ;raw_skynet %name echo SkyNet Connected.
    raw_skynet %name echo HLSW: Test
    inc %x
  }
}

alias echo_srvr {
  var %x = 1
  ;raw_skynet $1 echo SkyNet Connected.
  raw_skynet $1 echo HLSW: Test

}

alias tits {
  %name = $1
  ;echo -a $sock(LOG_ $+ $1).status
  if ($sock(LOG_ $+ $1).status = $null) {
    ; msg %pickupadmin LOG_ $+ $1 is NOT ACTiVE
    echo @RECONNECT_LOG - $time [7SKYNET]: Reconnected Server: [07 $+ %name2 $+ ] due to log dropped.
    kill_log %name
    sockclose * $+ 3 $+ *
    connect_server %name
    log_skynet %name
    ; timer 1 1 raw_skynet %name echo SkyNet Connected.
    timer 1 1 raw_skynet %name echo HLSW: Test

  }
}

; - added 08AUG12 -- ;


alias log_prase {
  %logfuck = $replace($1,.log,)
  %logfull = $1
  /remove %pick_loc $+ logs\doshit.bat
  //write %pick_loc $+ logs\doshit.bat %pick_loc $+ Logs\logalyzer.exe -b -o  %pick_loc $+ logs\ $+ %logfuck %pick_loc $+ logs\ $+ %logfull
  //write %pick_loc $+ logs\doshit.bat ftp -s: $+ %pick_loc $+ logs\ftp.txt

  ; //run %pick_loc $+ Logs\logalyzer.exe -b -o  %pick_loc $+ logs\ $+ %logfuck %pick_loc $+ logs\ $+ %logfull

  ; -- write file then run FTP to talk to it etc ---;
  /remove %pick_loc $+ Logs\ftp.txt
  /write %pick_loc $+ Logs\ftp.txt o ftp.pickup.bugs3.com 21


  /write %pick_loc $+ Logs\ftp.txt u731460035
  /write %pick_loc $+ Logs\ftp.txt freeserver1
  /write %pick_loc $+ Logs\ftp.txt prompt
  /write %pick_loc $+ Logs\ftp.txt hash
  /write %pick_loc $+ Logs\ftp.txt cd /public_html/
  //write %pick_loc $+ Logs\ftp.txt mkdir $replace(%logfull,.log,)
  //write %pick_loc $+ Logs\ftp.txt cd /public_html/ $+ $replace(%logfull,.log,)
  //write %pick_loc $+ Logs\ftp.txt lcd %pick_loc $+ Logs
  /write %pick_loc $+ Logs\ftp.txt mput $replace(%logfull,.log,) $+ /*
  /write %pick_loc $+ Logs\ftp.txt bye

  //run %pick_loc $+ logs\doshit.bat

}

; -- end

alias check_server {
  set %name2 $1
  ; echo -a  %NAME2 $sock(LOG_ $+ %name2).status
  tits $1
  echo_srvr $1
  if ($sock(LOG_ $+ %name2).lr >= 7825) {
    echo @RECONNECT_LOG - $time [7SKYNET]: Reconnected Server: [07 $+ %name2 $+ ] due to no activity in [07 $+ $duration($sock(LOG_ $+ %name2).lr) $+  ]
    kill_log %name2
    sockclose * $+ 3 $+ *
    connect_server %name2
    log_skynet %name2
    ;.timer 1 1 raw_skynet %name2 echo SkyNet Connected.
    .timer 1 1 raw_skynet %name2 echo HLSW: Test
  }
}

alias fun_Shit {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    while (%x <= $hget(server_ip,0).Item) {
      set %name $hget(server_ip, %x).Item
      ;set %name $hget(server_ip, %x).Item
      %y = $calc(%y + $int($sock(LOG_ $+ %name).rcvd))
      inc %x
    }
  }
  %y = $calc((%y / 1024) / 1024)
  %skynetdata = $calc(%y + %skynetdata)
  msg %pickupadmin [07SKYNET]: Total Data Usage: [07 $+ $round(%skynetdata,2) MB $+ ] as of Date: [07 $+ %startdate $+ ]
}

alias kill_all {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    kill_server $hget(server_ip, %x).Item
    inc %x
  }
}

alias kill_server {
  ;kill_log $1
  sockclose * $+ $1 $+ *
  window -c @ $+ $1 $+ _LOG
}

on *:udpread:challenge_*:{
  split _ $sockname
  set %name %name1
  ;  echo -a %name1
  if ($sockerr > 0) return

  var %rcon.cmd | sockread -f %rcon.cmd
  while ($sockbr) {
    if (%rcon.cmd) {
      aline @ $+ %name $+ _LOG %rcon.cmd
      if ($gettok(%rcon.cmd,1,32) == ÿÿÿÿchallenge) {
        ;  if ($hget(server_challenge, %name).Item) {
        ;   hdel server_challenge %name
        ; }
        hadd server_challenge %name $gettok(%rcon.cmd,3,32)
      }
      if ($left(%rcon.cmd,5) == ÿÿÿÿl) {
        %rcon.cmd = $remove(%rcon.cmd,$left(%rcon.cmd,5))
      }
    }
    sockread %rcon.cmd
  }

}

alias kill_log {
  var %serverip = $hget(server_ip, $1)
  var %serverport = $hget(server_port, $1)
  var %rcon = $hget(server_rcon, $1)
  var %challenge = $hget(server_challenge, $1)
  var %listenport = $hget(server_listenport, $1)
  sockudp LOG_ $+ $1 %listenport %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " logaddress_del $ip %listenport
  sockclose LOG_ $+ $1
  window -c @ $+ $1 $+ _LOG
  ;hdel server_listenport $1
}

alias log_skynet {
  if ($hget(server_ip,$1).Item) {
    var %listenport = $rand(8000,9000)
    if ($hget(server_listenport,$1).Item) {
      hdel server_listenport $1
    }
    hadd server_listenport $1 %listenport

    var %serverip = $hget(server_ip, $1)
    var %serverport = $hget(server_port, $1)
    var %rcon = $hget(server_rcon, $1)
    var %listenport = $hget(server_listenport, $1)
    var %challenge = $hget(server_challenge, $1)
    ;  echo -a LOG_ $+ $1 %listenport %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " logaddress_add $ip %listenport
    kill_server $1
    sockclose * $+ $1 $+ *
    connect_server $1
    window -De0 @ $+ $upper($1) $+ _LOG
    ;log_skynet %name
    sockudp -k LOG_ $+ $1 %listenport %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " logaddress_add $ip %listenport
    ; /timer 1 1 /raw_Skynet $1 echo SkyNet re-logged.

  }
}

alias raw_skynet {
  if ($hget(server_ip,$1).Item) {
    var %serverip = $hget(server_ip, $1)
    var %serverport = $hget(server_port, $1)
    var %rcon = $hget(server_rcon, $1)
    var %listenport = $hget(server_listenport, $1)
    var %challenge = $hget(server_challenge, $1)
    sockudp work_ $+ $1 $rand(7000,8500) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " $+ $chr(32) $+ $2-
    ;timer 1 .5 /sockclose work_ $+ $1
  }
}


alias change_all {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    raw_skynet $hget(server_ip, %x).Item changelevel $1
    inc %x
  }
}

alias speakall {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    raw_skynet $hget(server_ip, %x).Item say $1-
    inc %x
  }
}

alias birfday {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    raw_skynet $hget(server_ip, %x).Item tfc_Birthday 0
    inc %x
  }
}

alias big_tits {
  var %x = 1
  while (%x <= $hget(server_ip,0).Item) {
    tits $hget(server_ip, %x).Item
    inc %x
  }
}


on *:udpread:time_*:{
  if ($sockerr > 0) return
  split _ $sockname
  set %name %name1
  ;var %rcon.cmd | sockread -f %rcon.cmd
  sockread -f &reply

  var %log
  %offset = 5
  unset %log
  %log = $replace($replace($replace($bvar(&reply,%offset,10000).text,<,$chr(32)),>,$chr(32)),",)
  if (*mp_timeleft* iswm %log) {
    set %raw_time1 $gettok(%log,3,32)
    if (%infotime = 1) {
      set %printtime $duration($int(%raw_time1),1)
      timer 1 2 set %infotime 0
    }
    ; echo %printtime7
    ;  %showthetime = 1
    ; %time1pub = 1
    if (%time1pub = 1) { msg %pickupchan 14Time Left on %name 07 $+ $duration($int(%raw_time1),1) | %time1pub = 0 }
    if ((%time1srv = 1) && (%infotime != 1) && (%time1pub != 1)) { raw_skynet %name say Time Left $duration($int(%raw_time1),1) | %time1srv = 0 }
  }
}

;------ \\ start on text %pickupchan \\ ----------------------;

on *:TEXT:*:%pickupchan:{
  ; if (!reunion isin $1) { /reunion }

  if (!map isin $1) {
    if ($hget(top_maps, $2) != $null) {
      set %steam1 $hget(top_maps, $2)
      ; if (!map isin $1) {
      %mapzz = 0
      %x = 1
      set %steam1 $hget(top_maps, $2)
      while (%x <= $hget(top_maps,0).Item) {
        set %name $hget(top_maps, %x).Item
        set %steam $hget(top_maps, %name)
        inc %x
        %mapzz = $calc(%mapzz + $int(%steam))
      }
      msg $chan 7[ Map: 07 $+ $2 / 07 $+ %steam1 plays 07 / 07 $+ $round($calc(($int(%steam1)/$int(%mapzz)*100)),2)  $+ $chr(37) $+ $chr(32) 07]

      ; }
      ; msg %pickupadmin 07[ Map: 07 $+ $2 / 07 $+ %steam1 plays 07]
    }
    if ($hget(top_maps, $2) = $null) {
      msg $chan 07[ Map: HOLY SHiT THE MAP 07 $+ $2 $+  HASN'T BEEN PLAYED YET WOW!!! ]

    }
  }

  if (!top_maps isin $1) {
    echo -a LOL
    set %map_chan %pickupchan
    if ($2 != $nulL) {
      set %mapnum $2
    }
    if ($2 = $null) {
      set %mapnum 20
    }
    top_mapz
  }


  if (!version iswm $1) {
    /msg %pickupadmin 07¤10[ 07SKY-NET 10]: TFC Bot by MERK07i10N 10Version: [ 07 $+ %version $+ i 10] Log: [ 07 $+ %changelog 10] Date: [ 07 $+ %date 10] Status: [ $+ %skynet_status $+ $chr(32) $+ 10]07¤
  }
  if (!ignore iswm $1 && $nick isop %pickupchan) { ignore -u3600 $address($2,2) | msg %pickupchan All commands from $2 are now ignored. }
  if (!unignore iswm $1 && $nick isop %pickupchan) { ignore -r $address($2,2) | msg %pickupchan All commands from $2 are now recognized. }
  ; if (!servers isin $1) { msg %srvrchan Please wait while updating server data. |  %reunion = 1 | %srvrchan = $chan | server_list | timer 1 4 unset %reunion }
  if (!nfo * isin $1-) { server_info $2 | %srvrchan = $chan }

  if (!timeleft * iswm $1-) {
    if (%mute1 = 1) { halt }
    else {
      set -u30 %mute1 1
      %showthetime = 1
      %time1pub = 1
      %infotime = 1
      timer_mptime $2
      timer 1 1 /set %timer1pub = 0
    }
  }


  if ((!needsub isin $1) && ($hget(server_ip, $2) != $null)) {
    if ($nick isop %pickupchan) || ($nick isvoice %pickupchan) {
      if ($2 != $null) {
        if (%son == 0) {
          %srvr_name = $2
          set %son 1
          set %snum 1
          set %sonnick $nick


          msg %pickupchan 14 $+ Substitute player needed for 07 $upper($2) 14 $+ To play type 07!sub $+ 07 $+ .
          notice %pickupchan 14 $+ Substitute player needed for 07 $upper($2) 14 $+ To play type 07 !sub $+ 07 $+ .
          timer1_3 3 30 msg %pickupchan 14 $+ Substitute player needed for 07 $upper($2) 14 $+ To play type 07 !sub $+ 07 $+ .
          timer2_3 1 120 msg %pickupchan 14 $+ Failed to find a sub for 07 $upper($2) $+ 07 $+ .
          ;timer5_3 1 120 msg %pickupchan 14 $+ Failed to find a sub.
          timer3_3 1 120 set %son 0
          timer4_3 1 120 set %sonnick 0
        }


      }
    }
    else if (%son == 1 && $nick == %sonnick) { notice $nick Error: You are already looking for a sub. }
    else if (%son == 1 && $nick != %sonnick && %ingame.sub = 0) { notice $nick Error: Another admin is currently looking for a sub, please wait. }
    else if (%son == 1 && %ingame.sub = 1) { notice $nick Error: In game sub search currently in progress. }
    else { notice $nick Error: syntax is !needsub <server>. Example for IL1 !needsub il1 for IL3 !needsub il3 for TX !needsub tx | halt }
  }


  if (!cancelsub iswm $1) {
    if ($nick isop %pickupchan) || ($nick isvoice %pickupchan) {
      if (%son == 1 && $nick != %sonnick && %ingame.sub = 0) {
        notice $nick Error: You are not the admin who originated the substitute search.
      }
      else if (%son == 1 && $nick == %sonnick && %ingame.sub = 0) {
        msg %pickupchan 07 $+ Substitute player search has been cancelled.
        set %son 0
        set %sonnick 0
        timer4_3 off
        timer1_3 off
        timer5_3 off
        timer2_3 off
        timer3_3 off
      }
      else { halt }
    }
  }

  if (!sub iswm $1-) {
    %name =  %srvr_name
    if (%son == 1 && %ingame.sub = 0) {
      if ($nick == %sonnick) {
        notice $nick Error: You may not sub for yourself
      }
      else if (%snum >= 1) {

        set %subnick $nick
        dec %snum 1
        msg %sonnick %pcolor2 Found a substitute player: %pcolor3 $+ %subnick
        msg %subnick 14 $+ You have chosen to be a sub for 07 $+ $upper(%name) $+ %pcolor3 $+ password $hget(server_password, %srvr_name) $+ $chr(59) connect $hget(server_ip, %srvr_name) $+ : $+ $hget(server_port, %srvr_name)
        msg %subnick %pcolor3 $+ tfc:// $+ $hget(server_ip, %srvr_name) $+ / $+ $hget(server_port, %srvr_name)
        msg %pickupchan 14 $+ Found a subsitute player, $+ %pcolor3 %subnick $+ 14 $+ , for 07 $upper(%name) $+ 17 $+ . IP/PW have been sent.
        raw_skynet $2 say Found a substitute player: %subnick
        if (%snum == 0) {
          msg %pickupchan 07 $+ Substitute search for $+ 14 $+ %name $+ %pcolor2 has been completed.
          set %son 0
          set %sonnick 0
          unset %subnick
          timer1_3 off
          timer2_3 off
          timer3_3 off
          timer4_3 off
        }
      }
    }
    if (%son == 1 && %ingame.sub = 1) {
      %name = %srvr_name
      set %subnick $nick
      ;dec %snum 1
      ;  write %pick_loc $+ txts\ $+ %sonnick $+ .players.txt $nick
      raw_skynet %name say Found a substitute player: %subnick
      msg %subnick 07 $+ You have chosen to be a sub for 14  $+ %name %pcolor3 $+ password freak $+ $chr(59) connect $hget(server_ip, %srvr_name) $+ : $+ $hget(server_port, %srvr_name)
      msg %subnick %pcolor3 $+ tfc:// $+ $hget(server_ip, %srvr_name) $+ / $+$hget(server_port, %srvr_name)
      msg %pickupchan 14 $+ Found a subsitute player, $+ %pcolor3 %subnick $+ 14 $+ , for 07 $upper(%name) $+ 14 $+ . IP/PW have been sent.
      msg %pickupchan 14 $+ Substitute search for $+ 07 $upper(%name) $+ 14 has been completed.
      raw_skynet %name say Substitute search for server %name has been completed.
      set %son 0
      set %ingame.sub 0
      set %sonnick 0
      timer1_3 off
      timer2_3 off
      timer3_3 off
      timer4_3 off
      timer5_3 off
    }
  }
  if (*07¤ Players:* iswm $1-) {
    if (*pickuptfc* iswm $address($nick,5)) || (*tfcpickup* iswm $address($nick,5)) {
      %playerz = $gettok($1-,3-3,32)
      %player1 = $int($gettok(%playerz,1,47))
      %player2 = $int($gettok(%playerz,2,47))
      set %the_server $strip($gettok($1-,$calc($int($findtok($1-,Server:,1,32)) + 1),32),c)
      if (%the_server = IL) {
        set %the_sever IL1
      }
      %teh_server = $strip($gettok($1-,$calc($int($findtok($1-,Server:,1,32)) + 1),32),c)
      checkdick

      %pickupinfo = $strip($1-,c)
      if (%player1 == %player2) { %teams1 = $gettok(%pickupinfo,5 - $calc($int($numtok(%pickupinfo,32)) - 7),32) }
    }
    checkdick
  }
  if (*A game has been started by * iswm $1-) {
    raw_skynet IL1 echo Pickup began in channel add up

  }
  ;if (*The game was cancelled by* iswm $1-) {
  ; if (*pickuptfc* iswm $address($nick,5)) || (*tfcpickup* iswm $address($nick,5)) {
  ;   raw_skynet Il1 echo Pickup has been cancelled
  ; }
  ;}
}
;--- // start on text %pickupadmin // ---;

on *:TEXT:*:%pickupadmin:{
  if (!top_maps isin $1) {
    set %map_chan %pickupadmin
    if ($2 != $nulL) {
      set %mapnum $2
    }
    if ($2 = $null) {
      set %mapnum 20
    }
    top_mapz
  }


  if (!cmds isin $1) || (!commands isin $1) {
    if ($2 = $null) {
      msg %pickupadmin Please pick a help topic: admin / public / ingame
    }
    if ($2 = admin) {
      admin_help
    }
    if ($2 = ingame) {
      ingame_help
    }
    if ($2 = public) {
      pub_help
    }
  }
  if (!resetRTV isin $1) {
    if (%voting = 1) {
      set %voting 2
      msg %pickupadmin RTV Disabled.
      halt
    }
    if (%voting = 2) {
      set %voting 0
      msg %pickupadmin RTV Enabled.
      halt
    }

  }
  if ((!map isin $1) && ($2 != $null)) {
    if ($hget(top_maps, $2) != $null) {
      set %steam1 $hget(top_maps, $2)
      ; if (!map isin $1) {
      %mapzz = 0
      %x = 1
      set %steam1 $hget(top_maps, $2)
      while (%x <= $hget(top_maps,0).Item) {
        set %name $hget(top_maps, %x).Item
        set %steam $hget(top_maps, %name)
        inc %x
        %mapzz = $calc(%mapzz + $int(%steam))
      }
      msg $chan 7[ Map: 07 $+ $2 / 07 $+ %steam1 plays 07 / 07 $+ $round($calc(($int(%steam1)/$int(%mapzz)*100)),2)  $+ $chr(37) $+ $chr(32) 07]

      ; }
      ; msg %pickupadmin 07[ Map: 07 $+ $2 / 07 $+ %steam1 plays 07]
    }
    if ($hget(top_maps, $2) = $null) {
      msg $chan 07[ Map: HOLY SHiT THE MAP 07 $+ $2 $+  HASN'T BEEN PLAYED YET WOW!!! ]

    }
  }

  if (!timelimit isin $1) {
    raw_skynet $2 mp_timelimit $3
    timer_mptime $2

  }
  if (!rcon isin $1) {
    raw_skynet $2 $3-
  }
  if (!nfo* iswm $1-) { server_info $1 | %srvrchan = $chan }
  if (!adminon isin $1) {
    adminon
    msg %pickupadmin [07SKYNET]: Admin Acces List Loaded.
  }
  if (!adminoff isin $1) {
    save_admin
    adminoff
    msg %pickupadmin [07SKYNET]: Admin Acces List Removed.
  }

  if ((!who isin $1) && ($2 != $null) && (*STEAM_* iswm $2)) {
    if ($hfind(pickup_usrs, $2).Data != $null) {
      %suckone = $hfind(pickup_usrs, $2).Data
      %color = 07
    }
    if ($hfind(axxs_list, $2).Data != $null) {
      %suckone = $hfind(axxs_list, $2).Data
      %color = 09
    }
    if (($hfind(axxs_list, $2).Data = $null) && ($hfind(pickup_usrs, $2).Data = $null)) {
      %suckone = No Information Found.
      %color = 07
    }

    %suckme = $hget(iptracker, $2)

    if (%suckme = $null) {
      %suckme = No Information yet.
    }

    msg %pickupadmin [07USR-DB]: User [07 $+ $2 $+ ] is [ $+ %color $+ %suckone $+ ] IP [ $+ %color $+ %suckme $+ ]
  }


  if (!iplookup isin $1) {
    %suckme = $hfind(iptracker, $2).data

    if ($hfind(pickup_usrs, %suckme).Data != $null) {
      %suckone = $hfind(pickup_usrs, %suckme).Data
      %color = 07
    }
    if ($hfind(axxs_list, %suckme).Data != $null) {
      %suckone = $hfind(axxs_list, %suckme).Data
      %color = 09
    }
    if (($hfind(axxs_list, %suckme).Data = $null) && ($hfind(pickup_usrs, %suckme).Data = $null)) {
      %suckone = No Information Found.
      %color = 07
    }


    if (%suckme = $null) {
      %suckme = No Information yet.
    }

    msg %pickupadmin [07USR-DB]: IP [07 $+ $2 $+ ] belongs to [ $+ %color $+ %suckone $+ ] SteamID [ $+ %color $+ %suckme $+ ]
  }


  ;//say $hfind(pickup_usrs, *ari*, 4,w).Item
  ;//say $hfind(pickup_usrs, *ari*, 4,w).Item
  if ((!wildcard isin $1) && ($2 != $null)) {
    %wildlook = $chr(42) $+ $2- $+ $chr(42)
    ;   echo -a %wildlook
    if ($hfind(pickup_usrs, %wildlook, 0, w) > 0) {
      %wildnum = $hfind(pickup_usrs, %wildlook, 0, w)
      ; msg %pickupadmin %wildnum

    }
    if ($hfind(axxs_List, %wildlook, 0, w) > 0) {
      %wildnum.adm = $hfind(axxs_list, %wildlook, 0, w)
    }

    if (($hfind(axxs_list, %wildlook, 0, w) = 0) && ($hfind(pickup_usrs, %wildlook, 0, w) = 0)) {
      msg %pickupadmin [07USR-DB]: User 07 $+ $2- $+  doesn't exist.
      halt
    }
    if (%wildnum > 20) || (%wildnum.adm > 20) {
      msg %pickupadmin [07USR-DB]: Please be more specific. There are $calc(%wildnum + %wildnum.adm) matches.
      halt
    }

    if (%wildnum > 0) {
      %x = 1
      while %x <= %wildnum {
        %wildname = $hfind(pickup_usrs, %wildlook,%x,w).Item
        lookup %wildname
        inc %x
      }
    }

    if (%wildnum.adm > 0) {
      %x = 1
      while %x <= %wildnum.adm {
        %wildname = $hfind(axxs_list, %wildlook,%x,w).Item
        lookup %wildname
        inc %x
      }
    }
    set %wildnum 0
    set %wildnum.adm 0
    unset %wildname
    unset %wildlook
  }

  if ((!lookup isin $1) && ($2 != $null) && (*STEAM* !isin $2-)) {
    ; ;$hget(axxs_list, houston2)

    if ($hget(pickup_usrs, $2-) != $null) {
      %suckone = $hget(pickup_usrs, $2-)
      %color = 07
    }

    if ($hget(axxs_list, $2-) != $null) {
      %suckone = $hget(axxs_list, $2-)
      %color = 09
    }

    if ($hget(superusr, $2-) != $null) {
      %suckone = $hget(superusr, $2-)
      %color = 04
    }


    if (($hget(axxs_list, $2-) = $null) && ($hget(pickup_usrs, $2-) = $null)) {
      %color = 07
      %suckone = Invalid User
    }

    %suckme = $hget(iptracker, %suckone)

    if (%suckme = $null) {
      %suckme = No Information yet.
    }


    msg %pickupadmin [07USR-DB]: User [ $+ %color $+ $2- $+ ] is [ $+ %color $+ %suckone $+ ] IP [ $+ %color $+ %suckme $+ ]
  }

  if ((!addalias isin $1) && ($2 != $null) && (*STEAM_* !isin $2) && ($3 != $null) && (*STEAM_* iswm $3)) {
    if ($hfind(pickup_usrs, $3).Data != $null) {
      msg %pickupadmin [07USR-DB]: [07 $+ $3 $+ ] Already Added as [07 $+ $hfind(pickup_usrs, $3).Data $+ ]
      haltdef
    }
    else {
      add_alias $2 $3
      msg %pickupadmin [07USR-DB]: Alias [07 $+ $2 $+ ] added under [07 $+ $3 $+ ]
      save_pick

    }
  }

  if ((!delalias isin $1) && ($2 != $null) && (*STEAM_* iswm $2)) {
    del_alias $2
    msg %pickupadmin [07USR-DB]: Alias [07 $+ $2 $+ ] deleted
    save_pick
  }


  if (!speak * iswm $1-) {
    ; if (%silence = 1) {
    ;  msg %pickupadmin $2 $+ : 04ADMiN Spam disabled, !unsilence to re-enable.
    ; }
    ;  if (%silence != 1) {

    raw_skynet $2 say $nick $+ : $+ $chr(32) $+ $3-
    ; }
  }
  ;  if (!speak * iswm $1-) {
  ;    %shittosay = $nick $+ : $+ $chr(32) $+ $3-
  ;    if ($len(%shittosay) > 63) {
  ;      %trunk1 = $left(%shittosay,63)
  ;      ; %trunk2 = $right(%shittosay,$calc($len($remtok(%shittosay,$nick $+ :,32)) - 63))
  ;      %trunk2 = $right($remtok(%shittosay,$nick $+ :,32),$calc($len($remtok(%shittosay,$nick $+ :,32)) - 63))
  ;      if ($len(%trunk2) > 63) {
  ;        %trunk3 = $right($remtok(%shittosay,$nick $+ :,32),$calc(($len($remtok(%shittosay,$nick $+ :,32)) - 63) - 64))
  ;      }
  ;      raw_skynet $2 say %trunk1
  ;      timer 1 .5  raw_skynet $2 say %trunk2
  ;      if (%trunk3 != $null) {
  ;        timer 1 1 raw_skynet $2 say %trunk3
  ;      }
  ;      unset %trunk1
  ;      unset %trunk2
  ;      unset %trunk3
  ;    }
  ;    else { raw_skynet $2 say %shittosay }
  ;  }


  if (!silence iswm $1) { %silence = 1 | /msg %pickupadmin [7SKYNET] Spam echo disabled. | /timerSpam 0 3600 msg %pickupadmin [07SKYNET]: SkyNet is 09ONLiNE notifications are disabled.  !unsilence to enable }
  ; if (!unsilence iswm $1) { notice $nick SkyNet is offline on my end. The Production bot is live. | notice $nick I will not be enabling my bot for duplication reasons. }
  if (!unsilence iswm $1) { %silence = 0 | /msg %pickupadmin [7SKYNET] Spam echo enabled. | /timerspam off }
  if (!version iswm $1) {
    /msg %pickupadmin 07¤10[ 07SKY-NET 10]: TFC Bot by MERK07i10N 10Version: [ 07 $+ %version $+ i 10] Log: [ 07 $+ %changelog 10] Date: [ 07 $+ %date 10] Status: [ $+ %skynet_status $+ $chr(32) $+ 10]07¤
  }
  if (!random * iswm $1-) {
    :STARTOVER
    ;set %randMAP.1 $hget(top_maps,$rand(1,$hget(top_maps, 0).Data)).Item
    %endmap = $hget(maplist, 0).Data
    set %randMAP.1 $replace($hget(maplist, $rand(1,%endmap)).Item,.bsp,)

    if ($hget(top_maps,%randMAP.1) > 12) {
      goto startover
    }
    if ($hget(top_maps,%randMAP.1) <= 12) || ($hget(top_maps,%randMAP.1) = $null) {
      ;  msg %pickupadmin 09 $+  %randMAP.1 $hget(top_maps,%randMAP.1)
      %changingmap = %randMAP.1
      //msg %pickupadmin [07RANDOM]: Attempting to change 07 $+  $2 $+  $chr(32) $+ to [07 $+ %randMAP.1 $+ ]
      raw_skynet $2 changelevel %randMAP.1
    }
  }

  if (!timeleft * iswm $1-) {
    if (%mute1 = 1) { halt }
    else {
      set -u30 %mute1 1
      %showthetime = 1
      timer_mptime $2
      timer 1 1 /set %showthetime = 0
    }
  }

  if (*07¤ Players:* iswm $1-) {
    if (*pickuptfc* iswm $address($nick,5)) || (*tfcpickup* iswm $address($nick,5)) {
      %playerz = $gettok($1-,3-3,32)
      %player1 = $int($gettok(%playerz,1,47))
      %player2 = $int($gettok(%playerz,2,47))
      %server = $strip($gettok($1-,$calc($int($findtok($1-,Server:,1,32)) + 1),32),c)
      %pickupinfo = $strip($1-,c)
      if ((%server = IL) && (%player1 == %player2)) { %teams1 = $gettok(%pickupinfo,5 - $calc($int($numtok(%pickupinfo,32)) - 7),32) }
      if ((%server = TX) && (%player1 == %player2)) { %teams2 = $gettok(%pickupinfo,5 - $calc($int($numtok(%pickupinfo,32)) - 7),32) }
      if ((%server = IL3) && (%player1 == %player2)) { %teams3 = $gettok(%pickupinfo,5 - $calc($int($numtok(%pickupinfo,32)) - 7),32) }
    }
  }

  if (!speakall * iswm $1-) {
    speakall $nick $+ : $+ $chr(32) $+ $replace($1-,!speakall,)
  }

  if ((!usrs * iswm $1-) && ($hget(server_ip, $2) = $null)) {
    msg %pickupadmin $2 is not a valid Server. Please Specifcy a valid server
  }

  if ((!usrs * iswm $1-) && ($hget(server_ip, $2) != $null)) {
    %reunion  = 0
    var %serverip = $hget(server_ip, $2)
    var %serverport = $hget(server_port, $2)
    var %rcon = $hget(server_rcon, $2)
    var %listenport = $hget(server_listenport, $2)
    var %challenge = $hget(server_challenge, $2)
    msg %pickupadmin 07[ Displaying Current Players for: $2 07 $+ ]
    sockudp -k work_ $+ %name $rand(7000,8500) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " status
    timer 1 4 /sockclose work_ $+ %name
    ; timer 1 1 /set %cur_users 0
  }

  if ((!changelevel* iswm $1) && ($2 != $null) && ($3 != $null)) { raw_skynet $2 say Admin: $nick is Changing Level To: $3 in 5 seconds. | timer 1 3 raw_skynet $2 changelevel $3  }
  if (!kickusr* iswm $1-) { %irc_kick = 1 | raw_skynet $2 kick $3- | %kickmaste = SkyNet }

  if (!rs* iswm $1) { raw_skynet $2 restart }

  if (!suspend * iswm $1- ) { if (($2 != $null) && ($3 != $null)) {
      var %x = 1
      while (%x <= $hget(server_ip,0).Item) {
        raw_skynet $hget(server_ip, %x).Item banid $2 $3 kick
        inc %x
      }
      msg %pickupadmin [07BANNED] User 07 $+ $3  has been suspended for 07 $2  Minutes.
    }

  }


  if (!addip iswm $1) {
    var %x = 1
    if ($chr(58) !iswm $3) {
      while (%x <= $hget(server_ip,0).Item) {
        raw_skynet $hget(server_ip, %x).Item addip $2 $3
        inc %x
      }
    }
    if ($chr(58) iswm $3) {
      %banaddy = $gettok($3,1,58)
      while (%x <= $hget(server_ip,0).Item) {
        raw_skynet $hget(server_ip, %x).Item addip $2 %banaddy
        inc %x
      }

    }
    msg %pickupadmin [07BANNED] IP 07 $+ $3 $+  has been banned for 07 $+ $2 $+  Minutes.
  }


  if (!delip iswm $1) {
    var %x = 1
    while (%x <= $hget(server_ip,0).Item) {
      raw_skynet $hget(server_ip, %x).Item removeip $2
      ; raw_skynet $hget(server_ip, %x).Item writeip $2
      inc %x
    }
    msg %pickupadmin [07UN-BANNED] User $2 has been un-suspended.
  }

  if (!unsuspend iswm $1) { if ($2 != $null) {
      var %x = 1
      while (%x <= $hget(server_ip,0).Item) {
        raw_skynet $hget(server_ip, %x).Item removeid $2
        raw_skynet $hget(server_ip, %x).Item writeid
        inc %x
      }
      msg %pickupadmin [07UN-BANNED] User $2 has been unsuspended.
      } else {
      notice $nick Syntax: !unsuspend [STEAMiD]
    }
  }

  if (!rehash * iswm $1-) {

    kill_server $2
    sockclose * $+ $2 $+ *
    connect_server $upper($2)
    log_skynet $upper($2)
    timer 1 1 raw_skynet $2 say Srvr Rehash Completed.
    ; msg %pickupadmin $upper($2) Server Rehash Completed.
    if (%silence = 1) {
      msg %pickupadmin $upper($2) Server Rehash Completed.  SkyNet spam muted. !unsilence to umute.
    }

  }

  if (!rehash_all isin $1) {
    rehash_all
    if (%silence = 1) {
      msg %pickupadmin Server Rehashes Completed.  SkyNet spam muted. !unsilence to umute.
    }
  }


}

;------ // end on text // ----------------------;
on *:INPUT:%pickupadmin:{



  if (!remove iswm $1) {
    raw_skynet IL1 echo mrk remove_me
  }
  if (!add iswm $1) {
    raw_skynet IL1 echo mrk add_me
  }

  if (!rcon isin $1) {
    raw_skynet $2 $3-
  }
  ;if (!servers isin $1) { msg %srvrchan Please wait while updating server data. | %reunion = 1 | %srvrchan = $chan | server_list | timer 1 40 unset %reunion }

  if (!resetRTV isin $1) {
    if (%voting != 1) || (%voting = $null) {
      set %voting 2
      msg %pickupadmin RTV Disabled.
      ; halt
    }
    if (%voting = 2) {
      set %voting 0
      msg %pickupadmin RTV Enabled.
      ; halt
    }

  }

  if (!cmds isin $1) || (!commands isin $1) {
    if ($2 = $null) {
      msg %pickupadmin Please pick a help topic: admin / public / ingame
    }
    if ($2 = admin) {
      admin_help
    }
    if ($2 = ingame) {
      ingame_help
    }
    if ($2 = public) {
      pub_help
    }
  }



  if (!top_maps isin $1) {
    set %map_chan %pickupadmin
    if ($2 != $nulL) {
      set %mapnum $2
    }
    if ($2 = $null) {
      set %mapnum 20
    }
    top_mapz
  }
  if ((!map isin $1) && ($2 != $null)) {
    if ($hget(top_maps, $2) != $null) {
      set %steam1 $hget(top_maps, $2)
      ;if (!map isin $1) {
      %mapzz = 0
      %x = 1
      set %steam1 $hget(top_maps, $2)
      while (%x <= $hget(top_maps,0).Item) {
        set %name $hget(top_maps, %x).Item
        set %steam $hget(top_maps, %name)
        inc %x
        %mapzz = $calc(%mapzz + $int(%steam))
      }
      msg $chan 7[ Map: 07 $+ $2 / 07 $+ %steam1 plays 07 / 07 $+ $round($calc(($int(%steam1)/$int(%mapzz)*100)),2)  $+ $chr(37) $+ $chr(32) 07]

      ;}
      ; msg %pickupadmin 07[ Map: 07 $+ $2 / 07 $+ %steam1 plays 07]
    }
    if ($hget(top_maps, $2) = $null) {
      msg $chan 07[ Map: HOLY SHiT THE MAP 07 $+ $2 $+  HASN'T BEEN PLAYED YET WOW!!! ]

    }
  }

  ;//say $hfind(pickup_usrs, *ari*, 4,w).Item
  if ((!wildcard isin $1) && ($2 != $null)) {
    %wildlook = $chr(42) $+ $2- $+ $chr(42)
    ;   echo -a %wildlook
    if ($hfind(pickup_usrs, %wildlook, 0, w) > 0) {
      %wildnum = $hfind(pickup_usrs, %wildlook, 0, w)
      ; msg %pickupadmin %wildnum

    }
    if ($hfind(axxs_List, %wildlook, 0, w) > 0) {
      %wildnum.adm = $hfind(axxs_list, %wildlook, 0, w)
    }
    if (($hfind(axxs_list, %wildlook, 0, w) = 0) && ($hfind(pickup_usrs, %wildlook, 0, w) = 0)) {
      msg %pickupadmin [07USR-DB]: User 07 $+ $2- $+  doesn't exist.
      halt
    }
    if (%wildnum > 20) || (%wildnum.adm > 20) {
      msg %pickupadmin [07USR-DB]: Please be more specific. There are $calc(%wildnum + %wildnum.adm) matches.
      halt
    }


    if (%wildnum > 0) {
      %x = 1
      while %x <= %wildnum {
        %wildname = $hfind(pickup_usrs, %wildlook,%x,w).Item
        lookup %wildname
        inc %x
      }
    }

    if (%wildnum.adm > 0) {
      %x = 1
      while %x <= %wildnum.adm {
        %wildname = $hfind(axxs_list, %wildlook,%x,w).Item
        lookup %wildname
        inc %x
      }
    }
    set %wildnum 0
    set %wildnum.adm 0
    unset %wildname
    unset %wildlook
  }



  if ((!lookup isin $1) && ($2 != $null) && (*STEAM* !isin $2-)) {
    ; ;$hget(axxs_list, houston2)

    if ($hget(pickup_usrs, $2-) != $null) {
      %suckone = $hget(pickup_usrs, $2-)
      %color = 07
    }

    if ($hget(axxs_list, $2-) != $null) {
      %suckone = $hget(axxs_list, $2-)
      %color = 09
    }

    if ($hget(superusr, $2-) != $null) {
      %suckone = $hget(superusr, $2-)
      %color = 04
    }

    if (($hget(axxs_list, $2-) = $null) && ($hget(pickup_usrs, $2-) = $null)) {
      %color = 07
      %suckone = Invalid User
    }

    %suckme = $hget(iptracker, %suckone)

    if (%suckme = $null) {
      %suckme = No Information yet.
    }


    msg %pickupadmin [07USR-DB]: User [ $+ %color $+ $2- $+ ] is [ $+ %color $+ %suckone $+ ] IP [ $+ %color $+ %suckme $+ ]
  }

  if (!timelimit isin $1) {
    raw_skynet $2 mp_timelimit $3
    /timer 1 1 timer_mptime $2

  }

  if (!nfo isin $1) { server_info $2 | %srvrchan = $chan }

  if ((!who isin $1) && ($2 != $null) && (*STEAM_* iswm $2)) {
    if ($hfind(pickup_usrs, $2).Data != $null) {
      %suckone = $hfind(pickup_usrs, $2).Data
      %color = 07
    }
    if ($hfind(axxs_list, $2).Data != $null) {
      %suckone = $hfind(axxs_list, $2).Data
      %color = 09
    }
    if (($hfind(axxs_list, $2).Data = $null) && ($hfind(pickup_usrs, $2).Data = $null)) {
      %suckone = No Information Found.
      %color = 07
    }

    %suckme = $hget(iptracker, $2)

    if (%suckme = $null) {
      %suckme = No Information yet.
    }

    msg %pickupadmin [07USR-DB]: User [ $+ %color $+ $2 $+ ] is [ $+ %color $+ %suckone $+ ] IP [ $+ %color $+ %suckme $+ ]
  }

  if (!iplookup isin $1) {
    %suckme = $hfind(iptracker, $2).data

    if ($hfind(pickup_usrs, %suckme).Data != $null) {
      %suckone = $hfind(pickup_usrs, %suckme).Data
      %color = 07
    }
    if ($hfind(axxs_list, %suckme).Data != $null) {
      %suckone = $hfind(axxs_list, %suckme).Data
      %color = 09
    }
    if (($hfind(axxs_list, %suckme).Data = $null) && ($hfind(pickup_usrs, %suckme).Data = $null)) {
      %suckone = No Information Found.
      %color = 07
    }


    if (%suckme = $null) {
      %suckme = No Information yet.
    }

    msg %pickupadmin [07USR-DB]: IP [07 $+ $2 $+ ] belongs to [ $+ %color $+ %suckone $+ ] SteamID [ $+ %color $+ %suckme $+ ]
  }

  if ((!addalias isin $1) && ($2 != $null) && (*STEAM_* !isin $2) && ($3 != $null)) {
    if ($hfind(pickup_usrs, $3).Data != $null) {
      msg %pickupadmin [07USR-DB]: [07 $+ $3 $+ ] Already Added as [07 $+ $hfind(pickup_usrs, $3).Data $+ ]
      haltdef
    }
    else {
      add_alias $2 $3
      msg %pickupadmin [07USR-DB]: Alias [07 $+ $2 $+ ] added under [07 $+ $3 $+ ]
      save_pick

    }
  }
  if ((!delalias isin $1) && ($2 != $null) && (*STEAM_* iswm $2)) {
    del_alias $2
    msg %pickupadmin [07USR-DB]: Alias [07 $+ $2 $+ ] deleted
    save_pick
  }


  if (!version iswm $1) {
    /msg %pickupadmin 07¤10[ 07SKY-NET 10]: TFC Bot by MERK07i10N 10Version: [ 07 $+ %version $+ i 10] Log: [ 07 $+ %changelog 10] Date: [ 07 $+ %date 10] Status: [ 09 $+ %skynet_status $+ 10]07¤
  }
  if (!random * iswm $1-) {
    :STARTOVER
    ;set %randMAP.1 $hget(top_maps,$rand(1,$hget(top_maps, 0).Data)).Item
    set %randMAP.1  $replace($read(%map_list),.bsp,)

    if ($hget(top_maps,%randMAP.1) > 12) {
      raw_skynet %name say Map chosen %randMAP.1 has too many plays. Randomizing again.
      goto startover
    }
    if ($hget(top_maps,%randMAP.1) <= 12) || ($hget(top_maps,%randMAP.1) = $null) {
      %changingmap = %randMAP.1
      //msg %pickupadmin [07RANDOM]: Attempting to change 07 $+  $2 $+  $chr(32) $+ to [07 $+ %randMAP.1 $+ ]
      raw_skynet $2 changelevel %randMAP.1
      ; hinc top_maps %randMAP.1
    }
  }

  if (!rehash_all isin $1) {
    rehash_all
  }

  if (!speakall * iswm $1-) {
    speakall $nick $+ : $+ $chr(32) $+ $replace($1-,!speakall,)
  }

  if (!silence iswm $1) { %silence = 1 | /msg %pickupadmin [7SKYNET] Spam echo disabled. | /timerSpam 0 2700 msg %pickupadmin [07SKYNET]: SkyNet is 09ONLiNE notifications are disabled.  !unsilence to enable }
  if (!unsilence iswm $1) { %silence = 0 | /msg %pickupadmin [7SKYNET] Spam echo enabled. | /timerspam off }

  if (!timeleft * iswm $1-) {
    ; if (%mute1 = 1) { halt }
    ; else {
    set -u30 %mute1 1
    %showthetime = 1
    timer_mptime $2
    timer 1 1 /set %showthetime = 0
    ;}
  }

  if ((!usrs * iswm $1-) && ($hget(server_ip, $2) = $null)) {
    msg %pickupadmin $2 is not a valid Server. Please Specifcy a valid server
  }

  if ((!usrs * iswm $1-) && ($hget(server_ip, $2) != $null)) {
    %reunion  = 0
    var %serverip = $hget(server_ip, $2)
    var %serverport = $hget(server_port, $2)
    var %rcon = $hget(server_rcon, $2)
    var %listenport = $hget(server_listenport, $2)
    var %challenge = $hget(server_challenge, $2)
    msg %pickupadmin 07[ Displaying Current Players for: $2 07 $+ ]
    timer 1 1 sockudp -k work_ $+ %name $rand(7000,8500) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " status
    ; timer 1 2 sockudp -k work_ $+ %name $rand(7800,8000) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " status

    timer 1 4 sockclose work_ $+ %name
    ; timer 1 1 /set %cur_users 0
  }


  if (!speak * iswm $1-) {
    if (%silence = 1) {
      msg %pickupadmin $2 $+ : 04ADMiN Spam disabled, !unsilence to re-enable.
    }
    if (%silence != 1) {
      raw_skynet $2 say $me $+ : $+ $chr(32) $+ $3-
    }
  }

  if ((!changelevel* iswm $1) && ($2 != $null) && ($3 != $null)) { raw_skynet $2 say Admin: $nick is Changing Level To: $3 in 5 seconds. | timer 1 3 raw_skynet $2 changelevel $3  }
  if (!kickusr*  iswm $1-) { raw_skynet $2 kick $3- | %kickmaster = SkyNet }

  if (!rs * iswm $1-) { raw_skynet $2 restart }

  if (!suspend * iswm $1- ) { if (($2 != $null) && ($3 != $null)) {
      var %x = 1
      while (%x <= $hget(server_ip,0).Item) {
        raw_skynet $hget(server_ip, %x).Item banid $2 $3 kick
        inc %x
      }
      msg %pickupadmin [07BANNED] User 07 $+ $3  has been suspended for 07 $2  Minutes.
    }

  }

  if (!addip iswm $1) {
    var %x = 1
    while (%x <= $hget(server_ip,0).Item) {
      raw_skynet $hget(server_ip, %x).Item addip $2 $3
      raw_skynet $hget(server_ip, %x).Item writeip $2
      inc %x
    }
    msg %pickupadmin [07BANNED] IP 07 $+ $3 $+  has been banned for 07 $+ $2 $+  Minutes.
  }

  if (!delip iswm $1) {
    var %x = 1
    while (%x <= $hget(server_ip,0).Item) {
      raw_skynet $hget(server_ip, %x).Item removeip $2
      raw_skynet $hget(server_ip, %x).Item writeip
      inc %x
    }
    msg %pickupadmin [07UN-BANNED] User $2 has been un-suspended.
  }
  if (!unsuspend iswm $1) { if ($2 != $null) {
      var %x = 1
      while (%x <= $hget(server_ip,0).Item) {
        raw_skynet $hget(server_ip, %x).Item removeid $2
        raw_skynet $hget(server_ip, %x).Item writeid

        inc %x
      }
      msg %pickupadmin [07UN-BANNED] User $2 has been unsuspended.
    }
  }


  if (!rehash * iswm $1-) {
    kill_server $2
    connect_server $upper($2)
    log_skynet $upper($2)
    timer 1 1 raw_skynet $2 say Srvr Rehash Completed.
  }

  if (*07¤ Players:* iswm $1-) {
    if (*pickuptfc* iswm $address($nick,5)) || (*tfcpickup* iswm $address($nick,5)) {
      %playerz = $gettok($1-,3-3,32)
      %player1 = $int($gettok(%playerz,1,47))
      %player2 = $int($gettok(%playerz,2,47))
      %server = $strip($gettok($1-,$calc($int($findtok($1-,Server:,1,32)) + 1),32),c)
      %pickupinfo = $strip($1-,c)
      ; if ((%server = IL) && (%player1 == %player2)) { %teams1 = $gettok(%pickupinfo,5 - $calc($int($numtok(%pickupinfo,32)) - 7),32) }
      ; if ((%server = TX) && (%player1 == %player2)) { %teams2 = $gettok(%pickupinfo,5 - $calc($int($numtok(%pickupinfo,32)) - 7),32) }
      ; if ((%server = IL3) && (%player1 == %player2)) { %teams3 = $gettok(%pickupinfo,5 - $calc($int($numtok(%pickupinfo,32)) - 7),32) }
    }
  }
}

on *:UDPREAD:*: {
  split _ $sockname

  set %name %name1
  set %serverip $hget(server_ip, %name)
  set %serverport $hget(server_port, %name)
  set %rcon $hget(server_rcon, %name)
  set %listenport $hget(server_listenport, %name)
  set %challenge $hget(server_challenge, %name)

  window -De0 @ $+ %name $+ _LOG / $+ %name
  :nextread
  sockread -f &reply

  var %log
  %offset = 5
  unset %log
  %log = $replace($replace($replace($bvar(&reply,%offset,1000000000).text,<,$chr(32)),>,$chr(32)),",)
  ;echo @FUCKiNGSHiT $bvar(&reply,%offset,10000000000).text

  ;; 479 chars is max echo

  if (*echo Pickup began in channel add up* iswm %log) {
    msg %pickupadmin [09PiCKUP]: Started on GaySurge
  }

  if (*echo mrk add_me* iswm %log) {
    msg %Pickupchan !add
  }

  if (*echo Pickup has been cancelled* iswm %log) {
    msg %Pickupadmin Pickup Cancelled...
  }

  if (*echo mrk remove_me* iswm %log) {
    msg %Pickupchan !remove
  }

  if (*echo HLSW: logaddress* iswm %log) {
    %ipfucker = $replace($gettok(%log,14-15,32),:,$chr(32))
    %ipfuck = $gettok(%ipfucker,1,32)
    if (%ipfuck != $ip) {
      raw_skynet %name logaddress_del $replace($gettok(%log,14-15,32),:,$chr(32))
      %fgt = $hfind(pickup_usrs, $hfind(iptracker, $replace($gettok(%log,14-15,32),:,$chr(32)).Data).Data
      msg %pickupadmin %name $+ : Removed logging for: $gettok(%log,14-15,32) which is %fgt
    }
  }

  ;llogaddress_add: 76.247.42.158:8918

  if (*logaddress_add: iswm %log) {
    %ipfucker = $replace($gettok(%log,2,32),:,$chr(32))
    %ipfuck = $gettok(%ipfucker,1,32)
    if (%ipfuck != $ip) {
      raw_skynet %name logaddress_del %ipfucker
    }
  }

  ;log L 05/01/2010 - 09:40:16: Rcon: rcon 2270834894 rkahn status from 70.162.187.39:7130
  if (*status* iswm %log) {
    %ipfucker = $replace($gettok(%log,12-13,32),:,$chr(32))
    if (%ipfucker != $ip) {
      raw_skynet %name logaddress_del $replace($gettok(%log,12-13,32),:,$chr(32))
      ; %fgt = $hfind(pickup_usrs, $hfind(iptracker, $replace($gettok(%log,14-15,32),:,$chr(32)).Data).Data
      ; msg %pickupadmin %name $+ : Removed logging for: $gettok(%log,14-15,32) which is %fgt
    }
  }

  if (*echo mrk pickup started* iswm %log) {
    msg %pickupadmin Pickup Started MERKiN - join fucker
    msg MERKiN PiCKUP STARTED!!!!!!!!!!!11111111111111111
  }

  if ((!rtv isin %log) && (%voting != 1)) {
    set %rcon.1 $wildtok(%log,*steam*,1,32)
    if ($hfind(axxs_list, %rcon.1).Data != $null) {
      %voteadmin = %rcon.1
      %name2 = %name
      raw_skynet %name say Map Vote Started for 40 seconds
      timer 1 40 unset %voting
      timer 1 20 raw_skynet %name say 20 seconds remaining to vote.
      timer 1 40 unset %voteadmin
      timer 1 41 raw_skynet %name say Map Voting Completed.
      timer 1 42 vote_results %name2
      timer 1 43 hfree %name $+ _steamID
      timerFREE 1 43 hfree %name $+ _vote
      hmake -s %name $+ _steamID
      ;hmake -s %name $+ _vote
      %voting = 1
    }
  }

  if ((!rtv isin %log) && (%voting = 1)) {
    set %rcon.2 $wildtok(%log,*steam*,1,32)
    if ($hfind(axxs_list, %rcon.2).Data != $null) {
      raw_skynet %name say Voting in progress on %name2 over in $timer(FREE).secs seconds
    }
  }

  if (!resetRTV isin %log) {
    set %voting 2
  }

  if (!map isin %log) {
    if (%skyneton = 1) {
      %mapinfo =  $calc($findtok(%log,!map,1,32) + 1)
      %mapshit = $gettok(%log,%mapinfo,32)
      saveclip
      clipboard %mapshit
      %mapdicks = $hget(top_maps, $cb(1))
      if (%mapshit != $null) {
        ; clipboard
        if (%mapdicks != $null) {
          raw_skynet %name say Map $cb(1) has been played a lovely %mapdicks times since 9/30.
        }
        else { raw_skynet %name say Wow, no one has played $cb(1) since 9/30 }

      }
    }
    restoreclip
  }

  if ((!vote isin %log) || (!votemap isin %log) && (%voting = 1) && (SPECTATOR !isin %log)) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    if (%voteadmin != %rcon.1) {

      if ($hfind(%name $+ _steamID, %rcon.1).Data = $null) {
        %vote_var1 =  $calc($findtok(%log,!vote,1,32) + 1)
        %votemap = $gettok(%log,%vote_var1,32)
        saveclip
        clipboard %votemap
        hadd %name $+ _steamID %rcon.1 $cb(1)
        if ($hget(top_maps, $cb(1)) != $null) {
          raw_skynet %name say Vote for $cb(1) recorded Plays: [ $hget(top_maps, $cb(1)) ]
        }
        if ($hget(top_maps, $cb(1)) = $null) {
          raw_skynet %name say Vote for $cb(1) recorded Plays: 0
        }
        ;hinc %name $+ _vote $cb(1)
      }

    }
    restoreclip
  }

  if ((!who isin %log) && (%skyneton = 1)) {
    %who_var1 =  $calc($findtok(%log,!who,1,32) + 1)
    %who_name1 = $gettok(%log,%who_var1,32)
    if (*STEAM_* iswm %who_name1) {
      saveclip
      /clipboard %who_name1
      %who_name1 = $cb(1)
      if ($hfind(pickup_usrs, %who_name1).Data != $null) {
        %aliasedfgt = $hfind(pickup_usrs, %who_name1).Data
      }
      if ($hfind(axxs_list, %who_name1).Data != $null) {
        %aliasedfgt = $hfind(axxs_list, %who_name1).Data #TFC Admin
      }
      if (($hfind(axxs_list, %who_name1).Data = $null) && ($hfind(pickup_usrs, %who_name1).Data = $null)) {
        %aliasedfgt = No Information Found.
      }
      ;echo -a $hfind(pickup_usrs, %who_name1).Data
      ;   raw_skynet %name say Searching for %who_name1
      raw_skynet %name say User Alias is: %aliasedfgt
    }
    else { raw_skynet %name say Invalid Selection. }

    restoreclip
  }

  if (!rcon isin %log) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    if ($hfind(superusr, %rcon.1).Data != $null) {
      %rcon_var1 =  $calc($findtok(%log,!rcon,1,32))
      %len_var1 = $numtok(%log,32)
      %rcon_do1 = $gettok(%log,%rcon_var1 - %len_var1,32)

      raw_skynet %name $replace(%rcon_do1,!rcon,)
    }
  }

  ; if (!admin_on isin %log) {
  ;  %rcon.1 = $wildtok(%log,*steam*,1,32)
  ;  if ($hfind(superusr, %rcon.1).Data != $null) {
  ;    adminon
  ;   raw_skynet %name say Admin list reloaded.
  ; }
  ; }

  ; if (!admin_off isin %log) {
  ;   %rcon.1 = $wildtok(%log,*steam*,1,32)
  ;   if ($hfind(superusr, %rcon.1).Data != $null) {
  ;    adminoff
  ;    raw_skynet %name say Admin list unloaded.
  ;  }
  ;}


  ; if (logaddress_add isin %log) && (7130 isin %log) {
  ;  %getfucked = $gettok(%log,11,32)
  ;  raw_skynet %name logaddress_del %getfucked 7130
  ;}

  if (*Log file started * isin %log) {
    raw_skynet %name log off
  }

  if ((*9No challenge for your address* iswm %log) || (*9Bad challenge* iswm %log)) {
    sockclose * $+ %name $+ *
    /timer 1 1 connect_server %name
    /timer 1 2 log_skynet %name
  }


  ;  if (!admin isin %log) {
  ;    msg %pickupadmin 04ADMIN: Administrator needed on %name
  ;   notice %pickupadmin %name $+ : 04ADMIN: Administrator needed on %serverip $+ : $+ %serverport
  ;  raw_skynet %name say Administrators have been notified. Please hold.
  ;}
  :SHiT
  if ((*name userid uniqueid* iswm %log) && (%reunion != 1)) {
    saveclip
    clipboard $replace(%log,$chr(35),)
    set %x 7
    while (%x <= $cb(0)) {
      %len = $numtok($cb(%x),32)
      ; len - 5 = steam | len - 6 = usrid | len - 4 = kills | len - 8 = Number | len - 9 = beginin | len = IP | do 2 to usrid for name
      set %user_name1 0
      set %len2 0
      set %fuckass 0
      set %frags 0
      set %steamID 0
      if (%x > 7) && (%x < $cb(0)) {
        %usr_name1 = $gettok($cb(%x),2 - $calc($int(%len) - 6),32)
        %crap = $deltok($deltok($cb(%x),$calc(%len - 5) - %len,32),1,32)
        %len2 = $numtok(%crap,32)
        %fuckass = $replace($gettok(%crap,1 - $calc(%len2 - 1),32),$chr(124),)
        %usr_name = $deltok($deltok(%cb(%x),$calc(%len - 7) - %len,32),1-2,32)
        %frags = $gettok($cb(%x),$calc($int(%len) - 4),32)
        %steamID = $gettok($cb(%x),$calc($int(%len) - 5),32)
        %idle_time =  $gettok($cb(%x),$calc($int(%len) - 3),32)
        ; Frags: [ $+ %admin $+ %frags $+ ]
        ; Ping: [07 $+ %ping $+ ms $+ ]
        %ping = $gettok($cb(%x),$calc(%len - 2),32)
        %ipenis = $gettok($replace($gettok($cb(%x),%len,32),:,$chr(32)),1,32)
        if (($hfind(axxs_list, %steamID).Data != $null) && ($hfind(superusr, %steamID).Data = $null)) {
          %admin = 09
          %aliasfuck = $hfind(axxs_list, %steamID).Data
        }
        if ($hfind(axxs_list, %steamID).Data = $null) {
          ;else {
          %admin = 07
          %aliasfuck = $hfind(pickup_usrs, %steamID).Data
        }

        if ($hfind(superusr, %steamID).Data != $null) {
          %aliasfuck = $hfind(superusr, %steamID).Data

          %admin = 04
        }

        if ((%fuckass != $null) && (%frags != $null) && (%steamID != $null) && ($gettok($cb(%x),%len,32) != $null) && ($cb(0) != $null)) {
          ;  %fuckass = $replace(%fuckass,|,)
          if (%admin = 09) || (%admin = 04) { timer 1 3  msg %pickupadmin [ $+ %admin $+ %fuckass $+ ] Frags: [ $+ %admin $+ %frags $+ ] Time: [ $+ %admin $+ %idle_time $+ m $+ ] SteamID: [ $+ %admin $+ %steamID $+ ] IP: [ $+ %admin $+ %ipenis $+ ] Admin Name: [ $+ %admin $+ %aliasfuck $+ ] }

          ;  else {
          ; if (%admin = 04) { timer 1 3  msg %pickupadmin [ $+ %admin $+ %fuckass $+ ] Frags: [ $+ %admin $+ %frags $+ ] Time: [ $+ %admin $+ %idle_time $+ m $+ ] SteamID: [ $+ %admin $+ %steamID $+ ] IP: [ $+ %admin $+ %ipenis $+ ] Ping: [ $+ %admin $+ %ping $+ ms $+ ] Admin Name: [ $+ %admin $+ $hfind(superusr, %steamID).Data $+ ] }
          ;}
          else { timer 1 3 msg %pickupadmin [ $+ %admin $+ %fuckass $+ ] Frags: [ $+ %admin $+ %frags $+ ] Time: [07 $+ %idle_time $+ m $+ ] SteamID: [ $+ %admin $+ %steamID $+ ] IP: [ $+ %admin $+ %ipenis $+ ] Real Nick: [ $+ %admin $+ %aliasfuck $+ ]
          }
        }
        else { goto SHiT | set %reunion 0 | sockclose work $+ %name | sockudp -k work_ $+ %name $rand(7000,8500) %serverip %serverport ÿÿÿÿrcon %challenge " $+ %rcon $+ " status }
      }
      if (%x = 7) {
        ;msg %pickupadmin Displaying server status
      }
      if (%x = $cb(0)) {
        timer 1 6 msg %pickupadmin Total Users: [ 07 $+ $replace($cb(%x),users,) $+ ]
      }

      inc %x
    }
    restoreclip
  }
  if ((*name userid uniqueid* iswm %log) && (%reunion = 1)) {
    saveclip
    clipboard %log
    set %len_host $numtok($cb(1),32)
    set %hostname $gettok($cb(1),2 - %len_host,32)
    set %curr_players $gettok($cb(5),3,32)
    set %stripped $replace($replace($cb(5),$chr(40),),$chr(41),)
    set %total_players $gettok(%stripped,5,32)
    set %curr_map $gettok($cb(4),3,32)
    set %totalz %curr_players $+ $chr(47) $+ %total_players
    if ((%hostname != $null) && (%serverip != $null) && (%serverport != $null) && (%totalz != $null) && (%curr_map != $null)) {
      msg %srvrchan 07¤10[07 $+ %hostname $+ 10] IP: [07 $+ %serverip $+ : $+ %serverport $+ 10] Current players: [07 $+ %totalz $+ 10] Map: [07 $+ %curr_map $+ 10] Alias: [07 $+ $upper(%name) $+ 10] Timeleft: [07 $+ %printtime $+ 10]07¤
      ;msg %pickupadmin [7 $+ %hostname $+ ] IP: [07 $+ %serverip $+ : $+ %serverport $+ ] Current players: [07 $+ %totalz $+ ] Map: [07 $+ %curr_map $+ ] Alias: [07 $+ $upper(%name) $+ ] Timeleft: [07 $+ %printtime $+ ]
    }
    else { server_info %name }
    ;msg %pickupadmin [7 $+ %hostname $+ ] IP: [07 $+ %serverip $+ : $+ %serverport $+ ] Current players: [07 $+ %totalz $+ ] Map: [07 $+ %curr_map $+ ] Alias: [07 $+ $upper(%name) $+ ]
    restoreclip
  }

  if (*current:* iswm %log) {
    saveclip
    //clipboard %log
    set %x $cb(0)
    while (%x > 0) {
      %address_del1 = $replace($cb(%x),current:,logaddress_del )
      %address_del = $replace(%address_del1,:,$chr(32))
      raw_skynet %name %address_del
      dec %x
    }
    raw_skynet %name logaddress_add $ip 27500
    raw_skynet %name logaddress_add $ip 27500
    log_skynet %name
    restoreclip
  }

  ; if (*mp_timeleft is* iswm %log) {
  ;   set %raw_time $+ %name $gettok(%log,3,32)
  ;   set %printtime $+ %name $duration($int(%raw_time1),1)
  ;   if (%time1pub = 1) { msg %pickupchan 14Time Left on %name 07 $+ $duration($int(%raw_time $+ %name),1) | %time1pub = 0 }
  ;   if ((%time1srv = 1) && (%infotime != 1)) { raw_skynet %name say Time Left $duration($int(%raw_time $+ %name),1) | %time1srv = 0 }
  ; }

  if (!teams isin %log) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    if ($hfind(axxs_list, %rcon.1).Data != $null) {
      raw_skynet %teamsrv say %team1
      raw_skynet %teamsrv say %team2

    }
  }

  if (@teams isin %log) {
  }

  if (*Kick:* iswm %log) {
    %kicked_left1 = $calc($int($findtok(%log,Kick:,1,32)) + 1)
    %kicked_right1 = $calc($numtok(%log,32) - 6)
    %kick_steam = $wildtok(%log,*steam*,1,32)
    ; Log: log L 10/24/2009 - 20:42:12: Kick: iMoney 1093 STEAM_0:0:1554021 was kicked by Console
    if ($hfind(pickup_usrs, %kick_steam).Data != $null) {
      %aliased_kick = $hfind(pickup_usrs, %kick_steam).Data
      %color_k = 07
    }
    if ($hfind(axxs_list, %kick_steam).Data != $null) {
      %aliased_kick = $hfind(axxs_list, %kick_steam).Data
      %color_k = 09
    }
    msg %pickupadmin [7KiCK:] User: [07 $+ $gettok(%log,%kicked_left1 - %kicked_right1,32) $+ ] Alias: [ $+ %color_k %aliased_kick $+ $chr(32) $+ ] was kicked by [07 $+ $chr(32) $+ %kickmaster $+ $chr(32) $+ ] successfully from 07 $+ %name

  }




  ;- Added finding log file 081812 -;
  ;Log: log L 08/18/2012 - 20:35:52: Log file started (file logs\L0818166.log) (game tfc) (version 48/1.1.2.2/5758)
  if (*Log file started * iswm %log) {
    set %logfull $replace($gettok(%log,10,32),$chr(40),,$chr(41),,logs\,

  }



  if (*Log file closed * iswm %log) {
    //run %pick_loc $+ logs\wget.exe ftp://adlpickupz:J5tCgnZQ6hgdDSyV7dUn@adlpickupz.game.nfoservers.com:21/tfc/logs/ $+ %logfull
    if ($file(%pick_loc $+ Logs\ $+ %logfull).size > 9000) {
      %logfuck = $replace(%logfull,.log,)

      /remove %pick_loc $+ logs\doshit.bat
      //write %pick_loc $+ logs\doshit.bat %pick_loc $+ Logs\logalyzer.exe -b -o  %pick_loc $+ logs\ $+ %logfuck %pick_loc $+ logs\ $+ %logfull
      //write %pick_loc $+ logs\doshit.bat ftp -s: $+ %pick_loc $+ logs\ftp.txt

      ; //run %pick_loc $+ Logs\logalyzer.exe -b -o  %pick_loc $+ logs\ $+ %logfuck %pick_loc $+ logs\ $+ %logfull

      ; -- write file then run FTP to talk to it etc ---;
      /remove %pick_loc $+ Logs\ftp.txt
      /write %pick_loc $+ Logs\ftp.txt o ftp.pickup.bugs3.com 21


      /write %pick_loc $+ Logs\ftp.txt u731460035
      /write %pick_loc $+ Logs\ftp.txt freeserver1
      /write %pick_loc $+ Logs\ftp.txt prompt
      /write %pick_loc $+ Logs\ftp.txt hash
      /write %pick_loc $+ Logs\ftp.txt cd /public_html/
      //write %pick_loc $+ Logs\ftp.txt mkdir $replace(%logfull,.log,)
      //write %pick_loc $+ Logs\ftp.txt cd /public_html/ $+ $replace(%logfull,.log,)
      //write %pick_loc $+ Logs\ftp.txt lcd %pick_loc $+ Logs
      /write %pick_loc $+ Logs\ftp.txt mput $replace(%logfull,.log,) $+ /*
      /write %pick_loc $+ Logs\ftp.txt bye

      //run %pick_loc $+ logs\doshit.bat
      msg %pickupchan Get your FUCKING LOGS at http://www.pickup.bugs3.com/ $+ %logfuck $+ /
    }
  }



  ;Log: log L 02/07/2010 - 20:35:53: DuM 663 STEAM_0:0:11334077 connected, address 75.61.116.127:27005
  if ((*connected, address* iswm %log) && (%searchanddestroy = 1)) {
    %bantrent = $gettok(%log,8,32)
    %trentip = $gettok($replace($gettok(%log,11,32),:,$chr(32)),1,32)
    saveclip
    //clipboard %bantrent
    %bantrent = $cb(1)
    restoreclip
    if ($hfind(pickup_usrs, %bantrent) = trentluv) {
      msg %pickupadmin %name [07Evasion Detected]: trentluv spotted with STEAMiD 07 $+ %bantrent $+  and IP 07 $+ %trentip $+ 
      banthatnigga %trentip
      %trentlen = $calc($hget(bantrent, 0).item + 1)
      hadd bantrent %trentlen %trentip
      hsave -os bantrent %skynetloc $+ bantrent.hsh
    }
  }

  ; --- ban trent alias --- ;

  if ((*connected, address* iswm %log) && (%searchanddestroy = 1)) {
    %bantrent = $gettok(%log,11,32)
    saveclip
    //clipboard %bantrent
    %bantrent = $gettok($replace($cb(1),:,$chr(32)),1,32)
    restoreclip
    if ($hfind(bantrent, %bantrent) != $null) {
      msg %pickupadmin %name [07Evasion Detected]: trentluv spotted with IP 07 $+ %bantrent $+ 
      %x = 1
      while (%x <= $hget(server_ip,0).Item) {
        raw_skynet $hget(server_ip, %x).Item addip 0 %bantrent
        raw_skynet $hget(server_ip, %x).Item writeip
        inc %x
      }
    }
  }

  ;--- ban trent ----;

  ;Log: log L 02/07/2010 - 20:35:53: DuM 663 STEAM_0:0:11334077 connected, address 75.61.116.127:27005

  if (*connected, address* iswm %log) {
    %endtrack = $numtok(%log,32)
    %endtrack = $gettok(%log,%endtrack,32)
    if (*:* iswm %endtrack) {
      %fucklen = $numtok(%log,32)
      %steamIP = $gettok(%log,%fucklen,32)
      %steamIP = $gettok($replace(%steamIP,:,$chr(32)),1,32)
      %steamID = $wildtok(%log,*steam*,1,32)
      ;    if ($hfind(bantrent, %steamIP) != $null) {
      ;     raw_skynet %name say Illegal user detected: [ trentluv ] Get fucked.
      ;    msg %pickupadmin %name [07Evasion Detected]: trentluv spotted with IP 07 $+ %steamIP $+ 
      ;   banthatnigga %steamIP
      ; }

      hadd iptracker %steamID %steamIP
    }
  }

  if (!k isin %log) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    if ($hfind(axxs_list, %rcon.1).Data != $null) {
      %kicked_left1 = $calc($int($findtok(%log,!k,1,32)) + 1)
      %kicked_right1 = $int($numtok(%log,32))
      saveclip
      //clipboard $gettok(%log,%kicked_left1 - %kicked_right1,32)
      %kicked_usr2 = " $+ $cb(1,u) $+ "
      %kickmaster = $hfind(axxs_list, %rcon.1).Data
      raw_skynet %name kick %kicked_usr2
      restoreclip
    }
  }
  ; ---- START iNFORMATiONAL SHiT --------------------------------------;

  if (!random isin %log) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    ;  raw_skynet %name say Randomizing Maps... if map doesn't change, do it again.
    if ($hfind(axxs_list, %rcon.1).Data != $null) {
      :STARTOVER
      set %randMAP.1 $replace($read(%map_list),.bsp,)
      if ($hget(top_maps,%randMAP.1) > 12) {
        ;  echo -a %randMAP.1
        raw_skynet %name say Please hold...
        goto startover
      }
      if ($hget(top_maps,%randMAP.1) <= 12) {
        %changingmap = %randMAP.1
        raw_skynet %name say Attempting to change to %randMAP.1
        timer 1 1 raw_skynet %name changelevel %randMAP.1
        hinc top_maps %randMAP.1
        timer 1 10 raw_skynet %name say Map %randMAP.1 has been played $hget(top_maps, %randMAP.1) times since 12/20/09
      }
    }
  }
  if (*changelevel* iswm %log) && (*Rcon: * iswm %log) {
    %ip_loc1 = $calc($int($wildtok(%log,*changelevel*,1,32)) + 3)
    %map_loc1 = $calc($int($wildtok(%log,*changelevel*,1,32)) + 1)
    %map_name1 = $gettok(%log,%map_loc1,32)
    %ip1 = $gettok(%log,%ip_loc1,32)
  }

  if (*Started map* iswm $gettok(%log,5-9,32)) {
    saveclip
    %map_start1 = $gettok(%log,6-8,32)
    %mapname1 = $gettok(%map_start1,3,32)
    if (%changingmap != $null) {
      clipboard %mapname1
    }
    if (%silence != 1) {
      msg %pickupadmin [7Map Change]: Started 7 $+ %mapname1 on 7 $+ %name Successfully.
      ; if (%name = AN) {
      ;raw_skynet AN log off
      ;  raw_skynet %name sv_minrate 19000
      ; raw_skynet %name sv_airaccelerate 30
      ; raw_skynet %name sv_maxspeed 450
      ; raw_skynet %name sv_gravity 750
      ;}
      ;  clipboard %mapname1

      ;//say $hget(map_score, IL2)
    }
    ; %changingmap = $cb(1)
    if (%changingmap != $null) {
      if (%changingmap = $cb(1)) {
        hinc top_maps $cb(1)

        ;  hinc top_maps  $hfind(%srvr $+ _vote, $max(%mapass)).Data
        ; timer 1 10 raw_skynet %srvr say Map $hfind(%srvr $+ _vote, $max(%mapass)).Data has been played $hget(top_maps, $hfind(%srvr $+ _vote, $max(%mapass)).Data) times since 12/20/09

        unset %changingmap
        hadd -m map_score %name %mapname1
        timer 1 10 raw_skynet %name say Map $cb(1) has been played $hget(top_maps, $cb(1)) times since 12/20/09
      }
    }
    restoreclip
  }



  if (*say * iswm %log) {
    if (* Rcon: rcon* iswm %log) || (*default server.cfg* iswm %log) || (*config will be active on restart!* iswm %log) { halt } else {
      if (%silence != 1) {
        if (%name = IL1) { %color = 10 }
        if (%name = IL2) { %color = 05 }
        if (%name = IL3) { %color = 12 }
        ; if (%name = FLX) { %color = 02 }
        if (%name = IL4) { %color = 03 }
        if (%name = STL) { %color = 07 }
        if (%name = PUB) { %color = 02 }

        ;if ((%name != IL1) && (%name != IL2) && (%name != IL3)) { unset %color }

        %steam_strip = $findtok(%log,$wildtok(%log,*Steam*,1,32),1,32)
        %id_strip = $calc($int(%steam_strip) - 1)

        if (*Server say* iswm $gettok(%log,6-7,32)) {
          %say_text = %log
          ;msg %pickupadmin  $+ %color $+ %name $+ : $+  $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($gettok(%log,6-90,32),Blue,12 $+ (BLUE): ),$chr(32) $+ Red ,4 $+ $chr(32) $+ (RED): ), spectator, 7(SPEC): ),Server say, 4ADMiN: ),say ,),#Dustbowl_team1, 12(BLUE):),#Dustbowl_team2, 4(RED):),Yellow,07(YELLOW):),Green,09(GREEN):),Escapers,12 $+ (ESCAPERS):)

        }
        if (*STEAM* iswm %log) {
          ;$hfind(axxs_list, %steamID).Data != $null
          %say_text = $deltok(%log,%id_strip - %steam_strip,32)
          %steam_stripped = $wildtok(%log,*STEAM*,1,32)
          if ($hfind(axxs_list, %steam_stripped).Data != $null) {
            %alias.steam = [09 $+ $hfind(axxs_list, %steam_stripped).Data $+ ]
          }
          if ($hfind(pickup_usrs, %steam_stripped).Data != $null) {
            %alias.steam = [07 $+ $hfind(pickup_usrs, %steam_stripped).Data $+ ]
          }
          if (($hfind(axxs_list, %steam_stripped).Data = $null) && ($hfind(pickup_usrs, %steam_stripped).Data = $null)) {
            %alias.steam = %steam_stripped

          }
          ; %say_text = $puttok
          ;%say_text = $reptok(%say_text,%steam_stripped,%alias.steam,32)
          %steamFUCK = $calc($int(%steam_strip) - 1)
          %say_text = $instok(%say_text,%alias.steam,%steamFUCK,32)


        }
        ; /colorful  $+ %color $+ %name $+ : $+  $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($gettok(%say_text,6-90,32),Blue,12 $+ (BLUE): ),$chr(32) $+ Red ,4 $+ $chr(32) $+ (RED): ), spectator, 7(SPEC): ),Server say, 4ADMiN: ),say ,),#Dustbowl_team1, 12(BLUE):),#Dustbowl_team2, 4(RED):),Yellow,07(YELLOW):),Green,09(GREEN):),Escapers,12 $+ (ESCAPERS):)
        msg %pickupadmin  $+ %color $+ $upper(%name) $+ : $+  $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($gettok(%say_text,6-90,32),Blue,12 $+ (BLUE): ),$chr(32) $+ Red ,4 $+ $chr(32) $+ (RED): ), spectator, 7(SPEC): ),Server say, 4ADMiN: ),say ,),#Dustbowl_team1, 12(BLUE):),#Dustbowl_team2, 4(RED):),Yellow,07(YELLOW):),Green,09(GREEN):),Escapers,12 $+ (ESCAPERS):),#Hunted_team2,08 $+ (Assassins):),#Hunted_team1,04 $+ (Bodyguards):),#Hunted_team3,12 $+ (Hunted):)

      }

      ;$remtok(%lawl,$wildtok(%lawl,*Steam*,1,32),1,32)
      %lentxt = $numtok(%say_text,32)
    }
    else { }
  }

  ; ---- END iNFORMATiONAL SHiT --------------------------------------;
  ;                                                                   ;
  ; ---- START iN-GAME CMDS ------------------------------------------;

  if (!pause isin %log) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    if ($hfind(axxs_list, %rcon.1).Data != $null) {
      raw_skynet %name pausable 1
      raw_skynet %name say Value for Pausable changed to 1 for 5 seconds
      timer 1 5 raw_skynet %name pausable 0
    }
  }

  if (!timeleft isin %log) {
    if (%skyneton = 1) {
      %time1srv = 1

      timer_mptime %name
      timer 1 1 unset %time1srv
    }
  }
  if (*!clvl* iswm %log) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    if ($hfind(axxs_list, %rcon.1).Data != $null) {
      %map_var1 = $calc($findtok(%log,!clvl,1,32) + 1)
      %map_name1 = $gettok(%log,%map_var1,32)
      saveclip
      clipboard %map_name1
      msg %pickupadmin [7Changelevel]: to map 07 $+ $cb(1) $+  on 07 $+ %name $+  by 07 $+ $hfind(axxs_list, %rcon.1).Data
      raw_skynet %name changelevel %map_name1
      %changingmap = $cb(1)
      ;hinc top_maps $cb(1)
      ;  timer 1 10 raw_skynet %name say Map $cb(1) has been played $hget(top_maps, $cb(1)) times since 12/20/09

    }
    restoreclip
  }

  if (!rs isin %log) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    if ($hfind(axxs_list, %rcon.1).Data != $null) {
      raw_skynet %name restart
    }
  }

  if (*Team Blue scored* iswm %log) {
    %playerz = $int($gettok(%log,11,32))
    if (($gettok(%log,9,32) != 0) && (%playerz > 1) && (%name != PUB)) {
      %log2 = $replace(%log,$chr(40),,$chr(41),)
      ;$gettok(%log,10,32) = Points $gettok(%log,15,32) = players $gettok(%log,18,32) = Kills
      ; msg %pickupchan $upper(%name) $+ : Final Score [12 $+ $gettok(%log2,9,32) $+ ]
      ;msg %pickupadmin $upper(%name) $+ : Final Score [12 $+ $gettok(%log2,9,32) $+ ]

      msg %pickupchan $upper(%name) $+ : Final Score [12 $+ $gettok(%log2,9,32) $+ ] Map: [12 $+ $hget(map_score,%name) $+ ]
      msg %pickupadmin $upper(%name) $+ : Final Score [12 $+ $gettok(%log2,9,32) $+ ] Map: [12 $+ $hget(map_score,%name) $+ ]

    }
  }
  if (*Team Red scored* iswm %log) {
    %playerz = $int($gettok(%log,11,32))
    if (($gettok(%log,9,32) != 0) && (%playerz > 1) && (%name != PUB)) {
      %log2 = $replace(%log,$chr(40),,$chr(41),)
      ;$gettok(%log,10,32) = Points $gettok(%log,15,32) = players $gettok(%log,18,32) = Kills
      ; msg %pickupchan $upper(%name) $+ : Final Score [12 $+ $gettok(%log2,9,32) $+ ]
      ;msg %pickupadmin $upper(%name) $+ : Final Score [12 $+ $gettok(%log2,9,32) $+ ]

      msg %pickupchan $upper(%name) $+ : Final Score [04 $+ $gettok(%log2,9,32) $+ ] Map: [04 $+ $hget(map_score,%name) $+ ]
      msg %pickupadmin $upper(%name) $+ : Final Score [04 $+ $gettok(%log2,9,32) $+ ] Map: [04 $+ $hget(map_score,%name) $+ ]

    }
  }

  if (!needsub isin %log) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    %amt_var3 =  $calc($int($findtok(%log,!needsub,1,32)) + 1)
    %snum = $int($gettok(%log,%amt_var3,32))
    if ($hfind(axxs_list, %rcon.1).Data != $null) {
      if (%son != 1) {
        %son = 1
        %ingame.sub = 1
        %sub.rcon1 = %rcon.1
        ;  raw_skynet %name say Searching for a sub...
        ; raw_skynet %name This command has been disabled because of unforeseen bitchassness
        msg %pickupchan 14 $+ Substitute player needed for 07 $upper(%name) 14 $+ To play type 07 $+ !sub $+ 07 $+ .
        notice %pickupchan 14 $+ Substitute player needed for 07 $upper(%name) 14 $+ To play type 07 $+ !sub $+ 07 $+ .
        timer1_3 3 30 msg %pickupchan 14 $+ Substitute player needed for 07 $upper(%name) 14 $+ To play type 07 $+ !sub $+ 07 $+ .
        timer2_3 1 120 msg %pickupchan 14 $+ Failed to find a sub for 07 $upper(%name) $+ 07 $+ .
        timer5_3 1 120 raw_skynet %name say Failed to find a sub.
        timer3_3 1 120 set %son 0
        timer4_3 1 120 set %sonnick 0
        %srvr_name = %name
      }
      else if (%son == 1 && %ingame.sub = 1) { raw_skynet %name say You are already looking for a sub. }
      else if (%son == 1 && %ingame.sub = 1) { raw_skynet %name say Another admin is currently looking for a sub, please wait. }
      else if (%son == 1 && %ingame.sub = 0) { raw_skynet %name say IRC sub search in progress. }
      ;else if (%son == 1 && $nick != %sonnick) { notice $nick Error: Another admin is currently looking for a sub, please wait. }
    }
  }

  if (!cancelsub isin %log) {
    %rcon.1 = $wildtok(%log,*steam*,1,32)
    if (%sub.rcon1 = %rcon.1) {
      if (%son = 1 && %ingame.sub = 1) {
        raw_skynet %name say Cancelled substitute player search.
        msg %pickupchan 07 $+ Substitute player search for 14  $+ %name 07 $+ cancelled.
        timer4_3 off
        timer1_3 off
        timer5_3 off
        timer2_3 off
        timer3_3 off
        unset %sub.rcon1
        set %son 0
        set %ingame.sub 0
      }
      else if (%son = 1 && %ingame.sub = 0) { halt }
    }
    else { raw_skynet %name say No Substitute player search in progress. }
  }

  ; if (*FATAL ERROR* iswm %log) { msg %pickupadmin %name $+ : [4FATAL ERROR:] %log | msg %Pickupadmin %name Automatic Restart in 30 seconds. | timer 1 30 log_skynet %name }

  ; --- START SECURiTY ----------------------------------------------;

  if (*Bad Rcon* iswm %log) {
    %loglen = $numtok(%log,32)
    msg %pickupadmin [04SECURiTY ViOLATiON]: 04 $+ %name $+  $gettok(%log,6 - %loglen,32)
  }
  %loglen = $int(%loglen)

  if (*removeid* iswm %log) {
    %remover1 = $calc($int($findtok(%log,$wildtok(%log,*from*,1,32),32)) + 1 )
    %strippedlog1 = $replace(%log,:,$chr(32))
    if ($ip isin %strippedlog1) { halt }
    else {
      if (%silence != 1) {

        msg %pickupadmin [07REMOVE iD $+  $+ ]: SteamID 7 $+ $wildtok(%log,*steam*,1,32) $+  has been unbanned by 07 $+  $gettok(%log,%remover1,32) $+ $chr(32) $+  $+ from $+ $chr(32) $+ %name
      }
    }
  }

  if (*removeip* iswm %log) {
    %remover1 = $calc($int($findtok(%log,$wildtok(%log,*removeip*,1,32),32)) + 1 )
    %strippedlog1 = $replace(%log,:,$chr(32))
    if ($ip isin %strippedlog1) { halt }
    else {
      if (%silence != 1) {

        msg %pickupadmin [07REMOVE iP $+  $+ ]: iP Address 07 $+ $gettok(%log,%remover1,32) $+  has been unbanned by 07 $+ $gettok(%log,$calc($int(%remover1) + 2),32) $+  $chr(32) $+ from $chr(32) $+ %name
      }
    }
  }
  ; ----  END SECURiTY  ---------------------------------------------;
  echo @ $+ %name $+ _LOG Log: %log
  ; echo @ $+ %name $+ _LOG Log: $replace($replace($replace($gettok(%log,1-2000,32),$chr(32) $+ Blue,12),$chr(32) $+ Red , 4 $chr(32)), SPECtator, 7)
}