0 Members and 5 Guests are viewing this topic.
ClrHomeDisp "BUILD?Input "Y=1:N=0 ",AIf Not(AThenInput "ROWS: ",L"O»Str1ClrHomeFor(A,1,16L)Output(1,1,int(((A+1)/(16L))100Str1+Sub(" O ",randInt(1,3),1»Str1EndEnd1»Ø4»X4»Y30»RInt(Length(Str1)/16)-6»LRepeat Ø=L or Not(YOutput(1,1,Sub(Str1,16Ø-15,128Delvar MRepeat M=R or K=34getKey»KOutput(Y,X," If Ø=/=LThen16(Ø+Y-1)-16+X»ZJ-(J=/=0)+2(K=25 and not(J) and "O"=sub(Str1,Z+16,1»JOutput(1,15,R-MY+(not(J) and Y=/=8 and "O"=/=sub(Str1,Z+16,1))-(J and Y=/=1 and "O"=/=sub(Str1,Z-16,1»YEnd16(Ø+(K=26 and "O"=/=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-(R=/=1»RØ-(Ø=/=L»ØEndClrHomeIf not(YThenoutput(1,3,"YOU LOSEElseOutput(1,3,"YOU WINEnd