;Pug bot by wonder
on *:START:{
  hmake dodpuggers {
  }
  if (!%pugs) {
    set %pugs 1
  }
  if (!%pugslots) {
    set %pugslots 12
  }
  if (!%pugcolor) {
    set %pugcolor 4
    set %bgpugcolor
  }
  if (!%bgpugcolor) {
    set %bgpugcolor 3
  }
  if (!%midpugcolor) {
    set %midpugcolor 0
  }
}
on *:TEXT:.rules*:#:{
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor Rules $+  $+ %pugcolor $+ :  $+ %midpugcolor $+ http://seanalger.com/cod2pug/Rules.html  $+ %pugcolor $+ %pugprefix2
}
;List commands
on *:TEXT:.join*:#pugdods: {
  if ($hfind(dodpuggers,$nick).data) { msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor You are already on the list. $+ %pugcolor %pugprefix2 | halt }
  if ($hfind(dodpuggers,*,0,w) <= %pugslots) {
    hadd dodpuggers $address($nick,2) $nick
    msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %pugcolor $nick  $+ %midpugcolor $+ added. $+ %pugcolor $calc(%pugslots - $hget(dodpuggers,0).item) $+  $+ %midpugcolor slots remaining.  $+ %pugcolor $+ %pugprefix2
    unset %resetpug
    .timerreset1 off
    set -z %resetpug1 900 | .timerreset 0 900 $iif(%pugreset == $null,rp,halt)
  }
  if ($hfind(dodpuggers,*,0,w) == %pugslots) {
    teams
  }
}  
ON *:TEXT:.quit*:#pugdods: {
  if ($hfind(dodpuggers,$nick,1).data) {
    hdel dodpuggers $address($nick,2)
    msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $nick $+  $+ %midpugcolor has left the list. $+ %pugcolor $calc(%pugslots - $hget(dodpuggers,0).item) $+  $+ %midpugcolor slots remaining. $+ %pugcolor %pugprefix2
    unset %resetpug
    .timerreset off
    set -z %resetpug 900 | .timerreset 0 900 $iif(%pugreset == $null,rp,halt)
  }
  else {
    msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor You are not on the list $+ %pugcolor %pugprefix2
  }
}
on *:text:.view*:#pugdods: {
  var %done 1
  var %need %slots
  var %dodpuggers  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor Pug list $+ %pugcolor $+ : $+ %midpugcolor 
  var %x 1
  while (%x <= $hget(dodpuggers,0).item) {
    var %dodpuggers %dodpuggers $hget(dodpuggers, $+ %x $+ ).data
    inc %done
    inc %x
  }
  while (%done <= %need) {
    var %dodpuggers %dodpuggers
    inc %done
  }
  msg $chan %dodpuggers  $+ %pugcolor $+ · $calc(%pugslots - $hget(dodpuggers,0).item) $+  $+ %midpugcolor Slots remaining.  $+ %pugcolor $+ %pugprefix2
}
on *:TEXT:-topic*:#pugdods: {
  if ($nick isop $chan) { 
    /topic #pugdods  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1  $+ %midpugcolor Welcome to Call of Duty 2 Pug  $+ %pugcolor $+ %pugprefix2 %pugprefix1  $+ %midpugcolor .help For Commands  $+ %pugcolor $+ %pugprefix2 %pugprefix1  $+ %midpugcolor News $+  $+ %pugcolor $+ : $+ %midpugcolor $2-  $+ %pugcolor $+ %pugprefix2
  }
}
ON *:NICK:{
  if ($hget(dodpuggers,$address($newnick,2))) {
    hadd dodpuggers $address($newnick,2) $newnick
  }
}
on *:PART:#pugdods: {
  if ($hfind(dodpuggers,$nick,1).data) {
    hdel dodpuggers $hfind(dodpuggers,$nick,1,w).data
    msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $nick  $+ %midpugcolor removed (Part). $+ %pugcolor $calc(%pugslots - $hget(dodpuggers,0).item) $+  $+ %midpugcolor slots remaining. $+ %pugcolor %pugprefix2
  }
}
ON *:QUIT:{
  if ($hfind(dodpuggers,$nick,1).data) && ($nick ison #pugdods) {
    hdel dodpuggers $hfind(dodpuggers,$nick,1,w).data
    msg #pugdods  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor Player $+ %pugcolor $nick $+  $+ %midpugcolor removed (Quit). $+ %pugcolor $calc(%pugslots - $hget(dodpuggers,0).item) $+  $+ %midpugcolor slots remaining.  $+ %pugcolor $+ %pugprefix2
  }
}
on *:KICK:#pugdods: {
  if ($hfind(dodpuggers,$knick,1).data) {
    hdel dodpuggers $address($knick,2)
    msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor Player $+ %pugcolor $knick $+  $+ %midpugcolor has been removed. (KICK) $+ %pugcolor $calc(%pugslots - $hget(dodpuggers,0).item)$+  $+ %midpugcolor slots remaining.  $+ %pugcolor $+ %pugprefix2
  }
}
;Information Commands
on *:TEXT:.help*:#pugdods: {
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1  $+ %pugcolor $+ . $+  $+ %midpugcolor $+ join use to join the pug list.  $+ %pugcolor $+ %pugprefix2
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1  $+ %pugcolor $+ . $+  $+ %midpugcolor $+ quit use to quit the pug list.  $+ %pugcolor $+ %pugprefix2
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1  $+ %pugcolor $+ . $+  $+ %midpugcolor $+ view use to view the pug list.  $+ %pugcolor $+ %pugprefix2
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1  $+ %pugcolor $+ . $+  $+ %midpugcolor $+ comm use to view the ventrilo ip.  $+ %pugcolor $+ %pugprefix2
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1  $+ %pugcolor $+ . $+  $+ %midpugcolor $+ rules Displays the URL to the rules.  $+ %pugcolor $+ %pugprefix2
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1  $+ %pugcolor $+ . $+  $+ %midpugcolor $+ server use to view the server list.  $+ %pugcolor $+ %pugprefix2
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1  $+ %pugcolor $+ . $+  $+ %midpugcolor $+ pugs use to show how many pugs have been made.  $+ %pugcolor $+ %pugprefix2
}  
on *:TEXT:.pugs*:#pugdods: {
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor %pugprefix1 $+  $+ %midpugcolor I have served $+ %pugcolor %pugs  $+ %midpugcolor $+ Pugs Since October 27th, 2005.  $+ %pugcolor $+ %pugprefix2
}
on *:TEXT:.serv*:#pugdods: {
  msg $chan being set-up at the moment
}

;Aliases
alias teams2 {
  var %x 1
  while (%x <= $calc($hget(dodpuggers,0).item )) {
    set %pugran $rand(1,10)
    :ran
    if (%pugran !isin %pugused) {
      set %pugused %pugused %pugran
      set %dodplayerz $hget(dodpuggers,$+ %pugran $+ ).data
      inc %x
    }
    else { inc %pugran | GOTO ran }
  }
  msg $chan 0,2Allies: $gettok(%dodplayerz,1,32) $gettok(%dodplayerz,3,32) $gettok(%dodplayerz,5,32) $gettok(%dodplayerz,7,32) $gettok(%dodplayerz,9,32) $gettok(%dodplayerz,11,32)
  msg $chan 0,4Axis: $gettok(%dodplayerz,2,32) $gettok(%dodplayerz,4,32) $gettok(%dodplayerz,6,32) $gettok(%dodplayerz,8,32) $gettok(%dodplayerz,10,32) $gettok(%dodplayerz,12,32)
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor pug number $+ %pugcolor %pugs $+  $+ %midpugcolor brought to you by $me  $+ %pugcolor $+ %pugprefix2
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor messaging dodpuggers, pug commands being halted for a few seconds.  $+ %pugcolor $+ %pugprefix2
  hfree dodpuggers
  hmake dodpuggers
  set %pugran 0
}
alias pmpug {
  var %x 1
  while (%x <= 10) {
    if ($gettok(%dodplayerz,%x,32) isin %odds) {
      msg $gettok(%dodplayerz,%x)  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor Pug %pugs has started. Your team - $gettok(%dodplayerz,1,32) $gettok(%dodplayerz,3,32) $gettok(%dodplayerz,5,32) $gettok(%dodplayerz,7,32) $gettok(%dodplayerz,9,32)  $+ %pugcolor $+ %pugprefix2
      inc %x
    }
    elseif ($gettok(%dodplayerz,%x,32) isin %evens) {
      msg $gettok(%dodplayerz,%x)  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor Pug %pugs has started. Your team - $gettok(%dodplayerz,2,32) $gettok(%dodplayerz,4,32) $gettok(%dodplayerz,6,32) $gettok(%dodplayerz,8,32) $gettok(%dodplayerz,10,32)  $+ %pugcolor $+ %pugprefix2
      inc %x
    }
    inc %pugs
    unset %dodplayerz
  }
}
alias teams {
  var %x 1
  while (%x <= $calc($hget(dodpuggers,0).item )) {
    set %dodplayerz %dodplayerz $hget(dodpuggers, $+ %x $+ ).data
    inc %x
  }
  inc %pugs
  msg $chan 0,2Allies: $gettok(%dodplayerz,1,32) $gettok(%dodplayerz,3,32) $gettok(%dodplayerz,5,32) $gettok(%dodplayerz,7,32) $gettok(%dodplayerz,9,32)
  msg $chan 0,4Axis: $gettok(%dodplayerz,2,32) $gettok(%dodplayerz,4,32) $gettok(%dodplayerz,6,32) $gettok(%dodplayerz,8,32) $gettok(%dodplayerz,10,32)
  msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor pug number $+ %pugcolor %pugs $+  $+ %midpugcolor brought to you by #pugdods  $+ %pugcolor $+ %pugprefix2
  ;msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor messaging dodpuggers, pug commands being halted for a few seconds.  $+ %pugcolor $+ %pugprefix2
  hfree dodpuggers
  hmake dodpuggers
  unset %dodplayerz
  set %dodlastpug $ctime

}
alias rpdod {
  hfree dodpuggers
  hmake dodpuggers
  msg #pugdods  $+ %pugcolor $+ , $+ %bgpugcolor %pugprefix1 $+  $+ %midpugcolor Pug Information Reset after 15 Minutes inactivity.  $+ %pugcolor $+ %pugprefix2
}
on *:TEXT:*:#pugdods:{
 if (.vent == $1) || (.comm == $1) || (.ts == $1) || (.talk == $1) || (.communication == $1) || (.ventrilo == $1) {
 msg $chan  $+ %pugcolor $+ , $+ %bgpugcolor $+ %pugprefix1 $+  $+ %midpugcolor Ventrilo: Dallas7.NationVoice.com:3881  $+ %pugcolor $+ %pugprefix2
}