:chkStatus
 if ($wife = "nagging")
   load wifeQuery.ts
   setVar $cause Currentline
   if ($cause = "not mowing grass")
     load sonMowGrass.ts
     goto :bar
   end
   if ($cause = "you play too much Tradewars")
     setVar $wifePatience "Exists"
     while ($wifePatience = "Exists")
        load payAttentionToWife.ts
        setVar $wifeResponse Currentline
        if ($wifeResponse = "don't you have something better to do")
           setVar $wifePatience "Exhausted"
        end
     end
     goto :bar
  end
  if ($cause = "too much time at bar")
     send "`I would rather be playing Tradewars*"
     setVar $wifeResponse Currentline
     if ($wifeResponse = "that would be better than the bar"
        echo ANSI_15 "Congratulations, you can now play Twars"
        echo ANSI_15 "Nagging should be minimized - for now"
       halt
     end
  end
end
halt
  :bar 
    setVar $max 12
    setVar $i 1
    while ($i < $max)
       send "1 round please"
       add $i 1
    end
    load $callCab.ts
    load $excuses.ts
    goto :chkStatus