Mundo do CD-ROM 2/CDROM02.iso/infantil/mestre/p_resol.dxr/00001_Principal.ls

Text File | 1996-07-27 | 17.6 KB | 771 lines

on startMovie
  global Tarefa, GTodosNomes, GExec
  if not GExec then
    set the visible of sprite 1 to 1
    set the visible of sprite 2 to 1
    set the visible of sprite 3 to 1
    set the visible of sprite 4 to 1
    set the visible of sprite 5 to 1
    set the visible of sprite 6 to 1
    set the visible of sprite 15 to 1
    set the hilite of cast "C-sim" to 1
    set the hilite of cast "C-não" to 0
    set Tarefa to EMPTY
    DefinirPosTar()
    put GTodosNomes into field "CampoTarefas"
  else
    Esconder()
    set the keyDownScript to "VerTecla"
  end if
end

on DefinirPosTar
  global TobjA1, EobjA1, TobjA2, EobjA2, TobjAU, EobjAU, TobjC1, EobjC1, TobjC2, EobjC2, TobjC3, EobjC3
  set TobjAU to 45
  set EobjAU to 245
  set TobjA1 to 45
  set EobjA1 to 145
  set TobjA2 to 45
  set EobjA2 to 345
  set TobjC1 to 290
  set EobjC1 to 40
  set TobjC2 to 290
  set EobjC2 to 245
  set TobjC3 to 290
  set EobjC3 to 450
end

on Escolha
  global LNmax, Tarefa
  if (the mouseLine > 0) and (the mouseLine <= LNmax) then
    set IL to the mouseLine
    hilite line IL of field "CampoTarefas"
    set Tarefa to line IL of field "CampoTarefas"
  end if
end

on Resolver
  global Tarefa, mt, TarResp, mhinicio, Lmax, GExec
  if Tarefa <> EMPTY then
    if field "NomeUsu" <> EMPTY then
      set TarResp to []
      CarregaLicao(Tarefa)
      Esconder()
      set mt to 0
      set mhinicio to the time
      set GExec to 1
      set the keyDownScript to "VerTecla"
      MostraPrim()
    else
      alert("Informe o seu nome !")
    end if
  else
    alert("Escolha uma tarefa !")
  end if
end

on LerImagens
  global mt, GSep
  if getAt(LLicAI1, mt) <> EMPTY then
    importFileInto(cast 495, the pathName & "Imagens" & GSep & getAt(LLicAI1, mt) & ".PIC")
    set the name of cast 495 to "AI-1"
  end if
  if getAt(LLicAI2, mt) <> EMPTY then
    importFileInto(cast 496, the pathName & "Imagens" & GSep & getAt(LLicAI2, mt) & ".PIC")
    set the name of cast 496 to "AI-2"
  end if
  if getAt(LLicCI1, mt) <> EMPTY then
    importFileInto(cast 497, the pathName & "Imagens" & GSep & getAt(LLicCI1, mt) & ".PIC")
    set the name of cast 497 to "CI-1"
  end if
  if getAt(LLicCI2, mt) <> EMPTY then
    importFileInto(cast 498, the pathName & "Imagens" & GSep & getAt(LLicCI2, mt) & ".PIC")
    set the name of cast 498 to "CI-2"
  end if
  if getAt(LLicCI3, mt) <> EMPTY then
    importFileInto(cast 499, the pathName & "Imagens" & GSep & getAt(LLicCI3, mt) & ".PIC")
    set the name of cast 499 to "CI-3"
  end if
end

on Esconder
  repeat with mi = 1 to 48
    set the visible of sprite mi to 0
  end repeat
  set the visible of sprite 19 to 1
end

on EsconderPar
  global mt
  set mta to getAt(LLicTA, mt)
  set mtc to getAt(LLicTC, mt)
  if char 1 of mta = "I" then
    set the visible of sprite 1 to 0
    set the visible of sprite 6 to 0
  else
    if char 1 of mta = "T" then
      set the visible of sprite 11 to 0
      set the visible of sprite 12 to 0
      set the visible of sprite 14 to 0
    else
      if char 1 of mta = "S" then
        set the visible of sprite 16 to 0
        set the visible of sprite 18 to 0
      end if
    end if
  end if
  if char 2 of mta = "I" then
    set the visible of sprite 2 to 0
  else
    if char 2 of mta = "T" then
      set the visible of sprite 13 to 0
      set the visible of sprite 15 to 0
    else
      if char 2 of mta = "S" then
        set the visible of sprite 17 to 0
      end if
    end if
  end if
  if mtc = "I" then
    set the visible of sprite 3 to 0
    set the visible of sprite 4 to 0
    set the visible of sprite 5 to 0
  else
    if mtc = "T" then
      set the visible of sprite 8 to 0
      set the visible of sprite 9 to 0
      set the visible of sprite 10 to 0
    else
      if mtc = "L" then
        repeat with mi = 20 to 47
          set the visible of sprite mi to 0
        end repeat
      end if
    end if
  end if
  if the hilite of cast "C-sim" = 1 then
    set the visible of sprite 1 to 0
    set the visible of sprite 2 to 0
    set the visible of sprite 3 to 0
    set the visible of sprite 4 to 0
  end if
  set the visible of sprite 48 to 0
  set the visible of sprite 19 to 1
end

on VerTudo
  repeat with mi = 1 to 48
    set the visible of sprite mi to 1
  end repeat
end

on ClickAU
  global mcomp
  if not mcomp then
    MostraCom()
  end if
end

on ClickA1
  global mamo2
  if not mamo2 then
    MostraAm2()
  end if
end

on ClickA2
  global mcomp
  if not mcomp then
    MostraCom()
  end if
end

on ClickC1
  Resposta(1)
  MostraPrim()
end

on ClickC2
  Resposta(2)
  MostraPrim()
end

on ClickC3
  Resposta(3)
  MostraPrim()
end

on CorrerLetra L
  set mdiv to 4
  if L > 9 then
    set mdiv to 5
  end if
  if L > 18 then
    set mdiv to 6
  end if
  set X to the locH of sprite (20 + L)
  set Y to the locV of sprite (20 + L)
  set mpassox to integer(300 - X) / mdiv
  set mpassoy to integer(220 - Y) / mdiv
  set X1 to X + mpassox
  set X2 to X1 + mpassox
  set X3 to X2 + mpassox
  set X4 to X3 + mpassox
  set X5 to X4 + mpassox
  set Y1 to Y + mpassoy
  set Y2 to Y1 + mpassoy
  set Y3 to Y2 + mpassoy
  set Y4 to Y3 + mpassoy
  set Y5 to Y4 + mpassoy
  set the locH of sprite (20 + L) to X1
  set the locV of sprite (20 + L) to Y1
  updateStage()
  set the locH of sprite (20 + L) to X2
  set the locV of sprite (20 + L) to Y2
  updateStage()
  set the locH of sprite (20 + L) to X3
  set the locV of sprite (20 + L) to Y3
  updateStage()
  if L > 9 then
    set the locH of sprite (20 + L) to X4
    set the locV of sprite (20 + L) to Y4
    updateStage()
  end if
  if L > 18 then
    set the locH of sprite (20 + L) to X5
    set the locV of sprite (20 + L) to Y5
    updateStage()
  end if
  set the visible of sprite (20 + L) to 0
  set the locH of sprite (20 + L) to X
  set the locV of sprite (20 + L) to Y
end

on ClickLetras L
  global mt, mreslet, mcontlet
  set mletra to char 1 of field ("Let-" & L)
  if (mletra <> " ") and (mletra <> EMPTY) then
    set mcontlet to mcontlet + 1
    put mletra after mreslet
    set mcerto to char 1 to mcontlet of getAt(LLicRC, mt)
    if mreslet = mcerto then
      CorrerLetra(L)
      put mreslet into field "Resp-Let"
      if getAt(LLicRC, mt) = mreslet then
        updateStage()
        if the hilite of cast "C-sim" = 0 then
          Espera()
        end if
        Resposta(mreslet)
        MostraPrim()
      end if
    else
      Resposta(mreslet)
      MostraPrim()
    end if
  end if
end

on VerTecla
  global mamo2, mcomp, mt, LLicTC
  if the key = " " then
    if not mamo2 then
      MostraAm2()
    else
      if not mcomp then
        MostraCom()
      end if
    end if
  end if
  if getAt(LLicTC, mt) = "L" then
    if (the key >= "A") and (the key <= "z") then
      set mr to 0
      repeat with k = 27 down to 1
        if (char 1 of field ("Let-" & k) = the key) and (the visible of sprite (k + 20) = 1) then
          set mr to k
        end if
      end repeat
      if mr > 0 then
        ClickLetras(mr)
      end if
    end if
  else
    if mcomp then
      if the key = 1 then
        Resposta(1)
        MostraPrim()
      end if
      if the key = 2 then
        Resposta(2)
        MostraPrim()
      end if
      if the key = 3 then
        Resposta(3)
        MostraPrim()
      end if
    end if
  end if
end

on Resposta mrp
  global TarResp, mt, mconseq, mtroca
  if getAt(LLicTC, mt) = "T" then
    if mrp = 1 then
      set mresp to field "ComTex1"
    else
      if mrp = 2 then
        set mresp to field "ComTex2"
      else
        if mrp = 3 then
          set mresp to field "ComTex3"
        end if
      end if
    end if
  end if
  if getAt(LLicTC, mt) = "I" then
    if mrp = 1 then
      set mresp to getAt(LLicCI1, mt)
    else
      if mrp = 2 then
        set mresp to getAt(LLicCI2, mt)
      else
        if mrp = 3 then
          set mresp to getAt(LLicCI3, mt)
        end if
      end if
    end if
  end if
  if getAt(LLicTC, mt) = "L" then
    set mresp to mrp
  end if
  append(TarResp, mresp)
  if the hilite of cast "C-sim" = 1 then
    set mtroca to random(2)
    if mtroca = 1 then
      if mresp = getAt(LLicRC, mt) then
        play movie "P_Basq_C"
      else
        play movie "P_Basq_E"
      end if
    else
      if mtroca = 2 then
        if mresp = getAt(LLicRC, mt) then
          play movie "P_Pat_C"
        else
          play movie "P_Pat_E"
        end if
      else
        if mtroca = 3 then
          if mresp = getAt(LLicRC, mt) then
            play movie "P_Ska_C"
          else
            play movie "P_Ska_E"
          end if
        else
          if mtroca = 4 then
            if mresp = getAt(LLicRC, mt) then
              play movie "P_Cor_C"
            else
              play movie "P_Cor_E"
            end if
          end if
        end if
      end if
    end if
  else
    EsconderPar()
  end if
  updateStage()
end

on MostraObj Sp, Ob, X, Y
  set the castNum of sprite Sp to the number of cast Ob
  set mlarg to the width of cast Ob
  set maltu to the height of cast Ob
  if maltu > mlarg then
    set mlarg to 150 * mlarg / maltu
    set maltu to 150
  else
    set maltu to 150 * maltu / mlarg
    set mlarg to 150
  end if
  set mesq to ((150 - mlarg) / 2) + X
  set mdir to mesq + mlarg
  set mtop to ((150 - maltu) / 2) + Y
  set mbas to mtop + maltu
  spriteBox(Sp, mesq, mtop, mdir, mbas)
end

on MostraAIU
  global EobjAU, TobjAU, mamo2
  set mamo2 to 1
  set the visible of sprite 6 to 1
  MostraObj(6, "AI-1", EobjAU, TobjAU)
  updateStage()
end

on MostraAI1
  global EobjA1, TobjA1
  set the visible of sprite 1 to 1
  MostraObj(1, "AI-1", EobjA1, TobjA1)
  updateStage()
end

on MostraAI2
  global EobjA2, TobjA2
  set the visible of sprite 2 to 1
  MostraObj(2, "AI-2", EobjA2, TobjA2)
  updateStage()
end

on MostraCI
  global EobjC1, TobjC1, EobjC2, TobjC2, EobjC3, TobjC3
  set the visible of sprite 3 to 1
  set the visible of sprite 4 to 1
  set the visible of sprite 5 to 1
  MostraObj(3, "CI-1", EobjC1, TobjC1)
  MostraObj(4, "CI-2", EobjC2, TobjC2)
  MostraObj(5, "CI-3", EobjC3, TobjC3)
  updateStage()
end

on MostraATU
  global mt, mamo2
  set mamo2 to 1
  set the visible of sprite 11 to 1
  put getAt(LLicAT1, mt) into field "AmTexU"
  if getAt(LLicTC, mt) = "L" then
    set the textAlign of field "AmTexU" to "left"
  else
    set the textAlign of field "AmTexU" to "center"
  end if
  updateStage()
end

on MostraAT1
  global mt
  set the visible of sprite 12 to 1
  put getAt(LLicAT1, mt) into field "AmTex1"
  updateStage()
end

on MostraAT2
  global mt
  set the visible of sprite 13 to 1
  put getAt(LLicAT2, mt) into field "AmTex2"
  updateStage()
end

on MostraATSup
  global mt
  set the visible of sprite 14 to 1
  put getAt(LLicAT1, mt) into field "AmTexSup"
  updateStage()
end

on MostraATInf
  global mt
  set the visible of sprite 15 to 1
  put getAt(LLicAT2, mt) into field "AmTexInf"
  updateStage()
end

on Espera
  startTimer()
  repeat while the timer < 100
    nothing()
  end repeat
end

on MostraASU
  global mt, mamo2, GSep
  set mamo2 to 1
  set the visible of sprite 18 to 1
  updateStage()
  set NS to the pathName & "Sons" & GSep & getAt(LLicAS1, mt)
  repeat while 1
    sound playFile 1, NS
    repeat while soundBusy(1)
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
      next repeat
    end if
    Espera()
  end repeat
end

on MostraAS1
  global mt, GSep
  set the visible of sprite 16 to 1
  updateStage()
  set NS to the pathName & "Sons" & GSep & getAt(LLicAS1, mt)
  repeat while 1
    sound playFile 1, NS
    repeat while soundBusy(1)
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
      next repeat
    end if
    Espera()
  end repeat
end

on MostraAS2
  global mt, GSep
  set the visible of sprite 17 to 1
  updateStage()
  set NS to the pathName & "Sons" & GSep & getAt(LLicAS2, mt)
  repeat while 1
    sound playFile 1, NS
    repeat while soundBusy(1)
      if the mouseDown then
        exit
      end if
    end repeat
    if the mouseDown then
      exit
      next repeat
    end if
    Espera()
  end repeat
end

on MostraCT
  global mt
  set the visible of sprite 8 to 1
  set the visible of sprite 9 to 1
  set the visible of sprite 10 to 1
  put getAt(LLicCT1, mt) into field "ComTex1"
  put getAt(LLicCT2, mt) into field "ComTex2"
  put getAt(LLicCT3, mt) into field "ComTex3"
  updateStage()
end

on MostraCL
  global mt, mreslet, mcontlet
  set mreslet to EMPTY
  put EMPTY into field "Resp-Let"
  if getAt(LLicTA, mt) = "T" then
    set the textAlign of field "Resp-Let" to "left"
  else
    set the textAlign of field "Resp-Let" to "center"
  end if
  set mcontlet to 0
  set the visible of sprite 19 to 1
  set the visible of sprite 20 to 1
  repeat with mi = 1 to 27
    set the visible of sprite (mi + 20) to 1
    put
    put char mi of getAt(LLicCL, mt) into field ("Let-" & mi)
  end repeat
  updateStage()
end

on MostraPrim
  global mt, LLicTA, LLicTC, mhfinal, mamo2, mcomp, GExec, Lmax
  set mt to mt + 1
  if mt <= 2 then
    set mta to getAt(LLicTA, mt)
    set mtc to getAt(LLicTC, mt)
    set mamo2 to 0
    set mcomp to 0
    if ((mtc = "T") or (mtc = "I")) and (the frame <> 10) then
      go("Tarefas-TI")
    else
      if (mtc = "L") and (the frame <> 20) then
        go("Tarefas-Letras")
      end if
    end if
    if mt = 1 then
      puppetSprite(1, 1)
      puppetSprite(2, 1)
      puppetSprite(3, 1)
      puppetSprite(4, 1)
      puppetSprite(5, 1)
      puppetSprite(6, 1)
    end if
    if (char 1 of mta = "I") or (char 2 of mta = "I") or (mtc = "I") then
      LerImagens()
    end if
    if mta = "I" then
      MostraAIU()
    end if
    if (mta = "II") or (mta = "IT") or (mta = "IS") then
      MostraAI1()
    end if
    if mta = "T" then
      MostraATU()
    end if
    if (mta = "TI") or (mta = "TS") then
      MostraAT1()
    end if
    if mta = "TT" then
      MostraATSup()
    end if
    if mta = "S" then
      MostraASU()
    end if
    if (mta = "SI") or (mta = "ST") or (mta = "SS") then
      MostraAS1()
    end if
  else
    set mhfinal to the time
    set GExec to 0
    set the keyDownScript to EMPTY
    puppetSprite(1, 0)
    puppetSprite(2, 0)
    puppetSprite(3, 0)
    puppetSprite(4, 0)
    puppetSprite(5, 0)
    puppetSprite(6, 0)
    go(1)
    EscreverResposta()
    VerTudo()
  end if
end

on MostraAm2
  global mt, LLicTA, mamo2
  set mamo2 to 1
  if (getAt(LLicTA, mt) = "II") or (getAt(LLicTA, mt) = "TI") or (getAt(LLicTA, mt) = "SI") then
    MostraAI2()
  end if
  if (getAt(LLicTA, mt) = "IT") or (getAt(LLicTA, mt) = "ST") then
    MostraAT2()
  end if
  if getAt(LLicTA, mt) = "TT" then
    MostraATInf()
  end if
  if (getAt(LLicTA, mt) = "IS") or (getAt(LLicTA, mt) = "TS") or (getAt(LLicTA, mt) = "SS") then
    MostraAS2()
  end if
  updateStage()
end

on MostraCom
  global mt, LLicTC, mcomp
  set mcomp to 1
  if getAt(LLicTC, mt) = "I" then
    MostraCI()
  end if
  if getAt(LLicTC, mt) = "T" then
    MostraCT()
  end if
  if getAt(LLicTC, mt) = "L" then
    MostraCL()
  end if
  updateStage()
end

on EscreverResposta
  alert("Esta é uma versão de demonstração. Para adquirir a versão completa entre em contato com a Mestre Software pelo fone [phone] r.231.")
end

on Pordata D
  set mb to offset("/", D)
  set mm to chars(D, 1, mb - 1)
  set D to chars(D, mb + 1, length(D))
  set mb to offset("/", D)
  set md to chars(D, 1, mb - 1)
  set my to chars(D, mb + 1, length(D))
  return md & "/" & mm & "/" & my
end

on PorHora H
  set mp to offset("M", H)
  if char mp - 1 of H = "P" then
    set md to offset(":", H)
    set mh to chars(H, 1, md - 1)
    set H to chars(H, md, length(H))
    set mh to mh + 12
    set H to integer(mh) & H
    if mh <= 21 then
      set mp to mp + 1
    end if
  end if
  set mf to chars(H, 1, mp - 2) & "hs"
  return mf
end

on CarregaLicao NLicao
  global Lmax, LLicAI1, LLicAI2, LLicCI1, LLicCI2, LLicCI3, LLicRC, LLicAT1, LLicAT2, LLicCT1, LLicCT2, LLicCT3, LTOTAL, LLicAS1, LLicAS2, LLicCL, LLicTA, LLicTC, mFIM, SISTEMA, Gpole, GCini, GSep
  set LTOTAL to []
  set LLicAI1 to []
  set LLicAI2 to []
  set LLicCI1 to []
  set LLicCI2 to []
  set LLicCI3 to []
  set LLicRC to []
  set LLicAT1 to []
  set LLicAT2 to []
  set LLicCT1 to []
  set LLicCT2 to []
  set LLicCT3 to []
  set LLicAS1 to []
  set LLicAS2 to []
  set LLicCL to []
  set LLicTA to []
  set LLicTC to []
  if SISTEMA = "WIN" then
    openXLib(the pathName & "FileIO.DLL")
  end if
  set LerLicao to FileIO(mnew, "read", the pathName & "Tarefas" & GSep & NLicao & ".txt")
  set mFIM to "INICIO"
  set Lmax to 0
  set mFIM to GCini & LerLicao(mReadLine)
  repeat while mFIM <> EMPTY
    if offset(char 1 of mFIM, "#%§") = 0 then
      set mFIM to char 1 to length(mFIM) of mFIM
    end if
    append(LTOTAL, char Gpole + 1 to length(mFIM) - 1 of mFIM)
    set Lmax to Lmax + 1
    set mFIM to LerLicao(mReadLine)
  end repeat
  LerLicao(mdispose)
  set ILB to 1
  set Lruim to 0
  repeat while ILB <= Lmax
    set mFIM to getAt(LTOTAL, ILB)
    if length(mFIM) > 20 then
      set mvazio to LerCampo()
      append(LLicAI1, LerCampo())
      append(LLicAI2, LerCampo())
      append(LLicCI1, LerCampo())
      append(LLicCI2, LerCampo())
      append(LLicCI3, LerCampo())
      append(LLicRC, LerCampo())
      append(LLicAT1, LerCampo())
      append(LLicAT2, LerCampo())
      append(LLicCT1, LerCampo())
      append(LLicCT2, LerCampo())
      append(LLicCT3, LerCampo())
      append(LLicAS1, LerCampo())
      append(LLicAS2, LerCampo())
      append(LLicCL, LerCampo())
      append(LLicTA, LerCampo())
      append(LLicTC, LerCampo())
    else
      set Lruim to Lruim + 1
    end if
    set ILB to ILB + 1
  end repeat
  set Lmax to Lmax - Lruim
  closeXLib()
end

on LerCampo
  global mFIM
  set mp to offset("#", mFIM)
  set ma to chars(mFIM, 1, mp - 1)
  set mFIM to chars(mFIM, mp + 1, length(mFIM))
  return ma
end