mIRCStorm V2.0.0 — File Browser
mIRCStormV2.0.0v2.0.0 / mIRCStormV2.0.0v2.0.0 / mIRCStormV2.0.0 / Scripts / CommandSource.mrc
CommandSource.mrc — 81.96 KB — Download this file
;mIRCStorm V2.0.0 - CommandSource.mrc
;
;Website: http://www.mIRCStorm.co.uk
;Author: Evil_Dave (Evil_Dave@mIRCStorm.co.uk)
;
;This Script Contains All Code For All Commands
;========================================================
;==================CommandSource.mrc=====================
;========================================================
alias /LastCom .notice $1 $readini Personality\ $+ %bot.Personality.file LastCommand LastCom
alias /DCCMe {
if ($readini database\mircStorm.chan global $1 > 9 ) {
/dcc chat $1
set %bot.last.com DCCME By $1 At $time $date
halt
}
else { .notice $1 $readini Personality\ $+ %bot.Personality.file DCC LowAccessDCCYourelf | halt }
}
alias /Help {
if ( $3 == $null ) {
set %bot.help.nick $1
set %bot.help.chan $2
set %bot.last.com Help By $1 At $time $date
set %bot.dcc.command Help (Menu) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
/bot.help
halt
}
else {
set %bot.help.what $3
set %bot.help.nick $1
set %bot.help.chan $2
set %bot.dcc.command Help ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
/bot.help.what
halt
}
}
alias /Remuser {
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Remuser YouDidntGiveANick | halt }
if ( ( $4 != $null ) && ( $4 != global ) ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Remuser RemoveINFOForGlobal1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Remuser RemoveINFOForGlobal2 | halt }
/who $2
set %bot.last.com Remuser $3 $4 $5 By $1 At $time $date
//set %bot.temp.remuser [ $readini database\mircStorm.user Users $3 ]
if ( ($readini database\mircStorm.chan global $3 == 100) && ($4 == global) ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Remuser CannotRemFullAccess | halt }
if ( $4 == global ) {
if ( $readini database\mircStorm.chan global $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Remuser UserNotInGlobalList | halt }
if ( $readini database\mircStorm.chan global $1 > $readini database\mircStorm.chan global $3 ) {
/remini database\mircStorm.chan global $3
if ( $read -w* [ $+ [ $3 ] ] $+ * database/mircStorm.chan == $null ) { /remini database\mircStorm.GID mircStorm %bot.temp.remuser | /remini database\mircStorm.user Users $3 }
.msg %bot.home $readini Personality\ $+ %bot.Personality.file Remuser MSGHomeRemovedGlobalUser
.notice $1 $readini Personality\ $+ %bot.Personality.file Remuser GlobalUserRemovedMayHaveChannel
unset %bot.temp.remuser
halt
}
else { unset %bot.temp.remuser | .notice $1 $readini Personality\ $+ %bot.Personality.file Remuser HigherGlobalAccessNeededToRemoveUser | halt }
}
if ( $readini database\mircStorm.chan $2 $3 == $null ) { unset %bot.temp.remuser | .notice $1 $readini Personality\ $+ %bot.Personality.file Remuser UserNotInChannelListMayBeGlobal | halt }
if ( $readini database\mircStorm.chan global $1 == $null ) { set %bot.remuser.nick.level $readini database\mircStorm.chan $2 $1 }
else { set %bot.remuser.nick.level $readini database\mircStorm.chan global $1 }
if ( %bot.remuser.nick.level > $readini database\mircStorm.chan $2 $3 ) {
/remini database\mircStorm.chan $2 $3
if ( $read -w* [ $+ [ $3 ] ] $+ * database/mircStorm.chan == $null ) { /remini database\mircStorm.GID mircStorm %bot.temp.remuser | /remini database\mircStorm.user Users $3 }
.msg %bot.home $readini Personality\ $+ %bot.Personality.file Remuser MSGHomeRemovedUserFromChannel
.notice $1 $readini Personality\ $+ %bot.Personality.file Remuser UserHasBeenRemovedFromChannel
unset %bot.temp.remuser | halt
}
else { unset %bot.temp.remuser | .notice $1 $readini Personality\ $+ %bot.Personality.file Remuser HigherChannelAccessNeededToRemoveUser | halt }
}
else { set %bot.command.name Remuser | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias /Moduser {
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Moduser YouDidntGiveANick | halt }
if ( $4 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Moduser YouDidntGiveALevel | halt }
if ($4 == voicebot) { set %bot.temp.level 3 } | if ($4 == opbot) { set %bot.temp.level 4 } | if ($4 == chanvoice) { set %bot.temp.level 5 } | if ($4 == chanop) { set %bot.temp.level 6 } | if ($4 == chanmaster) { set %bot.temp.level 7 } | if ($4 == chanowner) { set %bot.temp.level 8 }
if ($4 == op) { set %bot.temp.level 9 } | if ($4 == master) { set %bot.temp.level 10 } | if ($4 == owner) { set %bot.temp.level 11 } | if ($4 == full) { set %bot.temp.level 100 }
set %bot.last.com Moduser $3 to level $4 $5 By $1 At $time $date
/who $2
;/msg $2 got here 1
set %bot.host.user [ $address($3,3) ]
if ( %bot.temp.level < 9 ) {
if ( ( $readini database\mircStorm.chan $2 $1 > %bot.temp.level ) || ( $readini database\mircStorm.chan global $1 > %bot.temp.level ) ) {
/writeini database\mircStorm.chan $2 $3 %bot.temp.level
.notice $1 $readini Personality\ $+ %bot.Personality.file Moduser UserHasBeenModifiedInChannel
.msg $2 $readini Personality\ $+ %bot.Personality.file Moduser MSGChanUserHasBeenModifiedInChannel
unset %bot.temp.level
halt
}
else { set %bot.command.name That Moduser | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
;/msg $2 got here 2
if ( %bot.temp.level >= 9 ) {
if ( $readini database\mircStorm.chan global $1 > %bot.temp.level ) {
/writeini database\mircStorm.chan global $3 %bot.temp.level
.notice $1 $readini Personality\ $+ %bot.Personality.file Moduser GlobalUserModifiedMayHaveChannel
.msg %bot.home $readini Personality\ $+ %bot.Personality.file Moduser MSGHomeGlobalUserModifiedMayHaveChannel
unset %bot.temp.level
halt
}
else { unset %bot.temp.level | set %bot.command.name That Moduser | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
}
;/msg $2 got here 3
else { set %bot.command.name Moduser | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias /adduser2 {
;$1 == $chan $2 == $nick $3 == $3 (nick to add) $4 == $4 (level typed)
if ( ($readini database\mircStorm.chan $1 $2 > 6 ) || ($readini database\mircStorm.chan global $2 != $null) ) {
.who $1
/reverseaccessfind $4
if ($result == 0) { .notice $nick $readini Personality\ $+ %bot.Personality.file Adduser UnknownLevel | halt }
set %bot.adduser.mask $address($3,3)
if (%bot.adduser.mask == $null ) { .notice $2 There Has Been An Error With Adduser. $3 $+ 's Mask/Host Has Not Been Found. This Will Likey Be Easily Solved By ANY User Joining The Channel, Try And Cycle The Channel. If The Problem Still Occurs Contact The People In %bot.home $+ . | halt }
if ($readini database\mircStorm.chan $1 $2 > $result) || ($readini database\mircStorm.chan global $2 > $result) {
if (($readini database\mircStorm.chan $1 $3 != $null) && ($result < 9 ) ) { .notice $nick $readini Personality\ $+ %bot.Personality.file Adduser HasAccessAlready | halt }
if ( [ $read -w* [ $+ [ $3 ] ] $+ * database/mircStorm.chan ] == $null ) {
if ($result > 8) {
/writeini -n database\mircStorm.user Users $3 %bot.adduser.mask
//writeini -n database\mircStorm.chan global $3 $result
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAddedGlobal1
.notice $2 $readini Personality\ $+ %bot.Personality.file Adduser IHaveAddedGlobal1
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAddedGlobal2
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAddedGlobal3
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAddedGlobal4
.msg $1 $readini Personality\ $+ %bot.Personality.file Adduser IHaveAddedGlobalMSGToChannel1
.saveini | unset %bot.adduser.mask | halt
} ;end of adduser if not know before and global user being added
if ($result < 9 ) {
/writeini -n database\mircStorm.user Users $3 %bot.adduser.mask
//writeini -n database\mircStorm.chan $1 $3 $result
.notice $2 I Have Added $3 As A $4 For $1 ( $+ %bot.adduser.mask $+ )
if ($result < 5) { .notice $3 $readini Personality\ $+ %bot.Personality.file Adduser BotBeenAddedMSGToBot | .msg $1 $readini Personality\ $+ %bot.Personality.file Adduser BotBeenAddedMSGToChannel | .saveini | unset %bot.adduser.mask | halt } ;if its a bot
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAdded1
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAdded2
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAdded3
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAdded4
.msg $1 $readini Personality\ $+ %bot.Personality.file Adduser IHaveAddedMSGToChannel1
.saveini | unset %bot.adduser.mask | halt
} ;end of adduser if user not know before and channel access being added
} ;end of check to see if user has beene added before or not
else {
if ($result > 8) {
/writeini -n database\mircStorm.user Users $3 %bot.adduser.mask
//writeini -n database\mircStorm.chan global $3 $result
.notice $2 $readini Personality\ $+ %bot.Personality.file Adduser IHaveAddedGlobalIfUserKnownBefore1
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAddedGlobalIfUserKnownBefore1
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAddedGlobalIfUserKnownBefore2
.msg $1 $readini Personality\ $+ %bot.Personality.file Adduser IHaveAddedGlobalMSGToChannelIfUserKnownBefore1
.saveini | unset %bot.adduser.mask | halt
} ;end of adduser if known and adding a global
else {
/writeini -n database\mircStorm.user Users $3 %bot.adduser.mask
//writeini -n database\mircStorm.chan $1 $3 $result
.notice $2 $readini Personality\ $+ %bot.Personality.file Adduser IHaveAddedIfUserKnownBefore1
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAddedIfUserKnownBefore1
.notice $3 $readini Personality\ $+ %bot.Personality.file Adduser HaveBeenAddedIfUserKnownBefore2
.msg $1 $readini Personality\ $+ %bot.Personality.file Adduser IHaveAddedMSGToChannelIfUserKnownBefore1
.saveini | unset %bot.adduser.mask | halt
} ;end if adduser if user known and channel
} ;end of the if not know section
} ;end of check of person adding is higer that person to be added
else { .notice $2 $readini Personality\ $+ %bot.Personality.file Adduser AccessNotEnoughToAddThatUser | halt }
} ;end of check enugh access for command
else { set %bot.command.name That Adduser | .notice $nick $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias /Deop {
if ($3 == $me) { .notice $1 $readini Personality\ $+ %bot.Personality.file Deop DeopMyself | halt }
if ($me !isop $2) {
if ( %bot.home == $2 ) { .msg $2 $readini Personality\ $+ %bot.Personality.file Deop NoOpsToDeop }
else { .msg $2$readini Personality\ $+ %bot.Personality.file Deop NoOpsToDeop | .msg %bot.home $readini Personality\ $+ %bot.Personality.file Deop MSGHomeNoOpsToDeop }
}
if ($readini database\mircStorm.chan global $1 == 100 ) {
if ($3 == $null) { /mode $2 -o $1 | set %bot.dcc.command DeOp | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk }
else { /mode $2 -o $3 | set %bot.last.com DeOp By $1 At $time $date }
halt
}
if ($readini database\mircStorm.chan global $1 != $null) {
if ($3 == $null ) { /mode $2 -o $1 | set %bot.last.com DeOp By $1 At $time $date | halt }
if ($readini database\mircStorm.chan $2 $3 != $null) {
if ($readini database\mircStorm.chan $2 $3 != 8) { /mode $2 -o $3 | set %bot.last.com DeOp By $1 At $time $date | set %bot.dcc.command DeOp ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt }
if ($readini database\mircStorm.chan $2 $3 == 8) { .notice $1 $readini Personality\ $+ %bot.Personality.file Deop CannotDeopChanOwner | halt }
if ($readini database\mircStorm.chan global $1 > $readini database\mircStorm.chan global $3 ) { /mode $2 -o $3 | halt }
else { set %bot.command.name That Deop, User Has Same Or Higher Access. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess }
}
}
if ($readini database\mircStorm.chan $2 $1 >= 6) {
if ($3 == $null ) { /mode $2 -o $1 | set %bot.last.com DeOp By $1 At $time $date | halt }
if ($readini database\mircStorm.chan global $3 != $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Deop NotEnoughAccessUserIsGlobal | halt }
if ($readini database\mircStorm.chan $2 $3 == $null) { /mode $2 -o $3 | set %bot.last.com DeOp By $1 At $time $date | halt }
if ( $readini database\mircStorm.chan $2 $1 > $readini database\mircStorm.chan $2 $3 ) { /mode $2 -o $3 | set %bot.last.com DeOp By $1 At $time $date | halt }
else { set %bot.command.name That Deop | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess }
}
else { set %bot.command.name That Deop | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias /Op {
if ($me !isop $2) {
if ( %bot.home == $2 ) { .msg $2 $readini Personality\ $+ %bot.Personality.file Ops NoOpsToOp }
else { .msg $2 $readini Personality\ $+ %bot.Personality.file Ops NoOpsToOp | .msg %bot.home $readini Personality\ $+ %bot.Personality.file Ops MSGHomeNoOpsToOp }
}
if ($readini database\mircStorm.chan $2 $1 >= 6) {
if ($3 == $null ) {
if ( $1 isop $2 ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Ops AlreadyHaveOps | halt }
/mode $2 +o $1 | set %bot.last.com Op By $1 At $time $date | halt
}
else {
if ($3 == me) { /mode $2 +o $1 | set %bot.last.com Op By $1 At $time $date }
/mode $2 +o $3 | set %bot.last.com Op By $1 At $time $date | set %bot.dcc.command Op ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt }
}
if ($readini database\mircStorm.chan global $1 != $null ) {
if ($3 == $null ) {
if ($3 isop $2) { .notice $1 $readini Personality\ $+ %bot.Personality.file Ops UserAlreadyHaveOps | halt }
/mode $2 +o $1 | set %bot.last.com Op By $1 At $time $date | set %bot.dcc.command Op | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt
}
else {
if ($3 == me) { /mode $2 +o $1 }
/mode $2 +o $3 | set %bot.last.com Op By $1 At $time $date | halt }
}
else { set %bot.command.name Op | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias /WhoCom {
if ( ($readini database\mircStorm.chan $2 $1 > 3 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Who NoChannelGiven | halt }
if ( $me !ison $3 ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Who NotOnThatChan | halt }
set %bot.last.com Who By $1 At $time $date
.notice $1 Currnet Users In $3
.notice $1
set %bot.who.temp 1
while ( $nick($3, %bot.who.temp) != $null ) {
if ( $nick($3, %bot.who.temp) == $me ) {
if ($me isop $3) { .notice $1 $me - Its Me. - Got Op's | inc %bot.who.temp | /continue }
else { .notice $1 $me - Its Me - No OP's | inc %bot.who.temp 1 | /continue }
}
if ( $nick($3,%bot.who.temp) isop $3 ) { .notice $1 $nick($3,%bot.who.temp) - Got Op's | inc %bot.who.temp | /continue }
if ( $nick($3,%bot.who.temp) isvo $3 ) { .notice $1 $nick($3,%bot.who.temp) - Got Voice | inc %bot.who.temp | /continue }
.notice $1 $1($3,%bot.who.temp)
inc %bot.who.temp 1
}
set %bot.dcc.command Who | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $3 | /dcctalk
.notice $1
.notice $1 --End Of Who List For $2 $+ --
halt
}
else { set %bot.command.name Who | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias RehashCom {
if ($readini database\mircStorm.chan global $1 > 9) {
set %bot.last.com Rehash By $1 At $time $date
.notice $1 $readini Personality\ $+ %bot.Personality.file Rehash Rehasing
/saveini
/rehash
.msg %bot.home $readini Personality\ $+ %bot.Personality.file Rehash MSGHomeBotRehashed
set %bot.dcc.command Rehash | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $chan | /dcctalk
halt
}
else { set %bot.command.name Rehash | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias RestartCom {
if ($readini database\mircStorm.chan global $1 > 9) {
set %bot.last.com Restart By $1 At $time $date
/who $chan
.notice $1 $readini Personality\ $+ %bot.Personality.file Restart BotRestarting
/amsg $readini Personality\ $+ %bot.Personality.file Restart MSGAllChannelsAboutRestart
unset %bot.temp.userhost.4
.timer 1 10 /restart
halt
}
else { set %bot.command.name Restart | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias DieCom {
if ($readini database\mircStorm.chan global $1 > 99) {
set %bot.last.com Die By $1 At $time $date
.notice $1 $readini Personality\ $+ %bot.Personality.file Die BotDieing
set %bot.dcc.command Die ( Bot Shutting Down ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
set %bot.temp.userhost.4 [ $address($1,3) ]
/amsg $readini Personality\ $+ %bot.Personality.file Die MSGAllChannelsDie
unset %bot.temp.userhost.4
.timer -o 1 5 /dieing
halt
}
else { set %bot.command.name Die | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias JoinCom {
if ($readini database\mircStorm.chan global $1 > 9) {
if ( %bot.chan.count >= 10 ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Join TooManyChannels | halt }
if (%bot.chan.count == $null) { /set %bot.chan.count 0 }
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Join YouDidntGiveAChan }
else {
if ( $me ison $3 ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Join AlreadyInChan | halt }
set %bot.dcc.command Join ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
/join $3
set %bot.last.com Join ( $+ $3 $+ ) At $time $date
inc %bot.chan.count 1
.notice $1 $readini Personality\ $+ %bot.Personality.file Join Joining | .msg %bot.home $readini Personality\ $+ %bot.Personality.file Join MSGHomeJoining
set %bot.c.temp $3 | /set.channel.modes $3
if (%bot.channel.1 == $null) { set %bot.channel.1 $3 | halt }
else {
set %bot.chan.temp 2 | /setchannel | .timer 1 5 .msg %bot.c.temp $readini Personality\ $+ %bot.Personality.file Join MSGJoinedChanJoining | halt
}
}
}
else { set %bot.command.name Join | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias ResetCom {
set %bot.dcc.command Reset ( .msg $2 $readini Personality\ $+ %bot.Personality.file Reset MSGChanCantBeDoneLikeThat ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | .notice $1 $readini Personality\ $+ %bot.Personality.file Reset CantBeDoneLikeThat | halt
}
alias LastLogin {
set %bot.last.com LastLogin By $1 At $time $date | set %bot.dcc.command LastLogin | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | .notice $1 The Last Nick Who Logged On With Me Was %bot.lastlogin | halt
}
alias Backupcom {
if ($readini database\mircStorm.chan global $1 > 8) {
set %bot.last.com Backup By $1 At $time $date
set %bot.dcc.command Backup | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
.notice $1 Starting Back Up...
.msg %bot.home Starting Back Up... ( $+ $1 $+ )
/Backup $1 $2
set %last.com Backup By $1
halt
}
else { set %bot.command.name Backup | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias PartCom {
if ($readini database\mircStorm.chan global $1 > 9 ) {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Part NoChannelGiven }
if ($me !ison $3) { .notice $1 $readini Personality\ $+ %bot.Personality.file Part NotOnThatChan | halt }
else {
set %bot.chan.count [ %bot.chan.count - 1 ]
.msg $3 Parting $3 $4- ( $1 )
set %bot.last.com Part ( $+ $3 $+ ) By $1 At $time $date
/part $3 $4- ( $1 )
set %bot.dcc.command Part ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
.notice $1 $readini Personality\ $+ %bot.Personality.file Part PartingChan | .msg %bot.home $readini Personality\ $+ %bot.Personality.file Part MSGHomePartingChan
set %bot.c.temp $3
if (%bot.channel.1 == %bot.c.temp ) { unset %bot.channel.1 | halt }
else {
set %bot.chan.temp 2 | /removechannel | halt
}
}
}
else { set %bot.command.name Part | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Google {
if (($readini database\mircStorm.chan $2 $1 >= 5) || ($readini database\mircStorm.chan global $1 != $null)) {
if ($3 == $null) { .notice $1 $1 $readini Personality\ $+ %bot.Personality.file Google SearchForWhat | halt }
.notice $1 $readini Personality\ $+ %bot.Personality.file Google Contacting
set %bot.google $3- | set %bot.google.chan $2
if ((%bot.proxy.server !== $null) && (%bot.proxy.port != $null)) {
/sockclose google | /sockopen google %bot.proxy.server %bot.proxy.port | halt
}
else { /sockclose google | /sockopen google google.com 80 | halt }
}
else { set %bot.command.name Google Search In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Voice {
if ($me !isop $2) {
if ( %bot.home == $2 ) { .msg $2 $readini Personality\ $+ %bot.Personality.file Voice NoOpsToVoice }
else { .msg $2 $readini Personality\ $+ %bot.Personality.file Voice NoOpsToVoice | .msg %bot.home $readini Personality\ $+ %bot.Personality.file Voice MSGHomeNoOpsToVoice }
}
if ($readini database\mircStorm.chan $2 $1 >= 5) {
if ($3 == $null ) {
if ( $1 isvo $2 ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Voice HaveVoiceAlready | halt }
else { /mode $2 +v $1 | set %bot.last.com Voice By $1 At $time $date | halt }
}
else { /mode $2 +v $3 | set %bot.dcc.command Voice ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt }
}
if ($readini database\mircStorm.chan global $1 != $null ) {
if ($3 == $null ) {
if ($3 isvo $2) { .notice $1 $readini Personality\ $+ %bot.Personality.file Voice UserHasVoiceAlready | halt }
/mode $2 +v $1 | set %bot.dcc.command Voice | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt
}
else { /mode $2 +v $3 | set %bot.last.com Voice By $1 At $time $date | halt }
}
else { set %bot.command.name Voice in $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias DeVoice {
if ($3 == $me) { .notice $1 $readini Personality\ $+ %bot.Personality.file DeVoice NotDevoiceMyself | halt }
if ($me !isop $2) {
if ( %bot.home == $2 ) { .msg $2 $readini Personality\ $+ %bot.Personality.file DeVoice NoOpsToDeVoice }
else { .msg $2 $readini Personality\ $+ %bot.Personality.file DeVoice NoOpsToDeVoice | .msg %bot.home $readini Personality\ $+ %bot.Personality.file DeVoice MSGHomeNoOpsToDeVoice }
}
if ($readini database\mircStorm.chan global $1 == 100 ) {
if ($3 == $null) { /mode $2 -v $1 | set %bot.last.com DeVoice By $1 At $time $date | set %bot.dcc.command DeVoice | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk }
else { /mode $2 -v $3 }
halt
}
if ($readini database\mircStorm.chan global $1 != $null) {
if ($3 == $null ) { /mode $2 -v $1 | set %bot.last.com DeVoice By $1 At $time $date | halt }
if ($readini database\mircStorm.chan $2 $3 != $null) {
if ($readini database\mircStorm.chan $2 $3 != 8) { /mode $2 -v $3 | set %bot.last.com DeVoice By $1 At $time $date | set %bot.dcc.command DeVoice ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt }
if ($readini database\mircStorm.chan $2 $3 == 8) { .notice $1 $readini Personality\ $+ %bot.Personality.file DeVoice CannotDevoiceOwner | halt }
if ($readini database\mircStorm.chan global $1 > $readini database\mircStorm.chan global $3 ) { /mode $2 -v $3 | set %bot.last.com DeVoice By $1 At $time $date | halt }
else { set %bot.command.name Devoice, User Has Same Or Higher Access. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
}
if ($readini database\mircStorm.chan $2 $1 >= 5) {
if ($3 == $null ) { /mode $2 -v $1 | set %bot.last.com DeVoice By $1 At $time $date | halt }
if ($readini database\mircStorm.chan global $3 != $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file DeVoice NotEnoughAccessCosUserGlobal | halt }
if ($readini database\mircStorm.chan $2 $3 == $null) { /mode $2 -v $3 | set %bot.last.com DeVoice By $1 At $time $date | halt }
if ( $readini database\mircStorm.chan $2 $1 > $readini database\mircStorm.chan $2 $3 ) {
/mode $2 -v $3 | set %bot.last.com DeVoice By $1 At $time $date | halt
}
else { set %bot.command.name Devoice, User Has Same Or Higher Access. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
else { set %bot.command.name Devoice In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias KickCom {
if ($3 == $me) { .notice $1 $readini Personality\ $+ %bot.Personality.file Kick NotKickMyself | halt }
if ($me !isop $2) {
if ( %bot.home == $2 ) { .msg $2 $readini Personality\ $+ %bot.Personality.file Kick NoOpsToKick }
else { .msg $2 $readini Personality\ $+ %bot.Personality.file Kick NoOpsToKick | .msg %bot.home $2 Is Active But I Have No Ops. }
}
if ($readini database\mircStorm.chan global $1 == 100 ) {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Kick KickWho | halt }
else { /kick $2 $3 $4- | set %bot.last.com Kick $3 By $1 At $time $date }
halt
}
if ($readini database\mircStorm.chan global $1 != $null) {
if ($3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Kick KickWho | halt }
if ($readini database\mircStorm.chan $2 $3 != $null) {
if ($readini database\mircStorm.chan $2 $3 != 8) { /kick $2 $3 $4- | set %bot.dcc.command Kick ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt }
if ($readini database\mircStorm.chan $2 $3 == 8) { .notice $1 $readini Personality\ $+ %bot.Personality.file Kick CannotKickTheChannelOwner | halt }
if ($readini database\mircStorm.chan global $1 > $readini database\mircStorm.chan global $3 ) { /kick $2 $3 $4- | halt }
else { set %bot.command.name Kick, User Has Same Or Higer Access. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess }
}
}
if ($readini database\mircStorm.chan $2 $1 >= 6) {
if ($3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Kick KickWho | halt }
if ($readini database\mircStorm.chan global $3 != $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Kick NotEnoughAccessCosUserGlobal | halt }
if ($readini database\mircStorm.chan $2 $3 == $null) { /kick $2 $3 $4- | halt }
if ( $readini database\mircStorm.chan $2 $1 > $readini database\mircStorm.chan $2 $3 ) {
/kick $2 $3 $4- | set %bot.last.com Kick $3 By $1 At $time $date | halt
}
else { set %bot.command.name Kick, User Has Same Or Higher Access. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
else { set %bot.command.name Kick In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias UnbanCom {
if ( ($readini database\mircStorm.chan $2 $1 >= 6) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file UnBan UnbanWho | halt }
if ( $readini database\mircstorm.user BannedMasks $+ $2 $3 == $null ) {
.ban -r $2 $3 3 | set %bot.last.com UnBan $3 By $1 At $time $date
.notice $1 $readini Personality\ $+ %bot.Personality.file UnBan NotInBanList | halt
}
.remini database\mircstorm.user BannedMasks $+ $2 $banmask
.notice $1 $readini Personality\ $+ %bot.Personality.file UnBan UserBanned
.ban -r $2 $3 3 | set %bot.last.com UnBan $3 By $1 At $time $date
set %bot.dcc.command UnBan ( $+ $banmask $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name Unban In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias BanCom {
if ($me !ison $2) { .notice $1 $readini Personality\ $+ %bot.Personality.file Ban IAmNotOnThatChannelCannotBan | halt }
if ($3 == $me) { .notice $1 $readini Personality\ $+ %bot.Personality.file Ban IWillNotBanMyself | halt }
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Ban BanWho | halt }
/noops $2 | if ($result) { halt }
if ($chr(64) isin $3) { Var %bot.ban.NickAddress $3 }
else {
if ($3 !ison $2) { .notice $1 $readini Personality\ $+ %bot.Personality.file Ban NickNotOnChannel | halt }
Var %bot.ban.NickAddress $address($3,3)
}
if ($readini database\mircStorm.chan global $1 == 100 ) {
.kick $2 $3 $4- | .ban $2 %bot.ban.NickAddress | .kick $2 $3 You Have Been Banned!
.notice $1 The User/Mask Has Been Banned From Channel $2 $+ .
set %bot.dcc.command Ban ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt
}
if ($readini database\mircStorm.chan $2 $3 != $null ) { var %bot.ban.banneduser $readini database\mircStorm.chan $2 $3 }
if ($readini database\mircStorm.chan global $3 != $null ) { var %bot.ban.banneduser $readini database\mircStorm.chan global $3 }
if (!%bot.ban.banneduser) { var %bot.ban.banneduser 0 }
if ($readini database\mircStorm.chan $2 $1 != $null ) { var %bot.ban.baning $readini database\mircStorm.chan $2 $1 }
if ($readini database\mircStorm.chan global $1 != $null ) { var %bot.ban.baninguser $readini database\mircStorm.chan global $1 }
if (%bot.ban.baninguser > %bot.ban.banneduser) {
.kick $2 $3 $4- | .ban $2 %bot.ban.NickAddress | .kick $2 $3 You Have Been Banned!
.notice $1 The User/Mask Has Been Banned From Channel $2 $+ .
set %bot.dcc.command Ban ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt
}
else { .notice $1 $readini Personality\ $+ %bot.Personality.file Ban NotEnoughAccessToBanUser | halt }
}
alias TopicCom {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Topic ChangeTopicToWhat | halt }
if ( ($readini database\mircStorm.chan $2 $1 > 5 ) || ($readini database\mircStorm.chan global $1 != $null ) ) {
if ( %bot.topic.lock. [ $+ [ $2 ] ] != $null ) {
.notice $1 $readini Personality\ $+ %bot.Personality.file Topic TopicHasBeenLockedCannotChange
.notice $1 $readini Personality\ $+ %bot.Personality.file Topic TopicHasBeenLockedCannotChange2
halt
}
/topic $2 $3-
set %bot.dcc.command Topic 1( $+ $3- 1 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt
}
else { set %bot.command.name Topic In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias MSGCom {
if ($readini database\mircStorm.chan global $1 > 9 ) {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file MSG WhoDoIMessage | halt }
if ( $4 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file MSG WhatDoISay | halt }
.msg $3 $4-
.notice $1 $readini Personality\ $+ %bot.Personality.file MSG MessageSent
set %bot.dcc.command Msg 1( $+ $4- ( To $3 ) 1 $+ ) | set %bot.dcc.command.nick $1 | /dcctalk | /close -m | halt
}
else { set %bot.command.name MSG In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias TopicLock {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file TopicLock LockTheTopicToWhat | halt }
if ( ($readini database\mircStorm.chan $2 $1 > 7 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ( %bot.topic.lock. [ $+ [ $2 ] ] != $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file TopicLock TopicIsAlreadyLocked | halt }
set %bot.topiclock.first first
set %bot.topic.lock. [ $+ [ $2 ] ] $3-
/topic $2 %bot.topic.lock. [ $+ [ $2 ] ]
.notice $1 $readini Personality\ $+ %bot.Personality.file TopicLock TopicLockEnabled
set %bot.dcc.command TopicLock | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt
}
set %bot.command.name TopicLock | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt
}
alias TopicUnlock {
if ( ($readini database\mircStorm.chan $2 $1 > 7 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if (%bot.topic.lock. [ $+ [ $2 ] ] == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file TopicUnlock TopicIsNotLocked | halt }
unset %bot.topic.lock. [ $+ [ $2 ] ]
.notice $1 $readini Personality\ $+ %bot.Personality.file TopicUnlock TopicLockDisabled
set %bot.dcc.command Topic Unlock | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt
halt
}
else { set %bot.command.name TopicUnlock | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Wall {
if ( ($readini database\mircStorm.chan $2 $1 > 5 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ($3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Wall ToWhatChannel | halt }
if ($4 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Wall WhatMessage | halt }
.notice $1 MessageSent $readini Personality\ $+ %bot.Personality.file Wall MessageSent
/omsg $3 $4- ( Wallop From $1 On $2 )
set %bot.dcc.command Wallops ( $3- ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt
}
else { set %bot.command.name Wall/Wallops | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias ModeCom {
if ( ($readini database\mircStorm.chan $2 $1 > 5 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Mode SetWhatMode | halt }
if ( %bot.mode.lock. [ $+ [ $2 ] ] == on ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Mode ModeLockHasBeenEnabledSoCannnotChangeMode | halt }
/mode $2 $3- | set %bot.dcc.command Mode ( $3- ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt
.notice $1 $readini Personality\ $+ %bot.Personality.file Mode ModeChanged
}
else { set %bot.command.name Mode In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias CycleCom {
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ( $3 == $null ) {
/hop $2 $readini Personality\ $+ %bot.Personality.file Cycle MessageToChanWhenCycling
set %bot.dcc.command Cycle | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
.notice $1 $readini Personality\ $+ %bot.Personality.file Cycle SuccessfullyCycled
/halt
}
else {
/part $3 $readini Personality\ $+ %bot.Personality.file Cycle MessageToChanWhenCycling
.timer 1 1 /join $3
set %bot.dcc.command Cycle | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $3 | /dcctalk
.notice $1 $readini Personality\ $+ %bot.Personality.file Cycle SuccessfullyCycled
/halt
}
}
else { set %bot.command.name Cycle In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias InviteCom {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Invite InviteWho | halt }
if ( $3 == $1 ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Invite CannotInviteYourself | halt }
if ( $3 == $me ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Invite CannotInviteMyself | halt }
if ( $3 ison $2 ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Invite NickAlreadyOnChan | halt }
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
/invite $3 $2 $4-
.notice $1 $readini Personality\ $+ %bot.Personality.file Invite HaveInvited
set %bot.dcc.command Invite ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
if ( $2 == %bot.home ) { /onotice $2 I Have Invited $3 To $2 $+ Requted By $1 $+ . | halt }
/onotice $2 $readini Personality\ $+ %bot.Personality.file Invite MessageToChan
/onotice %bot.home $readini Personality\ $+ %bot.Personality.file Invite MessageToHome
halt
}
else { set %bot.command.name Invite In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Greet {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Greet WhatGreet | halt }
if ($readini database\mircStorm.chan $2 $1 > 4 ) {
if ($3 == none ) { remini -n database\mircStorm.user Greet [ $+ [ $2 ] ] %bot.greet.userhost | notice $1 $readini Personality\ $+ %bot.Personality.file Greet GreetRemoved | halt }
set %bot.greet.userhost [ $address($1,3) ]
if (%bot.greet.userhost == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Greet GreetErrorGettingMask | halt }
/writeini -n database\mircStorm.user Greet [ $+ [ $2 ] ] %bot.greet.userhost $3-
.notice $1 $readini Personality\ $+ %bot.Personality.file Greet GreetingSet
set %bot.dcc.command Greet ( $+ $3- $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name Greet, You Must Have CHANNEL Access. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Note {
if ( ($readini database\mircStorm.chan $2 $1 > 4 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Notes WhoDoISendToo | halt }
if ( $4 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Notes WhatDoISend | halt }
if ( $3 == $me ) { /noice $1 $readini Personality\ $+ %bot.Personality.file Notes CannotSendNoteToMySelf | halt }
if ( $3 == $1 ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Notes CannotSendNoteToYourSelf | halt }
if ( $3 == sendtoall ) { .notice $1 need to make this!!! }
if ( $readini -n database\mircStorm.user Users $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Notes DoNotKnowWhoThatIs | halt }
set %bot.note.temp.msg $4- (Left By $1 At $fulldate $+ )
set %bot.note.temp 1
while ($readini database\mircstorm.user Notes [ $3 ] [ $+ [ %bot.note.temp ] ] != $null) {
inc %bot.note.temp 1
}
if (%bot.note.temp == 21) { .notice $1 $readini Personality\ $+ %bot.Personality.file Notes TooManyNotes | unset %bot.note.* | halt }
/writeini database\mircstorm.user Notes [ $3 ] [ $+ [ %bot.note.temp ] ] %bot.note.temp.msg
.notice $1 Note Sent To $3 $+ .
set %bot.dcc.command Note ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
if ($readini database\mircStorm.GID Login $fulladdress != $null ) {
.msg $3 $readini Personality\ $+ %bot.Personality.file Notes NoteWaiting
}
unset %bot.note.*
/close -m
halt
}
else { set %bot.command.name Note | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Notes {
if ( ( $3 == erase ) && ( $4 == all ) ) {
var %bot.note.temp 1
while (%bot.note.temp <= 20) {
if ($readini database\mircstorm.user Notes [ $1 ] [ $+ [ %bot.note.temp ] ] != $null) { remini database\mircstorm.user Notes [ $1 ] [ $+ [ %bot.note.temp ] ] | saveini }
inc %bot.note.temp 1
}
.notice $1 $readini Personality\ $+ %bot.Personality.file Notes NotesErased
/close -m
halt
}
if ( ( $3 == erase ) && ( $4 isnum ) ) {
/remini database\mircstorm.user Notes [ $1 ] [ $+ [ $4 ] ]
.notice $1 $readini Personality\ $+ %bot.Personality.file Notes NoteErased
/close -m
halt
}
.msg $1 Notes For $1 $+ . | .msg $1
set %bot.note.count 0
var %bot.note.temp 1
while (%bot.note.temp <= 20) {
if ($readini database\mircstorm.user Notes [ $1 ] [ $+ [ %bot.note.temp ] ] != $null) { .msg $1 $chr(35) $+ %bot.note.temp $readini database\mircstorm.user Notes [ $1 ] [ $+ [ %bot.note.temp ] ] | inc %bot.note.count 1 }
inc %bot.note.temp 1
}
if (%bot.note.count == 0) { .msg $1 $readini Personality\ $+ %bot.Personality.file Notes YouHaveNoNotes }
.msg $1 | .msg $1 -End Of Note(s)- | .msg $1 To Removes Note: ( .msg ) $me Notes Erase All
set %bot.dcc.command NoteRead | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
unset %bot.note.*
halt
}
alias Banner {
if ($readini database\mircStorm.chan global $1 > 9) {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Banner WhatAmISaying | halt }
/amsg Global Message From $1 : $3-
set %bot.dcc.command Global Message ( $+ $3- $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Onjoin {
/echo hrmm
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Onjoin WhatMode | halt }
if ( $3 == show ) {
if ($exists($mircdir\database\ [ $+ [ $2 ] ] $+ .onjoin)) { /play -n $1 database\ [ $+ [ $2 ] ] $+ .onjoin
set %bot.dcc.command Show Onjoin | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk | halt }
else { .notice $1 $readini Personality\ $+ %bot.Personality.file Onjoin NoOnjoinSet | halt }
}
if ( $3 == clear ) {
/remove database\ [ $+ [ $2 ] ] $+ .onjoin
.notice $1 $readini Personality\ $+ %bot.Personality.file Onjoin OnjoinCleared
set %bot.dcc.command Clear Onjoin | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
if ( $3 == add ) {
if ( $lines(database\ [ $+ [ $2 ] ] $+ .onjoin) >= 5 ) { .notice $1 Max Number Of Lines Reached, $lines(database\ [ $+ [ $2 ] ] $+ .onjoin) lines. | halt }
/write database\ [ $+ [ $2 ] ] $+ .onjoin $4-
.notice $1 Line $lines(database\ [ $+ [ $2 ] ] $+ .onjoin) Has Been Added To Onjoin For $2 ( $+ $4- $+ )
set %bot.dcc.command Onjoin Add ( $4- ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
if ( $3 == edit ) {
if ( $4 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Onjoin EditWhatLine1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Onjoin EditWhatLine2 | halt }
if ( $4 !isnum ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Onjoin EditWhatLine1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Onjoin EditWhatLine2 | halt }
/write -l [ $+ [ $4 ] ] database\ [ $+ [ $2 ] ] $+ .onjoin $5-
.notice $1 Line $4 Has Been Changed To " $+ $5- $+ "
set %bot.dcc.command Onjoin Edit ( Line $4 ( $5- ) ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
.notice $1 $readini Personality\ $+ %bot.Personality.file Onjoin WhatMode | halt
}
else { set %bot.command.name Onjoin In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias SayCom {
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Say SayWhat | halt }
.msg $2 $3-
if ($left($2,1) == $chr(35)) {
if ($1 !ison $2) { .notice $1 $readini Personality\ $+ %bot.Personality.file Say ISaid }
}
set %bot.dcc.command Say ( $3- ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name Say In $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias ActCom {
if ( ($readini database\mircStorm.chan $chan $nick > 7 ) || ($readini database\mircStorm.chan global $nick != $null) ) {
.notice $nick $readini Personality\ $+ %bot.Personality.file Act DontLikeActing | halt
}
else { set %bot.command.name Acting | .notice $nick $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias MOp {
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
set %bot.mop.chan $2
set %bot.mop.nick $1
set %bot.mop.loop 1
while ( $nick(%bot.mop.chan,%bot.mop.loop) != $null ) {
/mode %bot.mop.chan +o $nick(%bot.mop.chan,%bot.mop.loop)
inc %bot.mop.loop
}
unset %bot.op.*
set %bot.dcc.command Mass Op | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name Mass Op | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias MDeop {
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
set %bot.mdeop.chan $2
set %bot.mdeop.nick $1
set %bot.mdeop.loop 1
while ( $nick(%bot.mdeop.chan,%bot.mdeop.loop) != $null ) {
if ( $nick(%bot.mdeop.chan,%bot.mdeop.loop) == $me ) { inc %bot.mdeop.loop 1 | /continue }
/mode %bot.mdeop.chan -o $nick(%bot.mdeop.chan,%bot.mdeop.loop)
inc %bot.mdeop.loop
}
unset %bot.deop.*
set %bot.dcc.command Mass DeOp | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name Mass Deop | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias MVoice {
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
set %bot.mvoice.chan $2
set %bot.mvoice.nick $1
set %bot.mvoice.loop 1
while ( [ $nick(%bot.mvoice.chan,%bot.mvoice.loop) ] != $null ) {
mode %bot.mvoice.chan +v [ $nick(%bot.mvoice.chan,%bot.mvoice.loop) ]
inc %bot.mvoice.loop 1
}
unset %bot.voice.*
set %bot.dcc.command Mass Voice | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name Mass Voice | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias MDeVoice {
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
set %bot.mdevoice.chan $2
set %bot.mdevoice.nick $1
set %bot.mdevoice.loop 1
while ( $nick(%bot.mdevoice.chan,%bot.mdevoice.loop) != $null ) {
/mode %bot.mdevoice.chan -v $nick(%bot.mdevoice.chan,%bot.mdevoice.loop)
inc %bot.mdevoice.loop
}
unset %bot.devoice.*
set %bot.dcc.command Mass DeVoice | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
}
else { %bot.command.name Mass Devoice | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Lock {
if ($readini database\mircStorm.chan global $1 > 8 ) {
.msg $2 $readini Personality\ $+ %bot.Personality.file Lock LockingChan
set %bot.dcc.command Locking Channel | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
.notice $1 $readini Personality\ $+ %bot.Personality.file Lock LockingChan
/mode $2 +smitn
set %bot.mode.lock. [ $+ [ $2 ] ] on
halt
}
else { set %bot.command.name Lock | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias UnLock {
if ($readini database\mircStorm.chan global $1 > 8 ) {
.msg $2 $readini Personality\ $+ %bot.Personality.file Unlock UnLockingChan
set %bot.dcc.command UnLocking Channel | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
.notice $1 $readini Personality\ $+ %bot.Personality.file Unlock UnLockingChan
/mode $2 -smi
set %bot.mode.lock. [ $+ [ $2 ] ] off
halt
}
else { set %bot.command.name UnLock | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Channels {
if ($readini database\mircStorm.chan global $1 > 8 ) {
.notice $1 $readini Personality\ $+ %bot.Personality.file Channels CurrentlyInTheFollowingChannels
var %bot.channels.num 1
var %bot.channels.on
while ( $chan(%bot.channels.num) != $null ) {
if (%bot.channels.num == 1) { set %bot.channels.on $chan(%bot.channels.num) }
else {
set %bot.channels.on %bot.channels.on $+ , $chan(%bot.channels.num)
}
inc %bot.channels.num
}
notice $1 %bot.channels.on
notice $1
.notice $1 $readini Personality\ $+ %bot.Personality.file Channels IShouldBeOnTheFollowing
var %bot.channels.num 1
var %bot.chan.count.channels [ %bot.chan.count + 10 ]
var %bot.channels.on %bot.home $+ ,
while ( %bot.channels.num < %bot.chan.count.channels ) {
if ( %bot.channel. [ $+ [ %bot.channels.num ] ] == $null ) { inc %bot.channels.num | /continue }
set %bot.channels.on [ %bot.channels.on %bot.channel. [ $+ [ %bot.channels.num ] ] $+ , ]
inc %bot.channels.num
}
.notice $1 %bot.channels.on | unset %bot.channels.on
set %bot.dcc.command Channels | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name Channels | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias SaveCom {
if ($readini database\mircStorm.chan global $1 > 9 ) {
.msg %bot.home $readini Personality\ $+ %bot.Personality.file Save SavingFiles
/saveini
.notice $1 $readini Personality\ $+ %bot.Personality.file Save SavingComplete
set %bot.dcc.command Save | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name Save | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias NoticeCom {
if ($readini database\mircStorm.chan global $1 > 9 ) {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Notice NoticeWho | halt }
if ( $4 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Notice NoticeWhat | halt }
.notice $3 $4- (Notice Requested By $1 $+ )
.notice $1 $readini Personality\ $+ %bot.Personality.file Notice IHaveNoticed
set %bot.dcc.command Notice ( $3 ( $4- ) ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name Notice | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Modelock {
if ( ($readini database\mircStorm.chan $2 $1 > 7 ) || ($readini database\mircStorm.chan global $1 != $null ) ) {
if ( $3 == off ) {
set %bot.mode.lock. [ $+ [ $2 ] ] off
.notice $1 $readini Personality\ $+ %bot.Personality.file Modelock TurnedOff
.msg $2 $readini Personality\ $+ %bot.Personality.file Modelock MSGChanTurnedOff
set %bot.dcc.command ModeLock OFF | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
if ( $3 == on ) {
set %bot.mode.lock. [ $+ [ $2 ] ] on
.notice $1 $readini Personality\ $+ %bot.Personality.file Modelock TurnedOn
.msg $2 $readini Personality\ $+ %bot.Personality.file Modelock MSGChanTurnedOn
set %bot.dcc.command ModeLock ON | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
.notice $1 $readini Personality\ $+ %bot.Personality.file Modelock InvaildOption | halt
}
else { set %bot.command.name ModeLock | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Chanset {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset WhatMode | halt }
if ( ($readini database\mircStorm.chan $2 $1 > 7 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ($3 == +log) { .log on $2 | set %bot.log. [ $+ [ $2 ] ] 1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset ChanWillNowBeLogged | halt }
if ($3 == -log) { .log off $2 | unset %bot.log. [ $+ [ $2 ] ] | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset ChanWillNowNotBeLogged | halt }
if ($3 == +displaylogin) {
if ($readini database\mircStorm.chan global $1 != $null) { set %bot.displaylogin 1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset HomeChanNowNotifyedOfEveryUserWhoLogsIn | halt }
else { .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset NeedsAGlobalUser | halt }
}
if ($3 == -displaylogin) {
if ($readini database\mircStorm.chan global $1 != $null) { unset %bot.displaylogin | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset HomeChanNowNotNotifyedOfEveryUserWhoLogsIn | halt }
else { .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset NeedsAGlobalUser | halt }
}
if ($3 == +autoop) { set %bot.autoop. [ $+ [ $2 ] ] 1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset AutoOpEnabled | halt }
if ($3 == -autoop) { unset %bot.autoop. [ $+ [ $2 ] ] | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset AutoOpDisabled | halt }
if ($3 == +autovoice) { set %bot.autovoice. [ $+ [ $2 ] ] 1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset AutoVoiceEnabled | halt }
if ($3 == -autovoice) { unset %bot.autovoice. [ $+ [ $2 ] ] | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset AutoVoiceDisabled | halt }
if ($3 == +voiceall) { set %bot.voiceall. [ $+ [ $2 ] ] 1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset VoiceEveryoneEnabled | halt }
if ($3 == -voiceall) { unset %bot.voiceall. [ $+ [ $2 ] ] | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset VoiceEveryoneDisabled | halt }
if ($3 == +peak) { set %bot.peak. [ $+ [ $2 ] ] 1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset PeakDisplayEnabled | halt }
if ($3 == -peak) { unset %bot.peak. [ $+ [ $2 ] ] | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset PeakDisplayDisabled | halt }
if (($3 == +nocolour) || ($3 == +nocolor)) { set %bot.nocolour. [ $+ [ $2 ] ] 1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset NoColourEnabled | halt }
if (($3 == -nocolour) || ($3 == -nocolor)) { unset %bot.nocolour. [ $+ [ $2 ] ] | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset NoColourDisabled | halt }
if ($3 == +punishops) { set %bot.punishops. [ $+ [ $2 ] ] 1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset PunishOpsEnabled | halt }
if ($3 == -punishops) { unset %bot.punishops. [ $+ [ $2 ] ] | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset PunishOpsDisabled | halt }
if ($3 == +swearkick) { set %bot.swearkick. [ $+ [ $2 ] ] 1 | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset SwearkickEnabled | halt }
if ($3 == -swearkick) { unset %bot.swearkick. [ $+ [ $2 ] ] | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset SwearkickDisabled | halt }
if ($3 == flood-chan) {
if ($4 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset FloodChanWhatArgs | .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset FloodChanWhatArgs2 | halt }
if ( ($gettok($4,1,58) !isalpha) && ($gettok($4,2,58) !isalpha) ) {
set %bot.protect.flood.lines. [ $+ [ $2 ] ] $gettok($4,1,58) | set %bot.protect.flood.secs. [ $+ [ $2 ] ] $gettok($4,2,58)
.notice $1 $readini Personality\ $+ %bot.Personality.file Chanset FloodChanSet | halt
}
else { .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset FloodChanWhatArgs2 | halt }
}
if ($3 == flood-notice) {
if ($4 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset FloodChanWhatArgs | halt }
if ( ($gettok($4,1,58) !isalpha) && ($gettok($4,2,58) !isalpha) ) {
set %bot.protect.notice.lines. [ $+ [ $2 ] ] $gettok($4,1,58) | set %bot.protect.notice.secs. [ $+ [ $2 ] ] $gettok($4,2,58)
.notice $1 $readini Personality\ $+ %bot.Personality.file Chanset FloodNoticeSet | halt
}
else { .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset FloodChanWhatArgs2 | halt }
}
else { .notice $1 $readini Personality\ $+ %bot.Personality.file Chanset UnknownChanMode | halt }
halt
}
else { set %bot.command.name Chanset. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Chaninfo {
if ( ($readini database\mircStorm.chan $2 $1 > 4 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
.notice $1 Channel Info For $2
set %bot.temp.chan $2
/getloopy
.notice $1 There Are %bot.loop.count Users Oped Out Of $nick($chan,0)
.notice $1
.notice $1 Flood Settings:
.notice $1 Flood-Chan For $2 Is Set At %bot.protect.flood.lines. [ $+ [ $2 ] ] $+ : $+ %bot.protect.flood.secs. [ $+ [ $2 ] ]
.notice $1 Flood-Notice For $2 Is Set At %bot.protect.notice.lines. [ $+ [ $2 ] ] $+ : $+ %bot.protect.notice.secs. [ $+ [ $2 ] ]
.notice $1
.notice $1 Mode Settings:
unset %bot.loop.count
if (%bot.peak. [ $+ [ $2 ] ]) { set %bot.chaninfo.modes +peak }
else { set %bot.chaninfo.modes -peak }
if (%bot.displaylogin) { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] +displaylogin }
else { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] -displaylogin }
if (%bot.log. [ $+ [ $2 ] ]) { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] +log }
else { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] -log }
if (%bot.nocolour. [ $+ [ $2 ] ]) { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] +nocolour }
else { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] -nocolour }
.notice $1 %bot.chaninfo.modes | unset %bot.chaninfo.modes
if (%bot.autoop. [ $+ [ $2 ] ]) { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] +autoop }
else { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] -autoop }
if (%bot.autovoice. [ $+ [ $2 ] ]) { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] +autovoice }
else { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] -autovoice }
if (%bot.voiceall. [ $+ [ $2 ] ]) { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] +voiceall }
else { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] -voiceall }
.notice $1 %bot.chaninfo.modes | unset %bot.chaninfo.modes
if (%bot.swearkick. [ $+ [ $2 ] ]) { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] +swearkick }
else { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] -swearkick }
if (%bot.punishops. [ $+ [ $2 ] ]) { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] +punishops }
else { set %bot.chaninfo.modes [ %bot.chaninfo.modes ] -punishops }
.notice $1 %bot.chaninfo.modes | unset %bot.chaninfo.modes
.notice $1
.notice $1 More Info: $me userlist Or $me <nick>
set %bot.last.com ChanInfo By $1 At $time $date
halt
}
else { set %bot.command.name ChanInfo. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Swearkick {
if ( ($readini database\mircStorm.chan $2 $1 > 7 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ( $3 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Swearkick DoWhat | halt }
if ( $3 == words ) {
.notice $1 Words Banned From $2 $+ :
if (!$exists(database\swearkick. [ $+ [ $2 ] ])) { .notice $1 $readini Personality\ $+ %bot.Personality.file Swearkick ThereAreNoBannedWords | halt }
.play -n $1 database\swearkick. [ $+ [ $2 ] ] 1080
halt
}
if ( $3 == remword ) {
if (write -s [ $+ [ $4 ] ] database\swearkick. [ $+ [ $2 ] ] == null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Swearkick NoSuchWordInList | halt }
write -ds [ $+ [ $4 ] ] database\swearkick. [ $+ [ $2 ] ]
notice $1 $readini Personality\ $+ %bot.Personality.file Swearkick WordRemoved
halt
}
if ( $3 == addword ) {
if ($4 == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Swearkick WhatWordToAdd | halt }
if ( * isin $4 ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Swearkick NoStarsPlease | halt }
set %bot.tools.swearkick.word $4
write database/swearkick. [ $+ [ $2 ] ] %bot.tools.swearkick.word
notice $1 $readini Personality\ $+ %bot.Personality.file Swearkick WordAdded
halt
}
.notice $1 $readini Personality\ $+ %bot.Personality.file Swearkick DoWhat | halt
}
else { set %bot.command.name Swearkick On $2 | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias IgnoreCom {
if ( ($readini database\mircStorm.chan $2 $1 > 6 ) || ($readini database\mircStorm.chan global $1 != $null) ) {
if ($3 == $null) { .notice $1 Do What Ignore? Usage: $me ignore <add/del/list/clear> | halt }
if ($3 == list) {
.notice $1 This will list the ignores... its being a pain. Just think... its only a beta :P | halt
}
if ($3 == clear) {
.ignore -r | .notice $1 The Ignore List Has Now Been Cleared. There Are No Active Ignores. | halt
}
if ($3 == add) {
if ($4 == $null) { .notice $1 Who Ignore? Usage: $me ignore add <nick/mask> | halt }
.ignore $4 | .notice $1 $4 Will Now Be Ignored By The Bot | halt
}
if ($3 == del) {
if ($4 == $null) { .notice $1 Who Ignore? Usage: $me ignore del <nick/mask> | halt }
.ignore -r $4 | .notice $1 $4 Will No Longer Be Ignored. | halt
}
}
else { set %bot.command.name Ignore. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Chpass {
if ($readini database\mircStorm.chan global $1 > 99) {
var %bot.chpass.users.mask $readini database\mircStorm.user users $3
.writeini -n database\mircStorm.GID mircStorm %bot.chpass.users.mask $md5($4,0)
.notice $1 $readini Personality\ $+ %bot.Personality.file pass OwnerChangesPassOK
}
else { set %bot.command.name Chpass | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
;/chpass $nick $chan usertochangenick newpass
alias RawCom {
if ($readini database\mircStorm.chan global $1 > 99) {
if ($2 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Raw DoWhat | halt }
.notice $1 $readini Personality\ $+ %bot.Personality.file Raw StartingCommand | / $+ $2- | .notice $1 $readini Personality\ $+ %bot.Personality.file Raw EndCommand | halt
}
else { set %bot.command.name Raw Commands. | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Chhandle {
if ($readini database\mircStorm.chan global $1 != $null) {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Chhandle DoWhat | halt }
if ($4 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Chhandle DoWhat | halt }
if ( [ $read -w* [ $+ [ $3 ] ] $+ * database/mircStorm.chan ] == $null ) { .notice $1 $readini Personality\ $+ %bot.Personality.file Chhandle CouldNotFindUser | halt }
if ($readini database\mircStorm.chan global $3 != $null) {
set %bot.chhandle.level $readini database\mircStorm.chan global $3
.remini database\mircStorm.chan global $3 | .writeini database\mircStorm.chan global $4 %bot.chhandle.level
set %bot.chhandle.mask $readini database\mircStorm.user Users $3 | .remini database\mircStorm.user Users $3
.writeini database\mircStorm.user Users $4 %bot.chhandle.mask | unset %bot.chhandle.*
.notice $1 $readini Personality\ $+ %bot.Personality.file Chhandle HandleChanged
}
set %bot.chhandle.level $readini database\mircStorm.chan $2 $3
.remini database\mircStorm.chan $2 $3 | .writeini database\mircStorm.chan $2 $4 %bot.chhandle.level
set %bot.chhandle.mask $readini database\mircStorm.user Users $3 | .remini database\mircStorm.user Users $3
.writeini database\mircStorm.user Users $4 %bot.chhandle.mask | unset %bot.chhandle.*
.notice $1 $readini Personality\ $+ %bot.Personality.file Chhandle HandleChanged
halt
}
else { set %bot.command.name Chhandle | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
alias Seen {
if ($3 == $null) { notice $1 $readini Personality\ $+ %bot.Personality.file Seen NoNick | halt }
if ($3 == $me) { notice $1 $readini Personality\ $+ %bot.Personality.file Seen ThatsMe | halt }
if ($3 == $1) { notice $1 $readini Personality\ $+ %bot.Personality.file Seen ThatsYou | halt }
if ($3 ison $2) { notice $1 $readini Personality\ $+ %bot.Personality.file Seen ThatUserIsHere | halt }
if ($readini -n database\data.seen data $3 == $null) { notice $1 $readini Personality\ $+ %bot.Personality.file Seen NotSeen | halt }
else { .msg $1 $3 Was Last Seen At: $readini -n database\data.seen data $3 | halt }
}
alias PingCom {
set %bot.dcc.command Ping | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
if ( ($3 == $null) || ($3 == me) ) { /ctcp $1 ping | set %bot.ctcp.ping $1 | set %bot.last.com Ping By $1 At $time $date | halt }
else {
if ( $3 ison $2 ) {
set %bot.last.com Ping ( $3 ) By $1 At $time $date
/ctcp $3 ping | .notice $1 I Have Pinged $3 | set %bot.ctcp.ping $3 | halt
}
else { .notice $1 $3 Is Not On $2 $+ . | halt }
}
}
alias BanList {
if (%bot.banlist.inuse) { .notice $1 $readini Personality\ $+ %bot.Personality.file Ban BanListCommandBusy | halt }
set %bot.banlist.inuse 1
.notice $1 Listing Channel Bans
.notice $1
.filter -cff database\mircstorm.user database\Temp.bans *=Banned*
var %bot.banlist.temp 1
while (%bot.banlist.temp <= $lines(database\Temp.bans)) {
.notice $1 $gettok($read(database\Temp.bans, %bot.banlist.temp),1,61)
inc %bot.banlist.temp 1
}
.notice $1
.notice $1 End Of Channel Bans
.remove database\Temp.bans
set %bot.dcc.command Banlist | set %bot.dcc.command.nick $nick | set %bot.dcc.command.chan $chan | /dcctalk
.timerBanListInUse 1 10 unset %bot.banlist.inuse
halt
}
alias Userlist {
if ( $3 == global ) {
.msg $1 Users For Global Access
.msg $1
set %bot.userlist.temp 1
while ( %bot.userlist.temp <= $lines(database\mircStorm.chan)) {
if (100 isin $read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan) { .msg $1 FULL ACCESS: $gettok($read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan,1,61) ( $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan,1,61) ) }
if (11 isin $read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan) { .msg $1 Global Owner Access: $gettok($read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan,1,61) ( $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan,1,61) ) }
if ((10 isin $read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan) && ( 100 !isin $read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan )) { .msg $1 Global Master Access: $gettok($read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan,1,61) ( $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan,1,61) ) }
if (9 isin $read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan) { .msg $1 Global Op Access: $gettok($read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan,1,61) ( $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.temp ] ] database\mircStorm.chan,1,61) ) }
inc %bot.userlist.temp
}
.msg $1 --End Of Global Access List
unset %bot.userlist.temp
halt
}
if ( $3 == $null ) {
.msg $1 Users For $2
.msg $1
set %bot.userlist.tempy 1
while ( %bot.userlist.tempy <= $lines(database\mircStorm.chan)) {
if ($2 isin $read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan) { set %bot.userlist.chan $2 }
if (%bot.userlist.chan == $2 ) {
if (3 isin $read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan) { .msg $1 Channel Bot (Auto-Voice): $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) $+ ) }
if (4 isin $read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan) { .msg $1 Channel Bot (Auto-Op): $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) $+ ) }
if (5 isin $read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan) { .msg $1 Channel Voice: $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) $+ ) }
if (6 isin $read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan) { .msg $1 Channel Op: $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) $+ ) }
if (7 isin $read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan) { .msg $1 Channel Master: $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) $+ ) }
if (8 isin $read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan) { .msg $1 Channel Owner: $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan,1,61) $+ ) }
if ([ [ $+ [ $2 ] ] $+ ] isin $read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan) { inc %bot.userlist.tempy | /continue }
if ([ isin $read -l [ $+ [ %bot.userlist.tempy ] ] database\mircStorm.chan) { unset %bot.userlist.chan }
}
inc %bot.userlist.tempy
}
unset %bot.userlist.tempy
.msg $1 --End Of $2 Userlist
halt
}
set %bot.userlist.check 1
while ( %bot.userlist.check <= 21 ) {
if ( %bot.channel. [ $+ [ %bot.userlist.check ] ] == $3 ) { set %bot.userlist.checked yes | /break }
inc %bot.userlist.check
}
unset %bot.userlist.check
if (%bot.home == $3) { set %bot.userlist.checked yes }
if (%bot.userlist.checked == yes) {
.msg $1 Users For $3
.msg $1
set %bot.userlist.tempy2 1
while ( %bot.userlist.tempy2 <= $lines(database\mircStorm.chan)) {
if ($3 isin $read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan) { set %bot.userlist.chan $3 }
if (%bot.userlist.chan == $3 ) {
if (4 isin $read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan) { .msg $1 Channel Bot (Auto-Op): $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) $+ ) }
if (5 isin $read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan) { .msg $1 Channel Voice: $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) $+ ) }
if (6 isin $read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan) { .msg $1 Channel Op: $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) $+ ) }
if (7 isin $read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan) { .msg $1 Channel Master: $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) $+ ) }
if (8 isin $read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan) { .msg $1 Channel Owner: $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) ( $+ $readini database\mircStorm.user Users $gettok($read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan,1,61) $+ ) }
if ([ [ $+ [ $3 ] ] $+ ] isin $read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan) { inc %bot.userlist.tempy2 | /continue }
if ([ isin $read -l [ $+ [ %bot.userlist.tempy2 ] ] database\mircStorm.chan) { unset %bot.userlist.chan }
}
inc %bot.userlist.tempy2
}
unset %bot.userlist.tempy2
.msg $1 --End Of $3 Userlist
}
else { .notice $1 I Do Not Have The Channel $3 In My Files }
unset %bot.userlist.checked
halt
}
alias Levels {
set %bot.dcc.command Levels | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
set %bot.temp.levels.access.request $1
/accesslevelrequest
halt
}
alias Peak {
if ($3 == $null) {
if (($nick($2,0) > $readini database\mircStorm.chan Peak $2) || ( $readini database\mircStorm.chan Peak $2 == $null) ) { writeini database\mircStorm.chan Peak $2 $nick($2,0) }
msg $2 $readini Personality\ $+ %bot.Personality.file Misc ChannelPeakIs $readini database\mircStorm.chan Peak $2 | halt
}
else {
if ($me !ison $3) { notice $1 I Am Not On A Channel $3 | halt }
if (($nick($2,0) > $readini database\mircStorm.chan Peak $2) || ( $readini database\mircStorm.chan Peak $2 == $null) ) { writeini database\mircStorm.chan Peak $2 $nick($2,0) }
msg $2 $readini Personality\ $+ %bot.Personality.file Misc ChannelPeakIs2 $readini database\mircStorm.chan Peak $3
halt
}
}
alias WhoisCom {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Whois DoWhat | halt }
if ($3 == $me) { .msg $2 I Am $readini database\mircstorm.ini Variables BlankLogo By Evil_Dave | halt }
if ( ($readini database\mircStorm.chan $2 $3 == $null) && ($readini database\mircStorm.chan global $3 == $null) ) { .notice $1 $3 $readini Personality\ $+ %bot.Personality.file Whois NotAKnowUser | halt }
if ($2 == access ) { .notice $1 Access $3 On $2 }
if ($2 == whois ) { .notice $1 WhoIs $3 On $2 }
set %bot.common.room $3
/commonrooms
set %bot.dcc.command $2 ( $+ $3 $+ ) | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
if ( $readini database\mircStorm.chan Global $3 == $null) {
//accessfindglobal [ $readini database\mircStorm.chan global $3 ]
//accessfindchannel [ $readini database\mircStorm.chan $2 $3 ]
if ( %bot.access.level == $null ) { set %bot.access.level No Global Access. }
if ( %bot.access.level.chan == $null ) { set %bot.access.level.chan No Channel Access. }
.notice $1 Global Access Level: %bot.access.level
.notice $1 Channel Access Level ( $+ $2 $+ ): %bot.access.level.chan
unset %bot.access.level
if ($3 ison $2) {
.notice $1 Status: $3 Is Online And In $2 Now
/guser 77 $3 5 | set %bot.temp.fulladdress [ $address($3,5) ] | /rlevel 77
if ($readini database\mircStorm.GID Login %bot.temp.fulladdress != $null) { .notice $1 Login: $3 Has Logged In As $3 $+ . }
if ($readini database\mircStorm.GID Login %bot.temp.fulladdress == $null) { .notice $1 Login: $3 Has NOT Logged In. }
.notice $1 Online At: %bot.common
unset %bot.temp.fulladdress
}
else { .notice $1 Status: $3 Is Not Currently In $2 }
}
else {
//accessfindglobal [ $readini database\mircStorm.chan global $3 ]
//accessfindchannel [ $readini database\mircStorm.chan $2 $3 ]
if ( %bot.access.level == $null ) { set %bot.access.level No Global Access. }
if ( %bot.access.level.chan == $null ) { set %bot.access.level.chan No Channel Access. }
.notice $1 Global Access Level: %bot.access.level
.notice $1 Channel Access Level ( $+ $2 $+ ): %bot.access.level.chan
unset %bot.access.level
unset %bot.access.level.chan
if ($3 ison $2) {
.notice $1 Status: $3 Is Online And In $2 Now
/guser 77 $3 5 | set %bot.temp.fulladdress [ $address($3,5) ] | /rlevel 78
if ($readini database\mircStorm.GID Login %bot.temp.fulladdress != $null) { .notice $1 Login: $3 Has Logged In As $3 $+ . }
if ($readini database\mircStorm.GID Login %bot.temp.fulladdress == $null) { .notice $1 Login: $3 Has NOT Logged In. }
.notice $1 Online At: %bot.common
unset %bot.temp.fulladdress
}
else { .notice $1 Status: $3 Is Not Currently In $2 }
}
unset %bot.common.room | halt
}
alias MakeCMD {
if ($3 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Makecmd WhatCmd | .notice $1 $readini Personality\ $+ %bot.Personality.file Makecmd WhatCmd2 | halt }
if ($3 == list) {
.notice $1 Commands Made:
var %bot.makecmd.temp 1
while (%bot.makecmd.temp <= 10) {
if (%bot.madecommand. [ $+ [ %bot.makecmd.temp ] ] != $null) { .notice $1 Trigger: %bot.madecommand. [ $+ [ %bot.makecmd.temp ] ] Command: %bot.madecommand.made. [ $+ [ %bot.makecmd.temp ] ] }
inc %bot.makecmd.temp 1
}
.notice $1 --End Of List--
halt
}
if ($3 == del) {
if ($4 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Makecmd WhatCmdDel | halt }
if ($readini database\mircStorm.chan global $1 > 9) {
var %bot.makecmd.temp 1
while (%bot.makecmd.temp <= 5) {
if (%bot.madecommand. [ $+ [ %bot.makecmd.temp ] ] == $4) { unset %bot.madecommand.made. [ $+ [ %bot.makecmd.temp ] ] | unset %bot.madecommand. [ $+ [ %bot.makecmd.temp ] ] | set %bot.makecommand.flag 1 | /break }
inc %bot.makecmd.temp 1
}
if (%bot.makecommand.flag) { .notice $1 Removed Command $4 | unset %bot.makecommand.flag | halt }
else { .notice $1 Could Not Find Command With Trigger $4 | halt }
halt
}
else { set %bot.command.name MakeCMD | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}
if ($4 == $null) { .notice $1 $readini Personality\ $+ %bot.Personality.file Makecmd DoWhat | halt }
if ($readini database\mircStorm.chan global $1 > 9) {
var %bot.makecmd.temp 1
while (%bot.makecmd.temp <= 5) {
if ((%bot.madecommand. [ $+ [ %bot.makecmd.temp ] ] == $null) || (%bot.madecommand. [ $+ [ %bot.makecmd.temp ] ] == $3)) { set %bot.madecommand. [ $+ [ %bot.makecmd.temp ] ] $3 | set -n %bot.madecommand.made. [ $+ [ %bot.makecmd.temp ] ] $4- | set %bot.makecmd.flag 1 | /break }
inc %bot.makecmd.temp 1
}
if (!%bot.makecmd.flag) { /notice $1 $readini Personality\ $+ %bot.Personality.file Makecmd MaxedOut | unset %bot.makecmd.* | halt }
.notice $1 $readini Personality\ $+ %bot.Personality.file Makecmd CMDMade1
.msg $2 $readini Personality\ $+ %bot.Personality.file Makecmd CMDMade2 | unset %bot.makecmd.*
set %bot.dcc.command MakeCMD $3 | set %bot.dcc.command.nick $1 | set %bot.dcc.command.chan $2 | /dcctalk
halt
}
else { set %bot.command.name MakeCMD | .notice $1 $readini Personality\ $+ %bot.Personality.file Command NotEnoughAccess | halt }
}