mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-01 22:10:16 +00:00
1217 lines
35 KiB
QBasic
1217 lines
35 KiB
QBasic
CHDIR ".\programs\samples\thebob\kong"
|
|
|
|
'K2.BAS: Creates graphics files for KONG.BAS, -chained by K1.BAS
|
|
'---------------------------------------------------------------
|
|
DEFINT A-Z
|
|
DECLARE SUB SaveINSTR (FileNAME$)
|
|
DECLARE SUB HighLIGHT (x1%, y1%, x2%, y2%, Colr%)
|
|
DECLARE SUB PrintSTRING (x, y, Prnt$)
|
|
DECLARE SUB SaveBUILDING (x, UpSET, Building)
|
|
|
|
DIM SHARED Box(1 TO 26000)
|
|
DIM SHARED FontBOX(5000)
|
|
SCREEN 12
|
|
GOSUB Instructions
|
|
GOSUB Buildings
|
|
GOSUB TitleBAR
|
|
GOSUB WinBOXES
|
|
GOSUB ControlPANEL
|
|
GOSUB DrawSCREEN
|
|
|
|
CLS
|
|
OUT &H3C8, 7
|
|
OUT &H3C9, 63
|
|
OUT &H3C9, 32
|
|
OUT &H3C9, 0
|
|
LINE (5, 5)-(634, 474), 6, B
|
|
LINE (8, 8)-(631, 471), 6, B
|
|
LINE (200, 180)-(439, 290), 6, B
|
|
LINE (197, 177)-(442, 293), 6, B
|
|
PrintSTRING 254, 212, "The graphics files for KONG"
|
|
PrintSTRING 243, 226, "have been successfully created."
|
|
PrintSTRING 246, 250, "You can now run the program."
|
|
|
|
a$ = INPUT$(1)
|
|
END
|
|
|
|
TitleBAR:
|
|
LINE (0, 300)-(639, 340), 1, BF
|
|
FOR x = -6 TO 660 STEP 21
|
|
LINE (x, 309)-(x + 18, 331), 2, BF
|
|
NEXT x
|
|
FOR x = -1 TO 660 STEP 7
|
|
LINE (x, 302)-(x + 2, 306), 10, BF
|
|
LINE (x, 306)-(x + 2, 306), 2
|
|
LINE (x, 334)-(x + 2, 338), 10, BF
|
|
LINE (x, 338)-(x + 2, 338), 2
|
|
NEXT x
|
|
LINE (0, 300)-(639, 300), 2
|
|
LINE (0, 340)-(639, 340), 10
|
|
FOR x = 140 TO 498
|
|
FOR y = 0 TO 18
|
|
IF POINT(x, y) <> 0 THEN
|
|
IF y > 9 THEN Colr = 8 ELSE Colr = 15
|
|
PSET (x, y + 314), 10
|
|
PSET (x, y + 311), Colr
|
|
END IF
|
|
NEXT y
|
|
NEXT x
|
|
PrintSTRING 20, 216, "Instructions"
|
|
PrintSTRING 595, 216, "EXIT"
|
|
FOR x = 20 TO 620
|
|
FOR y = 216 TO 230
|
|
IF y > 222 THEN Colr = 8 ELSE Colr = 15
|
|
IF POINT(x, y) <> 0 THEN PSET (x, y + 100), Colr
|
|
PSET (x, y), 0
|
|
NEXT y
|
|
NEXT x
|
|
RETURN
|
|
|
|
ControlPANEL:
|
|
LINE (0, 446)-(639, 479), 7, BF
|
|
LINE (0, 446)-(639, 446), 9
|
|
PSET (115, 446), 7
|
|
DRAW "U10 E4 R399 F4 D10 L407 BE6 P7,7"
|
|
PSET (115, 446), 9
|
|
DRAW "U10 c15 E4 c9R399 C6 F4 D10"
|
|
PSET (0, 435), 7
|
|
DRAW "R52 F4 D10 L56 BE4 P7,7"
|
|
PSET (0, 435), 9
|
|
DRAW "R52 c6 F4 D6"
|
|
PSET (639, 435), 7
|
|
DRAW "L52 G4 D10 R56 BH4 P7,7"
|
|
PSET (639, 435), 9
|
|
DRAW "L52 c15 G4 c9 D6"
|
|
PSET (215, 432), 7
|
|
DRAW "U10 E4 R199 F4 D10 L207 BE5 P7,7"
|
|
PSET (215, 432), 9
|
|
DRAW "U10 c15 E4 R199 c6 F4 D10"
|
|
PSET (5, 440), 4
|
|
DRAW "R42 F3 D8 R70 U11 E3 R97 U11 E3 R191"
|
|
DRAW "F3 D11 R97 F3 D11 R70 U8 E3 R42 D20 L628 U20 bF4 P4,4"
|
|
FOR y = 424 TO 460 STEP 5
|
|
FOR x = 5 TO 634
|
|
IF POINT(x, y) = 4 THEN PSET (x, y), 8
|
|
IF POINT(x, y - 1) = 4 THEN PSET (x, y - 1), 6
|
|
NEXT x
|
|
NEXT y
|
|
FOR y = 424 TO 460
|
|
FOR x = 4 TO 634
|
|
IF POINT(x, y) = 4 THEN PSET (x, y), 7
|
|
NEXT x
|
|
NEXT y
|
|
'Banana Button
|
|
LINE (305, 424)-(334, 450), 7, BF
|
|
LINE (305, 424)-(334, 451), 9, B
|
|
LINE (334, 424)-(334, 450), 6
|
|
LINE (309, 428)-(330, 446), 1, BF
|
|
LINE (309, 428)-(330, 446), 2, B
|
|
LINE (309, 446)-(330, 446), 10
|
|
LINE (330, 428)-(330, 446), 10
|
|
LINE (305, 451)-(334, 451), 10
|
|
LINE (305, 425)-(305, 451), 8
|
|
FOR x = 0 TO 16
|
|
FOR y = 0 TO 16
|
|
IF POINT(x, y) <> 0 THEN
|
|
PSET (x + 312, y + 432), 10
|
|
PSET (x + 312, y + 430), POINT(x, y)
|
|
END IF
|
|
NEXT y
|
|
NEXT x
|
|
'Transfer KONG
|
|
FOR x = 198 TO 256
|
|
FOR y = 0 TO 18
|
|
IF y > 9 THEN Colr = 8 ELSE Colr = 15
|
|
IF POINT(x, y) <> 0 THEN
|
|
PSET (x - 141, y + 452), 10
|
|
PSET (x - 141, y + 450), Colr
|
|
END IF
|
|
NEXT y
|
|
NEXT x
|
|
'Transfer YOUNG
|
|
FOR x = 424 TO 500
|
|
FOR y = 0 TO 18
|
|
IF y > 9 THEN Colr = 8 ELSE Colr = 15
|
|
IF POINT(x, y) <> 0 THEN
|
|
PSET (x + 92, y + 452), 10
|
|
PSET (x + 92, y + 450), Colr
|
|
END IF
|
|
NEXT y
|
|
NEXT x
|
|
'Player LED's
|
|
LINE (70, 470)-(100, 477), 8, B
|
|
LINE (70, 470)-(70, 477), 6
|
|
LINE (70, 470)-(100, 470), 6
|
|
LINE (72, 472)-(98, 475), 10, B
|
|
LINE (98, 472)-(98, 475), 8
|
|
LINE (72, 475)-(98, 475), 8
|
|
GET (70, 470)-(100, 477), Box()
|
|
PUT (537, 470), Box(), PSET
|
|
'Slider grooves
|
|
LINE (359, 469)-(489, 475), 7, BF
|
|
LINE (359, 472)-(489, 472), 10
|
|
LINE (359, 471)-(489, 473), 9, B
|
|
LINE (359, 471)-(359, 473), 6
|
|
LINE (359, 471)-(489, 471), 6
|
|
'Get/place slider grooves
|
|
GET (354, 462)-(494, 479), Box()
|
|
LINE (354, 462)-(494, 479), 7, BF
|
|
PUT (135, 442), Box(), PSET
|
|
PUT (364, 442), Box(), PSET
|
|
GET (245, 442)-(274, 456), Box()
|
|
PUT (227, 442), Box(), PSET
|
|
LINE (256, 442)-(272, 456), 7, BF
|
|
PrintSTRING 185, 462, "Force"
|
|
PrintSTRING 436, 462, "Angle"
|
|
FOR x = 140 TO 500
|
|
FOR y = 462 TO 478
|
|
IF y > 468 THEN Colr = 9 ELSE Colr = 15
|
|
IF POINT(x, y) <> 7 THEN PSET (x, y), Colr
|
|
NEXT y
|
|
NEXT x
|
|
FOR x = 146 TO 246 STEP 5
|
|
LINE (x, 446)-(x, 449), 8
|
|
LINE (x, 456)-(x, 459), 8
|
|
NEXT x
|
|
GET (365, 440)-(380, 460), Box()
|
|
LINE (365, 440)-(395, 460), 7, BF
|
|
PUT (394, 440), Box(), PSET
|
|
FOR x = 404 TO 494 STEP 5
|
|
LINE (x, 446)-(x, 449), 8
|
|
LINE (x, 456)-(x, 459), 8
|
|
NEXT x
|
|
LINE (255, 442)-(278, 460), 7, BF
|
|
LINE (255, 442)-(276, 460), 10, BF
|
|
LINE (255, 442)-(276, 460), 9, B
|
|
LINE (255, 442)-(276, 442), 6
|
|
LINE (255, 442)-(255, 460), 6
|
|
PrintSTRING 260, 446, "00"
|
|
LINE (362, 442)-(385, 460), 7, BF
|
|
LINE (364, 442)-(385, 460), 10, BF
|
|
LINE (364, 442)-(385, 460), 9, B
|
|
LINE (364, 442)-(364, 460), 6
|
|
LINE (364, 442)-(385, 442), 6
|
|
PrintSTRING 369, 446, "00"
|
|
'Transfer Cupola
|
|
FOR x = 61 TO 95
|
|
FOR y = 48 TO 74
|
|
IF POINT(x, y) <> 0 THEN
|
|
PSET (x - 52, y + 360), POINT(x, y)
|
|
PSET (690 - x, y + 360), POINT(x, y)
|
|
END IF
|
|
NEXT y
|
|
NEXT x
|
|
CIRCLE (123, 440), 5, 4
|
|
PAINT STEP(0, 0), 4
|
|
CIRCLE STEP(0, 0), 5, 9
|
|
PAINT STEP(0, 0), 7, 9
|
|
CIRCLE STEP(0, 0), 5, 6, 3.1, 0
|
|
CIRCLE (513, 440), 5, 4
|
|
PAINT STEP(0, 0), 4
|
|
CIRCLE STEP(0, 0), 5, 9
|
|
PAINT STEP(0, 0), 7, 9
|
|
CIRCLE STEP(0, 0), 5, 6, 3.1, 0
|
|
CIRCLE (223, 426), 5, 4
|
|
PAINT STEP(0, 0), 4
|
|
CIRCLE STEP(0, 0), 5, 9
|
|
PAINT STEP(0, 0), 7, 9
|
|
CIRCLE STEP(0, 0), 5, 6, 3.1, 0
|
|
CIRCLE (413, 426), 5, 4
|
|
PAINT STEP(0, 0), 4
|
|
CIRCLE STEP(0, 0), 5, 9
|
|
PAINT STEP(0, 0), 7, 9
|
|
CIRCLE STEP(0, 0), 5, 6, 3.1, 0
|
|
LINE (290, 461)-(350, 477), 9, B
|
|
LINE (350, 461)-(350, 477), 6
|
|
LINE (290, 477)-(350, 477), 6
|
|
LINE (290, 478)-(350, 478), 10
|
|
LINE (290, 461)-(290, 477), 8
|
|
'Score boxes
|
|
LINE (12, 444)-(42, 474), 0, BF
|
|
LINE (12, 444)-(42, 474), 9, B
|
|
LINE (12, 444)-(12, 474), 6
|
|
LINE (12, 444)-(42, 444), 6
|
|
LINE (597, 444)-(627, 474), 0, BF
|
|
LINE (597, 444)-(627, 474), 9, B
|
|
LINE (597, 444)-(597, 474), 6
|
|
LINE (597, 444)-(627, 444), 6
|
|
GET (438, 20)-(452, 38), Box()
|
|
PUT (19, 450), Box()
|
|
PUT (604, 450), Box()
|
|
FOR x = 0 TO 639
|
|
FOR y = 362 TO 404
|
|
IF POINT(x, y) = 0 THEN PSET (x, y), 12
|
|
NEXT y
|
|
NEXT x
|
|
PrintSTRING 298, 464, "NO WIND"
|
|
FOR x = 298 TO 342
|
|
FOR y = 465 TO 473
|
|
IF y > 469 THEN Colr = 9 ELSE Colr = 15
|
|
IF POINT(x, y) <> 7 THEN PSET (x, y), Colr
|
|
NEXT y
|
|
NEXT x
|
|
GET (298, 465)-(342, 473), Box()
|
|
DEF SEG = VARSEG(Box(1))
|
|
BSAVE "kongwind.bsv", VARPTR(Box(1)), 240
|
|
DEF SEG
|
|
DIM SliderBOX(1 TO 440)
|
|
DEF SEG = VARSEG(SliderBOX(1))
|
|
BLOAD "kongsldr.bsv", VARPTR(SliderBOX(1))
|
|
DEF SEG
|
|
GET (141, 443)-(151, 461), SliderBOX(281)
|
|
GET (489, 443)-(499, 461), SliderBOX(361)
|
|
DEF SEG = VARSEG(SliderBOX(1))
|
|
BSAVE "kongsldr.bsv", VARPTR(SliderBOX(1)), 880
|
|
DEF SEG
|
|
RETURN
|
|
|
|
DrawSCREEN:
|
|
GET (16, 47)-(56, 87), Box(25000)
|
|
GET (0, 300)-(639, 340), Box()
|
|
LINE (0, 0)-(639, 350), 0, BF
|
|
LINE (0, 0)-(639, 43), 7, BF
|
|
LINE (0, 44)-(639, 44), 10
|
|
PUT (0, 1), Box(), PSET
|
|
PUT (299, 70), Box(25000), PSET
|
|
PrintSTRING 2, 46, "Freeware - Copyright 2005 by Bob Seguin"
|
|
PrintSTRING 497, 46, "email: BOBSEG@sympatico.ca"
|
|
FOR x = 0 TO 639
|
|
FOR y = 46 TO 58
|
|
IF POINT(x, y) <> 0 THEN PSET (x, y), 2
|
|
NEXT y
|
|
NEXT x
|
|
|
|
PSET (0, 154), 12
|
|
DRAW "r7 U24 R35 NU20 R30 F20 D20 R30 F20 D30 R5 U50 R20 NU20 R20 D60"
|
|
DRAW "R5 U30 R5 U4 R20 NU20 R20 D4 R5 D20 R4 U30 R3 U40 R3"
|
|
DRAW "U3ru3ru3ru3ru3ru3r2Nu20R2D3rd3rd3rd3rd3rd3r3d40r3d20R4"
|
|
DRAW "U30 R30d20r3U60r3u4r25nu12r25d4r3d80r5U30r15Nu12r15d30r5u50r30d40"
|
|
DRAW "r5U30 r6U2r34nu12r34d2r6d30r4u20r20d20r5U30e12r20U18e23r"
|
|
DRAW "r12nu12r22d108L639U81bfp12,12"
|
|
LINE (0, 235)-(639, 400), 12, BF
|
|
CIRCLE (605, 198), 200, 12, 2.8, 3.2
|
|
CIRCLE (235, 198), 200, 12, 0, .34
|
|
LINE (416, 123)-(424, 136), 12, BF
|
|
LINE (419, 100)-(421, 125), 12, BF
|
|
LINE (420, 80)-(420, 100), 12
|
|
PAINT STEP(0, 40), 12
|
|
|
|
PSET (0, 390), 10
|
|
DRAW "R10 U10 R100 D5 R10 U10 R80 D30 R20 U20 R60 U8rd8r62 D10"
|
|
DRAW "R80 U20 LU10R20 U6lu2r16d2ld6r60d10ld10r118d26L639"
|
|
DRAW "U14 BF4 P10,10"
|
|
FOR y = 401 TO 440
|
|
FOR x = 0 TO 639
|
|
IF POINT(x, y) = 0 THEN PSET (x, y), 10
|
|
NEXT x
|
|
NEXT y
|
|
PAINT (60, 396), 10
|
|
PAINT (460, 396), 10
|
|
GET (80, 340)-(539, 400), Box()
|
|
PUT (80, 345), Box(), PSET
|
|
RANDOMIZE 123
|
|
FOR Reps = 1 TO 48
|
|
x = FIX(RND * 640)
|
|
y = FIX(RND * 60) + 45
|
|
IF POINT(x, y) = 0 THEN PSET (x, y), 7
|
|
NEXT Reps
|
|
FOR x = 0 TO 639
|
|
FOR y = 362 TO 404
|
|
IF POINT(x, y) <> 10 THEN PSET (x, y), 0
|
|
NEXT y
|
|
NEXT x
|
|
GET (0, 362)-(639, 404), Box() '7000
|
|
FOR x = 0 TO 639
|
|
FOR y = 362 TO 404
|
|
IF POINT(x, y) = 0 THEN PSET (x, y), 15 ELSE PSET (x, y), 0
|
|
NEXT y
|
|
NEXT x
|
|
FOR x = 45 TO 595
|
|
FOR y = 430 TO 460
|
|
IF POINT(x, y) = 0 THEN PSET (x, y), 10
|
|
NEXT y
|
|
NEXT x
|
|
GET (0, 362)-(639, 404), Box(7000) 'Get foreground building mask
|
|
PUT (0, 362), Box(), PSET
|
|
LINE (80, 410)-(88, 422), 5, BF
|
|
LINE (80, 410)-(88, 418), 3, BF
|
|
LINE (180, 410)-(188, 422), 0, BF
|
|
LINE (480, 390)-(488, 402), 5, BF
|
|
LINE (480, 390)-(488, 394), 3, BF
|
|
LINE (460, 390)-(468, 402), 0, BF
|
|
LINE (440, 412)-(448, 424), 0, BF
|
|
GET (0, 362)-(639, 404), Box() '7000 'Get/Save foreground buildings
|
|
DEF SEG = VARSEG(Box(1))
|
|
BSAVE "kongfbld.bsv", VARPTR(Box(1)), 28000
|
|
DEF SEG
|
|
LINE (0, 340)-(639, 404), 12, BF
|
|
PUT (0, 362), Box(7000), AND
|
|
PUT (0, 362), Box()
|
|
|
|
'Get/Save main screen
|
|
FileCOUNT = 0
|
|
DEF SEG = VARSEG(Box(1))
|
|
FOR y = 0 TO 320 STEP 160
|
|
GET (0, y)-(639, y + 159), Box()
|
|
FileCOUNT = FileCOUNT + 1
|
|
FileNAME$ = "kongscr" + LTRIM$(STR$(FileCOUNT)) + ".bsv"
|
|
BSAVE FileNAME$, VARPTR(Box(1)), 52000
|
|
NEXT y
|
|
DEF SEG
|
|
RETURN
|
|
|
|
Buildings:
|
|
'Government building?
|
|
PSET (97, 200), 11
|
|
DRAW "E16 R33 F16 L65 R32 BU2 P11,11"
|
|
FOR x = 102 TO 159 STEP 4
|
|
FOR y = 184 TO 200
|
|
IF POINT(x, y) = 11 THEN PSET (x, y), 3
|
|
NEXT y
|
|
NEXT x
|
|
PSET (97, 200), 3
|
|
DRAW "E16 R33 U3 L33 D3 BE P11,3 BG C3 R33 F16 L67 D3 R69 U3 L30 BD P11,3"
|
|
LINE (90, 204)-(169, 208), 7, BF
|
|
LINE (90, 204)-(169, 204), 8
|
|
LINE (60, 200)-(68, 212), 3, B
|
|
LINE (61, 201)-(67, 211), 1, BF
|
|
LINE (61, 201)-(67, 211), 7, B
|
|
LINE (61, 206)-(67, 206), 7
|
|
GET (60, 200)-(68, 212), Box()
|
|
PUT (60, 200), Box()
|
|
FOR x = 112 TO 140 STEP 14
|
|
PUT (x, 191), Box(), PSET
|
|
NEXT x
|
|
PSET (130, 180), 7
|
|
DRAW "U20 C15 d"
|
|
FOR x = 114 TO 146 STEP 2
|
|
LINE (x, 177)-(x, 180), 6
|
|
PSET (x, 177), 8
|
|
IF x < 146 THEN PSET (x + 1, 179), 6
|
|
NEXT x
|
|
FlagDATA:
|
|
DATA 1,2,3,2,2,2,3,4,5,4,3,2
|
|
RESTORE FlagDATA
|
|
FOR x = 129 TO 119 STEP -1
|
|
READ Down
|
|
LINE (x, 162 + Down)-(x, 168 + Down), 4
|
|
NEXT x
|
|
LINE (90, 210)-(169, 479), 7, BF
|
|
FOR y = 210 TO 470 STEP 2
|
|
LINE (95, y)-(164, y), 6
|
|
NEXT y
|
|
RANDOMIZE 145678
|
|
FOR y = 220 TO 420 STEP 20
|
|
FOR x = 99 TO 157 STEP 11
|
|
LINE (x - 1, y)-(x + 7, y + 12), 7, BF
|
|
IF FIX(RND * 12) = 0 THEN
|
|
Colr1 = 3: Colr2 = 5
|
|
ELSE
|
|
Colr1 = 1: Colr2 = 2
|
|
END IF
|
|
LINE (x + 1, y + 1)-(x + 5, y + 12), Colr1, BF
|
|
LINE (x + 1, y + 3)-(x + 5, y + 12), Colr2, BF
|
|
LINE (x, y + 13)-(x + 6, y + 13), 8
|
|
LINE (x, y + 7)-(x + 5, y + 7), 7
|
|
NEXT x
|
|
NEXT y
|
|
GET (80, 150)-(180, 479), Box()
|
|
PUT (80, 146), Box(), PSET
|
|
SaveBUILDING 90, 24, 1
|
|
|
|
'Modern building
|
|
LINE (300, 200)-(379, 204), 6, BF
|
|
LINE (300, 205)-(379, 479), 7, BF
|
|
PSET (321, 195), 2
|
|
DRAW "E4 R30 F4 L38 R10 BU P2,2"
|
|
PSET (321, 195), 8
|
|
DRAW "E4 ND4 R5 ND4 R5 ND4 R5 ND4 R5 ND4 R5 ND4 R5 ND4 F4 L38"
|
|
LINE (321, 195)-(359, 199), 8, BF
|
|
CIRCLE (308, 200), 6, 6, 0, 3.14
|
|
PAINT STEP(0, -1), 6
|
|
PSET STEP(0, -4), 8
|
|
CIRCLE (372, 200), 6, 6, 0, 3.14
|
|
PAINT STEP(0, -1), 6
|
|
PSET STEP(0, -4), 8
|
|
FOR x = 300 TO 379
|
|
FOR y = 194 TO 197
|
|
IF POINT(x, y) = 6 THEN PSET (x, y), 2
|
|
NEXT y
|
|
NEXT x
|
|
LINE (300, 200)-(379, 204), 7, BF
|
|
LINE (300, 200)-(379, 200), 8
|
|
LINE (300, 205)-(379, 206), 10, B
|
|
LINE (317, 184)-(317, 199), 7
|
|
PSET STEP(0, -15), 8
|
|
LINE (363, 184)-(363, 199), 7
|
|
PSET STEP(0, -15), 8
|
|
FOR y = 210 TO 440 STEP 16
|
|
LINE (300, y)-(379, y + 8), 2, BF
|
|
LINE (300, y)-(379, y + 3), 1, BF
|
|
LINE (300, y + 8)-(379, y + 8), 8
|
|
FOR x = 305 TO 379 STEP 14
|
|
LINE (x, y)-(x, y + 8), 7
|
|
NEXT x
|
|
NEXT y
|
|
SaveBUILDING 300, 0, 2 '*************************************************
|
|
|
|
'Hotel --------------------------------------------------------------------
|
|
LINE (400, 200)-(479, 479), 3, BF
|
|
LINE (420, 195)-(459, 199), 6, BF
|
|
LINE (420, 195)-(459, 195), 7
|
|
LINE (460, 174)-(460, 199), 7
|
|
LINE (454, 176)-(464, 176), 7
|
|
LINE (457, 177)-(467, 177), 7
|
|
PSET (454, 176), 9
|
|
LINE (410, 192)-(414, 199), 6, BF
|
|
LINE (410, 192)-(414, 192), 7
|
|
LINE (465, 192)-(469, 199), 6, BF
|
|
LINE (465, 192)-(469, 192), 7
|
|
FOR x = 421 TO 454 STEP 4
|
|
FOR y = 186 TO 193 STEP 3
|
|
LINE (x, y)-(x + 4, y + 3), 6, B
|
|
NEXT y
|
|
NEXT x
|
|
PrintSTRING 425, 162, "HOTEL"
|
|
FOR x = 425 TO 500
|
|
FOR y = 162 TO 174
|
|
IF POINT(x, y) <> 0 THEN PSET (x, y + 20), 4
|
|
PSET (x, y), 0
|
|
NEXT y
|
|
NEXT x
|
|
GET (100, 50)-(111, 76), Box()
|
|
FOR x = 404 TO 468 STEP 15
|
|
PUT (x, 215), Box(), PSET
|
|
NEXT x
|
|
GET (100, 54)-(111, 76), Box()
|
|
FOR x = 404 TO 464 STEP 15
|
|
PUT (x, 248), Box(), PSET
|
|
IF x = 419 THEN
|
|
FOR xx = x TO x + 12
|
|
FOR yy = 248 TO 267
|
|
IF POINT(xx, yy) = 2 THEN PSET (xx, yy), 5
|
|
NEXT yy
|
|
NEXT xx
|
|
END IF
|
|
NEXT x
|
|
FOR x = 404 TO 464 STEP 15
|
|
FOR y = 290 TO 479 STEP 32
|
|
PUT (x, y), Box(), PSET
|
|
IF FIX(RND * 12) = 2 THEN
|
|
LINE (x + 2, y + 8)-(x + 9, y + 15), 1, BF
|
|
LINE (x + 2, y + 16)-(x + 9, y + 16), 7
|
|
LINE (x + 2, y + 17)-(x + 9, y + 17), 10
|
|
END IF
|
|
IF FIX(RND * 15) = 0 THEN
|
|
FOR xx = x TO x + 12
|
|
FOR yy = y TO y + 19
|
|
IF POINT(xx, yy) = 2 THEN PSET (xx, yy), 5
|
|
NEXT yy
|
|
NEXT xx
|
|
END IF
|
|
NEXT y
|
|
NEXT x
|
|
GET (88, 84)-(93, 91), Box()
|
|
FOR x = 401 TO 480 STEP 5
|
|
PUT (x, 200), Box(), PSET
|
|
PUT (x, 276), Box(), PSET
|
|
NEXT x
|
|
LINE (480, 200)-(484, 310), 0, BF
|
|
LINE (395, 200)-(399, 310), 0, BF
|
|
FOR y = 202 TO 479 STEP 2
|
|
FOR x = 400 TO 480
|
|
IF POINT(x, y) = 3 THEN PSET (x, y), 1
|
|
NEXT x
|
|
NEXT y
|
|
GET (478, 200)-(478, 210), Box()
|
|
PUT (479, 200), Box(), PSET
|
|
PUT (400, 200), Box(), PSET
|
|
PUT (479, 276), Box(), PSET
|
|
PUT (400, 276), Box(), PSET
|
|
SaveBUILDING 400, 0, 3 '*************************************************
|
|
|
|
'Buff Apartment Block -------------------------------------------------------
|
|
GET (608, 44)-(619, 67), Box()
|
|
GET (621, 44)-(632, 67), Box(500)
|
|
LINE (500, 200)-(579, 479), 11, BF
|
|
FOR x = 504 TO 574 STEP 15
|
|
FOR y = 216 TO 460 STEP 32
|
|
IF FIX(RND * 6) = 0 THEN
|
|
PUT (x, y), Box(500), PSET
|
|
ELSE
|
|
PUT (x, y), Box(), PSET
|
|
END IF
|
|
LINE (500, y + 27)-(579, y + 27), 9
|
|
LINE (500, y + 28)-(579, y + 28), 8
|
|
NEXT y
|
|
NEXT x
|
|
LINE (500, 200)-(579, 204), 7, BF
|
|
LINE (500, 200)-(579, 200), 9
|
|
LINE (500, 205)-(579, 205), 10
|
|
LINE (520, 189)-(559, 199), 11, BF
|
|
LINE (520, 189)-(559, 192), 7, BF
|
|
LINE (520, 189)-(559, 189), 9
|
|
LINE (520, 193)-(559, 193), 6
|
|
PSET (539, 188), 8
|
|
DRAW "U16 C14 D"
|
|
SaveBUILDING 500, 0, 4 '*************************************************
|
|
|
|
'Factory --------------------------------------------------------------------
|
|
LINE (0, 150)-(639, 479), 0, BF
|
|
LINE (100, 200)-(179, 479), 3, BF
|
|
CIRCLE (120, 220), 10, 15, , , .85
|
|
CIRCLE (120, 219), 12, 15, , , .83
|
|
LINE (105, 222)-(135, 240), 3, BF
|
|
GET (120, 206)-(150, 230), Box()
|
|
PUT (119, 206), Box(), PSET
|
|
PSET (110, 217), 3
|
|
PSET (129, 217), 3
|
|
LINE (129, 220)-(129, 228), 15
|
|
LINE (110, 220)-(110, 228), 15
|
|
DRAW "R19"
|
|
LINE (110, 236)-(129, 252), 15, B
|
|
PSET (108, 220), 15
|
|
DRAW "D34 R23 U34"
|
|
PAINT (119, 220), 2, 15
|
|
PAINT (119, 244), 2, 15
|
|
FOR x = 100 TO 140
|
|
FOR y = 200 TO 260
|
|
IF POINT(x, y) = 15 THEN PSET (x, y), 1
|
|
NEXT y
|
|
NEXT x
|
|
FOR x = 120 TO 140
|
|
FOR y = 216 TO 260
|
|
IF POINT(x, y) = 1 THEN PSET (x, y), 11
|
|
NEXT y
|
|
NEXT x
|
|
LINE (111, 228)-(120, 228), 11
|
|
LINE (111, 236)-(129, 236), 1
|
|
LINE (111, 252)-(129, 252), 11
|
|
LINE (109, 254)-(129, 254), 11
|
|
LINE (124, 213)-(124, 227), 1
|
|
LINE (115, 213)-(115, 227), 1
|
|
LINE (111, 219)-(129, 219), 1
|
|
LINE (115, 236)-(115, 251), 1
|
|
LINE (124, 236)-(124, 251), 1
|
|
LINE (111, 244)-(129, 244), 1
|
|
|
|
GET (120, 205)-(133, 256), Box()
|
|
PUT (118, 205), Box(), PSET
|
|
GET (106, 229)-(131, 253), Box()
|
|
FOR y = 254 TO 450 STEP 25
|
|
PUT (106, y), Box(), PSET
|
|
NEXT y
|
|
GET (106, 202)-(132, 470), Box()
|
|
LINE (106, 202)-(132, 470), 3, BF
|
|
FOR x = 102 TO 158 STEP 25
|
|
PUT (x, 202), Box(), PSET
|
|
NEXT x
|
|
FOR y = 255 TO 455 STEP 50
|
|
LINE (100, y)-(179, y + 3), 3, BF
|
|
LINE (100, y)-(179, y), 11
|
|
LINE (100, y + 3)-(179, y + 3), 1
|
|
NEXT y
|
|
LINE (100, 230)-(104, 234), 3, BF
|
|
LINE (100, 230)-(104, 230), 11
|
|
LINE (100, 234)-(104, 234), 1
|
|
GET (100, 230)-(104, 234), Box()
|
|
FOR x = 100 TO 175 STEP 25
|
|
FOR y = 230 TO 430 STEP 50
|
|
PUT (x, y), Box(), PSET
|
|
NEXT y
|
|
NEXT x
|
|
LINE (120, 190)-(159, 199), 3, BF
|
|
LINE (120, 190)-(159, 193), 6, BF
|
|
LINE (120, 190)-(159, 190), 7
|
|
LINE (120, 194)-(159, 194), 10
|
|
LINE (100, 200)-(179, 204), 6, BF
|
|
LINE (100, 200)-(179, 200), 7
|
|
LINE (100, 205)-(179, 205), 10
|
|
|
|
FOR y = 180 TO 479 STEP 2
|
|
FOR x = 100 TO 179
|
|
IF POINT(x, y) = 3 THEN PSET (x, y), 6
|
|
NEXT x
|
|
NEXT y
|
|
|
|
FOR Reps = 1 TO 30
|
|
x = FIX(RND * 80) + 100
|
|
y = FIX(RND * 280) + 200
|
|
Colr = FIX(RND * 3)
|
|
SELECT CASE Colr
|
|
CASE 0: Colr = 6
|
|
CASE 1: Colr = 7
|
|
CASE 2: Colr = 8
|
|
END SELECT
|
|
FOR xx = x - 6 TO x + 6
|
|
FOR yy = y - 6 TO y + 6
|
|
IF POINT(xx, yy) = 2 THEN PSET (xx, yy), Colr
|
|
NEXT yy
|
|
NEXT xx
|
|
NEXT Reps
|
|
PrintSTRING 212, 184, "B-Bomb Mfg"
|
|
FOR x = 204 TO 280
|
|
FOR y = 184 TO 196
|
|
IF POINT(x, y) <> 0 THEN PSET (x - 100, y), 4
|
|
PSET (x, y), 0
|
|
NEXT y
|
|
NEXT x
|
|
FOR x = 208 TO 270 STEP 5
|
|
FOR y = 185 TO 194 STEP 3
|
|
LINE (x, y)-(x + 5, y + 4), 2, B
|
|
NEXT y
|
|
NEXT x
|
|
FOR x = 208 TO 275
|
|
FOR y = 178 TO 200
|
|
IF POINT(x, y) <> 0 THEN
|
|
IF POINT(x - 101, y + 1) <> 4 THEN PSET (x - 101, y + 1), 6
|
|
PSET (x, y), 0
|
|
END IF
|
|
NEXT y
|
|
NEXT x
|
|
SaveBUILDING 100, 0, 5 '*************************************************
|
|
|
|
'Apescape building -------------------------------------------------------------
|
|
LINE (200, 200)-(279, 479), 8, BF
|
|
LINE (210, 180)-(269, 299), 8, BF
|
|
LINE (220, 180)-(259, 180), 9
|
|
LINE (207, 200)-(272, 200), 9
|
|
CIRCLE (209, 209), 10, 0, 3.14159 * .5, 3.14159
|
|
PAINT (201, 201), 0
|
|
CIRCLE (270, 209), 10, 0, 0, 3.14159 * .5
|
|
PAINT (278, 201), 0
|
|
CIRCLE (219, 190), 10, 0, 3.14159 * .5, 3.14159
|
|
PAINT (211, 181), 0
|
|
CIRCLE (260, 190), 10, 0, 0, 3.14159 * .5
|
|
PAINT (268, 181), 0
|
|
FOR x = 203 TO 277 STEP 4
|
|
FOR y = 180 TO 479
|
|
IF POINT(x, y) = 8 THEN PSET (x, y), 7
|
|
IF POINT(x + 1, y) = 8 THEN PSET (x + 1, y), 7
|
|
NEXT y
|
|
NEXT x
|
|
FOR x = 206 TO 270 STEP 10
|
|
FOR y = 220 TO 460 STEP 36
|
|
LINE (x, y)-(x + 7, y + 26), 8, BF
|
|
LINE (x + 1, y + 1)-(x + 6, y + 22), 2, BF
|
|
LINE (x + 1, y + 1)-(x + 6, y + 6), 1, BF
|
|
NEXT y
|
|
NEXT x
|
|
LINE (239, 158)-(239, 179), 8
|
|
PSET (236, 162), 4
|
|
PSET (242, 162), 4
|
|
FOR x = 217 TO 260 STEP 8
|
|
LINE (x, 190)-(x + 4, 198), 2, BF
|
|
LINE (x, 190)-(x + 4, 193), 1, BF
|
|
NEXT x
|
|
PSET (200, 205), 6
|
|
PSET (205, 200), 6
|
|
PSET (210, 186), 6
|
|
PSET (215, 181), 6
|
|
PSET (219, 180), 8
|
|
PSET (218, 180), 7
|
|
|
|
PSET (279, 205), 6
|
|
PSET (274, 200), 6
|
|
PSET (269, 186), 6
|
|
PSET (264, 181), 6
|
|
|
|
PSET (260, 180), 8
|
|
PSET (261, 180), 7
|
|
|
|
GET (200, 180)-(279, 214), Box()
|
|
PUT (200, 176), Box(), PSET
|
|
GET (200, 180)-(279, 214), Box()
|
|
PUT (200, 175), Box(), PSET
|
|
LINE (206, 200)-(273, 200), 9
|
|
LINE (206, 193)-(206, 200), 6
|
|
LINE (273, 193)-(273, 200), 6
|
|
LINE (214, 175)-(265, 175), 9
|
|
LINE (212, 203)-(267, 216), 8, BF
|
|
LINE (212, 217)-(267, 217), 6
|
|
LINE (212, 203)-(267, 203), 9
|
|
PrintSTRING 217, 203, "apescape"
|
|
FOR x = 217 TO 267
|
|
FOR y = 203 TO 217
|
|
IF POINT(x, y) = 15 THEN PSET (x, y), 1
|
|
NEXT y
|
|
NEXT x
|
|
SaveBUILDING 200, 26, 6
|
|
|
|
'Tenement building ---------------------------------------------------------
|
|
LINE (200, 150)-(279, 479), 0, BF
|
|
RANDOMIZE 4
|
|
CIRCLE (220, 198), 10, 2, 0, 3.14159
|
|
CIRCLE (259, 198), 10, 2, 0, 3.14159
|
|
CIRCLE (220, 198), 7, 2, 0, 3.14159
|
|
CIRCLE (259, 198), 7, 2, 0, 3.14159
|
|
LINE (207, 198)-(210, 198), 2: DRAW "bl3D3r6u3"
|
|
LINE (230, 198)-(233, 198), 2: DRAW "D3l6u3"
|
|
LINE (246, 198)-(249, 198), 2: DRAW "bl3D3r6u3"
|
|
LINE (269, 198)-(272, 198), 2: DRAW "D3l6u3"
|
|
CIRCLE (182, 166), 35, 2, 5.3, 6
|
|
CIRCLE (297, 166), 35, 2, 3.42, 4.16
|
|
LINE (215, 176)-(264, 176), 2
|
|
PSET (200, 195), 2
|
|
DRAW "D4 R7 BR26 R12 BR27 R7 U4 l10 Bl20 l18 Bl20 l11"
|
|
PAINT (240, 190), 1, 2
|
|
PAINT (240, 197), 1, 2
|
|
PAINT (202, 197), 1, 2
|
|
PAINT (277, 197), 1, 2
|
|
FOR y = 168 TO 195 STEP 2
|
|
FOR x = 200 TO 279
|
|
IF POINT(x, y) = 1 THEN PSET (x, y), 2
|
|
NEXT x
|
|
NEXT y
|
|
PAINT (220, 190), 1, 2
|
|
PAINT (259, 190), 1, 2
|
|
LINE (215, 176)-(264, 176), 7
|
|
CIRCLE (220, 198), 10, 7, .5, 2.64159
|
|
CIRCLE (259, 198), 10, 7, .5, 2.64159
|
|
PSET (200, 195), 7
|
|
DRAW "bD4 bR7 BR26 bR12 bBR27 bR7 bU4 l9 Bl22 l17 Bl22 l9"
|
|
FOR x = 215 TO 263 STEP 2
|
|
PSET (x, 174), 7
|
|
PSET (x, 175), 6
|
|
NEXT x
|
|
LINE (213, 198)-(227, 198), 2
|
|
PAINT (220, 197), 1, 2
|
|
CIRCLE (220, 195), 1, 8
|
|
LINE (215, 198)-(225, 217), 2, B
|
|
LINE (216, 199)-(224, 216), 1, BF
|
|
LINE (216, 199)-(224, 216), 6, B
|
|
LINE (220, 199)-(220, 211), 6: DRAW "nL3nR3"
|
|
PAINT (220, 215), 10, 6
|
|
CIRCLE (220, 199), 7, 10, .14, 3, 1.1
|
|
LINE (217, 200)-(219, 201), 10, B
|
|
LINE (221, 200)-(223, 201), 10, B
|
|
LINE (214, 218)-(226, 218), 7
|
|
GET (210, 190)-(230, 220), Box()
|
|
PUT (249, 190), Box(), PSET
|
|
PSET (200, 200), 10: DRAW "R6 D2 R6 BR16 R6 U2 R11 D2 R6 BR16 R6 U2 R6"
|
|
FOR x = 200 TO 279
|
|
FOR y = 200 TO 479 STEP 2
|
|
IF POINT(x, y) = 0 THEN PSET (x, y), 3
|
|
IF POINT(x, y + 1) = 0 THEN PSET (x, y + 1), 1
|
|
NEXT y
|
|
NEXT x
|
|
LINE (236, 202)-(243, 212), 2, B
|
|
PAINT (238, 210), 7, 2
|
|
LINE (237, 203)-(242, 211), 6, B
|
|
LINE (237, 207)-(242, 207), 6
|
|
PAINT (238, 206), 3, 6
|
|
PAINT (238, 208), 5, 6
|
|
LINE (235, 213)-(244, 213), 7
|
|
LINE (238, 204)-(241, 204), 10
|
|
LINE (202, 230)-(220, 234), 10, BF
|
|
LINE (218, 230)-(220, 254), 10, BF
|
|
LINE (259, 230)-(279, 234), 10, BF
|
|
LINE (200, 228)-(279, 229), 2, B
|
|
LINE (200, 229)-(201, 254), 2, B
|
|
LINE (278, 229)-(279, 254), 2, B
|
|
LINE (207, 232)-(212, 242), 6, B
|
|
LINE (208, 233)-(211, 233), 10
|
|
LINE (200, 245)-(220, 254), 2, B
|
|
PAINT (210, 235), 7, 6
|
|
PAINT (210, 235), 3, 6
|
|
LINE (207, 237)-(212, 237), 6
|
|
PAINT (210, 238), 5, 6
|
|
LINE (208, 233)-(211, 233), 10
|
|
LINE (200, 244)-(220, 254), 2, B
|
|
LINE (202, 244)-(220, 244), 7
|
|
LINE (202, 252)-(218, 253), 10, BF
|
|
FOR x = 202 TO 218 STEP 2
|
|
LINE (x, 245)-(x, 254), 2
|
|
NEXT x
|
|
LINE (226, 232)-(236, 246), 1, BF
|
|
LINE (226, 232)-(236, 246), 6, B
|
|
LINE (226, 239)-(236, 239), 6
|
|
LINE (225, 247)-(237, 247), 7
|
|
FOR x = 200 TO 239
|
|
FOR y = 200 TO 279
|
|
PSET (479 - x, y), POINT(x, y)
|
|
NEXT y
|
|
NEXT x
|
|
GET (200, 228)-(279, 258), Box()
|
|
FOR y = 224 TO 450 STEP 32
|
|
PUT (200, y), Box(), PSET
|
|
IF FIX(RND * 12) = 0 THEN
|
|
PAINT (230, y + 6), 3, 6
|
|
PAINT (230, y + 14), 5, 6
|
|
END IF
|
|
IF FIX(RND * 2) = 0 THEN
|
|
PAINT (249, y + 6), 3, 6
|
|
PAINT (249, y + 14), 5, 6
|
|
END IF
|
|
IF FIX(RND * 5) = 0 THEN
|
|
PAINT (210, y + 8), 1, 6
|
|
PAINT (210, y + 11), 7, 6
|
|
END IF
|
|
IF FIX(RND * 2) = 0 THEN
|
|
PAINT (269, y + 8), 1, 6
|
|
PAINT (269, y + 11), 7, 6
|
|
END IF
|
|
LINE (227, y + 5)-(235, y + 5), 10
|
|
LINE (244, y + 5)-(252, y + 5), 10
|
|
LINE (268, y + 5)-(271, y + 5), 10
|
|
LINE (208, y + 5)-(211, y + 5), 10
|
|
NEXT y
|
|
SaveBUILDING 200, 25, 7
|
|
|
|
'Balcony Apartment ----------------------------------------------------------
|
|
LINE (0, 150)-(400, 479), 0, BF
|
|
GET (118, 50)-(133, 76), Box()
|
|
PUT (118, 250), Box()
|
|
LINE (300, 200)-(379, 479), 4, BF
|
|
GET (118, 240)-(133, 260), Box()
|
|
PUT (118, 246), Box(), PSET
|
|
GET (118, 256)-(133, 276), Box(6000)
|
|
PUT (218, 256), Box(6000)
|
|
FOR x = 218 TO 233
|
|
FOR y = 256 TO 276
|
|
IF POINT(x, y) = 1 OR POINT(x, y) = 10 THEN PSET (x, y), 3
|
|
IF POINT(x, y) = 2 THEN PSET (x, y), 5
|
|
NEXT y
|
|
NEXT x
|
|
GET (219, 257)-(232, 276), Box(5000)
|
|
FOR x = 304 TO 360 STEP 18
|
|
IF x = 340 THEN x = 360
|
|
PUT (x, 212), Box(6000), PSET
|
|
NEXT x
|
|
GET (118, 50)-(133, 76), Box()
|
|
PUT (341, 212), Box(), PSET
|
|
GET (340, 224)-(359, 235), Box()
|
|
PUT (340, 230), Box(), PSET
|
|
LINE (329, 242)-(368, 243), 9, B
|
|
LINE (329, 232)-(368, 243), 8, B
|
|
FOR x = 330 TO 368 STEP 2
|
|
LINE (x, 232)-(x, 242), 8
|
|
NEXT x
|
|
LINE (300, 242)-(328, 243), 8, BF
|
|
LINE (369, 242)-(379, 243), 8, BF
|
|
LINE (300, 244)-(379, 244), 6
|
|
FOR x = 301 TO 379 STEP 18
|
|
IF x = 355 THEN x = 357
|
|
LINE (x, 214)-(x + 3, 228), 8, BF
|
|
FOR y = 216 TO 226 STEP 2
|
|
LINE (x + 1, y)-(x + 2, y), 7
|
|
NEXT y
|
|
NEXT x
|
|
GET (300, 212)-(379, 244), Box()
|
|
FOR y = 212 TO 440 STEP 38
|
|
PUT (300, y), Box(), PSET
|
|
NEXT y
|
|
LINE (300, 200)-(379, 204), 8, BF
|
|
LINE (300, 200)-(379, 200), 9
|
|
LINE (300, 205)-(379, 205), 6
|
|
LINE (320, 188)-(359, 199), 11, BF
|
|
LINE (319, 188)-(360, 190), 8, BF
|
|
LINE (320, 191)-(359, 191), 10
|
|
FOR x = 300 TO 379
|
|
FOR y = 200 TO 479
|
|
IF POINT(x, y) = 4 THEN PSET (x, y), 11
|
|
NEXT y
|
|
NEXT x
|
|
FOR y = 188 TO 478 STEP 2
|
|
FOR x = 300 TO 379
|
|
IF POINT(x, y) = 11 THEN PSET (x, y), 3
|
|
NEXT x
|
|
NEXT y
|
|
PSET (363, 199), 7
|
|
DRAW "U24 C15 D"
|
|
FOR x = 305 TO 360 STEP 18
|
|
IF x = 341 THEN x = 361
|
|
FOR y = 213 TO 440 STEP 38
|
|
IF FIX(RND * 10) = 0 THEN PUT (x, y), Box(5000), PSET
|
|
LINE (329, 232)-(368, 232), 15
|
|
NEXT y
|
|
NEXT x
|
|
FOR y = 232 TO 470 STEP 38
|
|
LINE (329, y)-(368, y), 15
|
|
NEXT y
|
|
SaveBUILDING 300, 0, 8
|
|
LINE (0, 150)-(639, 479), 0, BF
|
|
RETURN
|
|
|
|
SetPALETTE:
|
|
DATA 0, 4, 16, 0, 10, 21, 0, 16, 32, 32, 10, 0
|
|
DATA 63, 0, 0, 63, 32, 0, 18, 18, 24, 30, 30, 37
|
|
DATA 42, 42, 50, 55, 55, 63, 0, 0, 0, 43, 27, 19
|
|
DATA 8, 8, 21, 0, 63, 21, 63, 63, 21, 63, 63, 63
|
|
|
|
RESTORE SetPALETTE
|
|
OUT &H3C8, 0
|
|
FOR n = 1 TO 48
|
|
READ Intensity
|
|
OUT &H3C9, Intensity
|
|
NEXT n
|
|
RETURN
|
|
|
|
WinBOXES:
|
|
GET (140, 0)-(256, 18), Box()
|
|
GET (376, 0)-(500, 18), Box(5000)
|
|
GET (520, 0)-(580, 18), Box(10000)
|
|
PUT (198, 200), Box()
|
|
PUT (320, 200), Box(10000)
|
|
PrintSTRING 220, 223, "To play again, press ENTER"
|
|
PrintSTRING 219, 236, "Press any other key to EXIT"
|
|
FOR x = 174 TO 400
|
|
FOR y = 192 TO 254
|
|
IF y > 210 THEN Colr = 8 ELSE Colr = 15
|
|
IF y > 222 THEN Colr = 9
|
|
IF POINT(x, y) = 0 THEN PSET (x, y), 1 ELSE PSET (x, y), Colr
|
|
NEXT y
|
|
NEXT x
|
|
FOR y = 224 TO 200 STEP -1
|
|
FOR x = 174 TO 400
|
|
IF POINT(x, y - 2) <> 1 AND POINT(x, y) = 1 THEN PSET (x, y), 10
|
|
NEXT x
|
|
NEXT y
|
|
LINE (176, 194)-(398, 252), 6, B
|
|
LINE (174, 192)-(400, 254), 6, B
|
|
GET (174, 192)-(400, 254), Box()
|
|
LINE (170, 188)-(404, 258), 8, BF
|
|
LINE (170, 188)-(404, 258), 15, B
|
|
LINE (170, 258)-(404, 258), 10
|
|
LINE (404, 188)-(404, 258), 10
|
|
PUT (174, 192), Box(), PSET
|
|
GET (170, 188)-(404, 258), Box()
|
|
DEF SEG = VARSEG(Box(1))
|
|
BSAVE "kongwink.bsv", VARPTR(Box(1)), 9000
|
|
DEF SEG
|
|
LINE (177, 197)-(394, 222), 1, BF
|
|
PUT (196, 200), Box(5000)
|
|
PUT (324, 200), Box(10000)
|
|
FOR y = 224 TO 200 STEP -1
|
|
FOR x = 190 TO 382
|
|
IF y > 210 THEN Colr = 8 ELSE Colr = 15
|
|
IF POINT(x, y - 2) <> 1 THEN PSET (x, y - 2), Colr
|
|
NEXT x
|
|
NEXT y
|
|
FOR y = 224 TO 200 STEP -1
|
|
FOR x = 174 TO 400
|
|
IF POINT(x, y - 2) <> 1 AND POINT(x, y) = 1 THEN PSET (x, y), 10
|
|
NEXT x
|
|
NEXT y
|
|
GET (196, 200)-(386, 220), Box()
|
|
PUT (195, 200), Box(), PSET
|
|
GET (170, 188)-(404, 258), Box()
|
|
PUT (170, 188), Box()
|
|
DEF SEG = VARSEG(Box(1))
|
|
BSAVE "kongwiny.bsv", VARPTR(Box(1)), 9000
|
|
DEF SEG
|
|
RETURN
|
|
|
|
Instructions:
|
|
LINE (192, 160)-(447, 310), 8, BF
|
|
LINE (192, 160)-(447, 310), 15, B
|
|
LINE (192, 310)-(447, 310), 10
|
|
LINE (447, 160)-(447, 310), 10
|
|
LINE (202, 164)-(436, 305), 1, BF
|
|
LINE (202, 164)-(436, 305), 6, B
|
|
LINE (204, 166)-(434, 303), 6, B
|
|
LINE (400, 175)-(424, 187), 7, BF
|
|
PrintSTRING 216, 176, "INSTRUCTIONS"
|
|
PrintSTRING 216, 194, "The object of the game is to be the first"
|
|
PrintSTRING 216, 206, "player to achieve a score of 3. You gain"
|
|
PrintSTRING 216, 218, "1"
|
|
PrintSTRING 225, 218, "point each time you blow up the other"
|
|
PrintSTRING 216, 230, "player's gorilla with an exploding banana."
|
|
PrintSTRING 216, 248, "Unless playing the computer, begin by"
|
|
PrintSTRING 216, 260, "deciding which player will control which"
|
|
PrintSTRING 216, 272, "gorilla, then click the"
|
|
PrintSTRING 340, 272, "button to begin."
|
|
PrintSTRING 216, 284, "The starting gorilla is chosen at random."
|
|
FOR x = 207 TO 431
|
|
FOR y = 167 TO 295
|
|
IF y < 194 THEN Colr = 9 ELSE Colr = 8
|
|
IF y < 181 THEN Colr = 15
|
|
IF POINT(x, y) <> 1 THEN PSET (x, y), Colr
|
|
NEXT y
|
|
NEXT x
|
|
HighLIGHT 354, 206, 362, 217, 9
|
|
HighLIGHT 216, 218, 222, 229, 9
|
|
PSET (404, 184), 6
|
|
DRAW "U6 R12 U2 F5 G5 U2 L12 BE2 P6,6"
|
|
LINE (321, 275)-(332, 281), 8, BF
|
|
LINE (321, 282)-(332, 282), 10
|
|
LINE (323, 278)-(330, 278), 1: DRAW "NH2G2"
|
|
SaveINSTR "kongins1.bsv"
|
|
LINE (205, 193)-(433, 295), 1, BF
|
|
PrintSTRING 216, 194, "When a player's gorilla is the thrower,"
|
|
PrintSTRING 216, 206, "the LED will be green under his name (and"
|
|
PrintSTRING 216, 218, "he'll be holding a banana). Click on the"
|
|
PrintSTRING 216, 230, "Angle slider and drag it to adjust the initial"
|
|
PrintSTRING 216, 242, "throwing angle (0 degrees is a horizontal"
|
|
PrintSTRING 216, 254, "throw in the other gorilla's direction). Set"
|
|
PrintSTRING 216, 266, "the Force slider in the same way. To toss"
|
|
PrintSTRING 216, 278, "the banana, click the Banana button"
|
|
PrintSTRING 410, 278, "."
|
|
HighLIGHT 216, 194, 434, 295, 8
|
|
HighLIGHT 234, 206, 254, 217, 9
|
|
HighLIGHT 216, 230, 244, 241, 9
|
|
HighLIGHT 236, 266, 264, 277, 9
|
|
HighLIGHT 322, 278, 360, 299, 9
|
|
LINE (204, 166)-(434, 303), 6, B
|
|
GET (99, 80)-(109, 90), Box()
|
|
PUT (397, 279), Box(), PSET
|
|
SaveINSTR "kongins2.bsv"
|
|
LINE (205, 193)-(433, 295), 1, BF
|
|
PrintSTRING 216, 194, "Be sure to check the Wind arrow (bottom"
|
|
PrintSTRING 216, 206, "center of the screen). The arrow shows both"
|
|
PrintSTRING 216, 218, "the direction and strength of the wind (the"
|
|
PrintSTRING 216, 230, "longer the arrow, the stronger the wind). A"
|
|
PrintSTRING 216, 242, "strong opposing wind can actually blow the"
|
|
PrintSTRING 216, 254, "banana backwards if the Force of the toss"
|
|
PrintSTRING 216, 266, "isn't strong enough!"
|
|
PrintSTRING 348, 282, "Good Luck!"
|
|
HighLIGHT 216, 194, 434, 295, 8
|
|
HighLIGHT 320, 194, 348, 205, 9
|
|
HighLIGHT 348, 282, 420, 294, 15
|
|
LINE (400, 175)-(424, 187), 15, BF
|
|
LINE (400, 182)-(424, 187), 9, BF
|
|
PSET (406, 177), 4
|
|
DRAW "F8rH8rF8rH8rF8 BU8 G8lE8lG8lE8lG8"
|
|
FOR x = 400 TO 424
|
|
FOR y = 175 TO 187
|
|
IF POINT(x, y) <> 15 AND POINT(x, y) <> 9 THEN PSET (x, y), 6
|
|
NEXT y
|
|
NEXT x
|
|
LINE (204, 166)-(434, 303), 6, B
|
|
SaveINSTR "kongins3.bsv"
|
|
PUT (192, 160), Box()
|
|
LINE (180, 194)-(400, 270), 7, BF
|
|
LINE (180, 194)-(400, 270), 9, B
|
|
LINE (180, 270)-(400, 270), 6
|
|
LINE (400, 194)-(400, 270), 6
|
|
LINE (194, 198)-(384, 266), 1, BF
|
|
LINE (196, 200)-(382, 264), 6, B
|
|
PrintSTRING 238, 208, "Click Your Preference"
|
|
PrintSTRING 252, 227, "2 players"
|
|
PrintSTRING 252, 243, "1 player (play computer)"
|
|
HighLIGHT 238, 208, 380, 255, 9
|
|
HighLIGHT 238, 208, 380, 214, 15
|
|
LINE (215, 227)-(241, 239), 10, B
|
|
LINE (216, 228)-(240, 238), 8, BF
|
|
LINE (216, 228)-(240, 238), 15, B
|
|
LINE (240, 228)-(240, 238), 6
|
|
LINE (216, 238)-(240, 238), 6
|
|
LINE (215, 243)-(241, 255), 10, B
|
|
LINE (216, 244)-(240, 254), 8, BF
|
|
LINE (216, 244)-(240, 254), 15, B
|
|
LINE (240, 244)-(240, 254), 6
|
|
LINE (216, 254)-(240, 254), 6
|
|
GET (180, 194)-(400, 270), Box()
|
|
PUT (180, 194), Box()
|
|
DEF SEG = VARSEG(Box(1))
|
|
BSAVE "kong1pl2.bsv", VARPTR(Box(1)), 8800
|
|
DEF SEG
|
|
LINE (180, 194)-(400, 270), 7, BF
|
|
LINE (180, 194)-(400, 270), 9, B
|
|
LINE (180, 270)-(400, 270), 6
|
|
LINE (400, 194)-(400, 270), 6
|
|
LINE (194, 198)-(384, 266), 1, BF
|
|
LINE (196, 200)-(382, 264), 6, B
|
|
PrintSTRING 256, 207, "Your gorilla is"
|
|
PrintSTRING 236, 243, "Click to begin"
|
|
HighLIGHT 233, 207, 380, 257, 9
|
|
FOR x = 138 TO 256
|
|
FOR y = 0 TO 20
|
|
IF y > 9 THEN Colr = 8 ELSE Colr = 15
|
|
IF POINT(x, y) <> 0 THEN
|
|
PSET (x + 92, y + 223), 10
|
|
PSET (x + 92, y + 221), Colr
|
|
END IF
|
|
NEXT y
|
|
NEXT x
|
|
LINE (311, 244)-(337, 253), 10, B
|
|
LINE (312, 245)-(336, 255), 8, BF
|
|
LINE (312, 245)-(336, 255), 15, B
|
|
LINE (336, 245)-(336, 255), 6
|
|
LINE (312, 255)-(336, 255), 6
|
|
PSET (318, 249), 1
|
|
DRAW "R9 U2 F3 G3 U2 L9 U2 BF P1,1"
|
|
GET (180, 194)-(400, 270), Box()
|
|
PUT (180, 194), Box()
|
|
DEF SEG = VARSEG(Box(1))
|
|
BSAVE "kong1plr.bsv", VARPTR(Box(1)), 8800
|
|
DEF SEG
|
|
LINE (180, 194)-(400, 270), 7, BF
|
|
LINE (180, 194)-(400, 270), 9, B
|
|
LINE (180, 270)-(400, 270), 6
|
|
LINE (400, 194)-(400, 270), 6
|
|
LINE (194, 198)-(384, 266), 1, BF
|
|
LINE (196, 200)-(382, 264), 6, B
|
|
PrintSTRING 234, 214, "Decide who will control"
|
|
PrintSTRING 234, 226, "which gorilla and then..."
|
|
PrintSTRING 236, 243, "Click to begin"
|
|
HighLIGHT 225, 212, 380, 257, 9
|
|
LINE (311, 244)-(337, 253), 10, B
|
|
LINE (312, 245)-(336, 255), 8, BF
|
|
LINE (312, 245)-(336, 255), 15, B
|
|
LINE (336, 245)-(336, 255), 6
|
|
LINE (312, 255)-(336, 255), 6
|
|
PSET (318, 249), 1
|
|
DRAW "R9 U2 F3 G3 U2 L9 U2 BF P1,1"
|
|
GET (180, 194)-(400, 270), Box()
|
|
PUT (180, 194), Box()
|
|
DEF SEG = VARSEG(Box(1))
|
|
BSAVE "kongopen.bsv", VARPTR(Box(1)), 8800
|
|
DEF SEG
|
|
RETURN
|
|
|
|
SUB HighLIGHT (x1, y1, x2, y2, Colr)
|
|
FOR x = x1 TO x2
|
|
FOR y = y1 TO y2
|
|
IF POINT(x, y) <> 1 THEN PSET (x, y), Colr
|
|
NEXT y
|
|
NEXT x
|
|
END SUB
|
|
|
|
SUB PrintSTRING (x, y, Prnt$)
|
|
|
|
DEF SEG = VARSEG(FontBOX(0))
|
|
BLOAD "kong.fbs", VARPTR(FontBOX(0))
|
|
DEF SEG
|
|
|
|
FOR i = 1 TO LEN(Prnt$)
|
|
Char$ = MID$(Prnt$, i, 1)
|
|
IF Char$ = " " THEN
|
|
x = x + FontBOX(1)
|
|
ELSE
|
|
Index = (ASC(Char$) - 33) * FontBOX(0) + 2
|
|
|
|
PUT (x, y), FontBOX(Index)
|
|
x = x + FontBOX(Index)
|
|
END IF
|
|
NEXT i
|
|
|
|
END SUB
|
|
|
|
SUB SaveBUILDING (x, UpSET, Building)
|
|
|
|
Box(1) = UpSET
|
|
LINE (x, 155)-(x, 479), 0
|
|
LINE (x + 79, 155)-(x + 79, 479), 0
|
|
GET (x, 155)-(x + 79, 199), Box(2)
|
|
FOR xx = x TO x + 79
|
|
FOR yy = 155 TO 199
|
|
IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0
|
|
NEXT yy
|
|
NEXT xx
|
|
GET (x, 155)-(x + 79, 199), Box(1000)
|
|
GET (x, 200)-(x + 79, 479), Box(2000)
|
|
FileNAME$ = "kongbld" + LTRIM$(STR$(Building)) + ".bsv"
|
|
DEF SEG = VARSEG(Box(1))
|
|
BSAVE FileNAME$, VARPTR(Box(1)), 16000
|
|
DEF SEG
|
|
|
|
END SUB
|
|
|
|
SUB SaveINSTR (FileNAME$)
|
|
GET (192, 160)-(447, 310), Box()
|
|
DEF SEG = VARSEG(Box(1))
|
|
BSAVE FileNAME$, VARPTR(Box(1)), 20000
|
|
DEF SEG
|
|
END SUB
|
|
|