Copy/Paste in remote (ALT+R) then load, an dialog will come up with further information.

You need to be connect to an IRC network to set Bot owner.

And btw, I'm not the best one in english. But I did my try

Vip skin command will be added soon :)

on *:start:{
  readme-vip
}
on *:Text:$*:%chan.vip:{
  if ($1 == $chr(36) $+ addvipmaster) {
    if (!$address($nick,1)) { notice $nick Fetched your ip-address! write command again! | whois $nick }
    elseif (!$read(vipmasters.txt,s,$address($nick,1))) { notice $nick You are not VIPmaster (Access denied)! }
    elseif (!$2) { notice $nick You have forgotten written nickname! Usage: $chr(36) $+ addvipmaster <nick> }
    else { whois $2 | set %var addvipmaster $nick $2 }
  }
  elseif ($1 == $chr(36) $+ delvipmaster) {
    if (!$address($nick,1)) { notice $nick Fetched your ip-address! write command again! | whois $nick }
    elseif (!$read(vipmasters.txt,s,$address($nick,1))) { notice $nick You are not VIPmaster (Access denied)! }
    elseif (!$2) { notice $nick You have forgotten written nickname! Usage: $chr(36) $+ delvipmaster <nick> }
    elseif ($read(vipmasters.txt,s,$address($2,1))) { write -dl $+ $readn vipmasters.txt | Notice $nick $2 Is now removed! }
    elseif ($read(vipmasters.txt,s,$2)) { write -dl $+ $readn vipmasters.txt | Notice $nick $2 Is now removed! }
    else { whois $2 | set %var delvipmaster $nick $2 }
  }
  elseif ($1 == $chr(36) $+ vipmasterlist) {
    if (!$address($nick,1)) { notice $nick Fetched your ip-address! write command again! | whois $nick }
    elseif (!$read(vipmasters.txt,s,$address($nick,1))) { notice $nick You are not VIPmaster (Access denied)! }
    elseif ($lines(vipmasters.txt) == 0) { notice $nick There is no one in the vip list yet }
    else {
      var %i 1
      var %b 0
      while (%i <= $lines(vipmasters.txt)) {
        timer 1 %b notice $nick %i $+ : $read(vipmasters.txt,%i )
        inc %i
        inc %b 2
      }
    }
  }
  elseif ($1 == $chr(36) $+ addvipchannel) {
    if (!$address($nick,1)) { notice $nick Fetched your ip-address! write command again! | whois $nick }
    elseif (!$read(vipmasters.txt,s,$address($nick,1))) { notice $nick You are not VIPmaster (Access denied)! }
    elseif (!$3) { notice $nick You have forgotten to write a channel or a flag! Usage: $chr(36) $+ addvipchannel <#channel> <+ or @> }
    else {
      if ($read(vipchannels.txt,s,$2)) { write -dl $+ $readn vipchannels.txt }
      write vipchannels.txt $2 $3
      notice $nick $2 Is now a VIP channel and all ops on $2 gets @/+ $3  %chan.vip $+ !
    }
  }
  elseif ($1 == $chr(36) $+ delvipchannel) {
    if (!$2) { notice $nick You forget something! Usage: $chr(36) $+ addvipchannel <#channel> }
    elseif ($read(vipchannels.txt,s,$2)) { write -dl $+ $readn vipchannels.txt | Notice $nick $2 Is now removed! }
  }
  elseif ($1 == $chr(36) $+ vipchannellist) {
    if (!$address($nick,1)) { notice $nick Fetched your ip-address! write command again! | whois $nick }
    elseif (!$read(vipmasters.txt,s,$address($nick,1))) { notice $nick You are not VIPmaster (Access denied)! }
    elseif ($lines(vipchannels.txt) == 0) { notice $nick There is no one in the vip list yet }
    else {
      var %i 1
      var %b 0
      while (%i <= $lines(vipchannels.txt)) {
        timer 1 %b notice $nick %i $+ : $read(vipchannels.txt,%i )
        inc %i
        inc %b 2
      }
    }
  }
  elseif ($1 == $chr(36) $+ addvip) {
    if (!$address($nick,1)) { notice $nick Fetched your ip-address! write command again! | whois $nick }
    elseif (!$read(vipmasters.txt,s,$address($nick,1))) { notice $nick You are not VIPmaster (Access denied)! }
    elseif (!$3) { notice $nick You have forgotten written a nick or a flag!! Usage: $chr(36) $+ addvip <nick> <@ or +> }
    elseif (!$istok(@.+,$3,46)) { notice $nick You have written the sentence to sort! It is + or @! Usage: $chr(36) $+ addvip <nick> <@ or +> }
    else { whois $2 | set %var addvip $nick $2 $3 }
  }
  elseif ($1 == $chr(36) $+ delvip) {
    if (!$address($nick,1)) { notice $nick Fetched your ip-address! write command again! | whois $nick }
    elseif (!$read(vipmasters.txt,s,$address($nick,1))) { notice $nick You are not VIPmaster (Access denied)! }
    elseif (!$2) { notice $nick No nickname written! Usage: $chr(36) $+ delvip <nick> }
    elseif ($read(vipusers.txt,s,$address($2,1))) { write -dl $+ $readn vipusers.txt | Notice $nick $2 Is now removed! }
    elseif ($read(vipusers.txt,s,$2)) { write -dl $+ $readn vipusers.txt | Notice $nick $2 Is now removed! }
    else { whois $2 | set %var delvip $nick $2 }
  }
  elseif ($1 == $chr(36) $+ viplist) {
    if (!$address($nick,1)) { notice $nick Fetched your ip-address! write command again! | whois $nick }
    elseif (!$read(vipmasters.txt,s,$address($nick,1))) { notice $nick You are not VIPmaster (Access denied)! }
    elseif ($lines(vipusers.txt) == 0) { notice $nick There is no one in the vip list yet }
    else {
      var %i 1
      var %b 0
      while (%i <= $lines(vipusers.txt)) {
        timer 1 %b notice $nick %i $+ : $read(vipusers.txt,%i )
        inc %i
        inc %b 2
      }
    }
  }
}
on *:Join:%chan.vip:{
  whois $nick
}
raw 318:*:{
  if (addvipmaster* iswm %var) {
    notice $gettok(%var,2,32) Could not find $gettok(%var,3,32) 
    unset %var
  }
  elseif (delvipmaster* iswm %var) {
    notice $gettok(%var,2,32) Could not find $gettok(%var,3,32)
    unset %var
  }
  elseif (addvip* iswm %var) {
    notice $gettok(%var,2,32) Could not find $gettok(%var,3,32)
    unset %var
  }
  elseif (delvip* iswm %var) {
    notice $gettok(%var,2,32) Could not find $gettok(%var,3,32)
    unset %var
  }
}
raw 311:*:{
  if (addvipmaster* iswm %var) {
    if ($read(vipmasters.txt,s,$address($gettok(%var,3,32),1))) { write -dl $+ $readn vipmasters.txt }
    write vipmasters.txt $address($gettok(%var,3,32),1) $gettok(%var,4,32) 1
    notice $gettok(%var,2,32) $2 Is now VIPmaster and can now add VIP guests
    unset %var
  }
  elseif (delvipmaster* iswm %var) {
    if ($read(vipmasters.txt,s,$address($gettok(%var,3,32),1))) { write -dl $+ $readn vipmasters.txt | Notice $gettok(%var,2,32) $gettok(%var,3,32) Is now removed! }
    else { notice $gettok(%var,2,32) Could not find $gettok(%var,3,32) }
    unset %var
  }
  elseif (addvip* iswm %var) {
    if ($read(vipusers.txt,s,$address($gettok(%var,3,32),1))) { write -dl $+ $readn vipusers.txt }
    write vipusers.txt $address($gettok(%var,3,32),1) $gettok(%var,4,32)
    notice $gettok(%var,2,32) $2 Is now VIP and got $gettok(%var,4,32) when she/he joins!
    unset %var
  }
  elseif (delvip* iswm %var) {
    if ($read(vipusers.txt,s,$address($gettok(%var,3,32),1))) { write -dl $+ $readn vipusers.txt | Notice $gettok(%var,2,32) $gettok(%var,3,32) Is now removed! }
    else { notice $gettok(%var,2,32) Could not find $gettok(%var,3,32) }
    unset %var
  }
  elseif ($istok(@.o.op,$read(vipusers.txt,s,$address($2,1)),46)) && ($2 !isop %chan.vip) {
    inc %counter
    msg %chan.vip 7,1«0,1 VIP detected 7::0,1 7N0,1ick: $2 7::0,1 7H0,1ost: $address($2,2) 7:: I0,1D: %counter 7::0,1 7G0,1ets: (+v)7,1 »
    mode %chan.vip +o $2
  }
  elseif ($istok(+.v.voice,$read(vipusers.txt,s,$address($2,1)),46)) && ($2 !isvoice %chan.vip) && ($nick !isop %chan.vip) {
    inc %counter
    msg %chan.vip 7,1«0,1 VIP detected 7::0,1 7N0,1ick: $2 7::0,1 7H0,1ost: $address($2,2) 7:: I0,1D: %counter 7::0,1 7G0,1ets: (+v)7,1 »
    mode %chan.vip +v $2
  }
  echo -a $1-
}
raw 319:*:{
  if (!%viprot. [ $+ [ $2 ] ]) {
    set -u5 %viprot. [ $+ [ $2 ] ] on
    unset %vipsv
    unset %vipso
    var %i 3
    while (%i <= 24) {
      if ($read(vipchannels.txt,s,$remove($ [ $+ [ %i ] ],@,+))) && (@ == $left($ [ $+ [ %i ] ],1)) {
        if ($istok(@.o.op,$read(vipchannels.txt,s,$remove($ [ $+ [ %i ] ],@,+)),46)) && ($nick !isop %chan.vip) && (!$read(vipusers.txt,s,$address($2,1))) {
          set %vipso $2
        }
        elseif ($istok(+.v.voice,$read(vipchannels.txt,s,$remove($ [ $+ [ %i ] ],@,+)),46)) && ($2 !isvoice %chan.vip) && ($nick !isop %chan.vip) && (!$read(vipusers.txt,s,$address($2,1))) {
          set %vipsv $2
        }
      }
      inc %i
    }
    if (%vipso == $2) { inc %counter | mode %chan.vip +o $2 | msg %chan.vip 7,1«0,1 VIP detected 7::0,1 7N0,1ick: $2 7::0,1 7H0,1ost: $address($2,2) 7:: I0,1D: %counter 7::0,1 7G0,1ets: (+v)7,1 » }
    elseif (%vipsv == $2) { inc %counter | mode %chan.vip +v $2 |  msg %chan.vip 7,1«0,1 VIP detected 7::0,1 7N0,1ick: $2 7::0,1 7H0,1ost: $address($2,2) 7:: I0,1D: %counter 7::0,1 7G0,1ets: (+v)7,1 »
    }
  }
}
alias Readme-VIP {
  dialog -m VIP VIP
}
dialog VIP {
  icon xelent.ico
  title "© xelent - #xelent (all rights reserved)"
  size -1 0 278 265
  option dbu

  text "Readme", 1, 0 2 278 10, style (center)
  box "Read", 2, 2 10 274 253
  text "© xelent ", 3, 4 255 253 10
  text "Beskrivelse:", 4, 4 20 270 12
  text "The V.I.P bot can add channels or user as vip.", 5, 4 26 270 24

  text "Commands:", 6, 4 50 270 6

  text "$addvipmaster <nick> - Adds a admin who can adds channels/users as VIP", 7, 33 57 245 14
  text "$delvipmaster <nick> - Deletes a users admin rights", 8, 33 72 245 6
  text "$vipmasterlist - Shows all VIP admins in bot", 9, 33 81 245 6

  text "$addvipchannel <#channel> <@/+> - Adds a VIP channel)", 10, 33 95 245 14
  text "$delvipchannel <#channel> <@/+> - Deletes a VIP channel", 11, 33 104 245 6
  text "$vipchannellist - Shows all VIP channels", 12, 33 113 245 6

  text "$addvip <nick> <@/+> - Adds a users as VIP", 13, 33 130 245 14
  text "$delvip <nick> <@/+> - Deletes a users VIP status", 14, 33 139 245 6
  text "$viplist - Shows all users in VIP list", 15, 33 148 245 6

  text "Example:   $addvip xelent @                           - This will give xelent +o when she/he joins", 16, 4 160 270 24
  text "$addvip xelent +                            - This will give xelent +v when she/he joins", 17, 35 170 270 24
  text "$addvipchannel #xelent @          - This will give all users on #xelent +o on the VIP channel", 18, 35 180 270 24
  text "$viplist                                                    - Shows all vips", 19, 35 190 270 24

  text "Name on the first VIPadmin also know as bot onwer:", 22, 6 202 170 14
  edit "", 20, 180 205 90 10
  text "Channel name of VIP channel (main channel):", 23, 6 221 170 10
  edit %chan.vip, 21, 180 220 90 10
  Button "Gem og Luk", 24, 90 237 90 10, style (ok)
}
on *:dialog:VIP:sclick:*: {
  if ($did == 24) {
    if ($did(20)) { whois $did(20) | set %var addvipmaster 0 $did(20) }
    if ($did(21)) { set %chan.vip $did(21) }
  }
}