unhuman Posted November 21, 2010 Share Posted November 21, 2010 (edited) 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 November 21, 2010 by unhuman 1 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted November 21, 2010 Share Posted November 21, 2010 Lovely ! Quote Link to comment Share on other sites More sharing options...
Opry99er Posted November 22, 2010 Share Posted November 22, 2010 Wow... This gets my vote... =) Dude, this is some crap... but it is very very cool at the same time. =) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.