Mine

on *:text:`addtdl *:*:{
  if ($nick isop # || $nick ishop #) { 
    var %num = 1
    while ($readini(toodolist.ini,$nick,%num) != $null) {
      inc %num
      continue
    }
    writeini toodolist.ini $nick %num $2-
  } 
}
on *:text:`tdl*:*:{
  var %num = 1
  while ($readini(toodolist.ini,$nick,%num) != $null) {
    notice $nick %num $readini(toodolist.ini,$nick,%num) 
    inc %num
  }
}
on *:text:`deltdl *:*:{
  if ($2 == all) { remini toodolist.ini $nick | halt }
  remini toodolist.ini $nick $2
}