-- background: 3909 from stack: in
-- bmap block id: 4339
-- flags: 4000
-- background id: 0
-- name: Rules


-- part 2 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=65 top=94 right=226 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Assertions
----- HyperTalk script -----
on mouseUp
  put item 2 of the ClickLoc into theVert
  put item 2 of the Rect of field "Assertions" into theTop
  put the TextHeight of field "Assertions" into theHeight
  put (theVert-theTop)/theHeight into theLine
  put trunc(theLine) into temp1
  if (theLine-temp1)>.51
  then put round(theLine) into theLine
else put 1+round(theLine) into theLine
if theLine > the number of lines in field "Assertions"
then put the number of lines in field "Assertions" into theLine
put line theLine of field "Assertions" into theFact
set the LockText of field "Assertions" to false
set the ShowLines of field "Assertions" to false
set the Style of field "Assertions" to Opaque
set the LockText of field "Conclusion" to false
set the ShowLines of field "Conclusion" to false
set the Style of field "Conclusion" to Opaque
push this card
visual effect iris open
go card "Smart"
put find(card field "Questions",theFact) into theResult
if item 1 of theResult=0
then
visual effect iris open
go card "Question"
doMenu "New Card"
put theFact into field "Fact"
show bkgnd button "Save"
else
  put item 1 of theResult into theLine
  put item 2 of line theLine of card field "Questions" into theCard
  visual effect iris open
  go theCard
  show bkgnd button "Save"
end if
end mouseUp




-- part 1 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=194 top=51 right=70 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: Rule Number


-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=446 top=294 right=325 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go to next card in this bkgnd
end mouseUp



-- part 3 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=65 top=250 right=269 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Conclusion
----- HyperTalk script -----
on mouseUp
  put field "Conclusion" into theFact
  set the LockText of field "Assertions" to false
  set the ShowLines of field "Assertions" to false
  set the Style of field "Assertions" to Opaque
  set the LockText of field "Conclusion" to false
  set the ShowLines of field "Conclusion" to false
  set the Style of field "Conclusion" to Opaque
  push this card
  visual effect iris open
  go card "Smart"
  put find(card field "Questions",theFact) into theResult
  if item 1 of theResult=0
  then
  go card "Question"
  doMenu "New Card"
  put theFact into field "Fact"
else
  put item 1 of theResult into theLine
  put item 2 of line theLine of card field "Questions" into theCard
  go theCard
end if
end mouseUp




-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=394 top=295 right=324 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go to prev card in this bkgnd
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=0 top=281 right=342 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title Screen
----- HyperTalk script -----
on mouseUp
  visual effect barn door close
  go to card "Title"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=185 top=283 right=342 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 22791 / 22791
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Rule
----- HyperTalk script -----
on mouseUp
  go to last card in this bkgnd
  put the number of chars in field "Rule Number" of this card into numChars
  put char 6 to numChars of field "Rule Number" of this card into newRule
  add 1 to newRule
  doMenu "New Card"
  put "Rule"&&newRule into field "Rule Number" of this card
  set the name of this card to "Rule"&&newRule
  put newRule into card field "Rule Count" of card "Smart"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=293 top=283 right=341 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 28352 / 28352
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Questions
----- HyperTalk script -----
on mouseUp
  set the LockText of field "Assertions" to true
  set the ShowLines of field "Assertions" to true
  set the Style of field "Assertions" to Rectangle
  set the LockText of field "Conclusion" to true
  set the ShowLines of field "Conclusion" to true
  set the Style of field "Conclusion" to Rectangle
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=103 top=286 right=337 bottom=149
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help!
----- HyperTalk script -----
on mouseUp
  push this card
  visual effect zoom out
  go card "Rule Help"
  show card button "Return to Rule"
end mouseUp