home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Payout.dxr / 00003_main.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  12.0 KB  |  204 lines
  1. property pCar1, pCar2, pCar3, pCar4, bool1
  2. global pList, gRaceStart, gThePos, gShortestDistance, gMoney, gBet, gWinnings, gSelected, pReset
  3.  
  4. on new me
  5.   pReset = 0
  6.   gSelected = 0
  7.   member("money").text = string(integer(gMoney))
  8.   member("bet").text = string(integer(gBet))
  9.   member("winnings").text = string(integer(gWinnings))
  10.   bool1 = 0
  11.   gRaceStart = 0
  12.   positionList = [point(sprite(15).locH, sprite(15).locV), point(495, 202), point(490, 180), point(479, 156), point(464, 134), point(444, 115), point(421, 101), point(396, 93), point(370, 90), point(206, 90), point(180, 93), point(154, 102), point(132, 115), point(111, 134), point(96, 156), point(86, 177), point(80, 204), point(81, 230), point(86, 255), point(97, 280), point(112, 300), point(132, 318), point(155, 334), point(180, 343), point(208, 347), point(373, 347), point(399, 344), point(424, 335), point(446, 321), point(464, 303), point(478, 282), point(491, 257)]
  13.   pCar1 = new(script("carScript"), 4.0, 0, sprite(15).locH, sprite(15).locV, positionList, 15)
  14.   pCar1.pTotalDistance = getTrackDistance(positionList)
  15.   positionList = [point(sprite(16).locH, sprite(16).locV), point(517, 202), point(512, 175), point(500, 145), point(480, 119), point(457, 98), point(432, 82), point(402, 71), point(371, 66), point(206, 66), point(174, 70), point(145, 80), point(120, 96), point(96, 117), point(76, 144), point(64, 173), point(59, 203), point(60, 233), point(67, 264), point(80, 291), point(98, 315), point(122, 337), point(146, 354), point(177, 365), point(208, 369), point(373, 370), point(403, 365), point(433, 355), point(459, 338), point(481, 318), point(499, 292), point(514, 257)]
  16.   pCar2 = new(script("carScript"), 4.0, 0, sprite(16).locH, sprite(16).locV, positionList, 16)
  17.   pCar2.pTotalDistance = getTrackDistance(positionList)
  18.   positionList = [point(sprite(17).locH, sprite(17).locV), point(542, 202), point(534, 166), point(520, 134), point(499, 104), point(473, 79), point(441, 61), point(408, 47), point(374, 43), point(205, 42), point(169, 48), point(134, 59), point(103, 78), point(77, 102), point(56, 132), point(42, 165), point(37, 196), point(35, 234), point(43, 270), point(58, 303), point(78, 331), point(104, 357), point(136, 375), point(170, 388), point(204, 392), point(375, 394), point(410, 389), point(441, 378), point(474, 358), point(499, 333), point(519, 304), point(538, 257)]
  19.   pCar3 = new(script("carScript"), 4, 0, sprite(17).locH, sprite(17).locV, positionList, 17)
  20.   pCar3.pTotalDistance = getTrackDistance(positionList)
  21.   positionList = [point(sprite(18).locH, sprite(18).locV), point(563, 202), point(555, 158), point(539, 123), point(512, 88), point(483, 60), point(449, 40), point(412, 26), point(374, 22), point(204, 22), point(162, 27), point(128, 40), point(92, 60), point(63, 88), point(37, 121), point(21, 159), point(12, 196), point(13, 238), point(23, 277), point(40, 314), point(62, 345), point(92, 373), point(128, 394), point(166, 408), point(206, 414), point(376, 415), point(416, 410), point(452, 396), point(487, 375), point(517, 346), point(540, 313), point(560, 257)]
  22.   pCar4 = new(script("carScript"), 4.0, 0, sprite(18).locH, sprite(18).locV, positionList, 18)
  23.   pCar4.pTotalDistance = getTrackDistance(positionList)
  24.   gShortestDistance = pCar1.pTotalDistance
  25.   var = float(pCar1.pTotalDistance) / float(gShortestDistance)
  26.   pCar1.pSpeed = 4 * var
  27.   var = float(pCar2.pTotalDistance) / float(gShortestDistance)
  28.   pCar2.pSpeed = 4 * var
  29.   var = float(pCar3.pTotalDistance) / float(gShortestDistance)
  30.   pCar3.pSpeed = 4 * var
  31.   var = float(pCar4.pTotalDistance) / float(gShortestDistance)
  32.   pCar4.pSpeed = 4 * var
  33. end
  34.  
  35. on exitFrame me
  36.   if pReset = 1 then
  37.     pReset = 0
  38.     reInit()
  39.   end if
  40.   if gRaceStart = 1 then
  41.     pCar1.updateCar()
  42.     pCar2.updateCar()
  43.     pCar3.updateCar()
  44.     pCar4.updateCar()
  45.     if (pCar1.pFinished = 1) and (pCar2.pFinished = 1) and (pCar3.pFinished = 1) and (pCar4.pFinished = 1) and (pCar1.pSpeed <= 0) and (pCar2.pSpeed <= 0) and (pCar3.pSpeed <= 0) and (pCar4.pSpeed <= 0) then
  46.       gRaceStart = 0
  47.       case gSelected of
  48.         27:
  49.           if gThePos[1] = 1 then
  50.             puppetSound(6, "win race")
  51.             gMoney = gMoney + (pList[1] * gBet)
  52.             gWinnings = (pList[1] * gBet) - gBet
  53.             gBet = 0
  54.             member("money").text = string(integer(gMoney))
  55.             member("winnings").text = string(integer(gWinnings))
  56.             member("bet").text = string(integer(gBet))
  57.           else
  58.             puppetSound(6, "lose race")
  59.             gWinnings = 0
  60.             gBet = 0
  61.             member("money").text = string(integer(gMoney))
  62.             member("winnings").text = string(integer(gWinnings))
  63.             member("bet").text = string(integer(gBet))
  64.           end if
  65.         28:
  66.           if gThePos[2] = 1 then
  67.             puppetSound(6, "win race")
  68.             gMoney = gMoney + (pList[2] * gBet)
  69.             gWinnings = (pList[2] * gBet) - gBet
  70.             gBet = 0
  71.             member("money").text = string(integer(gMoney))
  72.             member("winnings").text = string(integer(gWinnings))
  73.             member("bet").text = string(integer(gBet))
  74.           else
  75.             puppetSound(6, "lose race")
  76.             gWinnings = 0
  77.             gBet = 0
  78.             member("money").text = string(integer(gMoney))
  79.             member("winnings").text = string(integer(gWinnings))
  80.             member("bet").text = string(integer(gBet))
  81.           end if
  82.         26:
  83.           if gThePos[3] = 1 then
  84.             puppetSound(6, "win race")
  85.             gMoney = gMoney + (pList[3] * gBet)
  86.             gWinnings = (pList[3] * gBet) - gBet
  87.             gBet = 0
  88.             member("money").text = string(integer(gMoney))
  89.             member("winnings").text = string(integer(gWinnings))
  90.             member("bet").text = string(integer(gBet))
  91.           else
  92.             puppetSound(6, "lose race")
  93.             gWinnings = 0
  94.             gBet = 0
  95.             member("money").text = string(integer(gMoney))
  96.             member("winnings").text = string(integer(gWinnings))
  97.             member("bet").text = string(integer(gBet))
  98.           end if
  99.         25:
  100.           if gThePos[4] = 1 then
  101.             puppetSound(6, "win race")
  102.             gMoney = gMoney + (pList[4] * gBet)
  103.             gWinnings = (pList[4] * gBet) - gBet
  104.             gBet = 0
  105.             member("money").text = string(integer(gMoney))
  106.             member("winnings").text = string(integer(gWinnings))
  107.             member("bet").text = string(integer(gBet))
  108.           else
  109.             puppetSound(6, "lose race")
  110.             gWinnings = 0
  111.             gBet = 0
  112.             member("money").text = string(integer(gMoney))
  113.             member("winnings").text = string(integer(gWinnings))
  114.             member("bet").text = string(integer(gBet))
  115.           end if
  116.       end case
  117.       if gMoney <= 0 then
  118.         puppetSound(3, "lose")
  119.         go(34)
  120.       end if
  121.       sprite(23).blend = 0
  122.       sprite(25).member = "Car_Blue"
  123.       sprite(26).member = "Car_Purp"
  124.       sprite(27).member = "Car_Red"
  125.       sprite(28).member = "Car_Green"
  126.       gSelected = 0
  127.     end if
  128.     if (pCar1.pNearEnd = 1) and (pCar2.pNearEnd = 1) and (pCar3.pNearEnd = 1) and (pCar4.pNearEnd = 1) and (bool1 = 0) then
  129.       sound(5).fadeOut(5000)
  130.       bool1 = 1
  131.       repeat with counter = 1 to count(gThePos)
  132.         if gThePos[counter] = 1 then
  133.           exit repeat
  134.         end if
  135.       end repeat
  136.       distance1 = float(pCar1.pTotalDistance - pCar1.pTripDistance)
  137.       distance2 = float(pCar2.pTotalDistance - pCar2.pTripDistance)
  138.       distance3 = float(pCar3.pTotalDistance - pCar3.pTripDistance)
  139.       distance4 = float(pCar4.pTotalDistance - pCar4.pTripDistance)
  140.       case counter of
  141.         1:
  142.           pCar1.pSpeed = 6.0
  143.           theTime = distance1 / 6.0
  144.           pCar2.pSpeed = (distance2 / theTime) - (float(gThePos[2]) / 3.0)
  145.           pCar3.pSpeed = (distance3 / theTime) - (float(gThePos[3]) / 3.0)
  146.           pCar4.pSpeed = (distance4 / theTime) - (float(gThePos[4]) / 3.0)
  147.         2:
  148.           pCar2.pSpeed = 6.0
  149.           theTime = distance2 / 6.0
  150.           pCar1.pSpeed = (distance1 / theTime) - (float(gThePos[1]) / 3.0)
  151.           pCar3.pSpeed = (distance3 / theTime) - (float(gThePos[3]) / 3.0)
  152.           pCar4.pSpeed = (distance4 / theTime) - (float(gThePos[4]) / 3.0)
  153.         3:
  154.           pCar3.pSpeed = 6.0
  155.           theTime = distance3 / 6.0
  156.           pCar1.pSpeed = (distance1 / theTime) - (float(gThePos[1]) / 3.0)
  157.           pCar2.pSpeed = (distance2 / theTime) - (float(gThePos[2]) / 3.0)
  158.           pCar4.pSpeed = (distance4 / theTime) - (float(gThePos[4]) / 3.0)
  159.         4:
  160.           pCar4.pSpeed = 6.0
  161.           theTime = distance4 / 6.0
  162.           pCar1.pSpeed = (distance1 / theTime) - (float(gThePos[1]) / 3.0)
  163.           pCar2.pSpeed = (distance2 / theTime) - (float(gThePos[2]) / 3.0)
  164.           pCar3.pSpeed = (distance3 / theTime) - (float(gThePos[3]) / 3.0)
  165.       end case
  166.     end if
  167.   end if
  168.   go(the frame)
  169. end
  170.  
  171. on reInit
  172.   resetAllCars()
  173.   pCar1 = 0
  174.   pCar2 = 0
  175.   pCar3 = 0
  176.   pCar4 = 0
  177.   member("money").text = string(integer(gMoney))
  178.   member("bet").text = string(integer(gBet))
  179.   member("winnings").text = string(integer(gWinnings))
  180.   bool1 = 0
  181.   gRaceStart = 0
  182.   positionList = [point(494, 242), point(495, 202), point(490, 180), point(479, 156), point(464, 134), point(444, 115), point(421, 101), point(396, 93), point(370, 90), point(206, 90), point(180, 93), point(154, 102), point(132, 115), point(111, 134), point(96, 156), point(86, 177), point(80, 204), point(81, 230), point(86, 255), point(97, 280), point(112, 300), point(132, 318), point(155, 334), point(180, 343), point(208, 347), point(373, 347), point(399, 344), point(424, 335), point(446, 321), point(464, 303), point(478, 282), point(491, 257)]
  183.   pCar1 = new(script("carScript"), 4.0, 0, 494, 242, positionList, 15)
  184.   pCar1.pTotalDistance = getTrackDistance(positionList)
  185.   positionList = [point(517, 242), point(517, 202), point(512, 175), point(500, 145), point(480, 119), point(457, 98), point(432, 82), point(402, 71), point(371, 66), point(206, 66), point(174, 70), point(145, 80), point(120, 96), point(96, 117), point(76, 144), point(64, 173), point(59, 203), point(60, 233), point(67, 264), point(80, 291), point(98, 315), point(122, 337), point(146, 354), point(177, 365), point(208, 369), point(373, 370), point(403, 365), point(433, 355), point(459, 338), point(481, 318), point(499, 292), point(514, 257)]
  186.   pCar2 = new(script("carScript"), 4.0, 0, 517, 242, positionList, 16)
  187.   pCar2.pTotalDistance = getTrackDistance(positionList)
  188.   positionList = [point(543, 242), point(542, 202), point(534, 166), point(520, 134), point(499, 104), point(473, 79), point(441, 61), point(408, 47), point(374, 43), point(205, 42), point(169, 48), point(134, 59), point(103, 78), point(77, 102), point(56, 132), point(42, 165), point(37, 196), point(35, 234), point(43, 270), point(58, 303), point(78, 331), point(104, 357), point(136, 375), point(170, 388), point(204, 392), point(375, 394), point(410, 389), point(441, 378), point(474, 358), point(499, 333), point(519, 304), point(538, 257)]
  189.   pCar3 = new(script("carScript"), 4, 0, 543, 242, positionList, 17)
  190.   pCar3.pTotalDistance = getTrackDistance(positionList)
  191.   positionList = [point(566, 242), point(563, 202), point(555, 158), point(539, 123), point(512, 88), point(483, 60), point(449, 40), point(412, 26), point(374, 22), point(204, 22), point(162, 27), point(128, 40), point(92, 60), point(63, 88), point(37, 121), point(21, 159), point(12, 196), point(13, 238), point(23, 277), point(40, 314), point(62, 345), point(92, 373), point(128, 394), point(166, 408), point(206, 414), point(376, 415), point(416, 410), point(452, 396), point(487, 375), point(517, 346), point(540, 313), point(560, 257)]
  192.   pCar4 = new(script("carScript"), 4.0, 0, 566, 242, positionList, 18)
  193.   pCar4.pTotalDistance = getTrackDistance(positionList)
  194.   gShortestDistance = pCar1.pTotalDistance
  195.   var = float(pCar1.pTotalDistance) / float(gShortestDistance)
  196.   pCar1.pSpeed = 4 * var
  197.   var = float(pCar2.pTotalDistance) / float(gShortestDistance)
  198.   pCar2.pSpeed = 4 * var
  199.   var = float(pCar3.pTotalDistance) / float(gShortestDistance)
  200.   pCar3.pSpeed = 4 * var
  201.   var = float(pCar4.pTotalDistance) / float(gShortestDistance)
  202.   pCar4.pSpeed = 4 * var
  203. end
  204.