hedgewars/CCHandlers.inc
changeset 539 6a9bf1852bbc
parent 534 92fb2b0d5117
child 542 ec26095f1bed
--- a/hedgewars/CCHandlers.inc	Wed Jun 06 21:27:12 2007 +0000
+++ b/hedgewars/CCHandlers.inc	Thu Jun 07 18:09:54 2007 +0000
@@ -450,3 +450,10 @@
 isPaused:= not isPaused;
 SDL_ShowCursor(ord(isPaused))
 end;
+
+procedure chRotateMask(var s: shortstring);
+const map: array[0..7] of byte = (7,4,0,5,2,1,0,3);
+begin
+cTagsMask:= map[cTagsMask]
+end;
+