Encyklopedia Omnia/Planeta.iso/data/e_gen_pl.dir/00053_custom1.ls

Text File | 1999-06-27 | 503 b | 18 lines

on enterFrame
  global gCatenaccio
  set the MouseUpHandler of sprite(1) to "handleMouseUpVR12"
  set the MouseDownHandler of sprite(1) to "handleMouseDownCommon"
  if getPos(gCatenaccio, #cielo) <> 0 then
    set the DisableHotSpotID of sprite(1) to 107
  end if
  if getPos(gCatenaccio, #mare) <> 0 then
    set the DisableHotSpotID of sprite(1) to 202
  end if
  set x to stageRight() - 96
  set y to stageTop()
  apriMiawTipo2("m_navig", x, y, 0)
  cursor(200)
  cursor(-1)
  go(marker(-1) + 1)
end