Steering with wsad.
variableCreate(X,30.i)
variableCreate(Y,15.i)
windowCreate(X,Y)
variableCreate(input,var.i)
variableCreate(x,0.i)
variableCreate(y,0.i)
variableCreate(Ax,15.i)
variableCreate(Ay,7.i)
variableCreate(comparisonTemp,var.i)
variableCreate(randomTemp,var.i)
windowClear('.s)
windowSetPoint(#.s,0.i,0.i)
windowDraw()
/main game loop
logicLoop(1.i)
/input
windowGetKeyInput(input)
comparisonIsEqual(comparisonTemp,input,224.i)
logicIfLines(comparisonTemp,2.i)
windowGetKeyInputNow(input)
/move player
logicSwitch(input)
logicCase(27.i)
runtimeExit()
}
logicCase(119.i)
y.basicSubstraction(y,1.i)
}
logicCase(115.i)
y.basicAddition(y,1.i)
}
logicCase(97.i)
x.basicSubstraction(x,1.i)
}
logicCase(100.i)
x.basicAddition(x,1.i)
}
}
mathGetRandomNumber(randomTemp)
randomTemp=randomTemp%3.i-1.i
Ax=Ax+randomTemp
mathGetRandomNumber(randomTemp)
randomTemp=randomTemp%3.i-1.i
Ay=Ay+randomTemp
comparisonIsLess(comparisonTemp,x,0.i)
logicIfLines(comparisonTemp,2.i)
x=x+1.i
comparisonIsLess(comparisonTemp,y,0.i)
logicIfLines(comparisonTemp,2.i)
y=y+1.i
comparisonIsGreaterOrEqual(comparisonTemp,x,X)
logicIfLines(comparisonTemp,2.i)
x=x-1.i
comparisonIsGreaterOrEqual(comparisonTemp,y,Y)
logicIfLines(comparisonTemp,2.i)
y=y-1.i
comparisonIsLess(comparisonTemp,Ax,0.i)
logicIfLines(comparisonTemp,2.i)
Ax=Ax+1.i
comparisonIsLess(comparisonTemp,Ay,0.i)
logicIfLines(comparisonTemp,2.i)
Ay=Ay+1.i
comparisonIsGreaterOrEqual(comparisonTemp,Ax,X)
logicIfLines(comparisonTemp,2.i)
Ax=Ax-1.i
comparisonIsGreaterOrEqual(comparisonTemp,Ay,Y)
logicIfLines(comparisonTemp,2.i)
Ay=Ay-1.i
consoleClear()
windowClear('.s)
windowSetPoint(#.s,x,y)
windowSetPoint(A.s,Ax,Ay)
windowDraw()
timeWait(60.i)
}