-- EVILMANA.COM PSP LUA CODEBASE
-- www.evilmana.com/tutorials/codebase
-- Beginner AI: Move In A Circle
-- SUBMITTED BY: Charlie

green = Color.new(0, 200, 0)
blockImage = Image.createEmpty(32,32)

blockImage:clear(green)

block = { x = 10, y = 100 }

radius = 100
speed = 5

xcenter = 240

ycenter = 135

degree = 0
radian = 0

while true do
screen:clear()

degree = degree + speed
      radian = (degree/180)*math.pi
      block.x = xcenter+math.cos(radian)*radius
      block.y = ycenter-math.sin(radian)*radius

screen:blit(block.x,block.y,blockImage)

screen.waitVblankStart()
screen.flip()
end