diff --git a/ohrats.bas b/ohrats.bas new file mode 100644 index 0000000..0a39993 --- /dev/null +++ b/ohrats.bas @@ -0,0 +1,9 @@ +' Oh Rats! v1.0 +#DEFINE O(V) FOR Y=1 TO E:FOR X=1 TO W:V:NEXT:NEXT +#DEFINE N RND +#DEFINE T THEN +#DEFINE EI END IF +#DEFINE C CASE +#DEFINE Z(V) COLOR(V,0) +SCREEN 9:RANDOMIZE TIMER:DIM SHARED AS SHORT W=80,E=23,A,B,Y,X,M(W,E),I,J,L=0,H=100,Q=0,F=46,S=62,P,R=114,G=0:SUB NL:O(M(X,Y)=F):O(IF X=1 OR X=W OR Y=1 OR Y=E OR INT(N*20)=1 T M(X,Y)=35:EI):B=L+10+N*10:FOR A=1 TO B:M(2+N*(W-3),2+N*(E-3))=R:NEXT:M(2+N*(W-3),2+N*(E-3))=S:I=2+N*(W-3):J=2+N*(E-3):L+=1:END SUB:SUB HK:A=I:B=J:SELECT C GETKEY:C 53 AND M(A,B)=S:NL:RETURN:C 52:A-=1:C 56:B-=1:C 54:A+=1:C 50:B+=1:C 27:Q=1:END SELECT:P=M(A,B):IF(P=F OR P=S OR P=R)T I=A:J=B:IF P=R T M(A,B)=F:G+=L EI:O(IF M(X,Y)=R T:A=(X+SGN(I-X)):B=(Y+SGN(J-Y)):P=M(A,B):IF P=F OR P=R T:M(X,Y)=F:M(A,B)=5:IF A=I AND B=J T H-=1:M(A,B)=F EI:EI:EI):O(IF M(X,Y)=5 T M(X,Y)=R:EI):IF H<=0 T Q=1 +END SUB:NL:DO:CLS:O(P=M(X,Y):IF P=R T Z(14) ELSE Z(15):EI:? CHR(P);):? "HP";H;" LVL";L;" SCORE";G:Z(9):LOCATE J,I:? "@":Z(15):HK:LOOP UNTIL Q=1:CLS:? "Level";L;" Score";G:GETKEY \ No newline at end of file diff --git a/readme.txt b/readme.txt new file mode 100644 index 0000000..014feaa --- /dev/null +++ b/readme.txt @@ -0,0 +1,14 @@ +Oh Rats! + +Try to stay alive as long as possible amidst a horde of ravenous rats. These +rats will stop at nothing to take a bite out of you, even resorting to +cannibalism if the situation is right. Your only hope is to stomp on them +before they get you. + +Use the number pad to move around in the 4 cardinal directions. The rats have +the added ability to move in 8 directions, but their movements are very +predictable. Pressing 5 will descend down stairs to the next level, where even +more rats are waiting for your tasty flesh. Every hit from a rat will take +away 1 HP, and the rat, now gnawing on a chuck of your flesh, will no longer be +a threat and will disappear from the view. If you move onto a rat, you will +kill it, increase your score, and the rat will disappear. \ No newline at end of file