Colecting item from the ground

[mr. Kris]

Code:

50 {Colect Gold} ID:=3031 X:=Self.X Y:=Self.Y Z:=Self.Z Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(X, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)

This colect gold.
When you change ID the macro will be colect other stuff.