CD-ROM Today (BR) Volume 2 #6/CDRTV2N6.iso/makers/power/ue.dir/00192_Script_192

Text File | 1996-03-13 | 9KB | 292 lines

on startMovie
  global PrevFrame,fixpal,startcast,MensFrames,ColorCrsr

  puppetSprite 17,TRUE
  set the castNum of sprite 17 to the number of cast string("v"&the soundLevel)
  put EMPTY into PrevFrame
  initMap
  repeat with i=20 to 25
    puppetSprite i,TRUE
  end repeat
  repeat with i=11 to 17
    puppetSprite i,TRUE
  end repeat
  if the machineType <> 256 then
    openxlib "FixPal.obj"
    set fixpal=FixPalette(mNew, the stageLeft, the stageTop, the stageRight, the stageTop)
    patchpal
    openxlib "ColourM.Obj"
  end if
  put the number of cast "rolet0" into startcast
  put "059,054,104,056,056,098,100,078,030,014,015,017,046,047,048,048" into MensFrames
  put EMPTY into ColorCrsr
end startmovie

on patchpal
  global fixpal

  fixpal(mPatchIt)
end patchpal

on stopmovie
  global fixpal,ColorCrsr

  sound stop 1
  sound stop 2
  unLoad
  unLoadCast
  if the machineType <> 256 then
    fixpal(mDispose)
    closexlib "FixPal.obj"
    if objectP(ColorCrsr) then
      colorcrsr(mDispose)
      closexlib "ColourM.Obj"
    end if
  end if
end stopmovie

on chooseBack currFrame,theItem
  global PrevFrame,FramesMap,CameFromFile,ToGo

  if currFrame = 39 then
    if PrevFrame = 64 then go frame "064"
    else go frame "077"
  else if currFrame = 46 then
    if PrevFrame = 37 then go frame "037"
    else go frame "045"
  else if currFrame = 50 then
    if PrevFrame = 44 then go frame "044"
    else go frame "051"
  else if currFrame = 77 then
    if PrevFrame = 51 then go frame "051"
    else go frame "044"
  else if currFrame = 80 then
    if PrevFrame = 75 then go frame "075"
    else go frame "079"
  else if currFrame = 94 then
    --    put "america" into CameFromFile
    --    put "042" into ToGo
    --    go frame "black"
    --    go frame "fade" of movie "terror.dir"
    DemoOnly 48 , 105 , -130
  else if currFrame = 98 then
    --    put "america" into CameFromFile
    --    put "002" into ToGo
    --    go frame "black"
    --    go frame "fade" of movie "terror.dir"

    DemoOnly 48 , 105 , -130
  end if
end

on hilitDirections
  global FramesMap

  put ((the frame) + 2) / 3 into theLine

  if the locV of sprite 2 <> 308 then set the locV of sprite 2 to 308
  set the movieTime of sprite 2 to (theLine * 60) - 1
  updateStage
  repeat with i=1 to 6
    if string(item i of line theLine of FramesMap) <> "000" then
      set the castNum of sprite (i + 19) to the number of cast string(char 1 to 2 of the name of cast the castNum of sprite (i + 19)&"H")
    else
      set the castNum of sprite (i + 19) to the number of cast string(char 1 to 2 of the name of cast the castNum of sprite (i + 19)&"E")
    end if
  end repeat
  updateStage
end

on rollOvers
  if rollOver(2) then
    check2
  else if rollOver(11) then
    check12
  else if the mouseCast = 119 then
    changeCast 119,13
  else if the mouseCast = 117 then
    changeCast 117,14
  else if the mouseCast = 121 then
    changeCast 121,15
  else if rollOver(16) then
    roll 16
  else if rollOver(27) then
    roll 27
  else
    ReleasCursor
    cursor 0
  end if
  updateStage
end

on changeCast theRoll,theSprite
  ReleasCursor
  cursor 0
  if not(the name of cast the castNum of sprite theSprite contains "down") then
    set the castNum of sprite theSprite to (the castNum of sprite theSprite) + 1
    updatestage
    repeat while the mouseCast = theRoll + 1 and not the mouseDown
    end repeat
    set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
  end if
end

on roll theRoll
  ReleasCursor
  cursor 0
  if not(the name of cast the castNum of sprite theRoll contains "down") then
    set the castNum of sprite theRoll to (the castNum of sprite theRoll) + 1
    updatestage
    repeat while rollover(theRoll) and not the mousedown
    end repeat
    set the castNum of sprite theRoll to (the castNum of sprite theRoll) - 1
  end if
end

on unRoll theRoll
  if the name of cast the castNum of sprite theRoll contains "down" then
    set the castNum of sprite theRoll to (the castNum of sprite theRoll) - 1
    updateStage
  end if
end

on check12
  global startcast,ItemDel

  set the castnum of sprite 11 = (the castnum of sprite 11) + 1
  set endcast = startcast + 30
  put the ticks into Stime
  repeat while rollover(11) and not the mousedown
    if the ticks - Stime > 2 then
      if the castNum of sprite 12 < endcast then set the castNum of sprite 12 to (the castNum of sprite 12) + 1
      else set the castNum of sprite 12 to (startcast+1)
      updateStage
      put the ticks into Stime
    end if
  end repeat
  if the mouseDown then
    put the pathName into temp
    set the itemDelimiter to ItemDel
    delete item the number of items of temp of temp
    delete item the number of items of temp of temp
    set the itemDelimiter to ","
    unload
    unloadCast

    set the visible of sprite 2 to false
    updateStage

    go frame "black"
    go movie string(temp&ItemDel&"random.dir")
  end if
  if the movie <> "random.dir" then
    set the castnum of sprite 11 = (the castnum of sprite 11) - 1
    set the castNum of sprite 12 to startcast
  end if
end

on GoDatabase num
  global gMakerNum,ItemDel,MensFrames

  put "32,127,78,pool,pool,098,184,149,14,102,115,140,152,148,mount,mount" into temp
  put 1 into i
  repeat while i < the number of items of temp
    if num = item i of MensFrames then
      exit repeat
    else
      put i+1 into i
    end if
  end repeat
  if item i of temp <> "pool" and item i of temp <> "mount" then
    put value(item i of temp) into x
  else if item i of temp = "pool" then
    if the mouseH < 314 then put 45 into x
    else put 63 into x
  else
    if the mouseH > 376 then put 99 into x
    else if the mouseH > 239 then put 132 into x
  end if
  put x into num
  set gMakerNum = num
  sound stop 1
  sound stop 2
  unload
  unloadCast
  puppetSprite 2,FALSE
  set the itemDelimiter to ItemDel
  put item 1 of the pathName into temp
  set the itemDelimiter to ","

  set the visible of sprite 2 to false
  updateStage

  go frame "black"
  go to frame "database" of movie temp&ItemDel&"DATABASE"&ItemDel&"POWER.DIR"
end

on check2
  global FramesMap,MensFrames

  put line (((the frame) + 2) / 3)  of FramesMap into temp


  if inside(point(the mouseH,the mouseV), rect(22, 189, 122, 429)) and string(item 2 of temp) <> "000" then          --left
    MyCursor 254,255
  else  if inside(point(the mouseH,the mouseV), rect(512, 189, 612, 429)) and string(item 1 of temp) <> "000" then   --right
    MyCursor 252,253
  else  if inside(point(the mouseH,the mouseV), rect(122, 229, 512, 379)) and string(item 3 of temp) <> "000" then   --forward
    MyCursor 258,259
  else  if inside(point(the mouseH,the mouseV), rect(122, 229, 512, 379)) and MensFrames contains string(((the frame) + 2) / 3) and string(((the frame) + 2) / 3) <> 9 then   --DataBase
    SetCursor
  else  if inside(point(the mouseH,the mouseV), rect(122, 189, 512, 229)) and string(item 5 of temp) <> "000" then   --up
    MyCursor 250,251
  else  if inside(point(the mouseH,the mouseV), rect(122, 379, 512, 429)) and string(item 4 of temp) <> "000" then   --back
    MyCursor 256,257
  else  if inside(point(the mouseH,the mouseV), rect(122, 379, 512, 429)) and string(item 6 of temp) <> "000" then   --down
    MyCursor 248,249
  else
    ReleasCursor
    cursor 0
  end if
end

on MyCursor a,b
  ReleasCursor
  cursor [a,b]
end

on SetCursor
  global colorcrsr

  if the machineType <> 256 then
    if not objectP(ColorCrsr) then
      set colorcrsr = colorcursor(mNew)
    end if
    colorcrsr(mGetSetCursor,9000)
  else
    cursor [275,276]
  end if
end

on ReleasCursor
  global ColorCrsr

  if the machineType <> 256 then
    if objectP(ColorCrsr) then
      colorcrsr(mReleaseCursor)
      colorcrsr(mDispose)
      updateStage
      cursor 4
    end if
  end if
end

on hiliteBtn theSprite
  if not(the name of cast the castNum of sprite theSprite contains "down") then
    set the castNum of sprite theSprite to (the castNum of sprite theSprite) + 1
    updatestage
    repeat while the mousedown
    end repeat
    set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
  end if
end