[EasyUO] Calculate crafting BOD Points

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

[EasyUO] Calculate crafting BOD Points

Post by jackpod »

This script finds bod in your main backpack, then calculates points according to the UOEX wiki table.
Think it works well if you are looking to sort large collection of BODs.

Two things-
1. The script will only read 'ONE' bod in backpack; if you put many bods at once, script will only read the latest one had dropped into the bag.
2. Taming BODs are not supported yet (i have not went through the taming list yet, :shock: )


Please let me know how to improve the script, and i'll spend more time on it (as well as adding taming bod'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
;1/18/15 fixed few errors on reward list (indexing).

;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	$50% , #spc , Cloth , #spc , 1$50% , #spc , Colored , #spc , Loom
set %Reward50	$50% , #spc , Cloth , #spc , 2$50% , #spc , Colored , #spc , Loom
set %Reward100	$50% , #spc , Cloth , #spc , 3$50% , #spc , Leather
set %Reward150	$60% , #spc , Cloth , #spc , 4$30% , #spc , Leather$10% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward200	$40% , #spc , Cloth 5$40%, #spc ,  Leather$20% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +1
set %Reward300	$33% , #spc , Stretched , #spc , Hide$33% , #spc , Colored , #spc , Scissors$33% , #spc , Armor , #spc , of C, #spc , rafting , #spc , +1
set %Reward350	$50% , #spc , Spined , #spc , Runic , #spc , Sewing , #spc , Kit$50%, #spc ,  Colored , #spc , Scissors
set %Reward400	$60% , #spc , Tapestry$20% , #spc , Colored , #spc , Scissors$20% , #spc , Sturdy , #spc , Sewing , #spc , Kit
set %Reward450	$50% , #spc , Bear Rug$50% , #spc , Sturdy , #spc , Sewing , #spc , Kit
set %Reward500	$50% , #spc , Decorative , #spc , Item*$50% , #spc , Master's , #spc , Knife
set %Reward550	$33% , #spc , Clothing , #spc , Bless , #spc , Deed$33% , #spc , Decorative , #spc , Item*$33% Master's , #spc , Knife
set %Reward600	$50% , #spc , Horned , #spc , Runic , #spc , Sewing , #spc , Kit$50% , #spc , Master's , #spc , Knife
set %Reward650	$50% , #spc , Horned , #spc , Runic , #spc , Sewing , #spc , Kit$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3
set %Reward700	$50% , #spc , Barbed , #spc , Runic , #spc , Sewing , #spc , Kit$50% , #spc , Armor , #spc , of , #spc , , #spc , Crafting , #spc , +3
set %Reward750	$33% , #spc , Barbed , #spc , Runic , #spc , Sewing , #spc , Kit$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +3$33% , #spc , Gargoyle , #spc , Knife
set %Reward800	$33% , #spc , Polar , #spc , Runic , #spc , Sewing , #spc , Kit$33% , #spc , Charged , #spc , Dye , #spc , Tub$33% , #spc , Gargoyle , #spc , Knife
set %Reward850	$50% , #spc , Polar , #spc , Runic , #spc , Sewing , #spc , Kit$50% , #spc , Charged , #spc , Dye , #spc , Tub
set %Reward900	$50% , #spc , Synthetic , #spc , Runic , #spc , Sewing , #spc , Kit$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +5
set %Reward950	$50% , #spc , Blaze , #spc , Runic , #spc , Sewing , #spc , Kit$50% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +5
set %Reward1000	$33% , #spc , Daemonic , #spc , Runic , #spc , Sewing , #spc , Kit$33% , #spc , Tailor's , #spc , Protector$33% , #spc , Armor , #spc , of , #spc , Crafting , #spc , +5
set %Reward1050	$50% , #spc , Shadow , #spc , Runic , #spc , Sewing , #spc , Kit$50% , #spc , Tailor's , #spc , Protector
set %Reward1100	$50% , #spc , Frost , #spc , Runic , #spc , Sewing , #spc , Kit$50% , #spc , Bag , #spc , of , #spc , Resources
set %Reward1150	$50% , #spc , Ethereal , #spc , Runic , #spc , Sewing , #spc , Kit$50% , #spc , Bag , #spc , of , #spc , Resources
;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
Corn
Apprentice Scribe
Posts: 13
Joined: Tue Feb 10, 2015 1:03 pm

Re: [EasyUO] Calculate crafting BOD Points

Post by Corn »

Thanks nice script :D
Locked