[EasyUO] BOD points auto-calculator (non taming)

If you make a Client-side script you can publish it here for other players to use
Post Reply
jackpod
Expert Scribe
Posts: 37
Joined: Mon Dec 22, 2014 10:41 pm

[EasyUO] BOD points auto-calculator (non taming)

Post by jackpod »

Hello mates, been a long time!

This is a script I did write few years back, and now with new tailor rewards i thought someone could utilize this script as well. 8) This was written to use just for myself, so it may not have some features you would like to have (but if you leave comment below, i'll look at it at some point). The script basically reads A SINGLE bod deed in your main backpack -> then calculates and displays the points and rewards -> then awaits users input (ENTER Key in game client) to read the next deed -> repeat. I guess the convenience is that you do not have to calculate the points manually and travel to web-wiki to compare the score and given rewards on the table. Manual process was pretty tedious to me, so i decided to write a small script.

Current drawback of this script is that it does not target a bod in the backpack. In fact, you need to have just one deed that you'd like to read in your bag. Even if you have multiple deeds in your backpack, the script will only read the last one it had read over and over, until it does not see the same deed.

Lastly - this script does not work with taming bods.

I had glimpsed blacksmith, carp, and fletch rewards but they seem to be same so I only changed reward list of tailor.

Hope you enjoy, and don't forget to support others. Cheers!

-Jack S

Code: Select all

;Excelsior Shard, http://uoex.net/
;http://www.uoex.net/forum/viewtopic.php?f=39&t=9035
;by Jack Skellington 1/16/2015
;2015/1/18 fixed few errors on reward list (indexing).
;2018/2/28 updated list of tailor rewards from newer patch 4.2
;2018/2/28 note - few times it did add extra 100 points to total tailor point, on large bod. something to look into


;BOD score finder
;this is a vocational product, no updates will be guaranteed.


;NO TAMING!!!!!!!!!

;================================
;Main loop
main:
set #lpc 1000
FindItem EYM C_ , #BackPackID
if #FindCnt = 0
{
display ok Cannot Find BODs in backpack.
halt
}

if #FindCol = 458
{
display Currently not supporting Taming BOD.
halt
}

event property #FindID
set %BODName #property
if exceptional in #property
{
set %exceptional 1
}
str Count #property :
{
set %BodQty #strRes - 1
}

gosub GetBaseAmt

if #FindCol = 48
{
gosub CarpCal
}
if #FindCol = 88
{
gosub FletCal
}
if #FindCol = 1102
{
gosub BSCal
}
if #FindCol = 1155
{
gosub TailCal
}

set %RWScore #null
set %tenth #null
set %header #null
set %score #null
event ExMsg #CharID 3 50 press -Enter- to continue
repeat
      onhotkey enter
               goto main
until #false
;end Main Loop

;Subs
Sub GetBaseAmt
str pos #property make
set #strRes #strRes + 4
str del #property 1 #strRes
set %posDel #strRes
str pos #strRes $
set %pos1 #strRes
str del %posDel %pos1 1000
set %Amount #strRes
if %Amount = 10
{
set %score %score + 10
}
if %Amount = 15
{
set %score %score + 25
}
if %Amount = 20
{
set %score %score + 50
}
return

Sub WoodTypeBonusCal
if Pine in #property
{
set %score %score + 200
}
if Ash in #property
{
set %score %score + 250
}
if Mohogany in #property
{
set %score %score + 300
}
if Yew in #property
{
set %score %score + 350
}
if Oak in #property
{
set %score %score + 400
}
if Zircote in #property
{
set %score %score + 450
}
if Ebony in #property
{
set %score %score + 500
}
if Bamboo in #property
{
set %score %score + 550
}
if Purple , #spc , Heart in #property
{
set %score %score + 600
}
if Redwood in #property
{
set %score %score + 650
}
if Petrified in #property
{
set %score %score + 700
}
return


;eval by BOD type
Sub CarpCal
if %exceptional = 1
{
set %score %score + 200
}
if %BodQty = 2
{
set %score %score + 50
}
if %BodQty > 2
{
set %score %score + ( ( %BodQty - 2 ) * 100 )
}
gosub WoodTypeBonusCal
;carp reward list
set %Reward50	$75% , #spc , Sturdy , #spc , Axe$25% , #spc , Boards
set %Reward200	$75% , #spc , Gargoyle , #spc , Axe$25% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward250	$75% , #spc , Gargoyle , #spc , Axe$25% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward300	$75% , #spc , Gargoyle , #spc , Axe$25% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward350	$75% , #spc , Gargoyle , #spc , Axe$25% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward400	$66% , #spc , Prospector's , #spc , Axe$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward450	$50% , #spc , Stain , #spc ,  of , #spc , Durability$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward500	$75% , #spc , Pine , #spc , Runic , #spc , Saw$25% , #spc , Decorative , #spc , Item*
set %Reward550	$66% , #spc , Pine , #spc , Runic , #spc , Saw$33% , #spc , Decorative , #spc , Item*
set %Reward600	$50% , #spc , Ash , #spc , Runic , #spc , Saw$50% , #spc , Decorative , #spc , Item*
set %Reward650	$66% , #spc , Ash , #spc , Runic , #spc , Saw$33%, #spc ,  Nails , #spc , (?)***
set %Reward700	$50% , #spc , Mohogany , #spc , Runic , #spc , Saw$50% , #spc , Nails , #spc , (?)***
set %Reward750	$50% , #spc , Mohogany , #spc , Runic , #spc , Saw$50% , #spc , 120 , #spc , Carpentry , #spc , Powerscroll
set %Reward800	$33% , #spc , Yew , #spc , Runic , #spc , Saw$33% , #spc , 120 , #spc , Lumberjacking , #spc , Powerscroll$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward850	$33% , #spc , Yew , #spc , Runic , #spc , Saw$33% , #spc , +10 , #spc , Ancient , #spc , Carpentry , #spc , Hammer$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward900	$33% , #spc , Oak , #spc , Runic , #spc , Saw$33% , #spc , Evil , #spc , Decorative , #spc , Item**$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward950	$33% , #spc , Zircote , #spc , Runic , #spc , Saw$33% , #spc , +20 , #spc , Ancient , #spc , $Carpentry , #spc , Hammer$33% , #spc , Nails , #spc , (?)***
set %Reward1000	$33% , #spc , Ebony , #spc , Runic , #spc , Saw$33% , #spc , Evil , #spc , Decorative , #spc , Item**$33% , #spc , Nails , #spc , (?)***
set %Reward1050	$50% , #spc , Bamboo , #spc , Runic , #spc , Saw$50% , #spc , +30 , #spc , Ancient , #spc , Carpentry , #spc , Hammer
set %Reward1100	$50% , #spc , Purple , #spc , Heart , #spc , Runic , #spc , Saw$50% , #spc , Evil , #spc , Decorative , #spc , Item**
set %Reward1150	$50% , #spc , Redwood , #spc , Runic , #spc , Saw$50% , #spc , +40 , #spc , Ancient , #spc , Carpentry , #spc , Hammer
set %Reward1200	$50% , #spc , Petrified , #spc , Runic , #spc , Saw$50% , #spc , Evil , #spc , Decorative , #spc , Item**
set %Reward1250	$50% , #spc , Bag , #spc , of , #spc , Resources$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +5
;end carp reward list


;rewardCal begin
str len %score
if #strRes = 2
{
  if %score < 50
  {
  set %header #null
  set %RWScore 0
  }
  else
  {
  set %RWScore 50
  }
}
if #strRes > 2
{
  if #strres = 3
  {
  str left %score 1
  set %header #strRes
    str right %score 2
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
  }
  if #strres = 4
  {
  str left %score 2
  set %header #strRes
    str right %score 2
    set %tenth #strRes
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
    str right %score 2
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
  }
set %RWScore %header , %tenth
}
;rewardCal end

if %RWScore < 1250
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are , #spc , : , #spc , #spc , %score $
  + $$Reward: $ %Reward . %RWScore ;dot
  }
else
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are: , #spc , %score
  + $$Reward: $ %Reward1250
  }



return
;rewardCal end


if %RWScore <= 1150
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are: , #spc , %score
  + $Reward: $ %Reward . %RWScore ;dot
  }
else
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are: , #spc , %score
  + Reward: $ %Reward1150
  }

return ;end CarpCal



Sub FletCal
if %exceptional = 1
{
set %score %score + 200
}
if %BodQty = 3
{
set %score %score + 200
}
if %BodQty = 6
{
set %score %score + 400
}
gosub WoodTypeBonusCal
;fletch reward list
set %Reward50	$75% , #spc , Sturdy , #spc , Axe$25% , #spc , Boards
set %Reward200	7$5% , #spc , Gargoyle , #spc , Axe$25% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward250	7$5% , #spc , Gargoyle , #spc , Axe$25% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward300	7$5% , #spc , Gargoyle , #spc , Axe$25% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward350	7$5% , #spc , Gargoyle , #spc , Axe$25% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward400	$66% , #spc , Prospector's , #spc , Axe$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward450	$50% , #spc , Stain , #spc , of , #spc , Durability$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward500	$75% , #spc , Pine , #spc , Runic , #spc , Fletcher , #spc , Tools$25% , #spc , Decorative , #spc , Item*
set %Reward550	$66% , #spc , Pine , #spc , Runic , #spc , Fletcher , #spc , Tools$33% , #spc , Decorative , #spc , Item*
set %Reward600	$50% , #spc , Ash , #spc , Runic , #spc , Fletcher, #spc ,  Tools$50% , #spc , Decorative , #spc , Item*
set %Reward650	$66% , #spc , Ash , #spc , Runic , #spc , Fletcher , #spc , Tools$33% , #spc , 5-use , #spc , Dip , #spc , Tub**
set %Reward700	$50% , #spc , Mohogany , #spc , Runic , #spc , Fletcher , #spc , Tools$50% , #spc , 5-use , #spc , Dip , #spc , Tub**
set %Reward750	$50% , #spc , Mohogany , #spc , Runic , #spc , Fletcher , #spc , Tools$50% , #spc , 120 , #spc , Bowcraft/Fletching , #spc , Powerscroll
set %Reward800	$33% , #spc , Yew , #spc , Runic , #spc , Fletcher , #spc , Tools$33% , #spc , 120 , #spc , Lumberjacking , #spc , Powerscroll$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward850	$33% , #spc , Yew , #spc , Runic , #spc , Fletcher , #spc , Tools$33% , #spc , +10 , #spc , Ancient , #spc , Fletcher , #spc , Hammer$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward900	$33% , #spc , Oak , #spc , Runic , #spc , Fletcher , #spc , Tools$33% , #spc , +10 , #spc , Ancient , #spc , Fletcher , #spc , Hammer$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward950	$33% , #spc , Zircote , #spc , Runic , #spc , Fletcher , #spc , Tools$33% , #spc , +20 , #spc , Ancient , #spc , Fletcher , #spc , Hammer$33% , #spc , 25-use , #spc , Dip , #spc , Tub**
set %Reward1000	$33% , #spc , Ebony , #spc , Runic , #spc , Fletcher , #spc , Tools$33% , #spc , +20 , #spc , Ancient , #spc , Fletcher , #spc , Hammer$33% , #spc , 25-use , #spc , Dip , #spc , Tub**
set %Reward1050	$50% , #spc , Bamboo , #spc , Runic , #spc , Fletcher , #spc , Tools$50% , #spc , +30 , #spc , Ancient , #spc , Fletcher , #spc , Hammer
set %Reward1100	$50% , #spc , Purple , #spc , Heart , #spc , Runic , #spc , Fletcher , #spc , Tools$50% , #spc , +30 , #spc , Ancient , #spc , Fletcher , #spc , Hammer
set %Reward1150	$50% , #spc , Redwood , #spc , Runic , #spc , Fletcher , #spc , Tools$50% , #spc , +40 , #spc , Ancient , #spc , Fletcher , #spc , Hammer
set %Reward1200	$50% , #spc , Petrified , #spc , Runic , #spc , Fletcher , #spc , Tools$50% , #spc , +40 , #spc , Ancient , #spc , Fletcher , #spc , Hammer
set %Reward1250	$50% , #spc , 50-use , #spc , Dip , #spc , Tub**$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +5
;end fletch reward list


;rewardCal begin
str len %score
if #strRes = 2
{
  if %score < 50
  {
  set %header #null
  set %RWScore 0
  }
  else
  {
  set %RWScore 50
  }
}
if #strRes > 2
{
  if #strres = 3
  {
  str left %score 1
  set %header #strRes
    str right %score 2
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
  }
  if #strres = 4
  {
  str left %score 2
  set %header #strRes
    str right %score 2
    set %tenth #strRes
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
    str right %score 2
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
  }
set %RWScore %header , %tenth
}
;rewardCal end

if %RWScore < 1250
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are , #spc , : , #spc , #spc , %score $
  + $$Reward: $ %Reward . %RWScore ;dot
  }
else
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are: , #spc , %score
  + $$Reward: $ %Reward1250
  }
;rewardCal end

return ;end fletch



Sub BSCal
if %exceptional = 1
{
set %score %score + 200
}
if %BodQty > 1
{
  if Ringmail in #property
  {
  set %score %score + 200
  }
  if Chainmail in #property
  {
  set %score %score + 300
  }
  if Plate in #property
  {
  set %score %score + 400
  }
}
if Dull in #property
{
set %score %score + 200
set %copperRead 1
}
if Shadow , #spc , Iron in #property
{
set %score %score + 250
}
if Copper in #property && %copperRead <> 1
{
set %score %score + 300
}
if Bronze in #property
{
set %score %score + 350
}
if Gold in #property
{
set %score %score + 400
}
if Agapite in #property
{
set %score %score + 450
}
if Verite in #property
{
set %score %score + 500
}
if Valorite in #property
{
set %score %score + 550
}
if Blaze in #property
{
set %score %score + 600
}
if Ice in #property
{
set %score %score + 650
}
if Toxic in #property
{
set %score %score + 700
}
if Electrum in #property
{
set %score %score + 750
}
if Platinum in #property
{
set %score %score + 800
}
;BS reward list
set %Reward0	$50% , #spc , Sturdy , #spc , Shovel$50% , #spc , Sturdy , #spc , Smith , #spc , Hammer
set %Reward25	$50% , #spc , Sturdy , #spc , Pickaxe$50% , #spc , Sturdy , #spc , Smith , #spc , Hammer
set %Reward50	$90% , #spc , Sturdy , #spc , Shovel$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward100	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward125	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward150	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward175	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward200	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward250	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward275	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward300	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward325	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward350	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward375	$90% , #spc , Sturdy , #spc , Pickaxe$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward400	$90% , #spc , Prospector's , #spc , Tool$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward425	$90% , #spc , Prospector's , #spc , Tool$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward450	$50% , #spc , Powder , #spc , of , #spc , Fortifying$25% , #spc , Gargoyle , #spc , Pickaxe$25% , #spc , Decorative , #spc , Item*
set %Reward475  $50% , #spc , Powder , #spc , of , #spc , Fortifying$25% , #spc , Gargoyle , #spc , Pickaxe$25% , #spc , Decorative , #spc , Item*
set %Reward500	$33% , #spc , Dull , #spc , Copper , #spc , Runic , #spc , Hammer$33% , #spc , Gargoyle , #spc , Pickaxe$33% , #spc , Decorative , #spc , Item*
set %Reward525  $33% , #spc , Dull , #spc , Copper , #spc , Runic , #spc , Hammer$33% , #spc , Gargoyle , #spc , Pickaxe$33% , #spc , Decorative , #spc , Item*
set %Reward550	$60% , #spc , Dull , #spc , Copper , #spc , Runic , #spc , Hammer$40% , #spc , Shadow , #spc , Iron , #spc , Runic , #spc , Hammer
set %Reward575  $60% , #spc , Dull , #spc , Copper , #spc , Runic , #spc , Hammer$40% , #spc , Shadow , #spc , Iron , #spc , Runic , #spc , Hammer
set %Reward600	$50% , #spc , Shadow , #spc , Iron , #spc , Runic , #spc , Hammer$50% , #spc , Colored , #spc , Forge , #spc , Deed
set %Reward625	$75% , #spc , Shadow , #spc , Iron , #spc , Runic , #spc , Hammer$25% , #spc , Colored , #spc , Anvil , #spc , Deed
set %Reward650	$50% , #spc , Copper , #spc , Runic , #spc , Hammer$50% , #spc , Decorative , #spc ,  Item*
set %Reward675  $75% , #spc , Copper , #spc , Runic , #spc , Hammer$25% , #spc , Colored , #spc , Anvil , #spc , Deed
set %Reward700	$50% , #spc , Bronze , #spc , Runic , #spc , Hammer$50% , #spc , Decorative , #spc , Item*
set %Reward725  $50% , #spc , Bronze , #spc , Runic , #spc , Hammer$50% , #spc , Decorative , #spc , Item*
set %Reward750	$50% , #spc , Ancient , #spc , Smithy , #spc , Hammer , #spc , +10$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward775  $50% , #spc , Ancient , #spc , Smithy , #spc , Hammer , #spc , +10$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward800	$50% , #spc , Gargoyle , #spc , Pickaxe$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward825  $50% , #spc , Gargoyle , #spc , Pickaxe$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward850	$50% , #spc , Ancient , #spc , Smithy , #spc , Hammer , #spc , +15$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward875  $50% , #spc , Ancient , #spc , Smithy , #spc , Hammer , #spc , +15$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward900  $50% , #spc , Ancient , #spc , Smithy , #spc , Hammer , #spc , +15$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward925	$50% , #spc , Gold , #spc , Runic , #spc , Hammer$50% , #spc , Metal , #spc , Dye , #spc , Tub
set %Reward950  $50% , #spc , Gold , #spc , Runic , #spc , Hammer$50% , #spc , Metal , #spc , Dye , #spc , Tub
set %Reward975  $50% , #spc , Gold , #spc , Runic , #spc , Hammer$50% , #spc , Metal , #spc , Dye , #spc , Tub
set %Reward1000	$50% , #spc , Ancient , #spc , Smithy , #spc , Hammer , #spc , +30$50% , #spc , Metal , #spc , Dye , #spc , Tub
set %Reward1050	$50% , #spc , Agapite , #spc , Runic , #spc , Hammer$50% , #spc , Smither's , #spc , Protector
set %Reward1100	$50% , #spc , Ancient , #spc , Smithy , #spc , Hammer , #spc , +60$50% , #spc , Smither's , #spc , Protector
set %Reward1150	$50% , #spc , Verite , #spc , Runic , #spc , Hammer$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +5
set %Reward1200	$50% , #spc , Valorite , #spc , Runic , #spc , Hammer$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +5
set %Reward1250	$50% , #spc , Blaze , #spc , Runic , #spc , Hammer$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +5
set %Reward1300	$50% , #spc , Ice , #spc , Runic , #spc , Hammer$50% , #spc , Bag , #spc , of , #spc , Resources
set %Reward1350	$50% , #spc , Toxic , #spc , Runic , #spc , Hammer$50% , #spc , Bag , #spc , of , #spc , Resources
set %Reward1400	$50% , #spc , Electrum , #spc , Runic , #spc , Hammer$50% , #spc , Sharpening , #spc , Blade
set %Reward1450	$50% , #spc , Platinum , #spc , Runic , #spc , Hammer$50% , #spc , Sharpening , #spc , Blade
;end BS reward list


;rewardCal begin
str len %score
if #strRes = 2
{
  if %score < 25
  {
  set %header #null
  set %RWScore 0
  }
  if %score >= 25 && %score < 50
  {
  set %header #null
  set %RWScore 25
  }
  else
  {
  set %RWScore 50
  }
}
if #strRes > 2
{
  if #strres = 3
  {
  str left %score 1
  set %header #strRes
    str right %score 2
    if #strRes < 25
    {
    set %tenth 00
    }
    if #strRes >= 25 && #strRes < 50
    {
    set %tenth 25
    }
    if #strRes >= 50 && #strRes < 75
    {
    set %tenth 50
    }
    else
    {
    set %tenth 75
    }
  }
  if #strres = 4
  {
  str left %score 2
  set %header #strRes
    str right %score 2
    set %tenth #strRes
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
    str right %score 2
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
  }
set %RWScore %header , %tenth
}
;rewardCal end

if %RWScore <= 1450
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are , #spc , : , #spc , #spc , %score $
  + $$Reward: $ %Reward . %RWScore ;dot
  }
else
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are: , #spc , %score
  + $$Reward: $ %Reward1150
  }

return
;rewardCal end

return ;end BSCal


Sub TailCal
if %exceptional = 1
{
set %score %score + 100
}
if %BodQty > 3
{
set %score %score + ( ( %BodQty - 1 ) * 100 )
}
if Spined in #property
{
set %score %score + 50
}
if Horned in #property
{
set %score %score + 100
}
if Barbed in #property
{
set %score %score + 150
}
if Polar in #property
{
set %score %score + 200
}
if Synthetic in #property
{
set %score %score + 250
}
if Blaze in #property
{
set %score %score + 300
}
if Demonic in #property
{
set %score %score + 350
}
if Shadow in #property
{
set %score %score + 400
}
if Frost in #property
{
set %score %score + 450
}
if Ethereal in #property
{
set %score %score + 500
}

;tailor reward list
set %Reward0 Cloth , #spc , 1$Clolred , #spc , Loom$Charged , #spc , Dye , #spc ,  Tub
set %Reward50	Cloth , #spc , 2$Clolred , #spc , Loom$Charged , #spc , Dye , #spc ,  Tub
set %Reward100 Cloth , #spc , 3$Leather , #spc , Medallion$Sturdy , #spc , Sewing , #spc , Kit$Tailor's , #spc , Florin
set %Reward150 Cloth , #spc , 4$Leather , #spc , Medallion$Sturdy , #spc , Sewing , #spc , Kit$Tailor's , #spc , Florin
set %Reward200 Cloth 5$Armor , #spc , of , #spc , Crafting , #spc , +1$Leather , #spc , Medallion$Florin
set %Reward300 Stretched , #spc , Hide$Armor , #spc , of , #spc , Crafting , #spc , +1$Leather , #spc , Medallion$Florin
set %Reward350 Runic , #spc , Kit , #spc , 1$Armor , #spc , of , #spc , Crafting , #spc , +1$Master's , #spc , Knife$Florin
set %Reward400 Tapestry$Master's , #spc , Knife$Flair , #spc , Item$Florin$Leather , #spc , Medallion
set %Reward450 Bear Rug$Master's , #spc , Knife$Flair , #spc , Item$Florin$Stretched , #spc , Hide
set %Reward500 Decorative , #spc , Item*$Sealant , #spc , of , #spc , Durability$Flair , #spc , Item$Bear , #spc , Rug$Tapestry
set %Reward550 Clothing , #spc , Bless , #spc , Deed$Sealant , #spc , of , #spc , Durability$Decorative , #spc , Item*$F lorin
set %Reward600 Runic , #spc , Kit , #spc , 2$Sealant , #spc , of , #spc , Durability$110 , #spc , Powerscroll$Florin
set %Reward650 Runic , #spc , Kit , #spc , 2$Armor , #spc , of , #spc , Crafting , #spc , +3$Runic , #spc , Kit , #spc , 3$Sealant , #spc , of , #spc , Durability$Leather , #spc , Medallion
set %Reward700 Runic , #spc , Kit , #spc , 3$Armor , #spc , of , #spc , Crafting , #spc , +3$Flair , #spc , Item$Sealant , #spc , of , #spc , Durability$Leather , #spc , Medallion
set %Reward750 Runic , #spc , Kit , #spc , 3$Armor , #spc , of , #spc , Crafting , #spc , +3$Flair , #spc , Item$Gargoyle's , #spc , Knife$Runic , #spc , Kit , #spc , 4
set %Reward800 Runic , #spc , Kit , #spc , 4$Gargoyle's , #spc , Knife$Flair , #spc , Item$Leather , #spc , Medallion$Florin
set %Reward850 Runic , #spc , Kit , #spc , 4$Gargoyle's , #spc , Knife$Leather , #spc , Medallion$Florin$Runic , #spc , Kit , #spc , 5
set %Reward900 Runic , #spc , Kit , #spc , 5$Bag , #spc , of , #spc , Resources$Leather , #spc , Medallion$Runic , #spc , Kit , #spc , 6$115 , #spc , Powerscroll
set %Reward950 Runic , #spc , Kit , #spc , 6$Bag , #spc , of , #spc , Resources$Leather , #spc , Medallion$Runic , #spc , Kit , #spc , 7$Florin$Flair , #spc , Item
set %Reward1000	Runic , #spc , Kit , #spc , 7$Armor , #spc , of , #spc , Crafting , #spc , +5$Leather , #spc , Medallion$Deco2$Florin$Flair , #spc , Item
set %Reward1050	Runic , #spc , Kit , #spc , 8$Armor , #spc , of , #spc , Crafting , #spc , +5$Leather , #spc , Medallion$Deco2$Florin$Flair , #spc , Item
set %Reward1100	Runic , #spc , Kit , #spc , 9$Armor , #spc , of , #spc , Crafting , #spc , +5$Florin
set %Reward1150	Runic , #spc , Kit , #spc , 10$5Warp-Welt , #spc , Shirt$120 , #spc , Powerscroll$Florin
;end tailor reward list


;rewardCal begin
str len %score
if #strRes = 2
{
  if %score < 50
  {
  set %header #null
  set %RWScore 0
  }
  else
  {
  set %RWScore 50
  }
}
if #strRes > 2
{
  if #strres = 3
  {
  str left %score 1
  set %header #strRes
    str right %score 2
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
  }
  if #strres = 4
  {
  str left %score 2
  set %header #strRes
    str right %score 2
    set %tenth #strRes
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
    str right %score 2
    if #strRes < 50
    {
    set %tenth 00
    }
    else
    {
    set %tenth 50
    }
  }
set %RWScore %header , %tenth
}
;rewardCal end

if %RWScore <= 1150
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are , #spc , : , #spc , #spc , %score $
  + $$Reward: $ %Reward . %RWScore ;dot
  }
else
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are: , #spc , %score
  + $$Reward: $ %Reward1150
  }



return
;rewardCal end


if %RWScore <= 1150
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are: , #spc , %score
  + $Reward: $ %Reward . %RWScore ;dot
  }
else
  {
  display ok %BODName $
  + $Total , #spc , BOD , #spc , points , #spc , are: , #spc , %score
  + Reward: $ %Reward1150
  }

return ;end TailCal
Iago Venport
Elder Scribe
Posts: 181
Joined: Wed Aug 25, 2010 1:54 pm

Re: [EasyUO] BOD points auto-calculator (non taming)

Post by Iago Venport »

Very awesome script and super useful, thanks!

-Iago
jackpod
Expert Scribe
Posts: 37
Joined: Mon Dec 22, 2014 10:41 pm

Re: [EasyUO] BOD points auto-calculator (non taming)

Post by jackpod »

Hope the script runs well for you Iago! :mrgreen:
Iago Venport
Elder Scribe
Posts: 181
Joined: Wed Aug 25, 2010 1:54 pm

Re: [EasyUO] BOD points auto-calculator (non taming)

Post by Iago Venport »

worked perfectly...now just to get a script that will make and fill bods because i'm super lazy
jackpod
Expert Scribe
Posts: 37
Joined: Mon Dec 22, 2014 10:41 pm

Re: [EasyUO] BOD points auto-calculator (non taming)

Post by jackpod »

i was working on bod book filler script but got lazy as well.... :shock:
davethemage
Grandmaster Scribe
Posts: 89
Joined: Sun Aug 09, 2020 2:13 pm

Re: [EasyUO] BOD points auto-calculator (non taming)

Post by davethemage »

resurrecting an old post.. I found this amazing and super useful (especially when trying to sort out 500+ large bods) but anyone using this needs to know there is a flaw with variables...No variables are being reset to 0. So once you have this variable set to 1 it will always stay at one. This happens for exceptional, and BS bods. So once you do an exceptional it is set to 1 and always stays at one so if you do a normal after an exceptional it will display points as exceptional.

i added the following line here that fixed it.


display ok Cannot Find BODs in backpack.
halt
}
//add here to reset exceptional to 0.. otherwise it is always set to 1
set %exceptional 0

if #FindCol = 458
{
display Currently not supporting Taming BOD.
halt
IGN: Edwin Roach
Post Reply