6 lines
218 B
Plaintext
6 lines
218 B
Plaintext
s=1728 o=" Ore" c=" Crystal" i=0 if:scan<1thengoto1end :scn=1 :vt=0
|
|
ifi<:sr then:ix=i :vt+=:vl goto3+i end ifi>0thengoto5end goto1
|
|
:v1=:vl/s :m1=:mt-c-o i++ goto2
|
|
:v2=:vl/s :m2=:mt-c-o i++ goto2
|
|
:scan=0 :reset=1 goto1
|