Tools/irc-prolet.bx

   1 /*
   2  * IrcProlet - A proletarian script for BitchX 1.0
   3  * (c) Copyright 2001 by Plasmoid <plasmoid@thc.org>
   4  * The Hacker's Choice - http://www.thc.org
   5  */
   6
   7 ^assign ipII.ver 0.1
   8 ^assign ipII.name \1fIrcProlet\1f
   9
  10 @ version[0] = [mIRC32 v5.82 K.Mardam-Bey]
  11 @ version[1] = [mIRC16 v5.3 K.Mardam-Bey]
  12 @ version[2] = [ShadowIRC 1.1b2 PPC © John Bafford 1996-2000 (Nov 25 2000 21:03:31)]
  13 @ version[3] = [ircII EPIC4-2000 Linux 2.2.19 - LiCe v4.1.9]
  14 @ version[4] = [·TRiGGER· v5.3 by Lery & SkyHorse · Get iT @ http://triggerv5.cjb.net]
  15 @ version[5] = [P&P 4.00 BETA 13 Build 900 (in development) + X / W, Sound, Extras]
  16 @ version[6] = [VaporIRC 0.1beta on SUX 3.0]
  17 @ version[7] = [ircN 7.25 + 7.0 - p|-|34r |\/|y p4<|<37z]
  18 @ version[8] = [eggdrop v1.6.1]
  19 @ version[9] = [mIRC32 v5.7 K.Mardam-Bey]
  20
  21 @ version_num = 10
  22
  23 alias info {
  24   echo
  25   echo $ipII.name $ipII.ver - A proletarian script for BitchX 1.0
  26   echo | (c) Copyright 2001 by Plasmoid <plasmoid@thc.org>
  27   echo | The Hacker's Choice - http://www.thc.org
  28   echo | Run /iphelp for more information...
  29   echo
  30 }
  31
  32 alias iphelp {
  33   echo
  34   echo $ipII.name $ipII.ver - Help
  35   echo | /fakeinv <nick> <channel>  - invites <nick> to fake <channel>
  36   echo | /fakelm <nick> <msg>       - pastes fake <msg> of <nick> to channel
  37   echo | /fakedcc <nick> <file>     - fakes a dcc get of <file> to <nick>
  38   echo | /fakechat <nick>           - fakes a dcc chat to <nick>
  39   echo | ---
  40   echo | $ipII.name selects a random version on each ctcp version request
  41   echo
  42 }
  43
  44 alias ip.error {
  45   echo $ipII.name, ip.error: $0-
  46 }
  47
  48 alias ip.msg {
  49   echo $ipII.name, $0-
  50 }
  51
  52 alias fakedcc {
  53    if ([$1]) {
  54       quote PRIVMSG $0 :\ 1DCC SEND $1 ${rand(999999999)+999999999} ${rand(30000)+30000}\ 1
  55       ip.msg fake dcc get of $1 has been sent to $0.
  56    } else {
  57       ip.error usage: /fakedcc <nick> <filename>
  58    }
  59 }
  60
  61 alias fakechat {
  62    if ([$0]) {
  63       quote PRIVMSG $0 :\ 1DCC CHAT chat ${rand(999999999)+999999999} ${rand(30000)+30000}\ 1
  64       ip.msg fake dcc chat has been sent to $0.
  65    } else {
  66       ip.error usage: /fakechat <nick>
  67    }
  68 }
  69
  70
  71 alias fakelm {
  72    ^assign what $1-
  73
  74    if (![$1]) {
  75       ip.error usage: /fakelm <nick> <msg>
  76    } else {
  77       Userhost $0 -CMD if ([$3]) {
  78          if ([$4]!=[<UNKNOWN>]) {
  79             /say [$0/$3@$4] $what
  80          } else {
  81             ip.error usage: <nick> doesn't exist
  82          }
  83       }
  84    }
  85 }
  86
  87 alias fakeinv {
  88    if ([$1]) {
  89       ^assign INVITESTR $strip(# $1)
  90       ^assign INVITESTR \#\ 2\ 2${INVITESTR}
  91       quote INVITE $0 $INVITESTR
  92       ^assign -INVITESTR
  93
  94       ip.msg fake invited $0 to $1
  95    } else {
  96       ip.error usage: /fakeinv <nick> <chan>
  97    }
  98 }
  99
 100
 101 ^on -ctcp "% % VERSION *" {
 102    quote NOTICE $0 :\ 1VERSION $version[$rand($version_num)]\ 1
 103 }
 104
 105 if(![$BitchX()]) {
 106   ip.error No support for this irc client
 107   quit
 108 }
 109
 110 info
 111 fset format_version $version[$rand($version_num)]