I stand or sit and missing your help to get this script tightened up a bit, because it is an old script I have code for a long time ago, but my brain is going dead, since I understand nothing right now
- Code: Select all
on *:LOAD:{
//echo $active 10«0 ------ Go Go Go ------ 10»0
//echo $active 10«0 script lavet af: Futz0r 10»0
//echo $active 10«0 er der fejl send en mail til Futz0r@you-aimbot.info 10»0
//echo $active 10«0 håber du vil hygge dig :D 10»0
//echo $active 10«0 ------ Go Go Go ------ 10»0
writeini -n list.ini #channel Futz0r@Futz0r.users.quakenet.org Futz0r owner
set %protect off
set %topic-lock off
}
on *:op:#:{
if (%Protect == OFF) || ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) || ($nick == $me) || ($nick == Q) || ($address($nick,2) == *!*@port80a.se.quakenet.org) {
halt
}
else {
raw -q MODE $chan -oo+b $nick $opnick $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 OP ikke op nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick
}
}
on *:deop:#:{
if (%Protect == OFF) || ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) || ($nick == $me)|| ($nick == Q) || ($address($nick,2) == *!*@port80a.se.quakenet.org) {
if ($opnick == $me) { msg l,q recover $chan | timer 1 1 msg l,q op $chan | timer 1 3 mode $chan +b $address($2,1) | timer 1 4 kick $chan $nick 10«0 DEOP ikke deop nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick }
halt
}
else {
raw -q MODE $chan -o+ob $nick $opnick $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 DEOP ikke deop nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n users.ini blacklist $address($nick,2) $nick
}
}
on *:voice:#:{
if (%Protect == OFF) || ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) || ($nick == $me) || ($nick == Q) || ($address($nick,2) == *!*@port80a.se.quakenet.org) {
halt
}
else {
raw -q MODE $chan -ov+b $nick $vnick $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 VOICE ikke voice nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick har sat +v til $vnick
}
}
on *:devoice:#:{
if (%Protect == OFF) || ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) || ($nick == $me) || ($nick == Q) || ($address($nick,2) == *!*@port80a.se.quakenet.org) {
halt
}
else {
raw -q MODE $chan -o+vb $nick $vnick $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 DEVOICE ikke devoice nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick har sat -v til $vnick
}
}
on *:kick:#:{
if (%Protect == OFF) || ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) || ($nick == $me) || ($nick == L) || ($nick == Q) || ($address($nick,2) == *!*@port80a.se.quakenet.org) {
if ($knick == $me) { msg l,q recover $chan | timer 1 1 /join $chan | timer 1 3 mode $chan +b $address($nick,2))) | timer 1 4 kick $chan $nick 10«0 KICK ikke kick nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick har kicked $knick }
halt
}
else {
raw -q MODE $chan -o+b $nick $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 KICK ikke kick nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n users.ini blacklist $address($nick,2) $nick har kicked $knick
}
}
on *:ban:#:{
if (%Protect == OFF) || ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) || ($nick == $me) || ($nick == Q) || ($address($nick,2) == *!*@port80a.se.quakenet.org) {
if ($banmask == $me) { msg l,q recover $chan | timer 1 1 /msg l,q op $chan | timer 1 3 mode $chan +b $address($2,1) | kick $chan $nick 10«0 BAN ikke ban nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick har banned $banmask }
halt
}
else {
raw -q MODE $chan -ob+b $nick $banmask $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 BAN ikke ban nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick har banned $banmask
}
}
on *:unban:#:{
if (%Protect == OFF) || ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) || ($nick == $me) || ($nick == Q) || ($address($nick,2) == *!*@port80a.se.quakenet.org) {
halt
}
else {
raw -q MODE $chan -o+bb $nick $banmask $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 UNBAN ikke unban nogen 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick har unbanned $banmask
}
}
on *:mode:#:{
if (%Protect == OFF) || ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(owner.ini, $chan,admin,$address($nick,2))) || ($nick == $me) || ($nick == Q) || ($address($nick,2) == *!*@port80a.se.quakenet.org) {
halt
}
else {
raw -q MODE $chan $replacex($1,-,+,+,-) $+ -o+b $chan($chan).key $nick $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 MODE ikke chance mode 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick har chance mode
}
}
on *:topic:#:{
if (%Protect == OFF) {
halt
}
if ($readini(list.ini, $chan,admin,$address($nick,2))) || ($nick == $me) && (%Topiclock != on) {
set %topic $chan(#).topic
}
if ($readini(list.ini, $chan,owner,$address($nick,2))) {
set %topic $chan(#).topic
}
if ($nick != $me) && (%topiclock == on) && (!$readini(list.ini, $chan,owner,$address($nick,2))) {
topic # %topic
raw -q MODE $chan -o $nick
timer 1 300 raw -q MODE $chan +o $nick
msg $chan 10«0 Topic Lock: ON 9¬0 Temp deop 5 min. 10»0
}
elseif ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) || ($nick == $me) || ($nick == Q) || ($address($nick,2) == *!*@port80a.se.quakenet.org) { halt }
else {
raw -q MODE $chan -o+b $nick $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 TOPIC ikke chance topic 9¬0 Perm ban. or blacklisted 10»0 | writeini -n list.ini $chan blacklist $address($nick,2) $nick har chance topic
topic # %topic
}
}
on *:join:#:{
if (%Protect == OFF) { halt }
if ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,op,$address($nick,2))) {
raw -q MODE $chan +o $nick
}
if ($readini(list.ini, $chan,voice,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) {
raw -q MODE $chan +v $nick
}
if ($me !isop $chan) { halt }
if ($readini(list.ini, $chan,blacklist,$address($nick,2))) || ($readini(list.ini, $chan,blacklist,$address($nick,1))) {
raw -q MODE $chan +b $address($nick,2) $+ $crlf $+ KICK $chan $nick : 10«0 Blacklisted 9¬0 Reason: $gettok($readini(list.ini, $chan,blacklist,$address($nick,2)),3-,32) 10»0
}
if ($nick == $me) { /who # }
}
on *:TEXT:$admin-cmd:%protchan: {
if ($readini(list.ini, $chan,admin,$address($nick,2))) {
timer 1 1 notice $nick : 10«0 ----- commands for: admin ----- 10»0
timer 1 3 notice $nick : 10«0 >> $ << skal være foran alle cmd 10»0
timer 1 5 notice $nick : 10«0 op, deop, voice, devoice, unban, unban last, kick, kban, ban, timeban, timekban, 10»0
timer 1 7 notice $nick : 10«0 black-add, blacklist, list 10»0
timer 1 9 notice $nick : 10«0 protect-status 10»0
timer 1 11 notice $nick : 10«0 topic <topic>, $topic-lock on, $topic-lock off 10»0
timer 1 13 notice $nick : 10«0 addadmin, addop, addvoice, delop, delvoice 10»0
timer 1 15 notice $nick : 10«0 ----- commands for: admin ----- 10»0
}
}
on *:TEXT:$owner-cmd:%protchan: {
if ($readini(list.ini, $chan,owner,$address($nick,2))) {
timer 1 1 notice $nick : 10«0 ----- commands for: owner ----- 10»0
timer 1 3 notice $nick : 10«0 >> $ << skal være foran alle cmd 10»0
timer 1 5 notice $nick : 10«0 op, deop, voice, devoice, unban, unban last, kick, kban, ban, timeban, timekban, 10»0
timer 1 7 notice $nick : 10«0 black-add, black-del, blacklist, list 10»0
timer 1 9 notice $nick : 10«0 protect-status, protect on, protect-off 10»0
timer 1 11 notice $nick : 10«0 topic <topic>, topic-lock on, topic-lock off 10»0
timer 1 13 notice $nick : 10«0 addowner, addadmin, addop, addvoice, deladmin, delop, delvoice 10»0
timer 1 15 notice $nick : 10«0 ----- commands for: owner ----- 10»0
}
}
on *:text:$protect on:#:{
if ($readini(list.ini, $chan,owner,$address($nick,2))) {
set %Protect ON
raw -q NOTICE $nick : 10«0 Protection: ON 10»0
}
else (!$readini(list.ini, $chan,owner,$address($nick,2))) {
raw -q NOTICE $nick : 10«0 Du er ikke Owner 10»0
}
}
on *:text:$protect off:#:{
if ($readini(list.ini, $chan,owner,$address($nick,2))) {
set %Protect OFF
raw -q NOTICE $nick : 10«0 Protection: OFF 10»0
}
else (!$readini(list.ini, $chan,owner,$address($nick,2))) {
raw -q NOTICE $nick : 10«0 Du er ikke Owner 10»0
}
}
on *:text:$protect status:#:{
if ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) {
if (%Protect == ON) { raw -q NOTICE $nick : 10«0 Protection: ON 10»0 }
if (%Protect == OFF) { raw -q NOTICE $nick : 10«0 Protection: OFF 10»0 }
}
}
on *:text:$addowner*:#: {
if ($readini(list.ini, $chan,owner,$address($nick,2))) {
writeini -n list.ini $chan owner $address($nick,2) $2 owner
raw -q NOTICE $nick : 10«0 User: $2 ( $+ $address($nick,2) $+ ) er added som owner 10»0
raw -q NOTICE $2 : 10«0 Du er added som owner på $chan 9¬0 se dine commands på $owner-cmd 10»0
mode $chan +o $2
}
}
on *:text:$addadmin*:#:{
if ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) {
writeini -n list.ini $chan admin $address($nick,2) $2 admin
raw -q NOTICE $nick : 10«0 User: $2 ( $+ $address($nick,2) $+ ) er added som admin 10»0
raw -q NOTICE $2 : 10«0 Du er added som admin på $chan 9¬0 se dine commands på $admin-cmd 10»0
mode $chan +o $2
}
}
on *:text:$addop*:#:{
if ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) {
writeini -n list.ini $chan op $address($nick,2) $2 op
raw -q NOTICE $nick : 10«0 User: $2 ( $+ $address($nick,2) $+ ) er added som op 10»0
raw -q NOTICE $2 : 10«0 Du er added som op på $chan 10»0
mode $chan +o $2
}
}
on *:text:$addvoice*:#:{
if ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2))) {
writeini -n list.ini $chan voice $address($nick,2) $2 voice
raw -q NOTICE $nick : 10«0 User: $2 ( $+ $address($nick,2) $+ ) er added som voice 10»0
raw -q NOTICE $2 : 10«0 Du er added som voice på $chan 10»0
mode $chan +v $2
}
}
on *:text:$list*:#:{
if ($readini(list.ini, $chan,admin,$address($nick,2))) || ($readini(list.ini, $chan,owner,$address($nick,2)))
raw -q NOTICE $nick : 10«0 Owner @ $chan 10»0
var %u = $ini(list.ini, $chan,owner,0),%i = 1
while (%i <= %u) {
var %y = $ini(take.ini, $chan,owner,%i)
raw -q NOTICE $nick : %y - $readini(take.ini,owner,%y)
inc %i
}
raw -q NOTICE $nick : 10«0 Admin @ $chan 10»0
var %u = $ini(list.ini, $chan,admin,0),%i = 1
while (%i <= %u) {
var %y = $ini(take.ini, $chan,admin,%i)
raw -q NOTICE $nick : %y - $readini(take.ini,admin,%y)
inc %i
}
raw -q NOTICE $nick : 10«0 Op @ $chan 10»0
var %u = $ini(list.ini, $chan,op,0),%i = 1
while (%i <= %u) {
var %y = $ini(take.ini,op,%i)
raw -q NOTICE $nick : %y - $readini(take.ini,op,%y)
inc %i
}
raw -q NOTICE $nick : 10«0 Voice @ $chan 10»0
var %u = $ini(list.ini, $chan,voice,0),%i = 1
while (%i <= %u) {
var %y = $ini(take.ini, $chan,voice,%i)
raw -q NOTICE $nick : %y - $readini(take.ini,voice,%y)
inc %i
}
}
on *:text:$delowner:#:{
if ($readini(list.ini,#bot-owner,owner,$address($nick,2))) {
var %x = 1,%b = $ini(list.ini, $chan,owner,0)
while (%x <= %b) {
var %a = $ini(list.ini, $chan,owner,%x),%n = $readini(list.ini, $chan,owner,$ini(list.ini, $chan,owner,%x))
if ($gettok(%n,1,32) == $2) {
remini list.ini $chan owner %a
.raw -q NOTICE $nick : 10«0 Owner slettet ~ $gettok(%n,1,32) ( $+ %a $+ ) 10»0
}
inc %x
}
}
}
on *:text:$deladmin:#:{
if ($readini(list.ini, $chan,owner,$address($nick,2))) {
var %x = 1,%b = $ini(list.ini, $chan,admin,0)
while (%x <= %b) {
var %a = $ini(list.ini, $chan,admin,%x),%n = $readini(list.ini, $chan,admin,$ini(list.ini, $chan,admin,%x))
if ($gettok(%n,1,32) == $2) {
remini list.ini $chan admin %a
.raw -q NOTICE $nick : 10«0 Admin slettet ~ $gettok(%n,1,32) ( $+ %a $+ ) 10»0
}
inc %x
}
}
}
on *:text:$delop:#:{
if ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) {
var %x = 1,%b = $ini(list.ini, $chan,op,0)
while (%x <= %b) {
var %a = $ini(list.ini, $chan,op,%x),%n = $readini(list.ini, $chan,op,$ini(list.ini, $chan,op,%x))
if ($gettok(%n,1,32) == $2) {
remini list.ini $chan op %a
.raw -q NOTICE $nick : 10«0 Op slettet ~ $gettok(%n,1,32) ( $+ %a $+ ) 10»0
}
inc %x
}
}
}
on *:text:$delvoice:#:{
if ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) {
var %x = 1,%b = $ini(list.ini, $chan,voice,0)
while (%x <= %b) {
var %a = $ini(list.ini, $chan,voice,%x),%n = $readini(list.ini, $chan,voice,$ini(list.ini, $chan,voice,%x))
if ($gettok(%n,1,32) == $2) {
remini list.ini $chan voice %a
.raw -q NOTICE $nick : 10«0 Voice slettet ~ $gettok(%n,1,32) ( $+ %a $+ ) 10»0
}
inc %x
}
}
}
on *:text:$topic-lock on:%Protchan:{
if ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (%topiclock == off) || (!%topiclock) {
set %topiclock on
raw -q NOTICE $chan : 10«0 Topic Lock: ON 10»0
}
}
on *:text:$topic-lock off:%Protchan:{
if ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (%topiclock == on) {
set %topiclock off
raw -q NOTICE $chan : 10«0 Topic Lock: OFF 10»0
}
}
on *:TEXT:$topic *:%Protchan:{
if ($readini(list.ini, $chan,owner,$address($nick,2))) {
topic # $2-
set %topic $chan(#).topic
}
if ($readini(list.ini, $chan,admin,$address($nick,2))) && (%topiclock != on) {
topic # $2-
set %topic $chan(#).topic
}
}
on *:TEXT:$op*:#:{
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q MODE $chan +o $2
}
}
on *:TEXT:$deop*:#:{
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q MODE $chan -o $2
}
}
on *:TEXT:$voice*:#:{
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q MODE $chan +v $2
}
}
on *:TEXT:$devoice*:#:{
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q MODE $chan -v $2
}
}
on *:TEXT:$kick*:#:{
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q KICK $chan $2 : 10«0 Reason 9¬0 $3- 9¬0 Kicked 9¬0 Kick nr. %kicked 10»0
}
}
on *:TEXT:$ban*:#:{
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q MODE $chan +b $address($2,1)
}
}
on *:TEXT:$kban*:#:{
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q MODE $chan +b $address($2,1) $+ $crlf $+ KICK $chan $2 : 10«0 Reason 9¬0 $3- 9¬0 Perm ban 9¬0 Kick nr. %kicked 10»0
}
}
on *:TEXT:$timeban*:#:{
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q mode $chan +b $2 $address($2,1)
.timer 1 $3 raw -q mode $chan -b $address($2,1)
}
}
on *:TEXT:$timekban *:%protchan: {
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q MODE $chan +b $address($2,1) $+ $crlf $+ KICK $chan $2 : 10«0 Reason 9¬0 $4- 9¬0 Temp ban $3 min 9¬0 Kick nr. %kicked 10»0
.timer 1 $3 raw -q mode $chan -b $address($2,1)
}
}
on *:text:$unban last:%protchan:{
if ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q MODE $chan -b $ibl(#,1)
}
}
on *:text:$unban *:%protchan:{
if ($2 != $me) && ($readini(list.ini, $chan,owner,$address($nick,2))) || ($readini(list.ini, $chan,admin,$address($nick,2))) && (!$readini(list.ini, $chan,owner,$address($nick,2))) || (!$readini(list.ini, $chan,admin,$address($nick,2))) {
raw -q MODE $chan -b $2
}
}
