FULL AUTO BOD
Right now it only does smithing!
The project will start at home with a secure, have two bags inside. Secure will hold ingots, tinker tools and tongs. Two bags, one for rewards, one for lbods to store in.
This script will full auto do bods, fill them, turn them in, get new ones and repeat. Store runics and rewards from turning in ect. Will know what kind of bod it is and check materials. If it gets a lbod, it will store it and grab a small from secure to keep going if any are available and if the option is enabled.
This is going to be a big script, lots of code, I will need help. I have a lot of it completed, but could use suggestions on condensing subs and such.
If TM adds it to a special project, that would be great. For now it remains here, if you are working on it let me know so you can be added to the list for credits.
If you are interested, let me know with a yes or no. I will probably get a lot of pm's on this, so please keep it short and simple, suggestions and code are 100% welcome to get this into testing phase.
If you are gonna work on it with me, please please please, post what part of the code or sub you are currently working on so we dont have 3 or 4 people writing the same thing.
Thanks guys!
Currently Working on:
Coragin - Weapon and armor set ID's
;===================================================================================================
; SUO's Fully functional BOD runner.
; Version: 1.0 Alpha
; Setup: Smithing Only!
;
; Purpose: Fully functional BOD runner.Will recall to runes you select for blacksmiths, identify
; the Bulk Order Deed and fill it. Then turn it in and get another and repeat. NOT setup for large
; BOD's as of yet, Only single's. Will store ALL Powder, Runic, PS in a runic secure at home setup.
;
; TODO: Add support for LBOD's
; Add support for getting Small BOD's from home secure if NPC gives you a LArge to keep going.
; Add Tailoring Support.
;
;
; ALPHA STAGE MEANS STILL WRITING!
;
;
;
;===================================================================================================
;
;===================================================User Setup======================================
set %Homerune 1
set %ShopRune 2
set %Runebook
;===================================================End User Setup==================================
gosub setup
Mainloop:
gosub GetBod
gosub MakeBod
gosub TurninBod
gosub StoreRunic
goto Mainloop
Sub Setup ;=========================================Variable Setup==================================
gosub setupsecure
gosub setupsmithingmenu
gosub EUOMenu
set %smithNPC Blacksmith$
set %tinkertools
set %tongs
set %runic
set %powder
set %powerscroll
set %anvildeed
set %shovel
set %gargpickaxe
set %prospect
set %ingots
set %bod
set %dullcopper Dull , #SPC , Copper
set %ironcolor ;====Begin Ingot Color
set %dullcoppercolor
set %shadowcolor
set %coppercolor
set %bronzecolor
set %goldcolor
set %vertitecolor
set %apagitecolor
set %valoritecolor
set %chainmailtunic ;====Begin Armor Sets
set %chainmaillegs
set %chainmailcoif
set %platemailgorget
set %platemailarms
set %platemaillegs
set %platemailgloves
set %platemailchest
set %femaleplate
set %ringmailgloves
set %ringmailtunic
set %ringmaillegs
set %ringmailarms
set %platmailhelm
set %closehelm ;====Begin Helms
set %basinet
set %norsehelm
set %dagger
set %kryss
set %katana
set %crescentblade
set %
Sub SetupSecure ;=======================================Secure Setup===============================
display yesno press yes to use small bods from secure $or no to halt on Large?
set %swapbods #true
if #dispres = no
{
set %swapbods #false
}
Display Ok Select your Home Secure.
set #targcurs 1
while #targcurs = 1
wait 1
set %ResourceBag #ltargetID
set #lobjectID #ltargetID
set #nextcposx 100
set #nextcposy 0
event macro 17
wait 20
Display Ok Select your RUNIC Bag in SECURE Container.
set #targcurs 1
while #targcurs = 1
wait 1
set %RunicBag #ltargetID
set #lobjectID #ltargetID
set #nextcposx 300
set #nextcposy 0
event macro 17
wait 20
Display Ok Select your LARGE BOD Bag in SECURE Container.
set #targcurs 1
while #targcurs = 1
wait 1
set %LBodBag #ltargetID
set #lobjectID #ltargetID
set #nextcposx 500
set #nextcposy 0
event macro 17
wait 20
Return
Sub EUOMenu ;=========================================EUO Menu======================================
Return
Sub GetBod ;==========================================Get Bod=======================================
gosub TM_TravelFromNamedRunebook RE %ShopRune %ShopRune %RuneBook ;Travel to Shop
gosub TM_TravelFromNamedRunebook RE %HomeRune %HomeRune %RuneBook ;travel Home
Return
Sub GetBod2 ;=========================================Get BOD After Turnin of Filled BOD============
Return
Sub MakeBod ;========================================Make Bod=======================================
gosub IdentifyBod ;Color, Quantity, Quality
gosub IdentifyType ;Armor or Weapons
Return
Sub TurninBod ;====================================Turnin Bod=======================================
gosub TM_TravelFromNamedRunebook RE %ShopRune %ShopRune %RuneBook ;Travel to Shop
gosub GetBod2 ; Get BOD After Turnin of FILLED BOD
gosub TM_TravelFromNamedRunebook RE %HomeRune %HomeRune %RuneBook ;Travel Home
Return
Sub StoreRunic ;==================================Store Runic=======================================
Return
Sub SetupSmithingMenu ;===========================Setup Smithing Clicks=============================
;=================================================Weapon Selection Menus (Left Pane)================
set %menu1x 80
set %menu1y 140
set %menu2x 80
set %menu2y 160
set %menu3x 80
set %menu3y 180
set %menu4x 80
set %menu4y 200
set %menu5x 80
set %menu5y 200
set %menu6x 80
set %menu6y 220
set %menu7x 80
set %menu7y 240
set %menu8x 80
set %menu8y 260
set %menu9x 80
set %menu9y 280
set %menu10x 80
set %menu10y 300
set %menu11x 80
set %menu11y 320
;==================================================Make Menus (Right Pane)=========================
set %wmenu1x 285
set %wmenu1y 120
set %wmenu2x 285
set %wmenu2y 140
set %wmenu3x 285
set %wmenu3y 160
set %wmenu4x 285
set %wmenu4y 180
set %wmenu5x 285
set %wmenu5y 200
set %wmenu6x 285
set %wmenu6y 220
set %wmenu7x 285
set %wmenu7y 240
set %wmenu8x 285
set %wmenu8y 260
set %wmenu9x 285
set %wmenu9y 280
set %wmenu10x 285
set %wmenu10y 300
;===============================================Next Page X/Y=======================================
set %nextpagex 435
set %nextpagey 320
;===============================================Change Wood X/Y=====================================
set %changewoodx 80
set %changewoody 420
;===============================================Smelt X/Y===========================================
set %smeltx 80
set %smelty 400
;===============================================Make Last X/Y=======================================
set %makelastx 330
set %makelasty 500
;===============================================Exit Craft Gump X/Y=================================
set %exitx 80
set %exity 500
return
Sub IdentifyBod ;=================================Identify Bod======================================
identifyloop:
finditem %bod C_ , #backpackid
if #findcnt < 1
{
finditem %bod C_ , %ResourceBag
if #findkind = -1
{
gosub GetSmall
goto identifyloop
}
goto identifysize
}
finditem %bod C_ , #backpackid
if #findkind <> -1
{
event property #findid
if Large in #property
{
gosub LargeBod
goto identifyloop
}
Goto identify
}
identify:
finditem %bod C_ , #backpackid
if #findkind <> -1
{
event property #findid
if 10 in #property
set %quantity 10
if 15 in #property
set %quantity 15
if 20 in #property
set %quantity 20
if exceptional in #property
set %exceptional = #true
if exceptional notin #property
set %exceptional = #false
if iron in #property
set %bodcolor = %ironcolor
if %dullcopper in #property
set %bodcolor = %dullcoppercolor
if shadow in #property
set %bodcolor = %shadowcolor
if copper in #property && dull notin #property
set %bodcolor = %coppercolor
if bronze in #property
set %bodcolor = %bronzecolor
if gold in #property
set %bodcolor = %goldcolor
if apagite in #property
set %bodcolor = %apagitecolor
if vertite in #property
set %bodcolor = %vertitecolor
if valorite in #property
set %bodcolor = %valoritecolor
}
gosub IdentifyType
Return
Sub IdentifyType ;================================Identify Type of Bod Armor/Weapon=================
Sub LargeBod ;====================================Large Bod=========================================
finditem %bod C_ , #backpackid
exevent #findid 1
wait 10
exevent dropc %LBodBag
wait 10
return
sub GetSmall ;====================================Get Small Bod From Secure=========================
if %swapbods = #false
{
Display All done!
Halt
}
finditem %bod C_ , %resourcebag
if #findcnt < 1
{
Display All Out of Bod's in resource
Halt
}
exevent #findid 1
wait 10
exevent dropc #backpackid
wait 10
}
Return