ThreadBoard ArchivesSite FeaturesActiveworlds SupportHistoric Archives |
Sample2 (Delphi) (Sdk)
Sample2 (Delphi) // SdkcanopusOct 13, 1998, 8:25pm
This is a multi-part message in MIME format.
--------------3CE501B84C2015DF6E6471F8 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit I have updated the Delphi library file for linking with Aw.dll (Build 6), and tested the Delphi version of Sample 2 (which uses Build 6). Both are in the Zip file attached to this message. Sample 2 cleverly forces you to study the new Properties document in order to run your own version, even in C, because you have to substitute your own midispk object at a location elsewhere in Beta, find it using your new knowledge of Sectors, Zones, and how they translate into Cell coords, and replace three lines in Sample 2. If you used the Delphi program posted on this Newsgroup a week ago to explain how to Query property using Sectors, Zones, and Cell coords, however, you'll find it easy to write and test a JukeBox program, including how to turn a Cell coord into a Sector coord. My test wavspk is at 1S 78W, on the walkway leading to the replica of all property between 4S and 10S, 9W and 6E, built by a BuilderBot following a Survey made by a SurveyorBot (which used the technique for Querying property in the previously posted program). --------------3CE501B84C2015DF6E6471F8 Content-Type: application/x-zip-compressed; name="Sample2Form.zip" Content-Transfer-Encoding: base64 Content-Disposition: inline; filename="Sample2Form.zip" UEsDBBQAAAAIALldTSUHs6mqIwwAAOpAAAALAAAAYWtBV0FQSS5wYXPFWutv28gR/27A/8PC XyIHqVsccP0Q44BSEm3zQpEqScWPohVoaW3zjiJ9JG3HF+R/7+zytW9RctI6gEPO7PzmtTu7 O/TX+Hfr0po7J/O4/HZ4cHjwlCUVaoinhPD1/RSnjw8JGvm3v+FVhWDkKk6P0Rqv0riIqyTP ShRna5RsHvOiQmlyW8TF6+EBussLVD1gZK2q5Bmjy7xI1yUC4PdUVZJVuLiLV5jqLXEJIugy ydb5S/kBzXBZxvcYnsLXclElKTxN0riEcdSuFaitkHW5nFlXSyuKAme8iOyla3vn0QX6Bf30 88+nzKjxwnGnQP47FT48GL3/y/f8IaYbfmJUwb8CJegWPcETRuDsdtQdft4fE6+q10dMvO3i AR6PiG1Ac/1zx1t61sz+wFHmVhhe+sGUp/qXnh0IAwPns+Pa57ZGpOd7i9lYL60wAXjW5Jon WvO560ysyPG9lrHwnM92ENrLceBfhnawnDmeM1vMtPzAdm0rtLX8sR1ZEhM8c6da6JobRlYQ SbzAPnfCKKA2w8s/F05gd0GaOJFzY3tCcDoqE5SWJoa5pdszy3FFYuTMyOw/iyQUbdraEc5s 5pw3VhMYSd/V3DGw2SC2NNcKozqP0mgfGM7M6eysA8r6X1MiJ3IF0tiafJoG/pynngf+wpvy NH/8qz2JwOPoQskI7LPADgUerRHLwDm/EIyzYTLYXrSc+hB5TznCi8h0kxnh3J44ltvoDVVD Wq+WzGQROOeBbXsa3thdCGGaWAGk5BMYNLHm1thxneiaHwG+Q4GYRDY8WlNnEfLs+WIMS4/Y bkQRhilcmwR2P29gzcyE1F34MzItz8U800TwC0XIKz+Ta+bUCa2xa9da7eUicAWvwRbvnKdd 2u6EGAHmhZIddj1XFOmmDF1cJrbrquZ47ZZOynJd/5J6Fl0ECxXvzL2W7K85EdS5uR+Ic29i QTQ+BzNXJdOEMgTRiWioL87U2fXyinm+Zp5vWLp1ybxF13ObeT2HGbAIOor12YIiCvrDkCnx DZUtBw3pSni/Ft5vRH5vS0Nh7WlIgk2TCysSLaI0YXrQDF9xbzfcWwjF3/YmvEAIBbAlNNHn 53hDvBLer4X3G5Hfe9pQZv7UdgXa1A4ngTNn99OGY00URF9agQxDtJDQRKu4E0Q32bjQNtR6 XUglAiIYXC9hdc5dO+JTxGYSSpDthcKxoqFJB5WGvoDNPxSJgeWdSwjcXtsSwaYZVHyJzFY7 CUi9ibZsumFypwq6FF04T8h7I6XC4Ego3JTO+Warwl4Tp4uAO1xRKjHPmk5hfwgleu9By4KC O/E9r95QrbBnnMGBgzObEgLYCucOEzhKDW1v2k8UhiQDCH5QmmAtpTWlkJBG71FcVUVy+1Th Et3iNH9BcYFRllcI7hxrdPtK7yjh9BOqz9D1LPO9yJLWZ0vlQ9+NZY9wDY2mRSTO/L7ikMoN Z6/ZMvIl0lngz+Rx9lUkEUMmqB2RVfOrL5z9KaE5k3E0zmJKueLerrm3G57XF6L6KEwODxNO L0fngstyZhCpCxXj2rZkAWEK9OOZPbYjktzJ1tw4c4k2v/A98S7TMceLEM6EYah27jNMYF8W AisXbr+nshfXw4PjU/YGZ38mB07VPa7h1PsXuP5BRYcqyRQzjgU7A1NOaxbdnsY2c1xn6HWV VjBsT1BOajNPaXcY0cxuT5Jt6W5TnfMhP6A5xBi5jnfmq+h9xeK5pOLQ2iE4xCx4gdUuM55K lgGbX0qF3CIuuXAuc8n5nclqSxIuTS2V3i8kaneZYadVj9RsLXKkpCEahPbOZkBoh2gQ6B4u UetckN1KYkmJ6DhsaDtiu8FTOYnbXmxlsHZJsrlqmXK62iNHyCaMHhUtp9dKCOPAt6YTi3GM UC8vHLgkBTIwO7048Ibhn525UGY+iGRPRfXgZm21CZF0NVcCURMl1/sZrLxPHpzaPihY9VVP ySG9G1q/OH0PDmm8/YLmOW3znRJJ+Jn3nP80jy3LurSfcVbNi3wF3Ef4D6+fCtyzJ3Ga3sar 38URo2KFPiIH1NzjgqmiIV5VeRHiP0oYbRVF/Pqvv52c/PQBkd//RvldK3P6v28Ikp8NwqhC DyhH6x/UDrx7ylakPwvK4pdlQlq7o9unJF0z8eqeTtGKtHQhGF1kqRhkb4N6Jo+5KnBcYTRa 55s4yQB2PnmIAYp2ghnoBBIdZytMRjR5P0YfIUiSchX+ssBlnj7DaW0Ur9fwUgLOJC7WSRan JmWggFG3Tdkal1WRv6LtIzsNMLSdxluGLksM0WfiMNyuNL+H2G4f9xKTBG+SNE1KvMqzdcnk eYhTIB1Ty/qKP0yudk6UPUXPcfqEdzICMpBk92o7mrllEtxmCIUYYMZtnqd7BYMIviUa6Cv9 9IKe82RNbi9kDTR1D42YHQytjo+FwveNSHt5hT/SGw3+8khWCrHsiEE5+usRA3OEkrK+B1Uv CUzLB1zgk2+iU793Fqxqp1rxY/rKFmbWE2EpN6Pq6HCunNbujt63Y44R71tdK5gVfoJPqJOd ike6z6zhskdudF3INk+w1zzEz7genUMpO2qZtEQLMTzqx8H+QJ7JaBKko3+0cnfZkTZCtXNC lE57e8RwaYqgYhZgsjnSuIlXgxhmAhlIZwBvViPUTEVBsE5et+nqM0dRurRJ6rvsPcTZOiXz ujZn16Q14oqc0UwdNfwRZEmfpGYQ2cLkLDGOqENy2hnBhWbQVoXJOQeNXshXzr5Yxc9xFRe7 FWL8Ber4gFIZv0K1rz+T7lDaXh6S8pFYWtbVYZmsWSEDIMRAV3vJJr2C2N3jAYavkir5E2fL vjGzvH1dZvEGDhL093BnNFBPm1viYcNVB1/rTYe5Xu/gzM7er3GKydHJaOQWjAx/GTJT2uGw ITwn+VM5QCSF3SAr8cAgdKP7VtuumWwhBsexFWjjuKe+gSFshytDqFtppBSAZDlEQU7/umJg vJvBg2PVjG9CtX38H0+4gOLyBWoluUOxAn8qaCUGgfbA3V+7BmShgHKbb4acbWksmWU+2Pen LHnGBTc5hws3NXKwgZj+icwORlEBUoWHJb6O/fKuyDfLFYZNb0R/m2sHudxCXa8e8rXYAl89 FQVsXOkr2aiSNL5NMVyfhI64UEzyrIqbmbpf8WoA3lQAGwy6uEbNW8nJdagxufoz1/3jAZv5 GnZt1RE+xdl99UDKDGOr8V5CkAbdShjwHnu7pRVE8b6IN6AjGzKDfoMz134xJ5JwE3+EySLL nyLKWXLHaYat3W0f47KEtbMean+y2STg76AyVuB7mB9wEhiysLL18i5JhxWFZmwbDbPrzDo8 PEg2jynewJKjfzhX0wQHh7Vp4H4HnmVxit5ZLyfrNH2HyA4IcX7XgLw7NbZyNACIypOR7+RV 98ZuzzAXagtqXTobflBHSGfRO1mxbJm+fWSCbaRkOEOPaVvua0E95A69qE4VAZeMZwFldbq+ lSkcVEaG2rG1ZbaagKmCM6z91VsvRr+OiBr6TT0hQ7waaFnn4EaaOVY1jA5+/3abyaceW9Y7 uDFnXiMERg3+oxLVYsta9+iumXPWdpv0qr5Lm8pYLBlFshn7tKXMLlNEjaL9Gj7yycXkb6dI YUO2f1/IqJLgKtSpm0dGpC+qeii2l1bqpWxeZwCiKOaDO1CizkG5aOBVNcvYptriCSOsOJW8 paVlXEha4MFG7NQM28MWim+wRnmxNQebkdUD75lIXlwPv8v1dEs95hD1GjWtqGHuEGE9tKHz Nwy+BVCc8oydQjM6I2sAHt5UNOdBBtQr3XNy8eJ6+IFNy2H+6ObVlhbnME/U88rYDt0FXj+v jN1TM3gvKsMa+6xm2F5UC7vntOGkteDa9u0gcN0s+WG9XtNWQpXKtmjbwSasWkg3gYZ0fc3L TIMjK9yp02zWqYdSHGu0PWpT1BopXdh0jewhC4/KGsKzpedtVqFEUQVl50a5OSMiIFH5f26s bzl19HCKc8EePfhh6rSHnO/csTceVBldsiVv6e2btBJctbbv2f/fZoH6ErrtK4F5zXHSMvjw TwrmKURw1Ohv/+xgCluvQda+7fOEOXCctAxu+pZhBu4kFXuo/qOHGbMVVBVT/ccRM2YnaQDd 8SuKeVPjMOsaDbSTw4P/AlBLAwQUAAAACACoik0lrx0kq4sIAAAeIAAAEQAAAGFrU2FtcGxl MkZvcm0ucGFzvRlrc+JG8vtW7X/oq1wd4OMo7Dzuso6TCKHdkMVAAK/XpFKULI2xzkJDNMKs 49r/ft0zI2kkC+NcQdiqtdTT06/p6Zce3buJu1yF7OQtj5etkSs+v34Fj9YlTLrvawL0Ioxi vojdZRM2cZAkLIIggi4LV7dBS24YM1pgkNwGAlYKGdybhMXwwNdw694zWIWux3xwYRn4gVjd Ab/+L/MS4JsIwdcPhIm0QPAl29yymBGTDkvcU/Bu3WhB1Bl4nMe+ADeRb8ltzDRlgeh+4LkJ EsONuErEUlkSLvFDjggBj6COKDYLQwE8JvQJSsJj0QB+Q3LEqZCkHv1bR0ECBWOdEjiIUMUb 5C5xBBPE8xIF4RvRhHMmhLtg+DR5EBdJEOKTHbpCEOhd7KL5PALxKIk5LRJd/NMN3JAvRJOI IVPr0hr1kEbi20lMaM6nRD5JEZKHldR0ehMvMwHhDDxiVJ8SyYYkBCM3YuHxG5jKh1MDeFIC nrMlJ0T6q0GddZLwiIDqSYMdP0gISH8N0EkRpLaclDfj4aBHrPGkNXU7DLy7+oRFPosReSgd pPEEm3SyY4ZH/TLcLhNo4Idq5FUc3CMlte8RPV2+gs/QgLF0FgGfJeL6GsXL8ORbBZrJ3JZ+ e46uJFkh+1PlTgYKOmGHLQKySRGqhCyAx+yXNYsf6rEHb6CHvrdgcUOSvHdj4mD6wJuiS0gJ 7N60N3MG88HFeccZ50Tk4sT55cIZ2A6C1XWYsN+FWhk51ntnPP9Y3qHhV1vgs234GGCqVyoF s51+/wlvCSwzsC/GY2cwnZ/3ur3C0utXHp5QArQwwRU3jt0H+LXdah23f6NLP0niIFrgvanX 5M05bmEEqDVBvZ2oN3W+oIFfFlC+Krx9XXj7pvD27ypi/ymgfFt4O26nr7WGocvb3gcHNR1c TJ0JCf41HME3bfzvuN1uE6JCS0077Pzs2FNErKWxLd58qmVol8Nxv0ur1xhya9pPA3KdJYsS 6eEEefz7GI5a3bfnn4t+XPC11q77rN0VTEdWV5cAI7w39HpN90KbKbiBugw2rSn7lJCctQbF bgk8MYEY5yMwt4IOaK1+EDHRsny/XnMocIMdJMEfiD1YL6/x9R/y9gchSoNxUYgNpppaGlLo xz5lIU1fZvlIWpyBu5kHmCXq1uW8c9Hrd7ONJDqifPc9tF8o3UXkXoeMkhZRxGyAUoJMAhj1 BKavGvwz3472Szj6LzJpPCMtsFDoMPeUYy/jY2ic6cXu0QXmgknlnA90w+T16zjveoMm/JgF sT3pLBI3DPPQiPVD5IcsPpz6T1iBu0LfvmfF83+BSdQt0zYpJqW9GUWR/WusUuS10yx3KOO1 692llrGtfr9j2e/nmFrGV2gWncL2ahNN8/AGKTGqsIa0QxSkhVRuGE/VK14T2k1C2IsBFFFl h8hjhwwPioPmaChcrijOKJMmHJka4Tpna4RKeXuAnKQ/xDAyH14OnHGzRHAvZupzutlD7DMO 6BvIZIGtB3Uz1FFURFEhS4yS1qNx70Ov77xz5iNrMsEk3G2q/GcktsYerZDmtYMbImX0J2xh jUb9nm1Ne8NBaoSarihq+7SBtVqFgWoED24G5PUnLDCwzp1M9V50H4gAJe/+vFf1B+7ygKFC 6x0hk2rFQ666nf1oc3BFKnVgVD7W1TnJwrmBcX0vRyQpA16c8IBX9JLIK1ZmLH9U2Q1z2orF yQMNWd7NWp+3G4jfUc90g2W4WDH3jsWtVisnh3b6XbarbZn00vaycQr1o+kt001mOtFZrrEJ 8XgcM7HiKH/CU90Kgxts1eg9nSHRdEnnJOBqXNQ60vMO2NxiLQ91lGPjYmFu9ksNbBbwcHxe OJpHiyZbN1R0E0u+ypRXv/pRB3ndAV8nqSCEBTSt+iFjq37kBKWu1nCI0mQA0n4iHRFsa6wK +7Z3UaIJrift9UZ3tqfFdirPwBR8VNE6H/a7WtRmqSE3z7R638d8y8fd2LMce/Y89svpXuWY V89jvpz7lXVpULUud2j2bAVTiPnGrvNh1+k3S216tktQxKlNuu/1LNZMXvDFiRxowETdvtou Vl1nYo97IzPBijyIpB6D/HRhKfgabyKGHzU3+dUcr/yWRbvIq5sLhTBYsc9o0/MLUxzc4N3c pYplm1oo0XNVskCtZsxzNUDeGp9zOZ4rttUQWkc6MzgXY3JGjCJwOfJX8tDHpzn4RgjVv/J0 LK2gDXuUnK0YTV6/evxJtSyiNLYxx4+PV1iLuBFHi6AsuACBQPkpxCexG4kljf79FlysfDdR 0/h8TqgmahQv06ik1uj+yofiqM40SzreM7VSsEyddNj3BCW/v5pdWl3Jt/lNzJdzUqVeIpjJ 9Az2rODJKf3v4F/HavKUQr6HAmCmUPITNJckrswAZr4uhPjKNhwz22KtKpGnKaIwLS6cov7E Un2OPQFBor52FIPPD8YpWlQtbssievFMr9azy1oOb8XyVR/4GdkC3VIDZgZAET4rB0VNQ5YP Qul9wPKhsnQzRuEVt/CjeXON6XgF6lUV6qwSdVZJlWboVXSNLAX/T+iAXf6YhitpVOb/rbZ1 68urnG1fNh57+nucDrvkyiIJ8NzRw7HyxPzUxLjJvDvyLDpaVcMimsdJiISd0gpi08BdLboL lxqHTZDcyi1rGdB8EAzrVZpyRHIeLCialWfQJXuebSvxFU/ocB4yN6KbcY2PZHU5CZvbw/NR 35k6jXIGgu2F819VN6uTyvuH7LcjTvF16EeFZsX4ffHlt5gpa3hoAUqZHqcKULkHlfPWtjr4 +U+A5lkYHw2osslqJOO7QQFuqmXj2cXpwlv0OllspOeBJxP8wYY3GSBtAncV8Tu+SZbqdF9h Vsknza4p0Td0nhS6L2zvllu3WaMeTBEhiLKBXm52fGq9fvU/UEsBAhQAFAAAAAgAuV1NJQez qaojDAAA6kAAAAsAAAAAAAAAAQAgALaBAAAAAGFrQVdBUEkucGFzUEsBAhQAFAAAAAgAqIpN Ja8dJKuLCAAAHiAAABEAAAAAAAAAAQAgALaBTAwAAGFrU2FtcGxlMkZvcm0ucGFzUEsFBgAA AAACAAIAeAAAAAYVAAAAAA== --------------3CE501B84C2015DF6E6471F8-- canopusOct 14, 1998, 1:22pm
This is a multi-part message in MIME format.
--------------0D9679D4CC14AE3B8F065983 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit The attached Zip file corrects an error in the first version: there are 5 lines in the Sample 2 program which must be replaced, not just 3 lines, for Sample 2 to work, if your midispk on Beta is not at GZ (whether you write in C or Object Pascal). [View Quote] > I have updated the Delphi library file for linking with Aw.dll (Build > 6), and tested the Delphi version of Sample 2 (which uses Build 6). Both > are in the Zip file attached to this message. Sample 2 cleverly forces > you to study the new Properties document in order to run your own > version, even in C, because you have to substitute your own midispk > object at a location elsewhere in Beta, find it using your new knowledge > of Sectors, Zones, and how they translate into Cell coords, and replace > three lines in Sample 2. If you used the Delphi program posted on this > Newsgroup a week ago to explain how to Query property using Sectors, > Zones, and Cell coords, however, you'll find it easy to write and test a > JukeBox program, including how to turn a Cell coord into a Sector coord. > My test wavspk is at 1S 78W, on the walkway leading to the replica of > all property between 4S and 10S, 9W and 6E, built by a BuilderBot > following a Survey made by a SurveyorBot (which used the technique for > Querying property in the previously posted program). > > ------------------------------------------------------------------------ > > Name: Sample2Form.zip > Sample2Form.zip Type: Zip Compressed Data (application/x-zip-compressed) > Encoding: base64 --------------0D9679D4CC14AE3B8F065983 Content-Type: application/x-zip-compressed; name="Sample2Form.zip" Content-Transfer-Encoding: base64 Content-Disposition: inline; filename="Sample2Form.zip" UEsDBBQAAAAIALldTSUHs6mqIwwAAOpAAAALAAAAYWtBV0FQSS5wYXPFWutv28gR/27A/8PC XyIHqVsccP0Q44BSEm3zQpEqScWPohVoaW3zjiJ9JG3HF+R/7+zytW9RctI6gEPO7PzmtTu7 O/TX+Hfr0po7J/O4/HZ4cHjwlCUVaoinhPD1/RSnjw8JGvm3v+FVhWDkKk6P0Rqv0riIqyTP ShRna5RsHvOiQmlyW8TF6+EBussLVD1gZK2q5Bmjy7xI1yUC4PdUVZJVuLiLV5jqLXEJIugy ydb5S/kBzXBZxvcYnsLXclElKTxN0riEcdSuFaitkHW5nFlXSyuKAme8iOyla3vn0QX6Bf30 88+nzKjxwnGnQP47FT48GL3/y/f8IaYbfmJUwb8CJegWPcETRuDsdtQdft4fE6+q10dMvO3i AR6PiG1Ac/1zx1t61sz+wFHmVhhe+sGUp/qXnh0IAwPns+Pa57ZGpOd7i9lYL60wAXjW5Jon WvO560ysyPG9lrHwnM92ENrLceBfhnawnDmeM1vMtPzAdm0rtLX8sR1ZEhM8c6da6JobRlYQ SbzAPnfCKKA2w8s/F05gd0GaOJFzY3tCcDoqE5SWJoa5pdszy3FFYuTMyOw/iyQUbdraEc5s 5pw3VhMYSd/V3DGw2SC2NNcKozqP0mgfGM7M6eysA8r6X1MiJ3IF0tiafJoG/pynngf+wpvy NH/8qz2JwOPoQskI7LPADgUerRHLwDm/EIyzYTLYXrSc+hB5TznCi8h0kxnh3J44ltvoDVVD Wq+WzGQROOeBbXsa3thdCGGaWAGk5BMYNLHm1thxneiaHwG+Q4GYRDY8WlNnEfLs+WIMS4/Y bkQRhilcmwR2P29gzcyE1F34MzItz8U800TwC0XIKz+Ta+bUCa2xa9da7eUicAWvwRbvnKdd 2u6EGAHmhZIddj1XFOmmDF1cJrbrquZ47ZZOynJd/5J6Fl0ECxXvzL2W7K85EdS5uR+Ic29i QTQ+BzNXJdOEMgTRiWioL87U2fXyinm+Zp5vWLp1ybxF13ObeT2HGbAIOor12YIiCvrDkCnx DZUtBw3pSni/Ft5vRH5vS0Nh7WlIgk2TCysSLaI0YXrQDF9xbzfcWwjF3/YmvEAIBbAlNNHn 53hDvBLer4X3G5Hfe9pQZv7UdgXa1A4ngTNn99OGY00URF9agQxDtJDQRKu4E0Q32bjQNtR6 XUglAiIYXC9hdc5dO+JTxGYSSpDthcKxoqFJB5WGvoDNPxSJgeWdSwjcXtsSwaYZVHyJzFY7 CUi9ibZsumFypwq6FF04T8h7I6XC4Ego3JTO+Warwl4Tp4uAO1xRKjHPmk5hfwgleu9By4KC O/E9r95QrbBnnMGBgzObEgLYCucOEzhKDW1v2k8UhiQDCH5QmmAtpTWlkJBG71FcVUVy+1Th Et3iNH9BcYFRllcI7hxrdPtK7yjh9BOqz9D1LPO9yJLWZ0vlQ9+NZY9wDY2mRSTO/L7ikMoN Z6/ZMvIl0lngz+Rx9lUkEUMmqB2RVfOrL5z9KaE5k3E0zmJKueLerrm3G57XF6L6KEwODxNO L0fngstyZhCpCxXj2rZkAWEK9OOZPbYjktzJ1tw4c4k2v/A98S7TMceLEM6EYah27jNMYF8W AisXbr+nshfXw4PjU/YGZ38mB07VPa7h1PsXuP5BRYcqyRQzjgU7A1NOaxbdnsY2c1xn6HWV VjBsT1BOajNPaXcY0cxuT5Jt6W5TnfMhP6A5xBi5jnfmq+h9xeK5pOLQ2iE4xCx4gdUuM55K lgGbX0qF3CIuuXAuc8n5nclqSxIuTS2V3i8kaneZYadVj9RsLXKkpCEahPbOZkBoh2gQ6B4u UetckN1KYkmJ6DhsaDtiu8FTOYnbXmxlsHZJsrlqmXK62iNHyCaMHhUtp9dKCOPAt6YTi3GM UC8vHLgkBTIwO7048Ibhn525UGY+iGRPRfXgZm21CZF0NVcCURMl1/sZrLxPHpzaPihY9VVP ySG9G1q/OH0PDmm8/YLmOW3znRJJ+Jn3nP80jy3LurSfcVbNi3wF3Ef4D6+fCtyzJ3Ga3sar 38URo2KFPiIH1NzjgqmiIV5VeRHiP0oYbRVF/Pqvv52c/PQBkd//RvldK3P6v28Ikp8NwqhC DyhH6x/UDrx7ylakPwvK4pdlQlq7o9unJF0z8eqeTtGKtHQhGF1kqRhkb4N6Jo+5KnBcYTRa 55s4yQB2PnmIAYp2ghnoBBIdZytMRjR5P0YfIUiSchX+ssBlnj7DaW0Ur9fwUgLOJC7WSRan JmWggFG3Tdkal1WRv6LtIzsNMLSdxluGLksM0WfiMNyuNL+H2G4f9xKTBG+SNE1KvMqzdcnk eYhTIB1Ty/qKP0yudk6UPUXPcfqEdzICMpBk92o7mrllEtxmCIUYYMZtnqd7BYMIviUa6Cv9 9IKe82RNbi9kDTR1D42YHQytjo+FwveNSHt5hT/SGw3+8khWCrHsiEE5+usRA3OEkrK+B1Uv CUzLB1zgk2+iU793Fqxqp1rxY/rKFmbWE2EpN6Pq6HCunNbujt63Y44R71tdK5gVfoJPqJOd ike6z6zhskdudF3INk+w1zzEz7genUMpO2qZtEQLMTzqx8H+QJ7JaBKko3+0cnfZkTZCtXNC lE57e8RwaYqgYhZgsjnSuIlXgxhmAhlIZwBvViPUTEVBsE5et+nqM0dRurRJ6rvsPcTZOiXz ujZn16Q14oqc0UwdNfwRZEmfpGYQ2cLkLDGOqENy2hnBhWbQVoXJOQeNXshXzr5Yxc9xFRe7 FWL8Ber4gFIZv0K1rz+T7lDaXh6S8pFYWtbVYZmsWSEDIMRAV3vJJr2C2N3jAYavkir5E2fL vjGzvH1dZvEGDhL093BnNFBPm1viYcNVB1/rTYe5Xu/gzM7er3GKydHJaOQWjAx/GTJT2uGw ITwn+VM5QCSF3SAr8cAgdKP7VtuumWwhBsexFWjjuKe+gSFshytDqFtppBSAZDlEQU7/umJg vJvBg2PVjG9CtX38H0+4gOLyBWoluUOxAn8qaCUGgfbA3V+7BmShgHKbb4acbWksmWU+2Pen LHnGBTc5hws3NXKwgZj+icwORlEBUoWHJb6O/fKuyDfLFYZNb0R/m2sHudxCXa8e8rXYAl89 FQVsXOkr2aiSNL5NMVyfhI64UEzyrIqbmbpf8WoA3lQAGwy6uEbNW8nJdagxufoz1/3jAZv5 GnZt1RE+xdl99UDKDGOr8V5CkAbdShjwHnu7pRVE8b6IN6AjGzKDfoMz134xJ5JwE3+EySLL nyLKWXLHaYat3W0f47KEtbMean+y2STg76AyVuB7mB9wEhiysLL18i5JhxWFZmwbDbPrzDo8 PEg2jynewJKjfzhX0wQHh7Vp4H4HnmVxit5ZLyfrNH2HyA4IcX7XgLw7NbZyNACIypOR7+RV 98ZuzzAXagtqXTobflBHSGfRO1mxbJm+fWSCbaRkOEOPaVvua0E95A69qE4VAZeMZwFldbq+ lSkcVEaG2rG1ZbaagKmCM6z91VsvRr+OiBr6TT0hQ7waaFnn4EaaOVY1jA5+/3abyaceW9Y7 uDFnXiMERg3+oxLVYsta9+iumXPWdpv0qr5Lm8pYLBlFshn7tKXMLlNEjaL9Gj7yycXkb6dI YUO2f1/IqJLgKtSpm0dGpC+qeii2l1bqpWxeZwCiKOaDO1CizkG5aOBVNcvYptriCSOsOJW8 paVlXEha4MFG7NQM28MWim+wRnmxNQebkdUD75lIXlwPv8v1dEs95hD1GjWtqGHuEGE9tKHz Nwy+BVCc8oydQjM6I2sAHt5UNOdBBtQr3XNy8eJ6+IFNy2H+6ObVlhbnME/U88rYDt0FXj+v jN1TM3gvKsMa+6xm2F5UC7vntOGkteDa9u0gcN0s+WG9XtNWQpXKtmjbwSasWkg3gYZ0fc3L TIMjK9yp02zWqYdSHGu0PWpT1BopXdh0jewhC4/KGsKzpedtVqFEUQVl50a5OSMiIFH5f26s bzl19HCKc8EePfhh6rSHnO/csTceVBldsiVv6e2btBJctbbv2f/fZoH6ErrtK4F5zXHSMvjw TwrmKURw1Ohv/+xgCluvQda+7fOEOXCctAxu+pZhBu4kFXuo/qOHGbMVVBVT/ccRM2YnaQDd 8SuKeVPjMOsaDbSTw4P/AlBLAwQUAAAACACZWU4lh4bStvYIAABeIQAAEQAAAGFrU2FtcGxl MkZvcm0ucGFzvRprc+JG8vtW7X/oq1wd4BCCnUvuso6T46HdI4uBAF7bbG1RQhqwDqEhGmHW ce1/v+6ZkTSShXGqIGxVLM309Gv6rTzay5G9Wvvs7C0PV7WBLb68fgWPjWsYtd+XBOhNGIR8 EdqrKmxDL4pYAF4Abeav77yaPDBktMEguvMErBUw2POIhfDAN3Bn3zNY+7bDXLBh5bmeWC+B z/7HnAj4NsDl2QNBIi4QfMW2dyxkRKTJIvscnDs7WBB2Bg7noSvAjuTb3IsRC4R2PceOEBee w03CFbMScQnucwTweABlBGkx3xfAQwIfISM8FBXgc2IjjHkk6ejfJvAiyOjqnJa9ACWcI3UJ I5ggmtfICN+KKlwyIewFw6fRg7iKPB+fWr4tBC29C23UnkNLPIhCTpuEF/+0PdvnC1ElZEi0 cd0YdBBH5LaikMCsz5F8kixED2sp6XgerhIG4QIcIlQeE8qKRAQDO2D+6RsYy4dzY/Est3jJ VpwA6a9eam6iiAe0qJ70suV6ES3SX2PpLLukjpzlD+PloEFs8KI19pbvOcvyiAUuCxG4L+2j 8gSaZGqFDK/6ZbBtJlDBD8XA69C7R0zq3CMaunwFl6ECQ2ksAr5IwM0M2Uvg5FsBmEm8Jc32 Ek1JkkLy58qcDBA0wiZbeKST7KpiMrM8ZL9tWPhQDh14Ax20vQULKxLlvR0SBdMG3mRNQnLQ 6ow7E6s37V1dNq1hikRujqzfrqxey8Jl5Q4j9rtQOwOr8d4aTm/yJ/T67Y71yS54jC/FO4WM taxu9wltuZgn0LoaDq3eeHrZaXcyW69fOXhDEdDGCHfsMLQf4GO9VjutfyKnH0WhFyzQb8ol 6TmnNYwApSqotzP1pu4X9OJ3GZB/Zt6+z7z9kHn7VxGyf2dAfsy8ndbj11LFkOVt54OFkvau xtaIGP8eTuCHOv7ntF6vE6ACi1Xbb/5qtcYIWIpjW7j9XErArvvDbpt2ZxhxS9pOPTKdFQsi aeG08vj3IZzU2m8vv2TtOGNrtX3+rM0VTENWrksLA/Qbep2RX2g1eXMoy2BTG7PPEfFZqlDs lotn5iLG+QDMo6ADWq3rBUzUGq5bLlkUuKHlRd4fCN3brGb4+g/p/Z6P3GBcFGKLmaYUhxT6 sc9JSNPOLB9Jiguwt1MPs0S5cT1tXnW67eQgsY4gP/0M9RdydxXYM59R0iKMmA2QS5BJAKOe wPRVgq/T46i/iKP9IpHKM9wC84UOc08pdhI6hsSJXOweTWAqmBTO+kAeJt2vab3r9KrwnySI HUhmEdm+n4ZGLB8C12fh8cR/QgrsNdr2Pcve/wtUorxM6ySblA6mFIX2r9FKltZetSyRx5nt LGPNtBrdbrPRej/F1DK8RbXoFHZQnWicx1dIjlCBNqQeAi8upFLFOKpecapQrxLAQRSgkCo9 BA47ZnhQFDRFQ+B8RXFBmTTiSNQI1ylZI1RK7wEykm4fw8i0f92zhtUcwoOoqcvJs/vYZhzR NpDIAlsPamaooyiIokKWGDmpB8POh07XemdNB43RCJNwu6ryn5HYKgfUQpzXjq6ImNCf0EVj MOh2Wo1xp9+LlVDSFUXpkDporNe+pxrBo6sBaf0JDfQal1Yieie494SHnLd/Paj4PXt1xFCh 5Q6QSLHgPlfdzmGkOboghTIwKh/L6p5k4VzBuH6QK5KYAR3HP6KLXhN6RcqM5Y8qu2FOW7Mw eqAZy7tJ7ctuBfEl9UxzLMPFmtlLFtZqtRQd6ul32a7WZdKL28vKOZRPxndMN5nxQGe1wSbE 4WHIxJoj/xGPZcsMbrBVo/d4hETDJZ2TgKtpUe1Ezztge4e1PJSRj62NhbnZL1WwWcDLcXnm ah4bNNiaU9FNJPk6EV79yidNpLUEvoliRggKaFj1S0JW/cgIcl2tYRC5yQDE/UQ8ItjVWGXO 7e6iRBVsR+rrje5sz7PtVJqBKfioonXa77Y1q9VcQ27eafG5m/TIzX7oSQo9eR765XhvU8jb 5yFfTv22cW1gbVzvkezZCiYT841Tl/221a3m2vTklKCIUxq13+tRrJm84KszOdCAkfK+0j5S bWvUGnYGZoIVaRCJLQbp6cJS8A16IoYfNTf5aI5XPiXRLnDK5kYmDBacM9r01GGygxv0zX2i NFqmFIr1VJQkUKsR81TNj3fG55SP54ptNYPWkc4MztmYnCCjCJyP/IU09PVpCq4RQvUvPx2L K2hDHzljy0aT168e/6taFpEb25jjx8dbrEXsgKNGkBfcAE8g/xTio9AOxIom/24NrtauHalh fDonVBM1ipdxVFJ75L/yITuqM9USj/dMqdRaIk487HsCkvqvJhdXV/JtOg/5akqilHMIE56e gZ5kLDnG/xN8c6omT/HKz5BZmCiQ9AbNLQkrM4DM1wWZEEIygif5MEWnP2VMeMCeyYZJNsqk j8IWH7PmYmNUOeWTtjef33w7ofs/hW/UB5FMtj4H23UhBlMcxRw6G+Q5iOIL+XaSJuS4BPgY q+NrOK0mN4cvnwquOF83aFwuEse0GzixrmbYndq+s/FlMUBFyVO+JStPc2xm3J5xA/2JqtgR OgK8SFPJRO9fDDdoULm9Kw3rzQu9W06iXT4/ZOt/7TEXZEzo13phYiwoxBf5rJLcMOpRKLmP WH8V1r7Gt4SCMHZjhj7j80IB6G0R6KQQdFKIlT5CFOE10rwB/vLYC/ucLo73UqnM/Vtp59GX l4m7Pg09dvQHTZ23yJRF5OG9o4Wjl2CCr2LiYc6SLIuuVjUBCOZwYiJi57SD0PTFQm3aC5s6 r60X3ckjG5kRXBAMC34aEwVyoC4oHeSH+Dl9XuzqkRRNaHLuMzsgz5jhI2ldjhKnrf7loGuN rUo+hcPuzuOvajzUTaUNWPLbE4z5xneDTLdn/L767kcMkSW8NA+5jK9TBajUgvKJf1cj8fw3 VPMujK8uVBomRabx4SWzborVwrsL4423aHWyWovvA2/G+4P158lC3EXv64L2fNTNNTqugizi T6pdY6L/B4FHmfYV++PVzmONQQfGCOAFyUQ0VTs+1V6/+j9QSwECFAAUAAAACAC5XU0lB7Op qiMMAADqQAAACwAAAAAAAAABACAAtoEAAAAAYWtBV0FQSS5wYXNQSwECFAAUAAAACACZWU4l h4bStvYIAABeIQAAEQAAAAAAAAABACAAtoFMDAAAYWtTYW1wbGUyRm9ybS5wYXNQSwUGAAAA AAIAAgB4AAAAcRUAAAAA --------------0D9679D4CC14AE3B8F065983-- drchandraOct 14, 1998, 7:53pm
It would be nice of some kind soul were to translate this into C. I'll do
it, eventually, if someone doesn't beat me to it. DrChandra/PK-37 -- Andrew C. Esh mailto:andrew_esh at cnt.com http://www.mtn.org/~andrewes - ACE Home Page [View Quote] dthknightOct 14, 1998, 8:15pm
this is Sample 2 from the SDK docs (http://www.activeworlds.com/sdk)
translated into Delphi though - I think :) So Sample 2 should already be in C code in the docs :) [View Quote] drchandraOct 15, 1998, 8:05pm
Somebody musta stole the caffeine out of my Mountain Dew.
-- Andrew C. Esh mailto:andrew_esh at cnt.com Computer Network Technology andrewes at mtn.org (finger for PGP key) 6500 Wedgwood Road 612.550.8000 (main) Maple Grove MN 55311 612.550.8229 (direct) http://www.cnt.com - CNT Inc. Home Page http://www.mtn.org/~andrewes - ACE Home Page [View Quote] canopusNov 24, 1998, 8:25pm
Here are more explicit instructions on how to adapt Sample 2 to finding a midispk at a
location other than 1N 1W: In Sample Program 2, the Query is used to find a midispk object which has been placed at 1N 1W on Beta world (this shows up in the CellX, CellZ in the first line of handle_cell_object). These coords place it in SectorX=0, SectorZ=0 (this shows up in the lines making calls to aw_query near the end of main and in the middle of handle_query). SectorX=0, SectorZ=0 define the center Sector of a 9-Sector Zone, ranging from X= -1 to +1 and Z= -1 to +1 (this shows up in the sanity-check line in handle_cell_begin). You and the server communicate about the Zone with reference to an array of 9 Sector-status containers, which is passed back and forth during communications (Querying a Zone can take many communications). The array is indexed from 0 to 2 in two dimensions, so you have to convert your 9 SectorX and 9 SectorZ coords to the corresponding array indexes: subtract your center SectorX and SectorZ from 1, and then add the difference to the current SectorX and SectorZ array indexes (this shows up in the last line of handle_cell_begin: 1,1 minus 0,0 = 1,1, so you add 1 to SectorX and 1 to SectorZ when indexing the array). When I tested out the Delphi version of Sample Program 2, I placed a midispk at Beta 1S 78W. So the line in my CellObject handler tests Cell_X = 78 and Cell_Z = -1. That's in a Zone whose center Sector is at SectorX=10, SectorZ=0. So I did aw_query(10, 0, SEQUENCE) at the end of the main procedure and in the ReQuery handler. And the sanity-check in the CellBegin handler tests whether SectorX<9, SectorX>11, SectorZ<-1, SectorZ>1. The line at the end of CellBegin updating the SEQUENCE array adds the appropriate differences to the array indexes: SEQUENCE[SectorZ + 1, SectorX - 9] finds the Sector-status container in the array which is ready to be updated. [View Quote] > The attached Zip file corrects an error in the first version: there are 5 lines in > the Sample 2 program which must be replaced, not just 3 lines, for Sample 2 to work, > if your midispk on Beta is not at GZ (whether you write in C or Object Pascal). > [View Quote] |