This script is (more or less) OSI Eval Int and Anatomy. May be some slight differences.

[code:1:0a26f5c07a]
//***********************
//EVALUATING INTELLIGENCE
//***********************
[function eval_int]
if ( >= 100)
messageu looks very intelligent.
elseif ( >= 80) && ( < 100)
messageu seems quite intelligent.
elseif ( >= 60) && ( < 80)
messageu is moderately intelligent.
elseif ( >= 40) && ( < 60)
messageu seems to be of average intelligence.
elseif ( >= 20) && ( < 40)
messageu is quite stupid.
else
messageu is extremely stupid.
endif
random 5
var.temp = /10) - 100) + (/))>
if (> > 0)
var.random =
if ( >= )
random 2
endif
if !(0) || (0 == 1)
messageu mental strength is at *100)/>%
else
messageu You were unable to determine mental strength.
endif
else
messageua You were unable to determine mental strength.
endif

//***********************
// ANATOMY
//***********************

[function succeed_anatomy]
random 10
if (> == 5)
var.success = 1
return 1
endif
if (> > 0) && !( == 1)
var.calc_fail = +- 1>
succeed_anatomy +- 1>
elseif ( == 1)
return 1
endif

[function brent]
if ( > 0)
random 5
if ( != 2)
brent +-1>
else
var.succeed = 1
return 1
endif
endif
return 0

[function use_anatomy]
var.color 00790
var.temp =
speechcolor = 00790
var.calc_fail = /100>
var.complete = 0
var.succeed =
brent >
var.calc_fail =
if (> == 1)
if ( >= 100)
messageu is superhumanly agile.
elseif ( >= 90) && ( < 100)
messageu is one of the fastest people you have ever seen.
elseif ( >= 80) && ( < 90)
messageu moves like quicksilver.
elseif ( >= 70) && ( < 80)
messageu is extraordinarily agile.
elseif ( >= 60) && ( < 70)
messageu is extremely agile.
elseif ( >= 50) && ( < 60)
messageu is very agile.
elseif ( >= 40) && ( < 50)
messageu is somewhat agile.
elseif ( >= 30) && ( < 40)
messageu is moderately dextrous.
elseif ( >= 20) && ( < 30)
messageu is somewhat uncoordinated.
elseif ( >= 10) && ( < 20)
messageu is very clumsy.
else
messageu It looks like can barely manage to stay standing.
endif
if ( >= 100)
messageu is superhumanly strong.
elseif ( >= 90) && ( < 100)
messageu is one of the strongest people you have ever seen.
elseif ( >= 80) && ( < 90)
messageu strong as an ox.
elseif ( >= 70) && ( < 80)
messageu is extraordinarily strong.
elseif ( >= 60) && ( < 70)
messageu is extremely strong.
elseif ( >= 50) && ( < 60)
messageu is very strong.
elseif ( >= 40) && ( < 50)
messageu is somewhat strong.
elseif ( >= 30) && ( < 40)
messageu is of normal strength.
elseif ( >= 20) && ( < 30)
messageu is somewhat weak.
elseif ( >= 10) && ( < 20)
messageu is rather feeble.
else
messageu It looks like would have trouble lifting small objects.
endif
if ( > 750)
messageu stamina is at *100)/>%
endif
else
messageu You can't think of anything about this creature.
endif
speechcolor =
[/code:1:0a26f5c07a]

Add this in Spheretables under SkillClass.
[code:1:0a26f5c07a]
on=@skillstart
if ( == skill_anatomy)
if ()
action = -1
sysmessage You must wait to perform another action.
return 1
endif
action = -1
src.targ.use_anatomy
newitem i_skill_delay
act.equip
act.timer = 4
endif

if ( == skill_evalint)
if ()
action = -1
sysmessage You must wait to perform another action.
return 1
endif
action = -1
src.targ.eval_int
newitem i_skill_delay
act.equip
act.timer = 4
endif

[itemdef i_skill_delay]
id = i_memory
name = custom anatomy
type = t_eq_script
weight = 0
layer = layer_special

on=@create
attr = attr_move_never | attr_invis | attr_newbie

on=@timer
remove
return 1
[/code:1:0a26f5c07a]

And for messageu

[code:1:0a26f5c07a][FUNCTION messageu]
VAR.ACT =
SRC.NEWITEM i_gold
SRC.ACT.P 5574,564,60
VAR.REVENTS
VAR.RFLAGS
SRC.ACT.REGION.FLAGS
SRC.REGION.EVENTS -0
IF ( != )
VAR.P
TOPOBJ.P 5574,564,60
VAR.SRCP
SRC.P 5574,564,60
SAYU
SRC.P
TOPOBJ.P
ELSE
VAR.SRCP
SRC.P 5574,564,60
SAYU
SRC.P
ENDIF
SRC.ACT.REGION.FLAGS
SRC.REGION.EVENTS
SRC.ACT.REMOVE
ACT = [/code:1:0a26f5c07a]

Lastly, fixaction (by Kell)
[code:1:0a26f5c07a]
[FUNCTION FIXACTION]
RETURN | 0D2000000
[/code:1:0a26f5c07a]