100 Plus Great Games 2/100PLUSV2.BIN/games/Triad.dxr/Internal_5.ls

Text File | 2002-01-25 | 6.7 KB | 241 lines

global points, pootimer, win, stock, tableau

on checkwin
  if points = (52 * 10) then
    win = "yes"
    pootimer = timeout("poo").new(150, #gotoit)
  else
    if stock.cards.count = 0 then
      checklose()
    end if
  end if
end

on gotoit
  pootimer.forget()
  go("gameover")
end

on checklose
  if stock.cards.count = 0 then
    repeat with shit = 12 to 12
      if sprite(shit).member.name = "empty" then
        next repeat
      end if
      repeat with cakes = 13 to 13
        if sprite(cakes).member.name = "empty" then
          if getValue(sprite(shit).member.name) = 11 then
            abort()
          end if
        end if
      end repeat
      repeat with cakes = 14 to 14
        if sprite(cakes).member.name = "empty" then
          if getValue(sprite(shit).member.name) = 12 then
            abort()
          end if
        end if
      end repeat
      repeat with cakes = 15 to 15
        if sprite(cakes).member.name = "empty" then
          if getValue(sprite(shit).member.name) = 13 then
            abort()
          end if
        end if
      end repeat
      repeat with cakes = 23 to 26
        if sprite(cakes).member.name = "empty" then
          if getValue(sprite(shit).member.name) = 1 then
            abort()
          end if
          next repeat
        end if
        if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) + 1)) and (getSuit(sprite(shit).member.name) = getSuit(sprite(cakes).member.name)) then
          abort()
        end if
      end repeat
      repeat with apes = 1 to tableau.count
        if tableau[apes].getcardcount() = 0 then
          abort()
        end if
        cakes = tableau[apes].getlastcard().spnum
        if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) - 1)) and not getduplicate(shit - 1, cakes) then
          abort()
        end if
      end repeat
    end repeat
    repeat with shit = 13 to 15
      if sprite(shit).member.name = "empty" then
        next repeat
      end if
      repeat with cakes = 23 to 26
        if sprite(cakes).member.name = "empty" then
          if getValue(sprite(shit).member.name) = 1 then
            abort()
          end if
          next repeat
        end if
        if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) + 1)) and (getSuit(sprite(shit).member.name) = getSuit(sprite(cakes).member.name)) then
          abort()
        end if
      end repeat
      repeat with apes = 1 to tableau.count
        if tableau[apes].getcardcount() = 0 then
          abort()
        end if
        cakes = tableau[apes].getlastcard().spnum
        if getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) - 1) then
          abort()
        end if
      end repeat
    end repeat
    repeat with it = 1 to tableau.count
      if tableau[it].getcardcount() = 0 then
        abort()
      end if
      shit = tableau[it].getlastcard().spnum
      repeat with cakes = 13 to 13
        if sprite(cakes).member.name = "empty" then
          if getValue(sprite(shit).member.name) = 11 then
            abort()
          end if
        end if
      end repeat
      repeat with cakes = 14 to 14
        if sprite(cakes).member.name = "empty" then
          if getValue(sprite(shit).member.name) = 12 then
            abort()
          end if
        end if
      end repeat
      repeat with cakes = 15 to 15
        if sprite(cakes).member.name = "empty" then
          if getValue(sprite(shit).member.name) = 13 then
            abort()
          end if
        end if
      end repeat
      repeat with cakes = 23 to 26
        if sprite(cakes).member.name = "empty" then
          if getValue(sprite(shit).member.name) = 1 then
            abort()
          end if
          next repeat
        end if
        if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) + 1)) and (getSuit(sprite(shit).member.name) = getSuit(sprite(cakes).member.name)) then
          abort()
        end if
      end repeat
      repeat with apes = 1 to tableau.count
        if tableau[apes].getcardcount() = 0 then
          abort()
        end if
        cakes = tableau[apes].getlastcard().spnum
        if shit = cakes then
          next repeat
        end if
        if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) - 1)) and not getduplicate(shit - 1, cakes) then
          abort()
        end if
      end repeat
    end repeat
    win = "no"
    pootimer = timeout("LLKKJ").new(130, #gotoit)
  end if
end

on getValue arg
  if (arg contains "hearts") or (arg contains "spades") then
    return getOff(chars(arg, 1, arg.length - 7))
  else
    if arg contains "diamonds" then
      return getOff(chars(arg, 1, arg.length - 9))
    else
      if arg contains "clubs" then
        return getOff(chars(arg, 1, arg.length - 6))
      end if
    end if
  end if
end

on getOff numba
  if numba = "ace" then
    return 1
  else
    if numba = "two" then
      return 2
    else
      if numba = "three" then
        return 3
      else
        if numba = "four" then
          return 4
        else
          if numba = "five" then
            return 5
          else
            if numba = "six" then
              return 6
            else
              if numba = "seven" then
                return 7
              else
                if numba = "eight" then
                  return 8
                else
                  if numba = "nine" then
                    return 9
                  else
                    if numba = "ten" then
                      return 10
                    else
                      if numba = "jack" then
                        return 11
                      else
                        if numba = "queen" then
                          return 12
                        else
                          if numba = "king" then
                            return 13
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on getSuit arg
  if arg contains "hearts" then
    return #hearts
  else
    if arg contains "diamonds" then
      return #diamonds
    else
      if arg contains "clubs" then
        return #clubs
      else
        if arg contains "spades" then
          return #spades
        end if
      end if
    end if
  end if
end

on getduplicate arch, argu
  if (sprite(arch).member.name <> "empty") and (sprite(arch).member.name <> "backofcard") then
    if getValue(sprite(arch).member.name) = getValue(sprite(argu).member.name) then
      return 1
    end if
  end if
  return 0
end