I gave no trick and looks like this:




All of adding:
Quote: X+1
X:=Self.X()
Y:=Self.Y()
Z:=Self.Z()
VarAdd(X, 1)
Map.Use(2792, !X!, !Y!, !Z!, 0)
Quote: Y+1
X:=Self.X()
Y:=Self.Y()
Z:=Self.Z()
VarAdd(Y, 1)
Map.Use(2792, !X!, !Y!, !Z!, 0)
Quote: Y-1
X:=Self.X()
Y:=Self.Y()
Z:=Self.Z()
VarSub(Y, 1)
Map.Use(2792, !X!, !Y!, !Z!, 0)
Quote: X-1
X:=Self.X()
Y:=Self.Y()
Z:=Self.Z()
VarSub(X, 1)
Map.Use(2792, !X!, !Y!, !Z!, 0)
Quote: X+1 Y+1
X:=Self.X()
Y:=Self.Y()
Z:=Self.Z()
VarAdd(X, 1)
VarAdd(Y, 1)
Map.Use(2792, !X!, !Y!, !Z!, 0)
Quote:X+1 Y-1
X:=Self.X()
Y:=Self.Y()
Z:=Self.Z()
VarAdd(X, 1)
VarSub(Y, 1)
Map.Use(2792, !X!, !Y!, !Z!, 0)
Quote:X:=Self.X()
Y:=Self.Y()
Z:=Self.Z()
VarSub(X, 1)
VarAdd(Y, 1)
Map.Use(2792, !X!, !Y!, !Z!, 0)
Quote: X-1 Y-1
X:=Self.X()
Y:=Self.Y()
Z:=Self.Z()
VarSub(X, 1)
VarSub(Y, 1)
Map.Use(2792, !X!, !Y!, !Z!, 0)




All of adding:
Quote:X:=Self.X()
Y:=Self.Y()
Z:=Self.Z()
DedOpen:=2792
VarAdd(X, 1)
Map.Use(!DedOpen!, !X!, !Y!, !Z!, 0)
Macro.Wait(500)
VarSub(X, 1)
Map.Use(!DedOpen!, !X!, !Y!, !Z!, 0)
Macro.Wait(500)
VarSub(Y, 1)
Map.Use(!DedOpen!, !X!, !Y!, !Z!, 0)
Macro.Wait(500)
VarAdd(Y, 1)
Map.Use(!DedOpen!, !X!, !Y!, !Z!, 0)
Macro.Wait(500)
VarAdd(X, 1)
VarSub(Y, 1)
Map.Use(!DedOpen!, !X!, !Y!, !Z!, 0)
Macro.Wait(500)
VarSub(Y, 1)
VarSub(X, 1)
Map.Use(!DedOpen!, !X!, !Y!, !Z!, 0)
Macro.Wait(500)
VarAdd(Y, 1)
VarSub(X, 1)
Map.Use(!DedOpen!, !X!, !Y!, !Z!, 0)
Macro.Wait(500)
VarAdd(X, 1)
VarAdd(Y, 1)
Map.Use(!DedOpen!, !X!, !Y!, !Z!, 0)