OpenEasyUO - Event House Master Script

dofile(getinstalldir().."Scripts/Kal In Ex/KalLib.lua")
dofile(getinstalldir().."Scripts/STUBY085/JournalToLower.txt")

--[[
Title: Trivia Event Macro
Author: Maelune


<<Trivia>>
Requirements: Must be located on the 3rd floor of the Event House in the room with the Green and Red squares
              (North side)

Instructions: Start the script. Once all players have arrived and are on screen, click the "Populate" button.
              Once the game has begun, do not click the Populate button again - it will cause scores to be wiped.
              Clicking Red or Green will give points to the square of the same color within the Event House.

Notes: This script will not pick up individuals wearing disguises/forms, or those who are hidden.
       Make sure that it is clear when you begin that all players must remain visible and unmorphed!


<<Sorry!>>
Requirements: Must have a Sorry! board and some friends to play with!

Instructions: > below the instructions block, locate "proctor =" and replace the name with that of your character.
              > start the script. Once all players have arrived, click the "Populate" button.
              > click the "Shuffle Cards" button
              > explain to players how to "draw a card"
              > click the "Deal Cards" button
              > now if any player besides yourself says, "draw a card", "Draw a card", or "DRAW A CARD"
                   you will respond in the form of an emote with the card they have chosen.
              > once the Sorry! game has finished, you must emote "Puts cards away" to end the game.

Notes: If the proctor says, "Draw a card" the card drawn will simply be deleted from this deck and will re-appear
       in the deck once shuffled. You should explain how to "Draw a card" to the players before you start the macro.

       Saying something at the exact moment when a player says "Draw a card" can potentially cause their card
       to be ignored. The window where this is possible is incredibly small (microseconds). Just be aware of it.
]]--
--[[
<<UO Life!>>
Requirements: Be at the Life Board on the Event House roof, have some friends!

Instructions: > below the instructions block, locate "proctor =" and replace the name with that of your character.
              > start the script. Once all players have arrived, click the "Populate" button.
              > Explain the 3 commands for Life, "Spin the wheel", "Draw a trade", and "Draw an action"
              > click the "Start Life!" button
              > Emote, "Puts cards away" to end the game - this must be done by the proctor

Notes: If the proctor says, "Draw a card" the card drawn will simply be deleted from this deck and will re-appear
       in the deck once shuffled.

       Saying something at the exact moment when a player says a command phrase can potentially cause their card
       to be ignored. The window where this is possible is incredibly small (microseconds). Just be aware of it.
]]--
proctor = "Maelune"
--Party Maker
function ClientMenu()
  if UO.CliCnt > 1 then
    local timer = 0

    local sForm = Obj.Create("TForm")
    sForm.Caption = "Kali's Party Builder"
    sForm.Font.Color = 255
    sForm._ = {Height = 100+30*UO.CliCnt, Width = 160, Color = 0, FormStyle = 3}
    sForm.OnClose = function() Obj.Exit() return end

    local sLabel = Obj.Create("TLabel")
    sLabel.Caption = "Choose Master Client"
    sLabel._ = {Height = 25, Width = 100, Top = 20, Left = 23, Parent = sForm}

    local sButton = {}
    for i = 1, UO.CliCnt do
      UO.CliNr = i
      wait(100)
      UO.Macro(8,2)
      timer = getticks()
      while UO.ContName ~= "status gump" and UO.ContName ~= "MainMenu gump" do
        wait(100)
        if (getticks() - timer) > 1000 then
          UO.Macro(8,2)
        end
      end
      sButton[i] = Obj.Create("TButton")
      sButton[i].Caption = tostring(UO.CliNr.." - "..UO.CharName)
      sButton[i].Top = 30 + 30*i
      sButton[i]._ = {Height = 25, Width = 100, Left = 25, Parent = sForm}
      sButton[i].OnClick = function()
        UO.CliNr = i
        Obj.Exit()
      end
    end
    sForm.Show()
    Obj.Loop()
    sForm.Hide()

    for k,v in pairs(sButton) do
      Obj.Free(v)
    end
    Obj.Free(sLabel)
    Obj.Free(sForm)
  end
  return
end

ClientMenu()
-- //PartyMaker


-- Defines public variables
names = {}
players = {}
nscores = {}
scores = {}
myjournal = 0
i = 1
types = {605,606,607,608,400,401,402,403,666,667,694,695}
round = 0
deck = {}
lifeDeck = {}
JRsearch = nil

--Populate
function Populate()
         t = ScanItems(true,{Type = types}) --Scans for all player types

--Populates players table with found players on the screen, sets all player scores to 0
            for i=1,#t do
                players[i] = t[i]
                scores[i] = 0
                wait(100)
            end
            for i=1,45 do
                deck[i] = i
            end
            for i=1,59 do
                lifeDeck[i] = i
            end
            DeckShuffle(lifeDeck)
end
--/Populate

--Sorry!
function DeckShuffle(hand)
  size = #hand
  for i = size, 1, -1 do
    local rand = math.random(size)
    hand[i], hand[rand] = hand[rand], hand[i]
  end
  return hand
end

function Deck()
         DeckShuffle(deck)
end

function FindJournal()
         local i = 1

         while true do
         newJournal = journal:new()
         wait(150)
               local findJournal = newJournal:find("draw a card","Draw a card","DRAW A CARD",proctor..": *Puts cards away*")
               if findJournal == 1 or findJournal == 2 or findJournal == 3 then
                  print(findJournal)
                  if deck[i] == 1 then UO.Macro(2,0,"Move Forward One, or Move a Pawn From Start")
                  elseif deck[i] == 2 then UO.Macro(2,0,"Move Forward One, or Move a Pawn From Start")
                  elseif deck[i] == 3 then UO.Macro(2,0,"Move Forward One, or Move a Pawn From Start")
                  elseif deck[i] == 4 then UO.Macro(2,0,"Move Forward One, or Move a Pawn From Start")
                  elseif deck[i] == 5 then UO.Macro(2,0,"Move Forward One, or Move a Pawn From Start")
                  elseif deck[i] == 6 then UO.Macro(2,0,"Move Forward Two, or Move a Pawn From Start")
                  elseif deck[i] == 7 then UO.Macro(2,0,"Move Forward Two, or Move a Pawn From Start")
                  elseif deck[i] == 8 then UO.Macro(2,0,"Move Forward Two, or Move a Pawn From Start")
                  elseif deck[i] == 9 then UO.Macro(2,0,"Move Forward Two, or Move a Pawn From Start")
                  elseif deck[i] == 10 then UO.Macro(2,0,"Move Forward Three")
                  elseif deck[i] == 11 then UO.Macro(2,0,"Move Forward Three")
                  elseif deck[i] == 12 then UO.Macro(2,0,"Move Forward Three")
                  elseif deck[i] == 13 then UO.Macro(2,0,"Move Forward Three")
                  elseif deck[i] == 14 then UO.Macro(2,0,"Move Backward Four")
                  elseif deck[i] == 15 then UO.Macro(2,0,"Move Backward Four")
                  elseif deck[i] == 16 then UO.Macro(2,0,"Move Backward Four")
                  elseif deck[i] == 17 then UO.Macro(2,0,"Move Backward Four")
                  elseif deck[i] == 18 then UO.Macro(2,0,"Move Forward Five")
                  elseif deck[i] == 19 then UO.Macro(2,0,"Move Forward Five")
                  elseif deck[i] == 20 then UO.Macro(2,0,"Move Forward Five")
                  elseif deck[i] == 21 then UO.Macro(2,0,"Move Forward Five")
                  elseif deck[i] == 22 then UO.Macro(2,0,"Move Forward Seven, or Split Between Two Pawns")
                  elseif deck[i] == 23 then UO.Macro(2,0,"Move Forward Seven, or Split Between Two Pawns")
                  elseif deck[i] == 24 then UO.Macro(2,0,"Move Forward Seven, or Split Between Two Pawns")
                  elseif deck[i] == 25 then UO.Macro(2,0,"Move Forward Seven, or Split Between Two Pawns")
                  elseif deck[i] == 26 then UO.Macro(2,0,"Move Forward Eight")
                  elseif deck[i] == 27 then UO.Macro(2,0,"Move Forward Eight")
                  elseif deck[i] == 28 then UO.Macro(2,0,"Move Forward Eight")
                  elseif deck[i] == 29 then UO.Macro(2,0,"Move Forward Eight")
                  elseif deck[i] == 30 then UO.Macro(2,0,"Move Forward Ten, or Move Backward One")
                  elseif deck[i] == 31 then UO.Macro(2,0,"Move Forward Ten, or Move Backward One")
                  elseif deck[i] == 32 then UO.Macro(2,0,"Move Forward Ten, or Move Backward One")
                  elseif deck[i] == 33 then UO.Macro(2,0,"Move Forward Ten, or Move Backward One")
                  elseif deck[i] == 34 then UO.Macro(2,0,"Move Forward Eleven, or Switch Places With An Opponent")
                  elseif deck[i] == 35 then UO.Macro(2,0,"Move Forward Eleven, or Switch Places With An Opponent")
                  elseif deck[i] == 36 then UO.Macro(2,0,"Move Forward Eleven, or Switch Places With An Opponent")
                  elseif deck[i] == 37 then UO.Macro(2,0,"Move Forward Eleven, or Switch Places With An Opponent")
                  elseif deck[i] == 38 then UO.Macro(2,0,"Move Forward Twelve")
                  elseif deck[i] == 39 then UO.Macro(2,0,"Move Forward Twelve")
                  elseif deck[i] == 40 then UO.Macro(2,0,"Move Forward Twelve")
                  elseif deck[i] == 41 then UO.Macro(2,0,"Move Forward Twelve")
                  elseif deck[i] == 42 then UO.Macro(2,0,"Sorry!")
                  elseif deck[i] == 43 then UO.Macro(2,0,"Sorry!")
                  elseif deck[i] == 44 then UO.Macro(2,0,"Sorry!")
                  elseif deck[i] == 45 then UO.Macro(2,0,"Sorry!")
                  end
                  --findJournal = findJournal:clear()
                  wait(500)
                  i = i + 1
                  --print(i)
                  wait(100)
                  if i == 46 then
                     UO.Macro(2,0,"Shuffles the deck...")
                     i = 1
                     DeckShuffle(deck)
                  end
                  --wait(150)
                  --findJournal:clear()

               elseif findJournal == 4 then
                  print("Escape!")
                  wait(150)
                  do return end
               end
         end
         --wait(50)
         --FindJournal()
end

--/Sorry!



--RedScores
function RedScores()
t = ScanItems(true,{Type = types})--Rescans nearby players
round = round + 1

--Populates players table with updated location data
      for b=1,#players do
          for c=1,#players do
              if players[c].Name == t[c].Name then
              players[c] = t[c]
          end
      end
end

--Determines if players get points based on X location
for b=1,#players do
     if players[b].X > 3053 and players[b].X < 3058 then
        --print(players[b].Name)
        scores[b] = scores[b] + 1
     end
     print(players[b].Name.."'s score is now: "..scores[b])
end
print("-------------------------Round:"..round.."-------------------------")
end
--/RedScores

--GreenScores
function GreenScores()
t = ScanItems(true,{Type = types})--Rescans nearby players
round = round + 1

--Populates players table with updated location data
      for b=1,#players do
          for c=1,#players do
              if players[c].Name == t[c].Name then
              players[c] = t[c]
          end
      end
end

--Determines if players get points based on X location
for b=1,#players do
     if players[b].X > 3045 and players[b].X < 3051 then
        --print(players[b].Name)
        scores[b] = scores[b] + 1
     end
     print(players[b].Name.."'s score is now: "..scores[b])
end
print("-------------------------Round:"..round.."-------------------------")
end
--/GreenScores

function StartLife()
   for i=1,#players do
      if not string.find(players[i].Name,proctor) then
          local prof = nil
          local k = math.random(1,6)
          if k == 1 then
             prof = "Blacksmith"
          elseif k == 2 then
             prof = "Carpenter"
          elseif k == 3 then
             prof = "Miner"
          elseif k == 4 then
             prof = "Tailor"
          elseif k == 5 then
             prof = "Tinker"
          elseif k == 6 then
             prof = "Lumberjack"
          end
          UO.Macro(2,0,players[i].Name.." is a "..prof.."!")
          wait(500)
      end
   end
   Life()
end

function Life()
    local i = 1
--print(string.lower(proctor..": *puts cards away*"))
    while true do
        Journal.Mark()
        wait(500)
        spinTheWheel = nil
        drawAction = nil
        drawTrade = nil
        local k = nil
        repeat
            spinTheWheel = journalsearch("spin the wheel","draw an action","draw a trade",(string.lower(proctor)..": "..".*puts cards away.*"))
        until   spinTheWheel ~= nil
        print(spinTheWheel)
        if spinTheWheel == "spin the wheel" then
            k = math.random(1,15)
            if k == 1 then
               UO.Macro(2,0,"Move forward one!")
            elseif k == 2 then
               UO.Macro(2,0,"Move forward two!")
            elseif k == 3 then
               UO.Macro(2,0,"Move forward three!")
            elseif k == 4 then
               UO.Macro(2,0,"Move forward four!")
            elseif k == 5 then
               UO.Macro(2,0,"Move forward five!")
            elseif k == 6 then
               UO.Macro(2,0,"Move forward six!")
            elseif k == 7 then
               UO.Macro(2,0,"You've been skipped!")
            elseif k == 8 then
               UO.Macro(2,0,"Move backward one!")
            elseif k == 9 then
               UO.Macro(2,0,"Move backward two!")
            elseif k == 10 then
               UO.Macro(2,0,"Move backward three!")
            elseif k == 11 then
               UO.Macro(2,0,"Move backward four!")
            elseif k == 12 then
               UO.Macro(2,0,"Move backward five!")
            elseif k == 13 then
               UO.Macro(2,0,"Move backward six!")
            elseif k == 14 then
               UO.Macro(2,0,"WILD! Move 1 to 6 spaces!")
            elseif k == 15 then
               UO.Macro(2,0,"Skip a player card!")
            end
        elseif spinTheWheel == "draw an action" then
                  if lifeDeck[i] == 1 then
                     UO.Macro(2,0,"Win a “beautiful Big Head” Contest! Tell everyone why you should win this award.")
                     wait(500)
                     UO.Macro(2,0,"Collect 40k from the bank.")
                  elseif lifeDeck[i] == 2 then
                     UO.Macro(2,0,"Win a “Good Samaritan of The Year” Award! Tell Everyone Thank You.")
                     wait(500)
                     UO.Macro(2,0,"Collect 40k from the bank.")
                  elseif lifeDeck[i] == 3 then
                     UO.Macro(2,0,"Win a “LAWSUIT! Sue another player for steeling your pickaxe! Choose a player to sue")
                     wait(500)
                     UO.Macro(2,0,"Collect 20k from that player.")
                  elseif lifeDeck[i] == 4 then
                     UO.Macro(2,0,"Write a Book of Poems! Tell everyone what it’s about.")
                     wait(500)
                     UO.Macro(2,0,"Collect 40k from the bank.")
                  elseif lifeDeck[i] == 5 then
                     UO.Macro(2,0,"Set up a school of your choice! (related UOEvo). Everyone wants to go there!")
                     wait(500)
                     UO.Macro(2,0,"Collect 40k from the bank.")
                  elseif lifeDeck[i] == 6 then
                     UO.Macro(2,0,"Make your yard a maze.")
                     wait(500)
                     UO.Macro(2,0," Pay the bank 30k.")
                  elseif lifeDeck[i] == 7 then
                     UO.Macro(2,0,"Buy an Armor Set! Looking Good!")
                     wait(500)
                     UO.Macro(2,0,"Pay the bank 30k.")
                  elseif lifeDeck[i] == 8 then
                     UO.Macro(2,0,"LAWSUIT! Sue another player for squashing your prized Tomatoes! Choose a player to sue.")
                     wait(500)
                     UO.Macro(2,0,"Collect 50k from that player")
                  elseif lifeDeck[i] == 9 then
                     UO.Macro(2,0,"Get a Vendor!")
                     wait(500)
                     UO.Macro(2,0,"Pay the bank 50k")
                  elseif lifeDeck[i] == 10 then
                     UO.Macro(2,0,"Buy a tropical aquarium! Name your Fish.")
                     wait(500)
                     UO.Macro(2,0,"Pay the bank 20k.")
                  elseif lifeDeck[i] == 11 then
                     UO.Macro(2,0,"Run a marathon! Pick an opponent. Both show off your warm-up moves, and draw.")
                     wait(500)
                     UO.Macro(2,0,"The bank pays the player with the highest card 100k for their natural athleticism.")
                  elseif lifeDeck[i] == 12 then
                     UO.Macro(2,0,"IT’s a dance competition! Pick an opponent. Both show your dance moves and spin.")
                     wait(500)
                     UO.Macro(2,0,"The bank pays the player with the highest card 50k for their smooth moves.")
                  elseif lifeDeck[i] == 13 then
                     UO.Macro(2,0,"Sell flowers from your garden! Name your favorite flower.")
                     wait(500)
                     UO.Macro(2,0,"Collect 70k from the bank")
                  elseif lifeDeck[i] == 14 then
                     UO.Macro(2,0,"Sell ingots from your vendor! Name the type of metal you are selling.")
                     wait(500)
                     UO.Macro(2,0,"Collect 100k from the bank.")
                  elseif lifeDeck[i] == 15 then
                     UO.Macro(2,0,"Sell potions from your Vendor! Name what potion you are selling.")
                     wait(500)
                     UO.Macro(2,0,"Draw from the deck, collect 10k multiplied by the number you drew.")
                  elseif lifeDeck[i] == 16 then
                     UO.Macro(2,0,"Win a “Sell Tools from your vendor! Name the tool and whoever has that trade...")
                     wait(500)
                     UO.Macro(2,0,"Draw from the deck, collect 10k multiplied by the number you drew.")
                  elseif lifeDeck[i] == 17 then
                     UO.Macro(2,0,"Sell a full set of Clothing to a player of your choice!")
                     wait(500)
                     UO.Macro(2,0,"Collect 5k from that player.")
                  elseif lifeDeck[i] == 18 then
                     UO.Macro(2,0,"Business has been booming! You sell 20 Swords of exceptional quality.")
                     wait(500)
                     UO.Macro(2,0,"Pick a player and collect 100k.")
                  elseif lifeDeck[i] == 19 then
                     UO.Macro(2,0,"You trace your family tree... You are a descendent of royalty!")
                     wait(500)
                     UO.Macro(2,0,"Collect 70k from the bank.")
                  elseif lifeDeck[i] == 20 then
                     UO.Macro(2,0,"Time for the pet show! Your pet goat gets first place ribbon. Tell everyone its name.")
                     wait(500)
                     UO.Macro(2,0,"Collect 120k from the bank.")
                  elseif lifeDeck[i] == 21 then
                     UO.Macro(2,0,"Bake a cake for a big event! Pick a player and both describe your dream cake.")
                     wait(500)
                     UO.Macro(2,0,"Draw a card and whoever has the highest card collects 70k from bank.")
                  elseif lifeDeck[i] == 22 then
                     UO.Macro(2,0,"Give Gold to an animal rescue! Name your favorite animal")
                     wait(500)
                     UO.Macro(2,0,"Pay the bank 20k.")
                  elseif lifeDeck[i] == 23 then
                     UO.Macro(2,0,"Buy a Portrait? Tell everyone what it looks like.")
                     wait(500)
                     UO.Macro(2,0,"Pay the bank 50k.")
                  elseif lifeDeck[i] == 24 then
                     UO.Macro(2,0,"Start a worm farm! Worms are our future.")
                     wait(500)
                     UO.Macro(2,0,"Pay the bank 50k.")
                  elseif lifeDeck[i] == 25 then
                     UO.Macro(2,0,"Payday!!!")
                     wait(500)
                     UO.Macro(2,0,"Collect your paycheck from the bank.")
                  elseif lifeDeck[i] == 26 then
                     UO.Macro(2,0,"It’s Great Uncle Mealune’s 100th birthday! Tell us something funny about him.")
                     wait(500)
                     UO.Macro(2,0,"Buy him a present - pay the bank 30k.")
                  elseif lifeDeck[i] == 27 then
                     UO.Macro(2,0,"Invent a dance move! Pick a player and both draw a card.")
                     wait(500)
                     UO.Macro(2,0,"The bank pays the highest card winner 100k.")
                  elseif lifeDeck[i] == 28 then
                     UO.Macro(2,0,"Fired for sneaking your Dragon into work! Go to your trade tile and skip your turn.")
                     wait(500)
                     UO.Macro(2,0,"Next turn, draw a new trade card.")
                  elseif lifeDeck[i] == 29 then
                     UO.Macro(2,0,"Go fishing! Pick a player and both draw a card.")
                     wait(500)
                     UO.Macro(2,0," Whoever has the biggest number the bank pays their card x 10k")
                  elseif lifeDeck[i] == 30 then
                     UO.Macro(2,0,"Fired for sleeping on the job! Go to your trade tile and skip your turn.")
                     wait(500)
                     UO.Macro(2,0,"Next turn, draw a new trade card.")
                  elseif lifeDeck[i] == 31 then
                     UO.Macro(2,0,"Cook the perfect Pig! All players name their favorite part of the pig.")
                     wait(500)
                     UO.Macro(2,0,"Each player draws. 4 and up earns 30k. 3 and under loses 30k.")
                  elseif lifeDeck[i] == 32 then
                     UO.Macro(2,0,"Happy New Year! Everyone make a Evo resolution and draw a card.")
                     wait(500)
                     UO.Macro(2,0,"1-2 get 50k, 3-4 get 80k, and 5-6 get 100k from the bank.")
                  elseif lifeDeck[i] == 33 then
                     UO.Macro(2,0,"The dizzy spinners Event! Draw a card and see how dizzy you can get.")
                     wait(500)
                     UO.Macro(2,0,"1-3 gets 50k and 4-6 get 100k from the bank.")
                  elseif lifeDeck[i] == 34 then
                     UO.Macro(2,0,"Go Dolphin-Watching for a day! Describe your perfect Dolphin experience. ")
                     wait(500)
                     UO.Macro(2,0,"Draw a card 1-3 gets 40k and 4-6 get 50k from the bank.")
                  elseif lifeDeck[i] == 35 then
                     UO.Macro(2,0,"Shipwrecked on a desert island! Everyone draws a card to see how long they were stranded.")
                     wait(500)
                     UO.Macro(2,0,"Sue the cruise company. 1-3 gets 20k and 4-6 gets 50k from the bank.")
                  elseif lifeDeck[i] == 36 then
                     UO.Macro(2,0,"LAWSUIT! Sue another player for damaging your house! Pick a player to sue.")
                     wait(500)
                     UO.Macro(2,0,"Collect 80k from that player.")
                  elseif lifeDeck[i] == 37 then
                     UO.Macro(2,0,"Bonus payday! Choose another player to be your boss and tell them a joke.")
                     wait(500)
                     UO.Macro(2,0,"Collect a bonus payday from the bank.")
                  elseif lifeDeck[i] == 38 then
                     UO.Macro(2,0,"You're voted “The Nicest Person Ever” award! Give everyone a compliment and draw a card.")
                     wait(500)
                     UO.Macro(2,0,"1-3 gets 50k and 4-6 get 100k from the bank.")
                  elseif lifeDeck[i] == 39 then
                     UO.Macro(2,0,"The Haunted Maze! Describe your favorite maze and draw a card for a prize!")
                     wait(500)
                     UO.Macro(2,0,"1-3 gets 30k and 4-6 get 50k from the bank.")
                  elseif lifeDeck[i] == 40 then
                     UO.Macro(2,0,"Rescue a stray! Tell everyone what pet you rescued.")
                     wait(500)
                     UO.Macro(2,0,"Collect 10k from each player for your good deed.")
                  elseif lifeDeck[i] == 41 then
                     UO.Macro(2,0,"Surprise! An animal showed up on your door step. Tell everyone what animal it is.")
                     wait(500)
                     UO.Macro(2,0,"Capture it and sell it for 20k from the bank.")
                  elseif lifeDeck[i] == 42 then
                     UO.Macro(2,0,"Pet talent show! Pick a player. Both say what pet and what talent the pet has.")
                     wait(500)
                     UO.Macro(2,0,"Each draws a card. The bank pays the highest card 50k for winning the show.")
                  elseif lifeDeck[i] == 43 then
                     UO.Macro(2,0,"Visit the healer!")
                     wait(500)
                     UO.Macro(2,0,"Draw a card and pay the bank 10k x the card.")
                  elseif lifeDeck[i] == 44 then
                     UO.Macro(2,0,"Find buried treasure! Tell everyone what’s inside.")
                     wait(500)
                     UO.Macro(2,0,"Collect 30k from the bank.")
                  elseif lifeDeck[i] == 45 then
                     UO.Macro(2,0,"Buy a house on the shore!")
                     wait(500)
                     UO.Macro(2,0,"Pay bank 100k for the house if you want it.")
                  elseif lifeDeck[i] == 46 then
                     UO.Macro(2,0,"House on the shore for sale!")
                     wait(500)
                     UO.Macro(2,0,"Draw a card 1-3 collect 80k and 4-6 collect 150k from bank.")
                  elseif lifeDeck[i] == 47 then
                     UO.Macro(2,0,"Buy a Mountain Cottage!")
                     wait(500)
                     UO.Macro(2,0,"Pay bank 150k for the cottage if you want it.")
                  elseif lifeDeck[i] == 48 then
                     UO.Macro(2,0,"Mountain Cottage for sale!")
                     wait(500)
                     UO.Macro(2,0,"Draw a card 1-3 Collect 120k and 4-6 collect 200k from bank.")
                  elseif lifeDeck[i] == 49 then
                     UO.Macro(2,0,"Buy a tent!")
                     wait(500)
                     UO.Macro(2,0,"Pay bank 100k for the tent if you want it.")
                  elseif lifeDeck[i] == 50 then
                     UO.Macro(2,0,"Tent for sale!")
                     wait(500)
                     UO.Macro(2,0,"Draw a card 1-3 collect 80k and 4-6 collect 150k from the bank.")
                  elseif lifeDeck[i] == 51 then
                     UO.Macro(2,0,"Buy a houseboat!")
                     wait(500)
                     UO.Macro(2,0,"Pay bank 200k if you want it.")
                  elseif lifeDeck[i] == 52 then
                     UO.Macro(2,0,"Houseboat for sale!")
                     wait(500)
                     UO.Macro(2,0,"Draw a card 1-3 collect 180k and 4-6 collect 300k from the bank.")
                  elseif lifeDeck[i] == 53 then
                     UO.Macro(2,0,"Buy a small hut!")
                     wait(500)
                     UO.Macro(2,0,"Pay the bank 100k if you want it.")
                  elseif lifeDeck[i] == 54 then
                     UO.Macro(2,0,"Small hut for sale!")
                     wait(500)
                     UO.Macro(2,0,"Draw a card 1-3 collect 80k and 4-6 collect 150k from the bank.")
                  elseif lifeDeck[i] == 55 then
                     UO.Macro(2,0,"Buy a Farm house!")
                     wait(500)
                     UO.Macro(2,0,"Pay bank 200k if you want it.")
                  elseif lifeDeck[i] == 56 then
                     UO.Macro(2,0,"Farm house for sale!")
                     wait(500)
                     UO.Macro(2,0,"Draw a card 1-3 collect 180k and 4-6 collect 300k from the bank.")
                  elseif lifeDeck[i] == 57 then
                     UO.Macro(2,0,"Buy a large House!")
                     wait(500)
                     UO.Macro(2,0,"Pay the bank 250k if you want it.")
                  elseif lifeDeck[i] == 58 then
                     UO.Macro(2,0,"Large house for sale!")
                     wait(500)
                     UO.Macro(2,0,"Draw a card 1-3 collect 200k and 4-6 collect 300k.")
                  elseif lifeDeck[i] == 59 then
                     UO.Macro(2,0,"Stone Table for sale!")
                     wait(500)
                     UO.Macro(2,0,"Pick a player and collect 90k")
                  end
            i = i + 1
            if i == 60 then
               i = 1
               wait(500)
               UO.Macro(2,0,"Shuffling...")
               DeckShuffle(lifeDeck)
            end
        elseif spinTheWheel == "draw a trade" then
            k = math.random(1,6)
            if k == 1 then
               UO.Macro(2,0,"1.Blacksmith: Get Paid by the bank 90k each payday.")
            elseif k == 2 then
               UO.Macro(2,0,"2.Carpenter: Get Paid by the bank 60k each Payday.")
            elseif k == 3 then
               UO.Macro(2,0,"3.Miner: Get Paid by the bank 80k each Payday")
            elseif k == 4 then
               UO.Macro(2,0,"4.Tailor: Get Paid by the bank 50k each Payday.")
            elseif k == 5 then
               UO.Macro(2,0,"5.Tinker: Get Paid by the bank 70k each Payday.")
            elseif k == 6 then
               UO.Macro(2,0,"6.Lumberjack: Get Paid by the bank 80k each Payday.")
            end
        elseif spinTheWheel == nil then
            print('Something went wrong!')
        elseif spinTheWheel == (string.lower(proctor)..": "..".*puts cards away.*") then
            print("Putting cards away!")
            return
        end
    end
end

function journalsearch(...)
         local timeoutOccurred = true
        -- Journal.Mark()
         local successCheckTimeout = 1000 + getticks()
         repeat
         for i=1,#Journal do
             Journal[i]=string.lower(Journal[i])
         end
           local journalResult = Journal.Search({...}, 1000)
             if journalResult ~= "ERR_Timeout" then
                 --print("Found journal message: " .. journalResult)
                 timeoutOccurred = false
                 return journalResult
             end
         until timeoutOccurred == false or getticks() > successCheckTimeout
         if timeoutOccurred == true then
          -- print("Journal search timeout occurred. "..{...})
           return nil
         end
end





--MainMenu
function MyCloseHandler()
  print("Finished!")
  Obj.Exit()                     --exit Loop command
end

form = Obj.Create("TForm")
form.Caption = "Test Window"
form.OnClose = MyCloseHandler    --Exits the script when the menu is closed

button = Obj.Create("TButton")
button.Caption = "Populate"
button.OnClick = Populate
button.Parent = form

button = Obj.Create("TButton")
button.Caption = "Red"
button.OnClick = RedScores
button.Parent = form
button.Top = 30 + 30*1

button = Obj.Create("TButton")
button.Caption = "Green"
button.OnClick = GreenScores
button.Parent = form
button.Top = 30 + 30*2

button = Obj.Create("TButton")
button.Caption = "Shuffle Deck"
button.OnClick = Deck
button.Parent = form
button.Top = 30 + 30*1
button.Left = 90

button = Obj.Create("TButton")
button.Caption = "Deal Cards"
button.OnClick = FindJournal
button.Parent = form
button.Top = 30 + 30*2
button.Left = 90

button = Obj.Create("TButton")
button.Caption = "Start Life!"
button.OnClick = StartLife
button.Parent = form
button.Top = 30 + 30*1
button.Left = 90*2
--[[
button = Obj.Create("TButton")
button.Caption = ""
button.OnClick = Deck
button.Parent = form
button.Top = 30 + 30*2
button.Left = 90*2
]]--

form.Show()                      --call Show method
Obj.Loop()                       --swallows execution, never returns
Obj.Free(button)                 --release button from memory
Obj.Free(form)                   --release form from memory
--/MainMenu