A while ago i made a gating script, the purpose of the script is to constantly keep a moongate open to my vendor house. The script works as intended flawlessly, but sometimes it will move some of my things around like my backpack or my health bar. Sometimes i will find them off in the bottom corner or elsewhere on the screen, i think the part of the script that opens the runebook and opens a gate does it.

Can someone take a look at it and let me know if there is anything i can do to stop it from moving my backpack or health bar?

 ;==================================================
;Slackers Gating Script.
;Setup: Have a runebook with two runes marked to your vendor house.
;The runes must be in the first two runebok spots.
;Name your runebook Gatebook, otherwise it will ask you to target the book.
;Unlikely, but be sure no other books are named Gatebook.
;==================================================
set %current_rune 1
set %moon OTF_KEF
gosub book_director
;==================================================
main:
gosub open_book
gosub open_gate
gosub gate_check
goto main
;==================================================
sub open_book
finditem %gate_book C_ , #BACKPACKID
Set #LOBJECTID #FINDID
event macro 17 0
wait 10
set %xclick #contposx + 136
set %yclick #contposy + 194
click %xclick %yclick
return
;==================================================
sub open_gate
if %current_rune = 1
{
set %xclick #contposx + 137
set %yclick #contposy + 162
click %xclick %yclick
set %current_rune 2
return
}
set %xclick #contposx + 296
set %yclick #contposy + 162
click %xclick %yclick
set %current_rune 1
return
;==================================================
sub gate_check
wait 3s
finditem %moon G_1
if #FINDCNT < 1
{
return
}
wait 29s
return
;==================================================
sub gate_book
display Please target the gate book.
set #lTargetID X
set #targCurs 1
wait 2
Wait_for_book:
if #lTargetID = X
{
goto Wait_for_book
}
set %gate_book #ltargetid
}
return
;==================================================
sub book_detector
repeat
{
finditem %runebook C_ , #BACKPACKID
event property #findid
if Gatebook in #PROPERTY
{
set %gate_book #FINDID
return
}
ignoreitem #FINDID
}
until #FINDCNT = 0
return
;==================================================
sub book_director
set %runebook ZBN
set %gate_book n/a
gosub book_detector
if %gate_book = n/a
{
gosub gate_book
}
return
;==================================================

I made a script that executes and then when it has run through it waits so long and activates again, i was wondering if i could somehow add a wait timer over the top of my characters head that counts down while its waiting.

I could use something like. . .

event exmsg #CHARID 0 40 %time_left
My current wait is set up like this, if it helps.

set %timer #SCNT + 1320
repeat
until #SCNT > %timer

I recently returned to UO, and i discovered that the script i used years ago (Craftmatic) for my heartwood quests didn't work, probably because it has been many years since then and i'm now playing on a free-shard.

I went through the script and fixed all the bugs that i could find and i now have it in working order, it will work on any quest in heartwood, well at least on the free-shard i currently play on. I have one problem with it, it's not really a big deal considering i don't afk the script anyways, but when the script is searching for the current quest i'm on it does a "Event Macro 17 0" on the NPC in order to get a new quest to pop up. This causes the NPC's paper doll to also pop up, and the paper doll becomes the current container gump instead of the quest window.

This causes the script to think the gump did not open and it tries over and over again to cycle through the quests, popping up a window telling me that the gump didn't open and it will reset and try again. I added a few lines into the script where in the event a paper doll is the current gump in easyuo it right clicks it away, allowing the quest gump to become the current gump.

if #CONTNAME = paperdoll_gump
{
set %xclick #contposx + 37
set %yclick #contposy + 49
click %xclick %yclick r
}
This allows the script to work pretty good but once in a while it messes up and it tells me it needs to reset, all i have to do is click the ok button and it fixes itself when it cycles back through to the code i added above. But i was wondering if anyone has a better way i could go about doing this?

I hope it's not against the rules to post this script, but i don't see how i'm going to get help if people can't see the code i'm trying to fix. Also, this script requires a script called kalocr.exe to be placed in the same directory the euo.exe is in to work.

;======================================================================
; Script Name: CraftMatic (Crafters Quest Automater)
; Author: Tazzman
; Version: 2.06
; Client Tested with: 1.5.0B
; EUO version tested with: 1.5 Build 0062
; Shard OSI / FS: OSI
; Revision Date: 15 October 2005
; Public Release: 11 September 2005
; Purpose: To automate the creation & turn-in of the various Crafter Quest Items
; using the minimum resources needed per quest type.
;======================================================================
; Instructions - Just have 10 or so of whatever tool you need in your pack for
; the particular quest you're doing - Tinker Tools, Sewing Kits, Jointing Planes
; or Tongs, along with a couple thousand ingots or pieces of cloth.
;
; FOR THE SCRIPTS THAT REQUIRE BOARDS OR EMPTY BOTTLES, have a packy standing
; next to you With it's pack OPEN (and positioned at the bottom of the screen)
; before starting the script. Stand in the quest area, no more than 8-10 paces
; from the Quest Giver. Pick the Quest, press the "Start" button, sit back
; and watch the satchels roll in. Smile
;
; Quest Detection Routine courtesy of Kal In Ex, with his wonderful
; FAST OCR script (kalocr.txt) Thanks Kal!
;======================================================================

:Setup
gosub KalOCRSetup

Begin:
gosub menuinit
ignoreitem reset
set #menubutton N/A
menu delete EUOLabel3
menu text EUOLabel3 85 148 Status: Paused                  

hotkeyloop:
if #menubutton = Start
goto Start
goto hotkeyloop

;======================================================================

Start:
menu set EUOLabel3 Status: Working...            
gosub QuestType
gosub countem
gosub FindCrafter
gosub GetNewQuest
gosub MarkItems
gosub TurnEmIn
gosub PackStatus

if #Menubutton = Pause1
menu set EUOLabel3 Status: Paused
goto HotKeyLoop

;======================================================================

sub FindCrafter
FindCrafter:
FindItem XU_AV G_12

Event Property #FindID

If %Weaver notin #Property || #FindRep <> 7
{
IgnoreItem #FindID
Goto FindCrafter
}

Set %CrafterID #FindID
Set %CrafterType #FindType
if #menubutton = Pause1
menu set EUOLabel3 Status: Pausing after Cycle
return

;======================================================================

sub GetNewQuest
GetNewQuest:
Set #LObjectID %CrafterID
Set #LObjectType %CrafterType
Event Macro 17 0
wait 5
Paperdoll1:
if #CONTNAME = paperdoll_gump
{
set %xclick #contposx + 37
set %yclick #contposy + 49
click %xclick %yclick r
goto Paperdoll1
}
Gosub OpenGump generic_gump 507_496 999 999
Set %AcceptX ( #ContPosX + 132 )
Set %AcceptY ( #ContPosY + 461 )
Set %RefuseX ( #ContPosX + 344 )
Set %RefuseY ( #contPosY + 461 )
wait 10
call %kalocr GetMLQInfo QuestOffer #contposx #contposy
If %1 <> %QuestPixels
Goto GetNewQuest
else
Click %AcceptX %AcceptY
Wait 20
if #menubutton = Pause1
menu set EUOLabel3 Status: Pausing after Cycle
return

;======================================================================

Sub MarkItems
exevent popup #charid
WaitingForGump:
gosub OpenGump normal_gump
wait 2
set %xclick #contposx + 47
set %yclick #contposy + 92
click %xclick %yclick
wait 10
if %ItemType = JTL
Set %tomark %tomark - 2

Mark:
for %i 1 %tomark
{
 finditem %itemtype C_ , #backpackid
 if #findkind = -1
 {
 wait 10
 Display OK Don't have enough %ItemName! Only had %i
 return
 }
 set #ltargetkind 1
 set #ltargetid #findid
 target 3s
 event macro 22
 ignoreitem #findid
}
wait 10
Key ESC
if #menubutton = Pause1
menu set EUOLabel3 Status: Pausing after Cycle
Return

;======================================================================

Sub TurnEmIn
Set #LObjectID %CrafterID
Set #LObjectType %CrafterType
Event Macro 17 0
wait 5
Paperdoll2:
if #CONTNAME = paperdoll_gump
{
set %xclick #contposx + 37
set %yclick #contposy + 49
click %xclick %yclick r
goto Paperdoll2
}
Gosub OpenGump generic_gump 507_496 999 999
wait 10
Set %AcceptX ( #ContPosX + 129 )
Set %AcceptY ( #ContPosY + 461 )
Click %AcceptX %AcceptY
Gosub OpenGump generic_gump 507_496 999 999
wait 10
Set %AcceptX ( #ContPosX + 129 )
Set %AcceptY ( #ContPosY + 461 )
Click %AcceptX %AcceptY
Wait 20
Return

;======================================================================

Sub OpenGump
Set %Timer ( #SCnt + 6 )

WaitForGumpToOpen:
Wait 1
If %Timer < #Scnt
{
Display OK The Gump Did Not Open.$Script Will Now attempt to restart.$If this happens more than twice in a row, please halt & restart script.
Goto Start
}

If #ContName <> %1 && #ContSize <> %2
Goto WaitForGumpToOpen
Wait 10
if %3 <> 999 && %4 <> 999
{
Set #ContPosX %3
Set #ContPosY %4
}
Return

;======================================================================

Sub CraftGump
Set %Timer ( #SCnt + 6 )

WaitForCraftGump:
Finditem %Tool
if #findkind = -1
return
Wait 1
If %Timer < #Scnt
{
Display OK The Crafting Gump Did Not Open.$Script Will Now Halt.
Halt
}

If #ContName <> %1 && #ContSize <> %2
Goto WaitForCraftGump
Wait 5
if %3 <> 999 && %4 <> 999
{
Set #ContPosX %3
Set #ContPosY %4
}
Return

;======================================================================

sub countem
if %ItemType = WUF ; If Doing Bottle Quest, make sure we have 50 to bypass craft gumps
Gosub CheckInitialMaterial

countem:
 ignoreitem reset
 Finditem %itemtype C_ , #backpackid
 If #FindCnt < %ToMark
 {
 Set %Amount ( %ToMark - #FindCnt )
 gosub MakeItem
 goto countem
 }
return

;======================================================================

Sub MakeItem
gosub CheckInitialMaterial
if %ItemType = WUF
Return

FindTool:
FindItem %ToolID C_ , #backpackid

If #FindKind = -1
{
Display OK You Do Not Have Any %ToolType $ Script Will Now halt.
halt
}
set %Tool #FindID
event property %tool
IF runic IN %tool
{
ignoreitem %tool
goto Findtool
}
 Set #LObjectID #FindID
 Wait 1
 Event Macro 17 0
 Gosub OpenGump generic_gump 530_537 999 999
 Set %OneButtonX ( #ContPosX + %OffsetX1 )
 Set %OneButtonY ( #ContPosY + %OffsetY1 )
 Set %TwoButtonX ( #ContPosX + %OffsetX2 )
 Set %TwoButtonY ( #ContPosY + %OffsetY2 )
 Set %ThreeButtonX ( #ContPosX + %OffsetX3 )
 Set %ThreeButtonY ( #ContPosY + %OffsetY3 )
 Set %MakeLastX ( #ContPosX + 280 )
 Set %MakeLastY ( #ContPosY + 412 )
 Set %ExitButtonX ( #ContPosX + 26 )
 Set %ExitButtonY ( #ContPosY + 412 )
 Click %OneButtonX %OneButtonY
 Gosub CraftGump generic_gump 530_507 999 999
 Click %TwoButtonX %TwoButtonY
 Gosub CraftGump generic_gump 530_507 999 999
 Click %ThreeButtonX %ThreeButtonY
 Gosub CraftGump generic_gump 530_507 999 999

 set %tomake ( %amount - 1 )
 for %t 1 %tomake
 {
 gosub CheckMaterial
 Finditem %Tool
 if #findkind = -1
 Return
 Click %MakeLastX %MakeLastY
 Gosub CraftGump generic_gump 530_507 999 999
 if #menubutton = Pause1
 menu set EUOLabel3 Status: Pausing after Cycle
 }
 Click %ExitButtonX %ExitButtonY
Return

;======================================================================

Sub CheckMaterial
ignoreitem reset
finditem %MaterialType C_ , #backpackid
if #findstack < %MaterialAmount
   {
   set %amounttodrag ( %MaterialAmount - #findstack )
   finditem %MaterialType C_
if #findkind = -1
{
Display OK You do not have enough Materials (Boards/Ingots/Cloth/Bottles).$Please check to ensure your pets backpack is open.$If you're out of raw materials, please restock.
halt
}
   set %MaterialOnPet #Findstack
   set %amounttodrag ( %MaterialAmount - %MaterialOnYou )
if %amounttodrag > %MaterialOnPet
{      
exevent drag #findid %MaterialOnPet
wait 10
exevent dropc #backpackid
wait 10
goto CheckMaterial
}
   exevent drag #findid %amounttodrag
   wait 10
   exevent dropc #backpackid
   wait 10
   ignoreitem reset
   return
   }
return

;======================================================================

sub CheckInitialMaterial
ignoreitem reset
finditem %MaterialType C_ , #backpackid
set %MaterialOnYou #findstack
ignoreitem #findid
wait 10
if %MaterialOnYou < %InitialMaterial
{
finditem %MaterialType C_
   if #findkind = -1
       {
       display OK You do not have enough Materials (Boards/Ingots/Cloth/Bottles).$Please check to ensure your pets backpack is open.$If you're out of raw materials, please restock.
       halt
       }
set %MaterialOnPet #Findstack
set %amounttodrag ( %InitialMaterial - %MaterialOnYou )
  if %amounttodrag > %MaterialOnPet
       {
       exevent drag #findid %MaterialOnPet
       wait 10
       exevent dropc #backpackid
       wait 10
       goto CheckInitialMaterial
       }
exevent drag #findid %amounttodrag
wait 10
exevent dropc #backpackid
wait 10
ignoreitem reset
return
}
return

;======================================================================

sub PackStatus
event property #backpackid
str pos #property Contents:
str del #property 1 #strres
set %var #strres
str pos %var $
if #strres > 1
str del %var #strres 100
set %var #strres
str len %var
set %strlen #strres
set %number1 1
str del %number1 1 1
set %number1 #strres
set %number2 1
str del %number2 1 1
set %number2 #strres
set %numb 1
for %i 1 %strlen
{
   str mid %var %i 1
   if ! ( #strres < 1 || #strres > 0 ) 3
   if %number1 > 0 2
   set %numb 2
   goto skip
   if ( #strres < 1 || #strres > 0 )
   set %number . %numb %number . %numb , #strres
   skip:
}
set %maxitems ( 120 - %tomark )
if %number1 > %maxitems
{
Display OK Your backpack is too full. Please make some room and restart the script.
set #menubutton = N/A
goto Begin
}
Return

;======================================================================

sub KalOCRSetup
set %kalocr kalocr.txt
call %kalocr SetCharFormat NoSpaces
if %1 <> NoSpaces
{
Display OK  Unable to find KALOCR.TXT. Please ensure that it is in the EUOX.EXE directory.
Halt
}
Return

;======================================================================

Sub QuestType
menu get combo

if #menures = 1
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 130 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 130 ; Y-Axis Offset for Category List 2
Set %OffsetX3 233 ; X-Axis Offset for Category List 3
Set %OffsetY3 110 ; Y-Axis Offset for Category List 3
Set %ItemName BarrelTaps ; Yes, we're making Barrel Taps today.
Set %Weaver wine ; Name of the Quest Giver
Set %ItemType IEG ; Barrel Tap ID
Set %MaterialType ENK ; Ingots
Set %MaterialAmount 2
set %InitialMaterial 50
Set %QuestPixels Beer_Goggles ; For the Beer Goggles Quest
Set %ToMark 25 ; How many Barrel Taps do we need?
Set %ToolID JTL_KTL ; Tinker Tool ID
Set %ToolType Tinker_Tools
return
}

;======================================================================

if #menures = 2
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 110 ; Y-Axis Offset for Category List 1
Set %OffsetX2 380 ; X-Axis Offset for Category List 2
Set %OffsetY2 270 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 110 ; Y-Axis Offset for Category List 3
Set %ItemName Garlands ; Flower Garlands
Set %Weaver cloth ; Name of the Quest Giver
Set %ItemType JJN ; Flower Garland ID
Set %MaterialType BUI_CUI ; Cloth
Set %MaterialAmount 5
Set %InitialMaterial 50
Set %QuestPixels Haute_Couture ; For the Haute Couture Quest
Set %ToMark 10 ; How many Garlands do we need?
Set %ToolID HAG ; Sewing Kit
Set %ToolType Sewing_Kits
return
}

;======================================================================

if #menures = 3
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 190 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 190 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 90 ; Y-Axis Offset for Category List 3
Set %ItemName BroadSwords ; BroadSwords
Set %Weaver metal ; Name of the Quest Giver
Set %ItemType ATF ; BroadSword ID
Set %MaterialType ENK ; Ingots
Set %MaterialAmount 10
Set %InitialMaterial 100
Set %QuestPixels Cuts_Both_Ways ; For the Cuts Both Ways Quest
Set %ToMark 10 ; How many Broadswords do we need?
Set %ToolID OBG_TBG_TLH_FBG ; Blacksmith Tools
Set %ToolType Tongs
return
}

;======================================================================

if #menures = 4
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 170 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 170 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 170 ; Y-Axis Offset for Category List 3
Set %ItemName SpyGlasses ; SpyGlasses
Set %Weaver bark ; Name of the Quest Giver
Set %ItemType ZVH ; Spyglass ID
Set %MaterialType ENK ; Ingots
Set %MaterialAmount 4
Set %InitialMaterial 100
Set %QuestPixels The_Far_Eye ; For the Far Eye Quest
Set %ToMark 20 ; How many Spyglasses do we need?
Set %ToolID JTL_KTL ; Tinker Tools
Set %ToolType Tinker_Tools
return
}

;======================================================================

if #menures = 5
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 110 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 110 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 110 ; Y-Axis Offset for Category List 3
Set %ItemName FukiyaDarts ; Darts.
Set %Weaver bowcrafter ; Name of the Quest Giver
Set %ItemType SGP ; Fuyika Dart ID
Set %MaterialType TLK ; Boards
Set %MaterialAmount 1
Set %InitialMaterial 1
Set %QuestPixels Lethal_Darts ; For the Deadly Darts Quest
Set %ToMark 10 ; How many Darts do we need?
Set %ToolID UFG ; Fletching Tools
Set %ToolType Fletching_Tools
return
}

;======================================================================

if #menures = 6
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 110 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 110 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 80 ; Y-Axis Offset for Category List 3
Set %ItemName Footstools ; Footstools.
Set %Weaver trinket ; Name of the Quest Giver
Set %ItemType QFE ; Footstool ID
Set %MaterialType TLK ; Boards
Set %MaterialAmount 9
Set %InitialMaterial 90
Set %QuestPixels Arch_Support ; For the Arch Support Quest
Set %ToMark 10 ; How many Footstools do we need?
Set %ToolID IGG_KGG_WFG_AIG_AGG_EGG_BIG_ZHG_CIG_CGG ; Carpentry Tools
Set %ToolType Carp_Tools
return
}

;======================================================================

if #menures = 7
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 110 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 110 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 80 ; Y-Axis Offset for Category List 3
Set %ItemName EmptyBottles ; EmptyBottles
Set %Weaver Wine ; Name of the Quest Giver
Set %ItemType WUF ; Empty Bottle ID
Set %MaterialType WUF ; Empty Bottle ID
Set %MaterialAmount 50
Set %InitialMaterial 50
Set %QuestPixels Message_in_a_Bottle ; For the Message In a Bottle Quest
Set %ToMark 1 ; How many Stacks of bottles do we need?
Set %ToolID IGG_KGG_WFG_AIG_AGG_EGG_BIG_ZHG_CIG_CGG ; Irrelevant
Set %ToolType Jointing_Planes ; Irrelevant
return
}

;======================================================================

if #menures = 8
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 130 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 130 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 70 ; Y-Axis Offset for Category List 3
Set %ItemName Bows ; Regular Bows
Set %Weaver bowcrafter ; Name of the Quest Giver
Set %ItemType WOH ; Fuyika Dart ID
Set %MaterialType TLK ; Boards
Set %MaterialAmount 7
Set %InitialMaterial 70
Set %QuestPixels A_Simple_Bow ; For the Simple Bow Quest
Set %ToMark 10 ; How many Bows do we need?
Set %ToolID UFG ; Fletching Tools
Set %ToolType Fletching_Tools
return
}

;======================================================================

if #menures = 9
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 110 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 110 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 80 ; Y-Axis Offset for Category List 3
Set %ItemName Footstools ; Footstools.
Set %Weaver Ciala ; Name of the Quest Giver
Set %ItemType QFE ; Footstool ID
Set %MaterialType TLK ; Boards
Set %MaterialAmount 9
Set %InitialMaterial 90
Set %QuestPixels Arch_Support ; For the Arch Support Quest
Set %ToMark 10 ; How many Footstools do we need?
Set %ToolID IGG_KGG_WFG_AIG_AGG_EGG_BIG_ZHG_CIG_CGG ; Carpentry Tools
Set %ToolType Carp_Tools
return
}

;======================================================================

if #menures = 10
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 130 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 130 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 90 ; Y-Axis Offset for Category List 3
Set %ItemName Crossbows ; Crossbows
Set %Weaver bowcrafter ; Name of the Quest Giver
Set %ItemType JSF ; Fuyika Dart ID
Set %MaterialType TLK ; Boards
Set %MaterialAmount 7
Set %InitialMaterial 70
Set %QuestPixels Ingenious_Archery,_Part_I ; For the Crossbow Quest
Set %ToMark 10 ; How many Crossbows do we need?
Set %ToolID UFG ; Fletching Tools
Set %ToolType Fletching_Tools
return
}

;======================================================================

if #menures = 11
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 130 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 130 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 110 ; Y-Axis Offset for Category List 3
Set %ItemName Heavy_Crossbows ; Heavy Crossbows
Set %Weaver bowcrafter ; Name of the Quest Giver
Set %ItemType LMH ; Fuyika Dart ID
Set %MaterialType TLK ; Boards
Set %MaterialAmount 10
Set %InitialMaterial 80
Set %QuestPixels Ingenious_Archery,_Part_II ; For the Heavy Crossbow Quest
Set %ToMark 8 ; How many Heavy Crossbows do we need?
Set %ToolID UFG ; Fletching Tools
Set %ToolType Fletching_Tools
return
}

;======================================================================

if #menures = 12
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 130 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 130 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 150 ; Y-Axis Offset for Category List 3
Set %ItemName Repeating_Crossbows ; Crossbows
Set %Weaver bowcrafter ; Name of the Quest Giver
Set %ItemType PPO ; Repeating Crossbow ID
Set %MaterialType TLK ; Boards
Set %MaterialAmount 10
Set %InitialMaterial 100
Set %QuestPixels Ingenious_Archery,_Part_III ; For the Repeating Crossbow Quest
Set %ToMark 10 ; How many Repeating Crossbows do we need?
Set %ToolID UFG ; Fletching Tools
Set %ToolType Fletching_Tools
return
}

;======================================================================

if #menures = 13
{
Set %OffsetX1 29 ; X-Axis Offset for Category List 1
Set %OffsetY1 110 ; Y-Axis Offset for Category List 1
Set %OffsetX2 29 ; X-Axis Offset for Category List 2
Set %OffsetY2 110 ; Y-Axis Offset for Category List 2
Set %OffsetX3 230 ; X-Axis Offset for Category List 3
Set %OffsetY3 130 ; Y-Axis Offset for Category List 3
Set %ItemName Tinker Toolkits ; Crossbows
Set %Weaver trinket ; Name of the Quest Giver
Set %ItemType JTL_KTL ; Repeating Crossbow ID
Set %MaterialType ENK ; Boards
Set %MaterialAmount 2
Set %InitialMaterial 20
Set %QuestPixels Necessity's_Mother ; For the Repeating Crossbow Quest
Set %ToMark 12 ; How many Repeating Crossbows do we need?
Set %ToolID JTL_KTL ; Fletching Tools
Set %ToolType Tinker_Tools
return
}

;======================================================================



;--------- EasyUO Menu Designer Code Begin ---------
sub menuinit
  menu Clear
  menu Window Title CraftMatic v2.06
  menu Window Color Black
  menu Window Size 230 170
  menu Font Transparent #true
  menu Font Align Right
  menu Font Name MS Sans Serif
  menu Font Size 8
  menu Font Style
  menu Font Color Red
  menu Font Transparent #false
  menu Font Align Left
  menu Font BGColor Black
  menu Text EUOLabel1 60 34 Quest Item to Produce
  menu Font Size 9
  menu Font Size 8
  menu Font Color WindowText
  menu Font BGColor Window
  menu Combo Create combo 10 10 210
  menu Combo Add combo Barrel Taps (Wine Tender)
  menu Combo Add combo Garlands (Cloth Weaver)
  menu Combo Add combo BroadSwords (Metal Weaver)
  menu Combo Add combo SpyGlasses (Bark Weaver)
  menu Combo Add combo Fukiya Dart (BowCrafter)
  menu Combo Add combo Footstools (Trinket Weaver)
  menu Combo Add combo EmptyBottles (Wine Tender)
  menu Combo Add combo Regular Bows (BowCrafter)
  menu Combo Add combo Footstools2 (Ciala the Arborist)
  menu Combo Add combo Crossbows (BowCrafter)
  menu Combo Add combo Heavy Crossbows (Bowcrafter)
  menu Combo Add combo Repeating Crossbows (Bowcrafter)
  menu Combo Add combo Tinker Tools (Trinket Weaver)
  menu Font BGColor BtnFace
  menu Button Start 64 70 109 25 Start!
  menu Button Pause1 10 140 50 25 Pause
  menu Font BGColor Black
  menu Font Color White
  menu Font Align Center
  menu Show 800 10
return
;--------- EasyUO Menu Designer Code End ---------
 

That sounds good but i was wondering, instead of having it wait for 30s, could you have it scanning for something like World_save_complete??

Thanks, i removed the spaces in the two subs and now it doesn't skip them.

I set the three top subs to set the rune book id, drop container id, and get the x coordinates of both my box and chicken recall spot. So i can compare the values after a recall, to see if i actually recalled. You may have spotted the un-used variables that i haven't used yet.

Anyways, instead of skipping the setup gosubs after it gets into the main loop, it goes through them again.

@Dixie Wrecked, thanks ill have to do some reading on that.

Thanks for the nice welcome, if i don't reply very much don't take it as a insult, i just don't post much in forums. I have followed some forums for many years, yet have less than 50 posts.

But i never know this place could be different for me, and thanks again for the welcome.