I am using a leather gatherer script and it loots the leather but does not cut it. I am trying to add a cut leather sub in it but not much luck. What did I do wrong?

SET %LOOT is at the beginning of the script EEG (pile of hides) is listed in the set %LOOT table

SUB GET_LOOT is by the original author, I added in the sub CUT_LOOT

AT the beginning of the script there is a main loop and I added GOSUB CUT_LOOT right after GOSUB GET_LOOT

;================================================
SUB GET_LOOT
  GOSUB CHECK_WEIGHT
  FINDITEM %LOOT C_ , %CORPSE_CONTAINER
  IF #FINDCNT > 0
  {
    FOR #FINDINDEX 1 #FINDCNT
    {
      EXEVENT DRAG #FINDID #FINDSTACK
      WAIT 20
      EXEVENT DROPC #BACKPACKID
      WAIT 20
    }
  }
  FINDITEM JJG C_ , #Backpackid
  IF #FINDCNT > 0
  {
    FOR #FINDINDEX 1 #FINDCNT
    {
      Event Property #Findid
      If Spined In #Property && %Bos_Option #False
      {
        EXEVENT DRAG #FINDID #FINDSTACK
        WAIT 20
        EXEVENT DROPC %Corpse_Container
        WAIT 20
      }
    }
  }
  IF #CHARPOSX <> %STARTX
  {
    REPEAT
      EVENT PATHFIND %STARTX %STARTY %STARTZ
      WAIT 40
    UNTIL #CHARPOSX = %STARTX %STARTY %STARTZ
  }
  WAIT 1
  HIDEITEM %NEW_CORPSE
  WAIT 1
RETURN
;================================================
SUB CUT_LOOT
finditem %LOOT C_ , #backpackid
  for #findindex 1 #findcnt
  {
    set #lobjectid %SCISSORS
    event macro 17
    target
    set #ltargetid #findid
    set #ltargetkind 1
    event macro 22
    wait 8
  }
RETURN

I know it can be imbued, can it be enhanced as well? I am specifically referring to the fisherman's armor set right now which appears to be leather armor not including the hat but am curious about the other sets as well. I would love to add the extra resists from the horned and barbed leather, using the origin tool that guarantees success of course.

I wonder if it can be reforged? Probably not but I might get a cheap piece and give it a shot.

I have the start working, Press the start button and it starts fishing and changes the start button to a pause button. When pressing the pause button,  I thought it would pause and change the pause button to a start button and wait for start to be pressed again. Where did I go wrong?

;Setup
set %fishingpole XHF_KDF
set %bones BJK_EJK_DJK_YIK_XIK_AJK_ZJK_KJK_FJK_ZIK
set %scissors KAG_JAG
gosub Menu
;===================================================================
sub Menu
menu Clear
menu Window Title Crisis SOS Fisher 2.0
menu Window Color Black
menu Window Size 186 57
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 10
menu Font Style
menu Font Color WindowText
menu Font BGColor Lime
menu Button Start_Button 44 12 95 33 Start Fishing
menu Show 421 270

if #menubutton <> N/A
     gosub menubuttons
or
if #menubutton = pause
     gosub pause
return
;===================================================================
sub menubuttons
menu HideEUO
  set #menubutton N/A
  repeat
  until #menubutton <> N/A
  menu delete start
    menu Font Color WindowText
     menu Font Size 10
    menu Font BGColor Red
    menu Button pause 44 12 95 33 Pause ; creates new button
 set #menubutton  N/A
 menu delete start
 gosub Fishing
repeat
until #menubutton = start
if #menubutton = start
 
;===================================================================
sub pause
set #menubutton N/A
  repeat
  until #menubutton <> N/A
  menu delete pause
    menu Font Color WindowText
     menu Font Size 10
    menu Font BGColor Green
    menu Button Start 44 12 95 33 Start ; creates new button
 set #menubutton  N/A
 menu delete pause
 gosub menubuttons
repeat
until #menubutton = pause
if #menubutton = pause


I am using Polonius's Move Resource Sub. I have looked this over a ton of times but best as I can tell the checkpotash sub is showing to check for a stack >=500 and then to move that 500. It is moving 1 piece of potash to the resource container but leaving the stack >=500. What am I missing?

;=========================================
Start:
Gosub Setup

;===================Sub Setup============================
Sub Setup
set %TinkerTools JTL_GTL_KTL
Set %Tongs OBG
Set %Boards TLK
Set %MortarPestle RQF
Set %EmptyPitcher WYF
Set %FullPitcher VBM
Set %Potash AFZ
Set %SaveList NWH_RCG_FCG_FKF
Set %DumpList
set %Ingots ENK
set %cwin 530_497            ; Crafting window size
set %gumpwait 1 ; Increase number to slow down clicks on menus.  20 = 1 second.
set %targetcursorwait 1 ; Increase number as above

Display Ok Select the container with your resources in it.
  set #targcurs 1
      while #targcurs = 1
         wait 1
      set %ResourceSecure #ltargetID
      set #lobjectID #ltargetID
      set #nextcposx 400
      set #nextcposy 0
      event macro 17
      wait 20
      {
      gosub mainmenu
      }
return

;===================Sub Main Menu======================
sub MainMenu
menu Clear
menu Window Title Crisis High Seas Munitions Factory
menu Window Color $FFFFFFFF
menu Window Size 190 130
menu Font Transparent #true
menu Font Align Right
menu Font Name Comic Sans MS
menu Font Size 8
menu Font Style b
menu Font Color Lime
menu Font Transparent #false
menu Font Align Left
menu Font BGColor $FFFFFFFF
menu Text EUOLabel1 63 0 Select One:
menu Font Name MS Sans Serif
menu Font Style
menu Font Color WindowText
menu Font BGColor Window
menu Font BGColor Lime
menu Button begin  64 62 55 25 Start
menu Font Name Comic Sans MS
menu Font Style b
menu Font Color Lime
menu Font BGColor $FFFFFFFF
menu Font Name MS Sans Serif
menu Font Style
menu Font Color WindowText
menu Font BGColor Window
menu Combo Create list 20 16 150
  menu Combo Add list Potash
menu Combo Add list Black Powder
menu Combo Add list Light Powder Charge
menu Combo Add list Heavy Powder Charge
menu Combo Add list Light Grapeshot
menu Combo Add list Light Cannonball
menu Combo Add list Heavy Grapeshot
menu Combo Add list Heavy Cannonball
menu Combo Add list Fuse Cord
menu Combo Add list Match Cord
menu Combo Add list Match
menu Combo Add list Swab
menu Combo Add list Ramrod
menu Show 421 270
  set #menubutton N/A
  repeat
  until #menubutton <> N/A
  menu delete begin
  menu hide
  menu get list
if #menures = 1
   set %craftable Potash
if #menures = 2
   set %craftable BlkPwdr
if #menures = 3
   set %craftable LtPwdrChg
if #menures = 4
   set %craftable HvyPwdrChg
if #menures = 5
   set %craftable LtGrpSht
if #menures = 6
   set %craftable LtCanBall
if #menures = 7
   set %craftable HvyGrpSht
if #menures = 8
   set %craftable HvyCanBall
;choosesitem %craftable

if %craftable = Potash
      {
      Display You must be next to a water trough and have a water pitcher in your backpack.
      gosub MakePotash
      }
if %craftable = BlkPwdr
      {
      gosub MakeBlackPowder
      }
if %craftable = LtPwdrChg
      {
      gosub LightPowderCharge
      }
if %craftable = HvyPwdrChg
      {
      gosub HeavyPowderCharge
      }
if %craftable = LtGrpSht
      {
      gosub LightGrapeShot
      }
if %craftable = LtCanBall
      {
      gosub LightCannonBall
      }
if %craftable = HvyGrpSht
      {
      gosub HeavyGrapeShot
      }
if %craftable = HvyCanBall
      {
      gosub HeavyCannonBall
      }
until #charghost = yes
return

;===================Sub Make Potash===========================
Sub MakePotash
    MakePotashLoop:
    finditem %Boards C_ , #backpackid
         if #findstack < 10
         {
         set %quantityinpack 100 - #findstack
         Gosub Move_Resource_To_Container %Boards 0 %ResourceSecure #BackpackID %quantityinpack
         If ! #Result
            {
            display You need to place more boards in your Resource Secure and hit play.
            pause
            GoTo MakePotashLoop
            }
         }
         {
         finditem %EmptyPitcher C_ , #backpackid
         gosub ENs_FillPitchersFromWaterTrough
         }
         {
         finditem %MortarPestle C_ , #backpackid
         set #lobjectid #findid
         If #findcnt < 2
         gosub MakeMortarPestle
         }
         event macro 17
              gosub waitforgump %cwin
              if ! #result
              {
              Display Dbl Click a mortar and pestle in your backpack and hit play
              Pause
              }
              gosub OffsetClick 25 190
              gosub waitforgump %cwin
              if ! #result
              {
              GoTo MakePotashLoop
              }
              Gosub OffSetClick 230 210 f
              gosub waitforgump %cwin
              if ! #result
              {
              GoTo MakePotashLoop
              }
              Gosub OffSetClick 281 452 f
              gosub waitforgump %cwin
              if ! #result
              {
              GoTo MakePotashLoop
              }
              gosub CheckPotash
              return
;================Sub Move Resource==========================
Sub CheckPotash
finditem %Potash C_ , #backpackid
              if #findstack >= 500
              {
              set %quantityinpack 500 - #findstack
              gosub Move_Resource_To_Container %Potash 1102 #BackpackID %ResourceSecure %quantityinpack
              }
              goto MakePotashLoop
              return
;================Sub Move Resource==========================
Sub Move_Resource_To_Container
; Sub moves a stackable resource from one container to another
; Checks Item Color to insure proper identification (Required)
; Will return #False if there are not enough of the resource
; #True with a successful move
;----------------------------------------------------------
; SAMPLE CALL Line
; Gosub Move_Resource_To_Container ItemType ItemColor ContainerIDSource ContainerIDDestination AmountToMve
;----------------------------------------------------------
namespace push
namespace local NCS
Set !ResourceItemType %1
Set !ResourceColor %2
Set !ResourceSource %3
Set !ResourceDestination %4
Set !ResourceCountToMove %5
Set !ResourceCountToMoveCheck %5
Finditem !ResourceItemType C_ , !ResourceSource
Set #findindex 0
Set #FindCol N/A
Set !ResourceLocated No
while #findindex < #findcnt && No in !ResourceLocated
      {
      set #findindex #findindex + 1
      If #FindCol = !ResourceColor && #FindStack < !ResourceCountToMove && #FindCnt > #findindex
         {
         exevent drag #FindID #FindStack
         Wait 15
         exevent dropc !ResourceDestination
         Wait 15
         Set !ResourceCountToMove !ResourceCountToMove - #FindStack
         Set #findindex 0
         Finditem !ResourceItemType C_ , !ResourceSource
         }
      If #FindCol = !ResourceColor && #FindStack >= !ResourceCountToMove
         {
         exevent drag #FindID !ResourceCountToMove
         Wait 15
         exevent dropc !ResourceDestination
         Wait 15
         Set !ResourceLocated Yes
         }
      }
If #FindIndex = 0 || No in !ResourceLocated
   {
   IgnoreItem Reset
   Namespace pop
   Return #False
   }
Finditem !ResourceItemType C_ , !ResourceDestination
Set #findindex 0
Set #FindCol N/A
Set !ResourceLocated No
while #findindex < #findcnt && No in !ResourceLocated
      {
      set #findindex #findindex + 1
      If #FindCol = !ResourceColor && #FindStack >= !ResourceCountToMoveCheck
         {
         Namespace pop
         IgnoreItem Reset
         Return #True
         }
      }
Namespace pop
Return #False

;=================sub ENs_FillPitchers======================
sub ENs_FillPitchersFromWaterTrough  ; %1= troughrange , defaults to 12 if nothing passed
 If %waterTroughTypes = N/A
  set %waterTroughTypes TEE_WEE_QEE_VEE
 IF  %emptypitcherTypes = N/A
    set %emptypitcher  WYF
 If %0 <> 1
   set %waterTroughRange 12
 finditem %waterTroughTypes G_ , %waterTroughRange
 If #Findcnt = 0
     event exmsg #charid 3 0 ERROR No Water Trough Found
 IF #findcnt > 0
   {
   set %WaterTroughId #findid
   finditem %emptypitcher C_ , #backpackid
   if #findcnt > 0
     {
     For #findindex 1 #findcnt
       {
       set #lobjectid #findid
       event exmsg #charid 3 0 Empty pitchers found, filling! #findindex of #findcnt
       event macro 17
       target 5s
       set #Ltargetkind 1
       set #ltargetid %WaterTroughID
       event macro 22
       wait 20
       }
     }
   }
return

;==================Sub Wait for Gump=========================
sub waitforgump
set %timeout #scnt + 10
while #contsize <> %1
      {
      wait 1
      if #scnt > %timeout
         {
          return #false
         }
      }
wait %gumpwait
return #true
;==================Sub Wait for Target Cursor================
sub WaitForTargetCursor
set %timeout #scnt + 4
Repeat
      wait %targetcursorwait
      if #scnt > %timeout
         return #false
Until #TARGCURS = 1
return #true



;=================Sub Offset Click===========================
sub OffsetClick
  set %tempx %1 + #CONTPOSX
  set %tempy %2 + #CONTPOSY
  click %tempx %tempy f
return



I have just about finished with my first crafting script but have a couple of questions.

1. I found a sub to take items from a secure to a backpack but not sure about reversing that. I want it to move it to the secure once it hits a stack of 100. I tried this command          finditem %Potash C_ , #backpackid
         If #findcnt > 100
         {
         set %quantityinresourcesecure 100 - #findstack
         Gosub Move_Resource_To_Secure %Potash 0 #BackpackID %ResourceSecure %quantityinpack
         }
I am using Polinius' Move Resources Sub

2. I am also wanting to set the script to stop making them at a desired number that the user enters. Right now, the script will run until the user runs out of resources.

Any help would be greatly appreciated and keep in mind I am a complete noob but I am trying!

I was wondering if easyuo scripts are based off of a specific programming language? I would like to understand more of what I kind of guess my way through.

A married couple was on holiday in Pakistan. They were touring around the marketplace looking at the goods and such, when they passed a small sandal shop. From inside they heard a gentleman with a Pakistani accent say, "You foreigners! Come in. Come into my humble shop."

So the couple walked in and the shopkeeper says to them, "I have some special sandals I think you would be interested in. They have special power. Dey make you wild at sex like a great desert camel." Well, the wife was really interested in buying the sandals after what the shopkeeper claimed, but her husband felt he really didn't need them, being the sex God he was.

The husband asked the man, "How could sandals improve my abilities?" The Pakistani man replied, "Just try dem on, Saiheeb. The sandals will prove it to you." Well, the husband, after much badgering from his wife, finally conceded to try them on. As soon as he slipped them onto his feet, he got this wild look in his eyes; something his wife hadn't seen in many years: raw sexual power!

In a blink of an eye, the husband grabbed the Pakistani man, bent him violently over a table, yanked down the man's pants and his own, and grabbed firm hold of the Pakistani's thighs. The Pakistani then began screaming, "YOU HAVE DEM ON DE WRONG FEET!"