on *:TEXT:*!pestcontroloff*:#: {
if (%pestcontroloffon [ $+ [ $chan ] ] == off) { .notice $nick The pestcontrol script for $chan is already off }
if (%pestcontroloffon [ $+ [ $chan ] ] == off) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %pestcontroloffon $+ $chan off }
{ .msg $chan The pestcontrol script for $chan is now off }
}
on *:TEXT:*!pestcontrolon*:#: {
if (%pestcontroloffon [ $+ [ $chan ] ] == on) { .notice $nick The pestcontrol script for $chan is already on }
if (%pestcontroloffon [ $+ [ $chan ] ] == on) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %pestcontroloffon $+ $chan on }
{ .msg $chan The pestcontrol script for $chan is now on }
}
on $*:TEXT:/^([!@]setpcw|[!@]setworld)/Si:#:{
/illegalcheck $1-
set %pcwnickname [ $+ [ $chan ] ] $nick
if ($2- !isnum) { notice $nick Sorry you have to set a numerical world! | halt }
if (%pestcontroloffon [ $+ [ $chan ] ] == OFF) { HALT }
if ($chan == #bots) { HALT }
if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan || $nick == aturner44) {
writeini -n world.ini pcw $chan pcw
$iif($2 != $null,writeini -n world.ini pc $chan $2,writeini -n world.ini pc $chan No world set)
writeini -n world.ini time $chan $ctime
.msg $chan The pc world has been updated by $nick
if (%pcwtimer [ $+ [ $chan ] ] == on) {
timerpcw off
timerpcw 0 30 msg $chan [World]: $readini(world.ini,n,pc,$chan) [Suggested]: $readini(suggest.ini,n,sugest,$chan) [Sk14et bye]: %pcwnickname [ $+ [ $chan ] ]
}
}
}
on $*:TEXT:/^(!setcraigs|!set#craigs)/Si:#:{
/illegalcheck $1-
if (%pestcontroloffon [ $+ [ $chan ] ] == OFF) { HALT }
if ($chan == #craigs-staff) {
writeini -n world.ini pcw #craigs pcw
$iif($2 != $null,writeini -n world.ini pc #craigs $2,writeini -n world.ini pc #craigs No world set)
writeini -n world.ini time #craigs $ctime
.msg #craigs The pc world has been updated!
}
}
on $*:TEXT:/^(!setmuslim|!set#muslim)/Si:#:{
/illegalcheck $1-
set %pcwnickname [ $+ [ #muslim ] ] $nick
if (%pestcontroloffon [ $+ [ #muslim ] ] == OFF) { HALT }
if ($chan == #muslim-staff) {
writeini -n world.ini pcw #muslim pcw
$iif($2 != $null,writeini -n world.ini pc #muslim $2,writeini -n world.ini pc #muslim No world set)
writeini -n world.ini time #muslim $ctime
.msg #muslim The pc world has been updated!
if (%pcwtimer [ $+ [ $chan ] ] on) {
timerpcw off
timerpcw 0 30 msg $chan [World]: $readini(world.ini,n,pc,$chan) [Suggested]: $readini(suggest.ini,n,sugest,$chan) [Set by]: %pcwnickname [ $+ [ $chan ] ]
}
}
}
on *:TEXT:!set80*:#:{
/illegalcheck $1-
set %pcwnickname [ $+ [ #80+ ] ] $nick
if (%pestcontroloffon [ $+ [ #80+ ] ] == OFF) { HALT }
if ($chan == #muslim-staff) {
writeini -n world.ini pcw #80+ pcw
$iif($2 != $null,writeini -n world.ini pc #80+ $2,writeini -n world.ini pc #80+ No world set)
writeini -n world.ini time #80+ $ctime
msg #80+ The pc world has been updated!
if (%pcwtimer [ $+ [ $chan ] ] on) {
timerpcw off
timerpcw 0 30 msg #80+ [World]: $readini(world.ini,n,pc,$chan) [Suggested]: $readini(suggest.ini,n,sugest,$chan) [Set by]: %pcwnickname [ $+ [ $chan ] ]
}
}
}
on *:TEXT:!show*:#: {
/illegalcheck $1-
if ($nick isop $chan || $nick == aturner44) {
if ($2 == ON) {
if (%pcwtimer [ $+ [ $chan ] ] == on) { notice $nick The pcw timer is already on. | halt }
set %pcwtimer [ $+ [ $chan ] ] on
timerpcw 0 30 msg $chan [World]: $readini(world.ini,n,pc,$chan) [Suggested]: $readini(suggest.ini,n,sugest,$chan) [Set by]: %pcwnickname [ $+ [ $chan ] ]
msg $chan The pcw timer is now enabled.
}
if ($2 == OFF) {
if (%pcwtimer [ $+ [ $chan ] ] == off) { notice $nick The pcw timer isnt on. | halt }
unset %pcwtimer [ $+ [ $chan ] ]
timerpcw off
msg $chan The pcw timer is now disabled.
}
}
}
on $*:TEXT:/^([!@]pcw|[!@]world)/Si:#:{
if (%pcwtimer [ $+ [ $chan ] ] == on) { notice $nick Please dont use the !pcw command as the pcw world is shown every 30 seconds! | halt }
/illegalcheck $1-
if (%pestcontroloffon [ $+ [ $chan ] ] == OFF) { HALT }
if ($readini(world.ini,n,pcw,$chan)) {
notice $nick [World]: $readini(world.ini,n,pc,$chan) [Suggested]: $readini(suggest.ini,n,sugest,$chan) [Set by]: %pcwnickname [ $+ [ $chan ] ]
}
}
------------------------------------------------------------ ^^^ Thats the pcw script ^^^ -------------------------------------------------------------
on *:text:!joinscripton:#: {
if (%onjoinscript [ $+ [ $chan ] ] == on) { .notice $nick The on join script for $chan is already on }
if (%pestcontroloffon [ $+ [ $chan ] ] == on) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) {
set %onjoinscript [ $+ [ $chan ] ] on
.msg $chan The on join script for $chan is now on. }
}
on *:text:!joinscriptoff:#: {
if (%onjoinscript [ $+ [ $chan ] ] == off) { .notice $nick The on join script for $chan is already off }
if (%pestcontroloffon [ $+ [ $chan ] ] == off) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) {
set %onjoinscript [ $+ [ $chan ] ] off
.msg $chan The on join script for $chan is now off. }
}
on *:join:#: {
if ($chan == #bots) { halt }
if ($chan == #bot) { halt }
if ($nick == |God|Bot|) { halt }
if ($nick == aturner44) {
msg $chan ATENTIION Aturner44 has joined $chan $+ , respect Aturner44 as he is my owner ATENTIION
}
if ($nick == [-sword-]) {
msg $chan ATENTIION [-Sword-] has joined $chan $+ , respect [-Sword-] as he is bot staff ATENTIION
}
else {
if (%onjoinscript == off) { halt }
if ($chan == #80+) { notice $nick Hello and welcome $nick to $chan $+ , i am |God|Bot| for my commands type !commands. | notice $nick If you want to join a clan please pm eletric_god for more information! | halt }
/notice $nick Hello and welcome $nick to $chan $+ , i am |God|Bot| for my commands type !commands.
}
on *:part:#: {
if ($address($nick,2) == $address($me,2)) { halt }
if ($nick == $me) { halt }
/notice $nick Thankyou for visiting $chan $+ , please come again.
}
}
on *:kick:#: {
/illegalcheck $1-
if ($knick == |God|Bot|) {
/remini chanlist.ini chans $chan null
inc %kickcounter [ $+ [ $chan ] ]
notice aturner44 I was kicked out of $chan by $nick $+ .
}
}
on *:invite:#: {
if (%kickcounter [ $+ [ $chan ] ] >= 5) { notice $nick Sorry $chan is blacklisted | HALT }
if (%kickcounter [ $+ [ $chan ] ] == $null) { set %kickcounter [ $+ [ $chan ] ] 0 }
join $chan
/msg $chan Hello i am |God|Bot| for my commands type !commands, i have been kicked %kickcounter [ $+ [ $chan ] ] $+ /5, i can be kicked $calc( 5 - %kickcounter [ $+ [ $chan ] ] ) more times.
}
on *:text:!blacklist*:#: {
/illegalcheck $1-
set %kickcounter [ $+ [ $2 ] ] 5
/notice aturner44 $+ $2 is now black listed.
}
on $*:TEXT:/^(!part|!gtfo|!leave|!part Godbot|!gtfo Godbot|!leave Godbot)/Si:#: {
if ($nick isreg $chan || $nick isvoice $chan) { notice $nick Sorry $nick to make me leave you have to have op/half-op status. | halt }
if ($chan == #craigs || $chan == #craigs-staff || $chan == #godbot) { notice $nick Lol? make me leave from $chan $+ ! arent you funny! | halt }
if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $me) {
.msg $chan Goodbye $chan i enjoyed my stay, i was told to part by $nick $+ .
/part $chan
}
}
on *:text:*:?: {
if ($nick == aturner44) { halt }
if ($1- == !scriptcommands) { halt }
if ($1- == !fun coms) { halt }
if ($1- == !runescape coms) { halt }
if ($1- == !helpfull coms) { halt }
if ($1- == !ban coms) { halt }
.msg $nick Please dont PM me i am a bot, thankyou.
ignore -u10 $address($nick,2)
close -m $nick
}
on *:text:!mute*:#: {
if ($nick isop $chan) {
mode $chan +m
msg $chan $+ $chan is now muted, only (+)/(%)/(@) can talk, muted by $+ $nick $+ !
set %mutenotice [ $+ [ $chan ] ] on
}
}
on *:text:!unmute*:#: {
if ($nick isop $chan) {
mode $chan -m
msg $chan $+ $chan is now unmuted, unmuted by $+ $nick $+ !
unset %mutenotice [ $+ [ $chan ] ]
}
}
on *:text:!channels:#: {
inc %served
var %x = 1
var %op = 0, %hop = 0, %voice = 0, %reg = 0
while ($me ison $chan(%x)) {
if ($me isop $chan(%x)) inc %op
if ($me ishop $chan(%x)) inc %hop
if ($me isvoice $chan(%x)) inc %voice
if ($me isreg $chan(%x)) inc %reg
inc %x
}
msg $chan I am in $calc(%x - 1) channel $+ (s) I'm op in %op of them. Im Halfop in %hop of them. Im Voice in %voice of them. Im Regular in %reg of them.
}
on *:text:!asc*:#: {
bset -t &asc 1 $2-
var %c = $regsubex($bvar(&asc,1,$bvar(&asc,0)),/([^ ]+)/g,$+($,chr,$chr(40),\t,$chr(41)))
notice $nick The chr code for $qt($2-) is: $iif($numtok(%c,32) == 1,%c,$+($,+,$chr(40),$replace(%c,$chr(32),$chr(44)),$chr(41)))
}
on *:TEXT:!warn*:#:{
/illegalcheck $1-
if ($2- isop $chan) { msg $chan You cant warn an @Op! | halt }
if ($address($2-,2) == $address($me,2)) { msg $chan Warn my self, no. | halt }
if ($nick isop $chan) {
if ($2- !ison $chan) { /notice $nick Sorry $nick $+ , you may only warn someone who is on your channel.
}
else {
.inc $+(%,warn.ban.,$2-)
if $($+(%,warn.ban.,$2-),2) == 1 {
msg $chan [WARNING] $2- has been warned, $ord($($+(%,warn.ban.,$2-),2)) warning!
}
if $($+(%,warn.ban.,$2-),2) == 2 {
msg $chan [WARNING] $2- has been warned, $ord($($+(%,warn.ban.,$2-),2)) warning! LAST WARNING!
}
if $($+(%,warn.ban.,$2-),2) == 3 {
msg $chan [WARNING] $2- has been warned 3 out of 3 times!
.timer 1 3 .ban -ku600 $chan $2- Banned for 3 warnings, 10 minute ban!
unset $+(%,warn.ban.,$2-)
}
}
}
else notice $nick You must be an @op to warn someone in $chan $+ .
}
--------------------------- ^^^ !part !warn !channels invite script ^^^ ---------------------------------------------------------------
on *:TEXT:!autosuggeston:#: {
if (%autosuggest [ $+ [ $chan ] ] == on) { .notice $nick The autosuggest script for $chan is already on }
if (%autosuggest [ $+ [ $chan ] ] == on) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %autosuggest on }
{ notice aturner44 Suggestions are now on }
}
on *:TEXT:!autosuggestoff:#: {
if (%autosuggest [ $+ [ $chan ] ] == off) { .notice $nick The autosuggest script for $chan is already off }
if (%autosuggest [ $+ [ $chan ] ] == off) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %autosuggest off }
{ notice aturner44 Suggestions are now off }
}
on *:TEXT:!onsuggest:#: {
if (%suggest [ $+ [ $chan ] ] == on) { .notice $nick The suggestion script for $chan is already on }
if (%suggest [ $+ [ $chan ] ] == on) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %suggest on }
{ notice aturner44 Suggestions are now on }
}
on *:TEXT:!offsuggest:#: {
if (%suggest [ $+ [ $chan ] ] == off) { .notice $nick The autosuggest script for $chan is already off }
if (%suggest [ $+ [ $chan ] ] == off) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %suggest off }
{ notice aturner44 Suggestions are now off }
}
on *:TEXT:!suggest *:#: {
/illegalcheck $1-
if ($2- !isnum) { notice $nick Sorry you can only suggest numeric worlds! | halt }
if (%suggest == OFF) { HALT }
if ($chan == #bots) { HALT }
writeini -n suggest.ini suggest $chan suggest
$iif($2 != $null,writeini -n suggest.ini sugest $chan $2,writeini -n suggest.ini sugest $chan No suggestions)
.msg $chan $nick has suggested $2-
if (%pcwtimer [ $+ [ $chan ] ] == on) {
timerpcw off
timerpcw 0 30 msg $chan The current pestcontrol world is $readini(world.ini,n,pc,$chan) world $readini(suggest.ini,n,sugest,$chan) has been suggested.
}
}
on *:TEXT:!sugcraigs *:#: {
/illegalcheck $1-
if ($chan == #craigs-staff) {
if ($2- !isnum) { halt }
if (%autosuggest == OFF) { HALT }
writeini -n suggest.ini suggest #craigs suggest
$iif($2 != $null,writeini -n suggest.ini sugest #craigs $2,writeini -n suggest.ini sugest #craigs No suggestions)
}
}
on *:TEXT:!sug80 *:#: {
/illegalcheck $1-
if ($chan == #80-staff) {
if ($2- !isnum) { halt }
if (%autosuggest == OFF) { HALT }
writeini -n suggest.ini suggest #80+ suggest
$iif($2 != $null,writeini -n suggest.ini sugest #80+ $2,writeini -n suggest.ini sugest #80+ No suggestions)
}
}
on *:TEXT:!sugmuslim *:#: {
/illegalcheck $1-
if ($chan == #muslim-staff) {
if ($2- !isnum) { halt }
if (%autosuggest == OFF) { HALT }
writeini -n suggest.ini suggest #muslim suggest
$iif($2 != $null,writeini -n suggest.ini sugest #muslim $2,writeini -n suggest.ini sugest #muslim No suggestions)
}
}
---------------------^^^^suggestion scripts^^^-----------------------------------------------------------------------
on *:TEXT:@calc*:#: {
/illegalcheck $1-
if ($2- == $null) {
msg $chan You needed a calculator to figure that out?
}
else {
msg $chan $+ $2- = $bytes($calc($replace($2-,x,*,k,000,m,00000,b,000000,pi,$pi)),bd) $+ .
}
}
on *:TEXT:!sqrt*:#: {
/illegalcheck $1-
if ($2 == $null) {
notice $nick You needed a calculator to figure that out?
}
else {
notice $nick The square root of $2- is $sqrt($2-) $+ .
}
}
on *:TEXT:!calc*:#: {
/illegalcheck $1-
if ($2- == $null) {
notice $nick You needed a calculator to figure that out?
}
else {
notice $nick $+ $2- = $bytes($calc($replace($2-,x,*,k,000,m,00000,pi,$pi)),bd) $+ .
}
}
on *:TEXT:@sqrt*:#: {
/illegalcheck $1-
if ($2 == $null) {
msg $chan You needed a calculator to figure that out?
}
else {
msg $chan The square root of $2- is $sqrt($2-) $+ .
}
}
---------------------------------------------------------------^^calculator^^-----------------------------------------------------------