/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / simonsdemos / edit.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 44 75 6e 67 | 65 6f 6e 20 45 64 69 74 |;.; Dung|eon Edit|
|00000010| 6f 72 20 62 79 20 53 69 | 6d 6f 6e 20 41 72 6d 73 |or by Si|mon Arms|
|00000020| 74 72 6f 6e 67 00 3b 00 | 00 77 69 64 74 68 3d 31 |trong.;.|.width=1|
|00000030| 32 38 20 20 3b 6d 61 70 | 2f 64 75 6e 67 65 6f 6e |28  ;map|/dungeon|
|00000040| 20 63 6f 6e 73 74 61 6e | 74 73 20 73 61 6d 65 20 | constan|ts same |
|00000050| 61 73 20 64 75 6e 67 65 | 6f 6e 2e 62 62 00 68 65 |as dunge|on.bb.he|
|00000060| 69 67 68 74 3d 36 34 00 | 73 69 7a 65 3d 77 69 64 |ight=64.|size=wid|
|00000070| 74 68 2a 68 65 69 67 68 | 74 00 00 80 32 20 70 61 |th*heigh|t...2 pa|
|00000080| 24 3d 31 36 30 20 3b 66 | 69 78 20 6c 65 6e 67 74 |$=160 ;f|ix lengt|
|00000090| 68 20 6f 66 20 73 74 72 | 69 6e 67 73 20 66 6f 72 |h of str|ings for|
|000000a0| 20 75 73 65 20 77 69 74 | 68 20 42 6c 69 74 7a 32 | use wit|h Blitz2|
|000000b0| 00 80 32 20 66 69 24 3d | 36 34 20 20 3b 66 69 6c |..2 fi$=|64  ;fil|
|000000c0| 65 72 65 71 75 65 73 74 | 65 72 00 00 80 06 20 69 |erequest|er.... i|
|000000d0| 6e 69 74 6d 61 70 20 20 | 20 20 20 3b 64 69 6d 65 |nitmap  |   ;dime|
|000000e0| 6e 73 69 6f 6e 20 61 72 | 72 61 79 20 61 6e 64 20 |nsion ar|ray and |
|000000f0| 64 72 61 77 20 62 6f 72 | 64 65 72 00 80 06 20 69 |draw bor|der... i|
|00000100| 6e 69 74 63 68 61 72 73 | 20 20 20 3b 73 74 72 69 |nitchars|   ;stri|
|00000110| 6e 67 20 61 72 72 61 79 | 20 66 6f 72 20 6f 75 72 |ng array| for our|
|00000120| 20 6f 62 6a 65 63 74 73 | 00 80 06 20 69 6e 69 74 | objects|... init|
|00000130| 75 69 20 20 20 20 20 20 | 3b 6f 70 65 6e 20 75 73 |ui      |;open us|
|00000140| 65 72 20 69 6e 74 65 72 | 66 61 63 65 00 80 06 20 |er inter|face... |
|00000150| 73 69 7a 65 77 69 6e 64 | 6f 77 20 20 3b 72 65 66 |sizewind|ow  ;ref|
|00000160| 72 65 73 68 20 6d 61 70 | 20 77 69 6e 64 6f 77 00 |resh map| window.|
|00000170| 00 80 bb 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |...     |       ;|
|00000180| 6d 61 69 6e 20 6c 6f 6f | 70 20 62 61 73 65 64 20 |main loo|p based |
|00000190| 6f 6e 20 49 6e 74 75 69 | 74 69 6f 6e 20 65 76 65 |on Intui|tion eve|
|000001a0| 6e 74 73 00 20 20 65 76 | 2e 6c 3d c5 02 00 20 20 |nts.  ev|.l=...  |
|000001b0| 80 0e 20 65 76 00 20 20 | 20 20 80 0f 20 32 00 20 |.. ev.  |  .. 2. |
|000001c0| 20 20 20 20 20 80 06 20 | 73 69 7a 65 77 69 6e 64 |     .. |sizewind|
|000001d0| 6f 77 00 20 20 20 20 80 | 0f 20 38 00 20 20 20 20 |ow.    .|. 8.    |
|000001e0| 20 20 80 0b 20 c5 05 3d | 30 20 80 42 20 c5 22 3d |  .. ..=|0 .B ."=|
|000001f0| 31 20 80 21 20 80 06 20 | 64 72 61 77 00 20 20 20 |1 .! .. |draw.   |
|00000200| 20 80 0f 20 24 34 30 00 | 20 20 20 20 20 20 80 0b | .. $40.|      ..|
|00000210| 20 c5 04 3c 32 00 20 20 | 20 20 20 20 20 20 70 6f | ..<2.  |      po|
|00000220| 73 79 3d bc 02 28 c6 09 | 28 30 2c 30 29 2a 68 65 |sy=..(..|(0,0)*he|
|00000230| 69 67 68 74 29 20 3b 73 | 63 72 6f 6c 6c 20 6d 61 |ight) ;s|croll ma|
|00000240| 70 00 20 20 20 20 20 20 | 20 20 70 6f 73 78 3d bc |p.      |  posx=.|
|00000250| 02 28 c6 07 28 30 2c 31 | 29 2a 77 69 64 74 68 29 |.(..(0,1|)*width)|
|00000260| 00 20 20 20 20 20 20 20 | 20 80 06 20 64 72 61 77 |.       | .. draw|
|00000270| 64 75 6e 67 65 6f 6e 00 | 20 20 20 20 20 20 80 22 |dungeon.|      ."|
|00000280| 00 20 20 20 20 20 20 20 | 20 62 72 75 73 68 3d c5 |.       | brush=.|
|00000290| 04 2d 32 20 20 3b 73 65 | 6c 65 63 74 20 62 72 75 |.-2  ;se|lect bru|
|000002a0| 73 68 20 66 72 6f 6d 20 | 74 6f 6f 6c 20 77 69 6e |sh from |tool win|
|000002b0| 64 6f 77 00 20 20 20 20 | 20 20 80 c0 00 20 20 20 |dow.    |  ...   |
|000002c0| 20 80 0f 20 32 35 36 00 | 20 20 20 20 20 20 80 0b | .. 256.|      ..|
|000002d0| 20 c5 07 3d 30 20 80 42 | 20 c5 08 3d 30 20 80 21 | ..=0 .B| ..=0 .!|
|000002e0| 20 80 06 20 6c 6f 61 64 | 6d 61 70 00 20 20 20 20 | .. load|map.    |
|000002f0| 20 20 80 0b 20 c5 07 3d | 30 20 80 42 20 c5 08 3d |  .. ..=|0 .B ..=|
|00000300| 31 20 80 21 20 80 06 20 | 73 61 76 65 6d 61 70 00 |1 .! .. |savemap.|
|00000310| 20 20 20 20 20 20 80 0b | 20 c5 07 3d 30 20 80 42 |      ..| ..=0 .B|
|00000320| 20 c5 08 3d 32 20 80 21 | 20 80 02 00 20 20 20 20 | ..=2 .!| ...    |
|00000330| 80 0f 20 24 34 30 30 30 | 30 00 20 20 20 20 20 20 |.. $4000|0.      |
|00000340| 80 2c 20 c5 01 20 30 3a | c6 0b 20 30 2c 30 3a c6 |., .. 0:|.. 0,0:.|
|00000350| 0b 20 30 2c 31 00 20 20 | 80 02 20 80 0e 00 80 c7 |. 0,1.  |.. .....|
|00000360| 00 00 2e 69 6e 69 74 6d | 61 70 00 20 20 80 04 20 |...initm|ap.  .. |
|00000370| 6d 61 70 2e 62 28 77 69 | 64 74 68 2d 31 2c 68 65 |map.b(wi|dth-1,he|
|00000380| 69 67 68 74 2d 31 29 00 | 20 20 80 16 20 79 3d 30 |ight-1).|  .. y=0|
|00000390| 20 80 18 20 68 65 69 67 | 68 74 2d 31 3a 6d 61 70 | .. heig|ht-1:map|
|000003a0| 28 30 2c 79 29 3d 31 3a | 6d 61 70 28 77 69 64 74 |(0,y)=1:|map(widt|
|000003b0| 68 2d 31 2c 79 29 3d 31 | 3a 80 17 00 20 20 80 16 |h-1,y)=1|:...  ..|
|000003c0| 20 78 3d 30 20 80 18 20 | 77 69 64 74 68 2d 31 3a | x=0 .. |width-1:|
|000003d0| 6d 61 70 28 78 2c 30 29 | 3d 31 3a 6d 61 70 28 78 |map(x,0)|=1:map(x|
|000003e0| 2c 68 65 69 67 68 74 2d | 31 29 3d 31 3a 80 17 00 |,height-|1)=1:...|
|000003f0| 20 20 80 07 00 00 2e 69 | 6e 69 74 63 68 61 72 73 |  .....i|nitchars|
|00000400| 00 20 20 80 04 20 63 24 | 28 34 29 00 20 20 63 24 |.  .. c$|(4).  c$|
|00000410| 28 30 29 3d dc 86 28 33 | 32 29 3a 63 24 28 31 29 |(0)=..(3|2):c$(1)|
|00000420| 3d 22 2a 22 3a 63 24 28 | 32 29 3d 22 4f 22 3a 63 |="*":c$(|2)="O":c|
|00000430| 24 28 33 29 3d 22 4d 22 | 3a 63 24 28 34 29 3d 22 |$(3)="M"|:c$(4)="|
|00000440| 42 22 00 20 20 80 07 00 | 00 2e 64 72 61 77 00 20 |B".  ...|..draw. |
|00000450| 20 80 bb 00 20 20 20 20 | 80 2c 20 c5 01 20 30 00 | ...    |., .. 0.|
|00000460| 20 20 20 20 63 78 3d bc | 0a 28 bc 02 28 28 c5 1a |    cx=.|.(..((..|
|00000470| 2d 36 29 2f 38 29 2c 30 | 2c 77 77 2d 31 29 00 20 |-6)/8),0|,ww-1). |
|00000480| 20 20 20 63 79 3d bc 0a | 28 bc 02 28 28 c5 1b 2d |   cy=..|(..((..-|
|00000490| 31 30 29 2f 38 29 2c 30 | 2c 77 68 2d 31 29 00 20 |10)/8),0|,wh-1). |
|000004a0| 20 20 20 6d 61 70 28 70 | 6f 73 78 2b 63 78 2c 70 |   map(p|osx+cx,p|
|000004b0| 6f 73 79 2b 63 79 29 3d | 62 72 75 73 68 00 20 20 |osy+cy)=|brush.  |
|000004c0| 20 20 c5 12 20 30 3a c5 | 10 20 63 78 2a 38 2c 63 |  .. 0:.|. cx*8,c|
|000004d0| 79 2a 38 3a dd 81 20 63 | 24 28 62 72 75 73 68 29 |y*8:.. c|$(brush)|
|000004e0| 00 20 20 80 bc 20 c5 03 | 00 20 20 80 07 00 00 2e |.  .. ..|.  .....|
|000004f0| 73 69 7a 65 77 69 6e 64 | 6f 77 00 20 20 80 2c 20 |sizewind|ow.  ., |
|00000500| c5 01 20 30 00 20 20 77 | 77 3d bc 02 28 c5 2b 2f |.. 0.  w|w=..(.+/|
|00000510| 38 29 2d 33 20 20 20 20 | 3b 6e 75 6d 20 62 6c 6f |8)-3    |;num blo|
|00000520| 63 6b 73 20 77 65 20 63 | 61 6e 20 64 69 73 70 6c |cks we c|an displ|
|00000530| 61 79 00 20 20 77 68 3d | bc 02 28 c5 2c 2f 38 29 |ay.  wh=|..(.,/8)|
|00000540| 2d 33 20 20 20 3b 77 69 | 74 68 20 63 75 72 72 65 |-3   ;wi|th curre|
|00000550| 6e 74 20 77 69 6e 64 6f | 77 20 73 69 7a 65 00 20 |nt windo|w size. |
|00000560| 20 80 06 20 64 72 61 77 | 64 75 6e 67 65 6f 6e 00 | .. draw|dungeon.|
|00000570| 20 20 c6 06 20 30 2c 30 | 2c 70 6f 73 79 2f 68 65 |  .. 0,0|,posy/he|
|00000580| 69 67 68 74 2c 77 68 2f | 68 65 69 67 68 74 20 3b |ight,wh/|height ;|
|00000590| 70 6f 73 69 74 69 6f 6e | 20 73 6c 69 64 65 72 73 |position| sliders|
|000005a0| 00 20 20 c6 05 20 30 2c | 31 2c 70 6f 73 78 2f 77 |.  .. 0,|1,posx/w|
|000005b0| 69 64 74 68 2c 77 77 2f | 77 69 64 74 68 00 20 20 |idth,ww/|width.  |
|000005c0| c6 0b 20 30 2c 30 3a c6 | 0b 20 30 2c 31 00 20 20 |.. 0,0:.|. 0,1.  |
|000005d0| 80 07 00 00 2e 64 72 61 | 77 64 75 6e 67 65 6f 6e |.....dra|wdungeon|
|000005e0| 00 20 20 c5 12 20 30 00 | 20 20 70 6f 73 78 3d bc |.  .. 0.|  posx=.|
|000005f0| 0a 28 70 6f 73 78 2c 30 | 2c 77 69 64 74 68 2d 77 |.(posx,0|,width-w|
|00000600| 77 29 20 20 20 3b 67 65 | 74 20 74 6f 70 6c 65 66 |w)   ;ge|t toplef|
|00000610| 74 20 63 6f 6f 72 64 69 | 6e 61 74 65 20 77 69 74 |t coordi|nate wit|
|00000620| 68 00 20 20 70 6f 73 79 | 3d bc 0a 28 70 6f 73 79 |h.  posy|=..(posy|
|00000630| 2c 30 2c 68 65 69 67 68 | 74 2d 77 68 29 20 20 3b |,0,heigh|t-wh)  ;|
|00000640| 6c 69 6d 69 74 20 6f 66 | 20 75 70 70 65 72 2f 6c |limit of| upper/l|
|00000650| 6f 77 65 72 20 76 61 6c | 75 65 00 20 20 c5 2f 00 |ower val|ue.  ./.|
|00000660| 20 20 80 16 20 79 3d 30 | 20 80 18 20 77 68 2d 31 |  .. y=0| .. wh-1|
|00000670| 00 20 20 20 20 80 16 20 | 78 3d 30 20 80 18 20 77 |.    .. |x=0 .. w|
|00000680| 77 2d 31 20 20 20 20 3b | 63 68 61 72 61 63 74 65 |w-1    ;|characte|
|00000690| 72 20 62 61 73 65 64 20 | 6f 6e 20 76 61 6c 75 65 |r based |on value|
|000006a0| 20 69 6e 20 6d 61 70 00 | 20 20 20 20 20 20 63 68 | in map.|      ch|
|000006b0| 3d 6d 61 70 28 70 6f 73 | 78 2b 78 2c 70 6f 73 79 |=map(pos|x+x,posy|
|000006c0| 2b 79 29 00 20 20 20 20 | 20 20 80 0b 20 63 68 20 |+y).    |  .. ch |
|000006d0| 80 21 20 c5 10 20 78 2a | 38 2c 79 2a 38 3a dd 81 |.! .. x*|8,y*8:..|
|000006e0| 20 63 24 28 63 68 29 00 | 20 20 20 20 80 17 00 20 | c$(ch).|    ... |
|000006f0| 20 80 17 00 20 20 80 07 | 00 00 2e 69 6e 69 74 75 | ...  ..|...initu|
|00000700| 69 00 20 20 c4 01 20 30 | 2c 30 2c 22 50 52 4f 4a |i.  .. 0|,0,"PROJ|
|00000710| 45 43 54 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |ECT"    |        |
|00000720| 20 3b 73 65 74 20 75 70 | 20 6d 65 6e 75 73 20 66 | ;set up| menus f|
|00000730| 6f 72 20 6f 75 72 20 65 | 64 69 74 6f 72 00 20 20 |or our e|ditor.  |
|00000740| c4 03 20 30 2c 30 2c 30 | 2c 30 2c 22 4c 4f 41 44 |.. 0,0,0|,0,"LOAD|
|00000750| 20 20 20 20 20 20 22 2c | 22 4c 22 00 20 20 c4 03 |      ",|"L".  ..|
|00000760| 20 30 2c 30 2c 30 2c 31 | 2c 22 53 41 56 45 20 20 | 0,0,0,1|,"SAVE  |
|00000770| 20 20 20 20 22 2c 22 53 | 22 00 20 20 c4 03 20 30 |    ","S|".  .. 0|
|00000780| 2c 30 2c 30 2c 32 2c 22 | 51 55 49 54 20 20 20 20 |,0,0,2,"|QUIT    |
|00000790| 20 20 22 2c 22 51 22 00 | 20 20 c6 03 20 30 2c 2d |  ","Q".|  .. 0,-|
|000007a0| 31 36 2c 31 30 2c 32 2b | 31 36 2b 31 32 38 2c 30 |16,10,2+|16+128,0|
|000007b0| 2c 31 36 2c 2d 32 30 20 | 3b 67 61 64 67 65 74 73 |,16,-20 |;gadgets|
|000007c0| 20 66 6f 72 20 73 6c 69 | 64 65 72 73 00 20 20 c6 | for sli|ders.  .|
|000007d0| 03 20 30 2c 34 2c 2d 39 | 2c 34 2b 38 2b 36 34 2c |. 0,4,-9|,4+8+64,|
|000007e0| 31 2c 2d 32 32 2c 31 30 | 00 20 20 80 16 20 69 3d |1,-22,10|.  .. i=|
|000007f0| 30 20 80 18 20 34 20 20 | 20 20 20 20 20 20 20 20 |0 .. 4  |        |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000810| 3b 67 61 64 67 65 74 73 | 20 66 6f 72 20 62 72 75 |;gadgets| for bru|
|00000820| 73 68 20 73 65 6c 65 63 | 74 00 20 20 20 20 c6 01 |sh selec|t.    ..|
|00000830| 20 31 2c 69 2a 32 34 2b | 31 32 2c 31 32 2c 35 31 | 1,i*24+|12,12,51|
|00000840| 32 2c 32 2b 69 2c 63 24 | 28 69 29 00 20 20 80 17 |2,2+i,c$|(i).  ..|
|00000850| 00 20 20 62 72 75 73 68 | 3d 31 3a c6 0e 20 31 2c |.  brush|=1:.. 1,|
|00000860| 33 2c 80 c5 00 20 20 cf | 01 20 30 2c 31 30 2c 22 |3,...  .|. 0,10,"|
|00000870| 44 75 6e 67 65 6f 6e 20 | 45 64 69 74 6f 72 22 20 |Dungeon |Editor" |
|00000880| 20 20 20 20 20 20 20 20 | 20 3b 61 6e 64 20 61 20 |        | ;and a |
|00000890| 73 63 72 65 65 6e 20 61 | 6e 64 20 77 69 6e 64 6f |screen a|nd windo|
|000008a0| 77 73 00 20 20 c5 01 20 | 30 2c 30 2c 31 32 2c 36 |ws.  .. |0,0,12,6|
|000008b0| 34 30 2c 32 34 30 2c 24 | 31 30 30 31 2c 22 44 55 |40,240,$|1001,"DU|
|000008c0| 4e 47 45 4f 4e 22 2c 31 | 2c 32 2c 30 3a c4 02 20 |NGEON",1|,2,0:.. |
|000008d0| 30 00 20 20 c5 01 20 31 | 2c 34 30 30 2c 30 2c 31 |0.  .. 1|,400,0,1|
|000008e0| 34 30 2c 32 38 2c 24 31 | 30 30 32 2c 22 42 4c 4f |40,28,$1|002,"BLO|
|000008f0| 43 4b 53 22 2c 31 2c 32 | 2c 31 3a c4 02 20 30 00 |CKS",1,2|,1:.. 0.|
|00000900| 20 20 80 2c 20 c5 01 20 | 30 3a c6 0b 20 30 2c 30 |  ., .. |0:.. 0,0|
|00000910| 3a c6 0b 20 30 2c 31 00 | 20 20 80 07 00 00 2e 6c |:.. 0,1.|  .....l|
|00000920| 6f 61 64 6d 61 70 00 20 | 20 61 24 3d cc 01 28 22 |oadmap. | a$=..("|
|00000930| 4c 4f 41 44 20 44 55 4e | 47 45 4f 4e 22 2c 70 61 |LOAD DUN|GEON",pa|
|00000940| 24 2c 66 69 24 29 20 20 | 20 20 20 20 20 3b 64 6f |$,fi$)  |     ;do|
|00000950| 20 61 20 66 69 6c 65 20 | 72 65 71 75 65 73 74 00 | a file |request.|
|00000960| 20 20 80 0b 20 be 11 28 | 30 2c 61 24 29 20 20 20 |  .. ..(|0,a$)   |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 3b 69 66 20 66 69 |        |  ;if fi|
|00000990| 6c 65 20 74 68 65 72 65 | 00 20 20 20 20 80 0b 20 |le there|.    .. |
|000009a0| be 0a 28 30 29 3d 73 69 | 7a 65 20 80 21 20 be 14 |..(0)=si|ze .! ..|
|000009b0| 20 30 2c 26 6d 61 70 28 | 30 2c 30 29 2c 73 69 7a | 0,&map(|0,0),siz|
|000009c0| 65 3b 72 65 61 64 20 69 | 74 20 69 6e 74 6f 20 6d |e;read i|t into m|
|000009d0| 61 70 00 20 20 20 20 be | 02 20 30 20 20 20 20 20 |ap.    .|. 0     |
|000009e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 61 72 72 |        |    ;arr|
|00000a00| 61 79 20 28 72 61 77 21 | 29 00 20 20 20 20 80 06 |ay (raw!|).    ..|
|00000a10| 20 64 72 61 77 64 75 6e | 67 65 6f 6e 20 20 20 20 | drawdun|geon    |
|00000a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a30| 20 20 20 20 20 20 20 3b | 72 65 66 72 65 73 68 20 |       ;|refresh |
|00000a40| 73 63 72 65 65 6e 00 20 | 20 80 c0 00 20 20 80 07 |screen. | ...  ..|
|00000a50| 00 00 2e 73 61 76 65 6d | 61 70 00 20 20 61 24 3d |...savem|ap.  a$=|
|00000a60| cc 01 28 22 53 41 56 45 | 20 44 55 4e 47 45 4f 4e |..("SAVE| DUNGEON|
|00000a70| 22 2c 70 61 24 2c 66 69 | 24 29 00 20 20 80 0b 20 |",pa$,fi|$).  .. |
|00000a80| be 12 28 30 2c 61 24 29 | 00 20 20 20 20 be 13 20 |..(0,a$)|.    .. |
|00000a90| 30 2c 26 6d 61 70 28 30 | 2c 30 29 2c 73 69 7a 65 |0,&map(0|,0),size|
|00000aa0| 3a be 02 20 30 20 20 3b | 77 72 69 74 65 20 61 72 |:.. 0  ;|write ar|
|00000ab0| 72 61 79 20 74 6f 20 66 | 69 6c 65 20 72 61 77 00 |ray to f|ile raw.|
|00000ac0| 20 20 80 c0 00 20 20 80 | 07 00 00                |  ...  .|...     |
+--------+-------------------------+-------------------------+--------+--------+