Computer Shopper 146

home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 146 / dpcs0400.iso / Internet / Vzones / virtualzones.exe / data1.cab / mag_files / cd0c0000.dat < prev next >
Unknown | 1999-12-09 | 91.8 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	The Print Shop DAT `(archive/printShopDAT)`	ext	Unsupported
`1%`	dexvert	Microsoft Internet Explorer Cache `(archive/msieCache)`	ext	Unsupported
`1%`	dexvert	Norton Utilities Image FAT backup `(archive/nortonUtilitiesImageFATBackup)`	ext	Unsupported
`1%`	dexvert	RepiPack archive `(archive/repiPack)`	ext	Unsupported
`1%`	dexvert	Simis `(archive/simis)`	ext	Unsupported
`1%`	dexvert	ORIC Tape Image `(archive/oricTape)`	ext	Unsupported
`1%`	dexvert	PSM 2 compressed sound `(audio/psm2CompressedSound)`	ext	Unsupported
`1%`	dexvert	Electronic Arts Music format `(music/electronicArtsMusicFormat)`	ext	Unsupported
`1%`	dexvert	Khronos Texture `(image/khronosTexture)`	ext	Unsupported
`1%`	dexvert	IRIT 3D model `(poly/irit3DModel)`	ext	Unsupported
`1%`	dexvert	Adventure Game Studio `(other/adventureGameStudio)`	ext	Unsupported
`1%`	dexvert	Battle Moon Wars game data `(other/battleMoonWarsGameData)`	ext	Unsupported
`1%`	dexvert	Boost Text serialization `(other/boostTextSerialization)`	ext	Unsupported
`1%`	dexvert	Bullfrog Object Data `(other/bullfrogObjectData)`	ext	Unsupported
`1%`	dexvert	CCmF / Resource Composite File `(other/ccmfResourceCompositeFile)`	ext	Unsupported
`1%`	dexvert	The Chessmaster classic games library `(other/chessmasterClassicGamesLibrary)`	ext	Unsupported
`1%`	dexvert	The Chessmaster opening book `(other/chessmasterOpeningBook)`	ext	Unsupported
`1%`	dexvert	The Chessmaster user settings `(other/chessmasterUserSettings)`	ext	Unsupported
`1%`	dexvert	Concurrent DOS Serial Terminal Configuration `(other/concurrentDOSSerialTerminalConfiguration)`	ext	Unsupported
`1%`	dexvert	Cubic Player archive cache `(other/cubicPlayerArchiveCache)`	ext	Unsupported
`1%`	dexvert	DemoManiac Vectors `(other/demoManiacVectors)`	ext	Unsupported
`1%`	dexvert	Diagsoft installation Data `(other/diagsoftInstallationData)`	ext	Unsupported
`1%`	dexvert	Dr. Hardware Sysinfo `(other/drHardwareSysInfo)`	ext	Unsupported
`1%`	dexvert	Dr. Solomon's Antivirus messages `(other/drSolomonsAntivirusMessages)`	ext	Unsupported
`1%`	dexvert	Dune II Saved Game `(other/duneIISavedGame)`	ext	Unsupported
`1%`	dexvert	FontLab Aliases `(other/fontLabAliases)`	ext	Unsupported
`1%`	dexvert	Full Tilt Pinball Data `(other/fullTiltPinballData)`	ext	Unsupported
`1%`	dexvert	Genome Engine game data `(other/genomeEngineGameData)`	ext	Unsupported
`1%`	dexvert	HPFS-Access DB `(other/hpfsAccessDB)`	ext	Unsupported
`1%`	dexvert	ICU Data `(other/icuData)`	ext	Unsupported
`1%`	dexvert	InfoComics game data `(other/infoComicsGameData)`	ext	Unsupported
`1%`	dexvert	IRFF game data container `(other/irffGameDataContainer)`	ext	Unsupported
`1%`	dexvert	Madden 2004 data file `(other/madden2004DataFile)`	ext	Unsupported
`1%`	dexvert	McAfee AntiVirus data `(other/mcAfeeAntiVirusData)`	ext	Unsupported
`1%`	dexvert	McAfee VirusScan data `(other/mcAfeeVirusScanData)`	ext	Unsupported
`1%`	dexvert	McAfee VShield data `(other/mcAfeeVShieldData)`	ext	Unsupported
`1%`	dexvert	MGPA-file game archive `(other/mgpaFileGameArchive)`	ext	Unsupported
`1%`	dexvert	MSN/Windows Live Messenger Log file `(other/msnMessengerLogFile)`	ext	Unsupported
`1%`	dexvert	NetShield configuration `(other/netShieldConfiguration)`	ext	Unsupported
`1%`	dexvert	NetShield Virus Pattern Library `(other/netShieldVirusPattern)`	ext	Unsupported
`1%`	dexvert	Network Associates VirusScan data `(other/networkAssociatesVirusScanData)`	ext	Unsupported
`1%`	dexvert	Palm Desktop DateBook `(other/palmDesktopDateBook)`	ext	Unsupported
`1%`	dexvert	PartoutResource Data `(other/partoutResourceData)`	ext	Unsupported
`1%`	dexvert	Pico-8 POD data archive `(other/pico8PODDataArchive)`	ext	Unsupported
`1%`	dexvert	Pro/ENGINEER file `(other/proENGINEERFile)`	ext	Unsupported
`1%`	dexvert	PSM 2 configuration `(other/psm2Configuration)`	ext	Unsupported
`1%`	dexvert	Radix game data `(other/radixGameData)`	ext	Unsupported
`1%`	dexvert	7 Colors game data archive `(other/sevenColorsGameDataArchive)`	ext	Unsupported
`1%`	dexvert	StarCalc data `(other/starCalcData)`	ext	Unsupported
`1%`	dexvert	StarWriter configuration `(other/starWriterConfiguration)`	ext	Unsupported
`1%`	dexvert	SuperProject graphics drivers `(other/superProjectGraphicsDrivers)`	ext	Unsupported
`1%`	dexvert	The Norton AntiVirus Virus Signatures `(other/theNortonAntiVirusSignatures)`	ext	Unsupported
`1%`	dexvert	3D-Pinball for Windows table Data `(other/threeDPinballTableData)`	ext	Unsupported
`1%`	dexvert	Thunderbyte AV `(other/thunderbyteAV)`	ext	Unsupported
`1%`	dexvert	Track Attack track Data `(other/trackAttackTrackData)`	ext	Unsupported
`1%`	dexvert	TriTryst game Data `(other/triTrystGameData)`	ext	Unsupported
`1%`	dexvert	Vallen JPegger index `(other/vallenJPeggerIndex)`	ext	Unsupported
`1%`	dexvert	YAB! Baseball game data `(other/yabBaseballGameData)`	ext	Unsupported
`1%`	dexvert	Abuse demo Data `(other/abuseDemoData)`	ext	Unsupported
`1%`	dexvert	Amberstar game data `(other/amberstarGameData)`	ext	Unsupported
`1%`	dexvert	ANSI/INCIT 378 fingerprints format (gen) `(other/ansiINCIT378FingerprintsFormat)`	ext	Unsupported
`1%`	dexvert	Caiman graphics `(other/caimanGraphics)`	ext	Unsupported
`1%`	dexvert	CaveStory save game `(other/caveStorySaveGame)`	ext	Unsupported
`1%`	dexvert	Centurion: Defender of Rome game data `(other/centurionDefenderOfRomeGameData)`	ext	Unsupported
`1%`	dexvert	C++ Symbol Data `(other/cppSymbolDatai)`	ext	Unsupported
`1%`	dexvert	Cubic Player animation `(other/cubicPlayerAnimation)`	ext	Unsupported
`1%`	dexvert	Empire animation game Data `(other/empireAnimationGameData)`	ext	Unsupported
`1%`	dexvert	Fahrenheit game data archive `(other/fahrenheitGameDataArchive)`	ext	Unsupported
`1%`	dexvert	Gaze configuration `(other/gazeConfiguration)`	ext	Unsupported
`1%`	dexvert	MADE Engine DB `(other/madeEngineDB)`	ext	Unsupported
`1%`	dexvert	MirandaIM database-archive `(other/mirandaIMDatabaseArchive)`	ext	Unsupported
`1%`	dexvert	Mirror's Edge save game `(other/mirrorsEdgeSaveGame)`	ext	Unsupported
`1%`	dexvert	Norton Disk Doctor UnDo file `(other/nortonDiskDoctorUnDoFile)`	ext	Unsupported
`1%`	dexvert	Obitus game Data `(other/obitusGameData)`	ext	Unsupported
`1%`	dexvert	PBG3 Archive Format for Touhou ESoD `(other/pbg3ArchiveFormatForTouhouESoD)`	ext	Unsupported
`1%`	dexvert	Playmaker Football Team data `(other/playmakerFootballTeamData)`	ext	Unsupported
`1%`	dexvert	PLBM Games high scores `(other/plbmGamesHighScores)`	ext	Unsupported
`1%`	dexvert	Sea Graphics Viewer data `(other/seaGraphicsViewerData)`	ext	Unsupported
`1%`	dexvert	StarForce protection container `(other/starForceProtectionContainer)`	ext	Unsupported
`1%`	dexvert	Super Solvers: Gizmos and Gadgets! players `(other/superSolversGizmosGadgetsPlayers)`	ext	Unsupported
`1%`	dexvert	TS Online modems definitions `(other/tsOnlineModemsDefinitions)`	ext	Unsupported
`1%`	dexvert	U.R.B.A.N The Cyborg Project game data `(other/urbanTheCyborgProjectGameData)`	ext	Unsupported
`1%`	dexvert	WT Comparison Test Data `(other/wtComparisonTestData)`	ext	Unsupported
`100%`	file	data	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 64 4d 00 13 00 07 00 15 | 00 0c 00 6c 37 17 c5 85 |dM......|...l7...|
|00000010| 00 00 04 08 00 00 1a 8c | 00 0c 00 6b 37 17 c5 85 |........|...k7...|
|00000020| 00 00 1e 98 00 00 38 8a | 00 0c 00 71 37 17 c5 85 |......8.|...q7...|
|00000030| 00 00 57 26 00 00 1a 75 | 00 0c 00 72 37 17 c5 86 |..W&...u|...r7...|
|00000040| 00 00 71 9f 00 00 06 90 | 00 0c 00 00 37 17 c5 87 |..q.....|....7...|
|00000050| 00 00 78 33 00 00 02 59 | 00 0c 00 70 37 17 c5 87 |..x3...Y|...p7...|
|00000060| 00 00 7a 90 00 00 0f 0d | 00 0c 00 03 37 17 c5 87 |..z.....|....7...|
|00000070| 00 00 89 a1 00 00 66 33 | 00 0c 00 6f 37 17 c5 87 |......f3|...o7...|
|00000080| 00 00 ef d8 00 00 05 1b | 00 0c 00 6e 37 17 c5 88 |........|...n7...|
|00000090| 00 00 f4 f7 00 00 00 36 | 00 0c 00 6a 37 17 c5 89 |.......6|...j7...|
|000000a0| 00 00 f5 31 00 00 4d 7d | 00 0c 00 65 37 17 c5 89 |...1..M}|...e7...|
|000000b0| 00 01 42 b2 00 00 08 f5 | 00 0c 00 0f 37 17 c5 89 |..B.....|....7...|
|000000c0| 00 01 4b ab 00 00 07 65 | 00 0c 00 10 37 17 c5 89 |..K....e|....7...|
|000000d0| 00 01 53 14 00 00 05 1c | 00 0c 00 09 37 17 c5 89 |..S.....|....7...|
|000000e0| 00 01 58 34 00 00 02 28 | 00 0c 00 0e 37 17 c5 89 |..X4...(|....7...|
|000000f0| 00 01 5a 60 00 00 02 d4 | 00 0c 00 08 37 17 c5 8a |..Z`....|....7...|
|00000100| 00 01 5d 38 00 00 02 dd | 00 0c 00 0a 37 17 c5 8a |..]8....|....7...|
|00000110| 00 01 60 19 00 00 01 17 | 00 0c 00 0b 37 17 c5 8a |..`.....|....7...|
|00000120| 00 01 61 34 00 00 06 6e | 00 0c 00 0c 37 17 c5 8a |..a4...n|....7...|
|00000130| 00 01 67 a6 00 00 04 8a | 00 0c 00 0d 37 17 c5 8a |..g.....|....7...|
|00000140| 00 01 6c 34 00 00 00 61 | 00 0c 00 6d 37 17 c5 8a |..l4...a|...m7...|
|00000150| 00 01 6c 99 00 00 02 a5 | ff ff ff ff 00 00 00 00 |..l.....|........|
|00000160| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000170| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000180| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000190| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000001a0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000001b0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000001c0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000001d0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000001e0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000001f0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000200| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000210| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000220| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000230| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000240| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000250| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000260| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000270| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000280| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000290| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000002a0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000002b0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000002c0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000002d0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000002e0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000002f0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000300| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000310| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000320| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000330| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000340| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000350| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000360| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000370| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000380| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000390| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000003a0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000003b0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000003c0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000003d0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000003e0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|000003f0| ff ff ff ff 00 00 00 00 | ff ff ff ff 00 00 00 00 |........|........|
|00000400| ff ff ff ff 00 00 00 00 | 73 4d 0a 20 0a 20 0a 70 |........|sM. . .p|
|00000410| 72 6f 63 20 67 65 74 70 | 72 6f 70 20 7b 20 6e 6f |roc getp|rop { no|
|00000420| 69 64 20 70 72 6f 70 6e | 61 6d 65 20 7d 20 7b 0a |id propn|ame } {.|
|00000430| 20 75 70 76 61 72 20 63 | 6f 6e 74 65 78 74 20 63 | upvar c|ontext c|
|00000440| 6f 6e 74 65 78 74 0a 20 | 73 65 74 20 5b 73 65 74 |ontext. |set [set|
|00000450| 20 63 6f 6e 74 65 78 74 | 5d 28 74 68 69 73 29 20 | context|](this) |
|00000460| 24 6e 6f 69 64 0a 20 75 | 70 76 61 72 20 6d 73 67 |$noid. u|pvar msg|
|00000470| 4e 6f 20 6d 73 67 4e 6f | 0a 20 75 70 76 61 72 20 |No msgNo|. upvar |
|00000480| 77 61 69 74 76 61 72 20 | 77 61 69 74 76 61 72 0a |waitvar |waitvar.|
|00000490| 20 0a 20 70 75 74 73 20 | 22 63 6f 6e 74 65 78 74 | . puts |"context|
|000004a0| 20 3d 20 24 63 6f 6e 74 | 65 78 74 22 0a 20 70 75 | = $cont|ext". pu|
|000004b0| 74 73 20 22 45 6e 74 65 | 72 65 64 20 67 65 74 70 |ts "Ente|red getp|
|000004c0| 72 6f 70 20 70 72 6f 63 | 22 0a 20 72 65 71 75 65 |rop proc|". reque|
|000004d0| 73 74 20 30 20 32 31 31 | 20 7b 0a 20 74 61 72 67 |st 0 211| {. targ|
|000004e0| 65 74 20 24 6e 6f 69 64 | 0a 20 70 72 6f 70 6e 61 |et $noid|. propna|
|000004f0| 6d 65 20 24 70 72 6f 70 | 6e 61 6d 65 0a 20 7d 20 |me $prop|name. } |
|00000500| 32 31 32 0a 20 0a 20 70 | 75 74 73 20 22 52 65 74 |212. . p|uts "Ret|
|00000510| 75 72 6e 65 64 20 66 72 | 6f 6d 20 47 65 74 43 6f |urned fr|om GetCo|
|00000520| 6d 6d 6f 6e 50 72 6f 70 | 5f 72 65 71 75 65 73 74 |mmonProp|_request|
|00000530| 22 0a 20 69 66 20 7b 5b | 40 20 72 65 70 6c 79 20 |". if {[|@ reply |
|00000540| 73 75 63 63 65 73 73 5d | 20 3d 3d 20 30 7d 20 7b |success]| == 0} {|
|00000550| 0a 20 0a 20 70 75 74 73 | 20 22 54 72 79 69 6e 67 |. . puts| "Trying|
|00000560| 20 74 6f 20 72 65 74 75 | 72 6e 20 53 55 43 43 45 | to retu|rn SUCCE|
|00000570| 53 53 22 0a 20 70 75 74 | 73 20 22 70 72 6f 70 64 |SS". put|s "propd|
|00000580| 61 74 61 20 3d 20 5b 40 | 20 72 65 70 6c 79 20 70 |ata = [@| reply p|
|00000590| 72 6f 70 64 61 74 61 5d | 22 0a 20 72 65 74 75 72 |ropdata]|". retur|
|000005a0| 6e 20 5b 40 20 72 65 70 | 6c 79 20 70 72 6f 70 64 |n [@ rep|ly propd|
|000005b0| 61 74 61 5d 0a 20 7d 20 | 65 6c 73 65 20 7b 0a 20 |ata]. } |else {. |
|000005c0| 70 75 74 73 20 22 54 72 | 79 69 6e 67 20 74 6f 20 |puts "Tr|ying to |
|000005d0| 68 61 6e 64 6c 65 46 61 | 69 6c 75 72 65 22 0a 20 |handleFa|ilure". |
|000005e0| 75 6e 62 6c 6f 63 6b 0a | 20 68 61 6e 64 6c 65 46 |unblock.| handleF|
|000005f0| 61 69 6c 75 72 65 20 5b | 40 20 72 65 70 6c 79 20 |ailure [|@ reply |
|00000600| 73 75 63 63 65 73 73 5d | 20 5b 40 20 72 65 70 6c |success]| [@ repl|
|00000610| 79 20 66 61 69 6c 5f 6d | 73 67 5d 0a 20 7d 0a 20 |y fail_m|sg]. }. |
|00000620| 70 75 74 73 20 22 42 6f | 74 74 6f 6d 20 6f 66 20 |puts "Bo|ttom of |
|00000630| 72 6f 75 74 69 6e 65 20 | 28 73 68 6f 75 6c 64 6e |routine |(shouldn|
|00000640| 27 74 20 73 65 65 20 74 | 68 69 73 29 22 0a 7d 0a |'t see t|his)".}.|
|00000650| 70 72 6f 63 20 67 65 74 | 55 52 4c 20 7b 20 6e 6f |proc get|URL { no|
|00000660| 69 64 20 7d 20 7b 0a 20 | 0a 20 72 65 71 75 65 73 |id } {. |. reques|
|00000670| 74 20 30 20 31 36 31 20 | 7b 0a 20 74 61 72 67 65 |t 0 161 |{. targe|
|00000680| 74 20 24 6e 6f 69 64 0a | 20 7d 20 31 36 32 0a 20 |t $noid.| } 162. |
|00000690| 69 66 20 7b 5b 40 20 72 | 65 70 6c 79 20 73 75 63 |if {[@ r|eply suc|
|000006a0| 63 65 73 73 5d 20 3d 3d | 20 30 7d 20 7b 0a 20 72 |cess] ==| 0} {. r|
|000006b0| 65 74 75 72 6e 20 5b 40 | 20 72 65 70 6c 79 20 55 |eturn [@| reply U|
|000006c0| 52 4c 5d 20 0a 20 7d 20 | 65 6c 73 65 20 7b 0a 20 |RL] . } |else {. |
|000006d0| 75 6e 62 6c 6f 63 6b 0a | 20 68 61 6e 64 6c 65 46 |unblock.| handleF|
|000006e0| 61 69 6c 75 72 65 20 5b | 40 20 72 65 70 6c 79 20 |ailure [|@ reply |
|000006f0| 73 75 63 63 65 73 73 5d | 20 5b 40 20 72 65 70 6c |success]| [@ repl|
|00000700| 79 20 66 61 69 6c 5f 6d | 73 67 5d 0a 20 7d 0a 7d |y fail_m|sg]. }.}|
|00000710| 0a 70 72 6f 63 20 73 61 | 66 65 4f 70 65 6e 46 69 |.proc sa|feOpenFi|
|00000720| 6c 65 20 7b 20 66 69 6c | 65 6e 61 6d 65 20 7d 20 |le { fil|ename } |
|00000730| 7b 0a 20 0a 20 0a 20 0a | 20 63 61 74 63 68 20 7b |{. . . .| catch {|
|00000740| 20 6f 70 65 6e 55 52 4c | 20 22 68 74 74 70 3a 2f | openURL| "http:/|
|00000750| 2f 77 77 77 2e 77 6f 72 | 6c 64 73 61 77 61 79 2e |/www.wor|ldsaway.|
|00000760| 63 6f 6d 2f 77 6f 72 6c | 64 70 61 67 65 73 2f 6f |com/worl|dpages/o|
|00000770| 70 65 6e 62 65 74 61 2f | 24 7b 66 69 6c 65 6e 61 |penbeta/|${filena|
|00000780| 6d 65 7d 22 20 33 20 7d | 20 65 72 72 6d 73 67 20 |me}" 3 }| errmsg |
|00000790| 72 76 0a 20 0a 20 69 66 | 20 7b 20 24 72 76 20 3d |rv. . if| { $rv =|
|000007a0| 3d 20 31 20 7d 20 7b 0a | 20 69 6e 66 6f 5f 62 61 |= 1 } {.| info_ba|
|000007b0| 6c 6c 6f 6f 6e 20 24 50 | 6c 61 79 65 72 41 63 74 |lloon $P|layerAct|
|000007c0| 6f 72 20 22 43 6f 75 6c | 64 20 6e 6f 74 20 6f 70 |or "Coul|d not op|
|000007d0| 65 6e 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 55 |en infor|mation U|
|000007e0| 52 4c 2e 22 0a 20 7d 0a | 7d 0a 70 72 6f 63 20 65 |RL.". }.|}.proc e|
|000007f0| 64 69 74 55 52 4c 5f 6f | 6b 20 7b 20 64 6c 6f 67 |ditURL_o|k { dlog|
|00000800| 20 74 61 72 67 65 74 20 | 7d 20 7b 0a 20 0a 20 0a | target |} {. . .|
|00000810| 20 63 6f 6d 6d 61 6e 64 | 20 30 20 31 36 34 20 7b | command| 0 164 {|
|00000820| 0a 20 74 61 72 67 65 74 | 20 24 74 61 72 67 65 74 |. target| $target|
|00000830| 0a 20 6e 65 77 55 52 4c | 6c 61 62 65 6c 20 5b 64 |. newURL|label [d|
|00000840| 69 61 6c 6f 67 47 65 74 | 56 61 6c 75 65 20 24 64 |ialogGet|Value $d|
|00000850| 6c 6f 67 20 22 55 52 4c | 6c 61 62 65 6c 22 5d 0a |log "URL|label"].|
|00000860| 20 6e 65 77 55 52 4c 20 | 5b 64 69 61 6c 6f 67 47 | newURL |[dialogG|
|00000870| 65 74 56 61 6c 75 65 20 | 24 64 6c 6f 67 20 22 55 |etValue |$dlog "U|
|00000880| 52 4c 22 5d 0a 20 7d 0a | 20 0a 20 0a 20 64 69 61 |RL"]. }.| . . dia|
|00000890| 6c 6f 67 4b 69 6c 6c 20 | 24 64 6c 6f 67 20 0a 20 |logKill |$dlog . |
|000008a0| 0a 20 0a 7d 0a 70 72 6f | 63 20 65 64 69 74 54 4d |. .}.pro|c editTM|
|000008b0| 41 5f 6f 6b 20 7b 20 64 | 6c 6f 67 20 74 61 72 67 |A_ok { d|log targ|
|000008c0| 65 74 20 7d 20 7b 0a 20 | 0a 20 0a 20 63 6f 6d 6d |et } {. |. . comm|
|000008d0| 61 6e 64 20 30 20 31 39 | 33 20 7b 0a 20 74 61 72 |and 0 19|3 {. tar|
|000008e0| 67 65 74 20 24 74 61 72 | 67 65 74 0a 20 6e 65 77 |get $tar|get. new|
|000008f0| 54 4d 41 20 5b 64 69 61 | 6c 6f 67 47 65 74 56 61 |TMA [dia|logGetVa|
|00000900| 6c 75 65 20 24 64 6c 6f | 67 20 22 54 4d 41 22 5d |lue $dlo|g "TMA"]|
|00000910| 0a 20 7d 0a 20 0a 20 0a | 20 64 69 61 6c 6f 67 4b |. }. . .| dialogK|
|00000920| 69 6c 6c 20 24 64 6c 6f | 67 20 0a 20 0a 20 0a 7d |ill $dlo|g . . .}|
|00000930| 0a 70 72 6f 63 20 45 53 | 50 6d 61 69 6c 5f 6f 6b |.proc ES|Pmail_ok|
|00000940| 20 7b 20 64 6c 6f 67 20 | 7d 20 7b 0a 20 67 6c 6f | { dlog |} {. glo|
|00000950| 62 61 6c 20 74 6f 0a 20 | 67 6c 6f 62 61 6c 20 74 |bal to. |global t|
|00000960| 65 78 74 0a 20 72 65 71 | 75 65 73 74 20 30 20 32 |ext. req|uest 0 2|
|00000970| 34 34 20 7b 0a 20 74 6f | 20 24 74 6f 0a 20 74 65 |44 {. to| $to. te|
|00000980| 78 74 20 24 74 65 78 74 | 0a 20 7d 20 37 30 20 0a |xt $text|. } 70 .|
|00000990| 20 0a 20 64 69 61 6c 6f | 67 4b 69 6c 6c 20 24 64 | . dialo|gKill $d|
|000009a0| 6c 6f 67 20 0a 20 0a 20 | 66 6f 72 67 65 74 20 74 |log . . |forget t|
|000009b0| 6f 0a 20 66 6f 72 67 65 | 74 20 74 65 78 74 0a 20 |o. forge|t text. |
|000009c0| 0a 20 0a 20 69 66 20 7b | 5b 40 20 72 65 70 6c 79 |. . if {|[@ reply|
|000009d0| 20 73 75 63 63 65 73 73 | 5d 20 3d 3d 20 30 7d 20 | success|] == 0} |
|000009e0| 7b 0a 20 69 6e 66 6f 5f | 62 61 6c 6c 6f 6f 6e 20 |{. info_|balloon |
|000009f0| 30 20 22 45 53 50 20 6d | 61 69 6c 20 73 65 6e 74 |0 "ESP m|ail sent|
|00000a00| 2e 22 0a 20 7d 20 65 6c | 73 65 20 7b 0a 20 68 61 |.". } el|se {. ha|
|00000a10| 6e 64 6c 65 46 61 69 6c | 75 72 65 20 5b 40 20 72 |ndleFail|ure [@ r|
|00000a20| 65 70 6c 79 20 73 75 63 | 63 65 73 73 5d 20 5b 40 |eply suc|cess] [@|
|00000a30| 20 72 65 70 6c 79 20 66 | 61 69 6c 5f 6d 73 67 5d | reply f|ail_msg]|
|00000a40| 0a 20 7d 0a 20 0a 7d 0a | 70 72 6f 63 20 67 65 74 |. }. .}.|proc get|
|00000a50| 46 61 63 69 6e 67 54 65 | 78 74 20 7b 20 6f 72 69 |FacingTe|xt { ori|
|00000a60| 65 6e 74 61 74 69 6f 6e | 20 7d 20 7b 0a 69 66 20 |entation| } {.if |
|00000a70| 7b 24 6f 72 69 65 6e 74 | 61 74 69 6f 6e 20 3d 3d |{$orient|ation ==|
|00000a80| 20 30 7d 20 7b 0a 20 72 | 65 74 75 72 6e 20 22 46 | 0} {. r|eturn "F|
|00000a90| 6f 72 77 61 72 64 22 0a | 7d 0a 69 66 20 7b 24 6f |orward".|}.if {$o|
|00000aa0| 72 69 65 6e 74 61 74 69 | 6f 6e 20 3d 3d 20 31 7d |rientati|on == 1}|
|00000ab0| 20 7b 0a 20 72 65 74 75 | 72 6e 20 22 52 69 67 68 | {. retu|rn "Righ|
|00000ac0| 74 22 0a 7d 0a 69 66 20 | 7b 24 6f 72 69 65 6e 74 |t".}.if |{$orient|
|00000ad0| 61 74 69 6f 6e 20 3d 3d | 20 32 7d 20 7b 0a 20 72 |ation ==| 2} {. r|
|00000ae0| 65 74 75 72 6e 20 22 42 | 61 63 6b 22 0a 7d 0a 69 |eturn "B|ack".}.i|
|00000af0| 66 20 7b 24 6f 72 69 65 | 6e 74 61 74 69 6f 6e 20 |f {$orie|ntation |
|00000b00| 3d 3d 20 33 7d 20 7b 0a | 20 72 65 74 75 72 6e 20 |== 3} {.| return |
|00000b10| 22 4c 65 66 74 22 0a 7d | 0a 7d 0a 70 72 6f 63 20 |"Left".}|.}.proc |
|00000b20| 6d 6f 76 65 4f 62 6a 65 | 63 74 5f 75 70 64 61 74 |moveObje|ct_updat|
|00000b30| 65 20 7b 20 74 61 72 67 | 65 74 20 63 6f 6f 72 64 |e { targ|et coord|
|00000b40| 73 20 6f 72 69 65 6e 74 | 61 74 69 6f 6e 7d 20 7b |s orient|ation} {|
|00000b50| 0a 20 72 65 71 75 65 73 | 74 20 30 20 31 39 30 20 |. reques|t 0 190 |
|00000b60| 7b 0a 20 69 74 65 6d 20 | 24 74 61 72 67 65 74 0a |{. item |$target.|
|00000b70| 20 63 6f 6f 72 64 73 20 | 24 63 6f 6f 72 64 73 0a | coords |$coords.|
|00000b80| 20 6f 72 69 65 6e 74 61 | 74 69 6f 6e 20 24 6f 72 | orienta|tion $or|
|00000b90| 69 65 6e 74 61 74 69 6f | 6e 0a 20 7d 20 31 39 31 |ientatio|n. } 191|
|00000ba0| 0a 20 69 66 20 7b 5b 40 | 20 72 65 70 6c 79 20 73 |. if {[@| reply s|
|00000bb0| 75 63 63 65 73 73 5d 20 | 3d 3d 20 30 7d 20 7b 0a |uccess] |== 0} {.|
|00000bc0| 20 40 6f 62 6a 20 24 74 | 61 72 67 65 74 20 70 6f | @obj $t|arget po|
|00000bd0| 73 69 74 69 6f 6e 20 5b | 40 20 72 65 70 6c 79 20 |sition [|@ reply |
|00000be0| 63 6f 6f 72 64 73 5d 0a | 20 63 68 61 6e 67 65 46 |coords].| changeF|
|00000bf0| 61 63 69 6e 67 20 5b 40 | 20 72 65 70 6c 79 20 6f |acing [@| reply o|
|00000c00| 72 69 65 6e 74 61 74 69 | 6f 6e 5d 20 24 74 61 72 |rientati|on] $tar|
|00000c10| 67 65 74 0a 20 72 65 64 | 72 61 77 20 24 74 61 72 |get. red|raw $tar|
|00000c20| 67 65 74 0a 20 7d 20 65 | 6c 73 65 20 7b 0a 20 68 |get. } e|lse {. h|
|00000c30| 61 6e 64 6c 65 46 61 69 | 6c 75 72 65 20 5b 40 20 |andleFai|lure [@ |
|00000c40| 72 65 70 6c 79 20 73 75 | 63 63 65 73 73 5d 20 5b |reply su|ccess] [|
|00000c50| 40 20 72 65 70 6c 79 20 | 66 61 69 6c 5f 6d 73 67 |@ reply |fail_msg|
|00000c60| 5d 0a 20 7d 0a 7d 0a 70 | 72 6f 63 20 6d 6f 76 65 |]. }.}.p|roc move|
|00000c70| 4f 62 6a 65 63 74 5f 6f | 6b 20 7b 20 64 6c 6f 67 |Object_o|k { dlog|
|00000c80| 20 74 61 72 67 65 74 20 | 64 6f 6e 65 7d 20 7b 0a | target |done} {.|
|00000c90| 20 73 65 74 20 50 6f 73 | 58 20 5b 64 69 61 6c 6f | set Pos|X [dialo|
|00000ca0| 67 47 65 74 56 61 6c 75 | 65 20 24 64 6c 6f 67 20 |gGetValu|e $dlog |
|00000cb0| 22 50 6f 73 58 22 5d 0a | 20 73 65 74 20 50 6f 73 |"PosX"].| set Pos|
|00000cc0| 59 20 5b 64 69 61 6c 6f | 67 47 65 74 56 61 6c 75 |Y [dialo|gGetValu|
|00000cd0| 65 20 24 64 6c 6f 67 20 | 22 50 6f 73 59 22 5d 20 |e $dlog |"PosY"] |
|00000ce0| 0a 20 73 65 74 20 50 6f | 73 5a 20 5b 64 69 61 6c |. set Po|sZ [dial|
|00000cf0| 6f 67 47 65 74 56 61 6c | 75 65 20 24 64 6c 6f 67 |ogGetVal|ue $dlog|
|00000d00| 20 22 50 6f 73 5a 22 5d | 0a 20 0a 20 69 66 20 7b | "PosZ"]|. . if {|
|00000d10| 28 5b 69 73 4e 75 6d 62 | 65 72 20 24 50 6f 73 58 |([isNumb|er $PosX|
|00000d20| 5d 20 3d 3d 20 30 29 20 | 7c 7c 20 28 24 50 6f 73 |] == 0) ||| ($Pos|
|00000d30| 58 20 3d 3d 20 22 22 29 | 7d 20 7b 0a 20 73 65 74 |X == "")|} {. set|
|00000d40| 20 50 6f 73 58 20 30 0a | 20 75 6e 62 6c 6f 63 6b | PosX 0.| unblock|
|00000d50| 0a 20 68 61 6e 64 6c 65 | 46 61 69 6c 75 72 65 20 |. handle|Failure |
|00000d60| 35 20 22 58 20 63 6f 6f | 72 64 69 6e 61 74 65 20 |5 "X coo|rdinate |
|00000d70| 6d 75 73 74 20 62 65 20 | 61 20 6e 75 6d 62 65 72 |must be |a number|
|00000d80| 2e 22 0a 20 7d 0a 20 69 | 66 20 7b 28 5b 69 73 4e |.". }. i|f {([isN|
|00000d90| 75 6d 62 65 72 20 24 50 | 6f 73 59 5d 20 3d 3d 20 |umber $P|osY] == |
|00000da0| 30 29 20 7c 7c 20 28 24 | 50 6f 73 59 20 3d 3d 20 |0) || ($|PosY == |
|00000db0| 22 22 29 7d 20 7b 0a 20 | 73 65 74 20 50 6f 73 59 |"")} {. |set PosY|
|00000dc0| 20 30 0a 20 75 6e 62 6c | 6f 63 6b 0a 20 68 61 6e | 0. unbl|ock. han|
|00000dd0| 64 6c 65 46 61 69 6c 75 | 72 65 20 35 20 22 59 20 |dleFailu|re 5 "Y |
|00000de0| 63 6f 6f 72 64 69 6e 61 | 74 65 20 6d 75 73 74 20 |coordina|te must |
|00000df0| 62 65 20 61 20 6e 75 6d | 62 65 72 2e 22 0a 20 7d |be a num|ber.". }|
|00000e00| 0a 20 69 66 20 7b 28 5b | 69 73 4e 75 6d 62 65 72 |. if {([|isNumber|
|00000e10| 20 24 50 6f 73 5a 5d 20 | 3d 3d 20 30 29 20 7c 7c | $PosZ] |== 0) |||
|00000e20| 20 28 24 50 6f 73 5a 20 | 3d 3d 20 22 22 29 7d 20 | ($PosZ |== "")} |
|00000e30| 7b 0a 20 73 65 74 20 50 | 6f 73 5a 20 30 0a 20 75 |{. set P|osZ 0. u|
|00000e40| 6e 62 6c 6f 63 6b 0a 20 | 68 61 6e 64 6c 65 46 61 |nblock. |handleFa|
|00000e50| 69 6c 75 72 65 20 35 20 | 22 5a 20 63 6f 6f 72 64 |ilure 5 |"Z coord|
|00000e60| 69 6e 61 74 65 20 6d 75 | 73 74 20 62 65 20 61 20 |inate mu|st be a |
|00000e70| 6e 75 6d 62 65 72 2e 22 | 0a 20 7d 0a 20 6c 61 70 |number."|. }. lap|
|00000e80| 70 65 6e 64 20 63 6f 6f | 72 64 73 20 24 50 6f 73 |pend coo|rds $Pos|
|00000e90| 58 20 24 50 6f 73 59 20 | 24 50 6f 73 5a 0a 20 0a |X $PosY |$PosZ. .|
|00000ea0| 20 73 65 74 20 6f 72 69 | 65 6e 74 61 74 69 6f 6e | set ori|entation|
|00000eb0| 20 5b 40 6f 62 6a 20 24 | 74 61 72 67 65 74 20 6f | [@obj $|target o|
|00000ec0| 72 69 65 6e 74 61 74 69 | 6f 6e 5d 20 0a 20 6d 6f |rientati|on] . mo|
|00000ed0| 76 65 4f 62 6a 65 63 74 | 5f 75 70 64 61 74 65 20 |veObject|_update |
|00000ee0| 24 74 61 72 67 65 74 20 | 24 63 6f 6f 72 64 73 20 |$target |$coords |
|00000ef0| 24 6f 72 69 65 6e 74 61 | 74 69 6f 6e 20 0a 20 0a |$orienta|tion . .|
|00000f00| 20 0a 20 69 66 20 7b 24 | 64 6f 6e 65 7d 20 7b 0a | . if {$|done} {.|
|00000f10| 20 64 69 61 6c 6f 67 4b | 69 6c 6c 20 24 64 6c 6f | dialogK|ill $dlo|
|00000f20| 67 20 0a 20 7d 0a 20 0a | 20 0a 7d 0a 70 72 6f 63 |g . }. .| .}.proc|
|00000f30| 20 6d 6f 76 65 4f 62 6a | 65 63 74 5f 6c 65 66 74 | moveObj|ect_left|
|00000f40| 72 69 67 68 74 20 7b 20 | 64 6c 6f 67 20 74 61 72 |right { |dlog tar|
|00000f50| 67 65 74 20 6c 65 66 74 | 72 69 67 68 74 7d 20 7b |get left|right} {|
|00000f60| 0a 20 73 65 74 20 63 6f | 6f 72 64 73 20 5b 40 6f |. set co|ords [@o|
|00000f70| 62 6a 20 24 74 61 72 67 | 65 74 20 70 6f 73 69 74 |bj $targ|et posit|
|00000f80| 69 6f 6e 5d 0a 20 73 65 | 74 20 6f 72 69 65 6e 74 |ion]. se|t orient|
|00000f90| 61 74 69 6f 6e 20 5b 40 | 6f 62 6a 20 24 74 61 72 |ation [@|obj $tar|
|00000fa0| 67 65 74 20 6f 72 69 65 | 6e 74 61 74 69 6f 6e 5d |get orie|ntation]|
|00000fb0| 0a 20 69 66 20 7b 24 6c | 65 66 74 72 69 67 68 74 |. if {$l|eftright|
|00000fc0| 20 3d 3d 20 31 7d 20 7b | 0a 20 73 65 74 20 6f 72 | == 1} {|. set or|
|00000fd0| 69 65 6e 74 61 74 69 6f | 6e 20 5b 65 78 70 72 20 |ientatio|n [expr |
|00000fe0| 28 24 6f 72 69 65 6e 74 | 61 74 69 6f 6e 20 2b 20 |($orient|ation + |
|00000ff0| 31 29 20 25 20 34 5d 0a | 20 7d 20 65 6c 73 65 20 |1) % 4].| } else |
|00001000| 7b 0a 20 73 65 74 20 6f | 72 69 65 6e 74 61 74 69 |{. set o|rientati|
|00001010| 6f 6e 20 5b 65 78 70 72 | 20 28 24 6f 72 69 65 6e |on [expr| ($orien|
|00001020| 74 61 74 69 6f 6e 20 2d | 20 31 29 20 25 20 34 5d |tation -| 1) % 4]|
|00001030| 20 0a 20 7d 0a 20 6d 6f | 76 65 4f 62 6a 65 63 74 | . }. mo|veObject|
|00001040| 5f 75 70 64 61 74 65 20 | 24 74 61 72 67 65 74 20 |_update |$target |
|00001050| 24 63 6f 6f 72 64 73 20 | 24 6f 72 69 65 6e 74 61 |$coords |$orienta|
|00001060| 74 69 6f 6e 0a 20 0a 20 | 64 69 61 6c 6f 67 53 65 |tion. . |dialogSe|
|00001070| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 22 4f 72 |tValue $|dlog "Or|
|00001080| 69 65 6e 74 61 74 69 6f | 6e 22 20 22 4f 72 69 65 |ientatio|n" "Orie|
|00001090| 6e 74 61 74 69 6f 6e 3a | 20 5b 67 65 74 46 61 63 |ntation:| [getFac|
|000010a0| 69 6e 67 54 65 78 74 20 | 24 6f 72 69 65 6e 74 61 |ingText |$orienta|
|000010b0| 74 69 6f 6e 5d 22 0a 7d | 0a 70 72 6f 63 20 63 6f |tion]".}|.proc co|
|000010c0| 6e 6e 65 63 74 69 6f 6e | 45 78 69 74 20 7b 20 61 |nnection|Exit { a|
|000010d0| 63 74 6f 72 20 66 61 63 | 69 6e 67 20 63 6f 6f 72 |ctor fac|ing coor|
|000010e0| 64 73 20 7d 20 7b 0a 20 | 0a 20 73 74 61 72 74 57 |ds } {. |. startW|
|000010f0| 61 6c 6b 69 6e 67 20 24 | 61 63 74 6f 72 20 24 63 |alking $|actor $c|
|00001100| 6f 6f 72 64 73 0a 20 0a | 20 69 66 20 7b 24 66 61 |oords. .| if {$fa|
|00001110| 63 69 6e 67 20 3d 3d 20 | 32 7d 20 7b 0a 20 73 65 |cing == |2} {. se|
|00001120| 74 20 63 6f 6f 72 64 73 | 20 5b 6c 72 65 70 6c 61 |t coords| [lrepla|
|00001130| 63 65 20 24 63 6f 6f 72 | 64 73 20 31 20 31 20 35 |ce $coor|ds 1 1 5|
|00001140| 31 32 5d 0a 20 7d 20 65 | 6c 73 65 69 66 20 7b 24 |12]. } e|lseif {$|
|00001150| 66 61 63 69 6e 67 20 3d | 3d 20 31 7d 20 7b 0a 20 |facing =|= 1} {. |
|00001160| 73 65 74 20 63 6f 6f 72 | 64 73 20 5b 6c 72 65 70 |set coor|ds [lrep|
|00001170| 6c 61 63 65 20 24 63 6f | 6f 72 64 73 20 30 20 30 |lace $co|ords 0 0|
|00001180| 20 5b 65 78 70 72 20 35 | 31 32 20 2b 20 31 30 30 | [expr 5|12 + 100|
|00001190| 5d 5d 0a 20 7d 20 65 6c | 73 65 69 66 20 7b 24 66 |]]. } el|seif {$f|
|000011a0| 61 63 69 6e 67 20 3d 3d | 20 30 7d 20 7b 0a 20 73 |acing ==| 0} {. s|
|000011b0| 65 74 20 63 6f 6f 72 64 | 73 20 5b 6c 72 65 70 6c |et coord|s [lrepl|
|000011c0| 61 63 65 20 24 63 6f 6f | 72 64 73 20 31 20 31 20 |ace $coo|rds 1 1 |
|000011d0| 30 5d 0a 20 7d 20 65 6c | 73 65 20 7b 0a 20 73 65 |0]. } el|se {. se|
|000011e0| 74 20 63 6f 6f 72 64 73 | 20 5b 6c 72 65 70 6c 61 |t coords| [lrepla|
|000011f0| 63 65 20 24 63 6f 6f 72 | 64 73 20 30 20 30 20 2d |ce $coor|ds 0 0 -|
|00001200| 31 30 30 5d 0a 20 7d 0a | 20 0a 20 0a 20 73 74 61 |100]. }.| . . sta|
|00001210| 72 74 57 61 6c 6b 69 6e | 67 20 24 61 63 74 6f 72 |rtWalkin|g $actor|
|00001220| 20 24 63 6f 6f 72 64 73 | 0a 20 0a 20 71 75 65 75 | $coords|. . queu|
|00001230| 65 2d 6d 73 67 20 24 61 | 63 74 6f 72 20 36 38 20 |e-msg $a|ctor 68 |
|00001240| 7b 20 0a 20 0a 20 7d 0a | 7d 0a 70 72 6f 63 20 63 |{ . . }.|}.proc c|
|00001250| 6f 6e 6e 65 63 74 69 6f | 6e 45 6e 74 65 72 20 7b |onnectio|nEnter {|
|00001260| 20 61 63 74 6f 72 20 7d | 20 7b 0a 20 73 65 74 20 | actor }| {. set |
|00001270| 66 61 63 69 6e 67 20 5b | 40 6f 62 6a 20 24 61 63 |facing [|@obj $ac|
|00001280| 74 6f 72 20 6f 72 69 65 | 6e 74 61 74 69 6f 6e 5d |tor orie|ntation]|
|00001290| 0a 20 0a 20 73 65 74 20 | 6e 65 77 5f 63 6f 6f 72 |. . set |new_coor|
|000012a0| 64 73 20 5b 40 6f 62 6a | 20 24 61 63 74 6f 72 20 |ds [@obj| $actor |
|000012b0| 70 6f 73 69 74 69 6f 6e | 20 24 63 6f 6f 72 64 73 |position| $coords|
|000012c0| 5d 0a 20 73 65 74 20 63 | 6f 6f 72 64 73 20 24 6e |]. set c|oords $n|
|000012d0| 65 77 5f 63 6f 6f 72 64 | 73 0a 20 0a 20 69 66 20 |ew_coord|s. . if |
|000012e0| 7b 24 66 61 63 69 6e 67 | 20 3d 3d 20 32 7d 20 7b |{$facing| == 2} {|
|000012f0| 0a 20 73 65 74 20 63 6f | 6f 72 64 73 20 5b 6c 72 |. set co|ords [lr|
|00001300| 65 70 6c 61 63 65 20 24 | 63 6f 6f 72 64 73 20 31 |eplace $|coords 1|
|00001310| 20 31 20 2d 31 30 30 5d | 0a 20 7d 20 65 6c 73 65 | 1 -100]|. } else|
|00001320| 69 66 20 7b 24 66 61 63 | 69 6e 67 20 3d 3d 20 31 |if {$fac|ing == 1|
|00001330| 7d 20 7b 0a 20 73 65 74 | 20 63 6f 6f 72 64 73 20 |} {. set| coords |
|00001340| 5b 6c 72 65 70 6c 61 63 | 65 20 24 63 6f 6f 72 64 |[lreplac|e $coord|
|00001350| 73 20 30 20 30 20 2d 31 | 30 30 5d 0a 20 7d 20 65 |s 0 0 -1|00]. } e|
|00001360| 6c 73 65 69 66 20 7b 24 | 66 61 63 69 6e 67 20 3d |lseif {$|facing =|
|00001370| 3d 20 30 7d 20 7b 0a 20 | 73 65 74 20 63 6f 6f 72 |= 0} {. |set coor|
|00001380| 64 73 20 5b 6c 72 65 70 | 6c 61 63 65 20 24 63 6f |ds [lrep|lace $co|
|00001390| 6f 72 64 73 20 31 20 31 | 20 35 31 32 5d 0a 20 7d |ords 1 1| 512]. }|
|000013a0| 20 65 6c 73 65 20 7b 0a | 20 73 65 74 20 63 6f 6f | else {.| set coo|
|000013b0| 72 64 73 20 5b 6c 72 65 | 70 6c 61 63 65 20 24 63 |rds [lre|place $c|
|000013c0| 6f 6f 72 64 73 20 30 20 | 30 20 5b 65 78 70 72 20 |oords 0 |0 [expr |
|000013d0| 35 31 32 20 2b 20 31 30 | 30 5d 5d 0a 20 7d 0a 20 |512 + 10|0]]. }. |
|000013e0| 0a 20 40 6f 62 6a 20 24 | 61 63 74 6f 72 20 70 6f |. @obj $|actor po|
|000013f0| 73 69 74 69 6f 6e 20 24 | 63 6f 6f 72 64 73 0a 20 |sition $|coords. |
|00001400| 73 65 74 56 69 73 69 62 | 6c 65 53 74 61 74 65 20 |setVisib|leState |
|00001410| 24 61 63 74 6f 72 20 30 | 0a 20 72 65 64 72 61 77 |$actor 0|. redraw|
|00001420| 20 24 61 63 74 6f 72 0a | 20 0a 20 73 74 61 72 74 | $actor.| . start|
|00001430| 57 61 6c 6b 69 6e 67 20 | 24 61 63 74 6f 72 20 24 |Walking |$actor $|
|00001440| 6e 65 77 5f 63 6f 6f 72 | 64 73 0a 20 0a 20 40 6f |new_coor|ds. . @o|
|00001450| 62 6a 20 24 61 63 74 6f | 72 20 70 6f 73 69 74 69 |bj $acto|r positi|
|00001460| 6f 6e 20 24 6e 65 77 5f | 63 6f 6f 72 64 73 0a 7d |on $new_|coords.}|
|00001470| 0a 70 72 6f 63 20 72 73 | 5f 62 75 74 74 6f 6e 31 |.proc rs|_button1|
|00001480| 20 7b 20 73 65 6c 66 20 | 7d 20 7b 0a 20 75 70 76 | { self |} {. upv|
|00001490| 61 72 20 23 30 20 67 5f | 64 69 61 6c 6f 67 20 64 |ar #0 g_|dialog d|
|000014a0| 6c 6f 67 3b 0a 20 75 70 | 76 61 72 20 23 30 20 67 |log;. up|var #0 g|
|000014b0| 5f 61 76 61 74 61 72 5f | 6e 61 6d 65 20 61 76 61 |_avatar_|name ava|
|000014c0| 74 61 72 5f 6e 61 6d 65 | 3b 0a 20 75 70 76 61 72 |tar_name|;. upvar|
|000014d0| 20 23 30 20 67 5f 67 65 | 74 5f 72 65 61 6c 20 67 | #0 g_ge|t_real g|
|000014e0| 65 74 5f 72 65 61 6c 3b | 0a 20 73 65 74 20 61 64 |et_real;|. set ad|
|000014f0| 64 72 65 73 73 20 5b 64 | 69 61 6c 6f 67 47 65 74 |dress [d|ialogGet|
|00001500| 56 61 6c 75 65 20 24 64 | 6c 6f 67 20 41 64 64 72 |Value $d|log Addr|
|00001510| 65 73 73 5d 0a 20 73 65 | 74 20 61 72 65 61 43 6f |ess]. se|t areaCo|
|00001520| 64 65 20 5b 64 69 61 6c | 6f 67 47 65 74 56 61 6c |de [dial|ogGetVal|
|00001530| 75 65 20 24 64 6c 6f 67 | 20 41 72 65 61 43 6f 64 |ue $dlog| AreaCod|
|00001540| 65 5d 0a 20 73 65 74 20 | 67 6f 74 6f 5f 72 65 67 |e]. set |goto_reg|
|00001550| 67 72 6f 75 70 20 5b 64 | 69 61 6c 6f 67 47 65 74 |group [d|ialogGet|
|00001560| 56 61 6c 75 65 20 24 64 | 6c 6f 67 20 52 65 67 67 |Value $d|log Regg|
|00001570| 72 6f 75 70 5d 0a 20 64 | 69 61 6c 6f 67 4b 69 6c |roup]. d|ialogKil|
|00001580| 6c 20 24 64 6c 6f 67 0a | 20 62 6c 6f 63 6b 0a 20 |l $dlog.| block. |
|00001590| 72 65 71 75 65 73 74 20 | 30 20 31 32 34 20 7b 0a |request |0 124 {.|
|000015a0| 20 61 76 61 74 61 72 5f | 6e 61 6d 65 20 24 61 76 | avatar_|name $av|
|000015b0| 61 74 61 72 5f 6e 61 6d | 65 0a 20 61 64 64 72 65 |atar_nam|e. addre|
|000015c0| 73 73 20 24 61 64 64 72 | 65 73 73 0a 20 61 72 65 |ss $addr|ess. are|
|000015d0| 61 43 6f 64 65 20 24 61 | 72 65 61 43 6f 64 65 0a |aCode $a|reaCode.|
|000015e0| 20 67 6f 74 6f 5f 72 65 | 67 67 72 6f 75 70 20 24 | goto_re|ggroup $|
|000015f0| 67 6f 74 6f 5f 72 65 67 | 67 72 6f 75 70 0a 20 67 |goto_reg|group. g|
|00001600| 65 74 5f 72 65 61 6c 20 | 24 67 65 74 5f 72 65 61 |et_real |$get_rea|
|00001610| 6c 0a 20 7d 20 37 30 0a | 20 75 6e 62 6c 6f 63 6b |l. } 70.| unblock|
|00001620| 0a 20 69 66 20 7b 5b 40 | 20 72 65 70 6c 79 20 73 |. if {[@| reply s|
|00001630| 75 63 63 65 73 73 5d 20 | 21 3d 20 30 7d 20 7b 0a |uccess] |!= 0} {.|
|00001640| 20 68 61 6e 64 6c 65 46 | 61 69 6c 75 72 65 20 5b | handleF|ailure [|
|00001650| 40 20 72 65 70 6c 79 20 | 73 75 63 63 65 73 73 5d |@ reply |success]|
|00001660| 20 5b 40 20 72 65 70 6c | 79 20 66 61 69 6c 5f 6d | [@ repl|y fail_m|
|00001670| 73 67 5d 0a 20 7d 0a 7d | 0a 70 72 6f 63 20 41 63 |sg]. }.}|.proc Ac|
|00001680| 63 65 73 73 43 74 72 6c | 43 61 6e 63 65 6c 20 7b |cessCtrl|Cancel {|
|00001690| 20 73 65 6c 66 20 7d 20 | 7b 0a 20 75 70 76 61 72 | self } |{. upvar|
|000016a0| 20 23 30 20 67 5f 64 69 | 61 6c 6f 67 20 64 6c 6f | #0 g_di|alog dlo|
|000016b0| 67 3b 0a 20 0a 20 64 69 | 61 6c 6f 67 4b 69 6c 6c |g;. . di|alogKill|
|000016c0| 20 24 64 6c 6f 67 0a 7d | 0a 70 72 6f 63 20 41 63 | $dlog.}|.proc Ac|
|000016d0| 63 65 73 73 43 74 72 6c | 4d 6f 64 69 66 79 20 7b |cessCtrl|Modify {|
|000016e0| 20 73 65 6c 66 20 7d 20 | 7b 0a 20 75 70 76 61 72 | self } |{. upvar|
|000016f0| 20 23 30 20 67 5f 64 69 | 61 6c 6f 67 20 64 6c 6f | #0 g_di|alog dlo|
|00001700| 67 3b 0a 20 0a 20 73 65 | 74 20 67 75 65 73 74 41 |g;. . se|t guestA|
|00001710| 6c 6c 6f 77 65 64 20 5b | 64 69 61 6c 6f 67 47 65 |llowed [|dialogGe|
|00001720| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 41 47 42 |tValue $|dlog AGB|
|00001730| 6f 78 5d 0a 20 73 65 74 | 20 6d 61 78 41 76 61 74 |ox]. set| maxAvat|
|00001740| 61 72 73 20 5b 64 69 61 | 6c 6f 67 47 65 74 56 61 |ars [dia|logGetVa|
|00001750| 6c 75 65 20 24 64 6c 6f | 67 20 4d 41 45 64 69 74 |lue $dlo|g MAEdit|
|00001760| 5d 0a 20 73 65 74 20 6d | 61 78 47 68 6f 73 74 73 |]. set m|axGhosts|
|00001770| 20 5b 64 69 61 6c 6f 67 | 47 65 74 56 61 6c 75 65 | [dialog|GetValue|
|00001780| 20 24 64 6c 6f 67 20 4d | 47 45 64 69 74 5d 0a 20 | $dlog M|GEdit]. |
|00001790| 69 66 20 7b 24 6d 61 78 | 41 76 61 74 61 72 73 20 |if {$max|Avatars |
|000017a0| 3d 3d 20 22 6d 61 78 22 | 7d 20 7b 0a 20 73 65 74 |== "max"|} {. set|
|000017b0| 20 6d 61 78 41 76 61 74 | 61 72 73 20 31 30 0a 20 | maxAvat|ars 10. |
|000017c0| 7d 20 65 6c 73 65 69 66 | 20 7b 5b 69 73 4e 75 6d |} elseif| {[isNum|
|000017d0| 62 65 72 20 24 6d 61 78 | 41 76 61 74 61 72 73 5d |ber $max|Avatars]|
|000017e0| 20 3d 3d 20 30 20 7c 7c | 20 24 6d 61 78 41 76 61 | == 0 ||| $maxAva|
|000017f0| 74 61 72 73 20 3c 20 30 | 7d 20 7b 20 0a 20 73 65 |tars < 0|} { . se|
|00001800| 74 20 6d 61 78 41 76 61 | 74 61 72 73 20 30 0a 20 |t maxAva|tars 0. |
|00001810| 7d 20 65 6c 73 65 69 66 | 20 7b 24 6d 61 78 41 76 |} elseif| {$maxAv|
|00001820| 61 74 61 72 73 20 3e 20 | 31 30 7d 20 7b 0a 20 73 |atars > |10} {. s|
|00001830| 65 74 20 6d 61 78 41 76 | 61 74 61 72 73 20 31 30 |et maxAv|atars 10|
|00001840| 0a 20 7d 0a 20 69 66 20 | 7b 24 6d 61 78 47 68 6f |. }. if |{$maxGho|
|00001850| 73 74 73 20 3d 3d 20 22 | 6d 61 78 22 7d 20 7b 0a |sts == "|max"} {.|
|00001860| 20 73 65 74 20 6d 61 78 | 47 68 6f 73 74 73 20 32 | set max|Ghosts 2|
|00001870| 31 34 37 34 38 33 36 34 | 37 0a 20 7d 20 65 6c 73 |14748364|7. } els|
|00001880| 65 69 66 20 7b 5b 69 73 | 4e 75 6d 62 65 72 20 24 |eif {[is|Number $|
|00001890| 6d 61 78 47 68 6f 73 74 | 73 5d 20 3d 3d 20 30 20 |maxGhost|s] == 0 |
|000018a0| 7c 7c 20 24 6d 61 78 47 | 68 6f 73 74 73 20 3c 20 ||| $maxG|hosts < |
|000018b0| 30 7d 20 7b 20 0a 20 73 | 65 74 20 6d 61 78 47 68 |0} { . s|et maxGh|
|000018c0| 6f 73 74 73 20 30 0a 20 | 7d 0a 20 64 69 61 6c 6f |osts 0. |}. dialo|
|000018d0| 67 4b 69 6c 6c 20 24 64 | 6c 6f 67 0a 20 73 65 74 |gKill $d|log. set|
|000018e0| 20 63 75 72 47 75 65 73 | 74 41 6c 6c 6f 77 65 64 | curGues|tAllowed|
|000018f0| 20 5b 65 78 70 72 20 28 | 5b 40 6f 62 6a 20 24 73 | [expr (|[@obj $s|
|00001900| 65 6c 66 20 72 65 67 69 | 6f 6e 5f 66 6c 61 67 73 |elf regi|on_flags|
|00001910| 5d 20 26 20 32 30 34 38 | 29 20 21 3d 20 32 30 34 |] & 2048|) != 204|
|00001920| 38 5d 0a 20 69 66 20 7b | 24 63 75 72 47 75 65 73 |8]. if {|$curGues|
|00001930| 74 41 6c 6c 6f 77 65 64 | 20 21 3d 20 24 67 75 65 |tAllowed| != $gue|
|00001940| 73 74 41 6c 6c 6f 77 65 | 64 20 7c 7c 20 24 6d 61 |stAllowe|d || $ma|
|00001950| 78 41 76 61 74 61 72 73 | 20 21 3d 20 5b 40 6f 62 |xAvatars| != [@ob|
|00001960| 6a 20 24 73 65 6c 66 20 | 6d 61 78 5f 61 76 61 74 |j $self |max_avat|
|00001970| 61 72 73 5d 20 7c 7c 20 | 24 6d 61 78 47 68 6f 73 |ars] || |$maxGhos|
|00001980| 74 73 20 21 3d 20 5b 40 | 6f 62 6a 20 24 73 65 6c |ts != [@|obj $sel|
|00001990| 66 20 6d 61 78 5f 67 68 | 6f 73 74 73 5d 7d 20 7b |f max_gh|osts]} {|
|000019a0| 0a 20 62 6c 6f 63 6b 0a | 20 72 65 71 75 65 73 74 |. block.| request|
|000019b0| 20 30 20 31 35 35 20 7b | 0a 20 67 75 65 73 74 41 | 0 155 {|. guestA|
|000019c0| 6c 6c 6f 77 65 64 20 24 | 67 75 65 73 74 41 6c 6c |llowed $|guestAll|
|000019d0| 6f 77 65 64 0a 20 6d 61 | 78 41 76 61 74 61 72 73 |owed. ma|xAvatars|
|000019e0| 20 24 6d 61 78 41 76 61 | 74 61 72 73 0a 20 6d 61 | $maxAva|tars. ma|
|000019f0| 78 47 68 6f 73 74 73 20 | 24 6d 61 78 47 68 6f 73 |xGhosts |$maxGhos|
|00001a00| 74 73 0a 20 7d 20 31 35 | 36 0a 20 75 6e 62 6c 6f |ts. } 15|6. unblo|
|00001a10| 63 6b 0a 20 69 66 20 7b | 5b 40 20 72 65 70 6c 79 |ck. if {|[@ reply|
|00001a20| 20 73 75 63 63 65 73 73 | 5d 20 21 3d 20 30 7d 20 | success|] != 0} |
|00001a30| 7b 0a 20 68 61 6e 64 6c | 65 46 61 69 6c 75 72 65 |{. handl|eFailure|
|00001a40| 20 5b 40 20 72 65 70 6c | 79 20 73 75 63 63 65 73 | [@ repl|y succes|
|00001a50| 73 5d 20 22 22 0a 20 7d | 0a 20 40 6f 62 6a 20 24 |s] "". }|. @obj $|
|00001a60| 73 65 6c 66 20 72 65 67 | 69 6f 6e 5f 66 6c 61 67 |self reg|ion_flag|
|00001a70| 73 20 5b 40 20 72 65 70 | 6c 79 20 72 65 67 69 6f |s [@ rep|ly regio|
|00001a80| 6e 46 6c 61 67 73 5d 0a | 20 40 6f 62 6a 20 24 73 |nFlags].| @obj $s|
|00001a90| 65 6c 66 20 6d 61 78 5f | 61 76 61 74 61 72 73 20 |elf max_|avatars |
|00001aa0| 5b 40 20 72 65 70 6c 79 | 20 6d 61 78 41 76 61 74 |[@ reply| maxAvat|
|00001ab0| 61 72 73 5d 0a 20 40 6f | 62 6a 20 24 73 65 6c 66 |ars]. @o|bj $self|
|00001ac0| 20 6d 61 78 5f 67 68 6f | 73 74 73 20 5b 40 20 72 | max_gho|sts [@ r|
|00001ad0| 65 70 6c 79 20 6d 61 78 | 47 68 6f 73 74 73 5d 0a |eply max|Ghosts].|
|00001ae0| 20 7d 0a 7d 0a 70 72 6f | 63 20 54 75 72 66 41 63 | }.}.pro|c TurfAc|
|00001af0| 63 65 73 73 43 74 72 6c | 43 61 6e 63 65 6c 20 7b |cessCtrl|Cancel {|
|00001b00| 20 73 65 6c 66 20 7d 20 | 7b 0a 20 75 70 76 61 72 | self } |{. upvar|
|00001b10| 20 23 30 20 67 5f 64 69 | 61 6c 6f 67 20 64 6c 6f | #0 g_di|alog dlo|
|00001b20| 67 3b 0a 20 0a 20 64 69 | 61 6c 6f 67 4b 69 6c 6c |g;. . di|alogKill|
|00001b30| 20 24 64 6c 6f 67 0a 7d | 0a 70 72 6f 63 20 54 75 | $dlog.}|.proc Tu|
|00001b40| 72 66 41 63 63 65 73 73 | 43 74 72 6c 4d 6f 64 69 |rfAccess|CtrlModi|
|00001b50| 66 79 20 7b 20 73 65 6c | 66 20 70 72 65 76 47 75 |fy { sel|f prevGu|
|00001b60| 65 73 74 41 6c 6c 6f 77 | 65 64 20 70 72 65 76 4b |estAllow|ed prevK|
|00001b70| 69 63 6b 4f 75 74 4f 6e | 45 78 69 74 7d 20 7b 0a |ickOutOn|Exit} {.|
|00001b80| 20 75 70 76 61 72 20 23 | 30 20 67 5f 64 69 61 6c | upvar #|0 g_dial|
|00001b90| 6f 67 20 64 6c 6f 67 3b | 0a 20 73 65 74 20 67 75 |og dlog;|. set gu|
|00001ba0| 65 73 74 41 6c 6c 6f 77 | 65 64 20 5b 64 69 61 6c |estAllow|ed [dial|
|00001bb0| 6f 67 47 65 74 56 61 6c | 75 65 20 24 64 6c 6f 67 |ogGetVal|ue $dlog|
|00001bc0| 20 41 47 42 6f 78 5d 0a | 20 73 65 74 20 6b 69 63 | AGBox].| set kic|
|00001bd0| 6b 4f 75 74 4f 6e 45 78 | 69 74 20 5b 64 69 61 6c |kOutOnEx|it [dial|
|00001be0| 6f 67 47 65 74 56 61 6c | 75 65 20 24 64 6c 6f 67 |ogGetVal|ue $dlog|
|00001bf0| 20 4b 47 42 6f 78 5d 0a | 20 64 69 61 6c 6f 67 4b | KGBox].| dialogK|
|00001c00| 69 6c 6c 20 24 64 6c 6f | 67 0a 20 69 66 20 7b 24 |ill $dlo|g. if {$|
|00001c10| 67 75 65 73 74 41 6c 6c | 6f 77 65 64 20 21 3d 20 |guestAll|owed != |
|00001c20| 24 70 72 65 76 47 75 65 | 73 74 41 6c 6c 6f 77 65 |$prevGue|stAllowe|
|00001c30| 64 20 7c 7c 20 24 6b 69 | 63 6b 4f 75 74 4f 6e 45 |d || $ki|ckOutOnE|
|00001c40| 78 69 74 20 21 3d 20 24 | 70 72 65 76 4b 69 63 6b |xit != $|prevKick|
|00001c50| 4f 75 74 4f 6e 45 78 69 | 74 7d 20 7b 0a 20 62 6c |OutOnExi|t} {. bl|
|00001c60| 6f 63 6b 0a 20 72 65 71 | 75 65 73 74 20 30 20 31 |ock. req|uest 0 1|
|00001c70| 33 31 20 7b 0a 20 67 75 | 65 73 74 41 6c 6c 6f 77 |31 {. gu|estAllow|
|00001c80| 65 64 20 24 67 75 65 73 | 74 41 6c 6c 6f 77 65 64 |ed $gues|tAllowed|
|00001c90| 0a 20 6b 69 63 6b 4f 75 | 74 4f 6e 45 78 69 74 20 |. kickOu|tOnExit |
|00001ca0| 24 6b 69 63 6b 4f 75 74 | 4f 6e 45 78 69 74 0a 20 |$kickOut|OnExit. |
|00001cb0| 7d 20 37 30 0a 20 75 6e | 62 6c 6f 63 6b 0a 20 69 |} 70. un|block. i|
|00001cc0| 66 20 7b 5b 40 20 72 65 | 70 6c 79 20 73 75 63 63 |f {[@ re|ply succ|
|00001cd0| 65 73 73 5d 20 21 3d 20 | 30 7d 20 7b 0a 20 68 61 |ess] != |0} {. ha|
|00001ce0| 6e 64 6c 65 46 61 69 6c | 75 72 65 20 5b 40 20 72 |ndleFail|ure [@ r|
|00001cf0| 65 70 6c 79 20 73 75 63 | 63 65 73 73 5d 20 5b 40 |eply suc|cess] [@|
|00001d00| 20 72 65 70 6c 79 20 66 | 61 69 6c 5f 6d 73 67 5d | reply f|ail_msg]|
|00001d10| 0a 20 7d 0a 20 7d 0a 7d | 0a 70 72 6f 63 20 72 73 |. }. }.}|.proc rs|
|00001d20| 5f 62 75 74 74 6f 6e 32 | 20 7b 20 73 65 6c 66 20 |_button2| { self |
|00001d30| 7d 20 7b 0a 20 75 70 76 | 61 72 20 23 30 20 67 5f |} {. upv|ar #0 g_|
|00001d40| 64 69 61 6c 6f 67 20 64 | 6c 6f 67 3b 0a 20 0a 20 |dialog d|log;. . |
|00001d50| 64 69 61 6c 6f 67 4b 69 | 6c 6c 20 24 64 6c 6f 67 |dialogKi|ll $dlog|
|00001d60| 0a 7d 0a 70 72 6f 63 20 | 63 61 6e 44 72 61 67 20 |.}.proc |canDrag |
|00001d70| 7b 20 6f 62 6a 65 63 74 | 20 7d 20 7b 0a 20 69 66 |{ object| } {. if|
|00001d80| 20 7b 20 5b 6f 62 6a 65 | 63 74 49 73 47 6c 75 65 | { [obje|ctIsGlue|
|00001d90| 64 20 24 6f 62 6a 65 63 | 74 5d 20 26 26 20 28 5b |d $objec|t] && ([|
|00001da0| 61 76 61 74 61 72 49 73 | 4f 77 6e 65 72 5d 20 7c |avatarIs|Owner] ||
|00001db0| 7c 20 5b 61 76 61 74 61 | 72 49 73 41 74 4c 65 61 || [avata|rIsAtLea|
|00001dc0| 73 74 4f 72 61 63 6c 65 | 5d 20 7c 7c 20 28 28 5b |stOracle|] || (([|
|00001dd0| 40 6f 62 6a 20 30 20 72 | 65 67 69 6f 6e 5f 66 6c |@obj 0 r|egion_fl|
|00001de0| 61 67 73 5d 20 26 20 36 | 35 35 33 36 29 20 21 3d |ags] & 6|5536) !=|
|00001df0| 20 30 29 29 20 7d 20 7b | 0a 20 72 65 74 75 72 6e | 0)) } {|. return|
|00001e00| 20 31 0a 20 7d 20 65 6c | 73 65 20 7b 0a 20 72 65 | 1. } el|se {. re|
|00001e10| 74 75 72 6e 20 30 0a 20 | 7d 0a 7d 0a 70 72 6f 63 |turn 0. |}.}.proc|
|00001e20| 20 64 72 61 67 54 6f 20 | 7b 20 64 72 61 67 67 65 | dragTo |{ dragge|
|00001e30| 64 20 78 20 79 20 7a 20 | 7d 20 7b 0a 20 73 65 74 |d x y z |} {. set|
|00001e40| 20 63 6f 6f 72 64 73 20 | 22 24 78 20 24 79 20 24 | coords |"$x $y $|
|00001e50| 7a 22 0a 20 6d 6f 76 65 | 4f 62 6a 65 63 74 5f 75 |z". move|Object_u|
|00001e60| 70 64 61 74 65 20 24 64 | 72 61 67 67 65 64 20 24 |pdate $d|ragged $|
|00001e70| 63 6f 6f 72 64 73 20 5b | 40 6f 62 6a 20 24 64 72 |coords [|@obj $dr|
|00001e80| 61 67 67 65 64 20 6f 72 | 69 65 6e 74 61 74 69 6f |agged or|ientatio|
|00001e90| 6e 5d 0a 7d 0a 00 65 4d | 73 4d 0a 20 0a 20 0a 20 |n].}..eM|sM. . . |
|00001ea0| 0a 20 0a 70 72 6f 63 20 | 66 6d 5f 6e 65 77 6e 6f |. .proc |fm_newno|
|00001eb0| 69 64 20 7b 20 73 65 6c | 66 20 74 61 72 67 65 74 |id { sel|f target|
|00001ec0| 20 7d 20 7b 0a 20 75 70 | 76 61 72 20 23 30 20 67 | } {. up|var #0 g|
|00001ed0| 5f 6e 6f 69 64 20 6e 6f | 69 64 0a 20 75 70 76 61 |_noid no|id. upva|
|00001ee0| 72 20 23 30 20 67 5f 66 | 69 65 6c 64 73 20 66 69 |r #0 g_f|ields fi|
|00001ef0| 65 6c 64 73 0a 20 75 70 | 76 61 72 20 23 30 20 67 |elds. up|var #0 g|
|00001f00| 5f 64 69 61 6c 6f 67 20 | 64 6c 6f 67 0a 20 75 70 |_dialog |dlog. up|
|00001f10| 76 61 72 20 23 30 20 64 | 6c 6f 67 5f 6f 6b 20 64 |var #0 d|log_ok d|
|00001f20| 6c 5f 6f 6b 0a 20 75 70 | 76 61 72 20 23 30 20 64 |l_ok. up|var #0 d|
|00001f30| 6c 6f 67 5f 72 65 74 75 | 72 6e 20 64 6c 5f 72 65 |log_retu|rn dl_re|
|00001f40| 74 75 72 6e 0a 20 0a 20 | 73 65 74 20 6e 6f 69 64 |turn. . |set noid|
|00001f50| 20 24 74 61 72 67 65 74 | 0a 20 0a 20 63 74 72 6c | $target|. . ctrl|
|00001f60| 44 69 73 61 62 6c 65 20 | 24 64 6c 6f 67 20 46 69 |Disable |$dlog Fi|
|00001f70| 65 6c 64 73 0a 20 63 74 | 72 6c 44 69 73 61 62 6c |elds. ct|rlDisabl|
|00001f80| 65 20 24 64 6c 6f 67 20 | 4e 6f 69 64 73 0a 20 63 |e $dlog |Noids. c|
|00001f90| 74 72 6c 44 69 73 61 62 | 6c 65 20 24 64 6c 6f 67 |trlDisab|le $dlog|
|00001fa0| 20 56 61 6c 75 65 0a 20 | 0a 20 73 65 74 20 63 6e | Value. |. set cn|
|00001fb0| 74 20 5b 63 74 72 6c 47 | 65 74 4c 69 73 74 43 6f |t [ctrlG|etListCo|
|00001fc0| 75 6e 74 20 24 64 6c 6f | 67 20 46 69 65 6c 64 73 |unt $dlo|g Fields|
|00001fd0| 5d 0a 20 77 68 69 6c 65 | 20 7b 20 24 63 6e 74 20 |]. while| { $cnt |
|00001fe0| 3e 20 30 20 7d 20 7b 0a | 20 63 74 72 6c 44 65 6c |> 0 } {.| ctrlDel|
|00001ff0| 4c 69 73 74 49 74 65 6d | 20 24 64 6c 6f 67 20 46 |ListItem| $dlog F|
|00002000| 69 65 6c 64 73 20 30 0a | 20 69 6e 63 72 20 63 6e |ields 0.| incr cn|
|00002010| 74 20 2d 31 0a 20 7d 0a | 20 0a 20 67 65 74 46 69 |t -1. }.| . getFi|
|00002020| 65 6c 64 4c 69 73 74 20 | 24 6e 6f 69 64 0a 20 69 |eldList |$noid. i|
|00002030| 66 20 7b 20 24 64 6c 5f | 6f 6b 20 3d 3d 20 30 20 |f { $dl_|ok == 0 |
|00002040| 7d 20 7b 0a 20 73 65 74 | 20 66 69 65 6c 64 73 20 |} {. set| fields |
|00002050| 24 64 6c 5f 72 65 74 75 | 72 6e 0a 20 7d 20 65 6c |$dl_retu|rn. } el|
|00002060| 73 65 20 7b 0a 20 73 65 | 74 20 66 69 65 6c 64 73 |se {. se|t fields|
|00002070| 20 22 22 0a 20 7d 0a 20 | 0a 20 73 65 74 20 63 6e | "". }. |. set cn|
|00002080| 74 20 30 0a 20 66 6f 72 | 65 61 63 68 20 69 20 24 |t 0. for|each i $|
|00002090| 66 69 65 6c 64 73 20 7b | 0a 20 63 74 72 6c 41 64 |fields {|. ctrlAd|
|000020a0| 64 4c 69 73 74 49 74 65 | 6d 20 24 64 6c 6f 67 20 |dListIte|m $dlog |
|000020b0| 46 69 65 6c 64 73 20 30 | 20 5b 66 6f 72 6d 61 74 |Fields 0| [format|
|000020c0| 20 22 25 73 20 25 73 22 | 20 5b 6c 69 6e 64 65 78 | "%s %s"| [lindex|
|000020d0| 20 24 69 20 30 5d 20 5b | 6c 69 6e 64 65 78 20 24 | $i 0] [|lindex $|
|000020e0| 69 20 31 5d 5d 20 22 66 | 6d 5f 6e 65 77 66 69 65 |i 1]] "f|m_newfie|
|000020f0| 6c 64 20 24 73 65 6c 66 | 20 5b 6c 69 6e 64 65 78 |ld $self| [lindex|
|00002100| 20 24 69 20 30 5d 20 5b | 6c 69 6e 64 65 78 20 24 | $i 0] [|lindex $|
|00002110| 69 20 31 5d 22 0a 20 69 | 66 20 7b 20 21 20 5b 73 |i 1]". i|f { ! [s|
|00002120| 74 72 69 6e 67 20 63 6f | 6d 70 61 72 65 20 5b 6c |tring co|mpare [l|
|00002130| 69 6e 64 65 78 20 24 69 | 20 30 5d 20 6e 61 6d 65 |index $i| 0] name|
|00002140| 5d 20 7d 20 7b 0a 20 63 | 74 72 6c 53 65 6c 65 63 |] } {. c|trlSelec|
|00002150| 74 4c 69 73 74 49 74 65 | 6d 20 24 64 6c 6f 67 20 |tListIte|m $dlog |
|00002160| 46 69 65 6c 64 73 20 24 | 63 6e 74 0a 20 66 6d 5f |Fields $|cnt. fm_|
|00002170| 6e 65 77 66 69 65 6c 64 | 20 24 73 65 6c 66 20 5b |newfield| $self [|
|00002180| 6c 69 6e 64 65 78 20 24 | 69 20 30 5d 20 5b 6c 69 |lindex $|i 0] [li|
|00002190| 6e 64 65 78 20 24 69 20 | 31 5d 0a 20 63 74 72 6c |ndex $i |1]. ctrl|
|000021a0| 45 6e 61 62 6c 65 20 24 | 64 6c 6f 67 20 46 69 65 |Enable $|dlog Fie|
|000021b0| 6c 64 73 0a 20 7d 0a 20 | 69 6e 63 72 20 63 6e 74 |lds. }. |incr cnt|
|000021c0| 0a 20 7d 0a 20 63 74 72 | 6c 45 6e 61 62 6c 65 20 |. }. ctr|lEnable |
|000021d0| 24 64 6c 6f 67 20 4e 6f | 69 64 73 0a 20 64 69 61 |$dlog No|ids. dia|
|000021e0| 6c 6f 67 53 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logSetVa|lue $dlo|
|000021f0| 67 20 42 75 74 74 6f 6e | 32 20 22 43 61 6e 63 65 |g Button|2 "Cance|
|00002200| 6c 22 0a 7d 0a 20 0a 70 | 72 6f 63 20 66 6d 5f 6e |l".}. .p|roc fm_n|
|00002210| 65 77 66 69 65 6c 64 20 | 7b 20 73 65 6c 66 20 66 |ewfield |{ self f|
|00002220| 69 65 6c 64 6e 61 6d 65 | 20 7b 20 77 68 65 72 65 |ieldname| { where|
|00002230| 20 63 20 7d 7d 20 7b 0a | 20 75 70 76 61 72 20 23 | c }} {.| upvar #|
|00002240| 30 20 67 5f 64 69 61 6c | 6f 67 20 64 6c 6f 67 0a |0 g_dial|og dlog.|
|00002250| 20 75 70 76 61 72 20 23 | 30 20 67 5f 6e 6f 69 64 | upvar #|0 g_noid|
|00002260| 20 6e 6f 69 64 0a 20 75 | 70 76 61 72 20 23 30 20 | noid. u|pvar #0 |
|00002270| 67 5f 77 68 65 72 65 20 | 74 77 68 65 72 65 0a 20 |g_where |twhere. |
|00002280| 75 70 76 61 72 20 23 30 | 20 67 5f 73 65 6c 65 63 |upvar #0| g_selec|
|00002290| 74 65 64 20 73 65 6c 65 | 63 74 65 64 0a 20 0a 20 |ted sele|cted. . |
|000022a0| 0a 20 73 65 74 20 74 77 | 68 65 72 65 20 24 77 68 |. set tw|here $wh|
|000022b0| 65 72 65 0a 20 73 65 74 | 20 73 65 6c 65 63 74 65 |ere. set| selecte|
|000022c0| 64 20 24 66 69 65 6c 64 | 6e 61 6d 65 0a 20 0a 20 |d $field|name. . |
|000022d0| 0a 20 69 66 20 7b 20 5b | 73 74 72 69 6e 67 20 63 |. if { [|string c|
|000022e0| 6f 6d 70 61 72 65 20 24 | 77 68 65 72 65 20 22 73 |ompare $|where "s|
|000022f0| 22 20 5d 20 3d 3d 20 30 | 20 7d 20 7b 0a 20 62 6c |" ] == 0| } {. bl|
|00002300| 6f 63 6b 0a 20 72 65 71 | 75 65 73 74 20 30 20 32 |ock. req|uest 0 2|
|00002310| 30 33 20 7b 0a 20 74 61 | 72 67 65 74 20 24 6e 6f |03 {. ta|rget $no|
|00002320| 69 64 0a 20 66 69 65 6c | 64 20 24 66 69 65 6c 64 |id. fiel|d $field|
|00002330| 6e 61 6d 65 0a 20 7d 20 | 32 30 34 0a 20 75 6e 62 |name. } |204. unb|
|00002340| 6c 6f 63 6b 0a 20 69 66 | 20 7b 20 5b 20 40 20 72 |lock. if| { [ @ r|
|00002350| 65 70 6c 79 20 73 75 63 | 63 65 73 73 5d 20 3d 3d |eply suc|cess] ==|
|00002360| 20 30 20 7d 20 7b 0a 20 | 64 69 61 6c 6f 67 53 65 | 0 } {. |dialogSe|
|00002370| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 56 61 6c |tValue $|dlog Val|
|00002380| 75 65 20 5b 40 20 72 65 | 70 6c 79 20 76 61 6c 75 |ue [@ re|ply valu|
|00002390| 65 5d 0a 20 63 74 72 6c | 45 6e 61 62 6c 65 20 24 |e]. ctrl|Enable $|
|000023a0| 64 6c 6f 67 20 56 61 6c | 75 65 0a 20 7d 0a 20 7d |dlog Val|ue. }. }|
|000023b0| 20 65 6c 73 65 20 7b 0a | 20 64 69 61 6c 6f 67 53 | else {.| dialogS|
|000023c0| 65 74 56 61 6c 75 65 20 | 24 64 6c 6f 67 20 56 61 |etValue |$dlog Va|
|000023d0| 6c 75 65 20 5b 40 6f 62 | 6a 20 24 6e 6f 69 64 20 |lue [@ob|j $noid |
|000023e0| 24 66 69 65 6c 64 6e 61 | 6d 65 5d 0a 20 63 74 72 |$fieldna|me]. ctr|
|000023f0| 6c 45 6e 61 62 6c 65 20 | 24 64 6c 6f 67 20 56 61 |lEnable |$dlog Va|
|00002400| 6c 75 65 0a 20 7d 0a 20 | 64 69 61 6c 6f 67 53 65 |lue. }. |dialogSe|
|00002410| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 42 75 74 |tValue $|dlog But|
|00002420| 74 6f 6e 32 20 22 43 61 | 6e 63 65 6c 22 0a 7d 0a |ton2 "Ca|ncel".}.|
|00002430| 20 0a 70 72 6f 63 20 66 | 6d 5f 62 75 74 74 6f 6e | .proc f|m_button|
|00002440| 31 20 7b 20 73 65 6c 66 | 20 7d 20 7b 0a 20 75 70 |1 { self| } {. up|
|00002450| 76 61 72 20 23 30 20 67 | 5f 64 69 61 6c 6f 67 20 |var #0 g|_dialog |
|00002460| 64 6c 6f 67 0a 20 75 70 | 76 61 72 20 23 30 20 67 |dlog. up|var #0 g|
|00002470| 5f 6e 6f 69 64 20 6e 6f | 69 64 0a 20 75 70 76 61 |_noid no|id. upva|
|00002480| 72 20 23 30 20 67 5f 73 | 65 6c 65 63 74 65 64 20 |r #0 g_s|elected |
|00002490| 73 65 6c 65 63 74 65 64 | 0a 20 75 70 76 61 72 20 |selected|. upvar |
|000024a0| 23 30 20 67 5f 77 68 65 | 72 65 20 77 68 65 72 65 |#0 g_whe|re where|
|000024b0| 0a 20 0a 20 69 66 20 7b | 20 21 20 5b 73 74 72 69 |. . if {| ! [stri|
|000024c0| 6e 67 20 63 6f 6d 70 61 | 72 65 20 24 77 68 65 72 |ng compa|re $wher|
|000024d0| 65 20 22 63 22 5d 20 7d | 20 7b 20 0a 20 40 6f 62 |e "c"] }| { . @ob|
|000024e0| 6a 20 24 6e 6f 69 64 20 | 24 73 65 6c 65 63 74 65 |j $noid |$selecte|
|000024f0| 64 20 5b 64 69 61 6c 6f | 67 47 65 74 56 61 6c 75 |d [dialo|gGetValu|
|00002500| 65 20 24 64 6c 6f 67 20 | 56 61 6c 75 65 5d 0a 20 |e $dlog |Value]. |
|00002510| 64 69 61 6c 6f 67 53 65 | 74 56 61 6c 75 65 20 24 |dialogSe|tValue $|
|00002520| 64 6c 6f 67 20 42 75 74 | 74 6f 6e 32 20 22 44 6f |dlog But|ton2 "Do|
|00002530| 6e 65 22 0a 20 7d 20 65 | 6c 73 65 20 7b 20 0a 20 |ne". } e|lse { . |
|00002540| 72 65 71 75 65 73 74 20 | 30 20 32 30 35 20 7b 0a |request |0 205 {.|
|00002550| 20 74 61 72 67 65 74 20 | 24 6e 6f 69 64 0a 20 66 | target |$noid. f|
|00002560| 69 65 6c 64 20 24 73 65 | 6c 65 63 74 65 64 0a 20 |ield $se|lected. |
|00002570| 76 61 6c 75 65 20 5b 64 | 69 61 6c 6f 67 47 65 74 |value [d|ialogGet|
|00002580| 56 61 6c 75 65 20 24 64 | 6c 6f 67 20 56 61 6c 75 |Value $d|log Valu|
|00002590| 65 5d 0a 20 77 68 65 72 | 65 20 24 77 68 65 72 65 |e]. wher|e $where|
|000025a0| 0a 20 7d 20 38 30 0a 20 | 0a 20 69 66 20 7b 5b 40 |. } 80. |. if {[@|
|000025b0| 20 72 65 70 6c 79 20 73 | 75 63 63 65 73 73 5d 20 | reply s|uccess] |
|000025c0| 3d 3d 20 30 7d 20 7b 0a | 20 75 6e 70 61 63 6b 43 |== 0} {.| unpackC|
|000025d0| 6f 6e 74 65 6e 74 73 20 | 72 65 70 6c 79 20 63 6f |ontents |reply co|
|000025e0| 6e 74 65 6e 74 73 56 65 | 63 74 6f 72 0a 20 72 65 |ntentsVe|ctor. re|
|000025f0| 64 72 61 77 20 24 6e 6f | 69 64 0a 20 7d 20 65 6c |draw $no|id. } el|
|00002600| 73 65 20 7b 0a 20 70 6c | 61 79 53 6f 75 6e 64 20 |se {. pl|aySound |
|00002610| 30 20 38 33 0a 20 69 66 | 20 7b 5b 40 20 72 65 70 |0 83. if| {[@ rep|
|00002620| 6c 79 20 73 75 63 63 65 | 73 73 5d 20 3d 3d 20 32 |ly succe|ss] == 2|
|00002630| 7d 20 7b 0a 20 73 79 73 | 74 65 6d 5f 62 61 6c 6c |} {. sys|tem_ball|
|00002640| 6f 6f 6e 20 30 20 22 53 | 6f 72 72 79 2c 20 74 68 |oon 0 "S|orry, th|
|00002650| 61 74 20 77 61 73 20 61 | 6e 20 69 6e 76 61 6c 69 |at was a|n invali|
|00002660| 64 20 72 65 71 75 65 73 | 74 2e 22 0a 20 64 69 61 |d reques|t.". dia|
|00002670| 6c 6f 67 53 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logSetVa|lue $dlo|
|00002680| 67 20 42 75 74 74 6f 6e | 32 20 22 43 61 6e 63 65 |g Button|2 "Cance|
|00002690| 6c 22 0a 20 72 65 74 75 | 72 6e 0a 20 7d 20 65 6c |l". retu|rn. } el|
|000026a0| 73 65 69 66 20 7b 5b 40 | 20 72 65 70 6c 79 20 73 |seif {[@| reply s|
|000026b0| 75 63 63 65 73 73 5d 20 | 3d 3d 20 31 36 7d 20 7b |uccess] |== 16} {|
|000026c0| 0a 20 73 79 73 74 65 6d | 5f 62 61 6c 6c 6f 6f 6e |. system|_balloon|
|000026d0| 20 30 20 22 53 6f 72 72 | 79 2c 20 74 68 61 74 20 | 0 "Sorr|y, that |
|000026e0| 6f 62 6a 65 63 74 20 77 | 61 73 20 6e 6f 74 20 61 |object w|as not a|
|000026f0| 63 63 65 73 73 69 62 6c | 65 2e 22 0a 20 64 69 61 |ccessibl|e.". dia|
|00002700| 6c 6f 67 53 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logSetVa|lue $dlo|
|00002710| 67 20 42 75 74 74 6f 6e | 32 20 22 43 61 6e 63 65 |g Button|2 "Cance|
|00002720| 6c 22 0a 20 72 65 74 75 | 72 6e 0a 20 7d 20 65 6c |l". retu|rn. } el|
|00002730| 73 65 20 7b 0a 20 64 69 | 61 6c 6f 67 4b 69 6c 6c |se {. di|alogKill|
|00002740| 20 24 64 6c 6f 67 0a 20 | 72 65 74 75 72 6e 0a 20 | $dlog. |return. |
|00002750| 7d 0a 20 7d 0a 20 7d 0a | 20 66 6d 5f 6e 65 77 66 |}. }. }.| fm_newf|
|00002760| 69 65 6c 64 20 24 73 65 | 6c 66 20 24 73 65 6c 65 |ield $se|lf $sele|
|00002770| 63 74 65 64 20 24 77 68 | 65 72 65 0a 20 64 69 61 |cted $wh|ere. dia|
|00002780| 6c 6f 67 53 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logSetVa|lue $dlo|
|00002790| 67 20 42 75 74 74 6f 6e | 32 20 22 44 6f 6e 65 22 |g Button|2 "Done"|
|000027a0| 0a 7d 0a 20 0a 70 72 6f | 63 20 67 65 74 46 69 65 |.}. .pro|c getFie|
|000027b0| 6c 64 4c 69 73 74 20 7b | 20 6e 6f 69 64 20 7d 20 |ldList {| noid } |
|000027c0| 7b 0a 20 75 70 76 61 72 | 20 23 30 20 64 6c 6f 67 |{. upvar| #0 dlog|
|000027d0| 5f 6f 6b 20 64 6c 5f 6f | 6b 0a 20 75 70 76 61 72 |_ok dl_o|k. upvar|
|000027e0| 20 23 30 20 64 6c 6f 67 | 5f 72 65 74 75 72 6e 20 | #0 dlog|_return |
|000027f0| 64 6c 5f 72 65 74 75 72 | 6e 0a 20 62 6c 6f 63 6b |dl_retur|n. block|
|00002800| 0a 20 72 65 71 75 65 73 | 74 20 30 20 32 30 36 20 |. reques|t 0 206 |
|00002810| 7b 0a 20 74 61 72 67 65 | 74 20 24 6e 6f 69 64 0a |{. targe|t $noid.|
|00002820| 20 7d 20 32 30 37 0a 20 | 75 6e 62 6c 6f 63 6b 0a | } 207. |unblock.|
|00002830| 20 0a 20 73 65 74 20 64 | 6c 5f 6f 6b 20 5b 40 20 | . set d|l_ok [@ |
|00002840| 72 65 70 6c 79 20 73 75 | 63 63 65 73 73 5d 0a 20 |reply su|ccess]. |
|00002850| 73 65 74 20 64 6c 5f 72 | 65 74 75 72 6e 20 5b 6c |set dl_r|eturn [l|
|00002860| 73 6f 72 74 20 5b 63 6f | 6e 63 61 74 20 5b 6e 6f |sort [co|ncat [no|
|00002870| 69 64 46 69 65 6c 64 73 | 20 24 6e 6f 69 64 5d 20 |idFields| $noid] |
|00002880| 5b 40 20 72 65 70 6c 79 | 20 66 69 65 6c 64 73 5d |[@ reply| fields]|
|00002890| 5d 5d 0a 7d 0a 20 0a 70 | 72 6f 63 20 66 70 5f 6e |]].}. .p|roc fp_n|
|000028a0| 65 77 6e 6f 69 64 20 7b | 20 73 65 6c 66 20 74 61 |ewnoid {| self ta|
|000028b0| 72 67 65 74 20 7d 20 7b | 0a 20 75 70 76 61 72 20 |rget } {|. upvar |
|000028c0| 23 30 20 67 5f 6e 6f 69 | 64 20 6e 6f 69 64 0a 20 |#0 g_noi|d noid. |
|000028d0| 75 70 76 61 72 20 23 30 | 20 67 5f 64 69 61 6c 6f |upvar #0| g_dialo|
|000028e0| 67 20 64 6c 6f 67 0a 20 | 0a 20 73 65 74 20 6e 6f |g dlog. |. set no|
|000028f0| 69 64 20 24 74 61 72 67 | 65 74 0a 20 0a 20 64 69 |id $targ|et. . di|
|00002900| 61 6c 6f 67 53 65 74 56 | 61 6c 75 65 20 24 64 6c |alogSetV|alue $dl|
|00002910| 6f 67 20 50 72 6f 70 65 | 72 74 79 20 22 55 52 4c |og Prope|rty "URL|
|00002920| 22 0a 20 66 70 5f 62 75 | 74 74 6f 6e 31 20 24 73 |". fp_bu|tton1 $s|
|00002930| 65 6c 66 0a 20 64 69 61 | 6c 6f 67 53 65 74 56 61 |elf. dia|logSetVa|
|00002940| 6c 75 65 20 24 64 6c 6f | 67 20 42 75 74 74 6f 6e |lue $dlo|g Button|
|00002950| 33 20 22 43 61 6e 63 65 | 6c 22 0a 7d 0a 20 0a 70 |3 "Cance|l".}. .p|
|00002960| 72 6f 63 20 66 70 5f 62 | 75 74 74 6f 6e 31 20 7b |roc fp_b|utton1 {|
|00002970| 20 73 65 6c 66 20 7d 20 | 7b 0a 20 75 70 76 61 72 | self } |{. upvar|
|00002980| 20 23 30 20 67 5f 64 69 | 61 6c 6f 67 20 64 6c 6f | #0 g_di|alog dlo|
|00002990| 67 0a 20 75 70 76 61 72 | 20 23 30 20 67 5f 6e 6f |g. upvar| #0 g_no|
|000029a0| 69 64 20 6e 6f 69 64 0a | 20 73 65 74 20 74 61 72 |id noid.| set tar|
|000029b0| 67 65 74 20 24 6e 6f 69 | 64 0a 20 0a 20 62 6c 6f |get $noi|d. . blo|
|000029c0| 63 6b 0a 20 72 65 71 75 | 65 73 74 20 30 20 32 30 |ck. requ|est 0 20|
|000029d0| 38 20 7b 0a 20 74 61 72 | 67 65 74 20 24 74 61 72 |8 {. tar|get $tar|
|000029e0| 67 65 74 0a 20 70 72 6f | 70 65 72 74 79 20 5b 64 |get. pro|perty [d|
|000029f0| 69 61 6c 6f 67 47 65 74 | 56 61 6c 75 65 20 24 64 |ialogGet|Value $d|
|00002a00| 6c 6f 67 20 50 72 6f 70 | 65 72 74 79 5d 0a 20 7d |log Prop|erty]. }|
|00002a10| 20 32 30 39 0a 20 75 6e | 62 6c 6f 63 6b 0a 20 0a | 209. un|block. .|
|00002a20| 20 69 66 20 7b 20 5b 20 | 40 20 72 65 70 6c 79 20 | if { [ |@ reply |
|00002a30| 73 75 63 63 65 73 73 5d | 20 21 3d 20 30 20 7d 20 |success]| != 0 } |
|00002a40| 7b 0a 20 64 69 61 6c 6f | 67 4b 69 6c 6c 20 24 64 |{. dialo|gKill $d|
|00002a50| 6c 6f 67 0a 20 68 61 6e | 64 6c 65 46 61 69 6c 75 |log. han|dleFailu|
|00002a60| 72 65 20 5b 40 20 72 65 | 70 6c 79 20 73 75 63 63 |re [@ re|ply succ|
|00002a70| 65 73 73 5d 20 5b 40 20 | 72 65 70 6c 79 20 66 61 |ess] [@ |reply fa|
|00002a80| 69 6c 5f 6d 73 67 5d 0a | 20 7d 0a 20 64 69 61 6c |il_msg].| }. dial|
|00002a90| 6f 67 53 65 74 56 61 6c | 75 65 20 24 64 6c 6f 67 |ogSetVal|ue $dlog|
|00002aa0| 20 56 61 6c 75 65 20 5b | 40 20 72 65 70 6c 79 20 | Value [|@ reply |
|00002ab0| 76 61 6c 75 65 5d 0a 7d | 0a 20 0a 70 72 6f 63 20 |value].}|. .proc |
|00002ac0| 66 70 5f 62 75 74 74 6f | 6e 32 20 7b 20 73 65 6c |fp_butto|n2 { sel|
|00002ad0| 66 20 7d 20 7b 0a 20 75 | 70 76 61 72 20 23 30 20 |f } {. u|pvar #0 |
|00002ae0| 67 5f 64 69 61 6c 6f 67 | 20 64 6c 6f 67 0a 20 75 |g_dialog| dlog. u|
|00002af0| 70 76 61 72 20 23 30 20 | 67 5f 6e 6f 69 64 20 6e |pvar #0 |g_noid n|
|00002b00| 6f 69 64 0a 20 0a 20 73 | 65 74 20 74 61 72 67 65 |oid. . s|et targe|
|00002b10| 74 20 24 6e 6f 69 64 0a | 20 0a 20 62 6c 6f 63 6b |t $noid.| . block|
|00002b20| 0a 20 72 65 71 75 65 73 | 74 20 30 20 32 31 30 20 |. reques|t 0 210 |
|00002b30| 7b 0a 20 74 61 72 67 65 | 74 20 24 74 61 72 67 65 |{. targe|t $targe|
|00002b40| 74 0a 20 70 72 6f 70 65 | 72 74 79 20 5b 64 69 61 |t. prope|rty [dia|
|00002b50| 6c 6f 67 47 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logGetVa|lue $dlo|
|00002b60| 67 20 50 72 6f 70 65 72 | 74 79 5d 0a 20 76 61 6c |g Proper|ty]. val|
|00002b70| 75 65 20 5b 64 69 61 6c | 6f 67 47 65 74 56 61 6c |ue [dial|ogGetVal|
|00002b80| 75 65 20 24 64 6c 6f 67 | 20 56 61 6c 75 65 5d 0a |ue $dlog| Value].|
|00002b90| 20 7d 20 37 30 0a 20 75 | 6e 62 6c 6f 63 6b 0a 20 | } 70. u|nblock. |
|00002ba0| 0a 20 69 66 20 7b 20 5b | 20 40 20 72 65 70 6c 79 |. if { [| @ reply|
|00002bb0| 20 73 75 63 63 65 73 73 | 5d 20 21 3d 20 30 20 7d | success|] != 0 }|
|00002bc0| 20 7b 0a 20 64 69 61 6c | 6f 67 4b 69 6c 6c 20 24 | {. dial|ogKill $|
|00002bd0| 64 6c 6f 67 0a 20 68 61 | 6e 64 6c 65 46 61 69 6c |dlog. ha|ndleFail|
|00002be0| 75 72 65 20 5b 40 20 72 | 65 70 6c 79 20 73 75 63 |ure [@ r|eply suc|
|00002bf0| 63 65 73 73 5d 20 5b 40 | 20 72 65 70 6c 79 20 66 |cess] [@| reply f|
|00002c00| 61 69 6c 5f 6d 73 67 5d | 0a 20 7d 0a 20 64 69 61 |ail_msg]|. }. dia|
|00002c10| 6c 6f 67 53 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logSetVa|lue $dlo|
|00002c20| 67 20 42 75 74 74 6f 6e | 33 20 22 44 6f 6e 65 22 |g Button|3 "Done"|
|00002c30| 0a 7d 0a 70 72 6f 63 20 | 66 63 72 5f 62 75 74 74 |.}.proc |fcr_butt|
|00002c40| 6f 6e 31 20 7b 20 73 65 | 6c 66 20 7d 20 7b 0a 20 |on1 { se|lf } {. |
|00002c50| 75 70 76 61 72 20 23 30 | 20 67 5f 64 69 61 6c 6f |upvar #0| g_dialo|
|00002c60| 67 20 64 6c 6f 67 0a 20 | 73 65 74 20 6e 61 6d 65 |g dlog. |set name|
|00002c70| 20 5b 64 69 61 6c 6f 67 | 47 65 74 56 61 6c 75 65 | [dialog|GetValue|
|00002c80| 20 24 64 6c 6f 67 20 4e | 61 6d 65 5d 0a 20 73 65 | $dlog N|ame]. se|
|00002c90| 74 20 61 64 64 72 65 73 | 73 20 5b 64 69 61 6c 6f |t addres|s [dialo|
|00002ca0| 67 47 65 74 56 61 6c 75 | 65 20 24 64 6c 6f 67 20 |gGetValu|e $dlog |
|00002cb0| 41 64 64 72 65 73 73 5d | 0a 20 73 65 74 20 61 72 |Address]|. set ar|
|00002cc0| 65 61 43 6f 64 65 20 5b | 64 69 61 6c 6f 67 47 65 |eaCode [|dialogGe|
|00002cd0| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 41 72 65 |tValue $|dlog Are|
|00002ce0| 61 43 6f 64 65 5d 0a 20 | 73 65 74 20 72 65 67 69 |aCode]. |set regi|
|00002cf0| 6f 6e 4e 75 6d 20 5b 64 | 69 61 6c 6f 67 47 65 74 |onNum [d|ialogGet|
|00002d00| 56 61 6c 75 65 20 24 64 | 6c 6f 67 20 52 65 67 69 |Value $d|log Regi|
|00002d10| 6f 6e 4e 75 6d 5d 0a 20 | 73 65 74 20 68 65 6c 70 |onNum]. |set help|
|00002d20| 65 72 73 20 5b 64 69 61 | 6c 6f 67 47 65 74 56 61 |ers [dia|logGetVa|
|00002d30| 6c 75 65 20 24 64 6c 6f | 67 20 48 65 6c 70 65 72 |lue $dlo|g Helper|
|00002d40| 73 5d 0a 20 73 65 74 20 | 63 6c 6f 6e 65 20 5b 64 |s]. set |clone [d|
|00002d50| 69 61 6c 6f 67 47 65 74 | 56 61 6c 75 65 20 24 64 |ialogGet|Value $d|
|00002d60| 6c 6f 67 20 43 6c 6f 6e | 65 5d 0a 20 73 65 74 20 |log Clon|e]. set |
|00002d70| 67 75 69 64 65 73 20 5b | 64 69 61 6c 6f 67 47 65 |guides [|dialogGe|
|00002d80| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 47 75 69 |tValue $|dlog Gui|
|00002d90| 64 65 73 5d 0a 20 73 65 | 74 20 68 61 74 63 68 65 |des]. se|t hatche|
|00002da0| 72 79 20 5b 64 69 61 6c | 6f 67 47 65 74 56 61 6c |ry [dial|ogGetVal|
|00002db0| 75 65 20 24 64 6c 6f 67 | 20 48 61 74 63 68 65 72 |ue $dlog| Hatcher|
|00002dc0| 79 5d 0a 20 73 65 74 20 | 77 69 7a 61 72 64 73 20 |y]. set |wizards |
|00002dd0| 5b 64 69 61 6c 6f 67 47 | 65 74 56 61 6c 75 65 20 |[dialogG|etValue |
|00002de0| 24 64 6c 6f 67 20 57 69 | 7a 61 72 64 73 5d 0a 20 |$dlog Wi|zards]. |
|00002df0| 73 65 74 20 6e 6f 47 61 | 6d 65 73 20 5b 64 69 61 |set noGa|mes [dia|
|00002e00| 6c 6f 67 47 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logGetVa|lue $dlo|
|00002e10| 67 20 4e 6f 47 61 6d 65 | 73 5d 0a 20 73 65 74 20 |g NoGame|s]. set |
|00002e20| 6c 6f 67 69 6e 20 5b 64 | 69 61 6c 6f 67 47 65 74 |login [d|ialogGet|
|00002e30| 56 61 6c 75 65 20 24 64 | 6c 6f 67 20 4c 6f 67 69 |Value $d|log Logi|
|00002e40| 6e 5d 0a 20 73 65 74 20 | 74 72 61 63 65 20 5b 64 |n]. set |trace [d|
|00002e50| 69 61 6c 6f 67 47 65 74 | 56 61 6c 75 65 20 24 64 |ialogGet|Value $d|
|00002e60| 6c 6f 67 20 54 72 61 63 | 65 5d 0a 20 73 65 74 20 |log Trac|e]. set |
|00002e70| 70 75 62 6c 69 63 20 5b | 64 69 61 6c 6f 67 47 65 |public [|dialogGe|
|00002e80| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 50 75 62 |tValue $|dlog Pub|
|00002e90| 6c 69 63 5d 20 0a 20 69 | 66 20 7b 24 61 64 64 72 |lic] . i|f {$addr|
|00002ea0| 65 73 73 20 3d 3d 20 22 | 22 7d 20 7b 0a 20 70 6c |ess == "|"} {. pl|
|00002eb0| 61 79 53 6f 75 6e 64 20 | 30 20 38 33 0a 20 73 79 |aySound |0 83. sy|
|00002ec0| 73 74 65 6d 5f 62 61 6c | 6c 6f 6f 6e 20 30 20 22 |stem_bal|loon 0 "|
|00002ed0| 53 6f 72 72 79 2c 20 61 | 20 76 61 6c 69 64 20 41 |Sorry, a| valid A|
|00002ee0| 64 64 72 65 73 73 20 69 | 73 20 72 65 71 75 69 72 |ddress i|s requir|
|00002ef0| 65 64 2e 22 0a 20 64 69 | 61 6c 6f 67 53 65 74 56 |ed.". di|alogSetV|
|00002f00| 61 6c 75 65 20 24 64 6c | 6f 67 20 42 75 74 74 6f |alue $dl|og Butto|
|00002f10| 6e 32 20 22 43 61 6e 63 | 65 6c 22 0a 20 72 65 74 |n2 "Canc|el". ret|
|00002f20| 75 72 6e 0a 20 7d 0a 20 | 69 66 20 7b 5b 69 73 4e |urn. }. |if {[isN|
|00002f30| 75 6d 62 65 72 20 24 61 | 72 65 61 43 6f 64 65 5d |umber $a|reaCode]|
|00002f40| 20 3d 3d 20 30 7d 20 7b | 0a 20 70 6c 61 79 53 6f | == 0} {|. playSo|
|00002f50| 75 6e 64 20 30 20 38 33 | 0a 20 73 79 73 74 65 6d |und 0 83|. system|
|00002f60| 5f 62 61 6c 6c 6f 6f 6e | 20 30 20 22 53 6f 72 72 |_balloon| 0 "Sorr|
|00002f70| 79 2c 20 69 6e 76 61 6c | 69 64 20 6e 75 6d 62 65 |y, inval|id numbe|
|00002f80| 72 20 66 6f 72 20 41 72 | 65 61 20 43 6f 64 65 2e |r for Ar|ea Code.|
|00002f90| 22 0a 20 64 69 61 6c 6f | 67 53 65 74 56 61 6c 75 |". dialo|gSetValu|
|00002fa0| 65 20 24 64 6c 6f 67 20 | 42 75 74 74 6f 6e 32 20 |e $dlog |Button2 |
|00002fb0| 22 43 61 6e 63 65 6c 22 | 0a 20 72 65 74 75 72 6e |"Cancel"|. return|
|00002fc0| 0a 20 7d 0a 20 69 66 20 | 7b 24 72 65 67 69 6f 6e |. }. if |{$region|
|00002fd0| 4e 75 6d 20 3d 3d 20 22 | 61 75 74 6f 22 7d 20 7b |Num == "|auto"} {|
|00002fe0| 0a 20 73 65 74 20 72 65 | 67 69 6f 6e 4e 75 6d 20 |. set re|gionNum |
|00002ff0| 2d 32 0a 20 7d 20 65 6c | 73 65 69 66 20 7b 5b 69 |-2. } el|seif {[i|
|00003000| 73 4e 75 6d 62 65 72 20 | 24 72 65 67 69 6f 6e 4e |sNumber |$regionN|
|00003010| 75 6d 5d 20 3d 3d 20 30 | 7d 20 7b 0a 20 70 6c 61 |um] == 0|} {. pla|
|00003020| 79 53 6f 75 6e 64 20 30 | 20 38 33 0a 20 73 79 73 |ySound 0| 83. sys|
|00003030| 74 65 6d 5f 62 61 6c 6c | 6f 6f 6e 20 30 20 22 53 |tem_ball|oon 0 "S|
|00003040| 6f 72 72 79 2c 20 69 6e | 76 61 6c 69 64 20 6e 75 |orry, in|valid nu|
|00003050| 6d 62 65 72 20 66 6f 72 | 20 52 65 67 69 6f 6e 20 |mber for| Region |
|00003060| 4e 75 6d 62 65 72 2e 22 | 0a 20 64 69 61 6c 6f 67 |Number."|. dialog|
|00003070| 53 65 74 56 61 6c 75 65 | 20 24 64 6c 6f 67 20 42 |SetValue| $dlog B|
|00003080| 75 74 74 6f 6e 32 20 22 | 43 61 6e 63 65 6c 22 0a |utton2 "|Cancel".|
|00003090| 20 72 65 74 75 72 6e 0a | 20 7d 0a 20 73 65 74 20 | return.| }. set |
|000030a0| 72 65 67 69 6f 6e 46 6c | 61 67 73 20 30 0a 20 69 |regionFl|ags 0. i|
|000030b0| 66 20 7b 24 68 65 6c 70 | 65 72 73 7d 20 7b 0a 20 |f {$help|ers} {. |
|000030c0| 73 65 74 20 72 65 67 69 | 6f 6e 46 6c 61 67 73 20 |set regi|onFlags |
|000030d0| 5b 65 78 70 72 20 24 72 | 65 67 69 6f 6e 46 6c 61 |[expr $r|egionFla|
|000030e0| 67 73 20 7c 20 32 35 36 | 5d 0a 20 7d 0a 20 69 66 |gs | 256|]. }. if|
|000030f0| 20 7b 24 63 6c 6f 6e 65 | 7d 20 7b 0a 20 73 65 74 | {$clone|} {. set|
|00003100| 20 72 65 67 69 6f 6e 46 | 6c 61 67 73 20 5b 65 78 | regionF|lags [ex|
|00003110| 70 72 20 24 72 65 67 69 | 6f 6e 46 6c 61 67 73 20 |pr $regi|onFlags |
|00003120| 7c 20 31 36 5d 0a 20 7d | 0a 20 69 66 20 7b 24 67 || 16]. }|. if {$g|
|00003130| 75 69 64 65 73 7d 20 7b | 0a 20 73 65 74 20 72 65 |uides} {|. set re|
|00003140| 67 69 6f 6e 46 6c 61 67 | 73 20 5b 65 78 70 72 20 |gionFlag|s [expr |
|00003150| 24 72 65 67 69 6f 6e 46 | 6c 61 67 73 20 7c 20 35 |$regionF|lags | 5|
|00003160| 31 32 5d 0a 20 7d 0a 20 | 69 66 20 7b 24 68 61 74 |12]. }. |if {$hat|
|00003170| 63 68 65 72 79 7d 20 7b | 0a 20 73 65 74 20 72 65 |chery} {|. set re|
|00003180| 67 69 6f 6e 46 6c 61 67 | 73 20 5b 65 78 70 72 20 |gionFlag|s [expr |
|00003190| 24 72 65 67 69 6f 6e 46 | 6c 61 67 73 20 7c 20 36 |$regionF|lags | 6|
|000031a0| 34 5d 0a 20 7d 0a 20 69 | 66 20 7b 24 77 69 7a 61 |4]. }. i|f {$wiza|
|000031b0| 72 64 73 7d 20 7b 0a 20 | 73 65 74 20 72 65 67 69 |rds} {. |set regi|
|000031c0| 6f 6e 46 6c 61 67 73 20 | 5b 65 78 70 72 20 24 72 |onFlags |[expr $r|
|000031d0| 65 67 69 6f 6e 46 6c 61 | 67 73 20 7c 20 31 30 32 |egionFla|gs | 102|
|000031e0| 34 5d 0a 20 7d 0a 20 69 | 66 20 7b 24 6e 6f 47 61 |4]. }. i|f {$noGa|
|000031f0| 6d 65 73 7d 20 7b 0a 20 | 73 65 74 20 72 65 67 69 |mes} {. |set regi|
|00003200| 6f 6e 46 6c 61 67 73 20 | 5b 65 78 70 72 20 24 72 |onFlags |[expr $r|
|00003210| 65 67 69 6f 6e 46 6c 61 | 67 73 20 7c 20 38 31 39 |egionFla|gs | 819|
|00003220| 32 5d 0a 20 7d 0a 20 69 | 66 20 7b 24 6c 6f 67 69 |2]. }. i|f {$logi|
|00003230| 6e 7d 20 7b 0a 20 73 65 | 74 20 72 65 67 69 6f 6e |n} {. se|t region|
|00003240| 46 6c 61 67 73 20 5b 65 | 78 70 72 20 24 72 65 67 |Flags [e|xpr $reg|
|00003250| 69 6f 6e 46 6c 61 67 73 | 20 7c 20 31 36 33 38 34 |ionFlags| | 16384|
|00003260| 5d 0a 20 7d 0a 20 69 66 | 20 7b 24 74 72 61 63 65 |]. }. if| {$trace|
|00003270| 7d 20 7b 0a 20 73 65 74 | 20 72 65 67 69 6f 6e 46 |} {. set| regionF|
|00003280| 6c 61 67 73 20 5b 65 78 | 70 72 20 24 72 65 67 69 |lags [ex|pr $regi|
|00003290| 6f 6e 46 6c 61 67 73 20 | 7c 20 33 32 37 36 38 5d |onFlags || 32768]|
|000032a0| 0a 20 7d 0a 20 69 66 20 | 7b 24 70 75 62 6c 69 63 |. }. if |{$public|
|000032b0| 7d 20 7b 0a 20 73 65 74 | 20 72 65 67 69 6f 6e 46 |} {. set| regionF|
|000032c0| 6c 61 67 73 20 5b 65 78 | 70 72 20 24 72 65 67 69 |lags [ex|pr $regi|
|000032d0| 6f 6e 46 6c 61 67 73 20 | 7c 20 36 35 35 33 36 5d |onFlags || 65536]|
|000032e0| 0a 20 7d 0a 20 62 6c 6f | 63 6b 0a 20 72 65 71 75 |. }. blo|ck. requ|
|000032f0| 65 73 74 20 30 20 32 32 | 30 20 7b 0a 20 6e 61 6d |est 0 22|0 {. nam|
|00003300| 65 20 24 6e 61 6d 65 0a | 20 61 64 64 72 65 73 73 |e $name.| address|
|00003310| 20 24 61 64 64 72 65 73 | 73 0a 20 61 72 65 61 43 | $addres|s. areaC|
|00003320| 6f 64 65 20 24 61 72 65 | 61 43 6f 64 65 0a 20 72 |ode $are|aCode. r|
|00003330| 65 67 69 6f 6e 46 6c 61 | 67 73 20 24 72 65 67 69 |egionFla|gs $regi|
|00003340| 6f 6e 46 6c 61 67 73 0a | 20 72 65 67 69 6f 6e 4e |onFlags.| regionN|
|00003350| 75 6d 20 24 72 65 67 69 | 6f 6e 4e 75 6d 0a 20 7d |um $regi|onNum. }|
|00003360| 20 37 30 0a 20 75 6e 62 | 6c 6f 63 6b 0a 20 69 66 | 70. unb|lock. if|
|00003370| 20 7b 5b 40 20 72 65 70 | 6c 79 20 73 75 63 63 65 | {[@ rep|ly succe|
|00003380| 73 73 5d 20 3d 3d 20 30 | 7d 20 7b 0a 20 69 6e 66 |ss] == 0|} {. inf|
|00003390| 6f 5f 62 61 6c 6c 6f 6f | 6e 20 30 20 22 24 61 64 |o_balloo|n 0 "$ad|
|000033a0| 64 72 65 73 73 20 63 72 | 65 61 74 65 64 2e 22 0a |dress cr|eated.".|
|000033b0| 20 64 69 61 6c 6f 67 53 | 65 74 56 61 6c 75 65 20 | dialogS|etValue |
|000033c0| 24 64 6c 6f 67 20 42 75 | 74 74 6f 6e 32 20 22 44 |$dlog Bu|tton2 "D|
|000033d0| 6f 6e 65 22 0a 20 72 65 | 74 75 72 6e 0a 20 7d 20 |one". re|turn. } |
|000033e0| 65 6c 73 65 69 66 20 7b | 5b 40 20 72 65 70 6c 79 |elseif {|[@ reply|
|000033f0| 20 73 75 63 63 65 73 73 | 5d 20 3d 3d 20 35 7d 20 | success|] == 5} |
|00003400| 7b 0a 20 70 6c 61 79 53 | 6f 75 6e 64 20 30 20 38 |{. playS|ound 0 8|
|00003410| 33 0a 20 73 79 73 74 65 | 6d 5f 62 61 6c 6c 6f 6f |3. syste|m_balloo|
|00003420| 6e 20 30 20 22 5b 40 20 | 72 65 70 6c 79 20 66 61 |n 0 "[@ |reply fa|
|00003430| 69 6c 5f 6d 73 67 5d 22 | 0a 20 64 69 61 6c 6f 67 |il_msg]"|. dialog|
|00003440| 53 65 74 56 61 6c 75 65 | 20 24 64 6c 6f 67 20 42 |SetValue| $dlog B|
|00003450| 75 74 74 6f 6e 32 20 22 | 43 61 6e 63 65 6c 22 0a |utton2 "|Cancel".|
|00003460| 20 72 65 74 75 72 6e 0a | 20 7d 20 65 6c 73 65 20 | return.| } else |
|00003470| 7b 0a 20 70 6c 61 79 53 | 6f 75 6e 64 20 30 20 38 |{. playS|ound 0 8|
|00003480| 33 0a 20 64 69 61 6c 6f | 67 4b 69 6c 6c 20 24 64 |3. dialo|gKill $d|
|00003490| 6c 6f 67 0a 20 72 65 74 | 75 72 6e 0a 20 7d 0a 7d |log. ret|urn. }.}|
|000034a0| 0a 70 72 6f 63 20 66 64 | 72 5f 62 75 74 74 6f 6e |.proc fd|r_button|
|000034b0| 31 20 7b 20 73 65 6c 66 | 20 7d 20 7b 0a 20 75 70 |1 { self| } {. up|
|000034c0| 76 61 72 20 23 30 20 67 | 5f 64 69 61 6c 6f 67 20 |var #0 g|_dialog |
|000034d0| 64 6c 6f 67 0a 20 73 65 | 74 20 61 64 64 72 65 73 |dlog. se|t addres|
|000034e0| 73 20 5b 64 69 61 6c 6f | 67 47 65 74 56 61 6c 75 |s [dialo|gGetValu|
|000034f0| 65 20 24 64 6c 6f 67 20 | 41 64 64 72 65 73 73 5d |e $dlog |Address]|
|00003500| 0a 20 73 65 74 20 61 72 | 65 61 43 6f 64 65 20 5b |. set ar|eaCode [|
|00003510| 64 69 61 6c 6f 67 47 65 | 74 56 61 6c 75 65 20 24 |dialogGe|tValue $|
|00003520| 64 6c 6f 67 20 41 72 65 | 61 43 6f 64 65 5d 0a 20 |dlog Are|aCode]. |
|00003530| 69 66 20 7b 24 61 64 64 | 72 65 73 73 20 3d 3d 20 |if {$add|ress == |
|00003540| 22 22 7d 20 7b 0a 20 70 | 6c 61 79 53 6f 75 6e 64 |""} {. p|laySound|
|00003550| 20 30 20 38 33 0a 20 73 | 79 73 74 65 6d 5f 62 61 | 0 83. s|ystem_ba|
|00003560| 6c 6c 6f 6f 6e 20 30 20 | 22 53 6f 72 72 79 2c 20 |lloon 0 |"Sorry, |
|00003570| 61 20 76 61 6c 69 64 20 | 41 64 64 72 65 73 73 20 |a valid |Address |
|00003580| 69 73 20 72 65 71 75 69 | 72 65 64 2e 22 0a 20 64 |is requi|red.". d|
|00003590| 69 61 6c 6f 67 53 65 74 | 56 61 6c 75 65 20 24 64 |ialogSet|Value $d|
|000035a0| 6c 6f 67 20 42 75 74 74 | 6f 6e 32 20 22 43 61 6e |log Butt|on2 "Can|
|000035b0| 63 65 6c 22 0a 20 72 65 | 74 75 72 6e 0a 20 7d 0a |cel". re|turn. }.|
|000035c0| 20 69 66 20 7b 5b 69 73 | 4e 75 6d 62 65 72 20 24 | if {[is|Number $|
|000035d0| 61 72 65 61 43 6f 64 65 | 5d 20 3d 3d 20 30 7d 20 |areaCode|] == 0} |
|000035e0| 7b 0a 20 70 6c 61 79 53 | 6f 75 6e 64 20 30 20 38 |{. playS|ound 0 8|
|000035f0| 33 0a 20 73 79 73 74 65 | 6d 5f 62 61 6c 6c 6f 6f |3. syste|m_balloo|
|00003600| 6e 20 30 20 22 53 6f 72 | 72 79 2c 20 69 6e 76 61 |n 0 "Sor|ry, inva|
|00003610| 6c 69 64 20 6e 75 6d 62 | 65 72 20 66 6f 72 20 41 |lid numb|er for A|
|00003620| 72 65 61 20 43 6f 64 65 | 2e 22 0a 20 64 69 61 6c |rea Code|.". dial|
|00003630| 6f 67 53 65 74 56 61 6c | 75 65 20 24 64 6c 6f 67 |ogSetVal|ue $dlog|
|00003640| 20 42 75 74 74 6f 6e 32 | 20 22 43 61 6e 63 65 6c | Button2| "Cancel|
|00003650| 22 0a 20 72 65 74 75 72 | 6e 0a 20 7d 0a 20 62 6c |". retur|n. }. bl|
|00003660| 6f 63 6b 0a 20 72 65 71 | 75 65 73 74 20 30 20 32 |ock. req|uest 0 2|
|00003670| 32 31 20 7b 0a 20 61 64 | 64 72 65 73 73 20 24 61 |21 {. ad|dress $a|
|00003680| 64 64 72 65 73 73 0a 20 | 61 72 65 61 43 6f 64 65 |ddress. |areaCode|
|00003690| 20 24 61 72 65 61 43 6f | 64 65 0a 20 7d 20 37 30 | $areaCo|de. } 70|
|000036a0| 0a 20 75 6e 62 6c 6f 63 | 6b 0a 20 69 66 20 7b 5b |. unbloc|k. if {[|
|000036b0| 40 20 72 65 70 6c 79 20 | 73 75 63 63 65 73 73 5d |@ reply |success]|
|000036c0| 20 3d 3d 20 30 7d 20 7b | 0a 20 69 6e 66 6f 5f 62 | == 0} {|. info_b|
|000036d0| 61 6c 6c 6f 6f 6e 20 30 | 20 22 24 61 64 64 72 65 |alloon 0| "$addre|
|000036e0| 73 73 20 63 72 65 61 74 | 65 64 2e 22 0a 20 64 69 |ss creat|ed.". di|
|000036f0| 61 6c 6f 67 53 65 74 56 | 61 6c 75 65 20 24 64 6c |alogSetV|alue $dl|
|00003700| 6f 67 20 42 75 74 74 6f | 6e 32 20 22 44 6f 6e 65 |og Butto|n2 "Done|
|00003710| 22 0a 20 72 65 74 75 72 | 6e 0a 20 7d 20 65 6c 73 |". retur|n. } els|
|00003720| 65 69 66 20 7b 5b 40 20 | 72 65 70 6c 79 20 73 75 |eif {[@ |reply su|
|00003730| 63 63 65 73 73 5d 20 3d | 3d 20 35 7d 20 7b 0a 20 |ccess] =|= 5} {. |
|00003740| 70 6c 61 79 53 6f 75 6e | 64 20 30 20 38 33 0a 20 |playSoun|d 0 83. |
|00003750| 73 79 73 74 65 6d 5f 62 | 61 6c 6c 6f 6f 6e 20 30 |system_b|alloon 0|
|00003760| 20 22 5b 40 20 72 65 70 | 6c 79 20 66 61 69 6c 5f | "[@ rep|ly fail_|
|00003770| 6d 73 67 5d 22 0a 20 64 | 69 61 6c 6f 67 53 65 74 |msg]". d|ialogSet|
|00003780| 56 61 6c 75 65 20 24 64 | 6c 6f 67 20 42 75 74 74 |Value $d|log Butt|
|00003790| 6f 6e 32 20 22 43 61 6e | 63 65 6c 22 0a 20 72 65 |on2 "Can|cel". re|
|000037a0| 74 75 72 6e 0a 20 7d 20 | 65 6c 73 65 20 7b 0a 20 |turn. } |else {. |
|000037b0| 70 6c 61 79 53 6f 75 6e | 64 20 30 20 38 33 0a 20 |playSoun|d 0 83. |
|000037c0| 64 69 61 6c 6f 67 4b 69 | 6c 6c 20 24 64 6c 6f 67 |dialogKi|ll $dlog|
|000037d0| 0a 20 72 65 74 75 72 6e | 0a 20 7d 0a 7d 0a 70 72 |. return|. }.}.pr|
|000037e0| 6f 63 20 66 6d 72 5f 62 | 75 74 74 6f 6e 31 20 7b |oc fmr_b|utton1 {|
|000037f0| 20 73 65 6c 66 20 7d 20 | 7b 0a 20 75 70 76 61 72 | self } |{. upvar|
|00003800| 20 23 30 20 67 5f 64 69 | 61 6c 6f 67 20 64 6c 6f | #0 g_di|alog dlo|
|00003810| 67 0a 20 73 65 74 20 6e | 61 6d 65 20 5b 64 69 61 |g. set n|ame [dia|
|00003820| 6c 6f 67 47 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logGetVa|lue $dlo|
|00003830| 67 20 4e 61 6d 65 5d 0a | 20 73 65 74 20 61 64 64 |g Name].| set add|
|00003840| 72 65 73 73 20 5b 64 69 | 61 6c 6f 67 47 65 74 56 |ress [di|alogGetV|
|00003850| 61 6c 75 65 20 24 64 6c | 6f 67 20 41 64 64 72 65 |alue $dl|og Addre|
|00003860| 73 73 5d 0a 20 73 65 74 | 20 61 72 65 61 43 6f 64 |ss]. set| areaCod|
|00003870| 65 20 5b 64 69 61 6c 6f | 67 47 65 74 56 61 6c 75 |e [dialo|gGetValu|
|00003880| 65 20 24 64 6c 6f 67 20 | 41 72 65 61 43 6f 64 65 |e $dlog |AreaCode|
|00003890| 5d 0a 20 73 65 74 20 68 | 65 6c 70 65 72 73 20 5b |]. set h|elpers [|
|000038a0| 64 69 61 6c 6f 67 47 65 | 74 56 61 6c 75 65 20 24 |dialogGe|tValue $|
|000038b0| 64 6c 6f 67 20 48 65 6c | 70 65 72 73 5d 0a 20 73 |dlog Hel|pers]. s|
|000038c0| 65 74 20 63 6c 6f 6e 65 | 20 5b 64 69 61 6c 6f 67 |et clone| [dialog|
|000038d0| 47 65 74 56 61 6c 75 65 | 20 24 64 6c 6f 67 20 43 |GetValue| $dlog C|
|000038e0| 6c 6f 6e 65 5d 0a 20 73 | 65 74 20 67 75 69 64 65 |lone]. s|et guide|
|000038f0| 73 20 5b 64 69 61 6c 6f | 67 47 65 74 56 61 6c 75 |s [dialo|gGetValu|
|00003900| 65 20 24 64 6c 6f 67 20 | 47 75 69 64 65 73 5d 0a |e $dlog |Guides].|
|00003910| 20 73 65 74 20 68 61 74 | 63 68 65 72 79 20 5b 64 | set hat|chery [d|
|00003920| 69 61 6c 6f 67 47 65 74 | 56 61 6c 75 65 20 24 64 |ialogGet|Value $d|
|00003930| 6c 6f 67 20 48 61 74 63 | 68 65 72 79 5d 0a 20 73 |log Hatc|hery]. s|
|00003940| 65 74 20 77 69 7a 61 72 | 64 73 20 5b 64 69 61 6c |et wizar|ds [dial|
|00003950| 6f 67 47 65 74 56 61 6c | 75 65 20 24 64 6c 6f 67 |ogGetVal|ue $dlog|
|00003960| 20 57 69 7a 61 72 64 73 | 5d 0a 20 73 65 74 20 6e | Wizards|]. set n|
|00003970| 6f 47 61 6d 65 73 20 5b | 64 69 61 6c 6f 67 47 65 |oGames [|dialogGe|
|00003980| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 4e 6f 47 |tValue $|dlog NoG|
|00003990| 61 6d 65 73 5d 0a 20 73 | 65 74 20 6c 6f 67 69 6e |ames]. s|et login|
|000039a0| 20 5b 64 69 61 6c 6f 67 | 47 65 74 56 61 6c 75 65 | [dialog|GetValue|
|000039b0| 20 24 64 6c 6f 67 20 4c | 6f 67 69 6e 5d 0a 20 73 | $dlog L|ogin]. s|
|000039c0| 65 74 20 74 72 61 63 65 | 20 5b 64 69 61 6c 6f 67 |et trace| [dialog|
|000039d0| 47 65 74 56 61 6c 75 65 | 20 24 64 6c 6f 67 20 54 |GetValue| $dlog T|
|000039e0| 72 61 63 65 5d 0a 20 73 | 65 74 20 70 75 62 6c 69 |race]. s|et publi|
|000039f0| 63 20 5b 64 69 61 6c 6f | 67 47 65 74 56 61 6c 75 |c [dialo|gGetValu|
|00003a00| 65 20 24 64 6c 6f 67 20 | 50 75 62 6c 69 63 5d 0a |e $dlog |Public].|
|00003a10| 20 0a 20 69 66 20 7b 5b | 69 73 4e 75 6d 62 65 72 | . if {[|isNumber|
|00003a20| 20 24 61 72 65 61 43 6f | 64 65 5d 20 3d 3d 20 30 | $areaCo|de] == 0|
|00003a30| 7d 20 7b 0a 20 70 6c 61 | 79 53 6f 75 6e 64 20 30 |} {. pla|ySound 0|
|00003a40| 20 38 33 0a 20 73 79 73 | 74 65 6d 5f 62 61 6c 6c | 83. sys|tem_ball|
|00003a50| 6f 6f 6e 20 30 20 22 53 | 6f 72 72 79 2c 20 69 6e |oon 0 "S|orry, in|
|00003a60| 76 61 6c 69 64 20 6e 75 | 6d 62 65 72 20 66 6f 72 |valid nu|mber for|
|00003a70| 20 41 72 65 61 20 43 6f | 64 65 2e 22 0a 20 64 69 | Area Co|de.". di|
|00003a80| 61 6c 6f 67 53 65 74 56 | 61 6c 75 65 20 24 64 6c |alogSetV|alue $dl|
|00003a90| 6f 67 20 42 75 74 74 6f | 6e 32 20 22 43 61 6e 63 |og Butto|n2 "Canc|
|00003aa0| 65 6c 22 0a 20 72 65 74 | 75 72 6e 0a 20 7d 0a 20 |el". ret|urn. }. |
|00003ab0| 73 65 74 20 72 65 67 69 | 6f 6e 46 6c 61 67 73 20 |set regi|onFlags |
|00003ac0| 30 0a 20 69 66 20 7b 24 | 68 65 6c 70 65 72 73 7d |0. if {$|helpers}|
|00003ad0| 20 7b 0a 20 73 65 74 20 | 72 65 67 69 6f 6e 46 6c | {. set |regionFl|
|00003ae0| 61 67 73 20 5b 65 78 70 | 72 20 24 72 65 67 69 6f |ags [exp|r $regio|
|00003af0| 6e 46 6c 61 67 73 20 7c | 20 32 35 36 5d 0a 20 7d |nFlags || 256]. }|
|00003b00| 0a 20 69 66 20 7b 24 63 | 6c 6f 6e 65 7d 20 7b 0a |. if {$c|lone} {.|
|00003b10| 20 73 65 74 20 72 65 67 | 69 6f 6e 46 6c 61 67 73 | set reg|ionFlags|
|00003b20| 20 5b 65 78 70 72 20 24 | 72 65 67 69 6f 6e 46 6c | [expr $|regionFl|
|00003b30| 61 67 73 20 7c 20 31 36 | 5d 0a 20 7d 0a 20 69 66 |ags | 16|]. }. if|
|00003b40| 20 7b 24 67 75 69 64 65 | 73 7d 20 7b 0a 20 73 65 | {$guide|s} {. se|
|00003b50| 74 20 72 65 67 69 6f 6e | 46 6c 61 67 73 20 5b 65 |t region|Flags [e|
|00003b60| 78 70 72 20 24 72 65 67 | 69 6f 6e 46 6c 61 67 73 |xpr $reg|ionFlags|
|00003b70| 20 7c 20 35 31 32 5d 0a | 20 7d 0a 20 69 66 20 7b | | 512].| }. if {|
|00003b80| 24 68 61 74 63 68 65 72 | 79 7d 20 7b 0a 20 73 65 |$hatcher|y} {. se|
|00003b90| 74 20 72 65 67 69 6f 6e | 46 6c 61 67 73 20 5b 65 |t region|Flags [e|
|00003ba0| 78 70 72 20 24 72 65 67 | 69 6f 6e 46 6c 61 67 73 |xpr $reg|ionFlags|
|00003bb0| 20 7c 20 36 34 5d 0a 20 | 7d 0a 20 69 66 20 7b 24 | | 64]. |}. if {$|
|00003bc0| 77 69 7a 61 72 64 73 7d | 20 7b 0a 20 73 65 74 20 |wizards}| {. set |
|00003bd0| 72 65 67 69 6f 6e 46 6c | 61 67 73 20 5b 65 78 70 |regionFl|ags [exp|
|00003be0| 72 20 24 72 65 67 69 6f | 6e 46 6c 61 67 73 20 7c |r $regio|nFlags ||
|00003bf0| 20 31 30 32 34 5d 0a 20 | 7d 0a 20 69 66 20 7b 24 | 1024]. |}. if {$|
|00003c00| 6e 6f 47 61 6d 65 73 7d | 20 7b 0a 20 73 65 74 20 |noGames}| {. set |
|00003c10| 72 65 67 69 6f 6e 46 6c | 61 67 73 20 5b 65 78 70 |regionFl|ags [exp|
|00003c20| 72 20 24 72 65 67 69 6f | 6e 46 6c 61 67 73 20 7c |r $regio|nFlags ||
|00003c30| 20 38 31 39 32 5d 0a 20 | 7d 0a 20 69 66 20 7b 24 | 8192]. |}. if {$|
|00003c40| 6c 6f 67 69 6e 7d 20 7b | 0a 20 73 65 74 20 72 65 |login} {|. set re|
|00003c50| 67 69 6f 6e 46 6c 61 67 | 73 20 5b 65 78 70 72 20 |gionFlag|s [expr |
|00003c60| 24 72 65 67 69 6f 6e 46 | 6c 61 67 73 20 7c 20 31 |$regionF|lags | 1|
|00003c70| 36 33 38 34 5d 0a 20 7d | 0a 20 69 66 20 7b 24 74 |6384]. }|. if {$t|
|00003c80| 72 61 63 65 7d 20 7b 0a | 20 73 65 74 20 72 65 67 |race} {.| set reg|
|00003c90| 69 6f 6e 46 6c 61 67 73 | 20 5b 65 78 70 72 20 24 |ionFlags| [expr $|
|00003ca0| 72 65 67 69 6f 6e 46 6c | 61 67 73 20 7c 20 33 32 |regionFl|ags | 32|
|00003cb0| 37 36 38 5d 0a 20 7d 0a | 20 69 66 20 7b 24 70 75 |768]. }.| if {$pu|
|00003cc0| 62 6c 69 63 7d 20 7b 0a | 20 73 65 74 20 72 65 67 |blic} {.| set reg|
|00003cd0| 69 6f 6e 46 6c 61 67 73 | 20 5b 65 78 70 72 20 24 |ionFlags| [expr $|
|00003ce0| 72 65 67 69 6f 6e 46 6c | 61 67 73 20 7c 20 36 35 |regionFl|ags | 65|
|00003cf0| 35 33 36 5d 0a 20 7d 0a | 20 62 6c 6f 63 6b 0a 20 |536]. }.| block. |
|00003d00| 72 65 71 75 65 73 74 20 | 30 20 32 32 35 20 7b 0a |request |0 225 {.|
|00003d10| 20 6e 61 6d 65 20 24 6e | 61 6d 65 0a 20 61 64 64 | name $n|ame. add|
|00003d20| 72 65 73 73 20 24 61 64 | 64 72 65 73 73 0a 20 61 |ress $ad|dress. a|
|00003d30| 72 65 61 43 6f 64 65 20 | 24 61 72 65 61 43 6f 64 |reaCode |$areaCod|
|00003d40| 65 0a 20 72 65 67 69 6f | 6e 46 6c 61 67 73 20 24 |e. regio|nFlags $|
|00003d50| 72 65 67 69 6f 6e 46 6c | 61 67 73 0a 20 7d 20 37 |regionFl|ags. } 7|
|00003d60| 30 0a 20 75 6e 62 6c 6f | 63 6b 0a 20 69 66 20 7b |0. unblo|ck. if {|
|00003d70| 5b 40 20 72 65 70 6c 79 | 20 73 75 63 63 65 73 73 |[@ reply| success|
|00003d80| 5d 20 3d 3d 20 30 7d 20 | 7b 0a 20 69 6e 66 6f 5f |] == 0} |{. info_|
|00003d90| 62 61 6c 6c 6f 6f 6e 20 | 30 20 22 24 6e 61 6d 65 |balloon |0 "$name|
|00003da0| 20 6d 6f 64 69 66 69 65 | 64 2e 22 0a 20 64 69 61 | modifie|d.". dia|
|00003db0| 6c 6f 67 53 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logSetVa|lue $dlo|
|00003dc0| 67 20 42 75 74 74 6f 6e | 32 20 22 44 6f 6e 65 22 |g Button|2 "Done"|
|00003dd0| 0a 20 72 65 74 75 72 6e | 0a 20 7d 20 65 6c 73 65 |. return|. } else|
|00003de0| 69 66 20 7b 5b 40 20 72 | 65 70 6c 79 20 73 75 63 |if {[@ r|eply suc|
|00003df0| 63 65 73 73 5d 20 3d 3d | 20 35 7d 20 7b 0a 20 70 |cess] ==| 5} {. p|
|00003e00| 6c 61 79 53 6f 75 6e 64 | 20 30 20 38 33 0a 20 73 |laySound| 0 83. s|
|00003e10| 79 73 74 65 6d 5f 62 61 | 6c 6c 6f 6f 6e 20 30 20 |ystem_ba|lloon 0 |
|00003e20| 22 5b 40 20 72 65 70 6c | 79 20 66 61 69 6c 5f 6d |"[@ repl|y fail_m|
|00003e30| 73 67 5d 22 0a 20 64 69 | 61 6c 6f 67 53 65 74 56 |sg]". di|alogSetV|
|00003e40| 61 6c 75 65 20 24 64 6c | 6f 67 20 42 75 74 74 6f |alue $dl|og Butto|
|00003e50| 6e 32 20 22 43 61 6e 63 | 65 6c 22 0a 20 72 65 74 |n2 "Canc|el". ret|
|00003e60| 75 72 6e 0a 20 7d 20 65 | 6c 73 65 20 7b 0a 20 70 |urn. } e|lse {. p|
|00003e70| 6c 61 79 53 6f 75 6e 64 | 20 30 20 38 33 0a 20 64 |laySound| 0 83. d|
|00003e80| 69 61 6c 6f 67 4b 69 6c | 6c 20 24 64 6c 6f 67 0a |ialogKil|l $dlog.|
|00003e90| 20 72 65 74 75 72 6e 0a | 20 7d 0a 7d 0a 70 72 6f | return.| }.}.pro|
|00003ea0| 63 20 66 63 72 67 5f 62 | 75 74 74 6f 6e 31 20 7b |c fcrg_b|utton1 {|
|00003eb0| 20 73 65 6c 66 20 7d 20 | 7b 0a 20 75 70 76 61 72 | self } |{. upvar|
|00003ec0| 20 23 30 20 67 5f 64 69 | 61 6c 6f 67 20 64 6c 6f | #0 g_di|alog dlo|
|00003ed0| 67 0a 20 73 65 74 20 6e | 61 6d 65 20 5b 64 69 61 |g. set n|ame [dia|
|00003ee0| 6c 6f 67 47 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logGetVa|lue $dlo|
|00003ef0| 67 20 4e 61 6d 65 5d 0a | 20 73 65 74 20 61 64 64 |g Name].| set add|
|00003f00| 72 65 73 73 20 5b 64 69 | 61 6c 6f 67 47 65 74 56 |ress [di|alogGetV|
|00003f10| 61 6c 75 65 20 24 64 6c | 6f 67 20 41 64 64 72 65 |alue $dl|og Addre|
|00003f20| 73 73 5d 0a 20 73 65 74 | 20 61 72 65 61 43 6f 64 |ss]. set| areaCod|
|00003f30| 65 20 5b 64 69 61 6c 6f | 67 47 65 74 56 61 6c 75 |e [dialo|gGetValu|
|00003f40| 65 20 24 64 6c 6f 67 20 | 41 72 65 61 43 6f 64 65 |e $dlog |AreaCode|
|00003f50| 5d 0a 20 73 65 74 20 63 | 6f 75 6e 74 20 5b 64 69 |]. set c|ount [di|
|00003f60| 61 6c 6f 67 47 65 74 56 | 61 6c 75 65 20 24 64 6c |alogGetV|alue $dl|
|00003f70| 6f 67 20 4e 75 6d 52 65 | 67 73 5d 0a 20 73 65 74 |og NumRe|gs]. set|
|00003f80| 20 6e 6f 50 6f 70 20 5b | 64 69 61 6c 6f 67 47 65 | noPop [|dialogGe|
|00003f90| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 4e 6f 50 |tValue $|dlog NoP|
|00003fa0| 6f 70 5d 0a 20 69 66 20 | 7b 24 61 64 64 72 65 73 |op]. if |{$addres|
|00003fb0| 73 20 3d 3d 20 22 22 7d | 20 7b 0a 20 70 6c 61 79 |s == ""}| {. play|
|00003fc0| 53 6f 75 6e 64 20 30 20 | 38 33 0a 20 73 79 73 74 |Sound 0 |83. syst|
|00003fd0| 65 6d 5f 62 61 6c 6c 6f | 6f 6e 20 30 20 22 53 6f |em_ballo|on 0 "So|
|00003fe0| 72 72 79 2c 20 61 20 76 | 61 6c 69 64 20 41 64 64 |rry, a v|alid Add|
|00003ff0| 72 65 73 73 20 69 73 20 | 72 65 71 75 69 72 65 64 |ress is |required|
|00004000| 2e 22 0a 20 64 69 61 6c | 6f 67 53 65 74 56 61 6c |.". dial|ogSetVal|
|00004010| 75 65 20 24 64 6c 6f 67 | 20 42 75 74 74 6f 6e 32 |ue $dlog| Button2|
|00004020| 20 22 43 61 6e 63 65 6c | 22 0a 20 72 65 74 75 72 | "Cancel|". retur|
|00004030| 6e 0a 20 7d 0a 20 69 66 | 20 7b 5b 69 73 4e 75 6d |n. }. if| {[isNum|
|00004040| 62 65 72 20 24 61 72 65 | 61 43 6f 64 65 5d 20 3d |ber $are|aCode] =|
|00004050| 3d 20 30 7d 20 7b 0a 20 | 70 6c 61 79 53 6f 75 6e |= 0} {. |playSoun|
|00004060| 64 20 30 20 38 33 0a 20 | 73 79 73 74 65 6d 5f 62 |d 0 83. |system_b|
|00004070| 61 6c 6c 6f 6f 6e 20 30 | 20 22 53 6f 72 72 79 2c |alloon 0| "Sorry,|
|00004080| 20 69 6e 76 61 6c 69 64 | 20 6e 75 6d 62 65 72 20 | invalid| number |
|00004090| 66 6f 72 20 41 72 65 61 | 20 43 6f 64 65 2e 22 0a |for Area| Code.".|
|000040a0| 20 64 69 61 6c 6f 67 53 | 65 74 56 61 6c 75 65 20 | dialogS|etValue |
|000040b0| 24 64 6c 6f 67 20 42 75 | 74 74 6f 6e 32 20 22 43 |$dlog Bu|tton2 "C|
|000040c0| 61 6e 63 65 6c 22 0a 20 | 72 65 74 75 72 6e 0a 20 |ancel". |return. |
|000040d0| 7d 0a 20 69 66 20 7b 5b | 69 73 4e 75 6d 62 65 72 |}. if {[|isNumber|
|000040e0| 20 24 63 6f 75 6e 74 5d | 20 3d 3d 20 30 7d 20 7b | $count]| == 0} {|
|000040f0| 0a 20 70 6c 61 79 53 6f | 75 6e 64 20 30 20 38 33 |. playSo|und 0 83|
|00004100| 0a 20 73 79 73 74 65 6d | 5f 62 61 6c 6c 6f 6f 6e |. system|_balloon|
|00004110| 20 30 20 22 53 6f 72 72 | 79 2c 20 69 6e 76 61 6c | 0 "Sorr|y, inval|
|00004120| 69 64 20 6e 75 6d 62 65 | 72 20 66 6f 72 20 4e 75 |id numbe|r for Nu|
|00004130| 6d 2e 20 52 65 67 69 6f | 6e 73 2e 22 0a 20 64 69 |m. Regio|ns.". di|
|00004140| 61 6c 6f 67 53 65 74 56 | 61 6c 75 65 20 24 64 6c |alogSetV|alue $dl|
|00004150| 6f 67 20 42 75 74 74 6f | 6e 32 20 22 43 61 6e 63 |og Butto|n2 "Canc|
|00004160| 65 6c 22 0a 20 72 65 74 | 75 72 6e 0a 20 7d 0a 20 |el". ret|urn. }. |
|00004170| 73 65 74 20 72 65 67 67 | 72 6f 75 70 46 6c 61 67 |set regg|roupFlag|
|00004180| 73 20 30 0a 20 69 66 20 | 7b 24 6e 6f 50 6f 70 7d |s 0. if |{$noPop}|
|00004190| 20 7b 0a 20 73 65 74 20 | 72 65 67 67 72 6f 75 70 | {. set |reggroup|
|000041a0| 46 6c 61 67 73 20 5b 65 | 78 70 72 20 24 72 65 67 |Flags [e|xpr $reg|
|000041b0| 67 72 6f 75 70 46 6c 61 | 67 73 20 7c 20 31 36 20 |groupFla|gs | 16 |
|000041c0| 5d 0a 20 7d 0a 20 62 6c | 6f 63 6b 0a 20 72 65 71 |]. }. bl|ock. req|
|000041d0| 75 65 73 74 20 30 20 32 | 33 30 20 7b 0a 20 6e 61 |uest 0 2|30 {. na|
|000041e0| 6d 65 20 24 6e 61 6d 65 | 0a 20 61 64 64 72 65 73 |me $name|. addres|
|000041f0| 73 20 24 61 64 64 72 65 | 73 73 0a 20 61 72 65 61 |s $addre|ss. area|
|00004200| 43 6f 64 65 20 24 61 72 | 65 61 43 6f 64 65 0a 20 |Code $ar|eaCode. |
|00004210| 63 6f 75 6e 74 20 24 63 | 6f 75 6e 74 0a 20 72 65 |count $c|ount. re|
|00004220| 67 67 72 6f 75 70 46 6c | 61 67 73 20 24 72 65 67 |ggroupFl|ags $reg|
|00004230| 67 72 6f 75 70 46 6c 61 | 67 73 0a 20 7d 20 37 30 |groupFla|gs. } 70|
|00004240| 0a 20 75 6e 62 6c 6f 63 | 6b 0a 20 69 66 20 7b 5b |. unbloc|k. if {[|
|00004250| 40 20 72 65 70 6c 79 20 | 73 75 63 63 65 73 73 5d |@ reply |success]|
|00004260| 20 3d 3d 20 30 7d 20 7b | 0a 20 69 6e 66 6f 5f 62 | == 0} {|. info_b|
|00004270| 61 6c 6c 6f 6f 6e 20 30 | 20 22 24 6e 61 6d 65 20 |alloon 0| "$name |
|00004280| 63 72 65 61 74 65 64 2e | 22 0a 20 64 69 61 6c 6f |created.|". dialo|
|00004290| 67 53 65 74 56 61 6c 75 | 65 20 24 64 6c 6f 67 20 |gSetValu|e $dlog |
|000042a0| 42 75 74 74 6f 6e 32 20 | 22 44 6f 6e 65 22 0a 20 |Button2 |"Done". |
|000042b0| 72 65 74 75 72 6e 0a 20 | 7d 20 65 6c 73 65 69 66 |return. |} elseif|
|000042c0| 20 7b 5b 40 20 72 65 70 | 6c 79 20 73 75 63 63 65 | {[@ rep|ly succe|
|000042d0| 73 73 5d 20 3d 3d 20 35 | 7d 20 7b 0a 20 70 6c 61 |ss] == 5|} {. pla|
|000042e0| 79 53 6f 75 6e 64 20 30 | 20 38 33 0a 20 73 79 73 |ySound 0| 83. sys|
|000042f0| 74 65 6d 5f 62 61 6c 6c | 6f 6f 6e 20 30 20 22 5b |tem_ball|oon 0 "[|
|00004300| 40 20 72 65 70 6c 79 20 | 66 61 69 6c 5f 6d 73 67 |@ reply |fail_msg|
|00004310| 5d 22 0a 20 64 69 61 6c | 6f 67 53 65 74 56 61 6c |]". dial|ogSetVal|
|00004320| 75 65 20 24 64 6c 6f 67 | 20 42 75 74 74 6f 6e 32 |ue $dlog| Button2|
|00004330| 20 22 43 61 6e 63 65 6c | 22 0a 20 72 65 74 75 72 | "Cancel|". retur|
|00004340| 6e 0a 20 7d 20 65 6c 73 | 65 20 7b 0a 20 70 6c 61 |n. } els|e {. pla|
|00004350| 79 53 6f 75 6e 64 20 30 | 20 38 33 0a 20 64 69 61 |ySound 0| 83. dia|
|00004360| 6c 6f 67 4b 69 6c 6c 20 | 24 64 6c 6f 67 0a 20 72 |logKill |$dlog. r|
|00004370| 65 74 75 72 6e 0a 20 7d | 0a 7d 0a 70 72 6f 63 20 |eturn. }|.}.proc |
|00004380| 66 64 72 67 5f 62 75 74 | 74 6f 6e 31 20 7b 20 73 |fdrg_but|ton1 { s|
|00004390| 65 6c 66 20 7d 20 7b 0a | 20 75 70 76 61 72 20 23 |elf } {.| upvar #|
|000043a0| 30 20 67 5f 64 69 61 6c | 6f 67 20 64 6c 6f 67 0a |0 g_dial|og dlog.|
|000043b0| 20 73 65 74 20 61 64 64 | 72 65 73 73 20 5b 64 69 | set add|ress [di|
|000043c0| 61 6c 6f 67 47 65 74 56 | 61 6c 75 65 20 24 64 6c |alogGetV|alue $dl|
|000043d0| 6f 67 20 41 64 64 72 65 | 73 73 5d 0a 20 73 65 74 |og Addre|ss]. set|
|000043e0| 20 61 72 65 61 43 6f 64 | 65 20 5b 64 69 61 6c 6f | areaCod|e [dialo|
|000043f0| 67 47 65 74 56 61 6c 75 | 65 20 24 64 6c 6f 67 20 |gGetValu|e $dlog |
|00004400| 41 72 65 61 43 6f 64 65 | 5d 0a 20 69 66 20 7b 24 |AreaCode|]. if {$|
|00004410| 61 64 64 72 65 73 73 20 | 3d 3d 20 22 22 7d 20 7b |address |== ""} {|
|00004420| 0a 20 70 6c 61 79 53 6f | 75 6e 64 20 30 20 38 33 |. playSo|und 0 83|
|00004430| 0a 20 73 79 73 74 65 6d | 5f 62 61 6c 6c 6f 6f 6e |. system|_balloon|
|00004440| 20 30 20 22 53 6f 72 72 | 79 2c 20 61 20 76 61 6c | 0 "Sorr|y, a val|
|00004450| 69 64 20 41 64 64 72 65 | 73 73 20 69 73 20 72 65 |id Addre|ss is re|
|00004460| 71 75 69 72 65 64 2e 22 | 0a 20 64 69 61 6c 6f 67 |quired."|. dialog|
|00004470| 53 65 74 56 61 6c 75 65 | 20 24 64 6c 6f 67 20 42 |SetValue| $dlog B|
|00004480| 75 74 74 6f 6e 32 20 22 | 43 61 6e 63 65 6c 22 0a |utton2 "|Cancel".|
|00004490| 20 72 65 74 75 72 6e 0a | 20 7d 0a 20 69 66 20 7b | return.| }. if {|
|000044a0| 5b 69 73 4e 75 6d 62 65 | 72 20 24 61 72 65 61 43 |[isNumbe|r $areaC|
|000044b0| 6f 64 65 5d 20 3d 3d 20 | 30 7d 20 7b 0a 20 70 6c |ode] == |0} {. pl|
|000044c0| 61 79 53 6f 75 6e 64 20 | 30 20 38 33 0a 20 73 79 |aySound |0 83. sy|
|000044d0| 73 74 65 6d 5f 62 61 6c | 6c 6f 6f 6e 20 30 20 22 |stem_bal|loon 0 "|
|000044e0| 53 6f 72 72 79 2c 20 69 | 6e 76 61 6c 69 64 20 6e |Sorry, i|nvalid n|
|000044f0| 75 6d 62 65 72 20 66 6f | 72 20 41 72 65 61 20 43 |umber fo|r Area C|
|00004500| 6f 64 65 2e 22 0a 20 64 | 69 61 6c 6f 67 53 65 74 |ode.". d|ialogSet|
|00004510| 56 61 6c 75 65 20 24 64 | 6c 6f 67 20 42 75 74 74 |Value $d|log Butt|
|00004520| 6f 6e 32 20 22 43 61 6e | 63 65 6c 22 0a 20 72 65 |on2 "Can|cel". re|
|00004530| 74 75 72 6e 0a 20 7d 0a | 20 62 6c 6f 63 6b 0a 20 |turn. }.| block. |
|00004540| 72 65 71 75 65 73 74 20 | 30 20 32 33 31 20 7b 0a |request |0 231 {.|
|00004550| 20 61 64 64 72 65 73 73 | 20 24 61 64 64 72 65 73 | address| $addres|
|00004560| 73 0a 20 61 72 65 61 43 | 6f 64 65 20 24 61 72 65 |s. areaC|ode $are|
|00004570| 61 43 6f 64 65 0a 20 7d | 20 37 30 0a 20 75 6e 62 |aCode. }| 70. unb|
|00004580| 6c 6f 63 6b 0a 20 69 66 | 20 7b 5b 40 20 72 65 70 |lock. if| {[@ rep|
|00004590| 6c 79 20 73 75 63 63 65 | 73 73 5d 20 3d 3d 20 30 |ly succe|ss] == 0|
|000045a0| 7d 20 7b 0a 20 69 6e 66 | 6f 5f 62 61 6c 6c 6f 6f |} {. inf|o_balloo|
|000045b0| 6e 20 30 20 22 24 61 64 | 64 72 65 73 73 20 63 72 |n 0 "$ad|dress cr|
|000045c0| 65 61 74 65 64 2e 22 0a | 20 64 69 61 6c 6f 67 53 |eated.".| dialogS|
|000045d0| 65 74 56 61 6c 75 65 20 | 24 64 6c 6f 67 20 42 75 |etValue |$dlog Bu|
|000045e0| 74 74 6f 6e 32 20 22 44 | 6f 6e 65 22 0a 20 72 65 |tton2 "D|one". re|
|000045f0| 74 75 72 6e 0a 20 7d 20 | 65 6c 73 65 69 66 20 7b |turn. } |elseif {|
|00004600| 5b 40 20 72 65 70 6c 79 | 20 73 75 63 63 65 73 73 |[@ reply| success|
|00004610| 5d 20 3d 3d 20 35 7d 20 | 7b 0a 20 70 6c 61 79 53 |] == 5} |{. playS|
|00004620| 6f 75 6e 64 20 30 20 38 | 33 0a 20 73 79 73 74 65 |ound 0 8|3. syste|
|00004630| 6d 5f 62 61 6c 6c 6f 6f | 6e 20 30 20 22 5b 40 20 |m_balloo|n 0 "[@ |
|00004640| 72 65 70 6c 79 20 66 61 | 69 6c 5f 6d 73 67 5d 22 |reply fa|il_msg]"|
|00004650| 0a 20 64 69 61 6c 6f 67 | 53 65 74 56 61 6c 75 65 |. dialog|SetValue|
|00004660| 20 24 64 6c 6f 67 20 42 | 75 74 74 6f 6e 32 20 22 | $dlog B|utton2 "|
|00004670| 43 61 6e 63 65 6c 22 0a | 20 72 65 74 75 72 6e 0a |Cancel".| return.|
|00004680| 20 7d 20 65 6c 73 65 20 | 7b 0a 20 70 6c 61 79 53 | } else |{. playS|
|00004690| 6f 75 6e 64 20 30 20 38 | 33 0a 20 64 69 61 6c 6f |ound 0 8|3. dialo|
|000046a0| 67 4b 69 6c 6c 20 24 64 | 6c 6f 67 0a 20 72 65 74 |gKill $d|log. ret|
|000046b0| 75 72 6e 0a 20 7d 0a 7d | 0a 70 72 6f 63 20 66 6d |urn. }.}|.proc fm|
|000046c0| 72 67 5f 62 75 74 74 6f | 6e 31 20 7b 20 73 65 6c |rg_butto|n1 { sel|
|000046d0| 66 20 7d 20 7b 0a 20 75 | 70 76 61 72 20 23 30 20 |f } {. u|pvar #0 |
|000046e0| 67 5f 64 69 61 6c 6f 67 | 20 64 6c 6f 67 0a 20 73 |g_dialog| dlog. s|
|000046f0| 65 74 20 6e 61 6d 65 20 | 5b 64 69 61 6c 6f 67 47 |et name |[dialogG|
|00004700| 65 74 56 61 6c 75 65 20 | 24 64 6c 6f 67 20 4e 61 |etValue |$dlog Na|
|00004710| 6d 65 5d 0a 20 73 65 74 | 20 61 64 64 72 65 73 73 |me]. set| address|
|00004720| 20 5b 64 69 61 6c 6f 67 | 47 65 74 56 61 6c 75 65 | [dialog|GetValue|
|00004730| 20 24 64 6c 6f 67 20 41 | 64 64 72 65 73 73 5d 0a | $dlog A|ddress].|
|00004740| 20 73 65 74 20 61 72 65 | 61 43 6f 64 65 20 5b 64 | set are|aCode [d|
|00004750| 69 61 6c 6f 67 47 65 74 | 56 61 6c 75 65 20 24 64 |ialogGet|Value $d|
|00004760| 6c 6f 67 20 41 72 65 61 | 43 6f 64 65 5d 0a 20 73 |log Area|Code]. s|
|00004770| 65 74 20 65 6e 74 72 79 | 52 65 67 4e 75 6d 20 5b |et entry|RegNum [|
|00004780| 64 69 61 6c 6f 67 47 65 | 74 56 61 6c 75 65 20 24 |dialogGe|tValue $|
|00004790| 64 6c 6f 67 20 45 6e 74 | 72 79 52 65 67 4e 75 6d |dlog Ent|ryRegNum|
|000047a0| 5d 0a 20 73 65 74 20 6e | 6f 50 6f 70 20 5b 64 69 |]. set n|oPop [di|
|000047b0| 61 6c 6f 67 47 65 74 56 | 61 6c 75 65 20 24 64 6c |alogGetV|alue $dl|
|000047c0| 6f 67 20 4e 6f 50 6f 70 | 5d 0a 20 69 66 20 7b 24 |og NoPop|]. if {$|
|000047d0| 61 64 64 72 65 73 73 20 | 3d 3d 20 22 22 7d 20 7b |address |== ""} {|
|000047e0| 0a 20 70 6c 61 79 53 6f | 75 6e 64 20 30 20 38 33 |. playSo|und 0 83|
|000047f0| 0a 20 73 79 73 74 65 6d | 5f 62 61 6c 6c 6f 6f 6e |. system|_balloon|
|00004800| 20 30 20 22 53 6f 72 72 | 79 2c 20 61 20 76 61 6c | 0 "Sorr|y, a val|
|00004810| 69 64 20 41 64 64 72 65 | 73 73 20 69 73 20 72 65 |id Addre|ss is re|
|00004820| 71 75 69 72 65 64 2e 22 | 0a 20 64 69 61 6c 6f 67 |quired."|. dialog|
|00004830| 53 65 74 56 61 6c 75 65 | 20 24 64 6c 6f 67 20 42 |SetValue| $dlog B|
|00004840| 75 74 74 6f 6e 32 20 22 | 43 61 6e 63 65 6c 22 0a |utton2 "|Cancel".|
|00004850| 20 72 65 74 75 72 6e 0a | 20 7d 0a 20 69 66 20 7b | return.| }. if {|
|00004860| 5b 69 73 4e 75 6d 62 65 | 72 20 24 61 72 65 61 43 |[isNumbe|r $areaC|
|00004870| 6f 64 65 5d 20 3d 3d 20 | 30 7d 20 7b 0a 20 70 6c |ode] == |0} {. pl|
|00004880| 61 79 53 6f 75 6e 64 20 | 30 20 38 33 0a 20 73 79 |aySound |0 83. sy|
|00004890| 73 74 65 6d 5f 62 61 6c | 6c 6f 6f 6e 20 30 20 22 |stem_bal|loon 0 "|
|000048a0| 53 6f 72 72 79 2c 20 69 | 6e 76 61 6c 69 64 20 6e |Sorry, i|nvalid n|
|000048b0| 75 6d 62 65 72 20 66 6f | 72 20 41 72 65 61 20 43 |umber fo|r Area C|
|000048c0| 6f 64 65 2e 22 0a 20 64 | 69 61 6c 6f 67 53 65 74 |ode.". d|ialogSet|
|000048d0| 56 61 6c 75 65 20 24 64 | 6c 6f 67 20 42 75 74 74 |Value $d|log Butt|
|000048e0| 6f 6e 32 20 22 43 61 6e | 63 65 6c 22 0a 20 72 65 |on2 "Can|cel". re|
|000048f0| 74 75 72 6e 0a 20 7d 0a | 20 69 66 20 7b 5b 69 73 |turn. }.| if {[is|
|00004900| 4e 75 6d 62 65 72 20 24 | 65 6e 74 72 79 52 65 67 |Number $|entryReg|
|00004910| 4e 75 6d 5d 20 3d 3d 20 | 30 7d 20 7b 0a 20 70 6c |Num] == |0} {. pl|
|00004920| 61 79 53 6f 75 6e 64 20 | 30 20 38 33 0a 20 73 79 |aySound |0 83. sy|
|00004930| 73 74 65 6d 5f 62 61 6c | 6c 6f 6f 6e 20 30 20 22 |stem_bal|loon 0 "|
|00004940| 53 6f 72 72 79 2c 20 69 | 6e 76 61 6c 69 64 20 6e |Sorry, i|nvalid n|
|00004950| 75 6d 62 65 72 20 66 6f | 72 20 45 6e 74 72 79 20 |umber fo|r Entry |
|00004960| 52 65 67 69 6f 6e 20 4e | 75 6d 2e 22 0a 20 64 69 |Region N|um.". di|
|00004970| 61 6c 6f 67 53 65 74 56 | 61 6c 75 65 20 24 64 6c |alogSetV|alue $dl|
|00004980| 6f 67 20 42 75 74 74 6f | 6e 32 20 22 43 61 6e 63 |og Butto|n2 "Canc|
|00004990| 65 6c 22 0a 20 72 65 74 | 75 72 6e 0a 20 7d 0a 20 |el". ret|urn. }. |
|000049a0| 73 65 74 20 72 65 67 67 | 72 6f 75 70 46 6c 61 67 |set regg|roupFlag|
|000049b0| 73 20 30 0a 20 69 66 20 | 7b 24 6e 6f 50 6f 70 7d |s 0. if |{$noPop}|
|000049c0| 20 7b 0a 20 73 65 74 20 | 72 65 67 67 72 6f 75 70 | {. set |reggroup|
|000049d0| 46 6c 61 67 73 20 5b 65 | 78 70 72 20 24 72 65 67 |Flags [e|xpr $reg|
|000049e0| 67 72 6f 75 70 46 6c 61 | 67 73 20 7c 20 31 36 20 |groupFla|gs | 16 |
|000049f0| 5d 0a 20 7d 0a 20 62 6c | 6f 63 6b 0a 20 72 65 71 |]. }. bl|ock. req|
|00004a00| 75 65 73 74 20 30 20 32 | 33 35 20 7b 0a 20 6e 61 |uest 0 2|35 {. na|
|00004a10| 6d 65 20 24 6e 61 6d 65 | 0a 20 61 64 64 72 65 73 |me $name|. addres|
|00004a20| 73 20 24 61 64 64 72 65 | 73 73 0a 20 61 72 65 61 |s $addre|ss. area|
|00004a30| 43 6f 64 65 20 24 61 72 | 65 61 43 6f 64 65 0a 20 |Code $ar|eaCode. |
|00004a40| 65 6e 74 72 79 52 65 67 | 4e 75 6d 20 24 65 6e 74 |entryReg|Num $ent|
|00004a50| 72 79 52 65 67 4e 75 6d | 0a 20 72 65 67 67 72 6f |ryRegNum|. reggro|
|00004a60| 75 70 46 6c 61 67 73 20 | 24 72 65 67 67 72 6f 75 |upFlags |$reggrou|
|00004a70| 70 46 6c 61 67 73 0a 20 | 7d 20 37 30 0a 20 75 6e |pFlags. |} 70. un|
|00004a80| 62 6c 6f 63 6b 0a 20 69 | 66 20 7b 5b 40 20 72 65 |block. i|f {[@ re|
|00004a90| 70 6c 79 20 73 75 63 63 | 65 73 73 5d 20 3d 3d 20 |ply succ|ess] == |
|00004aa0| 30 7d 20 7b 0a 20 69 6e | 66 6f 5f 62 61 6c 6c 6f |0} {. in|fo_ballo|
|00004ab0| 6f 6e 20 30 20 22 24 6e | 61 6d 65 20 6d 6f 64 69 |on 0 "$n|ame modi|
|00004ac0| 66 69 65 64 2e 22 0a 20 | 64 69 61 6c 6f 67 53 65 |fied.". |dialogSe|
|00004ad0| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 42 75 74 |tValue $|dlog But|
|00004ae0| 74 6f 6e 32 20 22 44 6f | 6e 65 22 0a 20 72 65 74 |ton2 "Do|ne". ret|
|00004af0| 75 72 6e 0a 20 7d 20 65 | 6c 73 65 69 66 20 7b 5b |urn. } e|lseif {[|
|00004b00| 40 20 72 65 70 6c 79 20 | 73 75 63 63 65 73 73 5d |@ reply |success]|
|00004b10| 20 3d 3d 20 35 7d 20 7b | 0a 20 70 6c 61 79 53 6f | == 5} {|. playSo|
|00004b20| 75 6e 64 20 30 20 38 33 | 0a 20 73 79 73 74 65 6d |und 0 83|. system|
|00004b30| 5f 62 61 6c 6c 6f 6f 6e | 20 30 20 22 5b 40 20 72 |_balloon| 0 "[@ r|
|00004b40| 65 70 6c 79 20 66 61 69 | 6c 5f 6d 73 67 5d 22 0a |eply fai|l_msg]".|
|00004b50| 20 64 69 61 6c 6f 67 53 | 65 74 56 61 6c 75 65 20 | dialogS|etValue |
|00004b60| 24 64 6c 6f 67 20 42 75 | 74 74 6f 6e 32 20 22 43 |$dlog Bu|tton2 "C|
|00004b70| 61 6e 63 65 6c 22 0a 20 | 72 65 74 75 72 6e 0a 20 |ancel". |return. |
|00004b80| 7d 20 65 6c 73 65 20 7b | 0a 20 70 6c 61 79 53 6f |} else {|. playSo|
|00004b90| 75 6e 64 20 30 20 38 33 | 0a 20 64 69 61 6c 6f 67 |und 0 83|. dialog|
|00004ba0| 4b 69 6c 6c 20 24 64 6c | 6f 67 0a 20 72 65 74 75 |Kill $dl|og. retu|
|00004bb0| 72 6e 0a 20 7d 0a 7d 0a | 70 72 6f 63 20 66 63 6f |rn. }.}.|proc fco|
|00004bc0| 5f 62 75 74 74 6f 6e 31 | 20 7b 20 73 65 6c 66 20 |_button1| { self |
|00004bd0| 43 75 72 58 20 43 75 72 | 59 20 7d 20 7b 0a 20 75 |CurX Cur|Y } {. u|
|00004be0| 70 76 61 72 20 23 30 20 | 67 5f 64 69 61 6c 6f 67 |pvar #0 |g_dialog|
|00004bf0| 20 64 6c 6f 67 0a 20 67 | 6c 6f 62 61 6c 20 66 69 | dlog. g|lobal fi|
|00004c00| 64 64 6c 65 5f 63 72 65 | 61 74 65 5f 72 65 74 75 |ddle_cre|ate_retu|
|00004c10| 72 6e 0a 20 73 65 74 20 | 63 6f 75 6e 74 20 5b 64 |rn. set |count [d|
|00004c20| 69 61 6c 6f 67 47 65 74 | 56 61 6c 75 65 20 24 64 |ialogGet|Value $d|
|00004c30| 6c 6f 67 20 43 6f 75 6e | 74 5d 0a 20 69 66 20 7b |log Coun|t]. if {|
|00004c40| 5b 69 73 4e 75 6d 62 65 | 72 20 24 63 6f 75 6e 74 |[isNumbe|r $count|
|00004c50| 5d 20 3d 3d 20 30 7d 20 | 7b 0a 20 70 6c 61 79 53 |] == 0} |{. playS|
|00004c60| 6f 75 6e 64 20 30 20 38 | 33 0a 20 73 79 73 74 65 |ound 0 8|3. syste|
|00004c70| 6d 5f 62 61 6c 6c 6f 6f | 6e 20 30 20 22 53 6f 72 |m_balloo|n 0 "Sor|
|00004c80| 72 79 2c 20 69 6e 76 61 | 6c 69 64 20 6e 75 6d 62 |ry, inva|lid numb|
|00004c90| 65 72 20 66 6f 72 20 48 | 6f 77 20 6d 61 6e 79 2e |er for H|ow many.|
|00004ca0| 22 0a 20 64 69 61 6c 6f | 67 53 65 74 56 61 6c 75 |". dialo|gSetValu|
|00004cb0| 65 20 24 64 6c 6f 67 20 | 42 75 74 74 6f 6e 32 20 |e $dlog |Button2 |
|00004cc0| 22 43 61 6e 63 65 6c 22 | 0a 20 72 65 74 75 72 6e |"Cancel"|. return|
|00004cd0| 0a 20 7d 0a 20 69 66 20 | 7b 24 63 6f 75 6e 74 20 |. }. if |{$count |
|00004ce0| 3e 20 31 30 30 7d 20 7b | 0a 20 73 65 74 20 6d 61 |> 100} {|. set ma|
|00004cf0| 78 63 72 65 61 74 65 20 | 31 30 30 0a 20 70 6c 61 |xcreate |100. pla|
|00004d00| 79 53 6f 75 6e 64 20 30 | 20 38 33 0a 20 73 79 73 |ySound 0| 83. sys|
|00004d10| 74 65 6d 5f 62 61 6c 6c | 6f 6f 6e 20 30 20 22 53 |tem_ball|oon 0 "S|
|00004d20| 6f 72 72 79 2c 20 79 6f | 75 20 63 61 6e 20 6f 6e |orry, yo|u can on|
|00004d30| 6c 79 20 63 72 65 61 74 | 65 20 75 70 20 74 6f 20 |ly creat|e up to |
|00004d40| 24 6d 61 78 63 72 65 61 | 74 65 20 63 6f 70 69 65 |$maxcrea|te copie|
|00004d50| 73 2e 22 0a 20 64 69 61 | 6c 6f 67 53 65 74 56 61 |s.". dia|logSetVa|
|00004d60| 6c 75 65 20 24 64 6c 6f | 67 20 42 75 74 74 6f 6e |lue $dlo|g Button|
|00004d70| 32 20 22 43 61 6e 63 65 | 6c 22 0a 20 72 65 74 75 |2 "Cance|l". retu|
|00004d80| 72 6e 0a 20 7d 0a 20 0a | 20 62 6c 6f 63 6b 0a 20 |rn. }. .| block. |
|00004d90| 72 65 71 75 65 73 74 20 | 30 20 32 30 30 20 7b 0a |request |0 200 {.|
|00004da0| 20 63 6c 61 73 73 6e 6f | 20 24 66 69 64 64 6c 65 | classno| $fiddle|
|00004db0| 5f 63 72 65 61 74 65 5f | 72 65 74 75 72 6e 0a 20 |_create_|return. |
|00004dc0| 78 6c 6f 63 20 24 43 75 | 72 58 0a 20 79 6c 6f 63 |xloc $Cu|rX. yloc|
|00004dd0| 20 24 43 75 72 59 0a 20 | 63 6f 75 6e 74 20 24 63 | $CurY. |count $c|
|00004de0| 6f 75 6e 74 0a 20 7d 20 | 37 30 0a 20 75 6e 62 6c |ount. } |70. unbl|
|00004df0| 6f 63 6b 0a 20 0a 20 69 | 66 20 7b 5b 40 20 72 65 |ock. . i|f {[@ re|
|00004e00| 70 6c 79 20 73 75 63 63 | 65 73 73 5d 20 3d 3d 20 |ply succ|ess] == |
|00004e10| 30 7d 20 7b 0a 20 69 6e | 66 6f 5f 62 61 6c 6c 6f |0} {. in|fo_ballo|
|00004e20| 6f 6e 20 30 20 22 4f 62 | 6a 65 63 74 20 63 72 65 |on 0 "Ob|ject cre|
|00004e30| 61 74 65 64 2e 22 0a 20 | 64 69 61 6c 6f 67 53 65 |ated.". |dialogSe|
|00004e40| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 42 75 74 |tValue $|dlog But|
|00004e50| 74 6f 6e 32 20 22 44 6f | 6e 65 22 0a 20 72 65 74 |ton2 "Do|ne". ret|
|00004e60| 75 72 6e 0a 20 7d 20 65 | 6c 73 65 69 66 20 7b 5b |urn. } e|lseif {[|
|00004e70| 40 20 72 65 70 6c 79 20 | 73 75 63 63 65 73 73 5d |@ reply |success]|
|00004e80| 20 3d 3d 20 35 7d 20 7b | 0a 20 70 6c 61 79 53 6f | == 5} {|. playSo|
|00004e90| 75 6e 64 20 30 20 38 33 | 0a 20 73 79 73 74 65 6d |und 0 83|. system|
|00004ea0| 5f 62 61 6c 6c 6f 6f 6e | 20 30 20 22 5b 40 20 72 |_balloon| 0 "[@ r|
|00004eb0| 65 70 6c 79 20 66 61 69 | 6c 5f 6d 73 67 5d 22 0a |eply fai|l_msg]".|
|00004ec0| 20 64 69 61 6c 6f 67 53 | 65 74 56 61 6c 75 65 20 | dialogS|etValue |
|00004ed0| 24 64 6c 6f 67 20 42 75 | 74 74 6f 6e 32 20 22 43 |$dlog Bu|tton2 "C|
|00004ee0| 61 6e 63 65 6c 22 0a 20 | 72 65 74 75 72 6e 0a 20 |ancel". |return. |
|00004ef0| 7d 20 65 6c 73 65 20 7b | 0a 20 70 6c 61 79 53 6f |} else {|. playSo|
|00004f00| 75 6e 64 20 30 20 38 33 | 0a 20 64 69 61 6c 6f 67 |und 0 83|. dialog|
|00004f10| 4b 69 6c 6c 20 24 64 6c | 6f 67 0a 20 72 65 74 75 |Kill $dl|og. retu|
|00004f20| 72 6e 0a 20 7d 0a 7d 0a | 70 72 6f 63 20 66 61 72 |rn. }.}.|proc far|
|00004f30| 5f 62 75 74 74 6f 6e 31 | 20 7b 20 73 65 6c 66 20 |_button1| { self |
|00004f40| 7d 20 7b 0a 20 75 70 76 | 61 72 20 23 30 20 67 5f |} {. upv|ar #0 g_|
|00004f50| 64 69 61 6c 6f 67 20 64 | 6c 6f 67 0a 20 73 65 74 |dialog d|log. set|
|00004f60| 20 72 67 70 41 64 64 72 | 20 5b 64 69 61 6c 6f 67 | rgpAddr| [dialog|
|00004f70| 47 65 74 56 61 6c 75 65 | 20 24 64 6c 6f 67 20 52 |GetValue| $dlog R|
|00004f80| 67 70 41 64 64 72 5d 0a | 20 73 65 74 20 72 67 70 |gpAddr].| set rgp|
|00004f90| 41 43 20 5b 64 69 61 6c | 6f 67 47 65 74 56 61 6c |AC [dial|ogGetVal|
|00004fa0| 75 65 20 24 64 6c 6f 67 | 20 52 67 70 41 43 5d 0a |ue $dlog| RgpAC].|
|00004fb0| 20 73 65 74 20 72 65 67 | 41 64 64 72 20 5b 64 69 | set reg|Addr [di|
|00004fc0| 61 6c 6f 67 47 65 74 56 | 61 6c 75 65 20 24 64 6c |alogGetV|alue $dl|
|00004fd0| 6f 67 20 52 65 67 41 64 | 64 72 5d 0a 20 73 65 74 |og RegAd|dr]. set|
|00004fe0| 20 72 65 67 41 43 20 5b | 64 69 61 6c 6f 67 47 65 | regAC [|dialogGe|
|00004ff0| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 52 65 67 |tValue $|dlog Reg|
|00005000| 41 43 5d 0a 20 69 66 20 | 7b 5b 69 73 4e 75 6d 62 |AC]. if |{[isNumb|
|00005010| 65 72 20 24 72 67 70 41 | 43 5d 20 3d 3d 20 30 7d |er $rgpA|C] == 0}|
|00005020| 20 7b 0a 20 70 6c 61 79 | 53 6f 75 6e 64 20 30 20 | {. play|Sound 0 |
|00005030| 38 33 0a 20 73 79 73 74 | 65 6d 5f 62 61 6c 6c 6f |83. syst|em_ballo|
|00005040| 6f 6e 20 30 20 22 53 6f | 72 72 79 2c 20 69 6e 76 |on 0 "So|rry, inv|
|00005050| 61 6c 69 64 20 6e 75 6d | 62 65 72 20 66 6f 72 20 |alid num|ber for |
|00005060| 52 65 67 67 72 6f 75 70 | 20 41 72 65 61 20 43 6f |Reggroup| Area Co|
|00005070| 64 65 2e 22 0a 20 64 69 | 61 6c 6f 67 53 65 74 56 |de.". di|alogSetV|
|00005080| 61 6c 75 65 20 24 64 6c | 6f 67 20 42 75 74 74 6f |alue $dl|og Butto|
|00005090| 6e 32 20 22 43 61 6e 63 | 65 6c 22 0a 20 72 65 74 |n2 "Canc|el". ret|
|000050a0| 75 72 6e 0a 20 7d 0a 20 | 69 66 20 7b 5b 69 73 4e |urn. }. |if {[isN|
|000050b0| 75 6d 62 65 72 20 24 72 | 65 67 41 43 5d 20 3d 3d |umber $r|egAC] ==|
|000050c0| 20 30 7d 20 7b 0a 20 70 | 6c 61 79 53 6f 75 6e 64 | 0} {. p|laySound|
|000050d0| 20 30 20 38 33 0a 20 73 | 79 73 74 65 6d 5f 62 61 | 0 83. s|ystem_ba|
|000050e0| 6c 6c 6f 6f 6e 20 30 20 | 22 53 6f 72 72 79 2c 20 |lloon 0 |"Sorry, |
|000050f0| 69 6e 76 61 6c 69 64 20 | 6e 75 6d 62 65 72 20 66 |invalid |number f|
|00005100| 6f 72 20 52 65 67 69 6f | 6e 20 41 72 65 61 20 43 |or Regio|n Area C|
|00005110| 6f 64 65 2e 22 0a 20 64 | 69 61 6c 6f 67 53 65 74 |ode.". d|ialogSet|
|00005120| 56 61 6c 75 65 20 24 64 | 6c 6f 67 20 42 75 74 74 |Value $d|log Butt|
|00005130| 6f 6e 32 20 22 43 61 6e | 63 65 6c 22 0a 20 72 65 |on2 "Can|cel". re|
|00005140| 74 75 72 6e 0a 20 7d 0a | 20 62 6c 6f 63 6b 0a 20 |turn. }.| block. |
|00005150| 72 65 71 75 65 73 74 20 | 30 20 32 33 36 20 7b 0a |request |0 236 {.|
|00005160| 20 72 65 67 67 72 6f 75 | 70 41 64 64 72 20 24 72 | reggrou|pAddr $r|
|00005170| 67 70 41 64 64 72 0a 20 | 72 65 67 67 72 6f 75 70 |gpAddr. |reggroup|
|00005180| 41 43 20 24 72 67 70 41 | 43 0a 20 72 65 67 69 6f |AC $rgpA|C. regio|
|00005190| 6e 41 64 64 72 20 24 72 | 65 67 41 64 64 72 0a 20 |nAddr $r|egAddr. |
|000051a0| 72 65 67 69 6f 6e 41 43 | 20 24 72 65 67 41 43 0a |regionAC| $regAC.|
|000051b0| 20 7d 20 37 30 0a 20 75 | 6e 62 6c 6f 63 6b 0a 20 | } 70. u|nblock. |
|000051c0| 69 66 20 7b 5b 40 20 72 | 65 70 6c 79 20 73 75 63 |if {[@ r|eply suc|
|000051d0| 63 65 73 73 5d 20 3d 3d | 20 30 7d 20 7b 0a 20 69 |cess] ==| 0} {. i|
|000051e0| 6e 66 6f 5f 62 61 6c 6c | 6f 6f 6e 20 30 20 22 41 |nfo_ball|oon 0 "A|
|000051f0| 64 64 65 64 20 24 72 65 | 67 41 64 64 72 20 74 6f |dded $re|gAddr to|
|00005200| 20 72 65 67 67 72 6f 75 | 70 2e 22 0a 20 64 69 61 | reggrou|p.". dia|
|00005210| 6c 6f 67 53 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logSetVa|lue $dlo|
|00005220| 67 20 42 75 74 74 6f 6e | 32 20 22 44 6f 6e 65 22 |g Button|2 "Done"|
|00005230| 0a 20 72 65 74 75 72 6e | 0a 20 7d 20 65 6c 73 65 |. return|. } else|
|00005240| 69 66 20 7b 5b 40 20 72 | 65 70 6c 79 20 73 75 63 |if {[@ r|eply suc|
|00005250| 63 65 73 73 5d 20 3d 3d | 20 35 7d 20 7b 0a 20 70 |cess] ==| 5} {. p|
|00005260| 6c 61 79 53 6f 75 6e 64 | 20 30 20 38 33 0a 20 73 |laySound| 0 83. s|
|00005270| 79 73 74 65 6d 5f 62 61 | 6c 6c 6f 6f 6e 20 30 20 |ystem_ba|lloon 0 |
|00005280| 22 5b 40 20 72 65 70 6c | 79 20 66 61 69 6c 5f 6d |"[@ repl|y fail_m|
|00005290| 73 67 5d 22 0a 20 64 69 | 61 6c 6f 67 53 65 74 56 |sg]". di|alogSetV|
|000052a0| 61 6c 75 65 20 24 64 6c | 6f 67 20 42 75 74 74 6f |alue $dl|og Butto|
|000052b0| 6e 32 20 22 43 61 6e 63 | 65 6c 22 0a 20 72 65 74 |n2 "Canc|el". ret|
|000052c0| 75 72 6e 0a 20 7d 20 65 | 6c 73 65 20 7b 0a 20 70 |urn. } e|lse {. p|
|000052d0| 6c 61 79 53 6f 75 6e 64 | 20 30 20 38 33 0a 20 64 |laySound| 0 83. d|
|000052e0| 69 61 6c 6f 67 4b 69 6c | 6c 20 24 64 6c 6f 67 0a |ialogKil|l $dlog.|
|000052f0| 20 72 65 74 75 72 6e 0a | 20 7d 0a 7d 0a 70 72 6f | return.| }.}.pro|
|00005300| 63 20 66 72 72 5f 62 75 | 74 74 6f 6e 31 20 7b 20 |c frr_bu|tton1 { |
|00005310| 73 65 6c 66 20 7d 20 7b | 0a 20 75 70 76 61 72 20 |self } {|. upvar |
|00005320| 23 30 20 67 5f 64 69 61 | 6c 6f 67 20 64 6c 6f 67 |#0 g_dia|log dlog|
|00005330| 0a 20 73 65 74 20 72 67 | 70 41 64 64 72 20 5b 64 |. set rg|pAddr [d|
|00005340| 69 61 6c 6f 67 47 65 74 | 56 61 6c 75 65 20 24 64 |ialogGet|Value $d|
|00005350| 6c 6f 67 20 52 67 70 41 | 64 64 72 5d 0a 20 73 65 |log RgpA|ddr]. se|
|00005360| 74 20 72 67 70 41 43 20 | 5b 64 69 61 6c 6f 67 47 |t rgpAC |[dialogG|
|00005370| 65 74 56 61 6c 75 65 20 | 24 64 6c 6f 67 20 52 67 |etValue |$dlog Rg|
|00005380| 70 41 43 5d 0a 20 73 65 | 74 20 72 65 67 41 64 64 |pAC]. se|t regAdd|
|00005390| 72 20 5b 64 69 61 6c 6f | 67 47 65 74 56 61 6c 75 |r [dialo|gGetValu|
|000053a0| 65 20 24 64 6c 6f 67 20 | 52 65 67 41 64 64 72 5d |e $dlog |RegAddr]|
|000053b0| 0a 20 73 65 74 20 72 65 | 67 41 43 20 5b 64 69 61 |. set re|gAC [dia|
|000053c0| 6c 6f 67 47 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logGetVa|lue $dlo|
|000053d0| 67 20 52 65 67 41 43 5d | 0a 20 69 66 20 7b 5b 69 |g RegAC]|. if {[i|
|000053e0| 73 4e 75 6d 62 65 72 20 | 24 72 67 70 41 43 5d 20 |sNumber |$rgpAC] |
|000053f0| 3d 3d 20 30 7d 20 7b 0a | 20 70 6c 61 79 53 6f 75 |== 0} {.| playSou|
|00005400| 6e 64 20 30 20 38 33 0a | 20 73 79 73 74 65 6d 5f |nd 0 83.| system_|
|00005410| 62 61 6c 6c 6f 6f 6e 20 | 30 20 22 53 6f 72 72 79 |balloon |0 "Sorry|
|00005420| 2c 20 69 6e 76 61 6c 69 | 64 20 6e 75 6d 62 65 72 |, invali|d number|
|00005430| 20 66 6f 72 20 52 65 67 | 67 72 6f 75 70 20 41 72 | for Reg|group Ar|
|00005440| 65 61 20 43 6f 64 65 2e | 22 0a 20 64 69 61 6c 6f |ea Code.|". dialo|
|00005450| 67 53 65 74 56 61 6c 75 | 65 20 24 64 6c 6f 67 20 |gSetValu|e $dlog |
|00005460| 42 75 74 74 6f 6e 32 20 | 22 43 61 6e 63 65 6c 22 |Button2 |"Cancel"|
|00005470| 0a 20 72 65 74 75 72 6e | 0a 20 7d 0a 20 69 66 20 |. return|. }. if |
|00005480| 7b 5b 69 73 4e 75 6d 62 | 65 72 20 24 72 65 67 41 |{[isNumb|er $regA|
|00005490| 43 5d 20 3d 3d 20 30 7d | 20 7b 0a 20 70 6c 61 79 |C] == 0}| {. play|
|000054a0| 53 6f 75 6e 64 20 30 20 | 38 33 0a 20 73 79 73 74 |Sound 0 |83. syst|
|000054b0| 65 6d 5f 62 61 6c 6c 6f | 6f 6e 20 30 20 22 53 6f |em_ballo|on 0 "So|
|000054c0| 72 72 79 2c 20 69 6e 76 | 61 6c 69 64 20 6e 75 6d |rry, inv|alid num|
|000054d0| 62 65 72 20 66 6f 72 20 | 52 65 67 69 6f 6e 20 41 |ber for |Region A|
|000054e0| 72 65 61 20 43 6f 64 65 | 2e 22 0a 20 64 69 61 6c |rea Code|.". dial|
|000054f0| 6f 67 53 65 74 56 61 6c | 75 65 20 24 64 6c 6f 67 |ogSetVal|ue $dlog|
|00005500| 20 42 75 74 74 6f 6e 32 | 20 22 43 61 6e 63 65 6c | Button2| "Cancel|
|00005510| 22 0a 20 72 65 74 75 72 | 6e 0a 20 7d 0a 20 62 6c |". retur|n. }. bl|
|00005520| 6f 63 6b 0a 20 72 65 71 | 75 65 73 74 20 30 20 32 |ock. req|uest 0 2|
|00005530| 33 37 20 7b 0a 20 72 65 | 67 67 72 6f 75 70 41 64 |37 {. re|ggroupAd|
|00005540| 64 72 20 24 72 67 70 41 | 64 64 72 0a 20 72 65 67 |dr $rgpA|ddr. reg|
|00005550| 67 72 6f 75 70 41 43 20 | 24 72 67 70 41 43 0a 20 |groupAC |$rgpAC. |
|00005560| 72 65 67 69 6f 6e 41 64 | 64 72 20 24 72 65 67 41 |regionAd|dr $regA|
|00005570| 64 64 72 0a 20 72 65 67 | 69 6f 6e 41 43 20 24 72 |ddr. reg|ionAC $r|
|00005580| 65 67 41 43 0a 20 7d 20 | 37 30 0a 20 75 6e 62 6c |egAC. } |70. unbl|
|00005590| 6f 63 6b 0a 20 69 66 20 | 7b 5b 40 20 72 65 70 6c |ock. if |{[@ repl|
|000055a0| 79 20 73 75 63 63 65 73 | 73 5d 20 3d 3d 20 30 7d |y succes|s] == 0}|
|000055b0| 20 7b 0a 20 69 6e 66 6f | 5f 62 61 6c 6c 6f 6f 6e | {. info|_balloon|
|000055c0| 20 30 20 22 52 65 6d 6f | 76 65 64 20 24 72 65 67 | 0 "Remo|ved $reg|
|000055d0| 41 64 64 72 20 66 72 6f | 6d 20 72 65 67 67 72 6f |Addr fro|m reggro|
|000055e0| 75 70 2e 22 0a 20 64 69 | 61 6c 6f 67 53 65 74 56 |up.". di|alogSetV|
|000055f0| 61 6c 75 65 20 24 64 6c | 6f 67 20 42 75 74 74 6f |alue $dl|og Butto|
|00005600| 6e 32 20 22 44 6f 6e 65 | 22 0a 20 72 65 74 75 72 |n2 "Done|". retur|
|00005610| 6e 0a 20 7d 20 65 6c 73 | 65 69 66 20 7b 5b 40 20 |n. } els|eif {[@ |
|00005620| 72 65 70 6c 79 20 73 75 | 63 63 65 73 73 5d 20 3d |reply su|ccess] =|
|00005630| 3d 20 35 7d 20 7b 0a 20 | 70 6c 61 79 53 6f 75 6e |= 5} {. |playSoun|
|00005640| 64 20 30 20 38 33 0a 20 | 73 79 73 74 65 6d 5f 62 |d 0 83. |system_b|
|00005650| 61 6c 6c 6f 6f 6e 20 30 | 20 22 5b 40 20 72 65 70 |alloon 0| "[@ rep|
|00005660| 6c 79 20 66 61 69 6c 5f | 6d 73 67 5d 22 0a 20 64 |ly fail_|msg]". d|
|00005670| 69 61 6c 6f 67 53 65 74 | 56 61 6c 75 65 20 24 64 |ialogSet|Value $d|
|00005680| 6c 6f 67 20 42 75 74 74 | 6f 6e 32 20 22 43 61 6e |log Butt|on2 "Can|
|00005690| 63 65 6c 22 0a 20 72 65 | 74 75 72 6e 0a 20 7d 20 |cel". re|turn. } |
|000056a0| 65 6c 73 65 20 7b 0a 20 | 70 6c 61 79 53 6f 75 6e |else {. |playSoun|
|000056b0| 64 20 30 20 38 33 0a 20 | 64 69 61 6c 6f 67 4b 69 |d 0 83. |dialogKi|
|000056c0| 6c 6c 20 24 64 6c 6f 67 | 0a 20 72 65 74 75 72 6e |ll $dlog|. return|
|000056d0| 0a 20 7d 0a 7d 0a 70 72 | 6f 63 20 63 61 6e 63 65 |. }.}.pr|oc cance|
|000056e0| 6c 5f 62 75 74 74 6f 6e | 20 7b 20 73 65 6c 66 20 |l_button| { self |
|000056f0| 7d 20 7b 0a 20 75 70 76 | 61 72 20 23 30 20 67 5f |} {. upv|ar #0 g_|
|00005700| 64 69 61 6c 6f 67 20 64 | 6c 6f 67 0a 20 0a 20 64 |dialog d|log. . d|
|00005710| 69 61 6c 6f 67 4b 69 6c | 6c 20 24 64 6c 6f 67 0a |ialogKil|l $dlog.|
|00005720| 7d 0a 20 00 65 4d 73 4d | 0a 20 0a 20 0a 70 72 6f |}. .eMsM|. . .pro|
|00005730| 63 20 65 64 69 74 41 64 | 73 5f 4c 6f 61 64 20 7b |c editAd|s_Load {|
|00005740| 20 64 6c 6f 67 20 74 61 | 72 67 65 74 20 7d 20 7b | dlog ta|rget } {|
|00005750| 0a 20 67 6c 6f 62 61 6c | 20 45 64 69 74 41 64 73 |. global| EditAds|
|00005760| 5f 77 68 69 63 68 0a 20 | 0a 20 0a 20 72 65 71 75 |_which. |. . requ|
|00005770| 65 73 74 20 24 74 61 72 | 67 65 74 20 35 36 30 35 |est $tar|get 5605|
|00005780| 20 7b 0a 20 77 68 69 63 | 68 20 30 0a 20 66 6f 72 | {. whic|h 0. for|
|00005790| 6d 61 74 20 31 0a 20 7d | 20 35 36 30 36 0a 20 0a |mat 1. }| 5606. .|
|000057a0| 20 69 66 20 7b 5b 40 20 | 72 65 70 6c 79 20 73 75 | if {[@ |reply su|
|000057b0| 63 63 65 73 73 5d 20 3d | 3d 20 30 7d 20 7b 0a 20 |ccess] =|= 0} {. |
|000057c0| 73 65 74 20 6f 6c 64 41 | 64 73 20 5b 40 20 72 65 |set oldA|ds [@ re|
|000057d0| 70 6c 79 20 74 65 78 74 | 5d 0a 20 7d 20 65 6c 73 |ply text|]. } els|
|000057e0| 65 20 7b 0a 20 75 6e 62 | 6c 6f 63 6b 0a 20 68 61 |e {. unb|lock. ha|
|000057f0| 6e 64 6c 65 46 61 69 6c | 75 72 65 20 5b 40 20 72 |ndleFail|ure [@ r|
|00005800| 65 70 6c 79 20 73 75 63 | 63 65 73 73 5d 20 5b 40 |eply suc|cess] [@|
|00005810| 20 72 65 70 6c 79 20 66 | 61 69 6c 5f 6d 73 67 5d | reply f|ail_msg]|
|00005820| 0a 20 7d 0a 20 0a 20 0a | 20 73 65 74 20 41 64 73 |. }. . .| set Ads|
|00005830| 4c 69 73 74 20 5b 73 70 | 6c 69 74 20 24 6f 6c 64 |List [sp|lit $old|
|00005840| 41 64 73 20 22 5c 72 5c | 6e 22 5d 0a 20 73 65 74 |Ads "\r\|n"]. set|
|00005850| 20 41 64 20 5b 6c 69 6e | 64 65 78 20 24 41 64 73 | Ad [lin|dex $Ads|
|00005860| 4c 69 73 74 20 5b 65 78 | 70 72 20 24 45 64 69 74 |List [ex|pr $Edit|
|00005870| 41 64 73 5f 77 68 69 63 | 68 20 2d 20 31 5d 5d 0a |Ads_whic|h - 1]].|
|00005880| 20 73 65 74 20 41 64 4c | 69 73 74 20 5b 73 70 6c | set AdL|ist [spl|
|00005890| 69 74 20 24 41 64 20 22 | 7c 22 5d 0a 20 0a 20 64 |it $Ad "||"]. . d|
|000058a0| 69 61 6c 6f 67 53 65 74 | 56 61 6c 75 65 20 24 64 |ialogSet|Value $d|
|000058b0| 6c 6f 67 20 22 6c 69 6d | 69 74 50 72 6f 70 22 20 |log "lim|itProp" |
|000058c0| 5b 40 20 72 65 70 6c 79 | 20 6c 69 6d 69 74 70 72 |[@ reply| limitpr|
|000058d0| 6f 70 5d 0a 20 64 69 61 | 6c 6f 67 53 65 74 56 61 |op]. dia|logSetVa|
|000058e0| 6c 75 65 20 24 64 6c 6f | 67 20 22 6c 69 6d 69 74 |lue $dlo|g "limit|
|000058f0| 22 20 5b 40 20 72 65 70 | 6c 79 20 6c 69 6d 69 74 |" [@ rep|ly limit|
|00005900| 5d 20 0a 20 64 69 61 6c | 6f 67 53 65 74 56 61 6c |] . dial|ogSetVal|
|00005910| 75 65 20 24 64 6c 6f 67 | 20 22 69 6d 61 67 65 55 |ue $dlog| "imageU|
|00005920| 52 4c 22 20 5b 6c 69 6e | 64 65 78 20 24 41 64 4c |RL" [lin|dex $AdL|
|00005930| 69 73 74 20 30 5d 0a 20 | 64 69 61 6c 6f 67 53 65 |ist 0]. |dialogSe|
|00005940| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 22 63 68 |tValue $|dlog "ch|
|00005950| 6f 72 65 53 74 61 74 65 | 22 20 5b 6c 69 6e 64 65 |oreState|" [linde|
|00005960| 78 20 24 41 64 4c 69 73 | 74 20 31 5d 0a 20 64 69 |x $AdLis|t 1]. di|
|00005970| 61 6c 6f 67 53 65 74 56 | 61 6c 75 65 20 24 64 6c |alogSetV|alue $dl|
|00005980| 6f 67 20 22 63 6f 6c 6f | 72 4d 61 70 22 20 5b 6c |og "colo|rMap" [l|
|00005990| 69 6e 64 65 78 20 24 41 | 64 4c 69 73 74 20 32 5d |index $A|dList 2]|
|000059a0| 20 0a 20 64 69 61 6c 6f | 67 53 65 74 56 61 6c 75 | . dialo|gSetValu|
|000059b0| 65 20 24 64 6c 6f 67 20 | 22 70 72 65 73 65 6e 74 |e $dlog |"present|
|000059c0| 61 74 69 6f 6e 4c 61 62 | 65 6c 22 20 5b 6c 69 6e |ationLab|el" [lin|
|000059d0| 64 65 78 20 24 41 64 4c | 69 73 74 20 33 5d 0a 20 |dex $AdL|ist 3]. |
|000059e0| 64 69 61 6c 6f 67 53 65 | 74 56 61 6c 75 65 20 24 |dialogSe|tValue $|
|000059f0| 64 6c 6f 67 20 22 55 52 | 4c 6c 61 62 65 6c 22 20 |dlog "UR|Llabel" |
|00005a00| 5b 6c 69 6e 64 65 78 20 | 24 41 64 4c 69 73 74 20 |[lindex |$AdList |
|00005a10| 34 5d 20 0a 20 64 69 61 | 6c 6f 67 53 65 74 56 61 |4] . dia|logSetVa|
|00005a20| 6c 75 65 20 24 64 6c 6f | 67 20 22 55 52 4c 22 20 |lue $dlo|g "URL" |
|00005a30| 5b 6c 69 6e 64 65 78 20 | 24 41 64 4c 69 73 74 20 |[lindex |$AdList |
|00005a40| 35 5d 20 0a 20 64 69 61 | 6c 6f 67 53 65 74 56 61 |5] . dia|logSetVa|
|00005a50| 6c 75 65 20 24 64 6c 6f | 67 20 22 41 64 4e 75 6d |lue $dlo|g "AdNum|
|00005a60| 62 65 72 22 20 22 41 64 | 20 23 24 45 64 69 74 41 |ber" "Ad| #$EditA|
|00005a70| 64 73 5f 77 68 69 63 68 | 22 0a 20 0a 20 69 66 20 |ds_which|". . if |
|00005a80| 7b 5b 70 72 65 73 65 6e | 74 61 74 69 6f 6e 49 73 |{[presen|tationIs|
|00005a90| 41 75 74 6f 73 74 61 72 | 74 20 24 74 61 72 67 65 |Autostar|t $targe|
|00005aa0| 74 20 24 45 64 69 74 41 | 64 73 5f 77 68 69 63 68 |t $EditA|ds_which|
|00005ab0| 5d 7d 20 7b 0a 20 64 69 | 61 6c 6f 67 53 65 74 56 |]} {. di|alogSetV|
|00005ac0| 61 6c 75 65 20 24 64 6c | 6f 67 20 22 41 75 74 6f |alue $dl|og "Auto|
|00005ad0| 73 74 61 72 74 22 20 31 | 0a 20 7d 20 65 6c 73 65 |start" 1|. } else|
|00005ae0| 20 7b 0a 20 64 69 61 6c | 6f 67 53 65 74 56 61 6c | {. dial|ogSetVal|
|00005af0| 75 65 20 24 64 6c 6f 67 | 20 22 41 75 74 6f 73 74 |ue $dlog| "Autost|
|00005b00| 61 72 74 22 20 30 20 0a | 20 7d 0a 20 0a 20 73 65 |art" 0 .| }. . se|
|00005b10| 74 20 61 74 74 61 63 68 | 65 64 20 5b 63 6f 6e 74 |t attach|ed [cont|
|00005b20| 65 6e 74 73 20 24 74 61 | 72 67 65 74 20 5b 65 78 |ents $ta|rget [ex|
|00005b30| 70 72 20 24 45 64 69 74 | 41 64 73 5f 77 68 69 63 |pr $Edit|Ads_whic|
|00005b40| 68 20 2d 20 31 5d 5d 0a | 20 0a 20 69 66 20 7b 24 |h - 1]].| . if {$|
|00005b50| 61 74 74 61 63 68 65 64 | 20 21 3d 20 36 35 35 33 |attached| != 6553|
|00005b60| 35 7d 20 7b 0a 20 64 69 | 61 6c 6f 67 53 65 74 56 |5} {. di|alogSetV|
|00005b70| 61 6c 75 65 20 24 64 6c | 6f 67 20 22 41 74 74 61 |alue $dl|og "Atta|
|00005b80| 63 68 65 64 49 74 65 6d | 22 20 22 5b 40 6f 62 6a |chedItem|" "[@obj|
|00005b90| 20 24 61 74 74 61 63 68 | 65 64 20 6e 61 6d 65 5d | $attach|ed name]|
|00005ba0| 20 28 23 24 61 74 74 61 | 63 68 65 64 29 22 0a 20 | (#$atta|ched)". |
|00005bb0| 64 69 61 6c 6f 67 53 65 | 74 56 61 6c 75 65 20 24 |dialogSe|tValue $|
|00005bc0| 64 6c 6f 67 20 22 41 74 | 74 61 63 68 44 65 74 61 |dlog "At|tachDeta|
|00005bd0| 63 68 22 20 22 44 65 74 | 61 63 68 20 49 74 65 6d |ch" "Det|ach Item|
|00005be0| 22 0a 20 7d 20 65 6c 73 | 65 20 7b 0a 20 64 69 61 |". } els|e {. dia|
|00005bf0| 6c 6f 67 53 65 74 56 61 | 6c 75 65 20 24 64 6c 6f |logSetVa|lue $dlo|
|00005c00| 67 20 22 41 74 74 61 63 | 68 65 64 49 74 65 6d 22 |g "Attac|hedItem"|
|00005c10| 20 22 3c 4e 4f 20 49 54 | 45 4d 20 41 54 54 41 43 | "<NO IT|EM ATTAC|
|00005c20| 48 45 44 3e 22 20 0a 20 | 64 69 61 6c 6f 67 53 65 |HED>" . |dialogSe|
|00005c30| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 22 41 74 |tValue $|dlog "At|
|00005c40| 74 61 63 68 44 65 74 61 | 63 68 22 20 22 41 74 74 |tachDeta|ch" "Att|
|00005c50| 61 63 68 20 49 74 65 6d | 22 20 0a 20 7d 0a 20 0a |ach Item|" . }. .|
|00005c60| 20 0a 20 0a 20 72 65 71 | 75 65 73 74 20 24 74 61 | . . req|uest $ta|
|00005c70| 72 67 65 74 20 35 36 30 | 35 20 7b 0a 20 77 68 69 |rget 560|5 {. whi|
|00005c80| 63 68 20 24 45 64 69 74 | 41 64 73 5f 77 68 69 63 |ch $Edit|Ads_whic|
|00005c90| 68 0a 20 66 6f 72 6d 61 | 74 20 31 0a 20 7d 20 35 |h. forma|t 1. } 5|
|00005ca0| 36 30 36 0a 20 69 66 20 | 7b 5b 40 20 72 65 70 6c |606. if |{[@ repl|
|00005cb0| 79 20 73 75 63 63 65 73 | 73 5d 20 3d 3d 20 30 7d |y succes|s] == 0}|
|00005cc0| 20 7b 0a 20 73 65 74 20 | 6f 6c 64 50 72 65 73 20 | {. set |oldPres |
|00005cd0| 5b 40 20 72 65 70 6c 79 | 20 74 65 78 74 5d 0a 20 |[@ reply| text]. |
|00005ce0| 7d 20 65 6c 73 65 20 7b | 0a 20 75 6e 62 6c 6f 63 |} else {|. unbloc|
|00005cf0| 6b 0a 20 68 61 6e 64 6c | 65 46 61 69 6c 75 72 65 |k. handl|eFailure|
|00005d00| 20 5b 40 20 72 65 70 6c | 79 20 73 75 63 63 65 73 | [@ repl|y succes|
|00005d10| 73 5d 20 5b 40 20 72 65 | 70 6c 79 20 66 61 69 6c |s] [@ re|ply fail|
|00005d20| 5f 6d 73 67 5d 0a 20 7d | 0a 20 0a 20 64 69 61 6c |_msg]. }|. . dial|
|00005d30| 6f 67 53 65 74 56 61 6c | 75 65 20 24 64 6c 6f 67 |ogSetVal|ue $dlog|
|00005d40| 20 22 50 72 65 73 22 20 | 24 6f 6c 64 50 72 65 73 | "Pres" |$oldPres|
|00005d50| 0a 20 64 69 61 6c 6f 67 | 53 65 74 56 61 6c 75 65 |. dialog|SetValue|
|00005d60| 20 24 64 6c 6f 67 20 22 | 6c 69 6d 69 74 50 72 6f | $dlog "|limitPro|
|00005d70| 70 22 20 5b 40 20 72 65 | 70 6c 79 20 6c 69 6d 69 |p" [@ re|ply limi|
|00005d80| 74 70 72 6f 70 5d 0a 20 | 64 69 61 6c 6f 67 53 65 |tprop]. |dialogSe|
|00005d90| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 22 6c 69 |tValue $|dlog "li|
|00005da0| 6d 69 74 22 20 5b 40 20 | 72 65 70 6c 79 20 6c 69 |mit" [@ |reply li|
|00005db0| 6d 69 74 5d 20 0a 7d 0a | 70 72 6f 63 20 65 64 69 |mit] .}.|proc edi|
|00005dc0| 74 41 64 73 5f 53 61 76 | 65 20 7b 20 64 6c 6f 67 |tAds_Sav|e { dlog|
|00005dd0| 20 74 61 72 67 65 74 20 | 7d 20 7b 0a 20 67 6c 6f | target |} {. glo|
|00005de0| 62 61 6c 20 45 64 69 74 | 41 64 73 5f 77 68 69 63 |bal Edit|Ads_whic|
|00005df0| 68 0a 20 0a 20 73 65 74 | 20 69 6d 61 67 65 55 52 |h. . set| imageUR|
|00005e00| 4c 20 5b 64 69 61 6c 6f | 67 47 65 74 56 61 6c 75 |L [dialo|gGetValu|
|00005e10| 65 20 24 64 6c 6f 67 20 | 22 69 6d 61 67 65 55 52 |e $dlog |"imageUR|
|00005e20| 4c 22 5d 0a 20 73 65 74 | 20 63 68 6f 72 65 53 74 |L"]. set| choreSt|
|00005e30| 61 74 65 20 5b 64 69 61 | 6c 6f 67 47 65 74 56 61 |ate [dia|logGetVa|
|00005e40| 6c 75 65 20 24 64 6c 6f | 67 20 22 63 68 6f 72 65 |lue $dlo|g "chore|
|00005e50| 53 74 61 74 65 22 5d 20 | 0a 20 73 65 74 20 63 6f |State"] |. set co|
|00005e60| 6c 6f 72 4d 61 70 20 5b | 64 69 61 6c 6f 67 47 65 |lorMap [|dialogGe|
|00005e70| 74 56 61 6c 75 65 20 24 | 64 6c 6f 67 20 22 63 6f |tValue $|dlog "co|
|00005e80| 6c 6f 72 4d 61 70 22 5d | 0a 20 73 65 74 20 70 72 |lorMap"]|. set pr|
|00005e90| 65 73 65 6e 74 61 74 69 | 6f 6e 4c 61 62 65 6c 20 |esentati|onLabel |
|00005ea0| 5b 64 69 61 6c 6f 67 47 | 65 74 56 61 6c 75 65 20 |[dialogG|etValue |
|00005eb0| 24 64 6c 6f 67 20 22 70 | 72 65 73 65 6e 74 61 74 |$dlog "p|resentat|
|00005ec0| 69 6f 6e 4c 61 62 65 6c | 22 5d 0a 20 73 65 74 20 |ionLabel|"]. set |
|00005ed0| 55 52 4c 6c 61 62 65 6c | 20 5b 64 69 61 6c 6f 67 |URLlabel| [dialog|
|00005ee0| 47 65 74 56 61 6c 75 65 | 20 24 64 6c 6f 67 20 22 |GetValue| $dlog "|
|00005ef0| 55 52 4c 6c 61 62 65 6c | 22 5d 20 0a 20 73 65 74 |URLlabel|"] . set|
|00005f00| 20 55 52 4c 20 5b 64 69 | 61 6c 6f 67 47 65 74 56 | URL [di|alogGetV|
|00005f10| 61 6c 75 65 20 24 64 6c | 6f 67 20 22 55 52 4c 22 |alue $dl|og "URL"|
|00005f20| 5d 0a 20 0a 20 73 65 74 | 20 6e 65 77 50 72 65 73 |]. . set| newPres|
|00005f30| 20 5b 64 69 61 6c 6f 67 | 47 65 74 56 61 6c 75 65 | [dialog|GetValue|
|00005f40| 20 24 64 6c 6f 67 20 22 | 50 72 65 73 22 5d 20 0a | $dlog "|Pres"] .|
|00005f50| 20 73 65 74 20 69 6e 74 | 65 72 76 61 6c 20 5b 64 | set int|erval [d|
|00005f60| 69 61 6c 6f 67 47 65 74 | 56 61 6c 75 65 20 24 64 |ialogGet|Value $d|
|00005f70| 6c 6f 67 20 22 49 6e 74 | 65 72 76 61 6c 22 5d 0a |log "Int|erval"].|
|00005f80| 20 0a 20 73 65 74 20 61 | 75 74 6f 73 74 61 72 74 | . set a|utostart|
|00005f90| 20 5b 64 69 61 6c 6f 67 | 47 65 74 56 61 6c 75 65 | [dialog|GetValue|
|00005fa0| 20 24 64 6c 6f 67 20 22 | 41 75 74 6f 73 74 61 72 | $dlog "|Autostar|
|00005fb0| 74 22 5d 0a 20 0a 20 73 | 65 74 20 6c 69 6d 69 74 |t"]. . s|et limit|
|00005fc0| 70 72 6f 70 20 5b 64 69 | 61 6c 6f 67 47 65 74 56 |prop [di|alogGetV|
|00005fd0| 61 6c 75 65 20 24 64 6c | 6f 67 20 22 6c 69 6d 69 |alue $dl|og "limi|
|00005fe0| 74 50 72 6f 70 22 5d 0a | 20 73 65 74 20 6c 69 6d |tProp"].| set lim|
|00005ff0| 69 74 20 5b 64 69 61 6c | 6f 67 47 65 74 56 61 6c |it [dial|ogGetVal|
|00006000| 75 65 20 24 64 6c 6f 67 | 20 22 6c 69 6d 69 74 22 |ue $dlog| "limit"|
|00006010| 5d 0a 20 0a 20 69 66 20 | 7b 28 21 5b 69 73 4e 75 |]. . if |{(![isNu|
|00006020| 6d 62 65 72 20 24 6c 69 | 6d 69 74 5d 29 20 7c 7c |mber $li|mit]) |||
|00006030| 20 28 24 6c 69 6d 69 74 | 20 3d 3d 20 22 22 29 7d | ($limit| == "")}|
|00006040| 20 7b 0a 20 73 65 74 20 | 6c 69 6d 69 74 20 2d 31 | {. set |limit -1|
|00006050| 0a 20 7d 0a 20 0a 20 0a | 20 73 65 74 20 6e 65 77 |. }. . .| set new|
|00006060| 41 64 20 22 24 69 6d 61 | 67 65 55 52 4c 7c 24 63 |Ad "$ima|geURL|$c|
|00006070| 68 6f 72 65 53 74 61 74 | 65 7c 24 63 6f 6c 6f 72 |horeStat|e|$color|
|00006080| 4d 61 70 7c 24 70 72 65 | 73 65 6e 74 61 74 69 6f |Map|$pre|sentatio|
|00006090| 6e 4c 61 62 65 6c 7c 24 | 55 52 4c 6c 61 62 65 6c |nLabel|$|URLlabel|
|000060a0| 7c 24 55 52 4c 22 0a 20 | 0a 20 69 66 20 7b 24 69 ||$URL". |. if {$i|
|000060b0| 6e 74 65 72 76 61 6c 20 | 3c 3d 20 30 7d 20 7b 0a |nterval |<= 0} {.|
|000060c0| 20 68 61 6e 64 6c 65 46 | 61 69 6c 75 72 65 20 35 | handleF|ailure 5|
|000060d0| 20 22 49 6e 74 65 72 76 | 61 6c 20 6d 75 73 74 20 | "Interv|al must |
|000060e0| 62 65 20 70 6f 73 69 74 | 69 76 65 2e 22 0a 20 7d |be posit|ive.". }|
|000060f0| 0a 20 72 65 71 75 65 73 | 74 20 24 74 61 72 67 65 |. reques|t $targe|
|00006100| 74 20 35 36 30 35 20 7b | 0a 20 77 68 69 63 68 20 |t 5605 {|. which |
|00006110| 30 0a 20 66 6f 72 6d 61 | 74 20 31 0a 20 7d 20 35 |0. forma|t 1. } 5|
|00006120| 36 30 36 0a 20 0a 20 69 | 66 20 7b 5b 40 20 72 65 |606. . i|f {[@ re|
|00006130| 70 6c 79 20 73 75 63 63 | 65 73 73 5d 20 3d 3d 20 |ply succ|ess] == |
|00006140| 30 7d 20 7b 0a 20 73 65 | 74 20 6f 6c 64 41 64 73 |0} {. se|t oldAds|
|00006150| 20 5b 40 20 72 65 70 6c | 79 20 74 65 78 74 5d 0a | [@ repl|y text].|
|00006160| 20 7d 20 65 6c 73 65 20 | 7b 0a 20 75 6e 62 6c 6f | } else |{. unblo|
|00006170| 63 6b 0a 20 68 61 6e 64 | 6c 65 46 61 69 6c 75 72 |ck. hand|leFailur|
|00006180| 65 20 5b 40 20 72 65 70 | 6c 79 20 73 75 63 63 65 |e [@ rep|ly succe|
|00006190| 73 73 5d 20 5b 40 20 72 | 65 70 6c 79 20 66 61 69 |ss] [@ r|eply fai|
|000061a0| 6c 5f 6d 73 67 5d 0a 20 | 7d 0a 20 0a 20 73 65 74 |l_msg]. |}. . set|
|000061b0| 20 4f 6c 64 41 64 73 4c | 69 73 74 20 5b 73 70 6c | OldAdsL|ist [spl|
|000061c0| 69 74 20 5b 73 74 72 69 | 6e 67 20 74 72 69 6d 20 |it [stri|ng trim |
|000061d0| 24 6f 6c 64 41 64 73 5d | 20 22 5c 72 5c 6e 22 5d |$oldAds]| "\r\n"]|
|000061e0| 0a 20 77 68 69 6c 65 20 | 7b 5b 6c 6c 65 6e 67 74 |. while |{[llengt|
|000061f0| 68 20 24 4f 6c 64 41 64 | 73 4c 69 73 74 5d 20 3c |h $OldAd|sList] <|
|00006200| 20 24 45 64 69 74 41 64 | 73 5f 77 68 69 63 68 7d | $EditAd|s_which}|
|00006210| 20 7b 0a 20 6c 61 70 70 | 65 6e 64 20 4f 6c 64 41 | {. lapp|end OldA|
|00006220| 64 73 4c 69 73 74 20 22 | 7c 7c 7c 7c 7c 22 0a 20 |dsList "||||||". |
|00006230| 7d 0a 20 73 65 74 20 4e | 65 77 41 64 73 4c 69 73 |}. set N|ewAdsLis|
|00006240| 74 20 5b 6c 72 65 70 6c | 61 63 65 20 24 4f 6c 64 |t [lrepl|ace $Old|
|00006250| 41 64 73 4c 69 73 74 20 | 5b 65 78 70 72 20 24 45 |AdsList |[expr $E|
|00006260| 64 69 74 41 64 73 5f 77 | 68 69 63 68 20 2d 20 31 |ditAds_w|hich - 1|
|00006270| 5d 20 5b 65 78 70 72 20 | 24 45 64 69 74 41 64 73 |] [expr |$EditAds|
|00006280| 5f 77 68 69 63 68 20 2d | 20 31 5d 20 24 6e 65 77 |_which -| 1] $new|
|00006290| 41 64 5d 0a 20 0a 20 20 | 0a 20 77 68 69 6c 65 20 |Ad]. .  |. while |
|000062a0| 7b 5b 6c 69 6e 64 65 78 | 20 24 4e 65 77 41 64 73 |{[lindex| $NewAds|
|000062b0| 4c 69 73 74 20 5b 65 78 | 70 72 20 5b 6c 6c 65 6e |List [ex|pr [llen|
|000062c0| 67 74 68 20 24 4e 65 77 | 41 64 73 4c 69 73 74 5d |gth $New|AdsList]|
|000062d0| 20 2d 20 31 5d 5d 20 3d | 3d 20 22 7c 7c 7c 7c 7c | - 1]] =|= "||||||
|000062e0| 22 7d 20 7b 0a 20 73 65 | 74 20 4e 65 77 41 64 73 |"} {. se|t NewAds|
|000062f0| 4c 69 73 74 20 5b 6c 72 | 65 70 6c 61 63 65 20 24 |List [lr|eplace $|
|00006300| 4e 65 77 41 64 73 4c 69 | 73 74 20 5b 65 78 70 72 |NewAdsLi|st [expr|
|00006310| 20 5b 6c 6c 65 6e 67 74 | 68 20 24 4e 65 77 41 64 | [llengt|h $NewAd|
|00006320| 73 4c 69 73 74 5d 20 2d | 20 31 5d 20 5b 65 78 70 |sList] -| 1] [exp|
|00006330| 72 20 5b 6c 6c 65 6e 67 | 74 68 20 24 4e 65 77 41 |r [lleng|th $NewA|
|00006340| 64 73 4c 69 73 74 5d 20 | 2d 20 31 5d 5d 0a 20 7d |dsList] |- 1]]. }|
|00006350| 0a 20 0a 20 73 65 74 20 | 4e 65 77 41 64 73 20 5b |. . set |NewAds [|
|00006360| 6a 6f 69 6e 20 24 4e 65 | 77 41 64 73 4c 69 73 74 |join $Ne|wAdsList|
|00006370| 20 22 5c 6e 22 5d 0a 20 | 0a 20 63 6f 6d 6d 61 6e | "\n"]. |. comman|
|00006380| 64 20 24 74 61 72 67 65 | 74 20 35 36 32 30 20 7b |d $targe|t 5620 {|
|00006390| 0a 20 77 68 69 63 68 20 | 30 0a 20 69 6e 74 65 72 |. which |0. inter|
|000063a0| 76 61 6c 20 24 69 6e 74 | 65 72 76 61 6c 0a 20 61 |val $int|erval. a|
|000063b0| 75 74 6f 73 74 61 72 74 | 20 24 61 75 74 6f 73 74 |utostart| $autost|
|000063c0| 61 72 74 0a 20 6c 69 6d | 69 74 70 72 6f 70 20 22 |art. lim|itprop "|
|000063d0| 22 0a 20 6c 69 6d 69 74 | 20 30 0a 20 74 65 78 74 |". limit| 0. text|
|000063e0| 20 24 4e 65 77 41 64 73 | 0a 20 7d 0a 20 0a 20 63 | $NewAds|. }. . c|
|000063f0| 6f 6d 6d 61 6e 64 20 24 | 74 61 72 67 65 74 20 35 |ommand $|target 5|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.