Hollywood forums

Code: Select all

; Unlimited Bob's in Hollywood
;
; Based on Processing example by Luis2048
;
@DISPLAY {Width = 360, Height = 240, Title = "Unlimited Bob's"}


@BRUSH 6, "ball.png", {LoadAlpha =  True}


CreateBrush(0, GetAttribute(#DISPLAY,1,#ATTRWIDTH), GetAttribute(#DISPLAY,1,#ATTRHEIGHT))
CreateBrush(1, GetAttribute(#DISPLAY,1,#ATTRWIDTH), GetAttribute(#DISPLAY,1,#ATTRHEIGHT))
CreateBrush(2, GetAttribute(#DISPLAY,1,#ATTRWIDTH), GetAttribute(#DISPLAY,1,#ATTRHEIGHT))
CreateBrush(3, GetAttribute(#DISPLAY,1,#ATTRWIDTH), GetAttribute(#DISPLAY,1,#ATTRHEIGHT))
CreateBrush(4, GetAttribute(#DISPLAY,1,#ATTRWIDTH), GetAttribute(#DISPLAY,1,#ATTRHEIGHT))
CreateBrush(5, GetAttribute(#DISPLAY,1,#ATTRWIDTH), GetAttribute(#DISPLAY,1,#ATTRHEIGHT))


bob = {x = 0, y = 0, xang = 0, yang = 0, surf = 0}


Function bob:draw()
	self.x = (GetAttribute(#BRUSH,0,#ATTRWIDTH)/2)*Sin((Rad(self.xang))*0.95)
	self.y = (GetAttribute(#BRUSH,0,#ATTRHEIGHT)/2)*Cos((Rad(self.yang))*0.97)
	
	self.xang = self.xang + 1.17
	self.yang = self.yang + 1.39
	
	SelectBrush(self.surf)
	DisplayBrush(6, #CENTER + self.x, #CENTER + self.y, { AnchorX = 0.5, AnchorY = 0.5 })
	EndSelect
	
	DisplayBrush(self.surf, 0, 0)
	
	self.surf = self.surf + 1
	self.surf = Wrap(self.surf, 0, 6)
	
EndFunction




Function p_MainLoop()
	bob:draw()
	Flip()
EndFunction




EscapeQuit(True)

BeginDoubleBuffer()


SetInterval(1, p_MainLoop, 1000/50) ; 50fps

Repeat
	WaitEvent
Forever