#=[ TXEXTRAS.IRC by ShaMan for use with TerMinAtoR Version 8.75 ]= #=[ ShaMan ( Michael Anthony Marino ) email: shamanic@netcom.com ]= if ([$txcal.ver]==[]) {echo *** You NEED to LOAD the T\|X MAIN module first!;//quit} if ([$txextras.loaded]!=[]) {echo *** Do NOT LOAD the T\|X EXTRAS module twice!;//quit} @ txloadid.ver = [EXTRAS] @ txextras.loaded = [YES] EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [ ] assign mail_pgm mail #=[ SYNC.IRC ]= alias koetopic { topic KnIgHtS oF <==|> ExCaLiBuR =====- OfFiCiAL ChAnNeL. } alias showchansync { re $C sc } alias syncheck { topic =[SYNCH-CHECK]= koetopic ^timer 3 showchansync ^on ^404 "*" {lcf.syn.chk $0-} ^on ^442 "*" {lcf.syn.chk $0-} ^on ^482 "*" {lcf.syn.chk $0-} } alias synchfix { topic =[SYNCH-FIX]= koetopic cdban nokey mc c +stin rdban mass o ^timer 25 c -i ^timer 30 showchansync ^on ^404 "*" {lcf.syn.chk $0-} ^on ^442 "*" {lcf.syn.chk $0-} ^on ^482 "*" {lcf.syn.chk $0-} } alias lcf.syn.chk { if ([$0]!=[$sync.s]) { if ([$0]!=[$S]) { ^timer -delete 111 techo You are desynched in $1 from $0 \($2-\) @ sync.s = [$0] @ sync.c = [$1] if (V) { @ sync.l = [] ^on ^raw_irc "*.* 352 % $sync.c *" {@ sync.l = [$sync.l $7]} ^on ^raw_irc "*.* 315 % $sync.c *" { ^on ^raw_irc -"*.* 352 % $3 *" if ([$sync.l]!=[]) { ischanop($N $C)) { loop.mk $sync.l ! Desynched On $sync.s\, CYCLE!}{ techo Nicks desynched in $sync.c\@$sync.s to you: $sync.l \($#sync.l\)} }{techo No nicks found desynched in $sync.c\@$sync.s to you.} ^assign -sync.l ^on ^raw_irc -"*.* 315 % $3 *" } ^who -server $sync.s $sync.c } } } ^timer -refnum 111 60 purge sync } alias loop.mk { @ mk.t = [$0-] @ mk.l = [] @ mk.r = [] if (index(! $mk.t) > -1) { @ mk.l = left($index(! $mk.t) $mk.t) @ mk.r = mid(${index(! $mk.t)+1} 40 $mk.t) }{@ mk.l = [$mk.t];@ mk.r = [$lcv.dkm]} for (@ mk.c = 0,word($mk.c $mk.l),@ mk.c = mk.c + 1) { .kick $C $word($mk.c $mk.l) \(${mk.c+1}\)$mk.r} purge mk } #=[ JUMP.IRC ]= #=[ Customizable Section ]= EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [- ] @ jump.conf = [.jumprc] @ jumpserverport = [6667] @ jumpserver1 = [] @ jumpserver2 = [] @ jumpserver3 = [] @ jumpserver4 = [] @ jumpserver5 = [] @ jumpserver6 = [] @ jumpserver7 = [] @ jumpserver8 = [] @ jumpserver9 = [] @ jumpserver10 = [] @ jumpserver11 = [] @ jumpserver12 = [] @ jumpserver13 = [] @ jumpserver14 = [] #=[ Load Save Configuration File Section ]= ^EVAL ^load $jump.conf #=[ JUMP Configuration & Save ]= alias jumpserv { techo Setting DEFAULT JUMP Script Settings. techo Enter your default JUMP Server Port. techo Currently: $jumpserverport @ jumptemp = [$"[T|X] JUMP Server Port: "] if (jumptemp){@ jumpserverport = jumptemp} techo Enter your default JUMP Server 1. techo Currently: $jumpserver1 @ jumptemp = [$"[T|X] JUMP Server 1: "] if (jumptemp){@ jumpserver1 = jumptemp} techo Enter your default JUMP Server 2. techo Currently: $jumpserver2 @ jumptemp = [$"[T|X] JUMP Server 2: "] if (jumptemp){@ jumpserver2 = jumptemp} techo Enter your default JUMP Server 3. techo Currently: $jumpserver3 @ jumptemp = [$"[T|X] JUMP Server 3: "] if (jumptemp){@ jumpserver3 = jumptemp} techo Enter your default JUMP Server 4. techo Currently: $jumpserver4 @ jumptemp = [$"[T|X] JUMP Server 4: "] if (jumptemp){@ jumpserver4 = jumptemp} techo Enter your default JUMP Server 5. techo Currently: $jumpserver5 @ jumptemp = [$"[T|X] JUMP Server 5: "] if (jumptemp){@ jumpserver5 = jumptemp} techo Enter your default JUMP Server 6. techo Currently: $jumpserver6 @ jumptemp = [$"[T|X] JUMP Server 6: "] if (jumptemp){@ jumpserver6 = jumptemp} techo Enter your default JUMP Server 7. techo Currently: $jumpserver7 @ jumptemp = [$"[T|X] JUMP Server 7: "] if (jumptemp){@ jumpserver7 = jumptemp} techo Enter your default JUMP Server 8. techo Currently: $jumpserver8 @ jumptemp = [$"[T|X] JUMP Server 8: "] if (jumptemp){@ jumpserver8 = jumptemp} techo Enter your default JUMP Server 9. techo Currently: $jumpserver9 @ jumptemp = [$"[T|X] JUMP Server 9: "] if (jumptemp){@ jumpserver9 = jumptemp} techo Enter your default JUMP Server 10. techo Currently: $jumpserver10 @ jumptemp = [$"[T|X] JUMP Server 10: "] if (jumptemp){@ jumpserver10 = jumptemp} techo Enter your default JUMP Server 11. techo Currently: $jumpserver11 @ jumptemp = [$"[T|X] JUMP Server 11: "] if (jumptemp){@ jumpserver11 = jumptemp} techo Enter your default JUMP Server 12. techo Currently: $jumpserver12 @ jumptemp = [$"[T|X] JUMP Server 12: "] if (jumptemp){@ jumpserver12 = jumptemp} techo Enter your default JUMP Server 13. techo Currently: $jumpserver13 @ jumptemp = [$"[T|X] JUMP Server 13: "] if (jumptemp){@ jumpserver13 = jumptemp} techo Enter your default JUMP Server 14. techo Currently: $jumpserver14 @ jumptemp = [$"[T|X] JUMP Server 14: "] if (jumptemp){@ jumpserver14 = jumptemp} techo JUMP Default settings complete. techo Type /JUMPSAVE to make them permanant. ^assign -jumptemp } EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [= ] alias jumpconfsave { exec -name wln3 echo "$0-" >> $jump.conf wait %wln3 } alias writeln3 {^exec -name wln3 echo "$1-" >>$0;wait %wln3} alias jumpsave { techo Saving Configuration... techo Saving to file: $jump.conf ^exec touch $jump.conf exec -name dele rm -r -f $jump.conf /jumpconfsave #=-=[ TerMinAtoR =[JUMP]= v1.75 -(By ShaMan)- SeTTinGs ]=-= /jumpconfsave @ jumpserverport = [$jumpserverport] /jumpconfsave @ jumpserver1 = [$jumpserver1] /jumpconfsave @ jumpserver2 = [$jumpserver2] /jumpconfsave @ jumpserver3 = [$jumpserver3] /jumpconfsave @ jumpserver4 = [$jumpserver4] /jumpconfsave @ jumpserver5 = [$jumpserver5] /jumpconfsave @ jumpserver6 = [$jumpserver6] /jumpconfsave @ jumpserver7 = [$jumpserver7] /jumpconfsave @ jumpserver8 = [$jumpserver8] /jumpconfsave @ jumpserver9 = [$jumpserver9] /jumpconfsave @ jumpserver10 = [$jumpserver10] /jumpconfsave @ jumpserver11 = [$jumpserver11] /jumpconfsave @ jumpserver12 = [$jumpserver12] /jumpconfsave @ jumpserver13 = [$jumpserver13] /jumpconfsave @ jumpserver14 = [$jumpserver14] techo JUMP Configuration Save Completed! } alias jumpport { if ([$0]) { ^assign jumpserverport $0 techo Jump Server Port Now Set To: \[$jumpserverport\\] } { techo Type A PORT Number To Assign techo Current Jump Server Port Set To: \[$jumpserverport\\] } } alias jump { if ([$0]) { if ([$0]==[1]) {server $jumpserver1 $jumpserverport;clear;techo Connecting to: \[$jumpserver1\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[2]) {server $jumpserver2 $jumpserverport;clear;techo Connecting to: \[$jumpserver2\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[3]) {server $jumpserver3 $jumpserverport;clear;techo Connecting to: \[$jumpserver3\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[4]) {server $jumpserver4 $jumpserverport;clear;techo Connecting to: \[$jumpserver4\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[5]) {server $jumpserver5 $jumpserverport;clear;techo Connecting to: \[$jumpserver5\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[6]) {server $jumpserver6 $jumpserverport;clear;techo Connecting to: \[$jumpserver6\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[7]) {server $jumpserver7 $jumpserverport;clear;techo Connecting to: \[$jumpserver7\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[8]) {server $jumpserver8 $jumpserverport;clear;techo Connecting to: \[$jumpserver8\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[9]) {server $jumpserver9 $jumpserverport;clear;techo Connecting to: \[$jumpserver9\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[10]) {server $jumpserver10 $jumpserverport;clear;techo Connecting to: \[$jumpserver10\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[11]) {server $jumpserver11 $jumpserverport;clear;techo Connecting to: \[$jumpserver11\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[12]) {server $jumpserver12 $jumpserverport;clear;techo Connecting to: \[$jumpserver12\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[13]) {server $jumpserver13 $jumpserverport;clear;techo Connecting to: \[$jumpserver13\\] Port: \[$jumpserverport\\] . . . .} if ([$0]==[14]) {server $jumpserver14 $jumpserverport;clear;techo Connecting to: \[$jumpserver14\\] Port: \[$jumpserverport\\] . . . .} } { clear tusecho Type /JUMP  tusecho Pick A Server 1 thru 14 To Change To ^showjumpserv } } EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [=- ] alias showjumpserv { techo \[1\] $jumpserver1 techo \[2\] $jumpserver2 techo \[3\] $jumpserver3 techo \[4\] $jumpserver4 techo \[5\] $jumpserver5 techo \[6\] $jumpserver6 techo \[7\] $jumpserver7 techo \[8\] $jumpserver8 techo \[9\] $jumpserver9 techo \[10\] $jumpserver10 techo \[11\] $jumpserver11 techo \[12\] $jumpserver12 techo \[13\] $jumpserver13 techo \[14\] $jumpserver14 } #=[ T|X NICK-PICK.IRC ]= #=[ Assigns Section ]= @ txnickpick.conf = [.nickpick] @ txnickpick_1 = [] @ txnickpick_2 = [] @ txnickpick_3 = [] @ txnickpick_4 = [] @ txnickpick_5 = [] @ txnickpick_6 = [] @ txnickpick_7 = [] @ txnickpick_8 = [] @ txnickpick_9 = [] @ txnickpick_10 = [] bind ^[1 parse_command nick $txnickpick_1 bind ^[2 parse_command nick $txnickpick_2 bind ^[3 parse_command nick $txnickpick_3 bind ^[4 parse_command nick $txnickpick_4 bind ^[5 parse_command nick $txnickpick_5 bind ^[6 parse_command nick $txnickpick_6 bind ^[7 parse_command nick $txnickpick_7 bind ^[8 parse_command nick $txnickpick_8 bind ^[9 parse_command nick $txnickpick_9 bind ^[0 parse_command $txnickpick_10 #=[ Configuration Section ]= EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [== ] alias nickpickdefault { techo Setting DEFAULT NICK-PICK Script Settings. techo Enter your default T|X NICK-PICK 1. techo Currently: $txnickpick_1 @ txnickpicktemp = [$"[T|X] NICK-PICK 1: "] if (txnickpicktemp){@ txnickpick_1 = txnickpicktemp} techo Enter your default T|X NICK-PICK 2. techo Currently: $txnickpick_2 @ txnickpicktemp = [$"[T|X] NICK-PICK 2: "] if (txnickpicktemp){@ txnickpick_2 = txnickpicktemp} techo Enter your default T|X NICK-PICK 3. techo Currently: $txnickpick_3 @ txnickpicktemp = [$"[T|X] NICK-PICK 3: "] if (txnickpicktemp){@ txnickpick_3 = txnickpicktemp} techo Enter your default T|X NICK-PICK 4. techo Currently: $txnickpick_4 @ txnickpicktemp = [$"[T|X] NICK-PICK 4: "] if (txnickpicktemp){@ txnickpick_4 = txnickpicktemp} techo Enter your default T|X NICK-PICK 5. techo Currently: $txnickpick_5 @ txnickpicktemp = [$"[T|X] NICK-PICK 5: "] if (txnickpicktemp){@ txnickpick_5 = txnickpicktemp} techo Enter your default T|X NICK-PICK 6. techo Currently: $txnickpick_6 @ txnickpicktemp = [$"[T|X] NICK-PICK 6: "] if (txnickpicktemp){@ txnickpick_6 = txnickpicktemp} techo Enter your default T|X NICK-PICK 7. techo Currently: $txnickpick_7 @ txnickpicktemp = [$"[T|X] NICK-PICK 7: "] if (txnickpicktemp){@ txnickpick_7 = txnickpicktemp} techo Enter your default T|X NICK-PICK 8. techo Currently: $txnickpick_8 @ txnickpicktemp = [$"[T|X] NICK-PICK 8: "] if (txnickpicktemp){@ txnickpick_8 = txnickpicktemp} techo Enter your default T|X NICK-PICK 9. techo Currently: $txnickpick_9 @ txnickpicktemp = [$"[T|X] NICK-PICK 9: "] if (txnickpicktemp){@ txnickpick_9 = txnickpicktemp} techo Enter your default T|X NICK-PICK 10. techo Currently: $txnickpick_10 @ txnickpicktemp = [$"[T|X] NICK-PICK 10: "] if (txnickpicktemp){@ txnickpick_10 = txnickpicktemp} techo NICK-PICK Default settings complete. techo Type /NICKPICK SAVE to make them permanant. ^assign -txnickpicktemp } #=[ Save Section ]= alias nickpickconfsave { exec -name wln4 echo "$0-" >> $txnickpick.conf wait %wln4 } alias writeln4 {^exec -name wln4 echo "$1-" >>$0;wait %wln4} alias nickpicksave { techo Saving Configuration... techo Saving to file: $txnickpick.conf ^exec touch $txnickpick.conf exec -name dele rm -r -f $txnickpick.conf /nickpickconfsave #=-=[ TerMinAtoR =[NICK-PICK]= v1.00 -(By ShaMan)- SeTTinGs ]=-= /nickpickconfsave @ txnickpick_1 = [$txnickpick_1] /nickpickconfsave @ txnickpick_2 = [$txnickpick_2] /nickpickconfsave @ txnickpick_3 = [$txnickpick_3] /nickpickconfsave @ txnickpick_4 = [$txnickpick_4] /nickpickconfsave @ txnickpick_5 = [$txnickpick_5] /nickpickconfsave @ txnickpick_6 = [$txnickpick_6] /nickpickconfsave @ txnickpick_7 = [$txnickpick_7] /nickpickconfsave @ txnickpick_8 = [$txnickpick_8] /nickpickconfsave @ txnickpick_9 = [$txnickpick_9] /nickpickconfsave @ txnickpick_10 = [$txnickpick_10] techo T|X NICK-PICK Configuration Save Completed! } EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [==- ] alias nickpicklist { techo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= techo = NICK-PICK LIST by ShaMan - NICK INDEX = techo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= techo = ESC-KEY+[] Gives You The Nick techo = ------------------ ------------------ techo = 1 \[$txnickpick_1\\] techo = 2 \[$txnickpick_2\\] techo = 3 \[$txnickpick_3\\] techo = 4 \[$txnickpick_4\\] techo = 5 \[$txnickpick_5\\] techo = 6 \[$txnickpick_6\\] techo = 7 \[$txnickpick_7\\] techo = 8 \[$txnickpick_8\\] techo = 9 \[$txnickpick_9\\] techo = 0 \[$txnickpick_10\\] techo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= } alias nickpick { if ([$0]) { if ([$0]==[SET]) {nickpickdefault} if ([$0]==[SAVE]) {nickpicksave} if ([$0]==[HELP]) {if (!txhelp.loaded) {techo $txloadhelp.msg}{nickpickhelp}} if ([$0]==[LIST]) {nickpicklist} } { tusecho Enter an option for NICK-PICK. tusecho Your choices are: HELP LIST SET SAVE }} #=[ Load Section ]= ^EVAL ^load $txnickpick.conf alias linkfind { if ([$0]) { if (!link.finding) { @ link.finding = 1 @ link.found = [] ^exec -name linkfind linkfind $0 } { techo Linkfind is already working!} } { tusecho /LINKFIND to start link search. tusecho This script uses the Linkfind C program. tusecho Linkfind must be compiled and in the path for this to work. } } ^on ^exec "linkfind *" # ^on ^exec_error "linkfind *" # ^on ^exec "linkfind Link Finder version*" techo LinkFind started \[This WILL take a while\] . . . ^on ^exec "linkfind Connecting to % *" @ link.serv = [$3] ^on ^exec "linkfind Logging in*" techo LinkFind: $1- ^on ^exec "linkfind % server names * beginning scan*" {techo Found \[$1\\] servers... Scanning. . .} ^on ^exec "linkfind [ACCEPTED] *" {if ([$link.found]) {@ link.found = [$link.found $2] }{@ link.found = [$2]} } ^on ^exec "linkfind Total number tested:[%] Accepted:[%]*" techo Total servers you can connect to: \[ $strip(Aceptd\:\[\] $4)\ \] ^on ^exec_exit "linkfind *" {if ([$link.found]) {@ link.lookd = 1}{@ link.lookd = 0} @ link.finding = 0 techo Linkfind finished! Use /LINKSHOW to see the results. techo Linkfind finished! Use /LINKSAVE to save the results. } alias linkshow {if (link.lookd) { techo SERVER @ total = #link.found @ count = 0 while (count first!} } alias linkwrite {^msg %linksave $0-} alias linksave { if (link.lookd) { ^on ^exec_error "link.rm *" # ^exec -name link.rm rm .links wait ^on ^exec_error - "link.rm *" ^on ^exec_error "linksave *" # ^exec -name linksave cat > .links linkwrite #=-=-=-=-=-=-=-=-=-=[ LinkFind Results ]=-=-=-=-=-=-=-=-=-= linkwrite @ link.lookd = 1 @ total = #link.found @ count = 0 while (count ]} @ no.servs = [] @ ts.done = 0 @ servs.found = 0 @ serv.list = [] @ ts.ended = 0 @ serv.s = 0 @ yes.list = [] @ serv.list = [] @ gen.serv = [$S] ^on ^364 * {@ serv.s = serv.s + 1 EVAL ^set input_prompt Got Server #$serv.s if ([$serv.list]) {@ serv.list = [$1 $serv.list]}{@ serv.list = [$1 $serv.list]} } ^on ^365 * {EVAL techo Found $serv.s Servers ^set input_prompt Server list complete, querying servers. . . do_vers } ^on ^window "% ??? %.% No such server*" {@ serv.total = serv.total - 1 @ serv.list = [$rem_w($2 $serv.list)] } ^on ^window "% ??? Server %: *" {if ([$1]==[***]) { @ servs.found = servs.found + 1 if ([$7]==[TS]) {EVAL add_yes $strip(: $3)}{ if ([$6]==[TS]) {EVAL add_yes $strip(: $3)}{ if ([$no.servs]) {@ no.servs = [$no.servs $strip(: $3)]}{@ no.servs = [$strip(: $3)]} }} if ([$servs.found]==[$serv.total]) {the_end} }} //LINKS ^timer -refnum 665 600 time_out } alias add_yes { if ([$yes.list]) {@ yes.list = [$yes.list $0]}{@ yes.list = [$0]} } alias the_end { @ ts.done = 1 @ ts.ended = 1 @ it.has.ts = 0 time.fix eval techo Done checking $serv.total servers for timestamping. techo Type /TSC+ to see those that have +TS, /TSC- for those that don't techo Type /TSCSAVE to SAVE +TS lists, /TSCSTATS for timestamp mini-stats. EVAL ^set input_prompt $old.prompt } alias tsc+ { if (!ts.done) {wait_ts}{ @ time.count = 0 @ time.total = [$#yes.list] EVAL techo Timestamp list generated from $gen.serv techo =-=[ +TS SERVER LIST ]=-= while (time.count timestamp.nfo EVAL ^msg %timestamp List generated on $gen.time from $gen.serv EVAL ^msg %timestamp timestamp ministats EVAL ^msg %timestamp $serv.total Total servers queried EVAL ^msg %timestamp $servs.found Servers responded EVAL ^msg %timestamp $#yes.list Servers use timestamping \(approx $mid(0 2 $dec($#yes.list $servs.found))\.$right(1 $dec($#yes.list $servs.found))\%\) EVAL ^msg %timestamp $#no.servs Servers do not use timestamping \(approx $mid(0 2 $dec($#no.servs $servs.found))\.$right(1 $dec($#no.servs $servs.found))\%\) ^msg %timestamp Servers that have timestamping @ time.total = [$#yes.list] @ sav.count = 0 while (sav.count  = tmecho = This will connect you to a database and retrieve Webster's = tmecho = definition of the word you have specified. You cannot issue = tmecho = another /dict command before the complete definition = tmecho = for the first word is retrieved. If you wish to do so, you = tmecho = must cancel the first request with /closedict and re-issue = tmecho = another /dict call. Note that you are not the only = tmecho = user to connect to the database - retrieving the definition = tmecho = of a word may take a while. = tmecho = You might see this "Missing process number or logical name" = tmecho = or similar message about 4 mins after each word search, this = tmecho = is normal, disregard it. = tmecho =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= }{ ^on ^exec "DICT Trying 128.52.32.7 ..." # ^on ^exec "DICT Trying 128.52.32.7..." # ^on ^exec "DICT Trying muesli.ai.mit.edu ..." # ^on ^exec "DICT Trying muesli.ai.mit.edu..." # ^on ^exec "DICT Connected to muesli.ai.mit.edu." # ^on ^exec "DICT Connected to 128.52.32.7." # ^on ^exec "DICT DEFINITION %" # ^on ^exec "DICT *" {/echo $1-} ^on ^exec "DICT Escape character is *" { exec -in %DICT DEFINE $dictword} ^on ^exec "DICT ?" {//exec $txpsk.flag3 %DICT} ^on ^exec_prompt "DICT *" {//exec $txpsk.flag3 %DICT} ^on ^exec "DICT ?DEFINITION 0" {//exec $txpsk.flag3 %DICT} ^on ^exec_prompt "DICT telnet>" { techo There seems to be a problem with the Webster Database. techo Try to reissue /dict command another time. //exec $txpsk.flag3 %DICT} @ dictword = [$0-] techo Retrieving definition for: [ $dictword ] (Please Wait...4 mins at most). ^exec -name DICT telnet muesli.ai.mit.edu 2627 ^timer 225 //exec $txpsk.flag3 %DICT }} EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [==== ] alias closedict { //exec $txpsk.flag3 %DICT } #=[ Try changing this to a closer machine ( or your own machine ) ]= #=[ if /dcc mail doesn't work right ]= assign MAILMACHINE cs.bu.edu #=[ OPVIEW ]= assign OPVIEWING OFF assign SERVKILL ON alias servkill { if (match($0 ON OFF)) {/up_it SERVKILL $0} techo Server KiLL Display For OPVIEW Window: \[$SERVKILL\\] } alias ovlogfile { @ ovlogfile.1 = stime($time()) @ function_return = [/home/kpaton/logs]##[/ov/]##[$word(0 $ovlogfile.1)]##[.]##[$word(1 $ovlogfile.1)]##[.]## [$word(2 $ovlogfile.1)]##[.]##[$word(4 $ovlogfile.1)] ^assign -ovlogfile.1 } alias ov { if ([$OPVIEWING]==[OFF]) { @ OPVIEWING = [ON] ^clear ^window new name OpView ^window scroll on ^window shrink 8 ^window level wallop,opnote,snote ^window logfile $ovlogfile() ^window log on ^set hold_mode off ^on ^server_notice "*" {/xecho -level snote [***] $4-} ^on ^server_notice "% % no% -- hack: *" Userhost $$5 -cmd showhack $$$$0 $$$$3 $$$$4 $$4 $$6- ^on ^server_notice "% % no% -- n%k c%n *" {^xecho -level snote [COLLISION] $6-} ^on ^server_notice "% % no% -- Rec%d KILL*" { if (rmatch($10 %.%)) { if ([$SERVKILL]==[ON]) {^xecho -level snote [COLLISION] $10 killed $8 $13-}}{^xecho -level snote [OPER KILL] $7 $8 $9 $10 $13-}} ^on ^raw_irc "%.% WALLOPS :*" { @ tx.ov.wallops = [$2-] @ tx.ov.wallops.count = [$@tx.ov.wallops] - 1 /xecho -level wallop [WALLOPS] $RIGHT($tx.ov.wallops.count $2-) \($0\) #/xecho -level wallop [WALLOPS] $strip(: $2-) \($0\) ^assign -tx.ov.wallops ^assign -tx.ov.wallops.count } ^on ^server_notice "% % no% -- mes% *" {^xecho -level snote [MESSAGE] $5-} ^on ^server_notice "% % no% -- rec%d unauth*" {#} ^on ^server_notice "% % no% -- inv%d %name: *" {#} ^on ^server_notice "% % no% -- bogus*" {#} //mode $N +iwscrkf ^window goto 2 techo OPView Windowing/Server Noticing: \[ACTIVATED\] if ([$SERVKILL]==[ON]) {/tusecho To disable server kill notices, type /SERVKILL OFF.} {/tusecho To enable server kill notices, type /SERVKILL ON.} }{ if ([$OPVIEWING]==[ON]) { @ OPVIEWING = [OFF] ^clear ^window refnum OpView wait -CMD # wait -CMD ^window kill ^mode $N +is-w ^on server_notice - ^on ^server_notice "*" # ^on ^server_notice "% % no% -- fake: *" { if (rmatch($7 $mychannels())) {/techo [FAKE] $5 $7- from $0} } ^on raw_irc - "%.% WALLOPS :*" techo OPView Windowing/Server Noticing: \[DEACTIVATED\] techo Please wait a moment for the OpView window to disappear. }}} alias showhack { if ([$1@$2]!=[@]) {/xecho -level snote [HACK] $3 <$0!$1@$2> $4-} {/xecho -level snote [HACK] $3 <$0> $4-]} } #=[ UNIX SHELL ]= #=[ Depending On Your OS You May Need To Replace -KILL For -CLOSE Or -9 ]= alias shell if (openwin == 0) { ^window new name Shell level crap,all,lastlog prompt sh> ^set hold_mode off ^on ^exec_exit Shell { ^window refnum Shell kill techo Shell session closed sucessfully. } ^on ^window_kill Shell {^exec $txpsk.flag %Shell} @ openwin = [1] ^exec -window -name Shell sh ^query %Shell techo Type ^W? for windowing commands, /SHELL to exit. }{ @ openwin = [0] ^exec $txpsk.flag %Shell ^window kill Shell } EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [====- ] #=[ DCCMAIL [FAKEMAIL] ]= on ^exec "maildata *" {//^dcc raw $MAILSOCKET $MAILMACHINE $1-} alias dccmail { if ((rmatch($0 *@*.*))&&(rmatch($1 *@*.*))) { EVAL ^Userhost $N -CMD if ([$3]) {^assign MYHOST $4} wait techo Connecting to port 25 of $MAILMACHINE\. EVAL ^assign MAILSOCKET $connect($MAILMACHINE 25) //^dcc raw $MAILSOCKET $MAILMACHINE helo $MYHOST techo Hello, $MYHOST \(from $MAILMACHINE\). //^dcc raw $MAILSOCKET $MAILMACHINE mail from: <$0> //^dcc raw $MAILSOCKET $MAILMACHINE rcpt to: <$1> //^dcc raw $MAILSOCKET $MAILMACHINE data //^dcc raw $MAILSOCKET $MAILMACHINE To: <$1> if ([$3]) {//^dcc raw $MAILSOCKET $MAILMACHINE Subject: $3-} {//^dcc raw $MAILSOCKET $MAILMACHINE Subject: TerMinAtoR DCC MAIL message} //^dcc raw $MAILSOCKET $MAILMACHINE EVAL ^assign RFILE temp$rand(99999999) exec -name copy cp $2 $RFILE wait %copy exec -name echo echo "." >>$RFILE wait %echo exec -name echo echo "quit" >>$RFILE wait %echo techo Mailing $2\. ^exec -name maildata cat $RFILE EVAL ^on ^dcc_raw "$MAILSOCKET $MAILMACHINE C*" { techo Connection closed, mail has been sent. EVAL ^on dcc_raw - "$0 $1 C*" exec $RMCOMMAND $RFILE ^assign -RFILE } ^assign -MAILSOCKET ^assign -MYHOST }{ tmecho =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= tmecho = TerMinAtoR by ShaMan v8.75 - DCCMAIL HELP = tmecho =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= tmecho = Usage: /DCCMAIL [] = tmecho = is the address the mail will be from, = tmecho = is the recipient of the message, is an ascii file containing = tmecho = what to mail, and is the subject of the message. = tmecho =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= }} #=[ UUMAIL ALIAS ]= alias uumail { if ([$0]) { ^assign MAILFILE $1- if (rmatch($0 *@* *!*)) { EVAL exec uuencode $MAILFILE $MAILFILE | mail $safe($0) techo Mailed $MAILFILE to $safe($0) \(uuencoded\). ^assign -MAILFILE }{ ^Userhost $0 -CMD if ([$4]!=[]) { ^assign mail_to $safe($3)@$4 EVAL exec uuencode $MAILFILE $MAILFILE | mail $mail_to techo Mailed $MAILFILE to $mail_to \(uuencoded\). ^assign -MAILFILE ^assign -mail_to }{/techo I can't find $0 on IRC.} }}{/tusecho /UUMAIL }} #=[ SERVER WALLOPS ]= alias wallops { if ([$2]) {/techo No spaces are allowed in the WallOps message.} { if (rmatch($0 *.*)) { ^on ^dcc_raw "*" # ^set display OFF EVAL ^assign SERVPID $connect($0 6667) ^set display ON EVAL //^dcc raw $SERVPID $0 SERVER $1 # # :TerMinAtoR WallOps //^dcc close raw $SERVPID ^assign -SERVPID ^on dcc_raw - "*" techo Sent wallops to server $0\. }{/tusecho /WALLOPS .}}} #=[ LINKS BEAUTIFIER ]= alias links { ^assign -lcounter ^assign -lserver ^assign -lclass @ lcounter = [1] techo No. Distance Server Uplink ^on ^364 "*" { ^assign lserver $stu($1) ^assign lclass $3 ^assign llink $stu($2) techo \($[-3]lcounter\) \($[-3]lclass\) $[-25]lserver\ \[$llink\] @ lcounter = lcounter + 1 } //links $0 ^on ^365 "*" {^on ^364 -*;^on ^365 -* }} EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [===== ] alias stu { if ([$right(13 $0)] == [.undernet.org]) { @ tmp = left($rindex(. $0) $0) @ function_return = left($rindex(. $tmp) $tmp) } { @ function_return = [$0] }} alias rmail { techo Engaging MAIL reading Window... ^window new name MyMail ^window scroll on ^set hold_mode off ^window level none ^exec -window -name MyMail $mail_pgm ^query %MyMail ^on ^exec_exit MyMail { techo Closing MAIL reading Window. ^window show $mail_pgm kill }} #=[ MASSINVITE COMMAND ]= alias massinv { if ([$0]) { ^assign masschan $0 techo Massinviting everyone on $masschan to $C\, please wait... ^on ^names "*" massinv2 $$1-\;^on ^names -* names $masschan }{ tusecho /MASSINV <#channel> where <#channel> is the tusecho channel you wish to invite to your current channel. }} alias massinv2 { if ([$0]!=[@] ## N) { ^invite $strip(@+ $0) $C wait } if ([$1]) {/massinv2 $1-} {/techo Everyone on channel $masschan has been invited to $C\.} } #=[ COUNTRY CODE LOOKUP ]= @country_name.1 = [AFGHANISTAN] @country_symbol.1 = [AF] @country_name.2 = [ALBANIA] @country_symbol.2 = [AL] @country_name.3 = [ALGERIA] @country_symbol.3 = [DZ] @country_name.4 = [AMERICAN SAMOA] @country_symbol.4 = [AS] @country_name.5 = [ANDORRA] @country_symbol.5 = [AD] @country_name.6 = [ANGOLA] @country_symbol.6 = [AO] @country_name.7 = [ANGUILLA] @country_symbol.7 = [AI] @country_name.8 = [ANTARCTICA] @country_symbol.8 = [AQ] @country_name.9 = [ANTIGUA AND BARBUDA] @country_symbol.9 = [AG] @country_name.10 = [ARGENTINA] @country_symbol.10 = [AR] @country_name.11 = [ARMENIA] @country_symbol.11 = [AM] @country_name.12 = [ARUBA] @country_symbol.12 = [AW] @country_name.13 = [AUSTRALIA] @country_symbol.13 = [AU] @country_name.14 = [AUSTRIA] @country_symbol.14 = [AT] @country_name.15 = [AZERBAIJAN] @country_symbol.15 = [AZ] @country_name.16 = [BAHAMAS] @country_symbol.16 = [BS] @country_name.17 = [BAHRAIN] @country_symbol.17 = [BH] @country_name.18 = [BANGLADESH] @country_symbol.18 = [BD] @country_name.19 = [BARBADOS] @country_symbol.19 = [BB] @country_name.20 = [BELARUS] @country_symbol.20 = [BY] @country_name.21 = [BELGIUM] @country_symbol.21 = [BE] @country_name.22 = [BELIZE] @country_symbol.22 = [BZ] @country_name.23 = [BENIN] @country_symbol.23 = [BJ] @country_name.24 = [BERMUDA] @country_symbol.24 = [BM] @country_name.25 = [BHUTAN] @country_symbol.25 = [BT] @country_name.26 = [BOLIVIA] @country_symbol.26 = [BO] @country_name.27 = [BOSNIA] EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [=====- ] @country_symbol.27 = [BA] @country_name.28 = [BOTSWANA] @country_symbol.28 = [BW] @country_name.29 = [BOUVET ISLAND] @country_symbol.29 = [BV] @country_name.30 = [BRAZIL] @country_symbol.30 = [BR] @country_name.31 = [BRITISH INDIAN OCEAN TERRITORY] @country_symbol.31 = [IO] @country_name.32 = [BRUNEI DARUSSALAM] @country_symbol.32 = [BN] @country_name.33 = [BRUNEI] @country_symbol.33 = [BN] @country_name.34 = [BULGARIA] @country_symbol.34 = [BG] @country_name.35 = [BURKINA FASO] @country_symbol.35 = [BF] @country_name.36 = [BURUNDI] @country_symbol.36 = [BI] @country_name.37 = [BYELORUSSIAN SSR] @country_symbol.37 = [BY] @country_name.38 = [CAMBODIA] @country_symbol.38 = [KH] @country_name.39 = [CAMEROON] @country_symbol.39 = [CM] @country_name.40 = [CANADA] @country_symbol.40 = [CA] @country_name.41 = [CAP VERDE] @country_symbol.41 = [CV] @country_name.42 = [CAYMAN ISLANDS] @country_symbol.42 = [KY] @country_name.43 = [CENTRAL AFRICAN REPUBLIC] @country_symbol.43 = [CF] @country_name.44 = [CHAD] @country_symbol.44 = [TD] @country_name.45 = [CHILE] @country_symbol.45 = [CL] @country_name.46 = [CHINA] @country_symbol.46 = [CN] @country_name.47 = [CHRISTMAS ISLAND] @country_symbol.47 = [CX] @country_name.48 = [COCOS (KEELING) ISLANDS] @country_symbol.48 = [CC] @country_name.49 = [COLOMBIA] @country_symbol.49 = [CO] @country_name.50 = [COMOROS] @country_symbol.50 = [KM] @country_name.51 = [CONGO] @country_symbol.51 = [CG] @country_name.52 = [COOK ISLANDS] @country_symbol.52 = [CK] @country_name.53 = [COSTA RICA] @country_symbol.53 = [CR] @country_name.54 = [COTE D'IVOIRE] @country_symbol.54 = [CI] @country_name.55 = [CROATIA] @country_symbol.55 = [HR] @country_name.56 = [HRVATSKA] @country_symbol.56 = [HR] @country_name.57 = [CUBA] @country_symbol.57 = [CU] @country_name.58 = [CYPRUS] @country_symbol.58 = [CY] @country_name.59 = [CZECHOSLOVAKIA] @country_symbol.59 = [CS] @country_name.60 = [DENMARK] @country_symbol.60 = [DK] @country_name.61 = [DJIBOUTI] @country_symbol.61 = [DJ] @country_name.62 = [DOMINICA] @country_symbol.62 = [DM] @country_name.63 = [DOMINICAN REPUBLIC] @country_symbol.63 = [DO] @country_name.64 = [EAST TIMOR] @country_symbol.64 = [TP] @country_name.65 = [ECUADOR] @country_symbol.65 = [EC] @country_name.66 = [EGYPT] @country_symbol.66 = [EG] EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [====== ] @country_name.67 = [EL SALVADOR] @country_symbol.67 = [SV] @country_name.68 = [EQUATORIAL GUINEA] @country_symbol.68 = [GQ] @country_name.69 = [ESTONIA] @country_symbol.69 = [EE] @country_name.70 = [ETHIOPIA] @country_symbol.70 = [ET] @country_name.71 = [FALKLAND ISLANDS] @country_symbol.71 = [FK] @country_name.72 = [MALVINAS] @country_symbol.72 = [FK] @country_name.73 = [FAROE ISLANDS] @country_symbol.73 = [FO] @country_name.74 = [FIJI] @country_symbol.74 = [FJ] @country_name.75 = [FINLAND] @country_symbol.75 = [FI] @country_name.76 = [FRANCE] @country_symbol.76 = [FR] @country_name.77 = [FRENCH GUIANA] @country_symbol.77 = [GF] @country_name.78 = [FRENCH POLYNESIA] @country_symbol.78 = [PF] @country_name.79 = [FRENCH SOUTHERN TERRITORIES] @country_symbol.79 = [TF] @country_name.80 = [GABON] @country_symbol.80 = [GA] @country_name.81 = [GAMBIA] @country_symbol.81 = [GM] @country_name.82 = [GEORGIA] @country_symbol.82 = [GE] @country_name.83 = [GERMANY] @country_symbol.83 = [DE] @country_name.84 = [DEUTSCHLAND] @country_symbol.84 = [DE] @country_name.85 = [GHANA] @country_symbol.85 = [GH] @country_name.86 = [GIBRALTAR] @country_symbol.86 = [GI] @country_name.87 = [GREECE] @country_symbol.87 = [GR] @country_name.88 = [GREENLAND] @country_symbol.88 = [GL] @country_name.89 = [GRENADA] @country_symbol.89 = [GD] @country_name.90 = [GUADELOUPE] @country_symbol.90 = [GP] @country_name.91 = [GUAM] @country_symbol.91 = [GU] @country_name.92 = [GUATEMALA] @country_symbol.92 = [GT] @country_name.93 = [GUINEA] @country_symbol.93 = [GN] @country_name.94 = [GUINEA BISSAU] @country_symbol.94 = [GW] @country_name.95 = [GYANA] @country_symbol.95 = [GY] @country_name.96 = [HAITI] @country_symbol.96 = [HT] @country_name.97 = [HEARD AND MC DONALD ISLANDS] @country_symbol.97 = [HM] @country_name.98 = [HONDURAS] @country_symbol.98 = [HN] @country_name.99 = [HONG KONG] @country_symbol.99 = [HK] @country_name.100 = [HUNGARY] @country_symbol.100 = [HU] @country_name.101 = [ICELAND] @country_symbol.101 = [IS] @country_name.102 = [INDIA] @country_symbol.102 = [IN] @country_name.103 = [INDONESIA] @country_symbol.103 = [ID] @country_name.104 = [IRAN] @country_symbol.104 = [IR] @country_name.105 = [IRAQ] @country_symbol.105 = [IQ] @country_name.106 = [IRELAND] @country_symbol.106 = [IE] @country_name.107 = [ISRAEL] @country_symbol.107 = [IL] @country_name.108 = [ITALY] @country_symbol.108 = [IT] @country_name.109 = [JAMAICA] @country_symbol.109 = [JM] @country_name.110 = [JAPAN] @country_symbol.110 = [JP] @country_name.111 = [JORDAN] EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [======- ] @country_symbol.111 = [JO] @country_name.112 = [KAZAKHSTAN] @country_symbol.112 = [KZ] @country_name.113 = [KENYA] @country_symbol.113 = [KE] @country_name.114 = [KIRIBATI] @country_symbol.114 = [KI] @country_name.115 = [NORTH KOREA] @country_symbol.115 = [KP] @country_name.116 = [SOUTH KOREA] @country_symbol.116 = [KR] @country_name.117 = [KUWAIT] @country_symbol.117 = [KW] @country_name.118 = [KYRGYZSTAN] @country_symbol.118 = [KG] @country_name.119 = [LAO] @country_symbol.119 = [LA] @country_name.120 = [LAOS] @country_symbol.120 = [LA] @country_name.121 = [LATVIA] @country_symbol.121 = [LV] @country_name.122 = [LEBANON] @country_symbol.122 = [LB] @country_name.123 = [LESOTHO] @country_symbol.123 = [LS] @country_name.124 = [LIBERIA] @country_symbol.124 = [LR] @country_name.125 = [LIBYAN ARAB JAMAHIRIYA] @country_symbol.125 = [LY] @country_name.126 = [LYBIA] @country_symbol.126 = [LY] @country_name.127 = [LIECHTENSTEIN] @country_symbol.127 = [LI] @country_name.128 = [LITHUANIA] @country_symbol.128 = [LT] @country_name.129 = [LUXEMBOURG] @country_symbol.129 = [LU] @country_name.130 = [MACAU] @country_symbol.130 = [MO] @country_name.131 = [MACEDONIA] @country_symbol.131 = [MK] @country_name.132 = [MADAGASCAR] @country_symbol.132 = [MG] @country_name.133 = [MALAWI] @country_symbol.133 = [MW] @country_name.134 = [MALAYSIA] @country_symbol.134 = [MY] @country_name.135 = [MALDIVES] @country_symbol.135 = [MV] @country_name.136 = [MALI] @country_symbol.136 = [ML] @country_name.137 = [MALTA] @country_symbol.137 = [MT] @country_name.138 = [MARSHALL ISLANDS] @country_symbol.138 = [MH] @country_name.139 = [MARTINIQUE] @country_symbol.139 = [MQ] @country_name.140 = [MAURITANIA] @country_symbol.140 = [MR] @country_name.141 = [MAURITIUS] @country_symbol.141 = [MU] @country_name.142 = [MEXICO] @country_symbol.142 = [MX] @country_name.143 = [MICRONESIA] @country_symbol.143 = [FM] @country_name.144 = [MOLDOVA] @country_symbol.144 = [MD] @country_name.145 = [MONACO] @country_symbol.145 = [MC] @country_name.146 = [MONGOLIA] @country_symbol.146 = [MN] @country_name.147 = [MONTSERRAT] @country_symbol.147 = [MS] @country_name.148 = [MOROCCO] @country_symbol.148 = [MA] @country_name.149 = [MOZAMBIQUE] @country_symbol.149 = [MZ] @country_name.150 = [MYANMAR] @country_symbol.150 = [MM] @country_name.151 = [NAMIBIA] @country_symbol.151 = [NA] @country_name.152 = [NAURU] @country_symbol.152 = [NR] @country_name.153 = [NEPAL] @country_symbol.153 = [NP] @country_name.154 = [NETHERLANDS] @country_symbol.154 = [NL] @country_name.155 = [NETHERLANDS ANTILLES] @country_symbol.155 = [AN] EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [======= ] @country_name.156 = [NEUTRAL ZONE] @country_symbol.156 = [NT] @country_name.157 = [NEW CALEDONIA] @country_symbol.157 = [NC] @country_name.158 = [NEW ZEALAND] @country_symbol.158 = [NZ] @country_name.159 = [NICARAGUA] @country_symbol.159 = [NI] @country_name.160 = [NIGER] @country_symbol.160 = [NE] @country_name.161 = [NIGERIA] @country_symbol.161 = [NG] @country_name.162 = [NIUE] @country_symbol.162 = [NU] @country_name.163 = [NORFOLK ISLAND] @country_symbol.163 = [NF] @country_name.164 = [NORTHERN MARIANA ISLANDS] @country_symbol.164 = [MP] @country_name.165 = [NORWAY] @country_symbol.165 = [NO] @country_name.166 = [OMAN] @country_symbol.166 = [OM] @country_name.167 = [PAKISTAN] @country_symbol.167 = [PK] @country_name.168 = [PALAU] @country_symbol.168 = [PW] @country_name.169 = [PANAMA] @country_symbol.169 = [PA] @country_name.170 = [PAPUA NEW GUINEA] @country_symbol.170 = [PG] @country_name.171 = [PAPUA] @country_symbol.171 = [PG] @country_name.172 = [NEW GUINEA] @country_symbol.172 = [PG] @country_name.173 = [PARAGUAY] @country_symbol.173 = [PY] @country_name.174 = [PERU] @country_symbol.174 = [PE] @country_name.175 = [PHILIPPINES] @country_symbol.175 = [PH] @country_name.176 = [PITCAIRN] @country_symbol.176 = [PN] @country_name.177 = [POLAND] @country_symbol.177 = [PL] @country_name.178 = [PORTUGAL] @country_symbol.178 = [PT] @country_name.179 = [PUERTO RICO] @country_symbol.179 = [PR] @country_name.180 = [QATAR] @country_symbol.180 = [QA] @country_name.181 = [REUNION] @country_symbol.181 = [RE] @country_name.182 = [ROMANIA] @country_symbol.182 = [RO] @country_name.183 = [RUSSIAN FEDERATION] @country_symbol.183 = [RU] @country_name.184 = [RWANDA] @country_symbol.184 = [RW] @country_name.185 = [SAINT KITTS AND NEVIS] @country_symbol.185 = [KN] @country_name.186 = [SAINT LUCIA] @country_symbol.186 = [LC] @country_name.187 = [SAINT VINCENT AND THE GRENADINES] @country_symbol.187 = [VC] @country_name.188 = [SAMOA] @country_symbol.188 = [WS] @country_name.189 = [SAN MARINO] @country_symbol.189 = [SM] @country_name.190 = [SAO TOME AND PRINCIPE] @country_symbol.190 = [ST] @country_name.191 = [SAUDI ARABIA] @country_symbol.191 = [SA] @country_name.192 = [SENEGAL] @country_symbol.192 = [SN] @country_name.193 = [SEYCHELLES] @country_symbol.193 = [SC] @country_name.194 = [SIERRA LEONE] @country_symbol.194 = [SL] @country_name.195 = [SINGAPORE] @country_symbol.195 = [SG] @country_name.196 = [SLOVENIA] @country_symbol.196 = [SI] @country_name.197 = [SOLOMON ISLANDS] @country_symbol.197 = [SB] @country_name.198 = [SOMALIA] @country_symbol.198 = [SO] @country_name.199 = [SOUTH AFRICA] @country_symbol.199 = [ZA] @country_name.200 = [SPAIN] EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [=======- ] @country_symbol.200 = [ES] @country_name.201 = [SRI LANKA] @country_symbol.201 = [LK] @country_name.202 = [ST. HELENA] @country_symbol.202 = [SH] @country_name.203 = [ST. PIERRE AND MIQUELON] @country_symbol.203 = [PM] @country_name.204 = [SUDAN] @country_symbol.204 = [SD] @country_name.205 = [SURINAME] @country_symbol.205 = [SR] @country_name.206 = [SVALBARD AND JAN MAYEN ISLANDS] @country_symbol.206 = [SJ] @country_name.207 = [SWAZILAND] @country_symbol.207 = [SZ] @country_name.208 = [SWEDEN] @country_symbol.208 = [SE] @country_name.209 = [SWITZERLAND] @country_symbol.209 = [CH] @country_name.210 = [CANTONS OF HELVETIA] @country_symbol.210 = [CH] @country_name.211 = [CONFEDERATION HELVETIQUE] @country_symbol.211 = [CH] @country_name.212 = [SYRIAN ARAB REPUBLIC] @country_symbol.212 = [SY] @country_name.213 = [SYRIA] @country_symbol.213 = [SY] @country_name.214 = [TAIWAN] @country_symbol.214 = [TW] @country_name.215 = [TAJIKISTAN] @country_symbol.215 = [TJ] @country_name.216 = [TANZANIA] @country_symbol.216 = [TZ] @country_name.217 = [THAILAND] @country_symbol.217 = [TH] @country_name.218 = [TOGO] @country_symbol.218 = [TG] @country_name.219 = [TOKELAU] @country_symbol.219 = [TK] @country_name.220 = [TONGA] @country_symbol.220 = [TO] @country_name.221 = [TRINIDAD AND TOBAGO] @country_symbol.221 = [TT] @country_name.222 = [TUNISIA] @country_symbol.222 = [TN] @country_name.223 = [TURKEY] @country_symbol.223 = [TR] @country_name.224 = [TURKMENISTAN] @country_symbol.224 = [TM] @country_name.225 = [TURKS AND CAICOS ISLANDS] @country_symbol.225 = [TC] @country_name.226 = [TUVALU] @country_symbol.226 = [TV] @country_name.227 = [UGANDA] @country_symbol.227 = [UG] @country_name.228 = [UKRAINIAN SSR] @country_symbol.228 = [UA] @country_name.229 = [UNITED ARAB EMIRATES] @country_symbol.229 = [AE] @country_name.230 = [UNITED KINGDOM] @country_symbol.230 = [UK] @country_name.231 = [GREAT BRITAIN] @country_symbol.231 = [GB] @country_name.232 = [UNITED STATES OF AMERICA] @country_symbol.232 = [US] @country_name.233 = [UNITED STATES] @country_symbol.233 = [US] @country_name.234 = [UNITED STATES MINOR OUTLYING ISLANDS] @country_symbol.234 = [UM] @country_name.235 = [URUGUAY] @country_symbol.235 = [UY] @country_name.236 = [USSR] @country_symbol.236 = [SU] @country_name.237 = [SOVIET REPUBLIC] @country_symbol.237 = [SU] @country_name.238 = [UZBEKISTAN] @country_symbol.238 = [UZ] @country_name.239 = [VANUATU] @country_symbol.239 = [VU] @country_name.240 = [VATICAN] @country_symbol.240 = [VA] @country_name.241 = [VATICAN CITY STATE] @country_symbol.241 = [VA] @country_name.242 = [VENEZUELA] @country_symbol.242 = [VE] @country_name.243 = [VIET NAM] @country_symbol.243 = [VN] @country_name.244 = [VIRGIN ISLANDS (US)] @country_symbol.244 = [VI] EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [======== ] @country_name.245 = [VIRGIN ISLANDS (UK)] @country_symbol.245 = [VG] @country_name.246 = [WALLIS AND FUTUNA ISLANDS] @country_symbol.246 = [WF] @country_name.247 = [WESTERN SAHARA] @country_symbol.247 = [EH] @country_name.248 = [YEMEN] @country_symbol.248 = [YE] @country_name.249 = [YUGOSLAVIA] @country_symbol.249 = [YU] @country_name.250 = [ZAIRE] @country_symbol.250 = [ZR] @country_name.251 = [ZAMBIA] @country_symbol.251 = [ZM] @country_name.252 = [ZIMBABWE] @country_symbol.252 = [ZW] @country_name.253 = [COMMERCIAL ORGANIZATION (US)] @country_symbol.253 = [COM] @country_name.254 = [EDUCATIONAL INSTITUTION (US)] @country_symbol.254 = [EDU] @country_name.255 = [NETWORKING ORGANIZATION (US)] @country_symbol.255 = [NET] @country_name.256 = [MILITARY (US)] @country_symbol.256 = [MIL] @country_name.257 = [NON-PROFIT ORGANIZATION (US)] @country_symbol.257 = [ORG] @country_name.258 = [GOVERNMENT (US)] @country_symbol.258 = [GOV] @country_name.259 = [KOREA - DEMOCRATIC PEOPLE'S REPUBLIC OF] @country_symbol.259 = [KP] @country_name.260 = [KOREA - REPUBLIC OF] @country_symbol.260 = [KR] @country_name.261 = [LAO PEOPLES' DEMOCRATIC REPUBLIC] @country_symbol.261 = [LA] @country_name.262 = [RUSSIA] @country_symbol.262 = [SU] @country_name.263 = [SLOVAKIA] @country_symbol.263 = [SK] @country_name.264 = [CZECH] @country_symbol.264 = [CZ] alias country { if ([$0]) { @ CCODE = 0 ^assign DOM $strip(. $0) techo Looking up country name for .$strip(. $0), please wait... foreach country_name XX { if ([$country_symbol[$XX]] == [$DOM]) {/EVAL @ CCODE = $XX} } if ([$CCODE] == 0) {/techo No country name for $DOM found.} {/techo .$DOM is $country_name[$CCODE]} ^assign -DOM ^assign -CCODE } {/tusecho /COUNTRY (Ex: /country edu)} if ([$1]) {/country $1- }} #=[ NETWORK MAPPING ]= EVAL @ map.mask = encode(*.) alias initmap { purge maplist purge maplist2 purge maphublist techo MAP: Building links list, please wait... map.buildlist $* } alias gomap { if ([$0] != []) {@ map.toptree = encode($tolower($0))} {@ map.toptree = encode($tolower($map.from))} techo Displaying map from $decode($map.toptree) echo 0 $decode($map.toptree) makemap 1 $map.toptree map.restore techo Map finished. } EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [========-] alias map.buildlist { ^on ^364 * { @ map.from = [$0] @ map.srv = [$1] @ map.uplink = [$2] @ map.hops = [$3] if (left(1 $map.srv) == [*]) { @ mapmasklist[$encode($tolower($map.srv))] = map.srv } @ map.hub = encode($tolower($map.uplink)) @ maphublist[$map.hub] = maphublist[$map.hub] + 1 @ maplist[$map.hub][$encode($tolower($map.srv))] = map.hops } ^on ^365 * { ^on 364 -* techo Links list building is complete. ^on 365 -* @ map.tmp = encode($tolower($map.from)) ^assign -maplist[$map.tmp][$map.tmp] @ maphublist[$map.tmp] = maphublist[$map.tmp] - 1 map.cleanmasks map.save techo Type /GOMAP to view the irc map. } //links $* } alias map.cleanmasks { foreach mapmasklist ii { foreach maplist jj { if (match(*$mid(2 100 $ii) $jj)) { foreach maplist.$jj kk { @ maplist[$ii][$kk] = maplist[$jj][$kk] ^assign -maplist[$jj][$kk] } @ maphublist[$ii] = maphublist[$jj] ^assign -maphublist[$jj] }} ^assign -mapmasklist[$ii] } techo Map data masks have been cleaned. } alias showmap { if ([$0] == []) { foreach maplist ii { foreach maplist.$ii jj { echo $decode($ii) links $decode($jj) }}}{ foreach maplist.$encode($tolower($0)) ii { foreach maplist.$ii jj { echo $decode($ii) links $decode($jj) }}}} alias makemap { @ map.ind[$0] = 0 foreach maplist.$1 ii$0 { echo $lformat(3 $0) $map.outmask(1 $0)`-$decode($(ii$0)) $maplist[$1][$(ii$0)] ^assign -maplist[$1][$(ii$0)] if ((map.ind[$0] = map.ind[$0] +1) >= maphublist[$1]) {@mask[$0] = 0} {@mask[$0] = 1} makemap ${[$0] + 1} $(ii$0) ^assign -ii$0 }} alias map.save { foreach maplist ii { foreach maplist.$ii jj { @ maplist2[$ii][$jj] = maplist[$ii][$jj] }} techo Map data has been saved. } alias map.restore { foreach maplist2 ii { foreach maplist2.$ii jj { @ maplist[$ii][$jj] = maplist2[$ii][$jj] }} techo Map data has been restored. } alias map.outmask { if ([$0] < [$1]) { if (mask[$0]) {@ mask.mask = mask.mask ## [| ]} {@ mask.mask = mask.mask ## [ ]} @ function_return = map.outmask(${[$0] + 1} $1) }{ @ function_return = mask.mask ^assign -mask.mask }} alias wordkick { if ([$0]) { EVAL ^on -public "% % *$0-*" {/kkick $1 $0 | Wordkick |} EVAL ^on -action "% % *$0-*" {/kkick $1 $0 | Wordkick |} techo WordKick will be activated by anyone saying $0-\. }{/techo You must specify 1 to 5 words.} } EVAL set INPUT_PROMPT [$txcal.ver] Loading Module [$txloadid.ver]: [=========] alias remword { if ([$0]) { ^on public - "% % *$0-*" ^on action - "% % *$0-*" techo $0 removed from the WordKick list. }{/tusecho /REMWORD to remove a word\(s\) from wordkick.} } #=[ UNFLASH ]= alias unflash { if (V <= 19930629) { ^set status_clock c ^type ^L ^set status_clock 0\;\24r ^type ^L ^set status_clock 0m ^type ^L ^set status_clock ?5l ^type ^L sleep 1 ^set status_clock %T ^type ^L techo Screen has been restored. } { if ([$TTY]) { if (match(*/* $TTY)) {^assign MYTTY $TTY} {^assign MYTTY /dev/$TTY} ^exec -name unflash echo c >>$MYTTY ^exec -name unflash echo 0\\\;\24r >>$MYTTY ^exec -name unflash echo 0m >>$MYTTY ^exec -name unflash echo ?5l >>$MYTTY ^exec -name unflash reset >>$MYTTY wait -CMD %unflash if (1) { ^type ^L ^assign -MYTTY techo Screen has been restored. } } {/techo UNFLASH FAILED: ENVIRONMENT VARIABLE 'TTY' MUST BE SET TO YOUR TTY. SEE README.TXT} } } #=[ NOTES ]= alias note if ([$0]) { eval ^exec -name txnote echo '[$newdate($time())] $0- ' >> $txnotes wait %txnote techo Note stored in $txnotes\.}{ if ([$word(0 $"Do you want to see stored memos? ")]==[Y]) { techo Saved notes: \(Reading file $txnotes\): ^on ^exec_error "txnote *" {/techo Notes file \"$txnotes\" was not found.} eval ^exec -name txnote cat $txnotes wait %txnote ^on ^exec_error -"txnote *" }} #=[ NICK TRACER ]= @ ntctcpsig = [TIME] @ ntautotime = 30 @ ntautocheck = [ON] alias nttag { if ([$0]) { if ([$ntraces]) {@ ntraces = [$ntraces $toupper($0)]}{@ ntraces = [$toupper($0)]} ^on ^311 "*" { techo Whois Information for: $1 techo Address : $2@$3 techo IRCNAME : $5- @ ntracename[$ntracenum] = [$2] } ^on ^312 "*" { techo Server : $1 \($2-\) @ ntraceserv[$ntracenum] = [$1] } @ ntracenum = ntracenum + 1 whois $0 techo NICK-TRACER: \[$0\\] Has been assigned trace index number => \[$ntracenum\\] techo NICK-TRACER: /NTWHO $ntracenum\ - to show $0\'s future current nicks. ^timer 3 ntbackwhois}{techo NICK-TRACER: Pick A Nick To Tag!}} alias ntwho { if ([$ntracename[$0]]) { //ctcp $ntracename[$0]\@$ntraceserv[$0] $ntctcpsig techo NICK-TRACER: You will receive a CTCP $ntctcpsig\ reply from target with techo NICK-TRACER: the new nick unless they have disconnected|reconnected techo NICK-TRACER: from irc or have cloaked. techo NICK-TRACER: Scanning For Current Nick On: $ntracename[$0]\ Tag: $0\ techo NICK-TRACER: Standby . . . }{techo NICK-TRACER: \[$0\\] Invalid NICK-TRACER Index Number.}} alias ntreset { techo NICK-TRACER: Trace Index Is Now Reset. @ ntcount = 0 @ ntraces = [] purge ntracename @ ntracenum = 0 } alias ntbackwhois { ^on ^311 "*" { techo Whois Information for: $1 techo Address : $2@$3 techo IRCNAME : $5- ^assign domain $3 } ^on ^312 "*" { techo Server : $1 \($2-\) ^assign server $1}} alias nttaglist { @ ntcount = 0 @ ntrace.list.num = [$#ntraces] techo =-=-=[ Nick-Tracer Index ]=-=-= techo Tag Nick-Tagged while (ntcount