Computer Science Canada :: View topic

proc arrowleft
var arrow : int
arrow := Pic.FileNew ("ArrowLeft.jpg")
Pic.SetTransparentColor (arrow, white)
var arsprite : int := Sprite.New (arrow)
Sprite.Show (arsprite)
end arrowleft

proc arrowright
var arrow : int
arrow := Pic.FileNew ("ArrowLeft.jpg")
arrow := Pic.Rotate (arrow, 270, -1, -1)
Pic.SetTransparentColor (arrow, white)
var arsprite : int := Sprite.New (arrow)
Sprite.Show (arsprite)
end arrowright

proc arrowup
var arrow : int
arrow := Pic.FileNew ("ArrowLeft.jpg")
arrow := Pic.Rotate (arrow, 180, -1, -1)
Pic.SetTransparentColor (arrow, white)
var arsprite : int := Sprite.New (arrow)
Sprite.Show (arsprite)
end arrowup

proc arrowdown
var arrow : int
arrow := Pic.FileNew ("ArrowLeft.jpg")
arrow := Pic.Rotate (arrow, 90, -1, -1)
Pic.SetTransparentColor (arrow, white)
var arsprite : int := Sprite.New (arrow)
Sprite.Show (arsprite)
end arrowdown

var arrowdir : array 2 .. 5 of procedure

arrowdir (2) := arrowleft
arrowdir (3) := arrowright
arrowdir (4) := arrowup
arrowdir (5) := arrowdown
loop
arrowdir (Rand.Int (2, 5))
end loop

Author:	Uber Tankz [ Thu Jun 08, 2006 9:11 pm ]
Post subject:	i know
i know, right now im just makin it work im a make it efficient later. and whats with the p? why is it there? what does it do?

Author:	Uber Tankz [ Thu Jun 08, 2006 9:13 pm ]
Post subject:	uh oh
um, when i put the p ther it says it cant get the predef from the predef list. can that be fixed

Author:	Delos [ Thu Jun 08, 2006 9:14 pm ]
Post subject:
'p' is an identifier - a name. The term 'procedure' can not exist without an identifier (i.e., it cannot be anonymous). As for making it more efficient later - I'm afraid this isn't a case of efficiency as it is a case of sufficiency. And for those thinking along the lines of the evils of permature optimization - I'm quite certain that this doesn't even fall into that realm of thought! In brevity: go with TOTG's suggestion and create a single procedure with parameters.