/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / BLZ_EXD.DMS / in.adf / bum6 / tank.bb2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 74 61 6e 6b | 20 67 61 6d 65 20 75 73 |;.; tank| game us|
|00000010| 69 6e 67 20 73 75 70 65 | 72 20 62 69 74 6d 61 70 |ing supe|r bitmap|
|00000020| 20 77 69 6e 64 6f 77 00 | 3b 00 00 80 32 20 70 61 | window.|;...2 pa|
|00000030| 24 3d 31 36 30 20 3b 66 | 69 78 20 6c 65 6e 67 74 |$=160 ;f|ix lengt|
|00000040| 68 20 6f 66 20 73 74 72 | 69 6e 67 73 20 66 6f 72 |h of str|ings for|
|00000050| 20 75 73 65 20 77 69 74 | 68 20 42 6c 69 74 7a 32 | use wit|h Blitz2|
|00000060| 00 80 32 20 66 69 24 3d | 36 34 20 20 3b 66 69 6c |..2 fi$=|64  ;fil|
|00000070| 65 72 65 71 75 65 73 74 | 65 72 00 00 80 01 20 2e |erequest|er.... .|
|00000080| 70 74 20 20 3b 2e 70 74 | 20 69 73 20 61 20 76 61 |pt  ;.pt| is a va|
|00000090| 72 69 61 62 6c 65 20 74 | 79 70 65 20 77 69 74 68 |riable t|ype with|
|000000a0| 20 62 6f 74 68 20 78 20 | 61 6e 64 20 79 20 69 6e | both x |and y in|
|000000b0| 66 6f 72 6d 61 74 69 6f | 6e 00 20 20 78 2e 77 3a |formatio|n.  x.w:|
|000000c0| 79 2e 77 00 80 02 20 80 | 01 00 00 80 04 20 6d 6f |y.w... .|..... mo|
|000000d0| 75 6e 74 2e 70 74 28 33 | 32 29 20 3b 6d 6f 75 6e |unt.pt(3|2) ;moun|
|000000e0| 74 61 69 6e 73 20 61 72 | 65 20 6d 61 64 65 20 75 |tains ar|e made u|
|000000f0| 70 20 6f 66 20 33 33 20 | 70 6f 69 6e 74 73 20 28 |p of 33 |points (|
|00000100| 30 2e 2e 33 32 29 00 00 | 80 16 20 69 3d 30 20 80 |0..32)..|.. i=0 .|
|00000110| 18 20 33 32 3a 6d 6f 75 | 6e 74 28 69 29 5c 78 3d |. 32:mou|nt(i)\x=|
|00000120| 69 2a 33 32 2c 31 38 30 | 3a 80 17 00 00 77 69 64 |i*32,180|:....wid|
|00000130| 74 68 3d 31 30 32 34 3a | 68 65 69 67 68 74 3d 32 |th=1024:|height=2|
|00000140| 30 30 20 20 20 20 20 20 | 20 3b 73 69 7a 65 20 6f |00      | ;size o|
|00000150| 66 20 62 69 74 6d 61 70 | 00 00 d0 01 20 30 2c 77 |f bitmap|.... 0,w|
|00000160| 69 64 74 68 2c 68 65 69 | 67 68 74 2c 32 20 20 20 |idth,hei|ght,2   |
|00000170| 20 20 3b 63 72 65 61 74 | 65 20 62 69 74 6d 61 70 |  ;creat|e bitmap|
|00000180| 20 66 6f 72 20 6f 75 72 | 20 77 69 6e 64 6f 77 00 | for our| window.|
|00000190| 00 cf 04 20 30 20 20 20 | 20 20 20 20 20 20 20 20 |... 0   |        |
|000001a0| 20 20 20 20 20 3b 6f 70 | 65 6e 20 6f 6e 20 77 6f |     ;op|en on wo|
|000001b0| 72 6b 62 65 6e 63 68 00 | 00 80 06 20 63 72 65 61 |rkbench.|... crea|
|000001c0| 74 65 6d 65 6e 75 73 00 | 80 06 20 63 72 65 61 74 |temenus.|.. creat|
|000001d0| 65 77 69 6e 64 6f 77 00 | 80 06 20 72 65 66 72 65 |ewindow.|.. refre|
|000001e0| 73 68 73 75 70 65 72 00 | 80 06 20 6d 61 6b 65 73 |shsuper.|.. makes|
|000001f0| 68 61 70 65 73 00 80 06 | 20 64 72 61 77 6d 6f 75 |hapes...| drawmou|
|00000200| 6e 74 61 69 6e 73 00 00 | 80 bb 00 20 20 65 76 2e |ntains..|...  ev.|
|00000210| 6c 3d c5 02 00 20 20 80 | 0b 20 65 76 3d 32 20 80 |l=...  .|. ev=2 .|
|00000220| 21 20 80 06 20 64 6f 73 | 69 7a 65 00 20 20 80 0b |! .. dos|ize.  ..|
|00000230| 20 65 76 3d 38 20 80 21 | 20 80 06 20 65 64 69 74 | ev=8 .!| .. edit|
|00000240| 6d 6f 75 6e 74 00 20 20 | 80 0b 20 65 76 3d 24 32 |mount.  |.. ev=$2|
|00000250| 30 20 80 21 20 80 06 20 | 64 6f 6d 6f 76 65 00 20 |0 .! .. |domove. |
|00000260| 20 80 0b 20 65 76 3d 24 | 31 30 30 20 80 21 20 80 | .. ev=$|100 .! .|
|00000270| 06 20 64 6f 6d 65 6e 75 | 00 80 bc 20 65 76 3d 24 |. domenu|... ev=$|
|00000280| 32 30 30 00 80 02 00 00 | 64 6f 6d 65 6e 75 3a 00 |200.....|domenu:.|
|00000290| 20 20 80 0b 20 c5 07 3d | 30 00 20 20 20 20 80 0e |  .. ..=|0.    ..|
|000002a0| 20 c5 08 00 20 20 20 20 | 80 0f 20 30 00 20 20 20 | ...    |.. 0.   |
|000002b0| 20 20 20 61 24 3d cc 01 | 28 22 4c 4f 41 44 20 4d |   a$=..|("LOAD M|
|000002c0| 41 50 22 2c 70 61 24 2c | 66 69 24 29 00 20 20 20 |AP",pa$,|fi$).   |
|000002d0| 20 20 20 80 0b 20 be 11 | 28 30 2c 61 24 29 20 80 |   .. ..|(0,a$) .|
|000002e0| 21 20 be 14 20 30 2c 26 | 6d 6f 75 6e 74 28 30 29 |! .. 0,&|mount(0)|
|000002f0| 2c 36 36 3a be 02 20 30 | 20 20 20 20 20 20 20 20 |,66:.. 0|        |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000310| 20 20 20 20 20 3b 69 66 | 20 66 69 6c 65 20 74 68 |     ;if| file th|
|00000320| 65 72 65 00 20 20 20 20 | 20 20 80 06 20 64 72 61 |ere.    |  .. dra|
|00000330| 77 6d 6f 75 6e 74 61 69 | 6e 73 00 20 20 20 20 80 |wmountai|ns.    .|
|00000340| 0f 20 31 00 20 20 20 20 | 20 20 61 24 3d cc 01 28 |. 1.    |  a$=..(|
|00000350| 22 53 41 56 45 20 44 55 | 4e 47 45 4f 4e 22 2c 70 |"SAVE DU|NGEON",p|
|00000360| 61 24 2c 66 69 24 29 00 | 20 20 20 20 20 20 80 0b |a$,fi$).|      ..|
|00000370| 20 be 12 28 30 2c 61 24 | 29 20 80 21 20 be 13 20 | ..(0,a$|) .! .. |
|00000380| 30 2c 26 6d 6f 75 6e 74 | 28 30 29 2c 36 36 3a be |0,&mount|(0),66:.|
|00000390| 02 20 30 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. 0     |        |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003b0| 3b 69 66 20 66 69 6c 65 | 20 74 68 65 72 65 00 20 |;if file| there. |
|000003c0| 20 20 20 80 0f 20 32 00 | 20 20 20 20 20 20 80 02 |   .. 2.|      ..|
|000003d0| 00 20 20 20 20 80 02 20 | 80 0e 00 20 20 80 c0 00 |.    .. |...  ...|
|000003e0| 20 20 80 07 00 00 65 64 | 69 74 6d 6f 75 6e 74 3a |  ....ed|itmount:|
|000003f0| 00 20 20 80 16 20 69 3d | 30 20 80 18 20 33 32 00 |.  .. i=|0 .. 32.|
|00000400| 20 20 20 20 78 3d c5 1a | 2b 70 6f 73 78 20 3b 65 |    x=..|+posx ;e|
|00000410| 76 65 6e 74 20 70 6f 73 | 20 2b 20 62 69 74 6d 61 |vent pos| + bitma|
|00000420| 70 20 6f 66 66 73 65 74 | 00 20 20 20 20 79 3d c5 |p offset|.    y=.|
|00000430| 1b 2b 70 6f 73 79 00 20 | 20 20 20 80 0b 20 b4 09 |.+posy. |   .. ..|
|00000440| 28 78 2c 79 2c 31 2c 31 | 2c 6d 6f 75 6e 74 28 69 |(x,y,1,1|,mount(i|
|00000450| 29 5c 78 2d 34 2c 6d 6f | 75 6e 74 28 69 29 5c 79 |)\x-4,mo|unt(i)\y|
|00000460| 2d 34 2c 39 2c 39 29 00 | 20 20 20 20 20 20 80 be |-4,9,9).|      ..|
|00000470| 20 80 16 3a 80 05 20 67 | 6f 74 70 74 00 20 20 20 | ..:.. g|otpt.   |
|00000480| 20 80 c0 00 20 20 20 20 | c5 0b 20 78 2c 79 2c 31 | ...    |.. x,y,1|
|00000490| 00 20 20 80 17 00 20 20 | 80 07 00 67 6f 74 70 74 |.  ...  |...gotpt|
|000004a0| 3a 00 20 20 80 bb 00 20 | 20 20 20 c5 0c 20 78 2d |:.  ... |   .. x-|
|000004b0| 34 2c 79 2d 34 2c 78 2b | 34 2c 79 2b 34 2c 30 00 |4,y-4,x+|4,y+4,0.|
|000004c0| 20 20 20 20 78 3d c5 1a | 2b 70 6f 73 78 20 20 20 |    x=..|+posx   |
|000004d0| 20 20 20 20 20 20 20 20 | 3b 65 76 65 6e 74 20 70 |        |;event p|
|000004e0| 6f 73 20 2b 20 62 69 74 | 6d 61 70 20 6f 66 66 73 |os + bit|map offs|
|000004f0| 65 74 00 20 20 20 20 79 | 3d c5 1b 2b 70 6f 73 79 |et.    y|=..+posy|
|00000500| 00 20 20 20 20 6d 6f 75 | 6e 74 28 69 29 5c 78 3d |.    mou|nt(i)\x=|
|00000510| 78 2c 79 00 20 20 20 20 | c5 3e 20 30 2c 78 2c 79 |x,y.    |.> 0,x,y|
|00000520| 00 20 20 80 bc 20 c5 02 | 3c 3e 24 31 30 00 20 20 |.  .. ..|<>$10.  |
|00000530| 80 06 20 64 72 61 77 6d | 6f 75 6e 74 61 69 6e 73 |.. drawm|ountains|
|00000540| 00 20 20 80 07 00 00 64 | 6f 6d 6f 76 65 3a 00 20 |.  ....d|omove:. |
|00000550| 20 80 bb 3a 80 06 20 72 | 65 66 72 65 73 68 73 75 | ..:.. r|efreshsu|
|00000560| 70 65 72 3a 80 bc 20 c5 | 02 3c 3e 24 31 30 3a 80 |per:.. .|.<>$10:.|
|00000570| 07 00 00 64 6f 73 69 7a | 65 3a 00 20 20 c6 05 20 |...dosiz|e:.  .. |
|00000580| 30 2c 31 2c 70 6f 73 78 | 2f 77 69 64 74 68 2c c5 |0,1,posx|/width,.|
|00000590| 2d 2f 77 69 64 74 68 00 | 20 20 c6 06 20 30 2c 32 |-/width.|  .. 0,2|
|000005a0| 2c 70 6f 73 79 2f 68 65 | 69 67 68 74 2c c5 2e 2f |,posy/he|ight,../|
|000005b0| 68 65 69 67 68 74 00 20 | 20 c6 0b 20 30 2c 31 3a |height. | .. 0,1:|
|000005c0| c6 0b 20 30 2c 32 3a 80 | 06 20 72 65 66 72 65 73 |.. 0,2:.|. refres|
|000005d0| 68 73 75 70 65 72 00 20 | 20 80 07 00 00 72 65 66 |hsuper. | ....ref|
|000005e0| 72 65 73 68 73 75 70 65 | 72 3a 00 20 20 77 77 3d |reshsupe|r:.  ww=|
|000005f0| 77 69 64 74 68 2d c5 2d | 3a 68 68 3d 68 65 69 67 |width-.-|:hh=heig|
|00000600| 68 74 2d c5 2e 00 20 20 | 70 6f 73 78 3d bc 0a 28 |ht-...  |posx=..(|
|00000610| c6 07 28 30 2c 31 29 2a | 28 77 77 2b 31 29 2c 30 |..(0,1)*|(ww+1),0|
|00000620| 2c 77 77 29 00 20 20 70 | 6f 73 79 3d bc 0a 28 c6 |,ww).  p|osy=..(.|
|00000630| 09 28 30 2c 32 29 2a 28 | 68 68 2b 31 29 2c 30 2c |.(0,2)*(|hh+1),0,|
|00000640| 68 68 29 00 20 20 c5 42 | 20 70 6f 73 78 2c 70 6f |hh).  .B| posx,po|
|00000650| 73 79 00 20 20 80 07 00 | 00 2e 64 72 61 77 6d 6f |sy.  ...|..drawmo|
|00000660| 75 6e 74 61 69 6e 73 3a | 00 20 20 80 2c 20 d0 01 |untains:|.  ., ..|
|00000670| 20 30 3a b2 05 20 20 20 | 20 20 20 20 3b 63 6c 65 | 0:..   |    ;cle|
|00000680| 61 72 20 62 69 74 6d 61 | 70 20 61 6e 64 20 64 72 |ar bitma|p and dr|
|00000690| 61 77 20 6d 6f 75 6e 74 | 61 69 6e 73 00 20 20 80 |aw mount|ains.  .|
|000006a0| 16 20 69 3d 30 20 80 18 | 20 33 31 00 20 20 20 20 |. i=0 ..| 31.    |
|000006b0| bb 85 20 6d 6f 75 6e 74 | 28 69 29 5c 78 2c 6d 6f |.. mount|(i)\x,mo|
|000006c0| 75 6e 74 28 69 29 5c 79 | 2c 6d 6f 75 6e 74 28 69 |unt(i)\y|,mount(i|
|000006d0| 2b 31 29 5c 78 2c 6d 6f | 75 6e 74 28 69 2b 31 29 |+1)\x,mo|unt(i+1)|
|000006e0| 5c 79 2c 31 00 20 20 80 | 17 00 20 20 bb 89 20 30 |\y,1.  .|..  .. 0|
|000006f0| 2c 31 39 39 2c 32 00 20 | 20 80 16 20 69 3d 30 20 |,199,2. | .. i=0 |
|00000700| 80 18 20 33 32 3a bb 8d | 20 30 2c 6d 6f 75 6e 74 |.. 32:..| 0,mount|
|00000710| 28 69 29 5c 78 2c 6d 6f | 75 6e 74 28 69 29 5c 79 |(i)\x,mo|unt(i)\y|
|00000720| 3a 80 17 00 20 20 c5 44 | 00 20 20 80 07 00 00 2e |:...  .D|.  .....|
|00000730| 63 72 65 61 74 65 6d 65 | 6e 75 73 00 20 20 c4 01 |createme|nus.  ..|
|00000740| 20 30 2c 30 2c 22 50 52 | 4f 4a 45 43 54 22 00 20 | 0,0,"PR|OJECT". |
|00000750| 20 c4 03 20 30 2c 30 2c | 30 2c 30 2c 22 4c 4f 41 | .. 0,0,|0,0,"LOA|
|00000760| 44 20 20 20 20 20 20 20 | 20 22 2c 22 4c 22 00 20 |D       | ","L". |
|00000770| 20 c4 03 20 30 2c 30 2c | 30 2c 31 2c 22 53 41 56 | .. 0,0,|0,1,"SAV|
|00000780| 45 20 20 20 20 20 20 20 | 20 22 2c 22 53 22 00 20 |E       | ","S". |
|00000790| 20 c4 03 20 30 2c 30 2c | 30 2c 32 2c 22 51 55 49 | .. 0,0,|0,2,"QUI|
|000007a0| 54 20 20 20 20 20 20 20 | 20 22 2c 22 51 22 00 20 |T       | ","Q". |
|000007b0| 20 80 07 00 00 2e 63 72 | 65 61 74 65 77 69 6e 64 | .....cr|eatewind|
|000007c0| 6f 77 00 20 20 c6 03 20 | 30 2c 33 2c 2d 38 2c 20 |ow.  .. |0,3,-8, |
|000007d0| 20 24 31 38 30 30 30 2b | 34 2b 38 2b 36 34 2c 31 | $18000+|4+8+64,1|
|000007e0| 2c 2d 32 30 2c 38 00 20 | 20 c6 03 20 30 2c 2d 31 |,-20,8. | .. 0,-1|
|000007f0| 34 2c 31 30 2c 24 31 31 | 30 30 30 2b 32 2b 31 36 |4,10,$11|000+2+16|
|00000800| 2b 31 32 38 2c 32 2c 31 | 32 2c 2d 32 30 20 3b 67 |+128,2,1|2,-20 ;g|
|00000810| 61 64 67 65 74 73 20 66 | 6f 72 20 73 6c 69 64 65 |adgets f|or slide|
|00000820| 72 73 00 20 20 c5 35 20 | 24 31 30 20 3b 72 65 70 |rs.  .5 |$10 ;rep|
|00000830| 6f 72 74 20 6d 6f 75 73 | 65 20 6d 6f 76 65 73 20 |ort mous|e moves |
|00000840| 66 6f 72 20 64 6f 6d 6f | 76 65 20 72 6f 75 74 69 |for domo|ve routi|
|00000850| 6e 65 00 20 20 c5 32 20 | 33 32 2c 33 32 2c 77 69 |ne.  .2 |32,32,wi|
|00000860| 64 74 68 2b 32 32 2c 68 | 65 69 67 68 74 2b 32 30 |dth+22,h|eight+20|
|00000870| 00 20 20 c5 01 20 30 2c | 30 2c 30 2c 33 32 30 2c |.  .. 0,|0,0,320,|
|00000880| 32 30 30 2c 24 31 34 38 | 39 2c 22 4d 4f 55 4e 54 |200,$148|9,"MOUNT|
|00000890| 41 49 4e 20 45 44 49 54 | 4f 52 22 2c 31 2c 32 2c |AIN EDIT|OR",1,2,|
|000008a0| 30 2c 30 00 20 20 c4 02 | 20 30 00 20 20 80 07 00 |0,0.  ..| 0.  ...|
|000008b0| 00 2e 6d 61 6b 65 73 68 | 61 70 65 73 00 20 20 b2 |..makesh|apes.  .|
|000008c0| 05 3a bb 85 20 30 2c 30 | 2c 38 2c 38 2c 31 3a bb |.:.. 0,0|,8,8,1:.|
|000008d0| 85 20 38 2c 30 2c 30 2c | 38 2c 31 20 20 20 20 3b |. 8,0,0,|8,1    ;|
|000008e0| 64 72 61 77 20 63 72 6f | 73 73 00 20 20 bb 81 20 |draw cro|ss.  .. |
|000008f0| 34 2c 34 2c 34 2c 31 00 | 20 20 cd 08 20 30 2c 30 |4,4,4,1.|  .. 0,0|
|00000900| 2c 30 2c 39 2c 39 3a cd | 0d 20 30 00 20 20 80 07 |,0,9,9:.|. 0.  ..|
|00000910| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+