;  LegHump Version 1.6 
;
;  #LegHump on irc.swiftirc.net
;  
;  This script is a collaboration of work by Muridae, SteelRain, and Meradin, And Updated by A_A.
;  Copyright 2003 - 2007 .:. Please don't alter this file.  If you are reading this file 
;
;                     to make new humps, PM A_A for information.
; If you have any ideas for updates PM A_A and i shall see what i can do 
; A big thanks to c0pyr1ght3d for hosting the files as i am too lazy
;
; Bad word list:
; fuck shit gay homo # ass http www 
;
on *:JOIN:#FoSho: {
  set %hump.version 1.5 Final
  if ( %hump.on != 1 ) {
    set %hump.on 1
    hadd -m leghump 1 humps !nick!'s leg.
    hload -n leghump leghump.dat
  }
  if ( %leghumpjoin. [ $+ [ $nick ] ] == $null && $nick != $me ) {
    if ( %hump.ivehumped == $null ) { set %hump.ivehumped 0 }
    .timerpleasehump $+ $nick 1 2 leghump $chan $nick
    if ( %humping == $null ) { set -u2 %humping 1 }
    else { inc %humping }
    if ( %humping > 5 ) { .timerpleasehump* off }
  }
}
CTCP *:HUMPVERSION:?: { ctcpreply $nick HUMPVERSION HumpScript Version: %hump.version ©2003 Meradin - Muridae - SteelRain }
alias leghump { set -u600 %leghumpjoin. $+ $2 1 | leghump2 $1 $2 | inc %hump.ivehumped 2 | .timerhumprank 1 5 checkrank }
alias leghump2 { describe $1 $replace( $hget(leghump,$rand(1,$hget(leghump,0).data)).data , !nick! , $2 ) | .timer 1 1 humpagain $1 $2 }
alias humpagain { describe $1 $replace( $hget(leghump,$rand(1,$hget(leghump,0).data)).data , !nick! , $2 ) }
alias humpversion { echo $active HumpScript Version: %hump.version ©2003 Meradin - Muridae - SteelRain }
alias rank { 
  if ( %hump.ivehumped == $null ) { set %hump.ivehumped 0 } 
  if ( %hump.beenhumped == $null ) { set %hump.beenhumped 0 } 
  set %hump.rank $decode($read(legranks.dat,n,$getrank))
  echo $active You are rank: %hump.rank .:. Humped: %hump.ivehumped BeenHumped: %hump.beenhumped
}

on *:TEXT:!rank *:#leghump: {
  if ($2 == $me) {
    set %rank $decode($read(legranks.dat,n,$getrank)))
    msg $chan my rank is %rank I've humped : %hump.ivehumped Been humped by : %hump.beenhumped
  }
}
alias -l getrank {
  set %hump.ranknum $calc( (%hump.ivehumped - %hump.beenhumped)/100 )
  var %i = 2
  if ( %hump.ranknum < 1 ) { return 1 }
  while ( %hump.ranknum >= 2 ) {
    set %hump.ranknum $calc(%hump.ranknum / 2)
    inc %i
  }
  set %hump.currank %i
  return %i
}
alias -l humprankprom {
  set %hump.rank $decode($read(legranks.dat,n,$getrank))
  .notice $me You have just been promoted to rank: %hump.rank .:. Humped: %hump.ivehumped BeenHumped: %hump.beenhumped
}
alias -l humprankdem {
  set %hump.rank $decode($read(legranks.dat,n,$getrank))
  .notice $me You have been demoted to rank: %hump.rank .:. Humped: %hump.ivehumped BeenHumped: %hump.beenhumped
}
alias -l checkrank {
  set %hump.chkrank %hump.currank
  if ( %hump.chkrank < $getrank ) { humprankprom }
  if ( %hump.chkrank > $getrank ) { humprankdem }
}
on *:TEXT:$(! $+ $me $+ hump):#: { 
  if ( %hump.ivehumped == $null ) { set %hump.ivehumped 0 } 
  if ( %hump.beenhumped == $null ) { set %hump.beenhumped 0 }
  set %hump.rank $decode($read(legranks.dat,n,$getrank))
  .notice $nick I am rank: %hump.rank .:. Humped: %hump.ivehumped BeenHumped: %hump.beenhumped
}
on *:text:@clear*:#leghump: {
  if ( $nick isop $chan && $me !isop $chan ) {
    hfree leghump
    hadd -m leghump 1 furiously humps !nick!'s leg
    hsave -no leghump leghump.dat
  }  
}
on *:disconnect: {
  set %hump.on 0
  hsave -no leghump leghump.dat
  hfree leghump
}
on *:unload: {
  set %hump.on 0
  hsave -no leghump leghump.dat
  hfree leghump
}
on *:connect: {
  set %hump.on 1
  hadd -m leghump 1 humps !nick!'s leg.
  hload -n leghump leghump.dat
}
#leghumpAI ON
on ^*:ACTION:*hump*:#leghump: {
  if ( * $+ $me $+ 's* iswm $1- ) { inc %hump.beenhumped }
  if ( *humps*'s*leg* iswm $1- ) {
    set %hump.user $remove($wildtok($1-,*'s*,1,32),'s)
    if ( $nick($chan, %hump.user ) > 0 && $nick != %hump.user ) {
      set %hump.new $replace($1-, %hump.user,!nick!)
      if ( !$hfind(leghump,%hump.new,1,n).data && $wildtok( %hump.new,*!nick!*,0,32) == 1 && !badword && $nick isop $chan ) {
        hadd leghump $calc($hget(leghump,0).data + 1) %hump.new
      }
      elseif ( $me isop $chan && $hfind(leghump,%hump.new,1,n).data > 0 ) {
        ;Admin Section for auto-Voiceing greatness
        if ( $nick($chan, $nick ,a,vo) != $null && $nick !isin % [ $+ [ $chan $+ .voice ] ] ) {
          addvoicequeue $chan $nick
        }
      }
    }
  }
}
on *:text:@addbad*:#leghump: {
  if ( $nick isop $chan ) {
    write -l10 leghump.mrc $read(leghump.mrc,n,10) $2
    hdel leghump $hfind(leghump,%hump.new,1,n).data
  }  
}
; addvoicequeue <channel> <nick>
alias addvoicequeue {
  set % [ $+ [ $1.voice ] ] % [ $+ [ $1.voice ] ] $2
  .timeraddvoice 1 3 addvoice $1
}
; addvoice #channel
alias -l addvoice {
  var %i = 1
  while ( %i <= $numtok( % [ $+ [ $1.voice ] ] , 32) ) {
    set %voicenow %voicenow $gettok( % [ $+ [ $1.voice ] ] , %i,32)
    if ( $numtok( %voicenow , 32) >= 6 ) {
      mode $1 +vvvvvv %voicenow
      unset %voicenow
    }
    inc %i
  }
  if ( %voicenow ) {
    mode $1 + $+ $left(vvvvvv,$numtok( %voicenow, 32)) %voicenow
    unset %voicenow
  }
  unset % [ $+ [ $1.voice ] ]
}
;Bad words..
alias -l badword {
  var %i = 1
  set %badwords $read(leghump.mrc,n,10)
  set %badwords $mid(%badwords,3,$len(%badwords))
  while ( %i <= $numtok(%badwords,32) ) {
    if ( $gettok(%badwords,%i,32) isin %hump.new ) {
      return $true
    }
    inc %i
  }
  return
}
#leghumpAI End