home *** CD-ROM | disk | FTP | other *** search
/ Hacks & Cracks / Hacks_and_Cracks.iso / cracks / cracks2.zip / LINKBOT.ZIP / aliases.ini < prev    next >
INI File  |  1997-04-11  |  32KB  |  848 lines
  1. [aliases]
  2. n0=op mode # +ooo $$1 $2 $3
  3. n1=dop mode # -ooo $$1 $2 $3
  4. n2=j  join #$$1
  5. n3=p part #
  6. n4=k kick # $$1
  7. n5=q query $$1
  8. n6=hop part # | join #$$1
  9. n7=send dcc send $1 $2
  10. n8=firsttime {  
  11. n9=  if (%firsttime != true) halt
  12. n10=  .load -a tutorial.ini
  13. n11=  .timer 1 3 tutorial
  14. n12=  unset %firsttime
  15. n13=}
  16. n14=f1 spawn | set %counter 1 | unset %sec | .timer666 1 40 timeout
  17. n15=sf1 set %sec true | f1
  18. n16=f2 respawn | set %counter 1
  19. n17=sf2 rlink $??="Enter LinkBot you wish to share network with:"
  20. n18=sf3 rcon
  21. n19=sf4 {
  22. n20=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  23. n21=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  24. n22=    halt
  25. n23=  }
  26. n24=  set %tmp $??="Terminate Acrive Session? y/n"
  27. n25=  if (y !isin %tmp) {
  28. n26=    echo Excellent!
  29. n27=    unset %tmp
  30. n28=    halt
  31. n29=  }
  32. n30=  msg = $+ $nick RLINK CLOSE
  33. n31=  write -ds $+ $nick info.txt
  34. n32=  reflist
  35. n33=  set %broadstring <Channel Hub> Closed link to remote Channel Hub.
  36. n34=  if (%mychan != $null) msg %mychan %broadstring
  37. n35=  send2all
  38. n36=  close -c $nick
  39. n37=}
  40. n38=f3 broadcast
  41. n39=f4 {
  42. n40=  .timer 1 5 report
  43. n41=  update
  44. n42=}
  45. n43=f5 {
  46. n44=  if ($gettok($active,2,126) != $null) {
  47. n45=    set %anick $gettok($active,2,126)
  48. n46=    goto aloop
  49. n47=  }
  50. n48=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  51. n49=    echo Error - this command is to you be used on DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  52. n50=    halt
  53. n51=  }
  54. n52=  set %anick $nick  
  55. n53=  :aloop
  56. n54=  set %tmpline $read -s $+ %anick info.txt
  57. n55=  if ($gettok(%tmpline,2,126) != $null) {
  58. n56=    echo Only one channel at a time, please.
  59. n57=    halt
  60. n58=  }
  61. n59=  msg = $+ %anick JOIN $$?="Please enter a channel:"
  62. n60=}
  63. n61=f6 {
  64. n62=  if ($gettok($active,2,126) != $null) {
  65. n63=    set %anick $gettok($active,2,126)
  66. n64=    goto aloop
  67. n65=  }
  68. n66=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  69. n67=    echo Error - this command it to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  70. n68=    halt
  71. n69=  }
  72. n70=  set %anick $nick
  73. n71=  :aloop
  74. n72=  set %tmpline $read -s $+ %anick info.txt
  75. n73=  set %dontsend %anick
  76. n74=  msg = $+ %anick PART $gettok(%tmpline,2,126)
  77. n75=}
  78. n76=f7 {
  79. n77=  if ($gettok($active,2,126) != $null) {
  80. n78=    set %anick $gettok($active,2,126)
  81. n79=    goto aloop
  82. n80=  }
  83. n81=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  84. n82=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  85. n83=    halt
  86. n84=  }
  87. n85=  set %anick $nick
  88. n86=  :aloop
  89. n87=  set %tmp $??="Please enter channel to hop to:"
  90. n88=  set %nick $remove($gettok($parm1,1,33),:)
  91. n89=  set %tmpline $read -s $+ %anick info.txt
  92. n90=  set %dontsend %anick
  93. n91=  if (%tmp == $null) {
  94. n92=    echo So why'd you change your mind?
  95. n93=    halt
  96. n94=  }
  97. n95=  msg = $+ %anick PART $gettok(%tmpline,2,126)
  98. n96=  .timer 1 3 msg = $+ %anick JOIN %tmp
  99. n97=}
  100. n98=f8 {
  101. n99=  if ($gettok($active,2,126) != $null) {
  102. n100=    set %anick $gettok($active,2,126)
  103. n101=    goto aloop
  104. n102=  }
  105. n103=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  106. n104=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  107. n105=    halt
  108. n106=  }
  109. n107=  set %anick $nick
  110. n108=  :aloop
  111. n109=  set %tmpline $read -s $+ %anick info.txt
  112. n110=  set %tmp $??="Terminate active session? y/n"
  113. n111=  if (y isin %tmp) {
  114. n112=    set %seclist $remove(%seclist,%anick)
  115. n113=    echo $active *** Closed link to $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126))
  116. n114=    msg = $+ %anick QUIT :LinkBot -- by [SB]Tikiman
  117. n115=    secho Closed link to $gettok(%tmpline,2,126) on $gettok(%tmpline,1,126)
  118. n116=    halt
  119. n117=  }
  120. n118=  echo Excellent!
  121. n119=}
  122. n120=f9 {
  123. n121=  if ($gettok($active,2,126) != $null) {
  124. n122=    set %anick $gettok($active,2,126)
  125. n123=    goto aloop
  126. n124=  }
  127. n125=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  128. n126=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  129. n127=    halt
  130. n128=  }
  131. n129=  set %anick $nick
  132. n130=  :aloop
  133. n131=  if (%anick !isin %seclist) {
  134. n132=    set %seclist %seclist %anick
  135. n133=    echo Spy mode now -= ON =-
  136. n134=  }
  137. n135=  else {
  138. n136=    set %seclist $remove(%seclist,%anick)
  139. n137=    echo Spy mode now -= OFF =-
  140. n138=  }
  141. n139=}
  142. n140=f10 {
  143. n141=  if ($gettok($active,2,126) != $null) {
  144. n142=    set %anick $gettok($active,2,126)
  145. n143=    goto aloop
  146. n144=  }
  147. n145=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  148. n146=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  149. n147=    halt
  150. n148=  }
  151. n149=  set %anick $nick
  152. n150=  :aloop
  153. n151=  set %tmpline $read -s $+ %anick info.txt
  154. n152=  if ($gettok(%tmpline,2,126) == $null) {
  155. n153=    echo This Bot is currently not on a channel.
  156. n154=    halt
  157. n155=  }
  158. n156=  msg = $+ %anick NAMES $gettok(%tmpline,2,126)
  159. n157=  echo Information updated.
  160. n158=}
  161. n159=f11 {
  162. n160=  if ($gettok($active,2,126) != $null) {
  163. n161=    set %anick $gettok($active,2,126)
  164. n162=    goto aloop
  165. n163=  }
  166. n164=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  167. n165=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  168. n166=    halt
  169. n167=  }
  170. n168=  set %anick $nick
  171. n169=  :aloop
  172. n170=  set %tmpline $read -s $+ %anick info.txt
  173. n171=  echo $aquabold(%ebar)
  174. n172=  echo Bot Status
  175. n173=  echo $aquabold(%ebar)
  176. n174=  echo Name : %anick
  177. n175=  echo Server : $gettok(%tmpline,1,126)
  178. n176=  echo Channel : $gettok(%tmpline,2,126)
  179. n177=  echo Other Nicks Present: $gettok(%tmpline,3,126)
  180. n178=  if (%anick isin %seclist) echo Spy Mode : -= ON =-
  181. n179=  if (%anick !isin %seclist) echo Spy Mode : -= OFF =-
  182. n180=  unset %tmpline
  183. n181=}
  184. n182=f12 {
  185. n183=  secho $aquabold(%ebar)
  186. n184=  secho Quick Help Guide: (F12)
  187. n185=  secho $aquabold(%ebar)
  188. n186=  secho Commands for any window
  189. n187=  secho $aquabold(%ebar)
  190. n188=  secho F1 : Spawn a clone (shift F1 spawns a spy clone)
  191. n189=  secho F2 : Reconnect after 4 failed attempts
  192. n190=  secho F3 : Send a broadcast message to all linked channels
  193. n191=  secho F4 : Send a connection report to all linked channels
  194. n192=  secho $aquabold(%ebar)
  195. n193=  secho Commands for DCC Clones
  196. n194=  secho $aquabold(%ebar)
  197. n195=  secho F5 : Join a channel
  198. n196=  secho F6 : Part currently active channel
  199. n197=  secho F7 : Hop to a new channel
  200. n198=  secho F8 : Close current DCC clone -- (Always Use This)
  201. n199=  secho F9 : Toggle spy mode on/off
  202. n200=  secho F10 : Refresh names list
  203. n201=  secho F11 : Bot status report
  204. n202=  secho F12 : This help menu
  205. n203=  secho $aquabold(%ebar)
  206. n204=  secho Commands for Remote Links
  207. n205=  secho $aquabold(%ebar)
  208. n206=  secho shift-F2 : Request a bot link
  209. n207=  secho shift-F3 : Accept a bot link
  210. n208=  secho shift-F4 : Close current bot link (Not on Clones)
  211. n209=  secho $aquabold(%ebar)
  212. n210=}
  213. n211=startup {
  214. n212=  close -m
  215. n213=  titlebar LinkBot v. %version -- by [SB]Tikiman
  216. n214=  flush
  217. n215=  .enable #normal | .disable #vercheck | .disable #fulltransfer | .disable #comments
  218. n216=  unset %mychan
  219. n217=  if ($chat(0) == 0) unset %seclist
  220. n218=  set %botnick $me
  221. n219=  write -c info.txt
  222. n220=  .rlevel 10
  223. n221=  secho $red(><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><)
  224. n222=  secho $greenbold([==--------) Welcome to $aquabold(LinkBot), by $aquabold([SB]Tikiman) $greenbold(-------==])
  225. n223=  secho $red(><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><)
  226. n224=  secho $red(><) $+ Send questions/comments to $greybold(bkennedy@haverford.edu) $+ . $chr(160) $chr(160) $red(><)
  227. n225=  secho $red(><) $+ Please join a channel or launch a SpyBot. $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 0... $red(><)
  228. n226=  secho $red(><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><)
  229. n227=}
  230. n228=spawn {
  231. n229=  set %server $$?="Enter remote server name:"
  232. n230=  set %rnick $$?="Enter remote nickname:"
  233. n231=  :loop
  234. n232=  if (%rnick isin %nickchan) {
  235. n233=    set %rnick $$?="Sorry, in use on local system. Please select another:"
  236. n234=    goto loop
  237. n235=  }
  238. n236=  .auser 10 %rnick
  239. n237=  set %rchannel $$?="Enter remote channel:"
  240. n238=  secho $greenbold(%ebar)
  241. n239=  if (%sec == true) {
  242. n240=    set %seclist %seclist %rnick
  243. n241=    secho Spawning clandestine clone to %rchannel on %server $+ .
  244. n242=  }
  245. n243=  if (%sec != true) {
  246. n244=    set %seclist $remove(%seclist,%rnick)
  247. n245=    secho Spawning link clone to %rchannel on %server $+ .
  248. n246=  }
  249. n247=  dns %server
  250. n248=  nick %rnick
  251. n249=}
  252. n250=respawn {
  253. n251=  if ($me != %rnick) nick %rnick
  254. n252=  if (%counter == 1) .timer666 1 40 timeout
  255. n253=  .auser 10 %rnick
  256. n254=  raw -q privmsg %rnick : $+ $chr(1) $+ DCC CHAT CHAT $longip(%ip) 6667:
  257. n255=}
  258. n256=send2all {
  259. n257=  set %sends $chat(0)
  260. n258=  if ((%broadstring != $null) && (%dontsend != $null)) {
  261. n259=    set %tmpline $read -s $+ %dontsend info.txt
  262. n260=    set %tserver $gettok(%tmpline,1,126)
  263. n261=    set %tchannel $gettok(%tmpline,2,126)
  264. n262=    set %sendnick %dontsend
  265. n263=    if (Hub> isin %broadstring) {
  266. n264=      if (*** isin %broadstring) {
  267. n265=        set %echotext $mid(17,250,%broadstring) 
  268. n266=        if (%dontsend isin %seclist) specho $mid(17,250,%broadstring)
  269. n267=        else { lecho $mid(17,250,%broadstring) }
  270. n268=        goto loop
  271. n269=      }
  272. n270=      set %echotext *** $mid(17,250,%broadstring) 
  273. n271=      if (%dontsend isin %seclist) specho *** $mid(17,250,%broadstring)
  274. n272=      else { lecho *** $mid(17,250,%broadstring) }
  275. n273=      goto loop
  276. n274=    }
  277. n275=    
  278. n276=    if (%dontsend isin %seclist) specho %broadstring 
  279. n277=    else { lecho %broadstring }
  280. n278=    set %echotext %broadstring
  281. n279=  }
  282. n280=  if (%broadstring != $null) goto loop
  283. n281=  :loop
  284. n282=  set %tmp1 $findtok(%nickchan,$chat(%sends),126)
  285. n283=  inc %tmp1
  286. n284=  if ((($chat(%sends) != %dontsend) && ($chat(%sends) isin %nickchan)) && ($chat(%sends) !isin %seclist)) { 
  287. n285=    msg = $+ $chat(%sends) PRIVMSG $gettok(%nickchan,%tmp1,126) : $+ %broadstring
  288. n286=    set %sendnick $chat(%sends)
  289. n287=    set %tmpline $read -s $+ $chat(%sends) info.txt
  290. n288=    set %tchannel $gettok(%tmpline,2,126)
  291. n289=    set %tserver $gettok(%tmpline,1,126)
  292. n290=    if (%echotext != $null) lecho %echotext
  293. n291=    else { lecho $mid(17,250,%broadstring) }
  294. n292=    
  295. n293=  }
  296. n294=  dec %sends
  297. n295=  if (%sends > 0) goto loop
  298. n296=  unset %broadstring %dontsend %sends %tmp %message %echotext
  299. n297=}
  300. n298=update {
  301. n299=  secho Refreshing names lists.
  302. n300=  set %sends2 $chat(0)
  303. n301=  if ($chan(0) = 0) {
  304. n302=    write -ds $+ $me info.txt
  305. n303=    goto loop
  306. n304=  }
  307. n305=  names %mychan
  308. n306=  :loop
  309. n307=  set %tmp1 $findtok(%nickchan,$chat(%sends2),126)
  310. n308=  inc %tmp1
  311. n309=  if (($chat(%sends2) != %dontsend) && ($chat(%sends2) isin %nickchan)) msg = $+ $chat(%sends2) NAMES $gettok(%nickchan,%tmp1,126)
  312. n310=  dec %sends2
  313. n311=  if (%sends2 > 0) goto loop
  314. n312=  unset %tmp1 | unset %sends2
  315. n313=  if (%intchat == $null) halt
  316. n314=  elseif (%localper == true) { localper | halt }
  317. n315=  .timer 1 2 personal
  318. n316=}
  319. n317=broadcast {
  320. n318=  set %broadstring <Channel Hub> $??="Message"
  321. n319=  if ($len(%broadstring) == 15) {
  322. n320=    echo $active OK, don't say anything.
  323. n321=    unset %broadstring
  324. n322=    halt
  325. n323=  }
  326. n324=  if ($me ison %mychan) msg %mychan %broadstring
  327. n325=  set %echotext %broadstring
  328. n326=  send2all
  329. n327=}
  330. n328=report {
  331. n329=  set %total $lines(info.txt)
  332. n330=  :loop
  333. n331=  set %tmpline $read -l $+ %total info.txt
  334. n332=  if (Remote_Link isin %tmpline) {
  335. n333=    set %broadstring <Channel Hub> Connection open to Remote Channel Hub.
  336. n334=    goto skip
  337. n335=  }
  338. n336=  set %broadstring <Channel Hub> Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  339. n337=  :skip
  340. n338=  msg %mychan %broadstring
  341. n339=  send2all
  342. n340=  dec %total
  343. n341=  if (%total > 0) goto loop
  344. n342=  set %broadstring <Channel Hub> End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
  345. n343=  msg %mychan %broadstring
  346. n344=  send2all
  347. n345=  unset %total | unset %tmpline
  348. n346=}
  349. n347=reflist {
  350. n348=  unset %nickchan
  351. n349=  set %counter $lines(info.txt)
  352. n350=  :loop
  353. n351=  set %tmpline $read -l $+ %counter info.txt
  354. n352=  set %nick $gettok(%tmpline,1,126)
  355. n353=  if (%nick == $me) goto skip
  356. n354=  set %chan $gettok(%tmpline,3,126)
  357. n355=  set %nickchan %nickchan $+ ~ $+ %nick $+ ~ $+ %chan
  358. n356=  :skip
  359. n357=  dec %counter
  360. n358=  if (%counter > 0) goto loop
  361. n359=  unset %counter
  362. n360=}
  363. n361=personal {
  364. n362=  set %total $lines(info.txt)
  365. n363=  :loop
  366. n364=  set %tmpline $read -l $+ %total info.txt
  367. n365=  if (Remote_Link isin %tmpline) {
  368. n366=    set %string <Channel Hub> Connection open to Remote Channel Hub.
  369. n367=    goto skip
  370. n368=  }
  371. n369=  set %string <Channel Hub> Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  372. n370=  :skip
  373. n371=  msg = $+ %intchat PRIVMSG %intnick : $+ %string
  374. n372=  dec %total
  375. n373=  if (%total > 0) goto loop
  376. n374=  set %string <Channel Hub> End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
  377. n375=  msg = $+ %intchat PRIVMSG %intnick : $+ %string
  378. n376=  unset %string | unset %intchat | unset %intnick
  379. n377=  unset %intnick | unset %intchat | unset %string
  380. n378=}
  381. n379=echorep {
  382. n380=  secho $greybold(%ebar)
  383. n381=  set %total $lines(info.txt)
  384. n382=  :loop
  385. n383=  set %tmpline $read -l $+ %total info.txt
  386. n384=  if ($gettok(%tmpline,1,126) isin %seclist) {
  387. n385=    secho Clandestine SpyBot sent to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  388. n386=    goto skip
  389. n387=  }
  390. n388=  if (Remote_Link isin %tmpline) {
  391. n389=    secho Connection open to Remote Channel Hub.
  392. n390=    goto skip
  393. n391=  }
  394. n392=  secho Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  395. n393=  :skip
  396. n394=  dec %total
  397. n395=  if (%total > 0) goto loop
  398. n396=  secho End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
  399. n397=  secho $greybold(%ebar)
  400. n398=  unset %string | unset %intchat | unset %intnick
  401. n399=  unset %intnick | unset %intchat | unset %string
  402. n400=}
  403. n401=localper {
  404. n402=  unset %localper
  405. n403=  set %total $lines(info.txt)
  406. n404=  :loop
  407. n405=  set %tmpline $read -l $+ %total info.txt
  408. n406=  if (Remote_Link isin %tmpline) {
  409. n407=    set %string <Channel Hub> Connection open to Remote Channel Hub.
  410. n408=    goto skip
  411. n409=  }
  412. n410=  set %string <Channel Hub> Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  413. n411=  :skip
  414. n412=  msg %intnick %string
  415. n413=  dec %total
  416. n414=  if (%total > 0) goto loop
  417. n415=  set %string <Channel Hub> End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
  418. n416=  msg %intnick %string
  419. n417=  unset %intnick | unset %string | unset %total
  420. n418=}
  421. n419=recon {
  422. n420=  secho Reconstructing link, some transmissions may be lost.
  423. n421=  write -c info.txt %botnick ~ $+ $server $+ ~ %mychan ~
  424. n422=  set %counter 1
  425. n423=  :loop
  426. n424=  if ($chat(%counter) == $null) goto end
  427. n425=  msg = $+ $chat(%counter) WHOIS $chat(%counter)
  428. n426=  inc %counter
  429. n427=  goto loop
  430. n428=  :end
  431. n429=  .timer 1 5 reflist
  432. n430=  .timer 1 10 update
  433. n431=}
  434. n432=rlink {
  435. n433=  if ($1 == $null) {
  436. n434=    echo That's ok, we all make mistakes.
  437. n435=    halt
  438. n436=  }
  439. n437=  secho Asking for permisson --
  440. n438=  set %chatnick $1
  441. n439=  .auser 10 $1
  442. n440=  .ctcp $1 LINKUP
  443. n441=}
  444. n442=rcon {
  445. n443=  if (%chatnick == $null) {
  446. n444=    echo No one currently wants to link with you.
  447. n445=    halt
  448. n446=  }
  449. n447=  .ctcp %chatnick LINKUP
  450. n448=  write info.txt %chatnick ~ $+ Remote_Linkup $+ ~ RLINK ~
  451. n449=  reflist
  452. n450=  secho Initiaiting link --
  453. n451=  secho $greenbold(%ebar)
  454. n452=  chat %chatnick
  455. n453=  set %dontsend %chatnick
  456. n454=  set %broadstring <Channel Hub> Opened link to remote Channel Hub.
  457. n455=  if ($me ison %mychan) msg %mychan %broadstring
  458. n456=  .timer 1 4 send2all
  459. n457=  unset %chatnick
  460. n458=  .rlevel 10
  461. n459=}
  462. n460=rclose {
  463. n461=  msg = $+ $nick RLINK CLOSE
  464. n462=  write -ds $+ $nick info.txt
  465. n463=  reflist
  466. n464=  set %broadstring <Channel Hub> Closed link to remote Channel Hub.
  467. n465=  if ($me ison %mychan) msg %mychan %broadstring
  468. n466=  send2all
  469. n467=  close -c $nick
  470. n468=}
  471. n469=mquit {
  472. n470=  set %total $chat(0)
  473. n471=  :loop
  474. n472=  set %tmpline $read -l $+ %total info.txt
  475. n473=  if ($chat(%total) != 0) msg = $+ $chat(%total) QUIT :LinkBot -- by [SB]Tikiman
  476. n474=  dec %total
  477. n475=  if (%total > 0) goto loop
  478. n476=  set %total $chat(0)
  479. n477=  :loop2
  480. n478=  set %tmpline $read -l $+ %total info.txt
  481. n479=  if ($chat(%total) != 0) close -c $chat(%total)
  482. n480=  dec %total
  483. n481=  if (%total > 0) goto loop2
  484. n482=  
  485. n483=  set %total $window(0)
  486. n484=  set %counter 1
  487. n485=  :loop3
  488. n486=  if ($window(%counter) != $null) { window -c $window(%counter) | inc %counter | goto loop3 }
  489. n487=  
  490. n488=  unset %string | unset %intchat | unset %intnick
  491. n489=  unset %intnick | unset %intchat | unset %string
  492. n490=}
  493. n491=chatlink {
  494. n492=  set %total2 $lines(info.txt)
  495. n493=  :loop
  496. n494=  set %tmpline $read -l $+ %total2 info.txt
  497. n495=  if (%fromnick == $gettok(%tmpline,1,126)) goto skip
  498. n496=  if (%whowant isin %tmpline) {
  499. n497=    if ($me isin $gettok(%tmpline,1,126)) {
  500. n498=      msg %whowant Incoming DCC chat request from %whochat $+ .
  501. n499=      .timer 1 1 raw -q PRIVMSG %whowant : $+ $chr(1) $+ DCC CHAT CHAT %theip %theport $+
  502. n500=      reschat
  503. n501=      halt
  504. n502=    }
  505. n503=    if ($gettok(%tmpline,1,126) != $me) {
  506. n504=      msg = $+ $gettok(%tmpline,1,126) PRIVMSG %whowant :Incoming DCC chat request from %whochat $+ .
  507. n505=      .timer 1 1 msg = $+ $gettok(%tmpline,1,126) PRIVMSG %whowant : $+ $chr(1) $+ DCC CHAT CHAT %theip %theport $+
  508. n506=      reschat
  509. n507=      halt
  510. n508=    }
  511. n509=  }
  512. n510=  :skip
  513. n511=  dec %total2
  514. n512=  if (%total2 > 0) goto loop
  515. n513=  if (%fromnick == $me) {
  516. n514=    msg %whowant That nick was not found, either the person was connected to a remote hub or has left the channel.
  517. n515=    reschat
  518. n516=    halt
  519. n517=  }
  520. n518=  msg = $+ %fromnick PRIVMSG %whochat :That nick was not found, either the person was connected to a remote hub or has left the channel.
  521. n519=  reschat
  522. n520=}
  523. n521=reschat unset %theip | unset %theport | unset %total2 | unset %linkchat | unset %whochat | unset %fromnick | unset %whowant
  524. n522=panic {
  525. n523=  set %tmp $??="Are you sure you wish to reset?"
  526. n524=  if (y isin %tmp) {
  527. n525=    closemsg LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman
  528. n526=    mquit
  529. n527=    .timer 1 2 startup
  530. n528=    .partall
  531. n529=  }
  532. n530=}
  533. n531=timeout {
  534. n532=  secho Server not responding -- connection timed out.
  535. n533=  close -c %rnick
  536. n534=  .rlevel 10
  537. n535=  nick %botnick
  538. n536=}
  539. n537=comments {
  540. n538=  .disable #normal | .enable #comments
  541. n539=  .auser 10 $me
  542. n540=  set %replyadd $??="E-Mail address if you would like a reply:"
  543. n541=  set %thestring $??="Please enter your comments here:"
  544. n542=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(147.134.2.20) 25
  545. n543=  .timer222 1 30 mailerr
  546. n544=}
  547. n545=mailerr {
  548. n546=  unset %thestring | unset %replyadd
  549. n547=  .rlevel 10
  550. n548=  .disable #comments
  551. n549=  .enable #normal
  552. n550=  close -c $me
  553. n551=  secho Error in sending mail -- please try again later, your comments are valuable.
  554. n552=}
  555. n553=vercheck {
  556. n554=  if (%curver != $null) goto skip
  557. n555=  .disable #normal | .enable #vercheck
  558. n556=  .auser 10 $me
  559. n557=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(165.82.1.38) 80
  560. n558=  halt
  561. n559=  :skip
  562. n560=  vecho $aquabold(%ebar)
  563. n561=  if (%curver != %version) {
  564. n562=    vecho You do not have the most recent version of LinkBot. The latest version is available at http://www.students.haverford.edu/bkennedy/linkbot.zip
  565. n563=    ; vecho Updated files and ini's are now being transferred to your system, and will be loaded automatically. If you experiece problems, please get the latest version from the site listed above.
  566. n564=  }
  567. n565=  if (%curver == %version) vecho Congratulations, you have the latest version of LinkBot.
  568. n566=  vecho %curnews
  569. n567=  vecho $aquabold(%ebar)
  570. n568=  unset %curver | unset %curnews
  571. n569=}
  572. n570=mchange {
  573. n571=  set %rtop $$?="Please enter a remote topic:"
  574. n572=  msg = $+ %cnick MODE %cchan +nt
  575. n573=  msg = $+ %cnick TOPIC %cchan : $+ %rtop | unset %rtop | unset %cchan | unset %cnick
  576. n574=}
  577. n575=rchange { 
  578. n576=  if ($gettok($active,2,126) != $null) {
  579. n577=    set %anick $gettok($active,2,126)
  580. n578=    goto aloop
  581. n579=  }
  582. n580=  if (= !isin $active) {
  583. n581=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  584. n582=    halt
  585. n583=  }
  586. n584=  set %anick $remove($active,=)
  587. n585=  :aloop
  588. n586=  set %tmpline $read -s $+ %anick info.txt
  589. n587=  set %cchan $gettok(%tmpline,2,126)
  590. n588=  goto %jump
  591. n589=  :topic
  592. n590=  set %rtop $$?="Please enter a remote topic:"
  593. n591=  msg = $+ %anick MODE %cchan +nt
  594. n592=  msg = $+ %anick TOPIC %cchan : $+ %rtop | unset %rtop | unset %cchan | unset %cnick
  595. n593=  halt
  596. n594=  :gop
  597. n595=  msg = $+ %anick MODE %cchan +o $$?="Who would you like to op?"
  598. n596=  halt
  599. n597=  :rop
  600. n598=  msg = $+ %anick MODE %cchan -o $$?="Who would you like to de-op?"
  601. n599=  halt
  602. n600=  :gv
  603. n601=  msg = $+ %anick MODE %cchan +v $$?="Who would you like to voice?"
  604. n602=  halt
  605. n603=  :rv
  606. n604=  msg = $+ %anick MODE %cchan -v $$?="Who would you like to de-voice?"
  607. n605=  halt
  608. n606=  :kick
  609. n607=  msg = $+ %anick KICK %cchan $$?="Who would you like kick?"
  610. n608=  halt
  611. n609=  :kb
  612. n610=  msg = $+ %anick KICK %cchan $$?="Who would you like kick and ban?" | msg = $+ %anick MODE %cchan +b $! $+ !*@*
  613. n611=  halt
  614. n612=  :ban
  615. n613=  msg = $+ %anick MODE %cchan +b $$?="Who would you like to ban" $+ !*@*
  616. n614=  halt
  617. n615=  :secon
  618. n616=  msg = $+ %anick MODE %cchan +s
  619. n617=  halt
  620. n618=  :secoff
  621. n619=  msg = $+ %anick MODE %cchan -s
  622. n620=  halt
  623. n621=  :inon
  624. n622=  msg = $+ %anick MODE %cchan +i
  625. n623=  halt
  626. n624=  :inoff
  627. n625=  msg = $+ %anick MODE %cchan -i
  628. n626=  halt
  629. n627=  :modon
  630. n628=  msg = $+ %anick MODE %cchan +m
  631. n629=  halt
  632. n630=  :modoff
  633. n631=  msg = $+ %anick MODE %cchan -m
  634. n632=  halt
  635. n633=}
  636. n634=lstart {
  637. n635=  if ($nick(0,%mychan) == 1) mode %mychan +nt
  638. n636=}
  639. n637=secho {
  640. n638=  if ($line( [ @LinkBot $+ [ $chr(160) ] $+ Status $+ [ $chr(160) ] $+ Window ] ,1) == $null) window @LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window 10 10 450 250 swinpop.txt
  641. n639=  echo @LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window *1
  642. n640=}
  643. n641=lecho {
  644. n642=  window -e @LinkBot $+ $chr(160) $+ Window $+ $chr(160) $+ ~ $+ %sendnick $+ ~ $+ $chr(160) $+ $tchannel $+ $chr(160) $+ on $+ $chr(160) $+ $tserver $+ $chr(160) spypop.txt
  645. n643=  echo @LinkBot $+ $chr(160) $+ Window $+ $chr(160) $+ ~ $+ %sendnick $+ ~ $+ $chr(160) $+ $tchannel $+ $chr(160) $+ on $+ $chr(160) $+ $tserver $+ $chr(160) *1
  646. n644=}
  647. n645=specho {
  648. n646=  window -e @SpyBot $+ $chr(160) $+ Window $+ $chr(160) $+ ~ $+ $dontsend $+ ~ $+ $chr(160) $+ $tchannel $+ $chr(160) $+ on $+ $chr(160) $+ $tserver $+ $chr(160) spypop.txt
  649. n647=  echo @SpyBot $+ $chr(160) $+ Window $+ $chr(160) $+ ~ $+ $dontsend $+ ~ $+ $chr(160) $+ $tchannel $+ $chr(160) $+ on $+ $chr(160) $+ $tserver $+ $chr(160) *1
  650. n648=}
  651. n649=vecho {
  652. n650=  query LinkBot $+ $chr(160) $+ Version $+ $chr(160) $+ Checker $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman
  653. n651=  echo LinkBot $+ $chr(160) $+ Version $+ $chr(160) $+ Checker $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman *1
  654. n652=}
  655. n653=wecho {
  656. n654=  query Welcome $+ $chr(160) $+ First $+ $chr(160) $+ Time $+ $chr(160) $+ User
  657. n655=  echo Welcome $+ $chr(160) $+ First $+ $chr(160) $+ Time $+ $chr(160) $+ User *1
  658. n656=}
  659. n657=tserver {
  660. n658=  return %tserver
  661. n659=}
  662. n660=tchannel {
  663. n661=  return %tchannel
  664. n662=}
  665. n663=dontsend {
  666. n664=  return %dontsend
  667. n665=}
  668. n666=astrip {
  669. n667=  set %tmp $len($1)
  670. n668=  dec %tmp
  671. n669=  return $right(%tmp,$1)
  672. n670=}
  673. n671=grey {
  674. n672=  return 14 $+ $1 $+ 
  675. n673=}
  676. n674=greybold {
  677. n675=  return 14 $+ $1 $+ 
  678. n676=}
  679. n677=blue {
  680. n678=  return 2 $+ $1 $+ 
  681. n679=}
  682. n680=green {
  683. n681=  return 2 $+ *1 $+ 
  684. n682=}
  685. n683=red {
  686. n684=  return 4 $+ $1 $2 $3 $4 $+ 
  687. n685=}
  688. n686=redbold {
  689. n687=  return 4 $+ $1 $+ 
  690. n688=}
  691. n689=greenbold {
  692. n690=  return 2 $+ $1 $+ 
  693. n691=}
  694. n692=aquabold {
  695. n693=  return 10 $+ $1 $+ 
  696. n694=}
  697. n695=flush {
  698. n696=  .rlevel 10
  699. n697=  unset %rnick %rchannel %sends %tmp %total %ip %counter %server %tmpchan %chan %message  %tmp1  %nick  %oldnick  %tmpline  %rnames  %chatnick  %nickchan  %mycha  %broadstring  %theip  %theport  %total2  %hostname  %tserver  %chnick  %jump  %tchannel  %tmpcur  %counter3  %sec %string %anick %sendnick
  700. n698=}
  701. n699=bmlist {
  702. n700=  if ((%fav1 == $null) && (%fav2 == $null) && (%fav3 == $null) && (%fav4 == $null)) {
  703. n701=    secho All bookmarks currently empty.
  704. n702=    secho To enter information, select bookmark.
  705. n703=    halt
  706. n704=  }
  707. n705=  if (%fav1 != $null) {
  708. n706=    secho $greybold(%ebar)
  709. n707=    secho Bookmark 1
  710. n708=    secho Server : $gettok(%fav1,1,126)
  711. n709=    secho Channel : $gettok(%fav1,2,126)
  712. n710=    secho Nickname : $gettok(%fav1,3,126)
  713. n711=    if (y isin $gettok(%fav1,4,126)) secho Spy Mode : -= ON =-
  714. n712=    if (y !isin $gettok(%fav1,4,126)) secho Spy Mode : -= OFF =-
  715. n713=  }
  716. n714=  if (%fav2 != $null) {
  717. n715=    secho $greybold(%ebar)
  718. n716=    secho Bookmark 2
  719. n717=    secho Server : $gettok(%fav2,1,126)
  720. n718=    secho Channel : $gettok(%fav2,2,126)
  721. n719=    secho Nickname : $gettok(%fav2,3,126)
  722. n720=    if (y isin $gettok(%fav2,4,126)) secho Spy Mode : -= ON =-
  723. n721=    if (y !isin $gettok(%fav2,4,126)) secho Spy Mode : -= OFF =-
  724. n722=  }
  725. n723=  if (%fav3 != $null) {
  726. n724=    secho $greybold(%ebar)
  727. n725=    secho Bookmark 3
  728. n726=    secho Server : $gettok(%fav3,1,126)
  729. n727=    secho Channel : $gettok(%fav3,2,126)
  730. n728=    secho Nickname : $gettok(%fav3,3,126)
  731. n729=    if (y isin $gettok(%fav3,4,126)) secho Spy Mode : -= ON =-
  732. n730=    if (y !isin $gettok(%fav3,4,126)) secho Spy Mode : -= OFF =-
  733. n731=  }
  734. n732=  if (%fav4 != $null) {
  735. n733=    secho $greybold(%ebar)
  736. n734=    secho Bookmark 4
  737. n735=    secho Server : $gettok(%fav4,1,126)
  738. n736=    secho Channel : $gettok(%fav4,2,126)
  739. n737=    secho Nickname : $gettok(%fav4,3,126)
  740. n738=    if (y isin $gettok(%fav4,4,126)) secho Spy Mode : -= ON =-
  741. n739=    if (y !isin $gettok(%fav4,4,126)) secho Spy Mode : -= OFF =-
  742. n740=  }
  743. n741=}
  744. n742=fav1 {
  745. n743=  :start
  746. n744=  if (%fav1 == $null) {
  747. n745=    set %fav1 $??="Please enter a favorite server:"
  748. n746=    set %fav1 %fav1 $+ ~ $+ $??="Please enter a favorite channel:"
  749. n747=    set %fav1 %fav1 $+ ~ $+ $??="Please enter a favorite nickname:"
  750. n748=    set %fav1 %fav1 $+ ~ $+ $??="Will this be a spy clone? y/n"
  751. n749=  }
  752. n750=  secho $greenbold(%ebar)
  753. n751=  set %server $gettok(%fav1,1,126)
  754. n752=  set %rchannel $gettok(%fav1,2,126)
  755. n753=  set %rnick $gettok(%fav1,3,126)
  756. n754=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
  757. n755=    secho Error in bookmark, please re-enter information.
  758. n756=    unset %fav1
  759. n757=    goto start
  760. n758=  }
  761. n759=  if (%rnick isin %nickchan) {
  762. n760=    secho Sorry, in use on local system. Please check your connections and try again.
  763. n761=    halt
  764. n762=  }
  765. n763=  .auser 10 %rnick
  766. n764=  if (y isin $gettok(%fav1,4,126)) {
  767. n765=    set %seclist %seclist %rnick
  768. n766=    set %sec true
  769. n767=    secho Spawning clandestine clone to %rchannel on %server $+ .
  770. n768=  }
  771. n769=  if (%sec != true) {
  772. n770=    secho Spawning link clone to %rchannel on %server $+ .
  773. n771=  }
  774. n772=  dns %server
  775. n773=  nick %rnick
  776. n774=}
  777. n775=fav2 {
  778. n776=  :start
  779. n777=  if (%fav2 == $null) {
  780. n778=    set %fav2 $??="Please enter a favorite server:"
  781. n779=    set %fav2 %fav2 $+ ~ $+ $??="Please enter a favorite channel:"
  782. n780=    set %fav2 %fav2 $+ ~ $+ $??="Please enter a favorite nickname:"
  783. n781=    set %fav2 %fav2 $+ ~ $+ $??="Will this be a spy clone? y/n"
  784. n782=  }
  785. n783=  secho $greenbold(%ebar)
  786. n784=  set %server $gettok(%fav2,1,126)
  787. n785=  set %rchannel $gettok(%fav2,2,126)
  788. n786=  set %rnick $gettok(%fav2,3,126)
  789. n787=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
  790. n788=    secho Error in bookmark, please re-enter information.
  791. n789=    unset %fav2
  792. n790=    goto start
  793. n791=  }
  794. n792=  if (%rnick isin %nickchan) {
  795. n793=    secho Sorry, in use on local system. Please check your connections and try again.
  796. n794=    halt
  797. n795=  }
  798. n796=  .auser 10 %rnick
  799. n797=  if (y isin $gettok(%fav2,4,126)) {
  800. n798=    set %seclist %seclist %rnick
  801. n799=    secho Spawning clandestine clone to %rchannel on %server $+ .
  802. n800=    set %sec true
  803. n801=  }
  804. n802=  if (%sec != true) {
  805. n803=    secho Spawning link clone to %rchannel on %server $+ .
  806. n804=  }
  807. n805=  dns %server
  808. n806=  nick %rnick
  809. n807=}
  810. n808=fav3 {
  811. n809=  :start
  812. n810=  if (%fav3 == $null) {
  813. n811=    set %fav3 $??="Please enter a favorite server:"
  814. n812=    set %fav3 %fav3 $+ ~ $+ $??="Please enter a favorite channel:"
  815. n813=    set %fav3 %fav3 $+ ~ $+ $??="Please enter a favorite nickname:"
  816. n814=    set %fav3 %fav3 $+ ~ $+ $??="Will this be a spy clone? y/n"
  817. n815=  }
  818. n816=  secho $greenbold(%ebar)
  819. n817=  set %server $gettok(%fav3,1,126)
  820. n818=  set %rchannel $gettok(%fav3,2,126)
  821. n819=  set %rnick $gettok(%fav3,3,126)
  822. n820=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
  823. n821=    secho Error in bookmark, please re-enter information.
  824. n822=    unset %fav3
  825. n823=    goto start
  826. n824=  }
  827. n825=  if (%rnick isin %nickchan) {
  828. n826=    secho Sorry, in use on local system. Please check your connections and try again.
  829. n827=    halt
  830. n828=  }
  831. n829=  .auser 10 %rnick
  832. n830=  if (y isin $gettok(%fav3,4,126)) {
  833. n831=    set %seclist %seclist %rnick
  834. n832=    secho Spawning clandestine clone to %rchannel on %server $+ .
  835. n833=    set %sec true
  836. n834=  }
  837. n835=  if (%sec != true) {
  838. n836=    secho Spawning link clone to %rchannel on %server $+ .
  839. n837=  }
  840. n838=  dns %server
  841. n839=  nick %rnick
  842. n840=}
  843. n841=fav4 {
  844. n842=  :start
  845. n843=  if (%fav4 == $null) {
  846. n844=    set %fav4 $??="Please enter a favorite server:"
  847. n845=    set %fav4 %fav4 $+
  848.