rendered paste body; 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