SHOW:
|
|
- or go back to the newest paste.
1 | - | var x=0,p=0,r=0,s="",m=s:do: |
1 | + | var i=0,x=0,p=0,r=0,s="",m=s,t=" XO!":do: |
2 | - | if instr(m,"!")=0then read x,p,m:r=p:s=m:if m=""then end |
2 | + | i=instr(m,"!"):if i=0then read x,p,s:m="": _ |
3 | while s[i]:r=s[i]-48:i+=1:m+=chr(t[3and(r\16)], _ | |
4 | t[3and(r\4)],t[3and(r)])+iif(((i)mod x),"",!"\n"): _ | |
5 | - | var i=k(7and((getkey-97)\3)),n=p+i,c=@m[n],d=@m[n+i] |
5 | + | wend:r=p:s=m:x=x*3+1:if x=1then end |
6 | cls:?m:locate 1+p\x,1+p mod x,0:?"@ | |
7 | dim as byte k(7)={-1,1,0,0,0,0,x,-x}: | |
8 | i=k(7and((getkey-97)\3)):var n=p+i,c=@m[n],d=@m[n+i] | |
9 | if i then:select case*c\9:case 3:p=n:case 8,4 | |
10 | - | data 10,71,!" XXXXX \n X XXXX\n X X X\n XX !X\n" _ |
10 | + | |
11 | - | "XXX XXX!X\nX O X X!X\nX OOX XXX\nX X \nXXXXX \n", _ |
11 | + | |
12 | - | 11,29,!" XXXXXXX \n X X \n X O X \nXXXXX X X \n" _ |
12 | + | |
13 | - | "X O X \nX XOXX XX\nX!!O X X\nX!! X\nXXXXXXXXXX\n",0,0," |
13 | + | data 3,71,"5E041E41150=E5MB4MBTE@40ED0", _ |
14 | - | |
14 | + | 4,29,"1EE010101810EDA0B010@IA@OP@@O00@EEE@ |