[EASYUO] Script for bucklerst brit quest for fix

[mishev]

I have script for brit library bucklers donation BUT must be fixed plz if some on can help ,and fix just one line will be super script and all will be able to use it :}

__________________________________________________ __________________
The problem is wen start script . Script get metal from bank recall to smith [make bucklers] ,after this recall to library location near the quester for bucklers and click on him ..
AND STOP CANT FINED THE LINE FOR DONATE BUCKLERS [IF SOME ON CAN FIX IT I WILL POST THE SCRIPT HERE PLZ HELP AND POST IF YOU CAN MAKE IT RIGHT ....
================================================== ================================================== ================================================== ==========================================
; ################################################## ########
; Script Name: Guadah's Britian Library Donation Assistant
; Author: Guadah
; Version: 2.0
; Client Tested with: EA 6.0.3.1 (Patch 60)
; EUO version tested with: 1.5 Version 127
; Shard OSI / FS: OSI Servers
; Revision Date: N/A
; Public Release:
; Global Variables Used:
; Purpose: Donate Buckers to Britian Library
; ################################################## ########

;*********************************
; Setup: Mark 3 Locations in this Order
; 1. A Private Bank
; 2. Britian Library Quest Turn-in Near the NPC
; 3. A Remote Smithy to Craft Bucklers
; Once these 3 runes are in the SAME RUNEBOOK, Press Play.
;*********************************
Set %bckcnt 20 ; set number of bucklers you want to make here for weight issue
Set %MaxIngots 400 ; Set this to however many you want.
Set %MinIngots 200 ; Sets the minimum amount of ingots before grabbing more ingots.
;*********************************
Set %SmithTools TLH_FBG_GBG_OLH_OBG_TBG
Set %TinkerTools GTL_KTL_JTL
Set %Bucklers FIK
Set %Ingots ENK
Set %points 0

GoSub MainMenu
Set #menuButton N/A
Loop:
if #menuButton = Quit
{
Set #menuButton N/A
Display ok Thank you for using Guadah's Britian Library Donation Assistant.$
+$
+For more of my scripts visit www.WinUO.org$
+Use Guadah as a Reference$
+$
+Script will now Halt$
Halt
}
if #menuButton = Start
{
GoSub Start
}
Goto Loop

Sub MainMenu
Menu HideEUO
menu Window Title EUOMenu1
menu Window Color Silver
menu Window Size 225 133
menu Font Transparent #true
menu Font Name Times New Roman
menu Font Color Maroon
menu Window Title Guadah's Library Donation Assistant
menu Font Name Times New Roman
menu Font Size 14
Menu Shape TopGrey 6 3 209 2 4 7 1 White 5 White
Menu Shape WhiteBottom 6 27 209 2 4 7 1 Gray 5 Gray
Menu Shape LeftSide 6 3 2 25 4 7 1 White 5 White
Menu Shape RightSide 215 3 2 26 4 7 1 Gray 5 Gray
menu Text Title 11 5 Library Donation Assistant
menu Font BGColor Silver
Menu Font Size 12
menu font color black
; Menus Box around the Points & Status Updates
Menu Shape TopGrey 8 36 209 2 4 7 1 Gray 5 Gray
Menu Shape WhiteBottom 8 85 209 2 4 7 1 White 5 White
Menu Shape LeftSide 8 36 2 51 4 7 1 Gray 5 Gray
Menu Shape RightSide 215 36 2 51 4 7 1 White 5 White
Menu Text PointsLabel 15 40 Points Earned:
Set %Points 0
Menu Text Points 110 40 %Points
Menu Shape MarronBottom 26 60 168 1 4 7 1 Maroon 5 Maroon
Menu Font Size 12
Menu Text Titles 15 63 Script Status:
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Press Start to begin.
menu Font Color Maroon
menu Font Size 11
menu Button Start 10 93 90 25 Start
menu Button Quit 120 93 90 25 Quit
menu font color white
Menu Font Size 12
Menu Text Website 60 114 menu show
Return

[mishev]

; ################################################## ####
; ##### Main Loop (Takes you through the script) #####
; ################################################## ####
Sub Start
Menu Font Color Maroon
Menu Font Size 12
Menu Delete Start
Menu Button Pause 10 93 90 25 Pause

Event Macro 8 1
wait 1s
GoSub CheckPause
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Setting Paperdoll
contpos 640 100
wait 1s
GoSub CheckPause
Event Macro 8 7
wait 1s
GoSub CheckPause
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Setting Backpack
contpos 690 375
wait 1s
GoSub CheckPause
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Target your runebook
event ExMsg #charID 3 0 Please Target your Runebook.
Set #targCurs 1
SetTarget:
if #targCurs = 1
goto SetTarget
Set %Runebook #LTargetID
Set #LObjectID %Runebook
MainLoop:
GoSub Bank
GoSub CheckTools
GoSub RecallSmithy
GoSub Bucklers
GoSub TurnIn
GoTo MainLoop
Return

; ################################################## ####
; ##### Bank Sub (Opens Bank Box & Grabs Ingots) #####
; ################################################## ####
Sub Bank
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Recalling to Bank
;Set %Bank weayysd
Set %Ingots ENK
;Set %MaxIngots 400 ; Set this to however many you want.
;Set %MinIngots 200 ; Sets the minimum amount of ingots before grabbing more ingots.

Set #LObjectID %Runebook
event macro 17 0
gosub GumpWait generic_gump generic_gump
wait 20
contpos 0 0
wait 20
set %x #contposx + 140
set %y #contposy + 195 ; Selects Page 1
click %x %y
gosub GumpWait generic_gump generic_gump
wait 20
set %x #contposx + 140
set %y #contposy + 145 ; Recalls to Bank
click %x %y
wait 5s
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Banking
Event Macro 1 0 Bank
wait 3s
set %bank #contid
GoSub CheckPause
set %ingotgrab %MaxIngots ; This is to help count multiple stacks.
finditem ENK C_ , #backpackid
wait 5
if #findcnt > 0 && #findstack < %ingotgrab
{
SET %ingotgrab %ingotgrab - #findstack ; Subtracts the stack from the desired total.
}
if %ingotgrab > %MaxIngots - %MinIngots ; Only grabs ingots if you are bellow your min.
{
finditem ENK C_ , %Bank
wait 10
exEvent Drag #findID %ingotgrab
wait 10
exevent dropc #backpackid
wait 1s
}
GoSub CheckPause
Return

; ################################################## #####################
; ##### Check Tools Sub (Checks for Tinker Tools and Smith Tools) #####
; ################################################## #####################
Sub CheckTools
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Checking Tools
finditem %TinkerTools C_ , #backpackid
set #LOBJECTID #FINDID
if #FindCnt = -1
{
Display Ok You need atleast 1 Tinker Tool in your backpack.$
+Grab another and restart the script$
+Script has Halted!$
Halt
}
if #FindCnt <= 1
{
finditem %TinkerTools C_ , #backpackid
set #LOBJECTID #FINDID
event macro 17 0
wait 20
set %clickx #contposx + 25
set %clicky #contposy + 110 ; Selects Tool Category
click %clickx %clicky
wait 20
set %clickx #contposx + 230
set %clicky #contposy + 130 ; Creates Tinker Tool
click %clickx %clicky
wait 1s
set %clickx #contposx + 25
set %clicky #contposy + 410 ; Closes Window
click %clickx %clicky
}
GoSub CheckPause
SmithTools: ; Checks for Tongs
finditem %SmithTools C_ , #backpackid
set #LOBJECTID #FINDID
if #FindCnt >= 5
{
Return
}
finditem %TinkerTools C_ , #backpackid
set #LOBJECTID #FINDID
event macro 17 0
wait 20
set %clickx #contposx + 25
set %clicky #contposy + 110 ; Selects Tools Category
click %clickx %clicky
wait 20
set %clickx #contposx + 385
set %clicky #contposy + 270 ; Selects Next Page
click %clickx %clicky
wait 20
set %clickx #contposx + 230
set %clicky #contposy + 110 ; Creates Tong
click %clickx %clicky
wait 1s
set %clickx #contposx + 25
set %clicky #contposy + 410 ; Closes Window
click %clickx %clicky
GoSub CheckPause
GoTo SmithTools
Return

; ################################################## #####################
; ##### Bucklers Sub (Checks for Smith Tools and Crafts Bucklers) #####
; ################################################## #####################
Sub RecallSmithy
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Recalling to Smithy
Set #LObjectID %Runebook
event macro 17 0
gosub GumpWait generic_gump generic_gump
wait 20
contpos 0 0
wait 20
set %x #contposx + 175
set %y #contposy + 195 ; Selects Page 2
click %x %y
gosub GumpWait generic_gump generic_gump
wait 20
set %x #contposx + 140
set %y #contposy + 145 ; Recalls to Smithy
click %x %y
wait 4s
Return

Sub Bucklers
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Crafting Bucklers
finditem %SmithTools C_ , #backpackid
if #FindCnt <= 1
GoSub CheckTools
set #LOBJECTID #FINDID
event macro 17 0
gosub GumpWait generic_gump generic_gump
set %x #contposx + 30
set %y #contposy + 170
click %x %y ; Selects Sheild Category
gosub GumpWait generic_gump generic_gump
Bucklers:
GoSub CheckPause
set %x #contposx + 235
set %y #contposy + 70
click %x %y ; Creates the Buckler Shield
gosub GumpWait generic_gump generic_gump
finditem %SmithTools C_ , #backpackid
if #FindCnt <= 1
GoSub CheckTools
set #LOBJECTID #FINDID
event macro 17 0
Finditem %Bucklers C_ , #backpackid
if #FindCnt <= %bckcnt
Goto Bucklers
set %x #contposx + 25
set %y #contposy + 415
click %x %y ; Closes Gump Window
Return

; ################################################## #########################################
; ##### Turn-in Sub (Recalls to the Library, Finds NPC and Turns in Crafted Bucklers) #####
; ################################################## #########################################
Sub TurnIn
wait 2s
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Recalling to Library
Set %Bucklers FIK
Set %QuestNPC ODYM

RecallTurnIn:
Set #LObjectID %Runebook
event macro 17 0
gosub GumpWait generic_gump generic_gump
wait 20
contpos 0 0
wait 20
set %x #contposx + 140
set %y #contposy + 195 ; Selects Page 1
click %x %y
gosub GumpWait generic_gump generic_gump
wait 20
set %x #contposx + 300
set %y #contposy + 145 ; Recalls to Britian Library
click %x %y
wait 4s
Menu Delete scriptstatus
Menu Font Size 10
Menu Font Color Green
menu text scriptstatus 102 66 Turning In Bucklers
Finditem G_ , %QuestNPC
If FindKind = -1
GoTo RecallTurnIn
set %NPCX #findx
set %NPCY #findy
set #LOBJECTID #FINDID
Event Macro 17 0
wait 1s
Click 472 372
FindItem %Bucklers C_ , #backpackid
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
Finditem G_ , %QuestNPC
set %NPCX #findx
set %NPCY #findy
set #LOBJECTID #FINDID
Event Macro 17 0
TurnInBucklers:
Click 470 370 l
FindItem %Bucklers C_ , #backpackid
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
wait 10
GoSub AddPoints
if #FindCnt <= 0
{
Click 214 197 r
Return
}
GoSub CheckPause
goto TurnInBucklers
Return

; ################################
; ####### PAUSE SUB #######
; ################################
Sub CheckPause
if #menubutton = Pause
{
set #menubutton N/A
Menu Delete Pause
Menu Font Color Maroon
Menu Button Resume 10 93 90 25 Resume
}
if #menuButton = Quit
{
Display ok Thank you for using Guadah's Britian Library Donation Assistant.$
+$
+Get more of my scripts at www.WinUO.org$
+Just List Guadah as a Referral$
+$
+Script is Halting$
Menu Hide
Halt
}
else
{
return
}
Pause_loop:
If #menubutton = Resume
{
set #menubutton N/A
Menu Delete Resume
Menu Font Color White
Menu Button Pause 10 93 90 25 Pause
Return
}
if #menuButton = Quit
{
Display ok Thank you for using Guadah's Britian Library Donation Assistant.$
+$
+Get more of my scripts at www.WinUO.org$
+Just List Guadah as a Referral$
+$
+Script is Halting$
Menu Hide
Halt
}
Goto Pause_loop
Return
; ###############################################
; ######## ADD POINTS SUB ########
; ###############################################
Sub AddPoints
Menu Font Size 12
Menu Font Color Maroon
Set %points %points + 9
Menu Delete Points
Menu Text Points 110 40 %Points
Return

; ################################
; ####### WAIT SUB #######
; ################################
sub GumpWait
namespace push
namespace local GW
wait 10
set !timedelay #SCNT
while #SCNT <= !timedelay + 7
{
if #CONTNAME = %1 || #CONTNAME = %2
{
namespace pop
return #TRUE
}
}
namespace pop
return #FALSE

[mishev]

Attentione !!!!!

the script is broken so is not usefull if you can help to fix it copy it and plz post here to be able use for every one ......

[BlackBraveKnight]

I have script for brit library bucklers donation BUT must be fixed plz if some on can help ,and fix just one line will be super script and all will be able to use it :}

__________________________________________________ __________________
The problem is wen start script . Script get metal from bank recall to smith [make bucklers] ,after this recall to library location near the quester for bucklers and click on him ..
AND STOP CANT FINED THE LINE FOR DONATE BUCKLERS [IF SOME ON CAN FIX IT I WILL POST THE SCRIPT HERE PLZ HELP AND POST IF YOU CAN MAKE IT RIGHT ....

Ha lo script per craftare e donare i buckler alla libreria di Britain, ma 'sto script fa corretto e fixato. Se c'č qualcuno che riesce a trovare e correggere il problema, lo script potrą essere usato da tutti.

Quando lo script parte, prende il metallo dalla banca, si recalla dal fabbro, crafta i buckler, si recalla alla libreria vicino all'npc a cui consegnare i buckler, clicca su di lui... E si stoppa, bisogna completare/correggere la parte in cui consegna 'sti benedetti buckler. Se qualcuno ci riesce, lo script verrą postato pubblicamente. Fatelo, se potete, e postatelo qua.



P.S.: Grazie anche a nome mio.