changeset 539 | 6a9bf1852bbc |
parent 534 | 92fb2b0d5117 |
child 542 | ec26095f1bed |
538:74219eadab5e | 539:6a9bf1852bbc |
---|---|
448 procedure chPause(var s: shortstring); |
448 procedure chPause(var s: shortstring); |
449 begin |
449 begin |
450 isPaused:= not isPaused; |
450 isPaused:= not isPaused; |
451 SDL_ShowCursor(ord(isPaused)) |
451 SDL_ShowCursor(ord(isPaused)) |
452 end; |
452 end; |
453 |
|
454 procedure chRotateMask(var s: shortstring); |
|
455 const map: array[0..7] of byte = (7,4,0,5,2,1,0,3); |
|
456 begin |
|
457 cTagsMask:= map[cTagsMask] |
|
458 end; |
|
459 |