rendered paste body[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=}