What PC? 1996 August/WPCAUG96.ISO/multi/singing/baritone.dxr/00021_consts.ls

Text File | 1996-06-12 | 1.4 KB | 85 lines

on ContentsSprite
  return 2
end

on InHandSprite
  return 40
end

on RHSfirstSocket
  return 10
end

on LHSfirstSocket
  return 20
end

on maxPileSize
  return 5
end

on RHSpageX
  return 460
end

on RHSpageY
  return 250
end

on LHSpageX
  return 170
end

on LHSpageY
  return RHSpageY()
end

on PageDepthOffset
  return 3
end

on MatteInk
  return 8
end

on InitBitMap theSprite
  puppetSprite(theSprite, 1)
  set the stretch of sprite theSprite to 0
  set the type of sprite theSprite to 1
  set the ink of sprite theSprite to MatteInk()
  set the foreColor of sprite theSprite to 255
  set the backColor of sprite theSprite to 0
end

on KillBitMap theSprite
  set the type of sprite theSprite to 0
end

on InstallBitMap theSprite, theCast, theH, theV
  InitBitMap(theSprite)
  set the castNum of sprite theSprite to the number of cast theCast
  set the locH of sprite theSprite to theH
  set the locV of sprite theSprite to theV
end

on ListLen l
  set c to 0
  repeat with i in l
    set c to c + 1
  end repeat
  return c
end

on CreatePiles pageList
  global LHSpile, RHSpile, PagesLoaded
  set RHSpile to birth(script "Pile", RHSfirstSocket(), RHSpageX(), RHSpageY())
  set LHSpile to birth(script "Pile", LHSfirstSocket(), LHSpageX(), LHSpageY())
  reset(LHSpile)
  reset(RHSpile)
  repeat with pageName in pageList
    push(RHSpile, pageName)
    put pageName
  end repeat
  set PagesLoaded to 1
end