Peter Cottontail's Egg Hunt

xabin · March 14, 2019

Does anyone have, or remember, the game Peter Cottontail's Egg Hunt for the TI-99/4A? That seems to be my boyfriend's favorite game, since he talks a lot about it in regard to the computer.

HOME AUTOMATION · March 14, 2019

HOME AUTOMATION · March 14, 2019

If you want to type it in... :-D

10 @=1 :: _=2 :: OPTION BASE 1 :: DIM A(10,10),B(2,2),C(2)
20 DATA 33,0107070F075F7FFF,35,C0C0E0CAFCFCFEFF,40,0000081408,41,0,91,0C1831FE31180C
30 DATA 96,F8E0A0000080E0F8,97,1F0701000001030F,104,007F7F7F7F7F7F7F00FEFEFEFEFEFEFE7F7F7F7F7F7F7F00FEFEFEFEFEFEFE
40 DATA 92,061F3B72E7C7C341030F1B3307071E3E30FCEEA773F363C2E0F8ECE6F0703C3E
50 DATA 100,030F3D3173632100071D0103071E3C0018FEF753BBFBF3E2F0F8ECE6F0303C3E
60 DATA 108,187FEFCADDDFCF470F1F37670F0C3C7CC0F0BC8CCEC68400E0B880C0E0783C
70 DATA 112,183C3C7E7E7E3C,116,0000000001030307070F0E1C18100000000000C0E0F0F0E08
80 DATA 124,0,125,0,126,00140E1605020504,127,0
90 DATA 128,0100000F00121200001212001F000003800000F00048480000484800F80000C0
100 DATA 132,00030000120D000000002D1200000F0000C0000048B000000000B4480000F
110 DATA 136,0000070000002D12122D0000001F00000000E0000000B44848B4000000F8
120 DATA 140,000000000D00002D2D00000D0000000000000000B00000B4B40000B
130 CALL CLEAR :: CALL MAGNIFY(4) :: RESTORE 20 :: CALL SCREEN(14) :: DISPLAY AT(12,:"INITIALIZING..." :: FOR D=@ TO 21 :: READ E,A$ :: CALL CHAR(E,A$) :: NEXT D
140 CALL CLEAR :: FOR D=@ TO 12 :: CALL COLOR(D,@,@) :: NEXT D :: CALL HCHAR(23,@,112,128) :: CALL VCHAR(@,31,112,96)
150 DISPLAY AT(6,4):"PUBLIC DOMAIN SOFTWARE" :: DISPLAY AT(12,11):"df    ln" :: DISPLAY AT(13,11):"eg    mo" :: DISPLAY AT(17,_):"PETER COTTONTAILS EGG HUNT" :: DISPLAY AT(19,11):"BY JET ["
160 CALL HCHAR(8,11,112,12) :: CALL HCHAR(15,11,112,12) :: CALL VCHAR(9,11,112,6) :: CALL VCHAR(9,22,112,6)
170 FOR D=@ TO 4 :: CALL SPRITE(#D,124+4*D,@,73,113) :: NEXT D :: CALL COLOR(3,_,@,4,_,@,5,_,@,6,_,@,7,_,@,8,_,@,9,_,@)
180 CALL COLOR(10,16,@,11,16,5) :: CALL COLOR(#3,16) :: CALL B([) :: FOR D=3 TO 16 :: CALL VCHAR(3,D,32,20) :: CALL VCHAR(3,33-D,32,20) :: NEXT D
190 CALL DELSPRITE(ALL) :: CALL MAGNIFY(3) :: CALL SCREEN(11)
200 DISPLAY AT(8,_):"1ST PLAYERS INITIALS" :: ACCEPT AT(8,24)SIZE(3)VALIDATE(UALPHA):A$ :: DISPLAY AT(12,_):"2ND PLAYERS INITIALS" :: ACCEPT AT(12,24)SIZE(3)VALIDATE(UALPHA):B$
210 DISPLAY AT(16,_):"1 GRID OR 0 NO GRID  1" :: ACCEPT AT(16,23)SIZE(-@)VALIDATE("01"):C$ :: F=VAL(C$) :: DISPLAY AT(20,_):"RELEASE ALPHA LOCK NOW" :: FOR D=@ TO 1000 :: NEXT D :: C(@),C(_),G=[
220 CALL CLEAR :: FOR D=@ TO 12 :: CALL COLOR(D,@,@) :: NEXT D :: PRINT: : :" PETER COTTONTAILS EGG HUNT": :" !# hihihihihihihihihihi"
230 PRINT "!)(#jkjkjkjkjkjkjkjkjkjk":"(`a)hihihihihihihihihihi":")))(jkjkjkjkjkjkjkjkjkjk":"    hihihihihihihihihihi"
240 PRINT "  1 jkjkjkjkjkjkjkjkjkjk 10":"  2 hihihihihihihihihihi 9":"  3 jkjkjkjkjkjkjkjkjkjk 8":"  4 hihihihihihihihihihi 7"
250 PRINT "  5 jkjkjkjkjkjkjkjkjkjk 6":"  6 hihihihihihihihihihi 5":"  7 jkjkjkjkjkjkjkjkjkjk 4":"  8 hihihihihihihihihihi 3"
260 PRINT "  9 jkjkjkjkjkjkjkjkjkjk 2":" 10 hihihihihihihihihihi 1":"    jkjkjkjkjkjkjkjkjkjk":"    hihihihihihihihihihi !#"
270 PRINT "    jkjkjkjkjkjkjkjkjkjk!)(#":"    hihihihihihihihihihi(`a)":"    jkjkjkjkjkjkjkjkjkjk)))(" :: CALL COLOR(@,3,5,_,16,3,3,_,5,4,_,5)
280 CALL COLOR(5,16,5,6,16,5,7,16,5,8,16,5,9,3,_,10,14,14-_*F,11,16,5) :: DISPLAY AT(8,@)SIZE(3):A$ :: DISPLAY AT(19,26)SIZE(3):B$
290 CALL A(A(,)) :: CALL DELSPRITE(ALL) :: CALL SPRITE(#@,92,_,25,49,#_,92,16,169,193) :: B(@,@)=25 :: B(@,_)=49 :: B(_,@)=169 :: B(_,_)=193
300 G=G+@ :: IF G=3 THEN G=@
310 FOR D=_ TO 16 STEP 3 :: CALL SOUND(@,110*D,D,110*(17-D),17-D) :: CALL COLOR(#G,D) :: NEXT D :: CALL COLOR(#G,16+14*(G=@))
320 CALL JOYST(G,E,D) :: IF D=[ AND E=[ THEN 380 ELSE D=-@*(D/_) :: E=E/_ :: B(G,@)=B(G,@)+D :: B(G,_)=B(G,_)+E
330 FOR H=@ TO 3 :: B(G,@)=B(G,@)+D :: B(G,_)=B(G,_)+E :: CALL SOUND(@,G*110*H,5) :: CALL LOCATE(#G,B(G,@),B(G,_))
340 CALL PATTERN(#G,84+8*H) :: NEXT H :: IF B(G,@)<25 THEN B(G,@)=177 ELSE IF B(G,@)>169 THEN B(G,@)=17
350 IF B(G,_)<49 THEN B(G,_)=201 ELSE IF B(G,_)>193 THEN B(G,_)=41
360 FOR H=@ TO 3 :: B(G,@)=B(G,@)+D :: B(G,_)=B(G,_)+E :: CALL SOUND(@,G*110*(4-H),5) :: CALL LOCATE(#G,B(G,@),B(G,_))
370 CALL PATTERN(#G,84+8*H) :: NEXT H :: B(G,@)=B(G,@)+D :: B(G,_)=B(G,_)+E :: CALL LOCATE(#G,B(G,@),B(G,_)) :: CALL PATTERN(#G,92) :: GOTO 320
380 CALL KEY(G,D,E) :: IF D<>18 THEN 320 ELSE D=INT(B(G,@)/16) :: E=INT(B(G,_)/16)-_
390 ON 1+A(D,E)GOTO 570,400,410,420,430,440,450,460,470,480,550,490,500,510,520
400 CALL CHAR(60,"00010103070101010101010101010107C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F") :: GOTO 530
410 CALL CHAR(60,"071F3C38707030000000030F1C387F7FE0F83C1C0E0E1C1C70E0C0000206FEFE") :: GOTO 530
420 CALL CHAR(60,"1F1F10000000030300000018383C1F03F8F838387070E0E0783C1C1C1C3CF8C") :: GOTO 530
430 CALL CHAR(60,"0000000101030306060C0F1F0000000038F8B8B8B83838383838FEFE3838387C") :: GOTO 530
440 CALL CHAR(60,"1F1F1C1C1C1F1F0000001838381C1F07F8F8080000F0F8381C1C1C1C1C38F8E") :: GOTO 530
450 CALL CHAR(60,"071F1C383838393B3C383838381C1F07E0F010000000F0F8381C1C1C1C38F8E") :: GOTO 530
460 CALL CHAR(60,"1F1F1000000000000000010101030303F8F83838387070E0E0E0C0C0C080808") :: GOTO 530
470 CALL CHAR(60,"030F0E1C1C1C0E071F1C3838381C1F07C0F07038383870E0F8381C1C1C38F8E") :: GOTO 530
480 CALL CHAR(60,"071F1C383838381C1F07000000010307E0F8381C1C1C1C3C38F87070E0E0C08") :: GOTO 530
490 CALL CHAR(60,"00000103060C18303C04040404070000000080C06030180C3C20202020E") :: GOTO 530
500 CALL CHAR(60,"000007040404043C30180C06030100000000E0202020203C0C183060C08") :: GOTO 530
510 CALL CHAR(60,"00000101013F202020203F0101010000000080C06030180C0C183060C08") :: GOTO 530
520 CALL CHAR(60,"00000103060C183030180C06030100000000808080FC04040404FC808")
530 CALL SPRITE(#3,60,@,B(G,@),B(G,_)) :: CALL COLOR(#G,@,#3,16+14*(G=@))
540 CALL KEY(G,D,E) :: IF D=18 THEN 540 ELSE CALL DELSPRITE(#3) :: CALL COLOR(#G,16+14*(G=@)) :: GOTO 300
550 CALL DELSPRITE(#G) :: CALL SPRITE(#3,116,10,B(G,1),B(G,2),#4,124,3,B(G,1),B(G,2)) :: FOR D=1110 TO 110 STEP-25 :: CALL SOUND(-100,D,5,1220-D,10) :: NEXT D
560 CALL DELSPRITE(#3,#4) :: B(G,@)=169+144*(G=@) :: B(G,_)=193+144*(G=@) :: CALL SPRITE(#G,92,16+14*(G=@),B(G,@),B(G,_)) :: GOTO 300
570 CALL DELSPRITE(ALL) :: FOR D=1 TO 4 :: CALL SPRITE(#D,124+4*D,1,B(G,1),B(G,2)) :: NEXT D :: CALL COLOR(#1,5,#2,11,#3,16,#4,7) :: C(G)=C(G)+1 :: IF C(G)=10 THEN 590
580 CALL VCHAR(9-((G=_)*(10-C(_))),28+23*(G=@),112,C(G)) :: G=G-@ :: CALL B(@) :: GOTO 290
590 CALL CLEAR :: CALL DELSPRITE(ALL) :: CALL CHAR(116,"070F1D3838787070616120000001071E00C3E73C7E7E5AE7FFDBE73C7EFFFF7E")
600 CALL CHAR(120,"0F030100030100000001071F3F0000007EFEFEFEFFFFFFE7E7E7E7E7C3") :: CALL CHAR(124,"E0F0B81C1C1E0E0E06060200048FDFF870200000000000000080E0F87C")
610 CALL MAGNIFY(4) :: CALL CHARSET :: CALL SCREEN(11) :: CALL COLOR(_,16,5,11,16+14*(G=@),@,12,16+14*(G=@),@)
620 CALL HCHAR(23,@,42,128) :: CALL VCHAR(@,31,42,96) :: DISPLAY AT(6,_):"THE WINNER OF THE EGG HUNT" :: IF G=_ THEN A$=B$
630 DISPLAY AT(8,12):"IS "&A$ :: DISPLAY AT(12,12):"tv|" :: DISPLAY AT(13,12):"uw}" :: DISPLAY AT(14,12):"xz~" :: DISPLAY AT(15,12):"y{"&CHR$(127)
640 FOR D=@ TO 4 :: CALL SPRITE(#D,124+D*4,@,89,129) :: NEXT D :: CALL COLOR(#3,16) :: CALL B([) :: DISPLAY AT(19,6):"PLAY AGAIN  Y OR N"
650 CALL KEY(3,D,E) :: IF D=78 THEN 660 ELSE IF D=89 THEN CALL DELSPRITE(ALL) :: CALL COLOR(_,_,@) :: GOTO 130 ELSE 650
660 CALL CLEAR :: CALL DELSPRITE(ALL) :: CALL CHARSET :: DISPLAY AT(4,@):"HOPE YOU ENJOYED IT!": : : :"JOHN E. TAYLOR (JET)"
670 DISPLAY AT(10,@):"2170 ESTALINE DRIVE": :"FLORENCE AL 35630": :"(205)764-5248"
680 SUB A(A(,)) :: @=1 :: RANDOMIZE :: B=@+INT(10*RND) :: C=@+INT(10*RND) :: A(B,C)=[ :: FOR D=@ TO 10 :: FOR E=@ TO 10 :: IF B=D AND C=E THEN 730
690 RANDOMIZE :: CALL PEEK(-31880,F) :: F=F+@ :: IF F<10 THEN A(D,E)=10 :: GOTO 730 ELSE IF F<33 THEN 710 ELSE IF F<55 THEN 720
700 A(D,E)=MAX(ABS(D-B),ABS(E-C)) :: GOTO 730
710 IF D=B THEN 720 ELSE A(D,E)=12+@*(B<D) :: GOTO 730
720 IF E=C THEN 710 ELSE A(D,E)=14+@*(C>E)
730 NEXT E :: CALL SOUND(@,110*D,D) :: CALL SCREEN(D+@) :: NEXT D :: CALL CHAR(60,"000000000080E0F8FFFFFFFFFFFFFFFF000000000001071FFFFFFFFFFFFFFFFF")
740 _=2 :: CALL DELSPRITE(ALL) :: CALL SPRITE(#@,60,3,41,25,#_,92,_,41,25) :: E=-@ :: FOR D=41 TO 25 STEP-@ :: E=E+@ :: IF E=3 THEN E=[
750 CALL PATTERN(#_,92+8*E) :: CALL LOCATE(#_,D,25) :: NEXT D :: FOR D=26 TO 49 :: E=E+@ :: IF E=3 THEN E=[
760 CALL PATTERN(#_,92+8*E) :: CALL LOCATE(#_,25,D) :: NEXT D :: CALL PATTERN(#_,92) :: CALL SPRITE(#@,60,3,169,217,#3,92,16,169,217) :: E=-E
770 FOR D=169 TO 153 STEP-@ :: E=E+@ :: IF E=3 THEN E=[
780 CALL PATTERN(#3,92+8*E) :: CALL LOCATE(#3,D,217) :: NEXT D :: FOR D=216 TO 193 STEP-@ :: E=E+@ :: IF E=3 THEN E=[
790 CALL PATTERN(#3,92+8*E) :: CALL LOCATE(#3,153,D) :: NEXT D :: FOR D=153 TO 169 :: E=E+@ :: IF E=3 THEN E=[
800 CALL PATTERN(#3,92+8*E) :: CALL LOCATE(#3,D,193) :: NEXT D :: CALL PATTERN(#3,92) :: SUBEND
810 SUB B(A) :: @=1 :: _=2 :: B=5 :: C=11 :: D=7 :: IF A THEN 870
820 E=110 :: F,G=117 :: H=123 :: I=131 :: J,K=139 :: L=147 :: M,N=156 :: O=165 :: P=175 :: Q,R=185 :: S=196 :: T,U=108
830 V=220 :: W,X=233 :: Y=247 :: Z=262 :: AA,BA=277 :: CA=294 :: DA,EA=311 :: FA=330 :: GA=349 :: HA,IA=370 :: JA=392 :: KA,LA=415
840 MA=440 :: NA,OA=466 :: PA=494 :: QA=523 :: RA,SA=554 :: TA=587 :: UA,VA=622 :: WA=659 :: XA=698 :: YA,ZA=740 :: AB=184 :: BB=831 :: CB=40000
850 DB=CB :: EB=JA :: FB=S :: GOSUB 940 :: DB=GA :: GOSUB 940 :: DB=FA :: GOSUB 940 :: DB=EA :: GOSUB 940 :: DB=PA :: EB=CA :: GOSUB 940 :: DB=MA :: EB=CB :: GOSUB 940 :: DB=GA :: FB=V :: GOSUB 940 :: DB=CA :: FB=Y :: GOSUB 940
860 DB=CB :: FB=Z :: GOSUB 940 :: DB=JA :: FB=FA :: GOSUB 940 :: DB=CB :: FB=J :: GOSUB 940 :: DB=OA :: FB=FA :: GOSUB 940 :: DB=CB :: FB=L :: GOSUB 940 :: DB=QA :: FB=GA :: GOSUB 940 :: DB=PA :: EB=S :: GOSUB 960 :: DB=MA :: GOSUB 960 :: DB=JA :: GOSUB 960 :: DB=CB :: GOSUB 960
870 DB=CB :: EB=JA :: FB=O :: GOSUB 940 :: GOSUB 940 :: GOSUB 940 :: EB=FA :: FB=I :: GOSUB 940 :: FB=S :: GOSUB 940 :: EB=Z :: GOSUB 940 :: FB=O :: GOSUB 940 :: FB=X :: GOSUB 940 :: DB=QA :: EB=MA :: FB=P :: GOSUB 940 :: GOSUB 940 :: FB=O :: GOSUB 940 :: GOSUB 960 :: EB=V :: GOSUB 960
880 DB=MA :: EB=GA :: FB=L :: GOSUB 940 :: DB=V :: GOSUB 940 :: FB=I :: GOSUB 940 :: GOSUB 960 :: GOSUB 960 :: DB=JA :: EB=Y :: FB=L :: GOSUB 960 :: GOSUB 960 :: GOSUB 940 :: EB=X :: FB=J :: GOSUB 940 :: GOSUB 940
890 DB=PA :: EB=GA :: FB=L :: GOSUB 940 :: DB=MA :: GOSUB 940 :: DB=CB :: FB=S :: GOSUB 940 :: DB=MA :: EB=DA :: FB=H :: GOSUB 940 :: DB=JA :: EB=FA :: FB=I :: GOSUB 940 :: DB=CB :: EB=Z :: GOSUB 940 :: EB=FA :: FB=J :: GOSUB 940 :: EB=JA :: GOSUB 940
900 DB=CB :: EB=GA :: FB=L :: GOSUB 940 :: EB=QA :: GOSUB 940 :: DB=PA :: EB=GA :: FB=S :: GOSUB 960 :: DB=MA :: GOSUB 960 :: DB=JA :: GOSUB 960 :: DB=CB :: GOSUB 960 :: DB=JA :: EB=O :: FB=I :: GOSUB 940 :: GOSUB 940 :: GOSUB 940 :: DB=FA :: EB=CB :: GOSUB 940
910 FB=S :: GOSUB 940 :: DB=Z :: GOSUB 940 :: FB=O :: GOSUB 940 :: FB=X :: GOSUB 940 :: DB=QA :: EB=MA :: FB=P :: GOSUB 940 :: GOSUB 940 :: FB=O :: GOSUB 940 :: EB=V :: GOSUB 940 :: DB=MA :: FB=L :: GOSUB 940 :: DB=GA :: GOSUB 940 :: FB=I :: GOSUB 940 :: GOSUB 940
920 DB=JA :: EB=Y :: FB=L :: GOSUB 940 :: GOSUB 940 :: EB=X :: FB=J :: GOSUB 940 :: GOSUB 940 :: DB=PA :: EB=Y :: FB=L :: GOSUB 940 :: DB=MA :: GOSUB 940 :: DB=CB :: EB=GA :: FB=S :: GOSUB 940 :: EB=CA :: FB=Y :: GOSUB 940
930 EB=CB :: FB=Z :: GOSUB 940 :: EB=I :: GOSUB 940 :: EB=P :: GOSUB 940 :: EB=V :: GOSUB 940 :: SUBEXIT
940 CALL SOUND(250-A*25,DB,5,EB,5,FB,5) :: CALL COLOR(#@,B,#_,C,#4,D) :: B=B+@ :: C=C+@ :: D=D+@ :: IF B=17 THEN B=@ ELSE IF C=17 THEN C=@ ELSE IF D=17 THEN D=@
950 RETURN
960 CALL SOUND(125-A*12,DB,5,EB,5,FB,5) :: RETURN :: SUBEND

HOME AUTOMATION · March 14, 2019

...or maybe you can:

egghunt.wav

egghunt.dsk

Edited March 14, 2019 by HOME AUTOMATION

+chue · March 14, 2019

* Extended BASIC required

HOME AUTOMATION · March 15, 2019

I thought the long lines and many colons would be a giveaway...

...I hope you didn't TYPE it in!!!

xabin · March 15, 2019

Wow. I wasn't expecting that. I was honestly just asking if people knew about it. He thought it was too obscure a game for people to recognize, despite him loving it, so... yeah, thanks, regardless.

Brian O · March 15, 2019

"Egg" and "Hunt" always sound funny when spoken together.

Opry99er · March 15, 2019

Wow. I wasn't expecting that. I was honestly just asking if people knew about it. He thought it was too obscure a game for people to recognize, despite him loving it, so... yeah, thanks, regardless.

While there are still some mysteries out there--most of what was lost has been found in these days of the interwebs.... It's actually uncommon to look for something TI related and not be able to find it. We have databases, game bases, FTP sites, websites, and forums like this one.

And our people are our greatest asset.

xabin · March 17, 2019

All of this support, the offers for help and free parts to help get our TI back into working gear... it makes us sad that we can't repay you guys for it.

+Ksarul · March 17, 2019

But you do repay us--as you are now part of the community. We welcome everyone with a healthy interest in the TI family of computers. . .

digdugnate · March 17, 2019

we're an odd bunch, but we help each other out! these guys/gals are seriously the greatest- they've helped me with some pretty esoteric stuff and i'm forever appreciative.

xabin · March 17, 2019

Well, I'm certainly now envious of my boyfriend for having it as a kid; I had an Atari 2500, and comparing games shared between the two, and knowing my love for video games back in the day, I wish I could've had a TI, instead.

+OLD CS1 · March 17, 2019

But you do repay us--as you are now part of the community. We welcome everyone with a healthy interest in the TI family of computers. . .

One of us! One of us!

Peter Cottontail's Egg Hunt

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members