AMIGA-RESISTANCE

/******************** BEGIN PAGE #3 ********************/
pages[3] = Function()
bc = 0
ac = 0
CreateBGPic(1, 380, 240, $DFDFDF)
SelectBGPic(1)
SetFormStyle(#NORMAL)
SetFillStyle(#FILLCOLOR)
Box(-8, 0, 390, 145, $FFFFA3, 0, 0)
SetFont("helvetica.font", 13)
SetFontColor($0)
t$ = "Where will mp3 files be stored, in relation to new playlist ?"
TextOut(20, 110, t$, #LEFT, 0)
LoadBrush(1, "Brushes/btn_langtempl.png", {})
DisplayBrush(1, 17, 201)
LoadBrush(2, "Brushes/btn_langtempl.png", {})
DisplayBrush(2, 265, 201)
SetFont("helvetica.font", 13)
SetFontColor($0)
t$ = "Back"
TextOut(51, 208, t$, #LEFT, 0)
HideLayer(5)
SetFont("helvetica.font", 13)
SetFontColor($0)
t$ = "Next"
TextOut(303, 209, t$, #LEFT, 0)
HideLayer(6)
LoadBrush(3, "Brushes/F3.png", {})
DisplayBrush(3, 0, 0)
HideLayer(7)
bc = 3
ac = 0



MakeButton(2, #LAYERBUTTON, 3, 0, 1, {

OnMouseDown = Function()
nextpage = 2
Return
EndFunction})


MakeButton(3, #LAYERBUTTON, 4, 0, 1, {

OnMouseDown = Function()
nextpage = 5
Return
EndFunction})

scui.NewObject(
  #IFOCLASS_CYCLE,
  "Cycle1",
  nil,
  nil,
  nil,
  { Options = { "Option 1", "Option 2", "Option 3", "Option 4" },
    DefaultOption = 2 }
)

EndSelect
DisplayBGPic(1)
ShowLayer(5)
ShowLayer(6)
ShowLayer(7)
nextpage = 0


Repeat
 WaitEvent
Until nextpage > 0
scui.removeobject("Cycle1")
Return(nextpage)
EndFunction