I think I must be out of it

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|64\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> I think I must be out of it
Tue, 19 Feb 2008, 23:44
power mousey	Tiki, your program and code works fine. I just used challenge=1 for True. and used various numbers for sand_done and sand_goal. I also added >= for the first line in the main if block. and text display the value of done# too. and a Waikey to pause the program and check each time. Graphics 640,480 SetBuffer BackBuffer() challenge=1 sand_done=11 sand_goal=10 If challenge = True If sand_done >= sand_goal Then sand_done = sand_goal Color 255,0,0 done# = 0 If sand_done <> 0 And sand_goal <> 0 Then done# = (sand_done/sand_goal) If done# > 0 Then Rect 512,10,200 * done#,30,True Color 255 - background,255 - background,255 - background For i = 0 To 2 Rect 512 - i,10 - i,200 + i * 2,30 + i * 2,False Next Text 612,25,"Goal",1,1 Text 10,380, Str(done#) EndIf WaitKey End --v