REM ========================================================
REM           SCPRTL10.DLL demonstration script.
REM                   Simple Game
REM (C) 1998 by Alex Vakulenko, http://www.vakcer.com/oberon
REM ========================================================

' ================== SCORTL10.DLL public functions ==============
DECLARE FUNCTION BeginImage& LIB "scprtl10.dll" (BYVAL x&,BYVAL y&,BYVAL Color&) ALIAS "BeginImage"
DECLARE SUB EndImage LIB "scprtl10.dll" (BYVAL Path$) ALIAS "EndImage"
DECLARE SUB ImageFillRect LIB "scprtl10.dll" (BYVAL x1&,BYVAL y1&,BYVAL x2&,BYVAL y2&,BYVAL Color&) ALIAS "ImageFillRect"
DECLARE SUB ImageFillEllipse LIB "scprtl10.dll" (BYVAL x1&,BYVAL y1&,BYVAL x2&,BYVAL y2&,BYVAL Color&) ALIAS "ImageFillEllipse"
' =========== End of SCORTL10.DLL public function declarations ==============

DECLARE FUNCTION RGB&(r&,g&,b&)

' Script private declarations
DECLARE SUB BuildPreview

GLOBAL ImageFile$
' BMP image file to store previewa
ImageFile$=GetTempFolder()+"demo_temp.bmp"

GLOBAL Height&,Width&,Pos&,rx&,ry&
Height&=140 ' Field height
Width&=235 ' Field width
Pos=Width\2 ' Pad position
rx=25:ry=5 ' Pad size

GLOBAL x&,y&,cx&,cy&,vx&,vy&
cx&=10:cy&=10 ' Ball size
vx&=5:vy&=-5 ' Ball speed
x=Width/2:y=Height-ry-cy-2 ' Ball initial position

' ========== Main Dialog description
BEGIN DIALOG OBJECT MainDialog 164, 130, "Arcanoid 2", SUB MainDlgFunc
	CANCELBUTTON  63, 109, 40, 14, .Cancel1
	IMAGE  2, 3, 160, 89, .Preview
	HSLIDER 0, 95, 164, 11, .Slider
END DIALOG

'===== Dialog box even handler
SUB MainDlgFunc(BYVAL ControlID%, BYVAL EventCode%)
SELECT CASE EventCode
	CASE 0 
		BuildPreview ' Create preview
		MainDialog.SetTimer 50 ' Step time interval
	CASE 2
		SELECT CASE ControlID
			CASE MainDialog.Slider.GETID()
				Pos&=MainDialog.Slider.GetValue()
				BuildPreview
		END SELECT
	CASE 5
		e&=0 ' e<>0 if 'Beep' must be played 
		if x+vx+cx>Width or x+vx<0 then vx=-vx:e=1
		if y+vy<0 then vy=-vy:e=1
		if y+vy+cy>Height-ry-2 then
			if (x<Pos-(rx+cx)\2 or x>Pos+rx\2) then
				x=messagebox("You have missed the ball"+CHR(13)+"Do you want to try again?","You lost!",20)
				if x=6 then
					x=Width/2:y=Height-ry-cy-2
					vx=5:vy=5
				else
					MainDialog.CloseDialog 2
				endif
			else
				e=1
			endif
			vy=-vy
		endif
		x=x+vx
		y=y+vy
		if e then beep
		BuildPreview
END SELECT
END SUB

'=========================== Main Script Body =====================================

' Initialize all dialog controls
MainDialog.Preview.SetStyle 288
MainDialog.Slider.SetMinRange 0
MainDialog.Slider.SetMaxRange Width
MainDialog.Slider.SetIncrement 1
MainDialog.Slider.SetValue Pos

DIALOG MainDialog ' Display dialog box
STOP

' ======= Create preview of the selected font
SUB BuildPreview
BeginImage Width,Height,0 ' Create an empty image in memory
		ImageFillRect Pos-rx\2,Height-ry-2,Pos+rx\2,Height-2,RGB(255,0,0)
		ImageFillEllipse x,y,x+cx,y+cy,RGB(255,255,255)
EndImage ImageFile$ ' Save the image to file and free memory
MainDialog.Preview.SetImage ImageFile ' Display the image in dialog box IMAGE control
END SUB

FUNCTION RGB&(r&,g&,b&)
	RGB=(r AND 255)+((g AND 255)<<8)+((b AND 255)<<16)
END FUNCTION