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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 55 18 2f 2f 3d 3d 3d 3d |........|U.//====|
|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 55 64 |========|=..// Ud|
|00000060| 70 42 65 61 63 6f 6e 3a | 20 42 61 73 65 20 63 6c |pBeacon:| Base cl|
|00000070| 61 73 73 20 6f 66 20 62 | 65 61 63 6f 6e 20 73 65 |ass of b|eacon se|
|00000080| 6e 64 65 72 20 61 6e 64 | 20 72 65 63 65 69 76 65 |nder and| receive|
|00000090| 72 2e 0d 0a 2f 2f 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |r...//==|========|
|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 0d 0a 63 6c 61 | 73 73 20 55 64 70 42 65 |===..cla|ss UdpBe|
|000000f0| 61 63 6f 6e 20 65 78 74 | 65 6e 64 73 20 55 64 70 |acon ext|ends Udp|
|00000100| 4c 69 6e 6b 0d 0a 09 63 | 6f 6e 66 69 67 0d 0a 09 |Link...c|onfig...|
|00000110| 74 72 61 6e 73 69 65 6e | 74 3b 0d 0a 0d 0a 76 61 |transien|t;....va|
|00000120| 72 28 29 20 67 6c 6f 62 | 61 6c 63 6f 6e 66 69 67 |r() glob|alconfig|
|00000130| 20 62 6f 6f 6c 20 20 20 | 20 20 20 20 44 6f 42 65 | bool   |    DoBe|
|00000140| 61 63 6f 6e 3b 0d 0a 76 | 61 72 28 29 20 67 6c 6f |acon;..v|ar() glo|
|00000150| 62 61 6c 63 6f 6e 66 69 | 67 20 69 6e 74 20 20 20 |balconfi|g int   |
|00000160| 20 20 20 20 20 53 65 72 | 76 65 72 42 65 61 63 6f |     Ser|verBeaco|
|00000170| 6e 50 6f 72 74 3b 09 09 | 2f 2f 20 4c 69 73 74 65 |nPort;..|// Liste|
|00000180| 6e 20 70 6f 72 74 0d 0a | 76 61 72 28 29 20 67 6c |n port..|var() gl|
|00000190| 6f 62 61 6c 63 6f 6e 66 | 69 67 20 69 6e 74 20 20 |obalconf|ig int  |
|000001a0| 20 20 20 20 20 20 42 65 | 61 63 6f 6e 50 6f 72 74 |      Be|aconPort|
|000001b0| 3b 09 09 09 2f 2f 20 52 | 65 70 6c 79 20 70 6f 72 |;...// R|eply por|
|000001c0| 74 0d 0a 76 61 72 28 29 | 20 67 6c 6f 62 61 6c 63 |t..var()| globalc|
|000001d0| 6f 6e 66 69 67 20 66 6c | 6f 61 74 20 20 20 20 20 |onfig fl|oat     |
|000001e0| 20 42 65 61 63 6f 6e 54 | 69 6d 65 6f 75 74 3b 0d | BeaconT|imeout;.|
|000001f0| 0a 76 61 72 28 29 20 67 | 6c 6f 62 61 6c 63 6f 6e |.var() g|lobalcon|
|00000200| 66 69 67 20 73 74 72 69 | 6e 67 20 20 20 20 20 42 |fig stri|ng     B|
|00000210| 65 61 63 6f 6e 50 72 6f | 64 75 63 74 3b 0d 0a 0d |eaconPro|duct;...|
|00000220| 0a 76 61 72 20 69 6e 74 | 09 55 64 70 53 65 72 76 |.var int|.UdpServ|
|00000230| 65 72 51 75 65 72 79 50 | 6f 72 74 3b 0d 0a 76 61 |erQueryP|ort;..va|
|00000240| 72 20 69 6e 74 20 62 6f | 75 6e 64 70 6f 72 74 3b |r int bo|undport;|
|00000250| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 42 65 67 |....func|tion Beg|
|00000260| 69 6e 50 6c 61 79 28 29 | 0d 0a 7b 0d 0a 09 6c 6f |inPlay()|..{...lo|
|00000270| 63 61 6c 20 49 70 41 64 | 64 72 20 41 64 64 72 3b |cal IpAd|dr Addr;|
|00000280| 0d 0a 0d 0a 09 62 6f 75 | 6e 64 70 6f 72 74 20 3d |.....bou|ndport =|
|00000290| 20 42 69 6e 64 50 6f 72 | 74 28 53 65 72 76 65 72 | BindPor|t(Server|
|000002a0| 42 65 61 63 6f 6e 50 6f | 72 74 2c 20 54 72 75 65 |BeaconPo|rt, True|
|000002b0| 29 3b 0d 0a 09 69 66 20 | 28 20 62 6f 75 6e 64 70 |);...if |( boundp|
|000002c0| 6f 72 74 20 3d 3d 20 30 | 20 29 0d 0a 09 7b 0d 0a |ort == 0| )...{..|
|000002d0| 09 09 6c 6f 67 28 20 22 | 55 64 70 42 65 61 63 6f |..log( "|UdpBeaco|
|000002e0| 6e 20 66 61 69 6c 65 64 | 20 74 6f 20 62 69 6e 64 |n failed| to bind|
|000002f0| 20 61 20 70 6f 72 74 2e | 22 20 29 3b 0d 0a 09 09 | a port.|" );....|
|00000300| 72 65 74 75 72 6e 3b 0d | 0a 09 7d 0d 0a 0d 0a 09 |return;.|..}.....|
|00000310| 41 64 64 72 2e 41 64 64 | 72 20 3d 20 42 72 6f 61 |Addr.Add|r = Broa|
|00000320| 64 63 61 73 74 41 64 64 | 72 3b 0d 0a 09 41 64 64 |dcastAdd|r;...Add|
|00000330| 72 2e 50 6f 72 74 20 3d | 20 42 65 61 63 6f 6e 50 |r.Port =| BeaconP|
|00000340| 6f 72 74 3b 0d 0a 09 42 | 72 6f 61 64 63 61 73 74 |ort;...B|roadcast|
|00000350| 42 65 61 63 6f 6e 28 41 | 64 64 72 29 3b 20 2f 2f |Beacon(A|ddr); //|
|00000360| 20 49 6e 69 74 69 61 6c | 20 6e 6f 74 69 66 69 63 | Initial| notific|
|00000370| 61 74 69 6f 6e 2e 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |ation...|}....fun|
|00000380| 63 74 69 6f 6e 20 42 72 | 6f 61 64 63 61 73 74 42 |ction Br|oadcastB|
|00000390| 65 61 63 6f 6e 28 49 70 | 41 64 64 72 20 41 64 64 |eacon(Ip|Addr Add|
|000003a0| 72 29 0d 0a 7b 0d 0a 09 | 53 65 6e 64 54 65 78 74 |r)..{...|SendText|
|000003b0| 28 20 41 64 64 72 2c 20 | 42 65 61 63 6f 6e 50 72 |( Addr, |BeaconPr|
|000003c0| 6f 64 75 63 74 20 40 20 | 4d 69 64 28 4c 65 76 65 |oduct @ |Mid(Leve|
|000003d0| 6c 2e 47 65 74 41 64 64 | 72 65 73 73 55 52 4c 28 |l.GetAdd|ressURL(|
|000003e0| 29 2c 49 6e 53 74 72 28 | 4c 65 76 65 6c 2e 47 65 |),InStr(|Level.Ge|
|000003f0| 74 41 64 64 72 65 73 73 | 55 52 4c 28 29 2c 22 3a |tAddress|URL(),":|
|00000400| 22 29 2b 31 29 20 40 20 | 4c 65 76 65 6c 2e 47 61 |")+1) @ |Level.Ga|
|00000410| 6d 65 2e 47 65 74 42 65 | 61 63 6f 6e 54 65 78 74 |me.GetBe|aconText|
|00000420| 28 29 20 29 3b 0d 0a 09 | 2f 2f 4c 6f 67 28 20 22 |() );...|//Log( "|
|00000430| 55 64 70 42 65 61 63 6f | 6e 3a 20 73 65 6e 64 69 |UdpBeaco|n: sendi|
|00000440| 6e 67 20 72 65 70 6c 79 | 20 74 6f 20 22 24 49 70 |ng reply| to "$Ip|
|00000450| 41 64 64 72 54 6f 53 74 | 72 69 6e 67 28 41 64 64 |AddrToSt|ring(Add|
|00000460| 72 29 20 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |r) );..}|....func|
|00000470| 74 69 6f 6e 20 42 72 6f | 61 64 63 61 73 74 42 65 |tion Bro|adcastBe|
|00000480| 61 63 6f 6e 51 75 65 72 | 79 28 49 70 41 64 64 72 |aconQuer|y(IpAddr|
|00000490| 20 41 64 64 72 29 0d 0a | 7b 0d 0a 09 53 65 6e 64 | Addr)..|{...Send|
|000004a0| 54 65 78 74 28 20 41 64 | 64 72 2c 20 42 65 61 63 |Text( Ad|dr, Beac|
|000004b0| 6f 6e 50 72 6f 64 75 63 | 74 20 40 20 55 64 70 53 |onProduc|t @ UdpS|
|000004c0| 65 72 76 65 72 51 75 65 | 72 79 50 6f 72 74 20 29 |erverQue|ryPort )|
|000004d0| 3b 0d 0a 09 2f 2f 4c 6f | 67 28 20 22 55 64 70 42 |;...//Lo|g( "UdpB|
|000004e0| 65 61 63 6f 6e 3a 20 73 | 65 6e 64 69 6e 67 20 71 |eacon: s|ending q|
|000004f0| 75 65 72 79 20 72 65 70 | 6c 79 20 74 6f 20 22 24 |uery rep|ly to "$|
|00000500| 49 70 41 64 64 72 54 6f | 53 74 72 69 6e 67 28 41 |IpAddrTo|String(A|
|00000510| 64 64 72 29 20 29 3b 0d | 0a 7d 0d 0a 0d 0a 65 76 |ddr) );.|.}....ev|
|00000520| 65 6e 74 20 52 65 63 65 | 69 76 65 64 54 65 78 74 |ent Rece|ivedText|
|00000530| 28 20 49 70 41 64 64 72 | 20 41 64 64 72 2c 20 73 |( IpAddr| Addr, s|
|00000540| 74 72 69 6e 67 20 54 65 | 78 74 20 29 0d 0a 7b 0d |tring Te|xt )..{.|
|00000550| 0a 09 69 66 28 20 54 65 | 78 74 20 3d 3d 20 22 52 |..if( Te|xt == "R|
|00000560| 45 50 4f 52 54 22 20 29 | 0d 0a 09 09 42 72 6f 61 |EPORT" )|....Broa|
|00000570| 64 63 61 73 74 42 65 61 | 63 6f 6e 28 41 64 64 72 |dcastBea|con(Addr|
|00000580| 29 3b 0d 0a 0d 0a 09 69 | 66 28 20 54 65 78 74 20 |);.....i|f( Text |
|00000590| 3d 3d 20 22 52 45 50 4f | 52 54 51 55 45 52 59 22 |== "REPO|RTQUERY"|
|000005a0| 20 29 0d 0a 09 09 42 72 | 6f 61 64 63 61 73 74 42 | )....Br|oadcastB|
|000005b0| 65 61 63 6f 6e 51 75 65 | 72 79 28 41 64 64 72 29 |eaconQue|ry(Addr)|
|000005c0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000005d0| 20 44 65 73 74 72 6f 79 | 65 64 28 29 0d 0a 7b 0d | Destroy|ed()..{.|
|000005e0| 0a 09 53 75 70 65 72 2e | 44 65 73 74 72 6f 79 65 |..Super.|Destroye|
|000005f0| 64 28 29 3b 0d 0a 09 2f | 2f 4c 6f 67 28 22 53 65 |d();.../|/Log("Se|
|00000600| 72 76 65 72 42 65 61 63 | 6f 6e 20 44 65 73 74 72 |rverBeac|on Destr|
|00000610| 6f 79 65 64 22 29 3b 0d | 0a 7d 0d 0a 0d 0a 00    |oyed");.|.}..... |
+--------+-------------------------+-------------------------+--------+--------+