Set %SewingKit HAG
Set %Scissors KAG
Set %Cloths CUI
Set %Clothing TQL_XDI_FZH_LDI_DCI_FWL
Set %SewingKitsBag OUVESUD
Set %ScissorsBag CVVESUD
Set %ClothingBag ZLSTEQD
Set %ClothsChest IAKHGVD
Set #SYSMSGCOL 1264
LookForRequirements:
FindItem %Cloths C_ , #BackPackID
If #FindKind <> -1
{
ExEvent Drag #FindID #FindStack
Wait 5
ExEvent Dropc %ClothsChest
Wait 5
GoTo LookForRequirements
}
FindItem %SewingKitsBag G_2
If #FindKind = -1
{
Event SysMessage No bag for your sewing kits found!
Halt
}
FindItem %ScissorsBag G_2
If #FindKind = -1
{
Event SysMessage No bag for your scissors found!
Halt
}
FindItem %ClothingBag G_2
If #FindKind = -1
{
Event SysMessage No bag for your magic clothing found!
Halt
}
FindItem %SewingKit C_ , %SewingKitsBag
If #FindKind = -1
{
Event SysMessage No sewing kit in the sewing kits bag found!
Halt
}
FindItem %Scissors C_ , %ScissorsBag
If #FindKind = -1
{
Event SysMessage No scissors in the scissors bag found!
Halt
}
FindItem %Cloths G_2
If #FindKind = -1
{
Event SysMessage No cloths found!
Halt
}
Event SysMessage Everything required has been found! Crafting!
UseSewingKit:
FindItem %SewingKit C_ , #BackPackID
If #FindKind = -1
{
Event SysMessage Didn't find a sewing kit in your backpack, grabbing a new one!
FindItem %SewingKit C_ , %SewingKitsBag
If #FindKind = -1
{
Event SysMessage No sewing kit in the sewing kits bag found!
Halt
}
ExEvent Drag #FindID #FindStack
Wait 5
ExEvent Dropc #BackPackID
Wait 20
GoTo UseSewingKit:
}
Set #LObjectID #FindID
Event Macro 17
Target 10s
FindItem %Cloths G_2
If #FindKind = -1
{
Event SysMessage No cloths found!
Halt
}
Set #LTargetID #FindID
Event Macro 22
Repeat
Until #ContName = generic_gump && #ContSize = 504_454
Set #ContPosX 10
Set #ContPosY 10
Click 446 438
Wait 2
Key Back
Key Back
Key Back
Key Back
Msg 100
Wait 5
Randomnize:
Event SysMessage Randomnizing what to craft...
Set %Random #Random % 5
If %Random = 0
{
Event SysMessage Fancy Shirt!
Click 131 143
Wait 5
Click 127 219
Wait 5
GoTo Idle
}
If %Random = 1
{
Event SysMessage Cloak!
Click 131 143
Wait 5
Click 132 318
Wait 5
GoTo Idle
}
If %Random = 2
{
Event SysMessage Kilt!
Click 278 140
Wait 2
Click 168 314
Wait 5
GoTo Idle
}
If %Random = 3
{
Event SysMessage Robe!
Click 446 142
Wait 5
Click 175 319
Wait 5
GoTo Idle
}
If %Random = 4
{
Event SysMessage Body Shash!
Click 209 374
Wait 5
Click 173 219
Wait 5
GoTo Idle
}
Idle:
FindItem Clothing C_ , #BackPackID
If #FindKind <> -1
{
If #FindCol <> 0
{
ExEvent Drag #FindID #FindStack
Wait 5
ExEvent Dropc %ClothingBag
Wait 5
IgnoreItem #FindID
GoTo Idle
}
IgnoreItem #FindID
}
FindItem %SewingKit C_ , #BackPackID
If #FindKind = -1
{
Event SysMessage Didn't find a sewing kit in your backpack, grabbing a new one!
FindItem %SewingKit C_ , %SewingKitsBag
If #FindKind = -1
{
Event SysMessage No sewing kit in the sewing kits bag found!
Halt
}
ExEvent Drag #FindID #FindStack
Wait 5
ExEvent Dropc #BackPackID
Wait 20
GoTo Idle:
}
Set #LObjectID #FindID
Event Macro 17
If #TargCurs = 1
GoTo CutRegularClothing
Wait 3s
GoTo Idle
CutRegularClothing:
FindItem %Clothing C_ , #BackPackID
If #FindKind = -1
GoTo LookForRequirements
If #FindCol <> 0
{
IgnoreItem #FindID
GoTo CutRegularClothing
}
Set #LTargetID #FindID
FindItem %Scissors C_ , %ScissorsBag
If #FindKind = -1
{
Event SysMessage No scissors in the scissors bag found!
Halt
}
Set #LObjectID #FindID
Event Macro 17
Target 1s
Event Macro 22
GoTo CutRegularClothing