home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #3 / K-CD-3-2002.ISO / K-CS.DCR / 00376_JetCarScript.ls < prev    next >
Encoding:
Text File  |  2002-01-14  |  330 b   |  17 lines
  1. global BlinkObjekt
  2.  
  3. on new me
  4.   cursor(0)
  5.   if the text of member "JetCarKategori" = EMPTY then
  6.     set the text of member "JetCarKategori" to "Shareware"
  7.   end if
  8.   set BlinkObject to 0
  9.   set the locH of sprite 99 to 780
  10.   set BlinkObjekt to new(script "Blink", 4, 80)
  11. end
  12.  
  13. on exitFrame
  14.   checkBlink(BlinkObjekt)
  15.   go(#loop)
  16. end
  17.