Jump to content
unhuman

Crap Game Competition : Knife Fight!

Recommended Posts

I hereby subject you to more crap. My wife is not happy at all. Now taking the remainder of the evening off from TI stuff... Pretty whooped.... And, the Pet Cow Simulator inspired me to write a Pet Rock simulator - however - the Pet Glacier would've made for a glut in that market.

 

21 CALL SCREEN(2)::NO$="0000000000010100"
22 YES$="0002FEFE261F0700"
23 CALL CLEAR::RANDOMIZE::CALL MAGNIFY(3)
24 FOR I=1 TO 8::CALL COLOR(I,15,1)::NEXT I
25 FOR I=1 TO 6::READ C,C$::CALL CHAR(C,C$)::NEXT I
26 MAN$="00030303030202030F13220206040F0F00C040E0C00878C0000080C46C383080"
52 DISPLAY AT(1,1):"PLEASE WAIT..."::CALL HCHAR(24,1,105,32)
53 FOR I=1 TO 32
54 IF RND < .25 THEN 60
55 CALL HCHAR(23,I,112+INT(RND*4))
56 H=RND*4
57 FOR J=1 TO H+1::CALL HCHAR(23-J,I,104+INT(RND*4))::NEXT J
58 IF RND < .5 THEN 60
59 CALL HCHAR(23-J,I,96+INT(RND*4))
60 NEXT I
61 CALL SCREEN(5)
75 DISPLAY AT(1,1):""::DISPLAY AT(10,:"KNIFE FIGHT!"::DISPLAY AT(12,:"(C)2010 UNHUMAN"
77 FOR I=1 TO 1000::NEXT I::GOSUB 999
100 PX=40::DC=0::DCFLAR=0::CALL CHAR(100, MAN$)
120 CALL SPRITE(#2,100,4,172,PX)
121 CALL SPRITE(#3,108,16,172,PX)
122 CALL CHAR(116, NO$)
123 CALL SPRITE(#4,116,11,172,200)
124 DISPLAY AT(1,1):"SCORE: 00000"
125 DISPLAY AT(10,22):"WANNA"::DISPLAY AT (11,22):"FIGHT?"::GOSUB 999
126 DISPLAY AT(10,1):"YES, BUT I"::DISPLAY AT(11,1):"HAVE A KNIFE"::GOSUB 999
127 DISPLAY AT(10,23):"FINE"::DISPLAY AT(11,23):"BY ME"::GOSUB 999
128 DISPLAY AT(10,1):"PREPARE"::DISPLAY AT(11,1):"TO DIE"::GOSUB 999
129 DISPLAY AT(10,13):"FIGHT!"::GOSUB 999
130 DISPLAY AT(10,20):"COME AND"::DISPLAY AT(11,20):"GET ME!"::GOSUB 999
140 CALL JOYST(1,X,Y)::IF X=0 THEN 140
141 CALL SOUND(-250,-4,0)::PX=PX+X::CALL LOCATE(#2,172,PX)::CALL LOCATE(#3,172,PX)::IF PX>32 THEN 150
142 DISPLAY AT(10,17):"YOU CAN'T"::DISPLAY AT(11,17):"GO THAT WAY"::GOSUB 999
143 PX=36
150 IF PX>120 THEN 500
160 IF PX=52 AND DC=0 THEN DC=1::DISPLAY AT(10,15):"WHAT ARE YOU?"::DISPLAY AT(11,15):"CHICKEN!"::GOSUB 999
170 IF PX=80 AND DCFLAR=0 THEN DCFLAR=1::DISPLAY AT(10,18):"CHICKEN"::DISPLAY AT(11,18):"FIGHT LIKE"::DISPLAY AT(12,18):"A ROBOT"::GOSUB 999
180 IF PX=52 AND X<0 THEN DISPLAY AT(10,18):"GO RUN"::DISPLAY AT(11,18):"TO YOUR"::DISPLAY AT(12,18):"MOMMY!"::GOSUB 999
300 GOTO 140
500 CALL CHAR(116,YES$)::DISPLAY AT(11,1):"UHOH!"::CALL SAY("UHOH")::GOSUB 999::CALL SPRITE(#1,120,7,172,192)
501 CALL SOUND(100,-7,0)::CALL COLOR(#1,15)::FOR I=1 TO 100::NEXT I::CALL DELSPRITE(#1)::CALL LOCATE(#3, 186, PX)
502 CALL COLOR(#2,7)::CALL CHAR(100,"00030303030203030303020206040F0F00C040E0C00080E0E00080C46C383080")::GOSUB 999
503 CALL CHAR(100,"002078587CFC7C1E0303040404040200000000402060C0810387FE824143261E")::GOSUB 999
504 CALL CHAR(100,"000000000000000000000040F0D7BFFF0000000000000000000000010303FFFF")::GOSUB 999
505 DISPLAY AT(10,14):"DUMBASS"::DISPLAY AT(11,14):"BRINGS A KNIFE"::DISPLAY AT(12,14):"TO A GUNFIGHT"
506 FOR I=1 TO 1000::NEXT I::GOSUB 999
998 CALL DELSPRITE(ALL)::GOTO 75
999 FOR I=1 TO 500::NEXT I::DISPLAY AT(10,1):""::DISPLAY AT(11,1):""::DISPLAY AT(12,1):""::RETURN
1000 DATA 96,"101038383810387C00000000183C7EFF18183C24243C7EFF18183C247E5ADBFF"
1002 DATA 104,"FF8181FFFF9999FFFFFFFFFFFFFFFFFFFF9999FFFF9999FFFFFFC3C3C3C3FFFF"
1004 DATA 112,"FFFFC3C3C3D3C3C3FFC3C3C3FFFFFFFFFFFF999999999999FF81FFC3C3C3C3C3"
1006 DATA 108,"0000000000000000000000000000000000040606060404000000000000000000"
1007 DATA 116,"000000000001010000000000000003070C3F2E7F3E04E43C1F1D35354242CFDF"
1008 DATA 120,"1C74EF7F3C180000000000000000000000000000000000000000000000000000"

Edited by unhuman
  • Like 1

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...