Commit 21abbce0 authored by Alexander Shabarshin's avatar Alexander Shabarshin

next iteration

parent d6f621fe
......@@ -16,8 +16,11 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>.
robot "ternaro.com"
author "Alexander Shabarshin"
+INC/ROBBY
main()
{
def tmp[17] = "START"
......@@ -337,7 +340,7 @@ main()
// initial screen
if(xx==0)
{
// select 80 21; set 'O'
select 80 21; set 'O'
select 81 21; set 'U'
select 82 21; set 'T'
for(yy=6;yy<=30;yy++)
......@@ -406,9 +409,11 @@ next_val() // A-value to increment
draw_triad() // A-triad(1,2,3)
{
iii = 0
jjj = A-1
yyy = 11
box1 = 0
box2 = 0
above3 = 0
if(A==2)
{
iii = 3
......@@ -463,6 +468,9 @@ draw_triad() // A-triad(1,2,3)
set #C4
select 67 yyyy
set #BF
select 64 yyyy
set #20
}
else
{
......@@ -515,10 +523,58 @@ draw_triad() // A-triad(1,2,3)
select 65 yyyy
set #C4
select 64 yyyy
set #FE
select 63 yyyy
bb = (A-1)*3+'2'
set bb
bbb = xyz[jjj]
if(bbb==0)
{
set #FE
select 63 yyyy
bb = (A-1)*3+'2'
set bb
yyyyy = yyyy - 1
select 64 yyyyy
set #20
yyyyy = yyyy + 1
select 64 yyyyy
set #20
}
if(bbb==1)
{
set #C0
select 63 yyyy
set #20
yyyyy = yyyy + 1
select 64 yyyyy
set #20
yyyyy = yyyy - 2
select 63 yyyyy
bb = (A-1)*3+'1'
set bb
select 64 yyyyy
if(box1)
{
set #BF
}
else
{
set #F2
}
yyyyy = yyyyy + 1
select 64 yyyyy
set #B3
}
if(bbb==2)
{
set #DA
select 63 yyyy
set #20
yyyyy = yyyy - 1
select 64 yyyyy
set #20
yyyyy = yyyy + 1
select 64 yyyyy
set #B3
above3 = 1
}
yyyy = yyyy - 1
select 65 yyyy
if(box1)
......@@ -604,7 +660,14 @@ draw_triad() // A-triad(1,2,3)
select 65 yyyy
set #C4
select 64 yyyy
set #FE
if(above3)
{
set #F4
}
else
{
set #FE
}
select 63 yyyy
bb = (A-1)*3+'3'
set bb
......@@ -645,6 +708,21 @@ draw_triad() // A-triad(1,2,3)
select 63 yyyy
set #20
yyyy = yyyy - 1
select 64 yyyy
if(above3)
{
set #B3
yyyyy = yyyy + 1
select 64 yyyyy
set #D9
select 63 yyyyy
bb = (A-1)*3+'3'
set bb
}
else
{
set #20
}
select 65 yyyy
if(box2)
{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment