Champak 48/cdrom_image.iso/Games/rollerrush/game.dcr/cars_10_Timerstuff.ls

Text File | 2007-10-01 | 3.5 KB | 151 lines

global gTimePlayed, gWaitPoints, gScore, gLastLevelStars

on prepareMovie
  global gParam, gSound
  gParam = externalParamValue("swurl")
  if (gParam = VOID) or (gParam = EMPTY) then
    gParam = "http://www.toybox-games.com"
  else
  end if
  gLastLevelStars = 0
  gSound = 255
  gTimePlayed = 0
  gWaitPoints = [point(372, 319), point(336, 319), point(302, 319), point(268, 319), point(233, 319), point(199, 319), point(166, 319), point(133, 319), point(101, 319)]
  ResetScore()
end

on ResetScore
  gScore = 0
  sendSprite(702, #SetText, "$" & string(gScore))
end

on AddToScore sco
  global gLevelGoal, gLevelMaster, gLevelPerfect, gLevel
  so1 = 0
  if gScore < gLevelGoal then
    so1 = 1
  end if
  so2 = 0
  if gScore < gLevelMaster then
    so2 = 1
  end if
  so3 = 0
  if gScore > gLevelGoal then
    so3 = 1
  end if
  so4 = 0
  if gScore > gLevelMaster then
    so4 = 1
  end if
  gScore = gScore + sco
  if gScore < 0 then
    gScore = 0
  end if
  if gLevel < 42 then
    if (gScore >= gLevelGoal) and so1 then
      playSound(9, "goal")
      sprite(704).memberNum = 182
      sendSprite(708, #SetText, "$" & string(gLevelMaster))
    end if
    if (gScore >= gLevelMaster) and so2 then
      sprite(704).memberNum = 183
      sendSprite(708, #SetText, "$" & string(gLevelPerfect))
    end if
    if (gScore < gLevelGoal) and so3 then
      sprite(704).memberNum = 181
      sendSprite(708, #SetText, "$" & string(gLevelGoal))
    end if
    if (gScore < gLevelMaster) and so4 then
      sprite(704).memberNum = 182
      sendSprite(708, #SetText, "$" & string(gLevelMaster))
    end if
    sendSprite(702, #SetText, "$" & string(gScore))
  end if
end

on GetIsAuthor
  if (the environment).runMode contains "Author" then
    return 1
  else
    return 0
  end if
end

on StarTheLine
  global CarsInLine
  c = CarsInLine.count
  repeat with b = 1 to c
    sendSprite(CarsInLine[b], #AddStar, 2, "podium")
  end repeat
end

on AdjustRegPoints casts, smem, emem, pt
  repeat with b = smem to emem
    member(b, casts).regPoint = pt
  end repeat
end

on CheckAllImages
  repeat with b = 1 to 10
    repeat with c = 1 to 1000
      if member(c, b).type = #bitmap then
        if (member(c, b).image.width = 0) or (member(c, b).image.height = 0) then
          member(c, b).image = image(1, 1, 32)
          member(c, b).image.fill(member(c, b).image.rect, rgb(0, 0, 0))
        end if
      end if
    end repeat
  end repeat
end

on AddSecond
  global gCarList, gLevel
  gTimePlayed = gTimePlayed + 1
  maxTime = gCarList[gCarList.count].time
  if (gTimePlayed = maxTime) and (gLevel > 25) and (gLevel < 42) then
    repeat with b = 679 to 682
      sprite(b).visible = 1
      sprite(b).blend = 0
    end repeat
  else
    if (gTimePlayed > maxTime) and (gLevel > 25) and (gLevel < 42) then
      diff = gTimePlayed - maxTime
      if diff < 0 then
        diff = 0
      end if
      if diff > 100 then
        diff = 100
      end if
      repeat with b = 679 to 682
        sprite(b).blend = diff
      end repeat
      if diff = 30 then
        repeat with b = 683 to 688
          sprite(b).memberNum = 253
        end repeat
      end if
    end if
  end if
  member("timed22").text = string(gTimePlayed)
end

on SecsToList tim
  secs = tim mod 60
  mins = (tim - secs) / 60
  hours = integer(mins / 60)
  mins = integer(mins - (hours * 60))
  return [hours, mins, secs, tim]
end

on GetTime
  return gTimePlayed
end

on WaitingPoints
  ptList = []
  repeat with b = 40 to 48
    append(ptList, sprite(b).loc)
  end repeat
  put ptList
end