Code: Select all
local sVideoID
on videoplayer
if "ioscontrol" is among the lines of iphoneControls() then
controlDelete
end if
iphoneControlCreate "player", "ioscontrol"
put the result into sVideoID
// Set the basic properties including visibility, rectangle and video file path
iphoneControlSet "ioscontrol", "filename", specialFolderPath("engine") & "/Video Namibia app.m4v"
iphoneControlSet "ioscontrol", "preserveAspect", true
iphoneControlSet "ioscontrol", "showController", true
iphoneControlSet "ioscontrol", "visible", true
iphoneControlSet "ioscontrol", "fullscreen", true
//iphoneControlSet "ioscontrol", "rect", "000,115,1024,570"
// Start playing the video
iphoneControlDo "ioscontrol", "play"
end videoplayer
on playerFinished
controlDelete
end playerFinished
on playerLeaveFullscreen
controlDelete
end playerLeaveFullscreen
on controlDelete
// Delete the control
iphoneControlDelete sVideoID
end controlDelete
Code: Select all
iphoneControlDelete "ioscontrol"
Chris