13 lines
829 B
Plaintext
13 lines
829 B
Plaintext
o1="Aegisium" o2="Arkanium" o3="Bastium" o4="Charodium" o5="Corazium"
|
|
o6="Exorium" o7="Haderite" o8="Ilmatrium" o9="Karnite" o10="Kutonium"
|
|
o11="Lukium" o12="Naflite" o13="Nhurgite" o14="Omnium" o15="Surtrite"
|
|
o16="Targium" o17="Vokarium" o18="Xhalium" o19="Ymrium" a=1 b=19
|
|
a+=:_ou a-=:_od a-=(a>b)*b a+=(a<1)*b goto5+:_ou+:_od
|
|
goto7+(a>3)+(a>6)+(a>9)+(a>12)+(a>15)+(a>18)
|
|
ifa==1theno=o1 end ifa==2theno=o2 end ifa==3theno=o3 end goto13
|
|
ifa==4theno=o4 end ifa==5theno=o5 end ifa==6theno=o6 end goto13
|
|
ifa==7theno=o7 end ifa==8theno=o8 end ifa==9theno=o9 end goto13
|
|
ifa==10theno=o10 end ifa==11theno=o11 end ifa==12theno=o12 end goto13
|
|
ifa==13theno=o13 end ifa==14theno=o14 end ifa==15theno=o15 end goto13
|
|
ifa==16theno=o16 end ifa==17theno=o17 end ifa==18theno=o18 end goto13
|
|
ifa==19theno=o19 end :ore_radar=o :_ou=0 :_od=0 goto5 |