The Universal World Owner's Manual

$kSchoolBuildingNum = 10

Event( "AccessBuilding", "$kSchoolBuildingNum" )
{
    osdcreate(OSDBUILDING,"SchoolOSD", "Example School" ) 
    
    $liney = 10    
    $liney = ShowSkillButton( 10, 20, 100 )   // Skill num 10, 20 game days to learn, costs 100d
    $liney = ShowSkillButton( 12, 25, 200 )   // Skill num 12, 25 game days to learn, costs 200d
    $liney = ShowSkillButton( 16, 28, 300 )   // Skill num 16, 28 game days to learn, costs 300d
    
    osdactivate() 
}

function ShowSkillButton( $liney, $skillNum, $learnTime, $cost )
{
    $skillName = sysGetSkillName( $skillNum )
    osdadd(EXITBUTTON, 100, $liney, 400, 30, "Buy|$skillNum|$learntime|$cost", "Learn $skillName") 
    $liney += 35
    $priceText = sysGetPriceText( $cost )
    $learntimetext = sysGetRealTimeTextForDays( $learnTime )
    osdtextcentre( 300, $liney, "Costs $priceText, learnt in $learntimetext" )
    $liney += 20
    
    return( $liney )    
}

Event( "OSDSelect", "SchoolOSD:Buy" )
{
    $skillNum = $gParam[1]
    $learntime = $gParam[2]
    $cost = $gParam[3]

    $amountPaid = sysRemoveWealth( $cost, "Education Fees")
    if ( $amountPaid == $cost )
    {
        *addskill %PLAYER% $skillNum $learntime
    } 
}