Komputer for Alle 2002 #11/K-CD-11-2002.ISO/Tools/K-CS.DCR/00010.ls

Text File | 2002-02-14 | 604 b | 25 lines

global CatPunk

on new me
  set CatPunk to -1
  set the visible of sprite 98 to 1
  set the visible of sprite 99 to 1
  set the visible of sprite 82 to 1
  set the visible of sprite 94 to 1
  set the fileName of castLib "V_Sprog" to "V_Svensk.cst"
  baRegister("Komputer for alle", 3062010)
  register(xtra("PrintOMatic"), "PMAT155-759-89551")
end

on exitFrame
  if CatPunk >= 0 then
    set the memberNum of sprite 12 to (CatPunk / 2) + 920
    set CatPunk to CatPunk + 1
    if CatPunk >= 31 then
      set the memberNum of sprite 12 to 920
      set CatPunk to -1
    end if
  end if
  go(#loop)
end