Egg The Hooker

[Bones-69]

Bug fixed in line 23630. The girls and pimp now also change direction from time to time....

 

1 ! UPDATE #18: 13/12/2010  FIXED BUG
100 ! EGG THE HOOKER
110 ! WRITTEN BY BONES
120 ! NOVEMBER 2010
130 !
140 DIM Z$(4),X$(68),R(100),S(8,5,5)
200 CALL INIT :: CALL LOAD(-31806,16) :: CALL MAGNIFY(3) :: RANDOMIZE :: CALL CLEAR :: GOSUB 24000
210 CALL CLEAR :: FOR I=1 TO 14 :: READ A,B :: CALL COLOR(I,A,B) :: NEXT I
220 FOR I=32 TO 84 STEP 4 :: READ A$ :: CALL CHAR(I,A$) :: NEXT I
230 DISPLAY AT(5,:"EGG THE HOOKER" :: DISPLAY AT(8,12)BEEP:"LOADING"
240 FOR I=88 TO 143 STEP 4 :: READ A$ :: CALL CHAR(I,A$) :: NEXT I
250 FOR I=1 TO 100 :: R(I)=RND :: NEXT I
400 Z(1)=1 :: Z(2)=2 :: Z(3)=31 :: Z(4)=32
410 RESTORE 30370 :: FOR I=1 TO 68 :: READ X$(I) :: NEXT I :: RESTORE 30600
420 A=0 :: FOR I=1 TO 8 STEP 2 :: A=A+1 :: S(I,2,2)=A :: S(I+1,2,2)=A :: READ B,C :: S(I,3,3)=B :: S(I+1,3,3)=C
430 S(I,4,4)=2 :: S(I+1,4,4)=2 :: NEXT I :: S(8,4,4)=4
1000 CALL CLEAR :: A=1 :: B=24 :: RESTORE 30290 :: GOSUB 20000 :: GOSUB 23000 :: GOSUB 20100
1010 RESTORE 30530 :: FOR I=1 TO 8 :: READ A,B,C,D,E,F,G :: CALL SPRITE(#A,B,C,D,E,F,G) :: NEXT I
2200 GOSUB 23500 :: GOSUB 25000 :: GOSUB 25400
2210 IF W1<>0 THEN W1=W1+1 :: IF W1=5 THEN CALL CHAR(42,X$(57)) :: W1=0
2220 H2=H2+1 :: RN=RN+1 :: IF RN>100 THEN RN=1
2300 GOSUB 24400 :: GOSUB 24700 :: GOTO 2200
20000 ! DRAW GAME SCREEN
20010 CALL SCREEN(2)
20020 !
20030 FOR I=A TO B :: READ A$ :: FOR D=1 TO 4 :: CALL HCHAR(I,Z(D),ASC(SEG$(A$,Z(D),1))) :: NEXT D
20040 DISPLAY AT(I,1):SEG$(A$,3,28) :: NEXT I :: RETURN
20100 ! UPDATE SCORES
20110 FOR I=1 TO 8 :: IF S(I,5,5)=0 THEN 20140
20120 A=S(I,4,4)-LEN(STR$(S(I,1,1))) :: B$=STR$(S(I,1,1)) :: B$=RPT$("0",A)&B$
20130 DISPLAY AT(S(I,2,2),S(I,3,3))SIZE(S(I,4,4)):B$ :: S(I,5,5)=0
20140 NEXT I :: RETURN
22999 ! RESET VARIABLES
23000 RESTORE 31000 :: FOR I=1 TO 8 :: READ A :: S(I,1,1)=A :: S(I,5,5)=1 :: NEXT I
23010 X=100 :: Y=176 :: W1,C1,@,H2=0 :: H=1
23020 H3=(RND*300)+200 :: RETURN
23499 ! ROBOT CONTROLS
23500 CALL KEY(0,A,B) :: IF A=13 THEN 23800 ELSE IF A<8 OR A>11 THEN RETURN
23520 B=1 :: W=0 :: ON A-7 GOSUB 23600,23600,23700,23700
23540 CALL LOCATE(#1,Y,X) :: IF W=1 THEN W1=1 :: CALL CHAR(42,X$(58)) :: W=0
23550 RETURN
23600 ! HORIZONTAL CONTROL
23610 IF Y<176 AND Y>84 THEN W=1 :: RETURN
23620 IF A=8 THEN B=-1
23630 X=X+B :: IF X<1 THEN X=256 ELSE IF X>256 THEN X=1
23640 RETURN
23699 ! VERTICAL CONTROL
23700 IF Y=84 AND A=11 THEN W=1 :: RETURN
23710 IF Y=176 AND A=10 THEN W=1 :: RETURN
23720 IF A=11 THEN B=-1
23730 IF X<161 AND X>153 AND A=11 THEN Y=Y+B :: X=158 :: GOTO 23760
23740 IF X<161 AND X>153 AND A=10 THEN Y=Y+B :: X=158 :: GOTO 23760
23750 W=1 :: RETURN
23760 IF A=11 AND Y=91 THEN Y=84 ELSE IF A=10 AND Y=170 THEN Y=176
23770 RETURN
23799 ! FIRE
23800 CALL SOUND(500,500,0) :: RETURN
23999 ! SPEED SETTING
24000 PRINT "THIS GAME PLAYS BEST ON C99 USING THE CPU OVERDRIVE     SETTING."
24010 PRINT :: PRINT RPT$("_",28) :: PRINT
24020 !
24025 !
24030 !
24399 ! COINC CHECK
24400 RETURN
24410 !
24420 !
24430 !
24699 ! HOOKER & PIMP DIRECTION CHANGE
24700 IF H2<H3 THEN RETURN
24710 IF H=1 THEN H=2 :: A=129 :: B=61 :: GOTO 24730
24720 IF H=2 THEN H=1 :: A=135 :: B=143
24730 CALL PATTERN(#8,A,#9,A,#10,B)
24740 IF H=2 THEN CALL MOTION(#10,0,-2,#9,0,-2,#8,0,-2)ELSE CALL MOTION(#8,0,2,#9,0,2,#10,0,2)
24750 H2=0 :: H3=(RND*300)+200 :: RETURN
24999 ! EFFECT EVENTS
25000 C1=C1+1 :: IF C1>991 THEN C1=1 :: RETURN
25005 IF C1/18<>INT(C1/18)THEN RETURN
25010 IF C1/108=INT(C1/108)THEN CALL CHAR(42,X$(56))! FATHER BLINK
25030 IF C1/126=INT(C1/126)THEN CALL CHAR(40,X$(52))! SON BLINK
25050 IF @=0 AND C1/18=INT(C1/18)THEN CALL CHAR(102,X$(60)) :: @=1! LIGHT OFF
25060 IF @=1 AND C1/36=INT(C1/36)THEN CALL CHAR(102,X$(59)) :: @=0! LIGHT ON
25070 IF C1/414=INT(C1/414)THEN CALL HCHAR(7,17,98,2) :: CALL HCHAR(8,17,99,2)! LEFT LIGHT RED
25080 IF C1/990=INT(C1/990)THEN CALL HCHAR(7,17,113,2) :: CALL HCHAR(8,17,112,2)! LEFT LIGHT YELLOW
25090 IF C1/612=INT(C1/612)THEN CALL HCHAR(7,24,113,2) :: CALL HCHAR(8,24,112,2)! RIGHT LIGHT YELLOW
25100 IF C1/810=INT(C1/810)THEN CALL HCHAR(7,24,98,2) :: CALL HCHAR(8,24,99,2)! RIGHT LIGHT RED
25110 IF C1/108=INT(C1/108)THEN CALL CHAR(42,X$(55))! FATHER OPEN EYES
25120 IF C1/126=INT(C1/126)THEN CALL CHAR(40,X$(51))! SON OPEN EYES
25130 RETURN
25399 ! HOOKER & PIMP ANIMATION
25400 H1=H1+1 :: IF H1=11 THEN H1=1
25410 IF H=1 THEN CALL CHAR(135,X$(H1),143,X$(H1+20)) :: RETURN
25420 CALL CHAR(129,X$(H1+10),61,X$(H1+30)) :: RETURN
30000 DATA 7,2,16,2,4,2,4,2,4,2,4,2,4,2,14,15,10,2,8,6,2,12,15,2,14,2,2,16
30010 DATA 00000000000000000000FFFFFFFFFFFF0000FFC7A3C9B3FFFFFFFFFFFFFFFFFF
30020 DATA 0000070F1F3F7FFF00000000000102040000E0F0F8FCFEFF000000007E81FFFF
30030 DATA 7C68FEFE6C303C7C00000828383060C00000003C6A7F6E303C387ADDDDEAF47C
30040 DATA 90FF90147C14101000000000F80000000000007E0000000000FF00FF00000000
30050 DATA 003E63676B73633E000C1C0C0C0C0C3F003E63630E38637F003E63630E63633E
30060 DATA 00060E1E267F0606007F63607E03633E003E63607E63633E007F63060C18183C
30070 DATA 003E63633E63633E003E63633F03633E0000181800001818000000000000387F
30080 DATA 071F0B1F0E061F3B7FDB9F0F0909091B00800018242424A0E060202020202000
30090 DATA 0018181818001818001C36637F636363006E73637E63637E001E33606060331E
30100 DATA 006C76636363667C007F31303C30317F007F31303C303078001E33606763371D
30110 DATA 006363637F636363003C18181818183C001F06060606663C0066666C786C6763
30120 DATA 007830606063637E0063777F6B6363630063737B6F676363001C36636363361C
30130 DATA 006E73637E606060001C36636B67361D006E73637E6C6663003E63603E03633E
30140 DATA 007E5A181818183C007333636363763C00336363361C7870007333636B7F7763
30150 DATA AD7FC65ED25AC27F5AFF8DB58DADB4FFB5FEE3EEE3FA23FE0000000000000000
30160 DATA 00000000000000000000000000000000060D0D0B060000000000000000000000
30170 DATA FFFF000000000000000000000000FFFF0000007E7E7E7E00007E7E7E7E7E7E00
30180 DATA 007E5662466A7E000810F8A8F8F80000003C1800000000000000007E5A767E00
30190 DATA 02FF202020FF020201FF212121FF010180FF848484FF808002FF7C7C7CFF0202
30200 DATA 002100084000240002D1048A248112020291347E3C9D280202F12C2E26F00202
30210 DATA FF818181818181FFFFFFFF81818181FFFFFFFF81FFFF81FFFF81A99DB99581FF
30220 DATA 040F1B0F0C077F535F4CA7AC073F6B3F80C060CACE84FC20E0C080C080F058F0
30230 DATA FFFF00000000FFFF041F31777377311F00FF187B4A6B08FF20F8C4DE467644F8
30240 DATA 0000001F2026273F20232038577C543800000000804020F80601011DEA3E2A1C
30250 DATA 070F0C163C1C040E1D0C07060A1266AA80C0C0C0602030100080000000000000
30260 DATA 0103030306040C080001000000000000E0F030683C382070B830E06050486655
30270 DATA 00000000000000000B0B397FFFCF48300000000000000000000004FCFCC84830
30280 DATA 00010018242424050706040404040400E0F8D0F87060F8DCFEDBF9F0909090D8
30290 DATA "HOOKERS EGGED:00  HO WHACKS:00  ","PIMP BASHINGS:00  ACCIDENTS:00  ","BULLET WOUNDS:00  EGGS LEFT:00 ,"
30300 DATA "BATTERV LIFE :00  SCORE:0000  ',","$!!!!!!!!!!&$!!!!!!!!!!!!!!!&$##","hhhhhhhhhhhijhhkhhhohhhhhhhhijhh"
30310 DATA "phhhhh*%;  ijgbhbbhhnmhbbkrrnjpp","phhhhh+e(  ijcdhcchhhkhcchpsijpp","hhyz{hhhhhhinlhohhhXYZhhonmkijhh"
30320 DATA "ph   hpphppijqqhqqhf $hrrhbgijpp","ph   hpphppijppkpph $!hpphccijpp","hh   hhhhhhijkhhhhh$!!hhhkhhijhh"
30330 DATA "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\","```````````````````xxx``````````","                   xxx          "
30340 DATA "                   xxx          ","////////////////// xxx /////////","                   xxx          "
30350 DATA " .   .   .   .   . xxx .   .   .","                   xxx          "," .   .   .   .   . xxx .   .   ."
30360 DATA "                   xxx          ","aaaaaaaaaaaaaaaaaaaxxxaaaaaaaaaa","\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
30369 !135 HOOKER RIGHT WALK X$(1-10)
30370 DATA B830E060DC86C5A0,B830E162DF80C0A0,B932E778C080C0A0,B830E162DF80C0A0,B830E060DC86C5A0
30380 DATA B830E06010206058,B830E06030D05894,B830A060D0901814,B830E06030D05894,B830E06010206058
30389 !129 HOOKER LEFT WALK X$(11-20)
30390 DATA 1D0C07063B61A305,1D0C8746FB010305,9D4CE71E03010305,1D0C8746FB010305,1D0C07063B61A305
30400 DATA 1D0C07060804061A,1D0C07060C0B1A29,1D0C05060B091828,1D0C07060C0B1A29,1D0C07060804061A
30409 !143 PIMP RIGHT WALK X$(21-30)
30410 DATA FEDBF9F0909090D8,FEDBF9F020B0480C,FEDBF9F0A0B24CC0,FEDBF9F2BE8040C0,FEDBF9F25E204060
30420 DATA FEDBF9F25E241C00,FEDBF9F0D8643300,FEDBF9F0D8484C60,FEDBF9F0908A84E0,FEDBF9F05088886C
30429 !61 PIMP LEFT WALK X$(31-40)
30430 DATA 7FDB9F0F0909091B,7FDB9F0F040D1230,7FDB9F0F054D3203,7FDB9F4F7D010203,7FDB9F4F7A040206
30440 DATA 7FDB9F4F7A243800,7FDB9F0F1B26CC00,7FDB9F0F1B123206,7FDB9F0F09512107,7FDB9F0F0A111136
30449 !118 ROBOT LOWER & RAISE ARM X$(41-50)
30450 DATA 80C060CACE84FC20,80C060C0C083FE23,80C060C0C086FC26,80C060C0C098F038,80C060C0C080F030
30459 !37 ANTENNA DOWN-UP X$(68)
30460 DATA 80C060C0C080F030,80C060C0C098F038,80C060C0C086FC26,80C060C0C083FE23,80C060CACE84FC20
30469 !40 SON BLINK X$(51,52) + SMILE & UNHAPPY X$(53,54)
30470 DATA 7C68FEFE6C303C7C,7C7CFEFE6C303C7C,7C68FEFE6C303C7C,7C68FEFE7C203C7C
30479 !42 FATHER BLINK X$(55,56) + SMILE & UNHAPPY X$(57,58)
30480 DATA 0000003C6A7F6E30,0000003C7E7F6E30,0000003C6A7F6E30,0000003C6A7F7E20
30489 !102 RED LIGHT ON & OFF X$(59,60)
30490 DATA 003C180000000000,0
30499 !37 ANTENNA UP-DOWN X$(61-64)
30500 DATA 0000000000010204,0000000000000204,0000000000000004,0
30510 !37 ANTENNA DOWN-UP X$(65-68)
30520 DATA 0,0000000000000004,0000000000000204,0000000000010204
30529 ! SPRITE DATA
30530 DATA 1,116,13,176,100,0,0,3,136,7,158,100,0,-12,4,136,14,158,130,0,-12,5,136,3,143,100,0,-18
30540 DATA 6,136,5,128,100,0,-5,8,132,14,84,100,0,2,9,132,14,84,70,0,2,10,140,2,84,10,0,2
30599 ! DISPLAY AT POS
30600 DATA 13,27,13,27,13,27,13,23
30999 ! INTIALIZE S(#,1,1)
31000 DATA 0,0,0,0,0,12,99,0