Advertisement
Guest User

Untitled

a guest
Mar 18th, 2017
344
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     Method DoUndo()
  2.     If undo[10000] > 0 Then 'Only undo if there is something to actually undo
  3.         ClickCell(undo[0], False)
  4.         undo[10000] = undo[10000] - 1 'Undo 10000 is used for storing how many undos have been done
  5.         For Local i = 0 To 9998
  6.             undo[i] = undo[i + 1]
  7.         Next
  8.     EndIf
  9.     End
  10.    
  11.     Method updateUndo(cellNumber)
  12.     Local backwards = 10000
  13.         For Local i = 1 To 9999
  14.             backwards = backwards - 1
  15.             undo[backwards] = undo[backwards - 1]
  16.         Next
  17.         undo[0] = cellNumber
  18.         undo[10000] = undo[10000]+1
  19.     End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement