;==================================
; Script Name:   Makes Kegs
; Author: MMorning
; Credits: Krayzee for the rehaul of
;         resource check and gosub craft
; Version: 1.4
; Client Tested with: 5.01
; EUO version tested with: 1.5 Build 67
; Shard OSI / FS: FS/osi
; Revision Date: 12 January 2007
; Public Release: 8 January 2006
; Global Variables Used:
; *MM_Keg_Maker_FKBag_ . #CHARID
; *MM_Keg_Maker_RCBag_  . #CHARID
; *MM_Keg_Maker_SecureCont_ . #CHARID
; Purpose: To make kegs from a secure.
;==================================
set %boarddrag 100
set %ingotdrag 40
set %bottledrag 10
set %tinktools JTL_KTL
set %carptools CGG_ZHG_EGG_ZHG_IGG_KGG_CGG_DGG_AGG_ZFG
set %boards emk_dmk_fmk_amk_tlk
set %hoops dig_gig_djl
set %staves btl_etl_dtl_ysl
set %lid ojl
set %kegtap IEG
set %keg JKF   ;_qmj_ybk_xbk
set %Potion_Keg QMJ
set %ingots cnk_bnk_enk_dnk_ymk
set %bottles wuf
set %lagdelay 10
Set %Timeout 3
Set %FKBag *MM_Keg_Maker_FkBag . #CHARID
Set %RCBag *MM_Keg_Maker_RCbag . #CHARID
Set %SecureCont *MM_Keg_Maker_SecureCont . #CHARID
Set #menubutton N/A

gosub showEUOMenu1

menu HideEUO

menuloop:

Repeat
   if #menubutton <> n/a
   {
      gosub #menubutton
   }
Until #MENUBUTTON = DONE

if %SecureCont = N/A || %RCbag = N/A || %FKbag = N/A
{
   Set #MENUBUTTON N/A
   goto menuloop
}
Set *MM_Keg_Maker_FKbag . #CHARID %FKBag
set *MM_Keg_Maker_RCbag . #charid %RCBag
set *MM_Keg_Maker_SecureCont . #charid %SecureCont
;----------------------------------
;main loop
;----------------------------------
menu get kegstomake

set %kegstomake #menures
set %boardsreq 23 * %kegstomake
set %ingotsreq 7 * %kegstomake
set %bottlesreq 10 * %kegstomake

gosub OpenPosContaniers %SecureCont container_gump 180_240 455 465
gosub OpenPosContaniers %RCbag container_gump 230_204 635 300
gosub OpenPosContaniers %Fkbag container_gump 230_204 815 500
gosub PDSetup ; setup paperdoll
gosub BPSetup ; setup backpack
gosub RescourceCheck
gosub checkfortools %tinktools
gosub checkfortools %carptools

for %kegsmade 1 %kegstomake
{
    gosub MoveResToBP
    gosub CraftKeg
    gosub MoveKegToBag
}

display ok All Done!

Halt

;---------------------------------
;PDSetup
;--------------------------------
sub PDSetup
    event macro 8 1
    wait %lagdelay
    gosub wfgump paperdoll_gump 262_324
    wait %lagdelay
    ;contpos 645 0
    ;wait 1
    gosub WFContainermove 645 0
    wait %lagdelay
return
;end PDsetup
;---------------------------------------------------
;BP Setup
;---------------------------------------------------
sub BPsetup
    event macro 8 7
    wait %lagdelay
    gosub WFGump container_gump 230_204
    wait %lagdelay
    ;contpos 635 495
    gosub WFContainermove 635 495
    wait %lagdelay
return
;end BPsetup
;--------------------------------------
;Resouce Container Setup
;--------------------------------------
sub RCSetup
    set #menubutton n/a
    menu Font Color White
    menu Font BGColor Background
    menu delete SetupSecure
    menu Button SetupSecure 20 55 115 25 Target Secure
    menu delete EUOLabel8
    menu delete EUOLabel5
    menu Font BGColor Black
    ;menu Font BGColor Background
    menu Font Color Gray
    menu Text EUOLabel5 144 60 N/A
return

;-----------------------------------------------------------------
; Open bank box
;----------------------------------------------------------------
sub BankSetup
    set #menubutton n/a
    menu hideEUO
    menu delete SetupSecure
    menu Font Align Center
    menu Font BGColor Background
    menu Text EUOLabel8 20 64 Bank ID

    event macro 1 0 bank

    wait %lagdelay
    gosub WFgump container_gump 180_240
    wait %lagdelay
    contpos 455 465
    wait %lagdelay
    gosub WFContainermove 455 465
    wait %lagdelay
    set %SecureCont #contid
    menu Font Color Gray
    menu Font BGColor Black
    menu Text EUOLabel5 144 60 %SecureCont
return
;-----------------------------------------------------------------
; Open Secure Container
;----------------------------------------------------------------
sub SetupSecure
    set #menubutton n/a
    menu hideEUO
    set #targCurs 1

    SecureCont:
    if #targCurs = 1
    {
       goto SecureCont
    }

    set %SecureCont #lTargetID
    set #lobjectid %SecureCont

    event macro 17 0

    wait %lagdelay
    gosub WFgump container_gump 180_240
    wait %lagdelay
    contpos 455 465
    wait %lagdelay
    gosub WFContainermove 455 465
    Menu Show
    menu Font Color Gray
    menu Font BGColor Black
    menu Text EUOLabel5 144 60 %SecureCont
return
;
;
;
sub RCbagSetup
    set #menubutton n/a
    menu HideEUO
    ;display ok please target bag with all your resouces in it
    set #targCurs 1

    RCBag:
    if #targCurs = 1
    {
       goto RCBag
    }

    set %RCBag #lTargetID
    set #lobjectid %RCbag

    event macro 17 0

    wait %lagdelay
    gosub WFGump container_gump 230_204
    wait %lagdelay
    contpos 635 300
    wait %lagdelay
    gosub WFContainermove 635 300
    menu Show
    menu Font Color Gray
    menu Text EUOLabel6 144 95 %RCbag
return
;--------------------------------------------
;
;
sub FKbagsetup
    set #menubutton n/a
    menu HideEUO
    set #targCurs 1
    FKBag:
    if #targCurs = 1
    {
       goto FKBag
    }

    set %FKBag #lTargetID
    set #lobjectid %FKbag

    event macro 17 0

    wait %lagdelay
    gosub WFGump container_gump 230_204
    wait %lagdelay
    contpos 815 500
    wait %lagdelay
    gosub WFContainermove 815 500
    menu show
    menu Font Color Gray
    menu Text EUOLabel7 144 130 %FKbag
return

sub OpenPosContaniers
    ;%1 Contanier id
    ;%2 gump name
    ;%3 contsize
    ;%4 contpos x
    ;%5 contpos y
    set !4 %4
    set !5 %5
    set #lobjectid %1

    event macro 17 0
    wait %lagdelay
    gosub WFGump %2 %3
    wait %lagdelay
    contpos !4 !5
    wait %lagdelay
    gosub WFContainermove !4 !5
    namespace clear
return

;---------------------------------------------------
;Resource Check
;---------------------------------------------------
sub RescourceCheck
    gosub checkresource %boards %boardsreq 0
    gosub checkresource %ingots %ingotsreq
    gosub checkresource %bottles %bottlesreq
return
;
;
;----------------------------------------------------------------------
sub MoveResToBP
    gosub moveitem %boards #backpackid %RCbag
    gosub moveitem %ingots #backpackid %RCBag
    gosub moveitem %bottles #backpackid %RCBag
    ;
    gosub FindNormalWood %RCBag
    ;
    gosub moveitem #RESULT %RCBag #backpackid %boarddrag
    gosub moveitem %ingots %RCBag #backpackid %ingotdrag
    gosub moveitem %bottles %RCBag #backpackid %bottledrag
return
;------------------------------------------------
;craft items
;------------------------------------------------
sub CraftKeg
    ; Make Staves
    Gosub MakeItem %staves 3 %carptools %tinktools 2 2 3 8
    ; Make Lids
    Gosub MakeItem %lid 2 %carptools %tinktools 2 3 3 8
    ; Make Hoops
    Gosub MakeItem %hoops 1 %tinktools %tinktools 4 6 3 4
    ; Make Keg:
    Gosub MakeItem %keg 1 %carptools %tinktools 4 9 3 8
    ; Make Kegtap
    Gosub MakeItem %kegtap 1 %tinktools %tinktools 4 3 3 4
    ; Make Potion Keg
    Gosub MakeItem %Potion_Keg 1 %tinktools %tinktools 8 8 3 4
return
;---------------------------------------------------
Sub MakeItem
    ;
    ; %1 Item ID(s)
    ; %2 Number to make
    ; %3 Tool Type
    ; %4 Tool to use to make more
    ; %5 item Catalog to make
    ; %6 item number to make
    ; %7 Craft tool catalog
    ; %8 Craft tool item
    ;
    NameSpace Push
    NameSpace Local NS_MakeItem

    Set !Item_ID %1
    Set !Quantity %2
    Set !ToolType %3
    Set !CraftTool %4
    Set !Item_Catalog %5
    Set !Item_Index %6
    Set !Craft_Catalog %7
    Set !Craft_Index %8

    MakeItem:

    gosub Refresh_Resources

    finditem !Item_ID C_ , #backpackid

    if #findcnt < !Quantity
    {
       toolcheck:

       gosub checkfortools !ToolType

       if #RESULT = %RCbag
       {
          gosub moveitem !ToolType %RCbag #backpackid 1
       }
       if #RESULT = #FALSE
       {
          Gosub CheckForTools !CraftTool

          if #RESULT = #FALSE
          {
             ; Out of Tools
             Display ok Your Out of tools please get some more.
             Halt
          }
          if #RESULT = %RCbag
          {
             gosub moveitem !CraftTool %RCbag #backpackid 1
          }

          Gosub CraftItem !CraftTool !Craft_Catalog !Craft_Index

          Goto toolcheck
       }

       Gosub CraftItem !ToolType !Item_Catalog !Item_Index

       goto MakeItem
    }

    NameSpace Clear
    NameSpace Pop
Return
;-----------------------------------------------------------------------
;check to make sure you have resources
;---------------------------------------------------
sub CheckResource
    ;
    ; %1 = item Types
    ; %2 = Minimum Stack Size
    ; %3 = Item Colour
    ;
    Set %CR_Loop 1

    Repeat
          finditem %1 %CR_Loop C_ , %RCbag

          if #FINDCOL = %3 || %3 = N/A
          {
             Set %CR_Loop #FINDCNT + 1
          }
          else
          {
              Set %CR_Loop %CR_Loop + 1
          }
    Until %CR_Loop > #FINDCNT

    if #findkind = -1 || #findstack < %2
    {
       finditem %1 C_ , #backpackid

       if #findkind = -1
       {
          display OK You Do not have enough resources go get some and restart.
          halt
       }
    }
    if #findstack < %2
    {
       display OK You Do not have enough resources go get some and restart.
       halt
    }
return
;end board check
;----------------------------------------------------------------------------------------
;Tool Check
;---------------------------------------------------
sub CheckForTools

    finditem %1 C_ , #backpackid

    if #findkind = -1
    {
       finditem %1 C_ , %RCbag

       if #findkind = -1
       {
          return #false
       }
       set %inside %RCbag
       return %inside
    }

    set %inside #backpackid

return %inside
;--------------------------------------------------------------
; move finished keg
;--------------------------------------------------------------
sub MoveKegToBag

    finditem %Potion_Keg C_ , #backpackid

    if findkind <> 0
    {
       event property #findid
    }
    if potion in #property
    {
       Gosub moveitem #findid #backpackid %FKbag
    }
return
;--------------------------------------------------------------
; FindNormalWood (Not Frostwood,bloodwood or any of the new UOML Woods)
;--------------------------------------------------------------
Sub FindNormalWood

    Set %CR_Loop 1

    Repeat
          finditem %boards %CR_Loop C_ , %1

          if #FINDCOL = 0
          {
             Set %CR_Loop #FINDCNT + 1
          }
          else
          {
              Set %CR_Loop %CR_Loop + 1
          }
    Until %CR_Loop > #FINDCNT

Return #FINDID
;
;
;
Sub Refresh_Resources
    ;
    NameSpace Push
    NameSpace Local NS_Refresh
    ;
    Gosub FindNormalWood #BACKPACKID
    ;
    Finditem #RESULT C_ , #BACKPACKID
    if #FINDSTACK < 5
    {
        Set !Refresh_Wood %boarddrag - #FINDSTACK
        ;
        gosub FindNormalWood %RCBag
        ;
        gosub moveitem #RESULT %RCBag #backpackid !Refresh_Wood
    }
    ;
    FindItem %ingots C_ , #BACKPACKID
    ;
    if #FINDSTACK < 5
    {
       Set !Refresh_Ingots #FINDSTACK - %ingotdrag
       ;
       gosub moveitem %ingots %RCBag #backpackid !Refresh_Ingots
    }
    ;
    FindItem %bottles C_ , #BACKPACKID
    ;
    if #FINDSTACK < 10
    {
      Set !Refresh_Bottles #FINDSTACK - %bottledrag
      ;
      gosub moveitem %bottles %RCBag #backpackid !Refresh_Bottles
    }
    ;
    NameSpace Clear
    NameSpace Pop
    ;
Return
;--------------------------------------------------------------
;Borrowed Subs
;-----------------------------------------------------------------------
;==================================
; Script Name: sub moveItem *ExEvent*
; Author: Tecmo, Bad_Maniac
; Version: 1.12
; Client Tested with: 5.0.1a patch 21
; EUO version tested with: 1.50 build 60
; Shard OSI / FS: OSI and FS
; Revision Date: 2005-Oct-07
; Public Release: 2005-Aug-04
; Copyright: Tecmo, Bad_Maniac
; *********************************
;* @packageversion   1.12
;* @purpose   move an item from one location to another
;* @author   Tecmo, Bad_Maniac
;* @param
;      %1 req Item to move
;      %2 req Move from location
;      %3 req Move to location
;      %4 opt Quantity
;* @return      Returns the value True or False
;* @Calling Example
;           Inside script = gosub moveItem [Item to Move] [From location] [To location] [Quantity] (nothing in qty uses #findstack)
;         Outside calling = call subMoveItem.txt [Item to Move] [From location] [To location] [Quantity] (nothing in qty uses #findstack)
;==================================
SUB moveItem
{
    IF %0 < 3 || %0 > 4
        RETURN #FALSE
    SET %_itemId %1
    IF G_ NOTIN %2 && %2 <> C
        SET %_itemLocation C_ , %2
    ELSE
        SET %_itemLocation %2
    SET %_newItemLocation %3
    IF %0 = 4
        SET %_qty %4
    ELSE
        SET %_qty 0
    IF %euover <> passed
    {
        Gosub BmEuoVer
        SET %euover passed
    }
    IF %_fShard <> #TRUE && %_fShard <> #FALSE
        Gosub CheckFreeShard _fShard
    IF %_fShard
    {
        SET %actionwait 4
        SET %dragdropwait 4 ; Increase this number if you recieve 'You must wait' messages
    }
    ELSE
    {
        SET %actionwait 9
        SET %dragdropwait 1
    }
    REPEAT
    {
        SET %_XdropOffset ( #RANDOM % 2 ) - 1
        SET %_YdropOffset ( #RANDOM % 2 ) - 1
    }
    UNTIL %_XdropOffset <> 0 || %_YdropOffset <> 0
    SET %_XdropOffset #CHARPOSX + %_XdropOffset
    SET %_YdropOffset #CHARPOSY + %_YdropOffset
    moveLoop:
    FINDITEM %_itemId %_itemLocation
    IF #FINDKIND <> -1
    {
       SET %_litemID #FINDID
       SET %qty %_qty
       IF %qty = 0
          SET %qty #FINDSTACK
       Gosub BMWaitAction %actionwait
       EXEVENT drag #FINDID %qty
       wait %dragdropwait
       SET %droptimeout #SYSTIME + 1000
       dropwait:
       IF %_newItemLocation = G
            EXEVENT DROPG %_XdropOffset %_YdropOffset
       IF %_newItemLocation <> G
            EXEVENT dropc %_newItemLocation
       FINDITEM %_litemID %_newItemLocation
       IF #FINDKIND <> -1 && #SYSTIME < %droptimeout
          {
          GOTO dropwait
       Gosub BMWaitAction
       GOTO moveLoop
    }
    RETURN
}
;===============================
; BMWaitAction
; %1 time to wait in 10th of a second
; If no arguments are passed, it sets
; the timer to the current time
;===============================
SUB BMWaitAction
  IF %0 < 1 || %1 = N/A || %bmwatimer = N/A
  {
    SET %bmwatimer #SCNT2
    RETURN
  }
bmwa_wait:
  IF ( %bmwatimer + %1 ) > #SCNT2
    GOTO bmwa_wait
RETURN
;===============================
;* @name sub BmEuoVer
;* @author Bad_Maniac
;* @ver 1.0 2005-Jul-29
;* @purpose Verifies use of Euo 1.50 or higher
SUB BmEuoVer
  SET %euover #EUOVER
  FOR %i 1 2
  {
    STR POS %euover _
    IF #STRRES > 0
    {
      STR DEL %euover #STRRES 1
      SET %euover #STRRES
      SET %i 1
    }
  }
 IF %euover < 15000
 {
     DISPLAY ok You must use EUO version 1.50 or$
     +greater to use sub moveItem$
     +The script has been halted!
      halt
 }
RETURN
;===========
;**
;* @name CheckFreeShard
;* @ver 1.0 2Feb05
;* @author  Roadkill
;* @purpose  checks if you're on a known OSI shard or not
;* @params %1 optional, variablename to return #true/#false in, #true if on a freeshard
;* @returns #result and @%1 #true if on a freeshard, #false if on a known OSI shard.
;* @example call rksubs.txt CheckFreeShard <@%1 varname, opt><@#result #true if #shard notin osi list
;* @status
sub CheckFreeShard
  set !OSIshards pacific_sonoma_baja_legends_atlantic_chesapeake_catskills_lake , #spc , austin
  +_napa , #spc , valley_lake , #spc , superior_great , #spc , lakes_siege , #spc , perilous_europa
  +_drachenfels_oceania_wakoku_formosa_arirang_balhae_asuka_yamato_mugen_hokuto_misuho_izumo_sakura_
  set !result #shard notin !OSIshards
  if %0 >= 1 && %1 <> n/a
    set % . %1 !result
return !result

;==================================
; Script Name: WF Library
; Author: Kedrick Valorite
; Version: 1.4
; Client Tested with: 4.0.10b
; EUO version tested with:
; Shard OSI / FS: All
; Revision Date: 1 June, 2005
; Public Release: 03 January, 2005
; Global Variables Used: None
; Purpose: Uses a SysVars style sub with wrappers for gumps,
;gump movement, and drag & drop operations.
;==================================
Sub WFInit
Set %Timeout %1
Return

Sub WFGump
;==================
; Looks for #CONTNAME and #CONTSIZE to equal provided values.
; Returns #TRUE when the gump is topmost
; Returns #FALSE when an error occured
;==================
Set %WFGumpTimeout #SCNT2 + %Timeout
Gosub CheckVars CONTNAME %1 CONTSIZE %2
Return #RESULT

Sub WFContainerMove
;==================
; Requests the topmost gump to move, then waits for it's position
; to be correct. Returns #TRUE if success, #FALSE if timeout was exceeded.
;==================
Contpos %1 %2
Gosub CheckVars CONTPOSX %1 CONTPOSY %2
Return #RESULT

Sub WFDrag
;==================
; Used for picking up items. Looks for the item to appear on the cursor.
; %1 is the ItemID of what is being picked up.
; %2 is the ammount to pick up off the stack. if omitted, picks up entire stack.
;==================
Set %DragID %1
If %0 = 2
  Set %Amount %2
If %0 = 1
  Set %Amount 0
Set %WFDrag #FALSE
Finditem %DragID
If #FINDKIND <> -1
{
  Event Drag %DragID
  wait 1
  If #FINDSTACK > 1
  {
    Gosub WFGump Stack_Gump 168_74
    If ! #RESULT
      Return #FALSE
    If %Amount <> 0
      Msg %Amount $
    If %Amount = 0
      Msg $
  }
  If #FINDSTACK = 1
  {
    Gosub CheckVars LLIFTEDKIND 1 LLIFTEDID %DragID
    Return #RESULT
  }
}
Return #FALSE

Sub WFDrop
;==================
; Used for dropping items. Looks for the item to appear.
; %1 is the ItemID of what is being Dropped
; %2 is a ClickX location to use.
; %3 is a ClickY location to use.
; %4 G for Ground, C for Container.
;==================
Set %DropID %1
Click %2 %3 p
Set %WFDropT %4
Set %WFDrop #FALSE
Set %WFDropTimeout #SCNT2 + ( %Timeout * 4 )
For %WFDropLoop #FALSE #TRUE
{
  If G in %WFDropT
    Gosub CheckVars LLIFTEDKIND 0 LLIFTEDID %DropID
  If C in %WFDropT
    Gosub CheckVars LLIFTEDKIND 0 LLIFTEDID %DropID
  Set %WFDrop #RESULT
  Set %WFDropLoop #RESULT
  If #SCNT2 => %WFDropTimeout
    Set %WFDropLoop #TRUE
}
Return %WFDrop

Sub CheckVars
;==================
;Checks two system variables and ensures timeout is not exceeded.
;==================
Set %CheckVars #FALSE
Set %CheckVarsTimeout #SCNT2 + %Timeout
For %CheckVarsLoop #FALSE #TRUE
{
  Set %CheckVars #FALSE
  If # . %1 = %2 && # . %3 = %4
    Set %CheckVars #TRUE
  If ( # . %1 <> %2 && # . %3 <> %4 ) && ( #SCNT2 < %CheckVarsTimeout )
    Set %CheckVarsLoop #FALSE
}
Return %CheckVars

;==================================
; Script Name: Craft Library
; Author: Kedrick Valorite
; Version: 1.1a
; Client Tested with: 4.0.10b
; EUO version tested with: 1.5
; Shard OSI / FS: OSI & RunUO
; Revision Date: 25 November 2005
; Public Release: April 22, 2005
; Global Variables Used: None
; Purpose: Handles craft menus to create an item.
;==================================
Sub CraftInit
Gosub WFInit
Return

Sub CraftItem
;===================
; %1 = list of types for the tools to use
; %2 = the Category Btn to press
; %3 = The Selection Btn to press
;===================
Set %CraftTool %1
Set %CraftCat %2
Set %CraftSelect %3
;===================
; Uses one of the crafing tools to open the craft manu.
;===================
Finditem %CraftTool C_ , #BACKPACKID
If #FINDKIND = 0
{
  Set %NoMenuName #CONTNAME
  Set %NoMenuSize #CONTSIZE
  Set #LOBJECTID #FINDID
  Set %ToolUsed #LOBJECTID
  Event Macro 17 0
  Gosub WFGump generic_gump 530_437
  wait 1
}
If #FINDKIND = -1
  Return
;===================
; Clicks the specified category Btn, then
; the specified selection Btn
;===================
Gosub ClickBtn Category
Gosub WFGump generic_gump 530_437
wait 1
Set %Page ( %CraftSelect / 10 ) - 1
Set %CraftSelect ( ( %CraftSelect - 1 ) % 10 ) + 1
If %Page > 0
{
  For %ChangePage 1 %Page
  {
    Gosub ClickBtn Page
    Gosub WFGump generic_gump 530_437
    wait 1
  }
}
Gosub ClickBtn Selection
Finditem %ToolUsed
If #FINDKIND = 0
{
  wait 45
  Gosub WFGump generic_gump 530_437
  Gosub ClickBtn Exit
  wait 1
  Set #LOBJECTID 0
}
Return

Sub ClickBtn
    ;===================
    ;Adjusts menu clicks to position of menu on screen.
    ;===================
    If Category in %1
    {
       Set %BtnX #CONTPOSX + 30
       Set %BtnY ( #CONTPOSY + 70 ) + ( ( %CraftCat - 1 ) * 20 )
    }
    If Selection in %1
    {
       Set %BtnX #CONTPOSX + 235
       Set %BtnY ( #CONTPOSY + 70 ) + ( ( %CraftSelect - 1 ) * 20 )
    }
    If Page in %1
    {
       Set %BtnX #CONTPOSX + 380
       Set %BtnY #CONTPOSY + 270
    }
    If Material in %1
    {
       Set %BtnX #CONTPOSX + 30
       Set %BtnY #CONTPOSY + 370
    }
    If Exit in %1
    {
       Set %BtnX #CONTPOSX + 30
       Set %BtnY #CONTPOSY + 410
    }
    If Repair in %1
    {
       Set %BtnX #CONTPOSX + 280
       Set %BtnY #CONTPOSY + 350
    }
    If Mark in %1
    {
       Set %BtnX #CONTPOSX + 280
       Set %BtnY #CONTPOSY + 370
    }
    If MakeLast in %1
    {
       Set %BtnX #CONTPOSX + 280
       Set %BtnY #CONTPOSY + 410
    }
    Click %BtnX %BtnY
    Wait 5
Return

;--------- EasyUO Menu Designer Code Begin ---------
sub showEUOMenu1
  menu Clear
  menu Window Title MMorning's Keg Maker
  menu Window Color Black
  menu Window Size 200 180
  menu Font Transparent #true
  menu Font Align Right
  menu Font Name MS Sans Serif
  menu Font Size 8
  menu Font Style
  menu Font Color WindowText
  menu Font Transparent #false
  menu Font Align Left
  menu Font BGColor Black
  menu Text EUOLabel1 52 20 EUOLabel1
  menu Font Color White
  menu Font BGColor MenuText
  menu Text EUOLabel2 25 10 Are you using a Bank?
  menu Font BGColor Black
  menu Text EUOLabel3 52 33 Yes
  menu Font Color Gray
  menu Text EUOLabel5 144 60 %SecureCont
  menu Text EUOLabel7 144 130 %FKbag
  menu Text EUOLabel6 144 95 %RCbag
  menu Font Color White
  menu Text EUOLabel4 106 33 No
  menu Font BGColor Background
  menu Button SetupSecure 20 55 115 25 Target Secure
  menu Button RCBagSetup 20 90 115 25 Target Resource Bag
  menu Button FKbagsetup 20 125 115 25 Target Finish Keg Bag
  menu Font Color WindowText
  menu Font BGColor Window
  menu Font Color Black
  menu Font BGColor ScrollBar
  menu Button DONE 55 155 50 20 DONE
  menu Font Color WindowText
  menu Font BGColor BtnFace
  menu Button Banksetup 30 30 17 20 Y
  menu Button RCsetup 85 30 17 20 N
  menu Edit kegstomake 155 30 30 1
  menu Font Color White
  menu Font BGColor Black
  menu Text EUOLabel4 158 12 QTY?
  menu Show 0 520
return
;--------- EasyUO Menu Designer Code End ---------