A Virtual Reality Guide to Texas/CD.iso/texdata/arcextra/tbits.dir/00015.ls

Text File | 1998-06-23 | 919 b | 39 lines

on comparestuff
  global firstshape, lastshape, firstbox, lastbox, firstclick, lastClick, gamecount
  put firstshape
  put lastshape
  if firstshape = lastshape then
    set the visible of sprite (firstbox - 17) to 0
    set the visible of sprite (lastbox - 17) to 0
    set gamecount to gamecount + 1
    if gamecount = 8 then
      repeat with i = 15 to 47
        if i < 19 then
          set the visible of sprite i to 0
        else
          set the visible of sprite i to 1
        end if
        puppetSprite(i, 0)
      end repeat
      gostars()
    end if
    exit
  else
    stall()
    set the visible of sprite firstbox to 1
    set the visible of sprite lastbox to 1
  end if
  set lastClick to 0
  set firstclick to 1
end

on stall
  global mH, mV
  set x to the timer + 100
  repeat while x > the timer
    if (the mouseH <> mH) or (the mouseV <> mV) then
      exit repeat
    end if
  end repeat
end