Jump to content
Bones-69

Egg The Hooker

Recommended Posts

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...