PC Play 2 (Suomi)/PCPLAY2_2.ISO/play/main.dxr/00001_StartMovie.ls

Text File | 1998-02-15 | 4.6 KB | 50 lines

global gMovieList, gMenu, GLanguage, gQuit, gVolume, gFlags, gInstall, BUTTON_START, TEXT_SPR, TXT_START, TXT_END, SYS_SPR, MODE_SPR, VOL_BTN, VOL_SPR, INST_SPR, QUIT_SPR, FLAG_SPR, HILITE1, HILITE2

on prepareMovie
  set Install to [[1, [#W95: "Demos\Wing\Setup"], [#Dest: "Wing Commander Prophecy", #size: "15", #W95: "Wing Commander Prophecy\Wcp3dfx", #delete: EMPTY]], [1, [#W95: "Demos\Toca\Setup"], [#Dest: "Codemast\Tourcar", #size: "44", #W95: "\Codemasters\TOCA Touring Car Championship Demo", #UnInst: "\Codemasters\TOCA Touring Car Championship Demo"]], [3, [#W95: "Demos\Die\Setup", #CDW95: "Demos\Die\Windie"], [#Dest: "Program Files\Interplay\Die By The Sword", #size: "24", #W95: "\Die By The Sword\Die By The Sword", #CDW95: "Demos\Die\Windie", #UnInst: "\Die By The Sword\Uninstall Die By The Sword"]], [1, [#DOS: "Install\4gen.bat"], [#Dest: "Games\Webfoot\4gen", #size: "18", #Setup: "Games\Webfoot\4gen\Setup", #DOS: "Games\Webfoot\4gen\4gen", #delete: EMPTY]], [1, [#W95: "Demos\Andretti\ANDRETTIDEMO.EXE"], [#Dest: "Program Files\EA SPORTS\Andretti Racing Demo", #size: "22", #W95: "Program Files\EA SPORTS\Andretti Racing Demo\Andretti Demo", #delete: EMPTY]], [1, [#W95: "Install\Shadow.bat"], [#Dest: "Shadow\Sm_web_d", #size: "32", #W95: "Shadow\Sm_web_d\Shadow", #delete: EMPTY]], [3, [#DOS: "Install\Cobra.bat", #CDDOS: "Play\Run\Cobra.bat"], [#Dest: "Cobra", #size: "11", #DOS: "Cobra\Gundos", #CDDOS: "Demos\Cobra\Gundos", #delete: EMPTY]], [1, [#W95: "Dkedemo\Setup"], [#Dest: "Darkdemo\dkedemo", #size: "24", #W95: "\Kalisto\Dark Earth\Dark Earth Demo (256)", #UnInst: "\Kalisto\Dark Earth\UnInstall Demo"]], [1, [#W95: "Ubikus\Setup"], [#Dest: "Program\Cryo\Ubik", #size: "35", #W95: "\Ubik\Ubik", #Remove: EMPTY]], [1, [#W95: "Demos\Football\NCAA98"], [#Dest: "Windows\Temp", #size: "19", #W95: "Windows\Temp\NCAA Football 98", #delete: EMPTY]], [2, [#CDW95: "Install\Young.bat"], [#CDW95: "Demos\Young\Young95"]], [1, [#DOS: "Install\War.bat"], [#Dest: "Wardemo", #size: "24", #Setup: "Wardemo\Setsound", #DOS: "Wardemo\Warinc", #delete: EMPTY]], [1, [#W95: "Demos\Ski\Skidemo"], [#Dest: "Sierra\Skidemo", #size: "18", #W95: "\Sierra\Front Page Sports Ski Racing Demo", #UnInst: "\Sierra\Sierra Utilities"]], [1, [#W95: "Demos\Fa18\FA18KOREADEMO"], [#Dest: "Program\FA-18 Korea Demo", #size: "33", #W95: "Program\FA-18 Korea Demo\Korea Demo", #Remove: EMPTY]], [1, [#W95: "Demos\Fighting\Ffsetup"], [#Dest: "Fforce", #size: "15", #W95: "Fforce\Ffsetup", #delete: EMPTY]], [1, [#W95: "Install\Dynasty.bat"], [#Dest: "Windows\Temp\Work\Dynasty", #size: "22", #W95: "Windows\Temp\Work\Dynasty\Ad", #delete: EMPTY]], [1, [#W95: "Demos\Tumble\Tb20demo"], [#Dest: "Program\voxar\Tumblebugs 2.0 demo", #size: "4", #W95: "\Tumblebugs 2.0 demo\Tumblebugs 2.0 demo", #Remove: EMPTY]], [3, [#W95: "Install\Aggress.bat", #CDW95: "Play\Run\Aggress.bat"], [#Dest: "Aggress", #size: "2", #W95: "Aggress\Aggress", #CDW95: "Demos\Aggress\Aggress", #delete: EMPTY]], [1, [#W95: "Demos\Airwar\Aw3demo"], [#Dest: "I-Magic\AW3Demo", #size: "32", #W95: "\I-Magic Games\Air Warrior III Demo\Air Warrior III Demo", #UnInst: "\I-Magic Games\Air Warrior III Demo\Uninstall Air Warrior III Demo"]], [1, [#W95: "Demos\Heat\katalyst"], [#Dest: "Program\Heat", #size: "6", #W95: "Program\Heat\Programs\Heatup", #UnInst: "\HEAT\UnInstall Heat"]], [1, [#W95: "Demos\Chronx\Chronx41"], [#Dest: "Program\ChronX", #size: "6", #W95: "\Chron X\Chron X", #UnInst: "\Chron X\Uninstall Chron X"]], [1, [#W95: "Demos\Netfight\nf"], [#Dest: "Program\Heat\Net Fighter", #size: "37", #Remove: EMPTY]], [1, [#W95: "Demos\Alien\alienrace"], [#Dest: "Program\SegaSoft\Alien Race", #size: "37", #W95: "Program\SegaSoft\Alien Race\Alienrac", #Remove: EMPTY]]]
  if objectp(gMovieList) then
    set GLanguage to GetLanguage(gMovieList)
  else
    set GLanguage to 1
  end if
  Constants()
  set gMenu to new(script "DevObj", BUTTON_START, 23, HILITE1, Install)
  set gQuit to new(script "BtnHiliteObj", QUIT_SPR)
  set the downSound of gQuit to "kugg2"
  set gVolume to new(script "BtnVoulmeObj", VOL_BTN, VOL_SPR, VOL_SPR + 1)
  set gFlags to new(script "LanguageObj", FLAG_SPR, 4, HILITE2)
  SelectSpr(gFlags, FLAG_SPR + GLanguage - 1)
  set the mouseDownScript to "VolClick(gVolume)"
end

on startMovie
  Navigate(gMenu)
end

on Constants
  set BUTTON_START to 5
  set TEXT_SPR to 32
  set TXT_START to 33
  set TXT_END to 45
  set SYS_SPR to 65
  set MODE_SPR to 68
  set VOL_BTN to 70
  set VOL_SPR to 78
  set INST_SPR to 71
  set QUIT_SPR to 73
  set FLAG_SPR to 74
  set HILITE1 to 90
  set HILITE2 to 91
end

on enterFrame
  play frame gMenu
  play frame gFlags
  play frame gQuit
  play frame gVolume
end

on keyDown
  key(gMenu)
end