Sorry your browser is not supported!

global team as string[10]

//calling rotate(0,9) will rotate all items in the array. Calling rotate(1,9) will rotate all items but leaving the first item in place etc
function rotateForward(startpos,endpos)
  temp as string
  temp=team[startpos]
  for k=startpos to endpos-1
    team[k]=team[k+1]
  next
  team[endpos]=temp
endfunction

//I'm not sure if this function will work properly, you might need to adjust of the the numbers a bit (like instead of startpos-1, make it startpos+1, can't be bothered to figure it out properly right now lol)
function rotateBackwards(startpos,endpos)
  temp as string
  temp=team[endpos]
  for tempk=startpos-1 to endpos
    k=endpos-tempk
    team[k]=team[k-1]
  next
  team[startpos]=temp
endfunction

//this will swap the position of 2 items in the array
function switch(pos1,pos2)
  temp as string
  temp=team[pos1]
  team[pos1]=team[pos2]
  team[pos2]=temp
endfunction

Type Position
	original as string
	temp as string
EndType


workers as Position[9]

workers[1].original = "Jon"
workers[2].original = "Terry"
workers[3].original = "Pat"
workers[4].original = "Fred"
workers[5].original = "Brian"
workers[6].original = "Rich"
workers[7].original = "Larry"
workers[8].original = "Sam"
workers[9].original = "Tom"



// Restores the "temp" list with the original names
function rebuildTemp()
	for i = 1 to workers.length
		workers[i].temp = workers[i].original
	next i
endfunction



function rotateForward()
	temp as Position
	temp = workers[1]
	for i = 1 to workers.length-1
		workers[i] = workers[i+1]
	next i
	workers[workers.length] = temp
endfunction



function rotateBackward()
	temp as Position
	temp = workers[workers.length]
	for i = workers.length to 2 step -1
		workers[i] = workers[i-1]
	next i
	workers[1] = temp
endfunction



function swap(a as integer, b as integer)
	temp$ = workers[a].temp
	workers[a].temp = workers[b].temp
	workers[b].temp = temp$
endfunction



function getWorker(pos as integer)
	t$ = workers[pos].temp
endfunction  t$

// Project: rota shift 
// Created: 2018-02-21

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "rota shift" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Type Position
    original as string
    temp as string
EndType
 
 
global workers as Position[9]
 
workers[1].original = "Jon"
workers[2].original = "Terry"
workers[3].original = "Pat"
workers[4].original = "Fred"
workers[5].original = "Brian"
workers[6].original = "Rich"
workers[7].original = "Larry"
workers[8].original = "Sam"
workers[9].original = "Tom"
for a = 1 to 9
	workers[a].temp = workers[a].original
next a
 
 
AddVirtualButton(1,200,386,200)
SetVirtualButtonText(1,"Reset Rota")
AddVirtualButton(2,500,386,200)
SetVirtualButtonText(2,"Move"+chr(10)+"Forwards")
AddVirtualButton(3,800,386,200)
SetVirtualButtonText(3,"Move"+chr(10)+"Backwards")
do
	for a = 1 to 9
		Print(workers[a].temp)
	next a
	if GetVirtualButtonReleased(1)
		rebuildTemp()
	elseif GetVirtualButtonReleased(2)
		rotateForward()
	elseif GetVirtualButtonReleased(3)
		rotateBackward()
	//etc
	endif
	sync()
loop
 
// Restores the "temp" list with the original names
function rebuildTemp()
    for i = 1 to workers.length
        workers[i].temp = workers[i].original
    next i
endfunction
 
 
 
function rotateForward()
    temp as Position
    temp = workers[1]
    for i = 1 to workers.length-1
        workers[i] = workers[i+1]
    next i
    workers[workers.length] = temp
endfunction
 
 
 
function rotateBackward()
    temp as Position
    temp = workers[workers.length]
    for i = workers.length to 2 step -1
        workers[i] = workers[i-1]
    next i
    workers[1] = temp
endfunction
 
 
 
function swapshift(a as integer, b as integer)
    temp$ = workers[a].temp
    workers[a].temp = workers[b].temp
    workers[b].temp = temp$
endfunction
 
 
 
function getWorker(pos as integer)
    t$ = workers[pos].temp
endfunction  t$

function rotateForward()
    temp as Position
    temp = workers[1]
    for i = 1 to workers.length-1
        workers[i] = workers[i+1]
    next i
    workers[workers.length] = temp
endfunction
  
function rotateBackward()
    temp as Position
    temp = workers[workers.length]
    for i = workers.length to 2 step -1
        workers[i] = workers[i-1]
    next i
    workers[1] = temp
endfunction