As*Hole by Traders SA

As*Hole для TI99 Extended Basic Категория "PUR-120" (отклонено для PUR-120, организатор):

Описание игры:

Клон Game & Watch Manhole.

Просто используйте джойстик, чтобы спасти человека из ямы.

1 CALL CHAR(136,"0001030301090E061B191F1F08000000F0BCEECEFE9C7870FEFEE7F360787870",140,"2F7F3F2FFFFF33073D3F1D0903030F0F008080C08098FCFC0 E0FEFE86068080") 2 CALL CHAR(128,"0F3D77737F391E0E7F7FE7CF061E1E0E0080C0C080907060D898F8F810000000",132,"0001010301193F3F03077F7F61600101F4FEFCF4FFFFCCE 0BCFCB890C0C0F0F0") 3 CALL CHAR(120,"0000000100011978F97F01065FEBFF7C03009EFFD7EBF7FFDFFFFEF070808000",124,"FFFFDE78B0606080",126,"E0C",33,"FF101010FF808080",125,""): :L=10 4 CALL COLOR(1,9,16)::CALL CLEAR::CALL HCHAR(11,1,33,448):: CALL HCHAR(15,1,32,160)::CALL VCHAR(1,9,32,128)::CALL VCHAR(1,20,32,128) ::Z=3 5 РАЗМЕР U(2),A(2),X(32),B(32),Q(16):: U(0)=49::U(1)=121::S=1::A (1)=1::SC=0:: ВЫЗОВ СПРАЙТА(#27,120,2,81,43,#28,124,2,81,75) 6 ВЫЗОВ УВЕЛИЧИТЬ(4) ::ДЛЯ I=1 ДО 8 ::X(I),X(17-I)=(I*32)-31:: B(I),B(I+8)=2 ^(I-1):: ВЫЗОВ СПРАЙТА(#I,128,2,192,256,#I+8,128,2,192,256):: СЛЕДУЮЩИЙ I 7 FOR I=S TO S+7 :: T=1-T::IF (A(P) AND B(I))>0 THEN Q(I)=1::CALL PATTERN(#I,(P*) 8)+128+T*4)::CALL LOCATE(#I,U(P),X(I) ) ELSE Q(I)=0:: CALL LOCATE(#I,192,256) 8 СЛЕДУЮЩИЙ I :: A(P)=A(P)*2 ::A(P)=A(P)+(((A(P) AND 8)<>8)*((INT(RND*L ))=1))::CALL SOUND(20,960,0)::CALL JOYST(1,XX,YY)::IF A(P)>255 THEN A(P)=A(P)-256 9 ЕСЛИ XX<>0 И YY<>0 THEN Y1=81-((YY=-4)*72)::X1=43-((XX=4)*90)::CALL LOCATE(#27,Y1,X1,#28,Y1, X1+32)::Z=3-((YY=-4)*11)+((XX=4)*3)*(-YY/4) 10 P=1-P::S=(S=1)*-8+1:: QT=Q(S+2)+Q(S+5)::IF QT>0 THEN END ELSE IF Q(Z )=1 THEN CALL SOUND(50,1300,0)::Q(Z)=0::SC=SC+4::L=MAX(2,L-.1)::DISPLAY AT(2,20) :SC::ПЕРЕЙТИ 7 ЕЩЕ 7