Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
for i : 5..10
"[i]"
rudla:
cosi: fixed version is online, your example should work :-)for i : byte
...
i : byte
for i
...
p1 : proc =
"Test"
p1
test : proc = "To jest test"
test
error: no rule for translating instruction
add c:0..65535, a:0..65535, b:0..65535
syntax error: Upper bound is not constant $
a:array(0..19) of byte = "Test"
"Testing... [a]"
error: no rule for translating instruction
var_arg a
loop:
continue:
...
BEQ continue
...
BEQ break
...
BEQ loop
break:
const fnt:font = "font.fnt"
CRSR@752:byte
COLPF(0) = 255 - VCOUNT
error: no rule for translating instruction
sub COLPF(0), 255, VCOUNT
levmax:0..1
const levrozmiar:array(levmax, 0..1 ) = (
7, 6
8, 7
)
rysuj_level:proc lev:byte =
roz_x = levrozmiar(lev, 0)
roz_y = levrozmiar(lev, 1)
levmax:0..1
const levrozmiar:array(levmax, 0..1 ) = (
7, 6
8, 7
)
rysuj_level:proc lev:byte =
lev2 = lev
roz_x = levrozmiar(lev2, 0)
roz_y = levrozmiar(lev2, 1)
xx,yy = 0,0
while xx < roz_x
while yy < roz_y
;rozne instrukcje
inc yy
inc xx
xx =0
while xx < roz_x
yy = 0
while yy < roz_y
;rozne instrukcje
inc yy
inc xx
rudla:
So I see that developing anything bigger in ATALAN must be frustrating experience now and I'm sorry, if I somehow made you think otherwise.rudla:
ATALAN is indeed in alpha stage of development (as in work in progress). I didn't expect someone else than me writing a game in this stage of development.roz_y = 6
roz_x = 8
yy = 0
while yy < roz_y
xx = 0
while xx < roz_x
inc xx
inc yy
"xx after loops = [xx]"
"yy after loops = [yy]"
roz_y = 6
roz_x = 8
yy = 0
while yy < roz_y
xx = 0
while xx < roz_x
inc xx
inc yy
"xx after loops = [xx]"
"yy after loops = [yy]"