/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / irclient / !IRClient / Scripts / Examples / AutoGreet / 3

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 41 | 75 74 6f 47 72 65 65 74 |..... >A|utoGreet|
|00000010| 0d 00 14 1f f4 20 45 78 | 61 6d 70 6c 65 20 61 75 |..... Ex|ample au|
|00000020| 74 6f 2d 67 72 65 65 74 | 20 73 63 72 69 70 74 0d |to-greet| script.|
|00000030| 00 1e 17 f4 20 a9 20 4a | 75 73 74 69 6e 20 46 6c |.... . J|ustin Fl|
|00000040| 65 74 63 68 65 72 0d 00 | 28 3f f4 20 32 35 20 44 |etcher..|(?. 25 D|
|00000050| 65 63 20 31 39 39 36 20 | 3a 20 4a 46 3a 20 53 74 |ec 1996 |: JF: St|
|00000060| 61 72 74 65 64 20 20 20 | 20 20 20 20 20 20 20 20 |arted   |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000080| 76 31 2e 30 30 0d 00 32 | 3f f4 20 32 39 20 44 65 |v1.00..2|?. 29 De|
|00000090| 63 20 31 39 39 36 20 3a | 20 4a 46 3a 20 41 64 64 |c 1996 :| JF: Add|
|000000a0| 65 64 20 6f 6e 6c 69 6e | 65 20 74 6f 67 67 6c 69 |ed onlin|e toggli|
|000000b0| 6e 67 20 20 20 20 20 20 | 20 20 20 20 20 20 20 76 |ng      |       v|
|000000c0| 31 2e 30 31 0d 00 33 3f | f4 20 33 30 20 44 65 63 |1.01..3?|. 30 Dec|
|000000d0| 20 31 39 39 36 20 3a 20 | 4a 46 3a 20 41 64 64 65 | 1996 : |JF: Adde|
|000000e0| 64 20 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 20 |d config|uration |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 76 31 |        |      v1|
|00000100| 2e 30 32 0d 00 3c 37 85 | 20 30 2c 22 54 68 69 73 |.02..<7.| 0,"This|
|00000110| 20 69 73 20 61 6e 20 49 | 52 43 6c 69 65 6e 74 20 | is an I|RClient |
|00000120| 73 63 72 69 70 74 20 61 | 6e 64 20 63 61 6e 6e 6f |script a|nd canno|
|00000130| 74 20 62 65 20 72 75 6e | 2e 22 0d 00 46 05 e0 0d |t be run|."..F...|
|00000140| 00 50 05 3a 0d 00 5a 1c | f4 20 49 6e 69 74 69 61 |.P.:..Z.|. Initia|
|00000150| 6c 69 73 65 20 74 68 69 | 73 20 6d 6f 64 75 6c 65 |lise thi|s module|
|00000160| 0d 00 64 16 dd f2 49 6e | 69 74 69 61 6c 69 73 65 |..d...In|itialise|
|00000170| 4d 6f 64 75 6c 65 0d 00 | 6e 13 f4 20 43 6f 6e 66 |Module..|n.. Conf|
|00000180| 69 67 75 72 61 74 69 6f | 6e 0d 00 78 2f 61 75 74 |iguratio|n..x/aut|
|00000190| 6f 67 72 65 65 74 3d bb | 28 a4 44 42 5f 52 65 61 |ogreet=.|(.DB_Rea|
|000001a0| 64 43 6f 6e 66 69 67 28 | 22 41 75 74 6f 47 72 65 |dConfig(|"AutoGre|
|000001b0| 65 74 5f 4f 6e 22 29 29 | 0d 00 82 1e f4 20 50 61 |et_On"))|..... Pa|
|000001c0| 73 73 20 6f 6e 20 74 6f | 20 6f 74 68 65 72 20 6d |ss on to| other m|
|000001d0| 6f 64 75 6c 65 73 0d 00 | 8c 06 f2 40 0d 00 96 05 |odules..|...@....|
|000001e0| e1 0d 00 a0 05 3a 0d 00 | aa 24 f4 20 47 69 76 65 |.....:..|.$. Give|
|000001f0| 20 6f 75 72 73 65 6c 76 | 65 73 20 61 20 73 65 6e | ourselv|es a sen|
|00000200| 73 69 62 6c 65 20 6e 61 | 6d 65 0d 00 b4 1e dd a4 |sible na|me......|
|00000210| 4f 76 65 72 6c 6f 61 64 | 5f 53 63 72 69 70 74 49 |Overload|_ScriptI|
|00000220| 6e 66 6f 28 6e 75 6d 29 | 0d 00 be 0a ea 20 72 65 |nfo(num)|..... re|
|00000230| 74 24 0d 00 c8 0d e7 20 | 6e 75 6d 3d 30 20 8c 0d |t$..... |num=0 ..|
|00000240| 00 d2 23 20 72 65 74 24 | 3d 22 41 75 74 6f 47 72 |..# ret$|="AutoGr|
|00000250| 65 65 74 20 76 31 2e 30 | 32 20 28 47 65 72 70 68 |eet v1.0|2 (Gerph|
|00000260| 29 22 0d 00 dc 05 cc 0d | 00 e6 13 20 72 65 74 24 |)"......|... ret$|
|00000270| 3d a4 40 28 6e 75 6d 2d | 31 29 0d 00 f0 05 cd 0d |=.@(num-|1)......|
|00000280| 00 fa 09 3d 72 65 74 24 | 0d 01 04 05 3a 0d 01 0e |...=ret$|....:...|
|00000290| 28 dd f2 4f 76 65 72 6c | 6f 61 64 5f 4f 6e 5f 4a |(..Overl|oad_On_J|
|000002a0| 6f 69 6e 28 6e 69 63 6b | 24 2c 63 68 61 6e 24 2c |oin(nick|$,chan$,|
|000002b0| 75 69 64 24 29 0d 01 18 | 1f f4 20 43 61 6c 6c 20 |uid$)...|.. Call |
|000002c0| 74 68 65 20 6f 72 69 67 | 69 6e 61 6c 20 72 6f 75 |the orig|inal rou|
|000002d0| 74 69 6e 65 0d 01 22 18 | f2 40 28 6e 69 63 6b 24 |tine..".|.@(nick$|
|000002e0| 2c 63 68 61 6e 24 2c 75 | 69 64 24 29 0d 01 2c 15 |,chan$,u|id$)..,.|
|000002f0| f4 20 2f 74 68 65 6e 2f | 20 73 61 79 20 68 69 20 |. /then/| say hi |
|00000300| 21 0d 01 36 11 e7 20 61 | 75 74 6f 67 72 65 65 74 |!..6.. a|utogreet|
|00000310| 20 8c 0d 01 40 1c 20 f2 | 53 61 79 28 63 68 61 6e | ...@. .|Say(chan|
|00000320| 24 2c 22 48 69 20 22 2b | 6e 69 63 6b 24 29 0d 01 |$,"Hi "+|nick$)..|
|00000330| 4a 05 cd 0d 01 54 05 e1 | 0d 01 5e 05 3a 0d 01 68 |J....T..|..^.:..h|
|00000340| 28 dd f2 4f 76 65 72 6c | 6f 61 64 5f 55 6e 6b 6e |(..Overl|oad_Unkn|
|00000350| 6f 77 6e 43 6f 6d 6d 61 | 6e 64 28 63 6f 6d 24 2c |ownComma|nd(com$,|
|00000360| 73 74 72 24 29 0d 01 72 | 09 ea 20 76 61 6c 0d 01 |str$)..r|.. val..|
|00000370| 7c 0d c8 8e 20 63 6f 6d | 24 20 ca 0d 01 86 12 20 ||... com|$ ..... |
|00000380| c9 20 22 41 55 54 4f 47 | 52 45 45 54 22 0d 01 90 |. "AUTOG|REET"...|
|00000390| 18 20 20 76 61 6c 3d a4 | 62 6f 6f 6c 65 61 6e 28 |.  val=.|boolean(|
|000003a0| 73 74 72 24 29 0d 01 9a | 0e 20 20 c8 8e 20 76 61 |str$)...|.  .. va|
|000003b0| 6c 20 ca 0d 01 a4 0c 20 | 20 20 c9 20 b9 2c a3 0d |l ..... |  . .,..|
|000003c0| 01 ae 15 20 20 20 20 61 | 75 74 6f 67 72 65 65 74 |...    a|utogreet|
|000003d0| 3d 76 61 6c 0d 01 b8 41 | 20 20 20 20 f2 44 69 73 |=val...A|    .Dis|
|000003e0| 70 6c 61 79 49 6e 66 6f | 28 22 41 75 74 6f 47 72 |playInfo|("AutoGr|
|000003f0| 65 65 74 20 74 75 72 6e | 65 64 20 22 2b a4 62 6f |eet turn|ed "+.bo|
|00000400| 6f 6c 74 65 78 74 28 61 | 75 74 6f 67 72 65 65 74 |oltext(a|utogreet|
|00000410| 29 2c 22 22 29 0d 01 c2 | 0b 20 20 20 c9 20 2d 32 |),"")...|.   . -2|
|00000420| 0d 01 cc 39 20 20 20 20 | f2 44 69 73 70 6c 61 79 |...9    |.Display|
|00000430| 57 61 72 6e 69 6e 67 28 | 22 53 79 6e 74 61 78 3a |Warning(|"Syntax:|
|00000440| 20 41 75 74 6f 47 72 65 | 65 74 20 3c 62 6f 6f 6c | AutoGre|et <bool|
|00000450| 65 61 6e 3e 22 2c 22 22 | 29 0d 01 d6 07 20 20 cb |ean>",""|)....  .|
|00000460| 0d 01 e0 06 20 7f 0d 01 | ea 13 20 20 f2 40 28 63 |.... ...|..  .@(c|
|00000470| 6f 6d 24 2c 73 74 72 24 | 29 0d 01 f4 05 cb 0d 01 |om$,str$|).......|
|00000480| fe 05 e1 0d 02 08 05 3a | 0d 02 12 1c f4 20 45 6e |.......:|..... En|
|00000490| 75 6d 65 72 61 74 65 20 | 6d 6f 64 75 6c 65 20 6e |umerate |module n|
|000004a0| 61 6d 65 73 0d 02 1c 23 | dd a4 4f 76 65 72 6c 6f |ames...#|..Overlo|
|000004b0| 61 64 5f 43 6f 6e 66 69 | 67 4d 6f 64 4e 61 6d 65 |ad_Confi|gModName|
|000004c0| 28 63 6f 75 6e 74 29 0d | 02 26 0a ea 20 72 65 74 |(count).|.&.. ret|
|000004d0| 24 0d 02 30 0f e7 20 63 | 6f 75 6e 74 3d 30 20 8c |$..0.. c|ount=0 .|
|000004e0| 0d 02 3a 15 20 72 65 74 | 24 3d 22 41 75 74 6f 47 |..:. ret|$="AutoG|
|000004f0| 72 65 65 74 22 0d 02 44 | 05 cc 0d 02 4e 15 20 72 |reet"..D|....N. r|
|00000500| 65 74 24 3d a4 40 28 63 | 6f 75 6e 74 2d 31 29 0d |et$=.@(c|ount-1).|
|00000510| 02 58 05 cd 0d 02 62 09 | 3d 72 65 74 24 0d 02 6c |.X....b.|=ret$..l|
|00000520| 05 3a 0d 02 76 22 f4 20 | 57 68 61 74 20 6f 70 74 |.:..v". |What opt|
|00000530| 69 6f 6e 73 20 64 6f 20 | 77 65 20 70 72 6f 76 69 |ions do |we provi|
|00000540| 64 65 20 3f 0d 02 80 25 | dd f2 4f 76 65 72 6c 6f |de ?...%|..Overlo|
|00000550| 61 64 5f 43 6f 6e 66 69 | 67 4f 70 74 69 6f 6e 73 |ad_Confi|gOptions|
|00000560| 28 6d 6f 64 75 6c 65 24 | 29 0d 02 8a 1b e7 20 6d |(module$|)..... m|
|00000570| 6f 64 75 6c 65 24 3d 22 | 41 75 74 6f 47 72 65 65 |odule$="|AutoGree|
|00000580| 74 22 20 8c 0d 02 94 17 | 20 f2 44 69 73 70 6c 61 |t" .....| .Displa|
|00000590| 79 43 6f 6e 66 69 67 28 | 22 22 29 0d 02 9e 34 20 |yConfig(|"")...4 |
|000005a0| f2 44 69 73 70 6c 61 79 | 43 6f 6e 66 69 67 28 22 |.Display|Config("|
|000005b0| 2d 2d 20 41 75 74 6f 47 | 72 65 65 74 20 63 6f 6e |-- AutoG|reet con|
|000005c0| 66 69 67 75 72 61 74 69 | 6f 6e 20 2d 2d 22 29 0d |figurati|on --").|
|000005d0| 02 a8 2a 20 f2 44 69 73 | 70 6c 61 79 43 6f 6e 66 |..* .Dis|playConf|
|000005e0| 69 67 28 22 59 6f 75 20 | 63 61 6e 20 63 6f 6e 66 |ig("You |can conf|
|000005f0| 69 67 75 72 65 20 3a 22 | 29 0d 02 b2 41 20 f2 44 |igure :"|)...A .D|
|00000600| 69 73 70 6c 61 79 43 6f | 6e 66 69 67 28 22 20 20 |isplayCo|nfig("  |
|00000610| 41 63 74 69 76 65 20 3a | 20 57 68 65 74 68 65 72 |Active :| Whether|
|00000620| 20 67 72 65 65 74 20 6f | 6e 20 6a 6f 69 6e 20 69 | greet o|n join i|
|00000630| 73 20 61 63 74 69 76 65 | 22 29 0d 02 bc 05 cc 0d |s active|")......|
|00000640| 02 c6 10 20 f2 40 28 6d | 6f 64 75 6c 65 24 29 0d |... .@(m|odule$).|
|00000650| 02 d0 05 cd 0d 02 da 05 | e1 0d 02 e4 05 3a 0d 02 |........|.....:..|
|00000660| ee 20 f4 20 48 6f 77 20 | 64 6f 20 77 65 20 63 6f |. . How |do we co|
|00000670| 6e 66 69 67 75 72 65 20 | 74 68 69 6e 67 73 0d 02 |nfigure |things..|
|00000680| f8 2f dd f2 4f 76 65 72 | 6c 6f 61 64 5f 43 6f 6e |./..Over|load_Con|
|00000690| 66 69 67 43 6f 6d 6d 61 | 6e 64 28 6d 6f 64 75 6c |figComma|nd(modul|
|000006a0| 65 24 2c 63 6f 6d 24 2c | 73 74 72 24 29 0d 03 02 |e$,com$,|str$)...|
|000006b0| 1b e7 20 6d 6f 64 75 6c | 65 24 3d 22 41 75 74 6f |.. modul|e$="Auto|
|000006c0| 47 72 65 65 74 22 20 8c | 0d 03 0c 0e 20 c8 8e 20 |Greet" .|.... .. |
|000006d0| 63 6f 6d 24 20 ca 0d 03 | 16 10 20 20 c9 20 22 41 |com$ ...|..  . "A|
|000006e0| 43 54 49 56 45 22 0d 03 | 20 19 20 20 20 76 61 6c |CTIVE"..| .   val|
|000006f0| 3d a4 62 6f 6f 6c 65 61 | 6e 28 73 74 72 24 29 0d |=.boolea|n(str$).|
|00000700| 03 2a 11 20 20 20 e7 20 | 76 61 6c 3d 2d 32 20 8c |.*.   . |val=-2 .|
|00000710| 0d 03 34 32 20 20 20 20 | f2 44 69 73 70 6c 61 79 |..42    |.Display|
|00000720| 43 6f 6e 66 69 67 28 22 | 53 79 6e 74 61 78 3a 20 |Config("|Syntax: |
|00000730| 41 63 74 69 76 65 20 3c | 62 6f 6f 6c 65 61 6e 3e |Active <|boolean>|
|00000740| 22 29 0d 03 3e 08 20 20 | 20 cc 0d 03 48 15 20 20 |")..>.  | ...H.  |
|00000750| 20 20 61 75 74 6f 67 72 | 65 65 74 3d 76 61 6c 0d |  autogr|eet=val.|
|00000760| 03 52 32 20 20 20 20 f2 | 44 42 5f 57 72 69 74 65 |.R2    .|DB_Write|
|00000770| 43 6f 6e 66 69 67 28 22 | 41 75 74 6f 47 72 65 65 |Config("|AutoGree|
|00000780| 74 5f 4f 6e 22 2c c3 61 | 75 74 6f 67 72 65 65 74 |t_On",.a|utogreet|
|00000790| 29 0d 03 5c 3d 20 20 20 | 20 f2 44 69 73 70 6c 61 |)..\=   | .Displa|
|000007a0| 79 43 6f 6e 66 69 67 28 | 22 53 65 74 20 41 63 74 |yConfig(|"Set Act|
|000007b0| 69 76 65 20 74 6f 20 22 | 2b a4 62 6f 6f 6c 74 65 |ive to "|+.boolte|
|000007c0| 78 74 28 61 75 74 6f 67 | 72 65 65 74 29 29 0d 03 |xt(autog|reet))..|
|000007d0| 66 08 20 20 20 cd 0d 03 | 70 04 0d 03 7a 0e 20 20 |f.   ...|p...z.  |
|000007e0| c9 20 22 4c 49 53 54 22 | 0d 03 84 19 20 20 20 f2 |. "LIST"|....   .|
|000007f0| 44 69 73 70 6c 61 79 43 | 6f 6e 66 69 67 28 22 22 |DisplayC|onfig(""|
|00000800| 29 0d 03 8e 37 20 20 20 | f2 44 69 73 70 6c 61 79 |)...7   |.Display|
|00000810| 43 6f 6e 66 69 67 28 22 | 41 63 74 69 76 65 20 3a |Config("|Active :|
|00000820| 20 22 2b a4 62 6f 6f 6c | 74 65 78 74 28 61 75 74 | "+.bool|text(aut|
|00000830| 6f 67 72 65 65 74 29 29 | 0d 03 8f 36 20 20 20 61 |ogreet))|...6   a|
|00000840| 24 3d a4 62 6f 6f 6c 74 | 65 78 74 28 bb 28 a4 44 |$=.boolt|ext(.(.D|
|00000850| 42 5f 52 65 61 64 43 6f | 6e 66 69 67 28 22 41 75 |B_ReadCo|nfig("Au|
|00000860| 74 6f 47 72 65 65 74 5f | 4f 6e 22 29 29 29 0d 03 |toGreet_|On")))..|
|00000870| 98 2e 20 20 20 f2 44 69 | 73 70 6c 61 79 43 6f 6e |..   .Di|splayCon|
|00000880| 66 69 67 28 22 20 20 28 | 43 6f 6e 66 69 67 75 72 |fig("  (|Configur|
|00000890| 65 64 20 22 2b 61 24 2b | 22 29 22 29 0d 03 ac 04 |ed "+a$+|")")....|
|000008a0| 0d 03 b6 0e 20 20 c9 20 | 22 48 45 4c 50 22 0d 03 |....  . |"HELP"..|
|000008b0| c0 27 20 20 20 f2 4f 76 | 65 72 6c 6f 61 64 5f 43 |.'   .Ov|erload_C|
|000008c0| 6f 6e 66 69 67 4f 70 74 | 69 6f 6e 73 28 6d 6f 64 |onfigOpt|ions(mod|
|000008d0| 75 6c 65 24 29 0d 03 ca | 04 0d 03 d4 07 20 20 7f |ule$)...|.....  .|
|000008e0| 0d 03 de 2f 20 20 20 f2 | 44 69 73 70 6c 61 79 43 |.../   .|DisplayC|
|000008f0| 6f 6e 66 69 67 28 22 43 | 6f 6d 6d 61 6e 64 20 6e |onfig("C|ommand n|
|00000900| 6f 74 20 72 65 63 6f 67 | 6e 69 73 65 64 22 29 0d |ot recog|nised").|
|00000910| 03 e8 06 20 cb 0d 03 f2 | 05 cc 0d 03 fc 1a 20 f2 |... ....|...... .|
|00000920| 40 28 6d 6f 64 75 6c 65 | 24 2c 63 6f 6d 24 2c 73 |@(module|$,com$,s|
|00000930| 74 72 24 29 0d 04 06 05 | cd 0d 04 10 05 e1 0d ff |tr$)....|........|
+--------+-------------------------+-------------------------+--------+--------+