Statistics: Posted by Guest — Wed Jul 31, 2002 6:26 am

Statistics: Posted by ppslim — Wed Jul 31, 2002 6:16 am

set lwname(cmdchar) "!"
set lwtrig "lw"

bind pub - [string trim $lwname(cmdchar)]$lwtrig stat:nam

proc stat:nam {nick uhost hand chan text} {
set lwnick [split $text]
if {$lwnick == ""} {
putserv "NOTICE $nick :Incorrext Syantax you JACKASS."
putserv "NOTICE $nick :Correct Syantax would be - !lw <lwname> - ie. !lw Turd91"
} else {
lw_socket $nick $chan $text $lwnick
}
}


proc lw_socket {nick chan text lwnick} {
set sock [socket www.l33t-wars.com 80]
puts $sock "GET /find.php?find=$lwnick"
flush $sock
set i 0
set ln 0
while {![eof $sock]} {
set line [gets $sock]
lappend buffer $line
incr ln
set attout "Attack $lwnick"
regsub -all -- {(<.+?>)} $buffer "" buffer
regsub -all -- {\}|\{} $buffer "" buffer
regsub -all -- {| | | } $buffer "" buffer
regsub -all -- { } $buffer "" buffer
regsub -all -- {<!--BODYfont-family: verdana;} $buffer "" buffer
regsub -all -- {A:link text-decoration: none} $buffer "" buffer
regsub -all -- {A:visited text-decoration: none font-familt} $buffer "" buffer
regsub -all -- {A:active text-decoration: none} $buffer "" buffer
regsub -all -- {A:hover color:white-->} $buffer "" buffer
regsub -all -- {Cash:} $buffer " Cash:" buffer
regsub -all -- $attout $buffer "" buffer
regsub -all -- {!} $buffer "" buffer
regsub -all -- {Go Back} $buffer "" buffer
regsub -all -- {Back} $buffer "" buffer
regsub -all -- {Home -} $buffer "" buffer
regsub -all -- {Sign Up -} $buffer "" buffer
regsub -all -- {Terms of Service -} $buffer "" buffer
regsub -all -- {Links -} $buffer "" buffer
regsub -all -- {Back-} $buffer "" buffer
regsub -all -- {Contact Us} $buffer "" buffer
regsub -all -- {Copyright © 2002 Net-Warz. All rights reserved.} $buffer "" buffer
regsub -all -- {Gangster} $buffer "Gangster " buffer
regsub -all -- {Punk} $buffer "Punk " buffer
regsub -all -- {Mercenaries} $buffer "Mercenaries " buffer
regsub -all -- {Street Ho} $buffer "Street Ho " buffer
regsub -all -- {Girl} $buffer "Girl " buffer
regsub -all -- {Escort} $buffer "Escort " buffer
regsub -all -- {Highschool Pusher} $buffer "Highschool Pusher " buffer
regsub -all -- {College Dealer} $buffer "College Dealer " buffer
regsub -all -- {Drug Lord} $buffer "Drug Lord " buffer
regsub -all -- {:} $buffer ": " buffer
putquick "privmsg $chan :$buffer"
set ln 0
set buffer ""
}
}

Statistics: Posted by Guest — Tue Jul 30, 2002 12:19 am