/ Chip 2000 June / Chip_06_2000.iso / games / WheelofTime / WoTDemo.exe / System / IpDrv.u / ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 47 1e 2f 2f 3d 3d 3d 3d |........|G.//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 43 6c |========|=..// Cl|
|00000060| 69 65 6e 74 42 65 61 63 | 6f 6e 52 65 63 65 69 76 |ientBeac|onReceiv|
|00000070| 65 72 3a 20 52 65 63 65 | 69 76 65 73 20 4c 41 4e |er: Rece|ives LAN|
|00000080| 20 62 65 61 63 6f 6e 73 | 20 66 72 6f 6d 20 73 65 | beacons| from se|
|00000090| 72 76 65 72 73 2e 0d 0a | 2f 2f 3d 3d 3d 3d 3d 3d |rvers...|//======|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 63 6c 61 73 73 20 43 |=======.|.class C|
|000000f0| 6c 69 65 6e 74 42 65 61 | 63 6f 6e 52 65 63 65 69 |lientBea|conRecei|
|00000100| 76 65 72 20 65 78 74 65 | 6e 64 73 20 55 64 70 42 |ver exte|nds UdpB|
|00000110| 65 61 63 6f 6e 0d 0a 09 | 74 72 61 6e 73 69 65 6e |eacon...|transien|
|00000120| 74 3b 0d 0a 0d 0a 76 61 | 72 20 73 74 72 75 63 74 |t;....va|r struct|
|00000130| 20 42 65 61 63 6f 6e 49 | 6e 66 6f 0d 0a 7b 0d 0a | BeaconI|nfo..{..|
|00000140| 09 76 61 72 20 49 70 41 | 64 64 72 20 20 20 20 20 |.var IpA|ddr     |
|00000150| 20 41 64 64 72 3b 0d 0a | 09 76 61 72 20 66 6c 6f | Addr;..|.var flo|
|00000160| 61 74 20 20 20 20 20 20 | 20 54 69 6d 65 3b 0d 0a |at      | Time;..|
|00000170| 09 76 61 72 20 73 74 72 | 69 6e 67 20 20 20 20 20 |.var str|ing     |
|00000180| 20 54 65 78 74 3b 0d 0a | 7d 20 42 65 61 63 6f 6e | Text;..|} Beacon|
|00000190| 73 5b 33 32 5d 3b 0d 0a | 0d 0a 66 75 6e 63 74 69 |s[32];..|..functi|
|000001a0| 6f 6e 20 73 74 72 69 6e | 67 20 47 65 74 42 65 61 |on strin|g GetBea|
|000001b0| 63 6f 6e 41 64 64 72 65 | 73 73 28 20 69 6e 74 20 |conAddre|ss( int |
|000001c0| 69 20 29 0d 0a 7b 0d 0a | 09 72 65 74 75 72 6e 20 |i )..{..|.return |
|000001d0| 49 70 41 64 64 72 54 6f | 53 74 72 69 6e 67 28 42 |IpAddrTo|String(B|
|000001e0| 65 61 63 6f 6e 73 5b 69 | 5d 2e 41 64 64 72 29 3b |eacons[i|].Addr);|
|000001f0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000200| 73 74 72 69 6e 67 20 47 | 65 74 42 65 61 63 6f 6e |string G|etBeacon|
|00000210| 54 65 78 74 28 69 6e 74 | 20 69 29 0d 0a 7b 0d 0a |Text(int| i)..{..|
|00000220| 09 72 65 74 75 72 6e 20 | 42 65 61 63 6f 6e 73 5b |.return |Beacons[|
|00000230| 69 5d 2e 54 65 78 74 3b | 0d 0a 7d 0d 0a 0d 0a 66 |i].Text;|..}....f|
|00000240| 75 6e 63 74 69 6f 6e 20 | 42 65 67 69 6e 50 6c 61 |unction |BeginPla|
|00000250| 79 28 29 0d 0a 7b 0d 0a | 09 6c 6f 63 61 6c 20 49 |y()..{..|.local I|
|00000260| 70 41 64 64 72 20 41 64 | 64 72 3b 0d 0a 0d 0a 09 |pAddr Ad|dr;.....|
|00000270| 69 66 28 20 42 69 6e 64 | 50 6f 72 74 28 20 42 65 |if( Bind|Port( Be|
|00000280| 61 63 6f 6e 50 6f 72 74 | 2c 20 74 72 75 65 20 29 |aconPort|, true )|
|00000290| 20 3e 20 30 20 29 0d 0a | 09 7b 0d 0a 09 09 53 65 | > 0 )..|.{....Se|
|000002a0| 74 54 69 6d 65 72 28 20 | 31 2e 30 2c 20 74 72 75 |tTimer( |1.0, tru|
|000002b0| 65 20 29 3b 0d 0a 09 09 | 6c 6f 67 28 20 22 43 6c |e );....|log( "Cl|
|000002c0| 69 65 6e 74 42 65 61 63 | 6f 6e 52 65 63 65 69 76 |ientBeac|onReceiv|
|000002d0| 65 72 20 69 6e 69 74 69 | 61 6c 69 7a 65 64 2e 22 |er initi|alized."|
|000002e0| 20 29 3b 0d 0a 09 7d 0d | 0a 09 65 6c 73 65 0d 0a | );...}.|..else..|
|000002f0| 09 7b 0d 0a 09 09 6c 6f | 67 28 20 22 43 6c 69 65 |.{....lo|g( "Clie|
|00000300| 6e 74 42 65 61 63 6f 6e | 52 65 63 65 69 76 65 72 |ntBeacon|Receiver|
|00000310| 20 66 61 69 6c 65 64 3a | 20 42 65 61 63 6f 6e 20 | failed:| Beacon |
|00000320| 70 6f 72 74 20 69 6e 20 | 75 73 65 2e 22 20 29 3b |port in |use." );|
|00000330| 0d 0a 09 7d 0d 0a 0d 0a | 09 41 64 64 72 2e 41 64 |...}....|.Addr.Ad|
|00000340| 64 72 20 3d 20 42 72 6f | 61 64 63 61 73 74 41 64 |dr = Bro|adcastAd|
|00000350| 64 72 3b 0d 0a 09 41 64 | 64 72 2e 50 6f 72 74 20 |dr;...Ad|dr.Port |
|00000360| 3d 20 53 65 72 76 65 72 | 42 65 61 63 6f 6e 50 6f |= Server|BeaconPo|
|00000370| 72 74 3b 0d 0a 0d 0a 09 | 42 72 6f 61 64 63 61 73 |rt;.....|Broadcas|
|00000380| 74 42 65 61 63 6f 6e 28 | 41 64 64 72 29 3b 0d 0a |tBeacon(|Addr);..|
|00000390| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 44 65 |}....fun|ction De|
|000003a0| 73 74 72 6f 79 65 64 28 | 29 0d 0a 7b 0d 0a 09 6c |stroyed(|)..{...l|
|000003b0| 6f 67 28 20 22 43 6c 69 | 65 6e 74 42 65 61 63 6f |og( "Cli|entBeaco|
|000003c0| 6e 52 65 63 65 69 76 65 | 72 20 66 69 6e 69 73 68 |nReceive|r finish|
|000003d0| 65 64 2e 22 20 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |ed." );.|.}....fu|
|000003e0| 6e 63 74 69 6f 6e 20 54 | 69 6d 65 72 28 29 0d 0a |nction T|imer()..|
|000003f0| 7b 0d 0a 09 6c 6f 63 61 | 6c 20 69 6e 74 20 69 2c |{...loca|l int i,|
|00000400| 20 6a 3b 0d 0a 09 66 6f | 72 28 20 69 3d 30 3b 20 | j;...fo|r( i=0; |
|00000410| 69 3c 61 72 72 61 79 63 | 6f 75 6e 74 28 42 65 61 |i<arrayc|ount(Bea|
|00000420| 63 6f 6e 73 29 3b 20 69 | 2b 2b 20 29 0d 0a 09 09 |cons); i|++ )....|
|00000430| 69 66 0d 0a 09 09 28 09 | 42 65 61 63 6f 6e 73 5b |if....(.|Beacons[|
|00000440| 69 5d 2e 41 64 64 72 2e | 41 64 64 72 21 3d 30 0d |i].Addr.|Addr!=0.|
|00000450| 0a 09 09 26 26 09 4c 65 | 76 65 6c 2e 54 69 6d 65 |...&&.Le|vel.Time|
|00000460| 53 65 63 6f 6e 64 73 2d | 42 65 61 63 6f 6e 73 5b |Seconds-|Beacons[|
|00000470| 69 5d 2e 54 69 6d 65 3c | 42 65 61 63 6f 6e 54 69 |i].Time<|BeaconTi|
|00000480| 6d 65 6f 75 74 20 29 0d | 0a 09 09 09 42 65 61 63 |meout ).|....Beac|
|00000490| 6f 6e 73 5b 6a 2b 2b 5d | 20 3d 20 42 65 61 63 6f |ons[j++]| = Beaco|
|000004a0| 6e 73 5b 69 5d 3b 0d 0a | 09 66 6f 72 28 20 6a 3d |ns[i];..|.for( j=|
|000004b0| 6a 3b 20 6a 3c 61 72 72 | 61 79 63 6f 75 6e 74 28 |j; j<arr|aycount(|
|000004c0| 42 65 61 63 6f 6e 73 29 | 3b 20 6a 2b 2b 20 29 0d |Beacons)|; j++ ).|
|000004d0| 0a 09 09 42 65 61 63 6f | 6e 73 5b 6a 5d 2e 41 64 |...Beaco|ns[j].Ad|
|000004e0| 64 72 2e 41 64 64 72 3d | 30 3b 0d 0a 7d 0d 0a 0d |dr.Addr=|0;..}...|
|000004f0| 0a 66 75 6e 63 74 69 6f | 6e 20 42 72 6f 61 64 63 |.functio|n Broadc|
|00000500| 61 73 74 42 65 61 63 6f | 6e 28 49 70 41 64 64 72 |astBeaco|n(IpAddr|
|00000510| 20 41 64 64 72 29 0d 0a | 7b 0d 0a 09 53 65 6e 64 | Addr)..|{...Send|
|00000520| 54 65 78 74 28 20 41 64 | 64 72 2c 20 22 52 45 50 |Text( Ad|dr, "REP|
|00000530| 4f 52 54 22 20 29 3b 09 | 0d 0a 7d 0d 0a 0d 0a 65 |ORT" );.|..}....e|
|00000540| 76 65 6e 74 20 52 65 63 | 65 69 76 65 64 54 65 78 |vent Rec|eivedTex|
|00000550| 74 28 20 49 70 41 64 64 | 72 20 41 64 64 72 2c 20 |t( IpAdd|r Addr, |
|00000560| 73 74 72 69 6e 67 20 54 | 65 78 74 20 29 0d 0a 7b |string T|ext )..{|
|00000570| 0d 0a 09 6c 6f 63 61 6c | 20 69 6e 74 20 69 2c 20 |...local| int i, |
|00000580| 6e 3b 0d 0a 09 0d 0a 09 | 6e 20 3d 20 6c 65 6e 28 |n;......|n = len(|
|00000590| 42 65 61 63 6f 6e 50 72 | 6f 64 75 63 74 29 3b 0d |BeaconPr|oduct);.|
|000005a0| 0a 09 69 66 28 20 6c 65 | 66 74 28 54 65 78 74 2c |..if( le|ft(Text,|
|000005b0| 6e 2b 31 29 20 7e 3d 20 | 28 42 65 61 63 6f 6e 50 |n+1) ~= |(BeaconP|
|000005c0| 72 6f 64 75 63 74 24 22 | 20 22 29 20 29 0d 0a 09 |roduct$"| ") )...|
|000005d0| 7b 0d 0a 09 09 54 65 78 | 74 20 3d 20 6d 69 64 28 |{....Tex|t = mid(|
|000005e0| 54 65 78 74 2c 6e 2b 31 | 29 3b 0d 0a 09 09 41 64 |Text,n+1|);....Ad|
|000005f0| 64 72 2e 50 6f 72 74 20 | 3d 20 69 6e 74 28 54 65 |dr.Port |= int(Te|
|00000600| 78 74 29 3b 0d 0a 09 09 | 66 6f 72 28 20 69 3d 30 |xt);....|for( i=0|
|00000610| 3b 20 69 3c 61 72 72 61 | 79 63 6f 75 6e 74 28 42 |; i<arra|ycount(B|
|00000620| 65 61 63 6f 6e 73 29 3b | 20 69 2b 2b 20 29 0d 0a |eacons);| i++ )..|
|00000630| 09 09 09 69 66 28 20 42 | 65 61 63 6f 6e 73 5b 69 |...if( B|eacons[i|
|00000640| 5d 2e 41 64 64 72 3d 3d | 41 64 64 72 20 29 0d 0a |].Addr==|Addr )..|
|00000650| 09 09 09 09 62 72 65 61 | 6b 3b 0d 0a 09 09 69 66 |....brea|k;....if|
|00000660| 28 20 69 3d 3d 61 72 72 | 61 79 63 6f 75 6e 74 28 |( i==arr|aycount(|
|00000670| 42 65 61 63 6f 6e 73 29 | 20 29 0d 0a 09 09 09 66 |Beacons)| ).....f|
|00000680| 6f 72 28 20 69 3d 30 3b | 20 69 3c 61 72 72 61 79 |or( i=0;| i<array|
|00000690| 63 6f 75 6e 74 28 42 65 | 61 63 6f 6e 73 29 3b 20 |count(Be|acons); |
|000006a0| 69 2b 2b 20 29 0d 0a 09 | 09 09 09 69 66 28 20 42 |i++ )...|...if( B|
|000006b0| 65 61 63 6f 6e 73 5b 69 | 5d 2e 41 64 64 72 2e 41 |eacons[i|].Addr.A|
|000006c0| 64 64 72 3d 3d 30 20 29 | 0d 0a 09 09 09 09 09 62 |ddr==0 )|.......b|
|000006d0| 72 65 61 6b 3b 0d 0a 09 | 09 69 66 28 20 69 3d 3d |reak;...|.if( i==|
|000006e0| 61 72 72 61 79 63 6f 75 | 6e 74 28 42 65 61 63 6f |arraycou|nt(Beaco|
|000006f0| 6e 73 29 20 29 0d 0a 09 | 09 09 72 65 74 75 72 6e |ns) )...|..return|
|00000700| 3b 0d 0a 09 09 42 65 61 | 63 6f 6e 73 5b 69 5d 2e |;....Bea|cons[i].|
|00000710| 41 64 64 72 20 20 20 20 | 20 20 3d 20 41 64 64 72 |Addr    |  = Addr|
|00000720| 3b 0d 0a 09 09 42 65 61 | 63 6f 6e 73 5b 69 5d 2e |;....Bea|cons[i].|
|00000730| 54 69 6d 65 20 20 20 20 | 20 20 3d 20 4c 65 76 65 |Time    |  = Leve|
|00000740| 6c 2e 54 69 6d 65 53 65 | 63 6f 6e 64 73 3b 0d 0a |l.TimeSe|conds;..|
|00000750| 09 09 42 65 61 63 6f 6e | 73 5b 69 5d 2e 54 65 78 |..Beacon|s[i].Tex|
|00000760| 74 20 20 20 20 20 20 3d | 20 6d 69 64 28 54 65 78 |t      =| mid(Tex|
|00000770| 74 2c 49 6e 53 74 72 28 | 54 65 78 74 2c 22 20 22 |t,InStr(|Text," "|
|00000780| 29 2b 31 29 3b 0d 0a 09 | 7d 0d 0a 7d 0d 0a 0d 0a |)+1);...|}..}....|
|00000790| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+