Sound, Music & MIDI Collection 2/SMMVOL2.bin/DEMO/PRG/CIRCLES.ZIP/CI_MAIN.DIX/00015_WINDOWS.ls

Text File | 1995-05-01 | 4.9 KB | 197 lines

on ci_sup_open
  global mywin, player, fcommand
  if isdemo() then
    set fcommand to EMPTY
    exit
  end if
  cur_busy()
  if objectp(mywin) then
    forget(mywin)
  end if
  set horzOrigin to the stageLeft + 110
  set vertOrigin to the stageTop + 112
  set mywinrect to rect(horzOrigin, vertOrigin, horzOrigin + 400, vertOrigin + 225)
  if player then
    set mywin to window "ci_sup.dix"
    set the rect of mywin to mywinrect
    set the fileName of mywin to "ci_sup.dix"
  else
    set mywin to window "ci_sup.dir"
    set the rect of mywin to mywinrect
    set the fileName of mywin to "ci_sup.dir"
  end if
  set the titleVisible of mywin to 0
  open(mywin)
  pause()
end

on ci_sup_ok
  global mywin, player, fcommand, new_read, up_ini, memchange
  put "ci_sup_ok"
  put the windowList
  set fcommand to EMPTY
  if player then
    close(window "ci_sup.dix")
  else
    close(window "ci_sup.dir")
  end if
  if the machineType <> 256 then
    if objectp(mywin) then
      forget(mywin)
    end if
  end if
  set new_read to 1
  save_ini()
  if memchange then
    put "ci_sup_ok memchange = TRUE"
    clear_circle()
    snd_done()
    put "snd_done OK"
    if snd_init() then
      mem_update()
      circlemaster()
    else
      put "ci_sup_ok ci_sup_open"
      ci_sup_open()
    end if
  end if
  updateStage()
end

on ci_ins_open
  global mywin, player, fcommand, demo
  if demo then
    set fcommand to "STR1"
    exit
  end if
  cur_busy()
  if objectp(mywin) then
    forget(mywin)
  end if
  set horzOrigin to the stageLeft
  set vertOrigin to the stageTop
  set mywinrect to rect(horzOrigin, vertOrigin, horzOrigin + 640, vertOrigin + 480)
  put "ci_ins_open"
  if player then
    set mywin to window "ci_inst.dix"
    set the rect of mywin to mywinrect
    set the fileName of mywin to "ci_inst.dix"
  else
    set mywin to window "ci_inst.dir"
    set the rect of mywin to mywinrect
    set the fileName of mywin to "ci_inst.dir"
  end if
  set the titleVisible of mywin to 0
  open(mywin)
end

on ci_ins_ok
  global mywin, player, fcommand, new_read, up_ini
  set fcommand to EMPTY
  if objectp(mywin) then
    forget(mywin)
  end if
  if up_ini = 0 then
    play frame 9
  else
    circle_start1()
    cur_on()
    play frame 5
  end if
end

on loadlost
  global fcommand, scommand, l_notload, namepause_bs, sel_scast, sel_name, sel_size, acwin, fl_msg, sel_seg, sel_vol, lost_cancel
  if not (acwin = "FSEL") then
    set idx to getAt(l_notload, 1)
    if sel_name = EMPTY then
      set lostsound to chars(Ar1sound(mget, idx), length(Ar1sound(mget, idx)) - 13, length(Ar1sound(mget, idx)))
      set lost_cancel to 0
      set tmpw to sndwin("ELEMENT " & RETURN & ">" & lostsound & "<" & RETURN & "not found. Select a new one ?", "ELEMENT " & RETURN & ">" & lostsound & "<" & RETURN & "nicht gefunden. Neu waehlen ?")
      if tmpw = 1 then
        set sel_scast to Ar1play(mget, idx)
        fsel("SOUND")
      else
        if tmpw = 2 then
          Ar1sound(mput, idx, namepause_bs)
          set pcol to calccol(namepause_bs)
          timeline(1)
          if idx > 12 then
            set selt to 2
          else
            set selt to 1
          end if
          set seli to get_pausesize(value(ar1pos(mget, idx)), selt)
          Ar1time(mput, idx, seli)
          Ar1col(mput, idx, pcol)
          deleteAt(l_notload, 1)
        else
          put "cancel"
          set lost_cancel to 1
          set l_notload to []
          set scommand to EMPTY
          set fcommand to EMPTY
          clear_circle()
        end if
      end if
    else
      Ar1sound(mput, idx, sel_name)
      set pcol to calccol(sel_name)
      Ar1col(mput, idx, pcol)
      Ar1time(mput, idx, sel_size)
      deleteAt(l_notload, 1)
      set sel_name to EMPTY
    end if
    if (count(l_notload) < 1) and (lost_cancel = 0) then
      displaysegs()
      set scommand to EMPTY
      set fcommand to EMPTY
    end if
  end if
end

on demomixwin
  global fcommand, spritecount, up_lang, idsw
  sprite_save(47)
  sprite_save(48)
  cur_on()
  set text to "This is a DEMO version of Circle Elements."
  set the castNum of sprite 47 to the number of cast "DEMOMIX"
  set the ink of sprite 47 to 36
  sprite_show(47, 235, 244)
  if up_lang = 1 then
    set wincast to "DEMOMIXTXE"
  else
    set wincast to "DEMOMIXTXG"
  end if
  puppetTransition(9, 1, 5)
  put text into field "MSGTXT"
  set the castNum of sprite 48 to the number of cast wincast
  set the ink of sprite 48 to 1
  setfont(wincast)
  set the editableText of sprite 48 to 0
  sprite_show(48, 155, 180)
  puppetSound("demomixsnd")
  updateStage()
  set showwalk to 1
  repeat while soundBusy(1)
    WALK(mnew, showwalk)
    updateStage()
    set showwalk to showwalk + 1
    if showwalk = 13 then
      set showwalk to 1
    end if
  end repeat
  WALK(mrelease)
  updateStage()
  repeat while the mouseDown
    nothing()
  end repeat
  repeat while 1
    if the mouseDown then
      exit repeat
    end if
  end repeat
  alertrdremove()
end