home *** CD-ROM | disk | FTP | other *** search
/ Hacks & Cracks / Hacks_and_Cracks.iso / cracks / cracks2.zip / LINKBOT.ZIP / remote.ini < prev    next >
INI File  |  1997-04-12  |  20KB  |  556 lines
  1. [script]
  2. n0=#normal on
  3. n1=on 1:CHAT:PING *:/msg =$nick PONG $parm2 | if ($me != %botnick) nick %botnick | .rlevel 10
  4. n2=on 1:INPUT: {
  5. n3=  if ($active == %mychan) {
  6. n4=    if (/me isin $1) {
  7. n5=      set %broadstring 6**  $+ $me $+  $2-
  8. n6=      describe %mychan $2-
  9. n7=    }
  10. n8=    else {
  11. n9=      if (/ isin $1) { $1- | halt }
  12. n10=      set %broadstring < $+ $me $+ > $1-
  13. n11=      say $1-
  14. n12=    }
  15. n13=    set %echotext %broadstring     
  16. n14=    send2all
  17. n15=    halt     
  18. n16=  }
  19. n17=  if ($gettok($active,2,126) != $null) {
  20. n18=    set %tmpline $read -s $+ $gettok($active,2,126) info.txt
  21. n19=    if (/me isin $1) {
  22. n20=      msg = $+ $gettok($active,2,126) PRIVMSG $gettok(%tmpline,2,126) : $+ $chr(1) $+ ACTION $2-
  23. n21=      set %broadstring 6**  $+ $gettok($active,2,126) $+  $2-
  24. n22=    }
  25. n23=    else {
  26. n24=      if (/ isin $1) { $1- | halt }
  27. n25=      set %string $1-
  28. n26=      set %broadstring < $+ $gettok($active,2,126) $+ > %string
  29. n27=      msg = $+ $gettok($active,2,126) PRIVMSG $gettok(%tmpline,2,126) : $+ %string
  30. n28=    }
  31. n29=    unset %tmpline
  32. n30=    if ($me ison %mychan) msg %mychan %broadstring
  33. n31=    set %dontsend $gettok($active,2,126)
  34. n32=    set %echotext %broadstring
  35. n33=    send2all
  36. n34=    halt
  37. n35=  }
  38. n36=}
  39. n37=on 1:CHAT:*: {
  40. n38=  if ((%error1 isin $parms) || (%error2 isin $parms)) {
  41. n39=    if (%counter > 3) {
  42. n40=      secho Sorry, the server seems to be unavailable. You may hit F2 to try this server again, or hit F1 to spawn a clone to a different server.
  43. n41=      close -c %rnick
  44. n42=      nick %botnick
  45. n43=      .rlevel 10
  46. n44=      halt
  47. n45=    }
  48. n46=    secho Error in connecting for attempt # $+ %counter -- retrying in 10 seconds
  49. n47=    .timer 1 10 respawn
  50. n48=    inc %counter
  51. n49=    close -c %rnick
  52. n50=  }
  53. n51=  if ($parm1 == WHOIS) {
  54. n52=    msg = $+ $nick :Remote_Link 319 $nick $nick :RLINK
  55. n53=  }
  56. n54=  if ($parm2 == PRIVMSG) {
  57. n55=    if ($parm3 == $nick) {
  58. n56=      if (DCC isin $parm4) {
  59. n57=        set %theip $parm7
  60. n58=        set %theport $parm8
  61. n59=        chatlink
  62. n60=        halt
  63. n61=      }
  64. n62=      if ($parm4 == :chatlink) {
  65. n63=        if (%linkchat == true) {
  66. n64=          if (%chflood > 4) halt
  67. n65=          inc %chflood
  68. n66=          .timer 1 5 unset %chflood      
  69. n67=          msg = $+ $nick PRIVMSG $astrip($gettok($parm1,1,33)) :Other connection pending -- please try in a minute.
  70. n68=          halt
  71. n69=        }
  72. n70=        set %whochat $remove($gettok($parm1,1,33),:)
  73. n71=        set %whowant $parm5
  74. n72=        set %fromnick $nick
  75. n73=        set %linkchat true
  76. n74=        msg = $+ $nick PRIVMSG $astrip($gettok($parm1,1,33)) :Information accepted -- Plese type 4/dcc chat $nick to initiate DCC connection.
  77. n75=        .timer 1 20 reschat
  78. n76=        halt
  79. n77=      }
  80. n78=      halt
  81. n79=    }
  82. n80=    if (sound isin $parm4) {
  83. n81=      set %dontsend $nick
  84. n82=      set %broadstring SOUND $parm5 < $+ $parm5 via $remove($gettok($parm1,1,33),:) $+ >
  85. n83=      if ($me ison %mychan) raw -q PRIVMSG %mychan : $+ SOUND $parm5 < $+ $parm5 via $remove($gettok($parm1,1,33),:) >
  86. n84=      send2all
  87. n85=      halt
  88. n86=    }
  89. n87=    if (action isin $parm4) {
  90. n88=      set %dontsend $nick
  91. n89=      set %broadstring 6**  $+ $remove($gettok($parm1,1,33),:) $+  $parm5*
  92. n90=      if ($me ison %mychan) msg %mychan %broadstring
  93. n91=      send2all
  94. n92=      halt
  95. n93=    }
  96. n94=    if ($parm4 == :!update) {
  97. n95=      if (%upflood > 5) halt
  98. n96=      inc %upflood
  99. n97=      .timer 1 5 unset %upflood      
  100. n98=      set %intnick $remove($gettok($parm1,1,33),:)
  101. n99=      set %intchat $nick
  102. n100=      update
  103. n101=      halt
  104. n102=    }
  105. n103=    set %dontsend $nick
  106. n104=    set %nick $remove($gettok($parm1,1,33),:)
  107. n105=    set %tmp $len($parm4*) | dec %tmp
  108. n106=    set %message $right(%tmp,$4-)
  109. n107=    set %broadstring < $+ %nick $+ > %message
  110. n108=    if ($me ison %mychan) msg %mychan %broadstring
  111. n109=    SEND2ALL
  112. n110=    halt
  113. n111=  }
  114. n112=  if ($parm2 == 001) {
  115. n113=    .timer666 off
  116. n114=    secho Connection accepted, joining channel.
  117. n115=    set %nickchan %nickchan $+ ~ $+ %rnick $+ ~ $+ %rchannel
  118. n116=    set %mejoin true
  119. n117=    msg = $+ $nick JOIN %rchannel
  120. n118=    nick %botnick
  121. n119=  }
  122. n120=  if ($parm2 == 319) {
  123. n121=    if ($remove($parm5,@) != $null) write info.txt $nick ~ $+ $astrip($parm1) $+ ~ $astrip($remove($parm5,@)) ~
  124. n122=  }
  125. n123=  if ($parm2 == 433) {
  126. n124=    if (%counter3 == $null) {
  127. n125=      secho Nickname is use, accounting for lag --
  128. n126=      set %counter3 1
  129. n127=      .timer 1 5 NICK %rnick
  130. n128=      halt
  131. n129=    }
  132. n130=    if (%counter3 < 3) {
  133. n131=      .timer 1 5 NICK %rnick
  134. n132=      inc %counter3
  135. n133=      halt
  136. n134=    }
  137. n135=    if (%counter >= 3) {
  138. n136=      secho Sorry, the nickname you chose is in use by someone else. Please select another.
  139. n137=      unset %counter3
  140. n138=      msg = $+ $nick QUIT
  141. n139=      .rlevel 10
  142. n140=    }
  143. n141=  }
  144. n142=  if (353 isin $parm2) {
  145. n143=    unset %counter
  146. n144=    set %server $astrip($parm1)
  147. n145=    set %rnames $astrip($parm6) $parm7*
  148. n146=    set %tmpline $read -s $+ $nick info.txt
  149. n147=    write -s $+ $nick info.txt $nick ~ $astrip($parm1) ~ $parm5 ~ $astrip($parm6) $parm7*
  150. n148=    reflist
  151. n149=    if (%mejoin == true) {
  152. n150=      secho Opening link to $parm5 $+ .
  153. n151=      secho $greenbold(==================================================)
  154. n152=      set %dontsend $nick
  155. n153=      set %broadstring <Channel Hub> link to $blue($parm5) on $grey(%server) now open, with %rnames present.
  156. n154=      if ($me ison %mychan) msg %mychan %broadstring
  157. n155=      send2all
  158. n156=      set %tmp $nick
  159. n157=      if ($nick !isin %seclist) msg = $+ $nick PRIVMSG $parm5 : $+ 10 $+ Welcome to TikiNet. There are $lines(info.txt) channels linked. Type $red(!update) $+ to get stats. Type 4/msg $nick chatlink nickname to request a DCC chat with someone on a linked channel.
  160. n158=      if ($parm7 == $null) {
  161. n159=        set %cnick $nick | set %cchan $parm5
  162. n160=        .timer 1 1 mchange
  163. n161=      }
  164. n162=      unset %mejoin
  165. n163=      halt
  166. n164=    }
  167. n165=  }
  168. n166=  if ($parm2 == MODE) {
  169. n167=    set %nick $astrip($gettok($parm1,1,33))
  170. n168=    if ($parm3 == $nick) halt
  171. n169=    set %dontsend $nick
  172. n170=    set %broadstring <Channel Hub> 3*** %nick $+  sets mode: $parm4 $parm5
  173. n171=    if ($me ison %mychan) msg %mychan %broadstring
  174. n172=    send2all
  175. n173=    halt
  176. n174=  }
  177. n175=  if ($parm2 == NICK) {
  178. n176=    set %nick $astrip($gettok($parm1,1,33))
  179. n177=    set %dontsend $nick
  180. n178=    set %broadstring <Channel Hub> 3*** %nick $+  is now known as $astrip($parm3)
  181. n179=    if ($me ison %mychan) msg %mychan %broadstring
  182. n180=    send2all
  183. n181=    halt
  184. n182=  }
  185. n183=  if ($parm2 == TOPIC) {
  186. n184=    set %nick $astrip($gettok($parm1,1,33))
  187. n185=    set %dontsend $nick
  188. n186=    set %broadstring <Channel Hub> 2*** %nick $+  changes topic to " $+ $astrip($parm4) $parm5* $+ "
  189. n187=    if ($me ison %mychan) msg %mychan %broadstring
  190. n188=    send2all
  191. n189=    halt
  192. n190=  }
  193. n191=  if ($parm2 == JOIN) {
  194. n192=    set %nick $astrip($gettok($parm1,1,33))
  195. n193=    if (%nick == $nick) {
  196. n194=      set %mejoin true
  197. n195=      unset %sec
  198. n196=      tut
  199. n197=      halt
  200. n198=    }
  201. n199=    set %tmpline $read -s $+ $nick info.txt
  202. n200=    set %dontsend $nick
  203. n201=    set %broadstring <Channel Hub>  $+ %nick $+  has joined $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) $+ .
  204. n202=    if ($me ison %mychan) msg %mychan %broadstring
  205. n203=    send2all
  206. n204=    halt
  207. n205=  }
  208. n206=  if ($parm2 == KICK) {
  209. n207=    set %nick $remove($gettok($parm1,1,33),:)
  210. n208=    set %tmpline $read -s $+ $nick info.txt
  211. n209=    set %dontsend $nick
  212. n210=    if ($parm4 == $nick) {
  213. n211=      set %broadstring <Channel Hub> *** Link to $blue($gettok(%tmpline,2,126)) on server $grey($gettok(%tmpline,1,126)) forcibly terminated on remote end by %nick $+ .
  214. n212=      if ($me ison %mychan) msg %mychan %broadstring
  215. n213=      send2all
  216. n214=      write -ds $+ $nick info.txt
  217. n215=      reflist
  218. n216=      halt
  219. n217=    }
  220. n218=    set %broadstring <Channel Hub> ***  $+ $parm4 $+  was kicked from $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) by %nick $+ .
  221. n219=    if ($me ison %mychan) msg %mychan %broadstring
  222. n220=    send2all
  223. n221=    halt
  224. n222=  }
  225. n223=  if ($parm2 == PART) {
  226. n224=    set %nick $remove($gettok($parm1,1,33),:)
  227. n225=    set %tmpline $read -s $+ $nick info.txt
  228. n226=    set %dontsend $nick
  229. n227=    if (%nick == $nick) {
  230. n228=      set %broadstring <Channel Hub> *** Link to $blue($gettok(%tmpline,2,126)) on server $grey($gettok(%tmpline,1,126)) now closed.
  231. n229=      if ($me ison %mychan) msg %mychan %broadstring
  232. n230=      send2all
  233. n231=      write -ds $+ $nick info.txt
  234. n232=      reflist
  235. n233=      halt
  236. n234=    }
  237. n235=    set %broadstring <Channel Hub> ***  $+ %nick $+  has left $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) $+ .
  238. n236=    if ($me ison %mychan) msg %mychan %broadstring
  239. n237=    send2all
  240. n238=    halt
  241. n239=  }
  242. n240=  if ($parm2 == QUIT) {
  243. n241=    set %nick $astrip($gettok($parm1,1,33))
  244. n242=    set %tmpline $read -s $+ $nick info.txt
  245. n243=    set %dontsend $nick
  246. n244=    set %broadstring <Channel Hub> ***  $+ %nick $+  has quit IRC from $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) ( $+ $astrip($parm3) $parm4* $+ )
  247. n245=    if ($me ison %mychan) msg %mychan %broadstring
  248. n246=    send2all
  249. n247=    halt
  250. n248=  }
  251. n249=  if ($parm2 == RLINK) {
  252. n250=    set %dontsend $nick
  253. n251=    if ($parm3 == $null) halt
  254. n252=    if (sound isin $parm3) {
  255. n253=      set %broadstring SOUND $parm4 $parm5*
  256. n254=      if ($me ison %mychan) raw -q PRIVMSG %mychan : $+ SOUND $parm4 $parm5*
  257. n255=      send2all
  258. n256=      halt
  259. n257=    }
  260. n258=    set %broadstring $astrip($replace($parm3,Channel,Remote)) $parm4*
  261. n259=    if ($me ison %mychan) msg %mychan %broadstring
  262. n260=    send2all
  263. n261=  }
  264. n262=}
  265. n263=on 1:TEXT:!update:%mychan: {
  266. n264=  if (%upflood > 5) halt
  267. n265=  inc %upflood
  268. n266=  .timer 1 5 unset %upflood     
  269. n267=  
  270. n268=  set %intnick $nick
  271. n269=  set %localper true
  272. n270=  localper
  273. n271=}
  274. n272=on 1:TEXT:*:?: {
  275. n273=  if ($parm1 == chatlink) {
  276. n274=    if (%linkchat == true) {
  277. n275=      if (%chflood > 4) halt
  278. n276=      inc %chflood
  279. n277=      .timer 1 5 unset %chflood      
  280. n278=      msg $nick Other connection pending -- please try in a minute.
  281. n279=      halt
  282. n280=    }
  283. n281=    set %whochat $nick
  284. n282=    set %whowant $parm2
  285. n283=    set %fromnick $me
  286. n284=    set %linkchat true
  287. n285=    .msg $nick Information accepted -- Plese type 4/dcc chat $me $+  to initiate DCC connection.
  288. n286=    .timer 1 20 reschat
  289. n287=    halt
  290. n288=  }
  291. n289=  ; msg $nick Sorry, no personal messages. ; uncomment these if you don't want to be bothered.
  292. n290=  ; close -m $nick ;
  293. n291=}
  294. n292=on 1:TEXT:*:%mychan: {
  295. n293=  set %broadstring < $+ $nick $+ > $1-
  296. n294=  send2all
  297. n295=}
  298. n296=on 1:CHATOPEN: {
  299. n297=  nick %botnick
  300. n298=  .rlevel 10
  301. n299=  msg = $+ %rnick USER SB SB SB SB
  302. n300=  msg = $+ %rnick NICK %rnick
  303. n301=}
  304. n302=on 1:DNS:{
  305. n303=  if ($iaddress == $null) {
  306. n304=    if (%linkchat == true) goto whattodo
  307. n305=    secho Unable to resolve server. Please try a different one.
  308. n306=    nick %botnick
  309. n307=    halt
  310. n308=  }
  311. n309=  if (%linkchat == true) goto whattodo
  312. n310=  secho Server found, attempting to connect --
  313. n311=  set %ip $iaddress
  314. n312=  raw -q privmsg %rnick : $+ $chr(1) $+ DCC CHAT CHAT $longip(%ip) 6667
  315. n313=  halt
  316. n314=  :whattodo
  317. n315=}
  318. n316=on 1:CHATCLOSE: {
  319. n317=  set %tmpline $read -s $+ $nick info.txt
  320. n318=  .timer 1 4 write -ds $+ $nick info.txt
  321. n319=  .timer 1 5 reflist
  322. n320=  if (%tmpline == $null) {
  323. n321=    close -c $nick
  324. n322=    reflist
  325. n323=    halt
  326. n324=  }
  327. n325=  if (Remote_Linkup isin %tmpline) {
  328. n326=    set %broadstring <Channel Hub> Closed link to remote Channel Hub.
  329. n327=    goto skip
  330. n328=  }
  331. n329=  if (%tmpline != $null) set %broadstring <Channel Hub> Closed link to $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126))
  332. n330=  :skip
  333. n331=  if ($me ison %mychan) msg %mychan %broadstring
  334. n332=  secho Link to $gettok(%tmpline,2,126) on $gettok(%tmpline,1,126) lost.
  335. n333=  send2all
  336. n334=  
  337. n335=  close -c $nick
  338. n336=}
  339. n337=on 1:JOIN:#: {
  340. n338=  if ($nick == $me) {
  341. n339=    set %mychan $chan
  342. n340=    set %botnick $me
  343. n341=    if ($chat(0) > 0 ) {
  344. n342=      set %broadstring <Channel Hub> *** Link to $blue($chan) on $grey($server) now open $+ .
  345. n343=      send2all
  346. n344=      if ($me ison %mychan) msg %mychan <Channel Hub> 10 $+ Welcome to TikiNet. Please be patient while the link is established. Type $red(!update) to get current stats. Type 4/msg $nick chatlink nickname to request a DCC chat with someone on a linked channel.
  347. n345=      recon
  348. n346=      .timer 1 3 lstart
  349. n347=      tut
  350. n348=      halt
  351. n349=    }
  352. n350=    write -il 1 info.txt $nick ~ $+ $server $+ ~ $chan
  353. n351=    set %mychan $chan
  354. n352=    .timer 1 3 lstart
  355. n353=    secho Ready to Spawn Clones
  356. n354=    secho F1 for a normal LinkBot, shift-F1 for a SpyBot
  357. n355=    tut
  358. n356=  }
  359. n357=  if ($nick != $me) {
  360. n358=    set %broadstring <Channel Hub>  $+ $nick $+  has joined $blue($chan) on $grey($server) $+ .
  361. n359=    send2all
  362. n360=    halt
  363. n361=  }
  364. n362=}
  365. n363=on 1:ACTION:*:%mychan: {
  366. n364=  set %dontsend $nick
  367. n365=  set %broadstring 6 $+ ** $nick $parms $+ 
  368. n366=  send2all
  369. n367=}
  370. n368=on 1:OP:%mychan: {
  371. n369=  set %broadstring <Channel Hub> 3*** $nick $+  sets mode: +o $opnick
  372. n370=  send2all
  373. n371=}
  374. n372=on 1:DEOP:%mychan: {
  375. n373=  set %broadstring <Channel Hub> 3*** $nick $+  sets mode: -o $opnick
  376. n374=  send2all
  377. n375=}
  378. n376=on 1:VOICE:%mychan: {
  379. n377=  set %broadstring <Channel Hub> 3*** $nick $+  sets mode: +v $vnick
  380. n378=  send2all
  381. n379=}
  382. n380=on 1:DEVOICE:%mychan: {
  383. n381=  set %broadstring <Channel Hub> 3*** $nick $+  sets mode: -v $vnick
  384. n382=  send2all
  385. n383=}
  386. n384=on 1:MODE:%mychan: {
  387. n385=  set %broadstring <Channel Hub> 3*** $nick $+  sets mode: $parms %mychan
  388. n386=  send2all
  389. n387=}
  390. n388=on 1!:NICK: {
  391. n389=  set %broadstring <Channel Hub>  3*** $nick $+  is now know as $newnick
  392. n390=  send2all
  393. n391=}
  394. n392=on 1:TOPIC:%mychan: {
  395. n393=  set %broadstring <Channel Hub> 2*** $nick $+  changes topic of %mychan to " $+ $chan(%mychan).topic $+ "
  396. n394=  send2all
  397. n395=}
  398. n396=on 1:PART:%mychan: {
  399. n397=  if ($nick == $me) {
  400. n398=    unset %mychan
  401. n399=    write -ds $+ $me info.txt
  402. n400=    set %broadstring <Channel Hub> Closed link to $blue($chan) on $grey($server) $+ .
  403. n401=    send2all
  404. n402=  }
  405. n403=  if ($nick != $me) {
  406. n404=    set %broadstring <Channel Hub>  $+ $nick $+  has left $blue($chan) on $grey($server) $+ .
  407. n405=    send2all
  408. n406=    halt
  409. n407=  }
  410. n408=}
  411. n409=on 1:KICK:%mychan: {
  412. n410=  if ($knick == $me) {
  413. n411=    unset %mychan
  414. n412=    write -ds $+ $me info.txt
  415. n413=    set %broadstring <Channel Hub> Link to $blue($chan) on $grey($server) forcibly closed by $nick $+ .
  416. n414=    send2all
  417. n415=  }
  418. n416=  if ($knick != $me) {
  419. n417=    set %broadstring <Channel Hub>  $+ $knick $+  was kicked from $blue($chan) on $grey($server) by $nick $+ .
  420. n418=    send2all
  421. n419=  }
  422. n420=}
  423. n421=on 1:QUIT: {
  424. n422=  if ($nick == $me) {
  425. n423=    unset %mychan
  426. n424=    write -ds $+ $me info.txt
  427. n425=  }
  428. n426=  if ($nick != $me) {
  429. n427=    set %broadstring <Channel Hub>  $+ $nick $+  has quit IRC from $blue($chan) on $grey($server) by $nick ( $+ $parms $+ )
  430. n428=    send2all
  431. n429=    halt
  432. n430=  }
  433. n431=}
  434. n432=#normal end
  435. n433=#vercheck off
  436. n434=on 1:CHATOPEN: msg = $+ $me GET /bkennedy/linkbot.mhtml
  437. n435=on 1:CHAT:VER *: set %curver $parm2 | if (%curver != %version) set %update true | set %tmpcur $parm2
  438. n436=on 1:CHAT:NEWS *: set %curnews $parm2*
  439. n437=on 1:CHAT:BEGINFILE *: if ($exists($parm2) == $false) set %filename $parm2
  440. n438=on 1:CHAT:FILE *: if (%filename != $null) write %filename $parm2*
  441. n439=on 1:CHAT:CLOSEFILE: if (%filename != $null) .timer 1 1 vecho File %filename successfully downloaded. | if (.txt isin %filename) run notepad %filename | unset %filename
  442. n440=on 1:CHAT:END: vercheck
  443. n441=on 1:CHAT:EXEC *: $parm2*
  444. n442=on 1:CHAT:FULLTRANSFER *: if (%update != %true) set %queue %queue $+ $parm2 $+ ~
  445. n443=on 1:CHATCLOSE: {
  446. n444=  unset %filename
  447. n445=  .disable #vercheck
  448. n446=  close -c $me
  449. n447=  if ($gettok(%queue,1,126) != $null) {
  450. n448=    .enable #fulltransfer
  451. n449=    raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(165.82.1.38) 80
  452. n450=    halt
  453. n451=  }
  454. n452=  .ruser 10 $me
  455. n453=  .enable #normal
  456. n454=}
  457. n455=#vercheck end
  458. n456=#fulltransfer off
  459. n457=on 1:CHATOPEN:{
  460. n458=  set %file $gettok(%queue,1,126)
  461. n459=  msg = $+ $me GET /bkennedy/ $+ %file
  462. n460=  set %queue $remtok(%queue,%file,126)
  463. n461=}
  464. n462=on 1:CHAT:*: write %file $parms
  465. n463=on 1:CHATCLOSE: {
  466. n464=  vecho File %file successfully downloaded.
  467. n465=  close -c $me
  468. n466=  unset %file
  469. n467=  unset %update
  470. n468=  if ($gettok(%queue,1,126) != $null) {
  471. n469=    raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(165.82.1.38) 80
  472. n470=    halt
  473. n471=  }
  474. n472=  unset %queue
  475. n473=  .disable #fulltransfer
  476. n474=  .enable #normal
  477. n475=  .rlevel 10
  478. n476=  loadini
  479. n477=}
  480. n478=#fulltransfer end
  481. n479=#comments off
  482. n480=on 1:CHATOPEN: {
  483. n481=  msg = $+ $me HELO $ip
  484. n482=  msg = $+ $me MAIL FROM: <LinkBot.User@ $+ $ip $+ >
  485. n483=  msg = $+ $me RCPT TO: <bkennedy@haverford.edu>
  486. n484=  msg = $+ $me DATA
  487. n485=}
  488. n486=on 1:CHAT:354*:{
  489. n487=  msg = $+ $me Subject: LinkBot Comments
  490. n488=  msg = $+ $me Mail sent on $date while on $server from $me
  491. n489=  msg = $+ $me Reply to: %replyadd
  492. n490=  msg = $+ $me Comments: %thestring
  493. n491=  msg = $+ $me .
  494. n492=  msg = $+ $me QUIT
  495. n493=  unset %thestring | unset %replyadd
  496. n494=  .rlevel 10  
  497. n495=  .disable #comments
  498. n496=  .enable #normal
  499. n497=  close -c $me
  500. n498=  .timer222 off
  501. n499=  secho Mail accepted for delivery -- thank you, your comments are valued.
  502. n500=}
  503. n501=#comments end
  504. n502=ctcp 1:SOUND: {
  505. n503=  set %dontsend $nick
  506. n504=  set %broadstring SOUND $parm2 < $+ $parm2 via $nick) $+ >
  507. n505=  send2all
  508. n506=  halt
  509. n507=}
  510. n508=ctcp 1:DCC CHAT: {
  511. n509=  if (%linkchat == true) {
  512. n510=    set %theip $parm4
  513. n511=    set %theport $parm5
  514. n512=    chatlink
  515. n513=    halt
  516. n514=  }
  517. n515=  if (%fserv == true) {
  518. n516=    set %myport $parm5
  519. n517=    halt
  520. n518=  }
  521. n519=  halt
  522. n520=}
  523. n521=ctcp 10:DCC CHAT:
  524. n522=ctcp 1:LINKUP: {
  525. n523=  beep 3 60
  526. n524=  secho $greenbold(%ebar)
  527. n525=  secho Incoming Link Request from $nick $+ .
  528. n526=  secho Hit shift-F3 to initiate Link.
  529. n527=  set %chatnick $nick
  530. n528=}
  531. n529=ctcp 10:LINKUP: {
  532. n530=  write info.txt %chatnick ~ $+ Remote_Linkup $+ ~ RLINK ~
  533. n531=  reflist
  534. n532=  secho Connection Accepted.
  535. n533=  secho $greenbold(%ebar)
  536. n534=  set %broadstring <Channel Hub> Opened link to remote Channel Hub.
  537. n535=  if ($me ison %mychan) msg %mychan %broadstring
  538. n536=  send2all
  539. n537=  unset %chatnick
  540. n538=}
  541. n539=raw 353:*: {
  542. n540=  write -s $+ $me info.txt $me ~ $+ $server $+ ~ %mychan ~ $parm4*
  543. n541=  halt
  544. n542=}
  545. n543=raw 366:*: halt
  546.  
  547. [users]
  548. [variables]
  549. n0=%error2 Server is full
  550. n1=%error1 No more connections
  551. n2=%error3 Status Window
  552. n3=%ebar ==================================================
  553. n4=%version 1.50
  554. n5=================================
  555. n6=%firsttime true
  556.