/ BCI NET 2 / BCI NET 2.iso / archives / programming / utilities / mapeditor.lha / mapeditor / example_map / Example.bb2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 00 00 3b |********|*****..;|
|00000040| 43 72 65 61 74 65 20 61 | 20 72 61 77 20 6d 61 70 |Create a| raw map|
|00000050| 20 69 6e 73 69 64 65 20 | 74 68 65 20 65 64 69 74 | inside |the edit|
|00000060| 6f 72 20 74 68 65 6e 20 | 75 73 65 20 74 68 65 20 |or then |use the |
|00000070| 67 65 6e 65 72 61 74 65 | 00 3b 73 6f 75 72 63 65 |generate|.;source|
|00000080| 20 6f 70 74 69 6f 6e 20 | 28 69 6e 63 6c 75 64 65 | option |(include|
|00000090| 20 66 69 6c 65 6e 61 6d | 65 73 20 69 6e 20 74 68 | filenam|es in th|
|000000a0| 65 20 67 65 6e 65 72 61 | 74 69 6f 6e 29 20 74 6f |e genera|tion) to|
|000000b0| 00 3b 63 72 65 61 74 65 | 20 73 6f 6d 65 20 62 6c |.;create| some bl|
|000000c0| 69 74 7a 20 73 6f 75 72 | 63 65 2e 20 20 49 6e 73 |itz sour|ce.  Ins|
|000000d0| 65 72 74 20 74 68 65 20 | 62 6c 69 74 7a 20 73 6f |ert the |blitz so|
|000000e0| 75 63 65 20 48 45 52 45 | 20 61 6e 64 00 3b 74 68 |uce HERE| and.;th|
|000000f0| 65 6e 20 72 75 6e 20 74 | 68 69 73 20 70 72 6f 67 |en run t|his prog|
|00000100| 72 61 6d 2e 00 00 3b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ram...;*|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000140| 2a 2a 2a 00 3b 4d 61 70 | 20 45 64 69 74 6f 72 20 |***.;Map| Editor |
|00000150| 76 32 2e 30 20 53 6f 75 | 72 63 65 20 43 6f 64 65 |v2.0 Sou|rce Code|
|00000160| 20 47 65 6e 65 72 61 74 | 6f 72 20 28 76 2e 30 39 | Generat|or (v.09|
|00000170| 30 29 00 3b 42 79 20 4c | 65 61 64 69 6e 67 20 45 |0).;By L|eading E|
|00000180| 64 67 65 20 53 6f 66 74 | 77 61 72 65 00 00 23 6d |dge Soft|ware..#m|
|00000190| 61 70 77 69 64 74 68 3d | 34 30 00 23 6d 61 70 68 |apwidth=|40.#maph|
|000001a0| 65 69 67 68 74 3d 31 32 | 00 23 62 6c 6f 63 6b 77 |eight=12|.#blockw|
|000001b0| 69 64 74 68 3d 31 36 00 | 23 62 6c 6f 63 6b 68 65 |idth=16.|#blockhe|
|000001c0| 69 67 68 74 3d 31 36 00 | 23 73 68 61 70 65 6f 66 |ight=16.|#shapeof|
|000001d0| 66 73 65 74 3d 30 00 23 | 6d 61 78 64 65 70 74 68 |fset=0.#|maxdepth|
|000001e0| 3d 34 00 23 6d 61 70 6e | 75 6c 6c 3d 31 00 23 64 |=4.#mapn|ull=1.#d|
|000001f0| 61 74 61 73 69 7a 65 3d | 31 00 00 3b 44 72 61 77 |atasize=|1..;Draw|
|00000200| 73 20 74 68 65 20 6d 61 | 70 20 6f 6e 74 6f 20 74 |s the ma|p onto t|
|00000210| 68 65 20 67 69 76 65 6e | 20 62 69 74 6d 61 70 00 |he given| bitmap.|
|00000220| 3b 61 64 64 72 65 73 73 | 3d 61 64 64 72 65 73 73 |;address|=address|
|00000230| 20 6f 66 20 6d 61 70 20 | 66 69 6c 65 00 3b 78 70 | of map |file.;xp|
|00000240| 6f 73 20 61 6e 64 20 79 | 70 6f 73 20 6f 66 20 63 |os and y|pos of c|
|00000250| 6f 6f 72 64 69 6e 61 74 | 65 73 20 74 6f 20 64 72 |oordinat|es to dr|
|00000260| 61 77 20 66 72 6f 6d 00 | 3b 62 69 74 6d 61 70 20 |aw from.|;bitmap |
|00000270| 69 73 20 74 68 65 20 62 | 69 74 6d 61 70 20 74 6f |is the b|itmap to|
|00000280| 20 72 65 6e 64 65 72 20 | 74 6f 00 80 08 20 44 72 | render |to... Dr|
|00000290| 61 77 4d 79 4d 61 70 7b | 61 64 64 72 65 73 73 2e |awMyMap{|address.|
|000002a0| 6c 2c 78 70 6f 73 2e 77 | 2c 79 70 6f 73 2e 77 2c |l,xpos.w|,ypos.w,|
|000002b0| 62 69 74 6d 2e 62 7d 00 | 20 20 62 69 74 6d 61 64 |bitm.b}.|  bitmad|
|000002c0| 64 72 2e 6c 3d 80 b8 20 | d0 01 28 62 69 74 6d 29 |dr.l=.. |..(bitm)|
|000002d0| 00 20 20 62 69 74 6d 5f | 62 77 69 64 74 68 3d 28 |.  bitm_|bwidth=(|
|000002e0| da 02 2e 77 28 62 69 74 | 6d 61 64 64 72 29 80 44 |...w(bit|maddr).D|
|000002f0| 20 33 29 2f 23 62 6c 6f | 63 6b 77 69 64 74 68 00 | 3)/#blo|ckwidth.|
|00000300| 20 20 62 69 74 6d 5f 62 | 68 65 69 67 68 74 3d da |  bitm_b|height=.|
|00000310| 02 2e 77 28 62 69 74 6d | 61 64 64 72 2b 32 29 2f |..w(bitm|addr+2)/|
|00000320| 23 62 6c 6f 63 6b 68 65 | 69 67 68 74 00 20 20 80 |#blockhe|ight.  .|
|00000330| 0b 20 62 69 74 6d 5f 62 | 77 69 64 74 68 3e 23 6d |. bitm_b|width>#m|
|00000340| 61 70 77 69 64 74 68 20 | 80 21 20 62 69 74 6d 5f |apwidth |.! bitm_|
|00000350| 62 77 69 64 74 68 3d 23 | 6d 61 70 77 69 64 74 68 |bwidth=#|mapwidth|
|00000360| 00 20 20 80 0b 20 62 69 | 74 6d 5f 62 68 65 69 67 |.  .. bi|tm_bheig|
|00000370| 68 74 3e 23 6d 61 70 68 | 65 69 67 68 74 20 80 21 |ht>#maph|eight .!|
|00000380| 20 62 69 74 6d 5f 62 68 | 65 69 67 68 74 3d 23 6d | bitm_bh|eight=#m|
|00000390| 61 70 68 65 69 67 68 74 | 00 00 20 20 80 0b 20 78 |apheight|..  .. x|
|000003a0| 70 6f 73 2b 62 69 74 6d | 5f 62 77 69 64 74 68 3e |pos+bitm|_bwidth>|
|000003b0| 3d 23 6d 61 70 77 69 64 | 74 68 20 80 21 20 78 70 |=#mapwid|th .! xp|
|000003c0| 6f 73 3d 23 6d 61 70 77 | 69 64 74 68 2d 62 69 74 |os=#mapw|idth-bit|
|000003d0| 6d 5f 62 77 69 64 74 68 | 00 20 20 80 0b 20 79 70 |m_bwidth|.  .. yp|
|000003e0| 6f 73 2b 62 69 74 6d 5f | 62 68 65 69 67 68 74 3e |os+bitm_|bheight>|
|000003f0| 3d 23 6d 61 70 68 65 69 | 67 68 74 20 80 21 20 79 |=#maphei|ght .! y|
|00000400| 70 6f 73 3d 23 6d 61 70 | 68 65 69 67 68 74 2d 62 |pos=#map|height-b|
|00000410| 69 74 6d 5f 62 68 65 69 | 67 68 74 00 20 20 80 0b |itm_bhei|ght.  ..|
|00000420| 20 78 70 6f 73 3c 30 20 | 80 21 20 78 70 6f 73 3d | xpos<0 |.! xpos=|
|00000430| 30 00 20 20 80 0b 20 79 | 70 6f 73 3c 30 20 80 21 |0.  .. y|pos<0 .!|
|00000440| 20 79 70 6f 73 3d 30 00 | 00 20 20 61 64 64 72 65 | ypos=0.|.  addre|
|00000450| 73 73 2b 28 78 70 6f 73 | 2a 23 64 61 74 61 73 69 |ss+(xpos|*#datasi|
|00000460| 7a 65 29 2b 28 79 70 6f | 73 2a 23 6d 61 70 77 69 |ze)+(ypo|s*#mapwi|
|00000470| 64 74 68 2a 23 64 61 74 | 61 73 69 7a 65 29 00 20 |dth*#dat|asize). |
|00000480| 20 80 2c 20 d0 01 20 62 | 69 74 6d 00 20 20 78 2e | ., .. b|itm.  x.|
|00000490| 77 3d 30 20 3a 20 79 2e | 77 3d 30 20 20 20 20 20 |w=0 : y.|w=0     |
|000004a0| 20 20 20 20 20 20 3b 20 | 50 69 78 65 6c 20 70 6f |      ; |Pixel po|
|000004b0| 73 69 74 69 6f 6e 20 6f | 66 20 74 6f 70 2d 6c 65 |sition o|f top-le|
|000004c0| 66 74 20 63 6f 72 6e 65 | 72 20 6f 66 20 6d 61 70 |ft corne|r of map|
|000004d0| 00 20 20 80 16 20 79 6c | 6f 6f 70 2e 77 3d 30 20 |.  .. yl|oop.w=0 |
|000004e0| 80 18 20 62 69 74 6d 5f | 62 68 65 69 67 68 74 2d |.. bitm_|bheight-|
|000004f0| 31 00 20 20 20 20 61 64 | 2e 6c 3d 61 64 64 72 65 |1.    ad|.l=addre|
|00000500| 73 73 00 20 20 20 20 80 | 16 20 78 6c 6f 6f 70 2e |ss.    .|. xloop.|
|00000510| 77 3d 30 20 80 18 20 62 | 69 74 6d 5f 62 77 69 64 |w=0 .. b|itm_bwid|
|00000520| 74 68 2d 31 00 20 20 20 | 20 20 20 73 68 61 70 2e |th-1.   |   shap.|
|00000530| 77 3d 23 73 68 61 70 65 | 6f 66 66 73 65 74 2b da |w=#shape|offset+.|
|00000540| 02 2e 62 28 61 64 29 2d | 23 6d 61 70 6e 75 6c 6c |..b(ad)-|#mapnull|
|00000550| 00 20 20 20 20 20 20 61 | 64 2b 31 00 20 20 20 20 |.      a|d+1.    |
|00000560| 20 20 80 0b 20 73 68 61 | 70 3e 3d 30 20 80 21 20 |  .. sha|p>=0 .! |
|00000570| cb 01 20 73 68 61 70 2c | 78 2c 79 00 20 20 20 20 |.. shap,|x,y.    |
|00000580| 20 20 78 2b 23 62 6c 6f | 63 6b 77 69 64 74 68 00 |  x+#blo|ckwidth.|
|00000590| 20 20 20 20 80 17 20 78 | 6c 6f 6f 70 00 20 20 20 |    .. x|loop.   |
|000005a0| 20 78 3d 30 00 20 20 20 | 20 79 2b 23 62 6c 6f 63 | x=0.   | y+#bloc|
|000005b0| 6b 68 65 69 67 68 74 00 | 20 20 20 20 61 64 64 72 |kheight.|    addr|
|000005c0| 65 73 73 2b 28 23 6d 61 | 70 77 69 64 74 68 2a 23 |ess+(#ma|pwidth*#|
|000005d0| 64 61 74 61 73 69 7a 65 | 29 00 20 20 80 17 20 79 |datasize|).  .. y|
|000005e0| 6c 6f 6f 70 00 80 02 20 | 80 08 00 00 6d 61 70 66 |loop... |....mapf|
|000005f0| 69 6c 65 24 3d 22 4d 61 | 70 45 64 69 74 6f 72 3a |ile$="Ma|pEditor:|
|00000600| 45 78 61 6d 70 6c 65 5f | 4d 61 70 2f 64 65 6d 6f |Example_|Map/demo|
|00000610| 6d 61 70 2e 72 61 77 22 | 00 73 68 61 70 65 66 69 |map.raw"|.shapefi|
|00000620| 6c 65 24 3d 22 4d 61 70 | 45 64 69 74 6f 72 3a 45 |le$="Map|Editor:E|
|00000630| 78 61 6d 70 6c 65 5f 4d | 61 70 2f 62 6c 6f 63 6b |xample_M|ap/block|
|00000640| 73 2e 73 68 61 70 65 73 | 22 00 70 61 6c 65 74 74 |s.shapes|".palett|
|00000650| 65 66 69 6c 65 24 3d 22 | 4d 61 70 45 64 69 74 6f |efile$="|MapEdito|
|00000660| 72 3a 45 78 61 6d 70 6c | 65 5f 6d 61 70 2f 62 6c |r:Exampl|e_map/bl|
|00000670| 6f 63 6b 73 2e 70 61 6c | 65 74 74 65 22 00 00 3b |ocks.pal|ette"..;|
|00000680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 00 00 00 3b |********|****...;|
|000006c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 00 00 80 33 |********|****...3|
|00000700| 2e 77 00 00 cf 01 20 30 | 2c 30 2c 30 2c 33 32 30 |.w.... 0|,0,0,320|
|00000710| 2c 32 35 36 2c 23 6d 61 | 78 64 65 70 74 68 2c 30 |,256,#ma|xdepth,0|
|00000720| 2c 22 45 78 61 6d 70 6c | 65 20 6d 61 70 20 66 69 |,"Exampl|e map fi|
|00000730| 6c 65 22 2c 31 2c 32 00 | d0 03 20 30 2c 30 00 d0 |le",1,2.|.. 0,0..|
|00000740| 01 20 31 2c 33 32 30 2c | 32 35 36 2c 23 6d 61 78 |. 1,320,|256,#max|
|00000750| 64 65 70 74 68 00 00 3b | 43 61 6e 20 77 65 20 6f |depth..;|Can we o|
|00000760| 70 65 6e 20 6f 75 72 20 | 6d 61 70 20 66 69 6c 65 |pen our |map file|
|00000770| 3f 00 73 75 63 3d be 01 | 28 30 2c 6d 61 70 66 69 |?.suc=..|(0,mapfi|
|00000780| 6c 65 24 29 00 73 69 7a | 65 3d be 0a 28 30 29 00 |le$).siz|e=..(0).|
|00000790| 80 0b 20 73 75 63 3d 30 | 20 80 8a 20 73 69 7a 65 |.. suc=0| .. size|
|000007a0| 3d 30 20 80 21 20 80 02 | 00 00 3b 59 75 70 20 2d |=0 .! ..|..;Yup -|
|000007b0| 20 73 6f 20 67 65 74 20 | 73 6f 6d 65 20 6d 65 6d | so get |some mem|
|000007c0| 6f 72 79 20 74 6f 20 73 | 74 6f 72 65 20 69 74 20 |ory to s|tore it |
|000007d0| 69 6e 00 6d 61 70 61 64 | 2e 6c 3d a6 08 28 73 69 |in.mapad|.l=..(si|
|000007e0| 7a 65 2c 31 29 00 80 0b | 20 6d 61 70 61 64 3d 30 |ze,1)...| mapad=0|
|000007f0| 20 80 21 20 80 02 00 be | 14 20 30 2c 6d 61 70 61 | .! ....|. 0,mapa|
|00000800| 64 2c 73 69 7a 65 20 20 | 20 20 20 20 20 20 20 20 |d,size  |        |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 52 65 |        |    ; Re|
|00000820| 61 64 20 69 6e 20 6d 61 | 70 00 be 02 20 30 00 00 |ad in ma|p... 0..|
|00000830| 3b 4c 6f 61 64 20 74 68 | 6f 73 65 20 73 68 61 70 |;Load th|ose shap|
|00000840| 65 73 20 69 6e 00 80 0b | 20 be 15 28 73 68 61 70 |es in...| ..(shap|
|00000850| 65 66 69 6c 65 24 29 00 | 20 20 cd 0a 20 30 2c 73 |efile$).|  .. 0,s|
|00000860| 68 61 70 65 66 69 6c 65 | 24 00 80 22 00 20 20 80 |hapefile|$..".  .|
|00000870| 02 00 80 c0 00 00 3b 4c | 6f 61 64 20 74 68 65 20 |......;L|oad the |
|00000880| 70 61 6c 65 74 74 65 20 | 69 6e 20 69 66 20 77 65 |palette |in if we|
|00000890| 27 76 65 20 67 6f 74 20 | 6f 6e 65 00 80 0b 20 be |'ve got |one... .|
|000008a0| 15 28 70 61 6c 65 74 74 | 65 66 69 6c 65 24 29 20 |.(palett|efile$) |
|000008b0| 80 42 20 70 61 6c 65 74 | 74 65 66 69 6c 65 24 3c |.B palet|tefile$<|
|000008c0| 3e 22 22 00 20 20 ce 01 | 20 30 2c 70 61 6c 65 74 |>"".  ..| 0,palet|
|000008d0| 74 65 66 69 6c 65 24 00 | 20 20 80 2c 20 ce 09 20 |tefile$.|  ., .. |
|000008e0| 30 00 80 c0 00 00 3b 41 | 6e 64 20 66 69 6e 61 6c |0.....;A|nd final|
|000008f0| 6c 79 20 72 65 6e 64 65 | 72 20 74 68 65 20 6d 61 |ly rende|r the ma|
|00000900| 70 00 80 16 20 78 3d 30 | 20 80 18 20 31 39 00 20 |p... x=0| .. 19. |
|00000910| 20 80 2c 20 d0 01 20 31 | 00 20 20 b2 05 00 20 20 | ., .. 1|.  ...  |
|00000920| 44 72 61 77 4d 79 4d 61 | 70 7b 6d 61 70 61 64 2c |DrawMyMa|p{mapad,|
|00000930| 78 2c 30 2c 31 7d 00 20 | 20 80 2c 20 d0 01 20 30 |x,0,1}. | ., .. 0|
|00000940| 00 20 20 80 37 00 20 20 | b2 01 20 30 2c 30 2c 33 |.  .7.  |.. 0,0,3|
|00000950| 32 30 2c 32 35 36 2c 30 | 2c 30 2c 31 00 80 17 20 |20,256,0|,0,1... |
|00000960| 78 00 00 80 0a 00 80 02 | 00 00                   |x.......|..      |
+--------+-------------------------+-------------------------+--------+--------+