alias top5 { 
  if (%trivia == ON) {
    set %nickn %right. [ $+ [ %ni ] ]
    set %nickna %ni $+ %pipe $+ %nickn $+ %pipe $+
    set %t1 $readini(top5.ini,#1, 1)
    set %t2 $readini(top5.ini,#2, 2)
    set %t3 $readini(top5.ini,#3, 3)
    set %t4 $readini(top5.ini,#4, 4)
    set %t5 $readini(top5.ini,#5, 5)
    set %t1s $gettok(%t1,2,124)
    set %t2s $gettok(%t2,2,124)
    set %t3s $gettok(%t3,2,124)
    set %t4s $gettok(%t4,2,124)
    set %t5s $gettok(%t5,2,124)
    set %t1n $gettok(%t1,1,124)
    set %t2n $gettok(%t2,1,124)
    set %t3n $gettok(%t3,1,124)
    set %t4n $gettok(%t4,1,124)
    set %t5n $gettok(%t5,1,124)



    if (%ni == %t1n) {
      /set %temp 1 | halt
    }
    elseif (%ni == %t2n) {
      /set %temp 2 | halt
    }
    elseif (%ni == %t3n) {
      /set %temp 3 | halt
    }
    elseif (%ni == %t4n) {
      /set %temp 4 | halt
    }
    elseif (%ni == %t5n) {
      /set %temp 5 | halt
    }
    else {
    }
    if (%nickn > %t1s) {
      /set %temps 1 | halt
    }
    elseif (%nickn > %t2s) {
      /set %temps 2 | halt
    }
    elseif (%nickn > %t3s) {
      /set %temps 3 | halt
    }
    elseif (%nickn > %t4s) {
      /set %temps 4 | halt
    }
    elseif (%nickn > %t5s) {
      /set %temps 5 | halt
    }
    else {
    }
    %tt = $calc(%temp - %temps)
    %tt2 = $calc(%tt - %temp)
    if (%t $+ %temps $+ s < %nickn) {
      writeini top5.ini # $+ %tt2 %tt2 %nickna
      writeini top5.ini # $+ %temp %temp %t $+ %temps
    } 
    else {
    }
  }
}