Spawn Figure Collection/spawn collection cd.iso/setup/data1.cab/Program_Executable_Files/gaibu.cst/00001.ls

Text File | 1998-01-19 | 2.0 KB | 77 lines

--âþꊧÉrÉbÉgÉ}ÉbÉvCDíTǵ
on newBitmap newFile,sChannel
  set the puppet of sprite(sChannel) to TRUE
  set the filename of member 10 of castLib "gaibu" to newFile
  set the member of sprite(sChannel) to member 10 of castLib"gaibu"
  --  puppetTransition 41,2,40,FALSE
  updateStage
end

on newWave newFile
  -- âþêŠÇÕÇbÇcÇ©ÇÁçƒêðÇÝÇÈ
  global gCDPATH
  global SndMember
  set SndMember = new(#sound,member 11 of castLib"gaibu")
  set the name of SndMember = "sound"
  set the fileName of SndMember to gCDPATH & "sound\"&newFile
end

on newVideo newFile
  -- ÉrÉfÉIÇÕÇbÇcÇ©ÇÁçƒêðÇÝÇÈ
  global gCDPATH
  set VideoMember = new(#digitalVideo,member 12 of castLib"gaibu")
  set the name of VideoMember = "video"
  set the fileName of VideoMember to gCDPATH & "video\" & newFile
end

on initVideo
  global gMovLength
  set gMovLength to the duration of member "video"
end

on ChangeSound
  global SndNumber
  global SndList
  --  PuppetSound 1,TRUE
  set the SoundEnabled to FALSE
  set SndNumber to SndNumber + 1
  if SndNumber > count(SndList) then
    set SndNumber to 1
  end if
  newWave getat(SndList,SndNumber)
  set the SoundEnabled to TRUE
end

on LoopSound
  global SndOn
  if (soundbusy(1) = 0) and (the SoundEnabled = TRUE) then
    PuppetSound 1,TRUE
    set the SoundEnabled to FALSE
    set the SoundEnabled to TRUE
  end if
end

on SE channel,str
  if the soundEnabled = TRUE then
    puppetSound channel,str
  end if
end

on serchCD
  repeat with Drive = 65 to 90
    repeat with Nth = 1 to the maxInteger
      set DriveString = numToChar(Drive) & ":\"
      set NthFile = getNthFileNameInFolder(DriveString,Nth)
      if NthFile = "YK_PC_001" then     -- CD ÇÃíÜÇ…ì¸Ç¡ÇƒÇ¢ÇÈÉtÉ@ÉCÉãǝéwíË
        return DriveString
        exit repeat
      end if
      if NthFile = "" then
        exit repeat
      end if
    Å@end repeat
  end repeat
  alert "ÇbÇcÅ|ÇqÇnÇlÇ™å©Ç¬Ç©ÇËÇ‹ÇþÇÒǼǵÇýÅBÉvÉçÉOÉâÉÄǝèIóþǵNjÇÝÅB"
  quit;
end