on *:text:*:#:{
  if ($nick isop $chan) && ($strip($1) == !createfortune) {
    inc -u30 $+(%,_Fortune_F,.,$nick)
    if ($($+(%,_Fortune_F,.,$nick),2) == 2) { .notice $nick Please wait;p. | halt }
    if ($($+(%,_Fortune_F,.,$nick),2) >= 3) { halt }
    if (!$strip($2)) { .notice $nick wtf make soemthing ffs. | halt }
    if ($read(Fortune.txt,r,$2-)) { notice $nick $2- already exists | halt }
    write Fortune.txt $2-
    msg $chan Added: $2-
  }
  if ($strip($1) == !fortune) {
    inc -u30 $+(%,_Fortune_F2,.,$nick)
    if ($($+(%,_Fortune_F2,.,$nick),2) == 2) { .notice $nick Please wait;p. | halt }
    if ($($+(%,_Fortune_F2,.,$nick),2) >= 3) { halt }
    .Timer 1 3 Msg $chan $read(Fortune.txt)
  }
}

Your gunan have to make a loop to remove them tho if u want;p