PureBasic Forums - English

Code: Select all

Global lzx.f=0; 
Global lzy.f=20;
Global lzz.f =22;

If InitSprite() = 0
   End
EndIf
  
If OpenWindow(0, 0, 0, 640, 480, "It's a bit loopy and I thought strange I don't really see what the attraction is", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
  If OpenWindowedScreen(WindowID(0), 0, 0, 640, 480, 1, 0, 0)  
      For a = 0 To 10
      
      CreateSprite(a, 20, 20 )
      
       If StartDrawing(SpriteOutput(a))
        Circle(10, 10, 2 ,RGB(Random(255),Random(255),Random(255)))
        StopDrawing() ; This is required when drawing operations are done. Never forget it!  
    EndIf 
       
    Next
    EndIf
  Repeat
    Repeat
      Event = WindowEvent()
      If Event = #PB_Event_CloseWindow
        End 
      EndIf
    Until Event = 0
    
    FlipBuffers() 
    
    
    ClearScreen(RGB(0, 0, 0))
    StartSpecialFX()
    
    
    If a > 10 
      a=0
    EndIf   
         
    lzx + (0.015*(-10*lzx+10*lzy));
    lzy + (0.015*(28*lzx-lzy-lzx*lzz));
    lzz + (0.015*(-8*lzz/3+lzx*lzy));
   
    x = (lzx*10) + 320;
	  y = (lzz*10) - 20;
	  	  
	   
	  DisplayTranslucentSprite(a, x, y,lzz*3)
         
    
    StopSpecialFX()
      
    
    a+1
    Delay(1)
  
   ForEver

EndIf