Komputer for Alle 2002 #7/K-CD-7-2002.ISO/Tools/K-CS.dcr/00263.ls

Text File | 2002-04-10 | 450 b | 22 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
end

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