Ok, no tutorials in a while... I'm going to write a quick, down and dirty animal evaluator based on barding difficulty.
Whenever I start to write something I do a LOT of research.
I need to find out what makes up the barding difficulty... there's a formula somewhere that explains it and I'll find that formula, build a spreadsheet with the numbers from the desirable tames list, then figure out the min/max barding difficulty based on the animals numbers.
Once I have that data, I can start to put together a script.
Now... how the script will function. I like to lay it out first.
1 - Setup (if required)
2 - On button
3 - Use skill animal lore on the target
4 - Use Kals OCR on the lore gump to get the barding difficulty (BD)
5 - Compare the current animals BD to the min/max BD and give it a percentage
6 - Display that percentage above the animals head (hehe)
I can start to build the script now, even without all the data needed.
;set %lore_gumpX -110
set %lore_gumpY 565
set %kal_gumpX -80
set %kal_gumpY 550
set %Bake_Kitsune EH
set %Cu_Sidhe FN
set %Dragon DF_CD
set %Drake YE_XE
set %Fire_Beetle JJ
set %Fire_Steed YJ
set %Frenzied_Ostard KG
set %Giant_Beetle ZGB
set %Greater_Dragon DF_CD
set %Hiryu HH
set %Ki_rin SH
set %Lesser_Hiryu HH
set %Nightmare EC_UJ_TJ
set %Reptalon GN
set %Rune_Beetle CH
set %Swamp_Dragon MHB
set %Unicorn SC
set %White_Wyrm OJ_TE
********** Main Loop **********
SUO:
repeat
if #MENUBUTTON = Next
{
set #nextCposx %lore_gumpX
set #nextCposy %lore_gumpY
gosub lore
gosub ocr
gosub calculations
gosub display
gosub cleanup
}
until #CharGhost = YES
while #CharGhost = YES
wait 0
GoTo SUO
********** Subs **********
sub lore
event macro 13 2
target
while #targcurs = 1
wait 0
wait 5
finditem #ltargetid *
gosub pet_type_info
contpos %kal_gumpX %kal_gumpY
wait 5
return
sub ocr
call kalocr.txt getLoreInfo 7 value %kal_gumpX %kal_gumpY
set %barding_difficulty !lore_value
return
sub calculations
;
return
sub display
event ExMsg %targetID 2 0 %barding_difficulty
return
sub cleanup
gosub showEUOMenu1
wait 5
set #MENUBUTTON N/A
gosub OffsetClick 347 366 r
return
********** Data **********