heck
/
heck_orca-c
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

fixes I to work with capitals

master
Nicola Pisanti 5 years ago
parent
3bca64d349
commit
9ab87c2dcc
1 changed files with 6 additions and 5 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 11
      sim.c

11
sim.c
View File

@ -482,17 +482,18 @@ BEGIN_OPERATOR(increment)
PORT(0, -1, IN | PARAM); PORT(0, -1, IN | PARAM);
PORT(0, 1, IN); PORT(0, 1, IN);
PORT(1, 0, IN | OUT); PORT(1, 0, IN | OUT);
Glyph g = PEEK(0, -1); Glyph ga = PEEK(0, -1);
Glyph gb = PEEK(0, 1);
Usz rate = 1; Usz rate = 1;
if (g != '.' && g != '*') if (ga != '.' && ga != '*')
rate = index_of(g); rate = index_of(ga);
Usz max = index_of(PEEK(0, 1)); Usz max = index_of(gb);
Usz val = index_of(PEEK(1, 0)); Usz val = index_of(PEEK(1, 0));
if (max == 0) if (max == 0)
max = 36; max = 36;
val = val + rate; val = val + rate;
val = val % max; val = val % max;
POKE(1, 0, glyph_of(val)); POKE(1, 0, glyph_with_case(glyph_of(val), gb));
END_OPERATOR END_OPERATOR
BEGIN_OPERATOR(jump) BEGIN_OPERATOR(jump)

Write Preview
Loading…
Cancel
Save