[aliases]
n0=;startvhost {
n1=;  if ($network == Home) || ($network == SebaPlanet) {
n2=;    if (!%vhost. [ $+ [ $nick ] ]) {
n3=;      set %vhost.level. $+ $nick user
n4=;      set %vhost. $+ $nick 10 
n5=;      /guser 2 $nick 8
n6=;      msg $chan 3Account created for: (10 $nick 3)
n7=;    }
n8=;    if (%vhost. [ $+ [ $nick ] ] == -1) {
n9=;      inc %vhost. $+ $nick
n10=;      msg $chan 3Remaining credits:10 %vhost. [ $+ [ $nick ] ]
n11=;      dec %vhost. $+ $nick
n12=;      halt
n13=;    }
n14=;    msg $chan 3Remaining credits:10 %vhost. [ $+ [ $nick ] ]
n15=;  }
n16=;}
n17=
n18=vhost {
n19=  if (!$1) {
n20=    msg $chan 3You must specify a vhost10 $nick | halt
n21=  }
n22=  if ($readini vhosts\user.list users $nick == $null) {
n23=    msg $chan 3You must create an account first $nick | halt
n24=  }
n25=  if (%vhost. [ $+ [ $nick ] ] <= 0) {
n26=    msg $chan 3You need more credits to change your vhost.  Please ask for some. | halt
n27=  }
n28=  ;if ($network isin $1) {
n29=  ;  msg $chan 3That vhost is reserved for system Admins. Please choose another vhost | halt
n30=  ;}
n31=  if !$regex($$1,/^(?:[-a-zA-Z0-9.]*)$/) { 
n32=    msg $chan 3Sorry, Your vhost may only contain 10( a-z, A-Z, 0-9, '-' & '.' ) | halt
n33=  }
n34=  if ($chr(32) isin $1-) { 
n35=    msg $chan 3Please type the vhost you want without space(s). | halt 
n36=  }
n37=  if ($regex($1-,%vhost.ban)) {
n38=    msg $chan 3Sorry that vhost contains a banned word. Please choose another vhost | halt 
n39=  }
n40=  /chghost $nick $1
n41=  set %vhosted. $+ $nick yes
n42=  msg $chan 3Your vhost has been changed to: (10 $1 3)
n43=  if (%vhost. [ $+ [ $nick ] ] == Unlimited) halt
n44=  if (%vhost. [ $+ [ $nick ] ] != 1) { 
n45=    dec %vhost. $+ $nick | halt
n46=  }
n47=  if (%vhost. [ $+ [ $nick ] ] == 1) {
n48=    set %vhost. $+ $nick -1
n49=  }
n50=}
n51=
n52=ident {
n53=  if ($readini vhosts\user.list users $nick == $null) {
n54=    msg $chan 3You must start up an account first $nick | halt
n55=  }
n56=  if (%vhost. [ $+ [ $nick ] ] <= 0) {
n57=    msg $chan 3You need more credits to change your ident.  Please ask for some. | halt
n58=  }
n59=  if ($regex($1-,%vhost.ban)) {
n60=    msg $chan 3Sorry that ident contains a banned word. Please choose another vhost | halt 
n61=  }
n62=  if !$regex($$1,/^(?:[-a-zA-Z0-9.]*)$/) { 
n63=    msg $chan 3Sorry, Your ident may only contain 10( a-z, A-Z, 0-9, '-' & '.' ) | halt
n64=  }
n65=  if ($len($1) > 8) {
n66=    msg $chan 3Sorry, your ident must be less than 8 characters | halt
n67=  }
n68=  if ($len($1) <= 8) {
n69=    chgident $nick $1 
n70=    set %vhosted. $+ $nick yes
n71=    msg $chan 3Ident changed to: (10 $1 3)
n72=    if (%vhost. [ $+ [ $nick ] ] == Unlimited) halt
n73=    if (%vhost. [ $+ [ $nick ] ] != 1) {
n74=      dec %vhost. $+ $nick | halt
n75=    }
n76=  }
n77=  if (%vhost. [ $+ [ $nick ] ] == 1) {
n78=    set %vhost. $+ $nick -1
n79=  }
n80=}
n81=
n82=name {
n83=  if ($readini vhosts\user.list users $nick == $null) {
n84=    msg $chan 3You must start up an account first $nick | halt
n85=  }
n86=  if (%vhost. [ $+ [ $nick ] ] <= 0) {
n87=    msg $chan 3You need more credits to change your name.  Please ask for some. | halt
n88=  }
n89=  if ($regex($1-,%vhost.ban)) {
n90=    msg $chan 3Sorry that name contains a banned word. Please choose another vhost | halt 
n91=  }
n92=  if !$regex($$1,/^(?:[-a-zA-Z0-9.]*)$/) { 
n93=    msg $chan 3Sorry, Your name may only contain 10( a-z, A-Z, 0-9, '-' & '.' ) | halt
n94=  }
n95=  chgname $nick $1- 
n96=  msg $chan 3Name changed to: (10 $1- 3)
n97=  set %vhosted. $+ $nick yes
n98=  if (%vhost. [ $+ [ $nick ] ] == Unlimited) halt
n99=  if (%vhost. [ $+ [ $nick ] ] != 1) {
n100=    dec %vhost. $+ $nick | halt
n101=  }
n102=  if (%vhost. [ $+ [ $nick ] ] == 1) {
n103=    set %vhost. $+ $nick -1
n104=  }
n105=}
n106=
n107=status {
n108=  if ($2 == $null) set %nick $nick
n109=  if ($2 != $nick) set %nick $2
n110=  if ($2 == $nick) set %nick $nick
n111=  if ($readini vhosts\user.database, user, %nick == $null) {
n112=    msg $chan 3User not found. Please use a proper username or start an account. | halt
n113=  }
n114=  if (%vhost. [ $+ [ $1 ] ] == -1) {
n115=    msg $chan 3Credits remaining for $1 $+ :10 0
n116=    halt
n117=  }
n118=  msg $chan 3Credits remaining for $1 $+ :10 %vhost. [ $+ [ $1 ] ] | halt
n119=}
n120=
n121=addvcredit {
n122=  if ($readini vhosts\user.list users $1 == $null) {
n123=    msg $chan 3No account detected for $1 | halt
n124=  }
n125=  if (%vhost.level. [ $+ [ $nick ] ] == Admin) || (%vhost.level. [ $+ [ $nick ] ] == Owner) {
n126=    if (%vhost. [ $+ [ $1 ] ] == Unlimited) halt
n127=    if ($calc(%vhost. [ $+ [ $1 ] ] + $2) <= -2) {
n128=      msg $chan 3User does not have that many credits.  Please choose a different amount | halt
n129=    }
n130=    if (%vhost. [ $+ [ $1 ] ] == -1) {
n131=      inc %vhost. $+ $1
n132=    }
n133=    set %vhostadd. $+ $1 $calc(%vhost. [ $+ [ $1 ] ] + $2)
n134=    set %vhost. $+ $1 %vhostadd. [ $+ [ $1 ] ]
n135=    unset %vhostadd.*
n136=    msg $chan 3Credits for $1 $+ :10 %vhost. [ $+ [ $1 ] ] 
n137=    if (!%vhost. [ $+ [ $1 ] ]) {
n138=      dec %vhost. $+ $1
n139=    }
n140=    halt
n141=  }
n142=}
n143=
n144=delvcredit {
n145=  if ($readini vhosts\user.list users $1 == $null) {
n146=    msg $chan 3No account detected for $1 | halt
n147=  }
n148=  if (%vhost.level. [ $+ [ $nick ] ] == Admin) || (%vhost.level. [ $+ [ $nick ] ] == Owner) {
n149=    if (%vhost. [ $+ [ $1 ] ] == Unlimited) halt
n150=    if ($calc(%vhost. [ $+ [ $1 ] ] - $2) <= -2) {
n151=      msg $chan 3User does not have that many credits.  Please choose a different amount | halt
n152=    }
n153=    if (%vhost. [ $+ [ $1 ] ] == -1) {
n154=      msg $chan 3User has no credits
n155=    }
n156=    set %vhostdel. $+ $1 $calc(%vhost. [ $+ [ $1 ] ] - $2)
n157=    set %vhost. $+ $1 %vhostdel. [ $+ [ $1 ] ]
n158=    unset %vhostdel.*
n159=    msg $chan 3Credits for $1 $+ :10 %vhost. [ $+ [ $1 ] ]
n160=    if (!%vhost. [ $+ [ $1 ] ]) {
n161=      dec %vhost. $+ $1
n162=    }
n163=    halt
n164=  }
n165=}
n166=
n167=changelevel {
n168=  if ($readini vhosts\user.list users $2 == $null) {
n169=    msg $chan 3User not found.  Please have them start an account | halt
n170=  }
n171=  if ($readini vhosts\admin.list Admin $nick == $null) {
n172=    msg $chan 4Breech of protocol Detected
n173=    msg $chan 3 $+ $nick you dont have the proper level to make that change.  Please talk to an admin
n174=    halt
n175=  }
n176=  if ($readini vhosts\admin.list Admin $nick != $null) && ($readini vhosts\user.database Login $nick == yes) {
n177=    if ($1 == !addadmin) {
n178=      if ($readini vhosts\admin.list Admin $2 != $null) {
n179=        msg $chan 3 $+ $2 is already in the admin list.  Stop trying to add admins n00b.
n180=        set %vhost. $+ $2 Unlimited
n181=        halt
n182=      }
n183=      if ($readini vhosts\admin.list Admin $2 == $null) {
n184=        /userhost $2
n185=        timer 1 5 /writeini vhosts\admin.list Admin $2 %userhost.regex
n186=        timer 1 5 /writeini vhosts\user.database Accounts $2 %userhost.regex
n187=        timer 1 5 /msg $2 You have been added as a Vhost bot Admin.  Please set a password with /msg $me setpass yourpass
n188=        timer 1 5 /msg $chan 3 $+ $2 added as an admin
n189=        set %vhost. $+ $2 Unlimited
n190=        halt
n191=      }
n192=    }
n193=    if ($1 == !deladmin) {
n194=      /msg memoserv send Dragon_Legion Admin level removal requested by $nick for $2 
n195=    }
n196=  }
n197=  if ($readini vhosts\owner.list Owner $nick != $null) && ($readini vhosts\user.database Login $nick == yes) {
n198=    if ($1 == !deladmin) {
n199=      if ($readini vhosts\admin.list Admin $2 != $null) {
n200=        /remini vhosts\admin.list Admin $2
n201=        set %vhost. $+ $2 10
n202=        halt
n203=      }
n204=      if ($readini vhosts\admin.list Admin $2 == $null) {
n205=        notice $nick That user is not at Admin level.
n206=        halt
n207=      }
n208=    }
n209=  }
n210=}
n211=
n212=checklevel {
n213=  if ($readini vhosts\admin.list Admin $nick != $null) {
n214=    if ($readini vhosts\user.list users $1 == $null) { 
n215=      set %vhost.levelck. $+ $1 none
n216=      goto finish
n217=    }
n218=    if ($readini vhosts\user.list users $1 != $null) {
n219=      set %vhost.levelck. $+ $1 User
n220=      if ($readini vhosts\admin.list Admin $1  == $null) {
n221=        goto finish
n222=      }
n223=      if ($readini vhosts\admin.list Admin $1 != $null) {
n224=        set %vhost.levelck. $+ $1 Admin
n225=        if ($readini vhosts\owner.list Owner $1 == $null) {
n226=          goto finish
n227=        }
n228=        if ($readini vhosts\owner.list Owner $1 != $null) {
n229=          set %vhost.levelck. $+ $1 Owner
n230=          goto finish
n231=        }
n232=      }
n233=      if ($readini vhosts\donator.list Donator $1 == $null) {
n234=        goto finish
n235=      }
n236=      if ($readini vhosts\donator.list Donator $1 != $null) {
n237=        set %vhost.levelck. $+ $1 Donator
n238=        goto finish
n239=      }
n240=    }
n241=    :finish
n242=    notice $nick $1 has a level of %vhost.levelck. [ $+ [ $1 ] ]
n243=    unset %vhost.levelck. $+ $1
n244=    halt
n245=  }
n246=}
n247=
n248=vcommands {
n249=  if ($readini vhosts\user.list users $nick == $null) {
n250=    notice $nick You need to start an account first.  Use !startup to start the account | halt
n251=  }
n252=  if ($readini vhosts\user.list users $nick != $null) {
n253=    notice $nick Your commands are: !ident (ident you want) [max size is 8 characters]
n254=    timer 1 1 notice $nick !vhost (Your vhost.  Must not contain spaces or banned words) [example: Allied.Dominance.Member]
n255=    timer 1 2 notice $nick !name (change your name.  May contain spaces but not special characters)
n256=    timer 1 3 notice $nick !status (nick) [shows the amount of credits availible to that person]
n257=    if ($readini vhosts\admin.list Admin $nick != $null) {
n258=      timer 1 4 notice $nick !addvcredit (nick) (amount) [adds credit to that person's account]
n259=      timer 1 5 notice $nick !delvcredit (nick) (amount) [deletes credit from that person's account]
n260=      timer 1 6 notice $nick !addadmin (nick) [adds user as an admin with unlimited vhost changes]
n261=      timer 1 7 notice $nick !deladmin (nick) [sends a notice to Dragon_Legion that you wish an admin removed]
n262=      timer 1 8 notice $nick !level (nick) [shows that person's level (admin, owner, user)]
n263=      timer 1 9 notice $nick !remaccount (nick) [removes that account from the bot]
n264=      timer 1 10 notice $nick !addbword (word) [adds a word to the bots banned word list]
n265=      if ($readini vhosts\owner.list Owner $nick != $null) {
n266=        timer 1 11 notice $nick !adddonator (nick) [adds a donator to the list]
n267=        timer 1 12 notice $nick !deldonator (nick) [moves a donator back to normal user list]
n268=        halt
n269=      }
n270=    }
n271=  }
n272=}
n273=
n274=remaccount {
n275=  if ($readini vhosts\admin.list Admin $nick != $null) || ($readini vhosts\owner.list Owner $nick != $null) {
n276=    if ($readini vhosts\user.list users $1 == $null) {
n277=      msg $chan 3 $+ $1 is not in my database
n278=    }
n279=    if ($readini vhosts\admin.list Admin $1 != $null) || ($readini vhosts\owner.list Owner $1 != $null) {
n280=      msg memoserv send Dragon_Legion Admin account removal for $1 requested by $nick
n281=      halt
n282=    }
n283=    if ($readini vhosts\donator.list Donator $1 != $null) {
n284=      msg $chan 4Warning:3 $1 cannot be removed because of 10Donator3 status
n285=      halt
n286=    }
n287=    if ($readini vhosts\user.list users $1 != $null) {
n288=      unset %vhost. $+ $1
n289=      /remini vhosts\user.list user $1
n290=      msg $chan 3 $+ $1 removed from vhost list
n291=    }
n292=  }
n293=}
n294=
n295=donator {
n296=  if ($readini vhosts\owner.list Owner $nick == $null) {
n297=    msg $chan 3 $+ $nick you do not have the permissions to change that.  If you wish to become a donator please email money for server to seba@tyrantsdomination.com
n298=    halt
n299=  }
n300=  if ($readini vhosts\owner.list Owner $nick != $null) {
n301=    if ($readini vhosts\user.list users $2 == $null) {
n302=      notice $nick No such user in database.  Please have them set up an account.
n303=      halt
n304=    }
n305=    if ($1 == !adddonator) {
n306=      if ($2 !ison $chan) {
n307=        notice $nick User needs to be in channel before I can change his/her level
n308=        halt
n309=      }
n310=      if ($2 ison $chan) {
n311=        /userhost $2
n312=        /timer 1 5 /writeini vhosts\donator.list Donators $2 %userhost.regex
n313=        set %vhost. $+ $2 Unlimited
n314=        set %vhost.level. $+ $2 Donator
n315=        notice $nick User level changed to:10 %vhost.level. [ $+ [ $2 ] ] with credits at:10 %vhost. [ $+ [ $2 ] ]
n316=        halt
n317=      }
n318=    }
n319=    if ($1 == !deldonator) {
n320=      if ($readini vhosts\donator.list Donators $2 == $null) {
n321=        notice $nick User is not in Donator database
n322=        halt
n323=      }
n324=      if ($readini vhosts\donator.list Donators $2 != $null) {
n325=        /remini vhosts\donator.list Donators $2
n326=        set %vhost. $+ $2 10
n327=        set %vhost.level. $+ $2 user
n328=        notice $nick User level changed to:10 %vhost.level. [ $+ [ $2 ] ] with credits at:10 %vhost. [ $+ [ $2 ] ]
n329=        halt
n330=      }
n331=    }
n332=  }
n333=}