Was wondering if there was a way to get the weight of a keg for when you are making potions or a even a way to read what is written in the gump would be even better
any help would be appreciated.... thanks
Hi,
maybe this little test script gives you a few ideas (Target an Item and it will read out the stuff),
check out the STR Commands in the Docs and I am sure you can get what you like !
Basic idea is to read out the text, narrow it down with the STR command
to your needs eg. cut out name or weight numbers and put this into a var to check on it
or calculate ...
; SUB Cut down Item Properties and Display
; This SUB will cut down Item Properties in single Lines
; and gives you the option to Display Lines you want
; and ignore Lines by setting up keywords
;
; Grab the ITEMID
Set #targcurs 1
Target
While #targcurs = 1
wait 0
; Check out the Property of the Item
FindItem #ltargetID
Event Property #FindID
; #Property hold the full String now, store it for later use
Set %FullProperty #Property
; Get the Number of Lines we have
STR COUNT %FullProperty $
; Setup StartParameters for Line Selection
Set %LineCounterMax #strRES
Set %CutLeftPos 1
Set %DisplayOK #TRUE
Set %LineCounter 1
; Check out what to Display and what to Ignore
Repeat
{
; Get the most right poition of our Line
STR POS %FullProperty $ %LineCounter
Set %CutRightPos #strRES
; to Cut it out we need the Length of the Line
Set %CutLength %CutRightPos - %CutLeftPos
; Cut out our Line from the Full Property
STR MID %FullProperty %CutLeftPos %CutLength
; We got one Line out of the Property
Set %DisplayLine #strRES
; Set %DisplayOK to #FALSE when something we don't want is in Line
; excludes: lines with weight or insured or requirement
if weight in %DisplayLine || insured in %DisplayLine || requirement in %DisplayLine || Weapon , #SPC , Speed in %DisplayLine || Durability in %DisplayLine
Set %DisplayOK #FALSE
; Display Line and prevent from SPAM Alert
if %DisplayOK = #TRUE
{
Msg %DisplayLine $
STR LEN %DisplayLine
Set %WaitDelay #strRES * 5
Wait %WaitDelay ; #strRES
}
; Prepair for next Line
Set %DisplayOK #TRUE
Set %CutLeftPos %CutRightPos + 1
Set %LineCounter %LineCounter + 1
}
Until %LineCounter > %LineCounterMax
halt
