GU Photo: Background 3/GU.iso/pc/browser_4m_/browser_4m_.dxr/00122_search.ls

Text File | 1994-09-30 | 490 b | 21 lines

on mouseDown
  set sp to clickOn()
  set cst to the castNum of sprite sp
  set v to the mouseV - the locV of sprite sp - (the height of sprite sp / 2)
  if field cst = EMPTY then
    put "1" into field cst
  end if
  if v < 0 then
    put value(field cst) + 1 into field cst
  else
    put value(field cst) - 1 into field cst
  end if
  if 101 < value(field cst) then
    put "101" into field cst
  else
    if value(field cst) < 1 then
      put "1" into field cst
    end if
  end if
end