Code: Select all
InitSprite() : InitKeyboard()
OpenWindow(0,0,0,640,480,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0)
CreateSprite(0,300,300)
StartDrawing(SpriteOutput(0))
Box(0,0,300,300,RGB(0,128,128))
Box(50,50,200,200,#Red)
StopDrawing()
TransparentSpriteColor(0,RGB(0,128,128))
Repeat
Repeat
EventID = WindowEvent()
Select EventID
Case #PB_Event_CloseWindow : End
EndSelect
Until EventID = 0
ExamineKeyboard()
ClearScreen(#White)
DisplayTransparentSprite(0,50,50)
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)Am I missing something obvious here?

