if getAt(getAt(GTSSizeList, GTSChoosen), 2) = 0 then
put "Installing" && getAt(GTSNameList, GTSChoosen) && "on to your HD in order to play it later from DOS will occupy" && getAt(getAt(GTSSizeList, GTSChoosen), 1) & "Mb of disk space.It will be installed to " & getAt(getAt(GTSSizeList, GTSChoosen), 3) & RETURN & ".......... INSTALL ............ CANCEL ........." into field 40
else
put "Installing the files on your HD to enable you to play" && getAt(GTSNameList, GTSChoosen) && "later in DOS from the CD Rom will occupy" && getAt(getAt(GTSSizeList, GTSChoosen), 1) & "Mb of disk space. It will be installed to " & getAt(getAt(GTSSizeList, GTSChoosen), 3) & RETURN & ".......... INSTALL ............ CANCEL ........." into field 40
end if
end if
if x = 4 then
if ((GTSWIN95 = 1) and (getAt(getAt(GTSSizeList, GTSChoosen), 4) = 0) and (getAt(getAt(GTSSizeList, GTSChoosen), 5) <> 4)) or (GTSChoosen = 5) or (GTSChoosen = 4) then
if (getAt(getAt(GTSSizeList, GTSChoosen), 5) = 0) or (getAt(getAt(GTSSizeList, GTSChoosen), 5) = 3) then
if getAt(getAt(GTSSizeList, GTSChoosen), 2) = 0 then
put "In order to play" && getAt(GTSNameList, GTSChoosen) && ",it must first be Installed to your HD . This will occupy" && getAt(getAt(GTSSizeList, GTSChoosen), 1) & "Mb of disk space and will be installed to " & getAt(getAt(GTSSizeList, GTSChoosen), 3) & RETURN & ".......... INSTALL ............ CANCEL ........." into field 40
else
put "To play" && getAt(GTSNameList, GTSChoosen) && "from the CD Rom, some files must be installed on your HD which will occupy" && getAt(getAt(GTSSizeList, GTSChoosen), 1) & "Mb of disk space" & RETURN & "and will be installed to " & getAt(getAt(GTSSizeList, GTSChoosen), 3) & RETURN & ".......... INSTALL ............ CANCEL ........." into field 40
end if
setAt(getAt(GTSOptionList, x), 6, 40)
else
setAt(getAt(GTSOptionList, x), 6, 39)
end if
else
setAt(getAt(GTSOptionList, x), 6, 39)
end if
end if
set ThisList to getAt(GTSOptionList, x)
set the castNum of sprite getAt(ThisList, 5) to getAt(ThisList, 6)
set the locH of sprite getAt(ThisList, 5) to getAt(ThisList, 7)
set the locV of sprite getAt(ThisList, 5) to getAt(ThisList, 8)
set the ink of sprite getAt(ThisList, 5) to 37
updateStage()
if x = 2 then
GTSPreviewGame()
else
repeat while 1
if x = 1 then
wait(1)
GTSGameStop()
exit repeat
end if
if x = 4 then
if (getAt(getAt(GTSSizeList, GTSChoosen), 4) = 1) or (getAt(getAt(GTSSizeList, GTSChoosen), 5) = 1) or (getAt(getAt(GTSSizeList, GTSChoosen), 5) = 4) then
wait(1)
put "play only"
if the machineType > 200 then
set TempName to getAt(GTSBatchPlayList, GTSChoosen)
if TempName <> "0" then
open(the pathName & TempName)
end if
end if
GTSGameStop()
exit repeat
else
set GTSInstall to 1
if the mouseUp then
set GTSMouseUP to 1
else
set GTSMouseUP to 0
end if
if (GTSMouseUP = 1) and (the mouseCast = 40) then
set GTSMouseUP to 0
repeat while 1
if word the mouseWord of field 40 = "INSTALL" then
set GTSThisword to the mouseWord
set the foreColor of word GTSThisword of field 40 to 0
repeat while word the mouseWord of field 40 = "INSTALL"
if the mouseDown then
set GTSYesOrCancel to 1
set the castNum of sprite getAt(ThisList, 5) to 38
set the locH of sprite getAt(ThisList, 5) to 200
set the locV of sprite getAt(ThisList, 5) to 200
set the ink of sprite getAt(ThisList, 5) to 37
cursor(4)
updateStage()
end if
end repeat
set the foreColor of word GTSThisword of field 40 to 255
end if
if word the mouseWord of field 40 = "CANCEL" then
set GTSThisword to the mouseWord
set the foreColor of word GTSThisword of field 40 to 0
repeat while word the mouseWord of field 40 = "CANCEL"
if the mouseDown then
set GTSYesOrCancel to 2
set the locH of sprite getAt(ThisList, 5) to 2000
updateStage()
end if
end repeat
set the foreColor of word GTSThisword of field 40 to 255
end if
if GTSYesOrCancel > 0 then
exit repeat
next repeat
end if
if (the mouseCast <> 40) and the mouseDown then
beep()
end if
end repeat
if GTSYesOrCancel = 1 then
set GTSYesOrCancel to 0
put "both install then play"
if the machineType > 200 then
set TempName to getAt(GTSBatchBothList, GTSChoosen)
if TempName <> "0" then
open(the pathName & TempName)
end if
end if
cursor(-1)
set the locH of sprite getAt(ThisList, 5) to 2000
setAt(getAt(GTSSizeList, GTSChoosen), 5, 1)
updateStage()
GTSGameStop()
exit repeat
end if
if GTSYesOrCancel = 2 then
set GTSYesOrCancel to 0
exit repeat
end if
end if
end if
end if
if x = 3 then
set GTSInstall to 1
if the mouseUp then
set GTSMouseUP to 1
else
set GTSMouseUP to 0
end if
if (GTSMouseUP = 1) and (the mouseCast = 40) then
set GTSMouseUP to 0
repeat while 1
if word the mouseWord of field 40 = "INSTALL" then
set GTSThisword to the mouseWord
set the foreColor of word GTSThisword of field 40 to 0
repeat while word the mouseWord of field 40 = "INSTALL"
if the mouseDown then
set GTSYesOrCancel to 1
set the castNum of sprite getAt(ThisList, 5) to 38
set the locH of sprite getAt(ThisList, 5) to 200
set the locV of sprite getAt(ThisList, 5) to 200
set the ink of sprite getAt(ThisList, 5) to 37
cursor(4)
updateStage()
end if
end repeat
set the foreColor of word GTSThisword of field 40 to 255
end if
if word the mouseWord of field 40 = "CANCEL" then
set GTSThisword to the mouseWord
set the foreColor of word GTSThisword of field 40 to 0
repeat while word the mouseWord of field 40 = "CANCEL"
if the mouseDown then
set GTSYesOrCancel to 2
set the locH of sprite getAt(ThisList, 5) to 2000
updateStage()
end if
end repeat
set the foreColor of word GTSThisword of field 40 to 255
end if
if GTSYesOrCancel > 0 then
exit repeat
next repeat
end if
if (the mouseCast <> 40) and the mouseDown then
beep()
end if
end repeat
if GTSYesOrCancel = 1 then
set GTSYesOrCancel to 0
put "install only"
if the machineType > 200 then
set TempName to getAt(GTSBatchInstallList, GTSChoosen)
