0 Members and 4 Guests are viewing this topic.
ClrHome"0000Ans+Ans+Ans+Ans->Str1For(B,8,1,-1)Output(B,10,"*rand10Output(B,1,Str1EndFor(A,0,2)Output(4+A,6,"_six spaces_EndOutput(5,6," FALL "getKeyRepeat getKeyrandInt(1,3,5Output(8,2,"<PRESS A KEY>randInt(1,3,5Output(8,2,Str1EndClrHomeRepeat not(IDisp "0=QUIT","1=RAND","2=LVLSInput ":",IIF I=1ThenInput "TYPE: ",AInput "ROWS: ",LIf A=1Then"O->Str1ClrHomeFOr(A,1,16L)Output(1,1,int(((A+1)/(16L))100Str1+sub(" O ",randInt(1,3),1->Str1EndEnd---alternate types of random level generators---EndIf I=2Then1->AClrHomeDisp "Level?Repeat K=105Output(2,1,ARepeat Kgetkey->KEndA-(K=34 and A!=1)+(K=25->AOutput(2,1,"_three spaces_EndIf A=1"_level data_->Str1If A=2"_level data_->Str1EndIf I=1 or I=2Then1->_theta_4->X3->Y20->Rint(length(Str1)/16)-6->LRepeat _theta_=L or not(YOutput(1,1,subStr1,16_theta_-15,128Delvar MRepeat K=34 or M=int(Rgetkey->KOutput(Y,X,"_space_If _theta_!=LThen16(_theta_+Y-1)-16+X->ZJ-(J!=0)+2(K=25 and not(J) and "0"=sub(Str1,Z+16,1->JOutput(1,15+(int(R)-M<10),int(R-MIf 10>int(R-MThenOutput(1,15,"`EndY+(not(J) and Y!=8 and "0"!=sub(Str1,Z+16,1))-(J and Y!=1 and "0"!=sub(Str1,Z-16,1->YEnd16(_theta_+Y-1)-16+X->ZX+(K=26 and "0"!=sub(Str1,Z+1,1) and x!=16)-(K=24 and X!=1 and "O"!=sub(Str1,Z-1,1->XOutput(Y,X,"*rand10M+1->MEndY-1->YR-.5(3!=int(R->R_theta_+(_theta_!=L->_theta_EndCLrHomeIf not(YThenOutput(1,3,"YOU LOSEElseOutput(1,3,"YOU WINEndgetKeyRepeat getKeyEndEndEnd