home *** CD-ROM | disk | FTP | other *** search
/ <GEEK> 3 / GEEK3.ISO / 2hjerne.dxr / 00118_Text_118.txt < prev    next >
Text File  |  1997-09-12  |  2KB  |  80 lines
  1. global Q, antall,antallriktig, antallfeil
  2.  
  3. on mouseUp
  4.   
  5.   
  6.   if field 88 = field 87 then
  7.     put "Riktig" into field 90
  8.     set antallriktig = antallriktig + 1
  9.  
  10.     
  11.     if antallriktig - 34 = 13 then
  12.       set the visible of sprite 2 to TRUE
  13.       set the visible of sprite 3 to TRUE
  14.       go "R13"
  15.       
  16.     else
  17.       set the visible of sprite 47 to TRUE
  18.       set the visible of sprite 48 to TRUE
  19.       
  20.       set the visible of sprite 32 to FALSE
  21.       set the visible of sprite 33 to FALSE
  22.       
  23.       set the visible of sprite 2 to FALSE
  24.       set the visible of sprite 3 to FALSE
  25.       
  26.       puppetSound(1), 16
  27.       delete line Q of field 85
  28.       delete line Q of field 86
  29.       
  30.       set antall = antall - 1
  31.       
  32.       
  33.       go "vissvar"
  34.     end if
  35.     
  36.     
  37.   else
  38.     
  39.     put "Galt" into field 90
  40.     set antallfeil = antallfeil + 1
  41.     
  42.     
  43.     if antallfeil - 19 = 13 then
  44.       set the visible of sprite 2 to TRUE
  45.       set the visible of sprite 3 to TRUE
  46.       
  47.       go "G13"
  48.       
  49.     else
  50.       
  51.       set the visible of sprite 32 to TRUE
  52.       set the visible of sprite 33 to TRUE
  53.       
  54.       set the visible of sprite 47 to FALSE
  55.       set the visible of sprite 48 to FALSE
  56.       
  57.       set the visible of sprite 2 to FALSE
  58.       set the visible of sprite 3 to FALSE
  59.       
  60.       puppetSound(1), 15
  61.       
  62.       delete line Q of field 85
  63.       delete line Q of field 86
  64.       
  65.       set antall = antall - 1
  66.       
  67.       
  68.       go "vissvar"
  69.       
  70.     end if
  71.     
  72.     
  73.   end if
  74.   
  75.   
  76.   
  77.   
  78.   
  79. end
  80.