// RunIt! by froyd

[VarDef, R, ]
[VarDef, X, ]
[VarDef, Y, ]
[VarDef, test, ]
[VarDef, t, ]
[VarDef, A, ]
[VarDef, XMax, ]
[VarDef, YMax, ]
[VarSet, XMax, [IGet,Document:Document width]]
[VarSet, YMax, [IGet,Document:Document Height]]


[RoutineDef, calc,
[VarSet, R, RAND(4)]

[If, INT(R) = 0,
	[VarAdd, X, s][VarAdd, Y, s]
	, //else
	[If, INT(R) = 1,
		[VarSub, X, s*2][VarSub, Y, s*2]
		, //else
		[If, INT(R) = 2,
			[VarAdd, X, s][VarSub, Y, s]
			, //else
			[If, INT(R) = 3,
				[VarSub, X, s][VarAdd, Y, s]
]]]]
//[VarSet, test, INT(R)]
//[note, test]
]

// bei accuracy -aus-
[RoutineDef, runNA,
[loop, 100*t,
[If, X>XMax,
	[VarSet, X, INT(RAND(XMax))]
	, //else
	]
[If, y>YMax,
	[VarSet, y, INT(RAND(YMax))]
	, //else
	]
[If, x<5,
	[VarSet, X, INT(RAND(XMax))]
	, //else
	]
[If, y<5,
	[VarSet, y, INT(RAND(YMax))]
	, //else
	]
[CanvasClick, x, y]
[RoutineCall, calc]
]
]

// bei accuracy -ein-
[RoutineDef, runA,
[loop, 100*t,
[If, X>XMax,
	[VarSet, X, XMax/2]
	, //else
	]
[If, y>YMax,
	[VarSet, y, YMax/2]
	, //else
	]
[If, x<5,
	[VarSet, X, XMax/2]
	, //else
	]
[If, y<5,
	[VarSet, y, YMax/2]
	, //else
	]
[CanvasClick, x, y]
[RoutineCall, calc]
]
]


[Title,"RunIt!"]

[PD]
[iswitch, " accuracy ", 1, "Calculate the right space when running out of screen",
	[VarSet, A, 1],
	[VarSet, A, 0]
	,0,300
]

[PD]
[iSlider," NumberOfRuns (*100) ",1,1,1,99,"How Many times should it run?",
        [varSet,t,[IGet,zscript: NumberOfRuns (*100)]]
        ,0,300
]

[PD]
[iSlider," Space ",1,1,1,99,"Space between the Cicks",
        [varSet,S,[IGet,zscript:Space]]
        ,0,300 
]

[PD]
[IButton, "Run","Run this simple routine",
	[VarSet, X, [IGet,Document:Document width]/2]
	[VarSet, Y, [IGet,Document:Document height]/2]
	[If, A = 1, 
		[RoutineCall, runA],
		[RoutineCall, runNA]
	]
]