Carousel Volume 2 #1/carousel.iso/mactosh/hc/house.sit/House/House/card_2215.txt

Text File | 1988-01-28 | 4.5 KB | 213 lines

-- card: 2215 from stack: in
-- bmap block id: 3290
-- flags: 0000
-- background id: 2690
-- name: User Preferences
----- HyperTalk script -----
on openCard
  hide field "paths"
  setUserLevel the userLevel
  if card field "User Name" is empty
  then click at the loc of card field "User Name"
end openCard

on setUserLevel whatLevel
  set userLevel to whatLevel
  if the userLevel is whatLevel then
    put the userLevel into card field "User Level"
    set hilite of button "Browsing" to the userLevel = 1
    set hilite of button "Typing" to the userLevel = 2
    set hilite of button "Painting" to the userLevel = 3
    set hilite of button "Authoring" to the userLevel = 4
    set hilite of button "Scripting" to the userLevel = 5
    set visible of button "Power Keys" to the userLevel >= 3
    set visible of button "Blind Typing" to the userLevel = 5
    set hilite of button "Power Keys" to the powerKeys
    set hilite of button "Blind Typing" to the blindTyping
  else
    set hilite of the target to false
  end if
end setUserLevel

on arrowKey
  go to card "Main Stage"
end arrowKey



-- part 1 (field)
-- low flags: 00
-- high flags: 4004
-- rect: left=40 top=107 right=131 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: User Name


-- part 2 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=149 top=24 right=44 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Browsing
----- HyperTalk script -----
on mouseUp
  setUserLevel 1
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=149 top=43 right=64 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Typing
----- HyperTalk script -----
on mouseUp
  setUserLevel 2
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=149 top=63 right=84 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Painting
----- HyperTalk script -----
on mouseUp
  setUserLevel 3
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=234 top=63 right=84 bottom=337
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Power Keys
----- HyperTalk script -----
on mouseUp
  set powerKeys to the hilite of button "Power Keys"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=149 top=83 right=104 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Authoring
----- HyperTalk script -----
on mouseUp
  setUserLevel 4
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=262 top=18 right=39 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scripting
----- HyperTalk script -----
on mouseUp
  setUserLevel 5
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=262 top=38 right=59 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blind Typing
----- HyperTalk script -----
on mouseUp
  set blindTyping to the hilite of button "Blind Typing"
end mouseUp



-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=152 top=265 right=285 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 154
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User Level


-- part contents for card part 9
----- text -----
5

-- part contents for background part 14
----- text -----
Saturday, January 9, 1988

-- part contents for background part 13
----- text -----
7:53:24 PM

-- part contents for card part 1
----- text -----
Jim Henderson