תקליטור אוסף מעל 200 משחקים מרתקים/over-200-games-micro-a-media.iso/CONNECTD/05DD.DXR/00001.ls

Text File | 1996-01-12 | 1.5 KB | 78 lines

on startMovie
  set the exitLock to 1
  set the keyDownScript to "doCommandKey"
end

on doCommandKey
  if (the commandDown and (the keyCode = 47)) or (the keyCode = 53) then
    nothing()
  end if
end

on setSpecial1
  global special, matches5d, matchCount5d
  set special to 1
  repeat with x = 4 to 18
    puppetSprite(x, 1)
  end repeat
  repeat with x = 1 to 15
    if item x of matches5d = 0 then
      set the castNum of sprite (x + 3) to the number of cast ("match" & x)
      next repeat
    end if
    set the castNum of sprite (x + 3) to the number of cast "doto"
  end repeat
end

on killSpecial1
  global special
  set special to 0
  repeat with x = 4 to 18
    puppetSprite(x, 0)
  end repeat
end

on setSpecial2
  global special
  cursor(4)
  set special to 2
  repeat with x = 3 to 28
    puppetSprite(x, 1)
  end repeat
  repeat with x = 1 to 26
    set the castNum of sprite (x + 2) to the number of cast ("tablet" & x)
  end repeat
  cursor(0)
end

on killSpecial2
  global special
  set special to 0
  repeat with x = 3 to 28
    puppetSprite(x, 0)
  end repeat
end

on setSpecial3
  global special, matches5d
  set special to 3
  repeat with x = 4 to 18
    puppetSprite(x, 1)
  end repeat
  repeat with x = 1 to 15
    if item x of matches5d = 0 then
      set the castNum of sprite (x + 3) to the number of cast ("matchwide" & x)
      next repeat
    end if
    set the castNum of sprite (x + 3) to the number of cast "doto"
  end repeat
end

on killSpecial3
  global special
  set special to 0
  repeat with x = 4 to 18
    puppetSprite(x, 0)
  end repeat
end