Tools updated

tools/scredit.lua

@@ -85,6 +85,11 @@ function draw_map()
         sel_col = peek(1200+mx+my*40)
     end
 
+    if btnp(KEY_UP) then for i=40,1199 do map[i-40]=map[i]col[i-40]=col[i] end end
+    if btnp(KEY_DOWN) then for i=1159,0,-1 do map[i+40]=map[i]col[i+40]=col[i] end end
+    if btnp(KEY_LEFT) then for i=0,1198 do map[i]=map[i+1]col[i]=col[i+1] end end
+    if btnp(KEY_RIGHT) then for i=1199,1,-1 do map[i]=map[i-1]col[i]=col[i-1] end end
+
     blink = blink - 1
     if blink < 30 then
         if blink==0 then blink = 60 end