home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
cyber.net 2
/
cybernet2.ISO
/
dkdemo
/
atlas
/
shared.dir
/
00280_Script_280
< prev
next >
Wrap
Text File
|
1995-04-05
|
817b
|
30 lines
on PCorMac eitherFN
--send this a Filename in form XXXXX?.Dir
--and 5th char from the end is reset depending on machine type
if the machinetype = 256 then
set type = "P"
else
set type = "M"
end if
put type into char (length(eitherFN)-4) of eitherFN
go frame "st" of movie string(eitherFN)
end
on goer
global movielist
if getat(movielist, count(movielist)) = count(movielist) - 1 then
put getat(movielist, 1) into moviename
setat movielist, count(movielist), 1
else
set x = (1 + getat(movielist, count(movielist)))
setat movielist, count(movielist), x
put getat(movielist, x) into moviename
end if
put "@:" & chars(moviename, 2, length(moviename)) into moviename2
put moviename2
go frame "st" of movie moviename2
end