home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / LeadingLady.dxr / Internal_12.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.9 KB  |  149 lines
  1. global gcurrsprites, gwords, carm, wordtest, gtot
  2.  
  3. on checkKey
  4.   if gcurrsprites.count > 0 then
  5.     gcurrsprites = sortlist(gcurrsprites.duplicate())
  6.     if checksp(gcurrsprites) then
  7.       repeat with i in gcurrsprites
  8.         sprite(i).pActive = 0
  9.         sprite(i).member = sprite(i).pfound
  10.       end repeat
  11.       lineto = getline(gcurrsprites)
  12.       member("word list").line[lineto].color = rgb(187, 187, 287)
  13.       gwords.deleteAt(1)
  14.       member("words left").text = string(0 + gwords.count) & "/" & string(gtot) && "Words left"
  15.       repeat with r in gcurrsprites
  16.         repeat with t = 1 to wordtest.count
  17.           if wordtest[t] = gcurrsprites then
  18.             next repeat
  19.           end if
  20.           repeat with dd = 1 to wordtest[t].count
  21.             if wordtest[t][dd] = r then
  22.               wordtest[t].deleteAt(dd)
  23.               if wordtest[t].count = 0 then
  24.                 gwords.deleteAt(1)
  25.                 lineto = getline(wordtest[t])
  26.                 member("word list").line[lineto].color = rgb(187, 187, 287)
  27.               end if
  28.             end if
  29.           end repeat
  30.         end repeat
  31.       end repeat
  32.       gcurrsprites.deleteAll()
  33.     else
  34.       repeat with i in gcurrsprites
  35.         sprite(i).member = sprite(i).pnorm
  36.         sprite(i).pActive = 1
  37.       end repeat
  38.       gcurrsprites.deleteAll()
  39.       puppetSound(4, "incorrect")
  40.     end if
  41.   end if
  42.   if gwords.count = 0 then
  43.     gameEnd()
  44.   end if
  45. end
  46.  
  47. on gameEnd
  48.   s = the ticks + 35
  49.   repeat while the ticks < s
  50.     updateStage()
  51.   end repeat
  52.   go("game over")
  53. end
  54.  
  55. on getline asd
  56.   repeat with i = 1 to wordtest.count
  57.     if asd = wordtest[i] then
  58.       xt = getu(wordtest.getPropAt(i))
  59.       put xt && "XT"
  60.       return xt
  61.     end if
  62.   end repeat
  63. end
  64.  
  65. on getu arg
  66.   case arg of
  67.     #andrews:
  68.       return 1
  69.     #bancroft:
  70.       return 2
  71.     #bergman:
  72.       return 3
  73.     #booth:
  74.       return 4
  75.     #burstyn:
  76.       return 5
  77.     #christie:
  78.       return 6
  79.     #crawford:
  80.       return 7
  81.     #davis:
  82.       return 8
  83.     #dunaway:
  84.       return 9
  85.     #fletcher:
  86.       return 10
  87.     #fontaine:
  88.       return 11
  89.     #garson:
  90.       return 12
  91.     #hayward:
  92.       return 13
  93.     #hepburn:
  94.       return 14
  95.     #holliday:
  96.       return 15
  97.     #jackson:
  98.       return 16
  99.     #jones:
  100.       return 17
  101.     #keaton:
  102.       return 18
  103.     #kelly:
  104.       return 19
  105.     #leigh:
  106.       return 20
  107.     #loren:
  108.       return 21
  109.     #maclaine:
  110.       return 22
  111.     #minnelli:
  112.       return 23
  113.     #neal:
  114.       return 24
  115.     #rainer:
  116.       return 25
  117.     #rogers:
  118.       return 26
  119.     #wyman:
  120.       return 27
  121.   end case
  122. end
  123.  
  124. on sortlist aList
  125.   temp1 = []
  126.   repeat with i in aList
  127.     temp1.add(i)
  128.   end repeat
  129.   temp1.sort()
  130.   return temp1
  131. end
  132.  
  133. on checksp ali
  134.   repeat with i = 1 to wordtest.count
  135.     if ali = wordtest[i] then
  136.       return 1
  137.     end if
  138.   end repeat
  139.   return 0
  140. end
  141.  
  142. on getp ali
  143.   repeat with i = 1 to wordtest.count
  144.     if ali = wordtest[i] then
  145.       return wordtest.getPropAt(i)
  146.     end if
  147.   end repeat
  148. end
  149.