CD-ROM Magazin 1995 May/TYPEMANIA.ISO/demo_t.dir/00043_Script_43

Text File | 1994-02-24 | 6KB | 231 lines

on startMovie
  global gxR, gyR, gxO, gyO, gxT, gyT,gSpeed,gxA, gyA,gEnde


  set gSpeed=12
  set gxA = Richtungswert()
  set gyA = Richtungswert()
  if gyA > 0 then set gyA=-gyA
  if gyA >-5 then set gyA=2*gyA
  set gSpeed=4
  set gxR = Richtungswert()
  set gyR = Richtungswert()
  set gxO = Richtungswert()
  set gyO = Richtungswert()
  set gxT = Richtungswert()
  set gyT = Richtungswert()
  set gEnde=FALSE
  startTimer
  set the timeOutLength to 3600 -- 1 minute
  set the timeOutScript to "EndTimeScript"
  set the exitLock to false
  sound stop 2
  set the mousedownscript to "BackToTheRoot"
end startmovie

on BackToTheRoot
  if the optiondown then
    sound close 1
    sound close 2
    play done
  end if
end BackToTheRoot


on EndTimeScript
  global gEnde
  set gEnde=TRUE
  set the timeOutScript to ""
end

on stopMovie
  cursor 4
  repeat with i=2 to 14
    puppetSprite i, false
  end repeat
  set the mouseDownScript to empty
  set the cursor of sprite 48 to 0
end stopMovie

on idle
  global gxR, gyR, gxO, gyO, gxT, gyT,
  BewegeA
  --òòò R und BOX òòò
  if gxR/abs(gxR)>0 then
    if sprite 11 intersects 10 then
      set the locH of sprite 11 to the locH of sprite 11 -gxR/abs(gxR)
      set gxR = Richtungswert()
    else
      set the locH of sprite 11 to the locH of sprite 11 +gxR
    end if
  else
    if sprite 11 intersects 7 then
      set the locH of sprite 11 to the locH of sprite 11 -gxR/abs(gxR)
      set gxR = Richtungswert()
    else
      set the locH of sprite 11 to the locH of sprite 11 +gxR
    end if
  end if
  if gyR/abs(gyR)>0 then
    if sprite 11 intersects 8 then
      set the locV of sprite 11 to the locV of sprite 11 -gyR/abs(gyR)
      set gyR = Richtungswert()
    else
      set the locV of sprite 11 to the locV of sprite 11 +gyR
    end if
  else
    if sprite 11 intersects 9 then
      set the locV of sprite 11 to the locV of sprite 11 -gyR/abs(gyR)
      set gyR = Richtungswert()
    else
      set the locV of sprite 11 to the locV of sprite 11 +gyR
    end if
  end if
  --òòò O und BOX òòò
  if gxO/abs(gxO)>0 then
    if sprite 12 intersects 10 then
      set the locH of sprite 12 to the locH of sprite 12 -gxO/abs(gxO)
      set gxO = Richtungswert()
    else
      set the locH of sprite 12 to the locH of sprite 12 +gxO
    end if
  else
    if sprite 12 intersects 7 then
      set the locH of sprite 12 to the locH of sprite 12 -gxO/abs(gxO)
      set gxO = Richtungswert()
    else
      set the locH of sprite 12 to the locH of sprite 12 +gxO
    end if
  end if
  if gyO/abs(gyO)>0 then
    if sprite 12 intersects 8 then
      set the locV of sprite 12 to the locV of sprite 12 -gyO/abs(gyO)
      set gyO = Richtungswert()
    else
      set the locV of sprite 12 to the locV of sprite 12 +gyO
    end if
  else
    if sprite 12 intersects 9 then
      set the locV of sprite 12 to the locV of sprite 12 -gyO/abs(gyO)
      set gyO = Richtungswert()
    else
      set the locV of sprite 12 to the locV of sprite 12 +gyO
    end if
  end if
  --òòò T und BOX òòò
  if gxT/abs(gxT)>0 then
    if sprite 13 intersects 10 then
      set the locH of sprite 13 to the locH of sprite 13 -gxT/abs(gxT)
      set gxT = Richtungswert()
    else
      set the locH of sprite 13 to the locH of sprite 13 +gxT
    end if
  else
    if sprite 13 intersects 7 then
      set the locH of sprite 13 to the locH of sprite 13 -gxT/abs(gxT)
      set gxT = Richtungswert()
    else
      set the locH of sprite 13 to the locH of sprite 13 +gxT
    end if
  end if
  if gyT/abs(gyT)>0 then
    if sprite 13 intersects 8 then
      set the locV of sprite 13 to the locV of sprite 13 -gyT/abs(gyT)
      set gyT = Richtungswert()
    else
      set the locV of sprite 13 to the locV of sprite 13 +gyT
    end if
  else
    if sprite 13 intersects 9 then
      set the locV of sprite 13 to the locV of sprite 13 -gyT/abs(gyT)
      set gyT = Richtungswert()
    else
      set the locV of sprite 13 to the locV of sprite 13 +gyT
    end if
  end if
  updateStage
end idle

on Richtungswert
  global gSpeed
  if random(2)=1 then
    return random(gSpeed)
  else
    return -random(gSpeed)
  end if
end Richtungswert


on BewegeA
  global gxA,gyA,gEnde
  put the locH of sprite 14 into LH
  put the locV of sprite 14 into LV
  set LxA=gxA
  set LyA=gyA
  if (LH<32) OR (LH>480) then
    if LH<32 then
      set gxA= abs(gxA)
      set LxA=gxA
    else
      set gxA= -abs(gxA)
      set LxA=gxA
    end if
    if gEnde AND (LH<32) then
      set the stageColor to random(249)
      if the timer > 720 then
        go to "exit"
      end if
      set gxA=-gxA
      set LxA=gxA
    end if
  else
    if sprite 14 intersects 7 then
      -- links angeknallt
      set gxA=-gxA
      set LxA=gxA*4
      --if the timer >1 then
      set the locH of sprite 7 to (the locH of sprite 7)+40
      set the locH of sprite 9 to (the locH of sprite 9)+40
      --  startTimer
      if the locH of sprite 7 > 500 then
        set gEnde = TRUE
        startTimer
      end if
      --  end if
    end if
    if sprite 14 intersects 9 then
      -- oben angeknallt
      set gyA=-gyA
      set LyA=gyA*2
      --   if the timer >1 then
      set the locV of sprite 9 to (the locV of sprite 9)+40
      set the locV of sprite 7 to (the locV of sprite 7)+40
      --  startTimer
      if the locV of sprite 9 > 372 then
        set gEnde = TRUE
        startTimer
      end if
      --    end if
    end if
  end if
  if (LV<32) OR (LV>352) then
    if LV<32 then
      set gyA=abs(gyA)
      set gxA=gxA/abs(gxA)*random(12)
      set LxA=gxA*2
      set LyA=gyA*2
    else
      set gyA=-abs(gyA)
      set gxA=gxA/abs(gxA)*random(12)
      set LxA=gxA*2
      set LyA=gyA*2
    end if
  end if
  set the locH of sprite 14 to LH + LxA
  set the locV of sprite 14 to LV + LyA
end BewegeA


on EndScript
  go to "exit"
end EndScript