Seeker/Seeker.iso/files_w/w_puzzle.dir/00085.ls

Text File | 1994-12-05 | 1.6 KB | 81 lines

on clearcheck
  global lpictblock, rpictblock
  set l to 1
  set l2 to 1
  set r to 1
  set r2 to 1
  repeat with i = 11 to 30
    if getAt(lpictblock, i - 10) <> i then
      set l to 0
    end if
    if getAt(lpictblock, i - 10) <> (i + 20) then
      set l2 to 0
    end if
    if getAt(rpictblock, i - 10) <> i then
      set r to 0
    end if
    if getAt(rpictblock, i - 10) <> (i + 20) then
      set r2 to 0
    end if
  end repeat
  if ((l = 1) and (r2 = 1)) or ((l2 = 1) and (r = 1)) then
    unLoad()
    preLoad(53, 54)
    repeat with i = 1 to 48
      set the castNum of sprite i to 0
      set the cursor of sprite i to 0
      puppetSprite(i, 0)
    end repeat
    cursor(200)
    go("clear")
  else
    go("center")
  end if
end

on leftcheck
  global lpictblock
  set p to 0
  set q to 0
  repeat with i = 1 to 20
    if getAt(lpictblock, i) <> (i + 10) then
      set p to 1
    end if
    if getAt(lpictblock, i) <> (i + 30) then
      set q to 1
    end if
    if p and q then
      exit repeat
    end if
  end repeat
  repeat with i = 2 to 42
    set the cursor of sprite i to [243, 244]
  end repeat
  if not p or not q then
    play frame "leftbell"
  end if
end

on rightcheck
  global rpictblock
  set p to 0
  set q to 0
  repeat with i = 1 to 20
    if getAt(rpictblock, i) <> (i + 10) then
      set p to 1
    end if
    if getAt(rpictblock, i) <> (i + 30) then
      set q to 1
    end if
    if p and q then
      exit repeat
    end if
  end repeat
  repeat with i = 2 to 42
    set the cursor of sprite i to [243, 244]
  end repeat
  if not p or not q then
    play frame "rightbell"
  end if
end