[ABTOMAT]

Внесу свои пять копеек - пора бы сферообразным вражинам придумать более осмысленный облик!
З.Ы.

Я обещал после остальной доделки. Пока не скоро.

Не вижу никакой сложности:

Graphics 400,300,32,2
SetBuffer BackBuffer()

font1 = LoadFont("Comic Sans MS",24,1,1)

font2 = LoadFont("Comic Sans MS",36,1,1)



Repeat
Cls
Color 255,128,0
If MouseX() < 200 Then
	If MouseY() < 150 Then
		Color 255,128,0
		Rect 0,0,200,150,0
		SetFont font2
		Text 100,75,"640x480",1,1
		Color 200,0,0
		SetFont font1
		Text 100,225,"1024x768",1,1
		Text 300,75,"800x600",1,1
		Text 300,225,"1280x1024",1,1
		GW = 640
		GH = 480
		If MouseHit(1) Then Exit
	Else
		Color 255,128,0
		Rect 0,150,200,150,0
		SetFont font2
		Text 100,225,"1024x768",1,1
		Color 200,0,0
		SetFont font1
		Text 100,75,"640x480",1,1
		Text 300,75,"800x600",1,1
		Text 300,225,"1280x1024",1,1
		GW = 1024
		GH = 768
		If MouseHit(1) Then Exit
	End If
Else
	If MouseY() < 150 Then
		Color 255,128,0
		Rect 200,0,200,150,0
		SetFont font2
		Text 300,75,"800x600",1,1
		Color 200,0,0
		SetFont font1
		Text 100,225,"1024x768",1,1
		Text 100,75,"640x480",1,1
		Text 300,225,"1280x1024",1,1
		GW = 800
		GH = 600		
		If MouseHit(1) Then Exit

	Else
		Color 255,128,0
		Rect 200,150,200,150,0
		SetFont font2
		Text 300,225,"1280x1024",1,1
		Color 200,0,0
		SetFont font1
		Text 100,75,"640x480",1,1
		Text 300,75,"800x600",1,1
		Text 100,225,"1024x768",1,1
		GW = 1280
		GH = 1024
		If MouseHit(1) Then Exit

	End If
End If
Flip
Forever

Graphics3D GW,GH,32,1
SetBuffer BackBuffer()

Ну, разве придётся подправлять имайджи чтоб находились где надо, но советую заюзать либу от Михаила Вострикова "Fast Text" и "Fast Image" - получишь приост в скорости и возможность масштабирования картинок без сильных искажений