Code:
On *:TEXT:!buyvip:#: {
  if ($read(vip.txt,nw,$nick)) { msg # You're already VIP user $+($nick,!) }
  else { 
    write vip.txt $nick
    msg # You're now vip $nick :)
  }
}