immediately*
check for typos.
and also, you can definately use some elseif.
also what good is setting mode +k without adding an extra parameter. yay for a keyless channel.
code needs revising.
also, in the !911, it mentions !tscript. which triggers only the given desire to type it for no reason.
also,
on *:TEXT:!lockdown orange OFF:*: {
if ($nick isop $chan) {
can be on @:text ... bla bla
maybe you shouldve "stripped" this code a little more, maybe 100% instead of 75%
kthxbai
on *:OP:#:{ if ($opnick == %anti) mode $chan -o %anti }
on *:JOIN:#:{ if (%CAnti) cs deop $chan %CAnti }
alias Anti {
set %Anti $$?"Who ?"
if (%anti isop $chan) { /mode # -o %Anti }
}
alias CAnti {
set %CAnti $$?"Who ?"
if (%CAnti isop $chan) { /cs deop $chan %CAnti }
}
menu channel,Nicklist {
-
.Anti OP
..Deop give over Me
...$iif(%AntiOP == on,$style(2),$style(0)) Turn On: { /Anti | msg $chan 4Anti OP System is starting now. }
...$iif(%AntiOP == on,$style(2),$style(0)) Turn Off: { /unset %Anti | msg $chan 4Anti OP System stops now. }
-
}
menu channel,nicklist {
-
.Anti Op
..Deop give over ChanServ
...$iif(%CAntiOP == on,$style(2),$style(0)) Turn On: { /CAnti | msg $chan 4CAnti OP System is starting now. }
...$iif(%CAntiOP == on,$style(2),$style(0)) Turn Off: { /unset %CAnti | msg $chan 4CAnti OP System stops now. }
-
}
i know its a little late Vortex XD but this should fix it:
on *:load:{
mkdir Memos
write Memos/inbox.txt
write Memos/outbox.txt
write Memos/saved.txt
write Memos/contacts.txt
}
alias memos { If (!$dialog(memo.main)) { dialog -drmo memo.main memo.main } }
menu * {
Memos:memos
}
;======================Main=======================
dialog memo.main {
title "Memo Manager"
size -1 -1 207 169
option dbu
button "Done", 15, 133 152 37 12, ok
tab "Inbox", 10, 5 0 195 144
list 100, 11 16 184 109, tab 10 size vsbar
button "Delete", 103, 111 128 37 12, tab 10
button "Delete All", 104, 158 128 37 12, tab 10
button "Save", 102, 62 128 37 12, tab 10
button "Reply", 101, 11 128 37 12, tab 10
tab "Outbox", 11
list 200, 11 16 184 109, tab 11 size vsbar
button "Delete", 202, 84 128 37 12, tab 11
button "Delete All", 203, 133 128 37 12, tab 11
button "Cancel", 201, 35 128 37 12, tab 11
tab "Saved", 12
list 300, 11 16 184 109, tab 12 size vsbar
button "Delete", 301, 60 128 37 12, tab 12
button "Delete All", 302, 111 128 37 12, tab 12
button "New Memo", 13, 35 152 37 12
button "Contacts", 14, 84 152 37 12
}
on *:dialog:memo.main:sclick:*:{
If ($did == 13) { dialog -drmo memo.new memo.new }
If ($did == 14) { dialog -drmo memo.contacts memo.contacts }
If ($did == 101) && ($did(100).seltext) {
set %memo.reply on
dialog -drmo memo.new memo.new
did -a memo.new 101 $gettok($did(100).seltext,1,45)
}
If ($did == 102) && ($did(100).seltext) {
write memos/saved.txt $read(memos/inbox.txt,w,$did(100).seltext $+ * )
write -dl $+ $readn memos/inbox.txt
loadlists
}
If ($did == 103) && ($did(100).seltext) {
dialog -n memo.main
If ($input(Are you sure you wish to delete this message? $crlf $+ $did(100).seltext,y,Delete Memo) == $true) {
var %temp $read(memos/inbox.txt,w,$did(100).seltext $+ *)
write -dl $+ $readn memos/inbox.txt
loadlists
}
dialog -ov memo.main memo.main
}
If ($did == 104) {
dialog -n memo.main
If ($input(Are you sure you wish to delete all messages in your inbox?,y,Delete All) == $true) { write -c memos/inbox.txt | loadlists }
dialog -ov memo.main memo.main
}
If ($did == 201) { dialog -n memo.main | ms cancel $$?="Enter nick/channel to cancel last memo for:" }
If ($did == 202) && ($did(200).seltext) {
var %temp $read(memos/outbox.txt,w,$did(100).seltext $+ *)
write -dl $+ $readn memos/outbox.txt
loadlists
}
If ($did == 203) {
dialog -n memo.main
If ($input(Are you sure you wish to clear your outbox?,y,Delete All) == $true) { write -c memos/outbox.txt | loadlists }
dialog -ov memo.main memo.main
}
If ($did == 301) && ($did(300).seltext) {
dialog -n memo.main
If ($input(Are you sure you wish to delete this message? $crlf $+ $did(300).seltext,y,Delete Memo) == $true) {
var %temp $read(memos/saved.txt,w,$did(300).seltext $+ *)
write -dl $+ $readn memos/saved.txt
loadlists
}
dialog -ov memo.main memo.main
}
If ($did == 302) {
dialog -n memo.main
If ($input(Are you sure you wish to delete all saved messages?,y,Delete All) == $true) { write -c memos/saved.txt | loadlists }
dialog -ov memo.main memo.main
}
}
on *:dialog:memo.main:dclick:*:{
If ($did == 100) { set %memo.view.num 100 | dialog -drmo memo.view memo.view }
If ($did == 200) { set %memo.outbox on | dialog -drmo memo.new memo.new }
If ($did == 300) { set %memo.view.num 300 | dialog -drmo memo.view memo.view }
}
on *:dialog:memo.main:init:*:{
set %memo.open on
.timer -m 1 1 loadmemos
}
on *:dialog:memo.main:close:*:{
unset %memo.*
}
;=======================New========================
dialog memo.new {
title "New Memo"
size -1 -1 204 70
option dbu
text "(separate nicks with a space)", 3, 126 7 72 8
edit "", 101, 19 6 105 10, autohs
button "To:", 100, 7 6 11 10, flat
edit "", 200, 6 19 193 31, autovs vsbar multi
button "Send", 201, 55 54 37 12
button "Cancel", 202, 108 55 37 12, cancel
}
on *:dialog:memo.new:init:*:{
If (%memo.reply) {
unset %memo.reply
did -a memo.new 200 $gettok($read(memos/inbox.txt,w,* $+ $did(memo.main,100).seltext $+ *),4,58)
did -f memo.new 200
did -c memo.new 200 1 1 $len($did(200) + 1)
}
If (%memo.outbox) {
unset %memo.outbox
did -a memo.new 200 $gettok($read(memos/outbox.txt,w,* $+ $did(memo.main,200).seltext $+ *),4-,58)
did -a memo.new 101 $gettok($read(memos/outbox.txt,w,* $+ $did(memo.main,200).seltext $+ *),1,45)
}
}
on *:dialog:memo.new:sclick:*:{
If ($did == 100) { dialog -drmo memo.contacts memo.contacts }
If ($did == 201) && ($did(101)) {
set %memo.write.nicks $numtok($did(101),32)
dialog -n memo.new
dialog -n memo.main
set %memo.num 1
set %memo.new.text $did(200)
If (%memo.write.nicks == 1) { ms send $did(101) $did(200) }
else { .timermemo %memo.write.nicks 4 memosend $did(101) }
set %memo.new.write $did(101) - $asctime(mmm d - H:nn:ss) : $did(200)
dialog -x memo.new
}
}
;=======================View========================
dialog memo.view {
title "Memo from"
size -1 -1 204 53
option dbu
edit "", 1, 6 3 193 31, read autovs vsbar
button "Done", 3, 82 38 37 12, ok
button "Add to Contacts", 2, 0 43 45 9
}
on *:dialog:memo.view:init:*:{
dialog -t $dname $did(memo.main,%memo.view.num).seltext
If (%memo.view.num == 100) { did -a $dname 1 $gettok($read(memos/inbox.txt,w,* $+ $did(memo.main,%memo.view.num).seltext $+ *),4-,58) }
elseif (%memo.view.num == 200) { did -a $dname 1 $gettok($read(memos/outbox.txt,w,* $+ $did(memo.main,%memo.view.num).seltext $+ *),4-,58) }
elseif (%memo.view.num == 300) { did -a $dname 1 $gettok($read(memos/saved.txt,w,* $+ $did(memo.main,%memo.view.num).seltext $+ *),4-,58) }
}
on *:dialog:memo.view:sclick:2:{ write memos/contacts.txt $$gettok($did(memo.main,%memo.view.num).seltext,1,45) }
on *:dialog:memo.view:close:*:{ unset %memo.view.num }
;======================Contacts======================
dialog memo.contacts {
title "Contact List"
size -1 -1 90 97
option dbu
list 1, 2 2 85 82, size
button "New Contact", 2, 2 85 40 9
button "Delete", 3, 47 85 40 9
}
on *:dialog:memo.contacts:init:*:{
filter -cxfo memos/contacts.txt memo.contacts 1 $crlf
}
on *:dialog:memo.contacts:sclick:*:{
If ($did == 2) {
dialog -n memo.main
dialog -n memo.contacts
If ($dialog(memo.new)) { dialog -n memo.new }
write memos/contacts.txt $$input(Enter new contact nick:,eo,New Contact)
If ($dialog(memo.new)) { dialog -ov memo.new memo.new }
dialog -ov memo.contacts memo.contacts
filter -cxfo memos/contacts.txt memo.contacts 1 $crlf
}
If ($did == 3) && ($did(1).seltext) { write -dl $+ $did(1).sel memos/contacts.txt | filter -cxfo memos/contacts.txt memo.contacts 1 $crlf }
}
on *:dialog:memo.contacts:dclick:1:{ If ($dialog(memo.new)) { did -ra memo.new 101 $did(memo.new,101) $did(1).seltext } }
;======================Loading======================
alias -l loadmemos var %dialog $dialog(memo.loading,memo.loading,-4)
dialog memo.loading {
title "Memo Manager"
size -1 -1 163 35
option dbu
text "Downloading from MemoServ...", 1, 37 13 89 8, center
}
on *:dialog:memo.loading:init:*:{ ms info }
;======================Remotes======================
on ^*:notice:*:?:{
If ($nick == MemoServ) {
If (You have a new memo from * iswm $1-) { haltdef | .timer -m 1 1 newmemo $7 }
If (You have * new memos. iswm $1-) { haltdef | .timer -m 1 1 newmemos $3 }
If (Type /msg MemoServ READ * to read it. iswm $strip($1-)) { haltdef }
If ($strip($1-) == Type /msg MemoServ LIST NEW to list them.) { haltdef }
If (%memo.open) {
haltdef
If (%memo.write.nick) {
If (!$read(memos/inbox.txt,w,* $+ %memo.write.info $+ *)) { write Memos/inbox.txt %memo.write.info : $1- }
unset %memo.write.*
}
If (You currently have * memo* iswm $1-) { set %memo.total $strip($4) | ms read new }
elseif (Memo * from * iswm $1-) {
set %memo.write.nick $4
set %memo.write.info $4 - $remove($5,$chr(40)) $6 - $7
If ($2 == %memo.total) { ms del all | dialog -x memo.loading }
}
elseif ($1- == You have no new memos.) || ($1- == You have no memos.) {
unset %memo.write.*
If ($dialog(memo.loading)) { dialog -x memo.loading | loadlists }
}
elseif (Last memo to * has been cancelled. iswm $1-) { .timer -m 1 1 memocancely }
elseif ($1- == No memo was cancellable.) { .timer -m 1 1 memocanceln }
elseif (Nick * isn't registered. iswm $1-) { If (%memo.write.nicks) { dec %memo.write.nicks } | .timer -m 1 1 nonick $strip($2) }
elseif (Memo sent to * iswm $strip($1-)) {
dec %memo.write.nicks
If (%memo.write.nicks == 0) { unset %memo.write.nicks | write memos/outbox.txt %memo.new.write | unset %memo.new.write | .timer -m 1 1 memosent }
}
elseif ($1- == All of your memos have been deleted.) { loadlists }
}
}
}
;=======================Aliases=======================
alias -l newmemo {
If ($input(You have a new memo from $1 $+ $crlf $+ Open Memo Manager?,y,Memo Alert) == $true) {
If ($dialog(memo.main)) { dialog -x memo.main }
dialog -drmo memo.main memo.main
}
}
alias -l newmemos {
If ($1 isnum) && ($input(You have $1 new memo(s). $+ $crlf $+ Open Memo Manager?,y,Memo Alert) == $true) {
If ($dialog(memo.main)) { dialog -x memo.main }
dialog -drmo memo.main memo.main
}
}
alias -l memocancely { var %input $input(Last memo to $4 successfully cancelled,o,Memo Cancelled) | dialog -ov memo.main memo.main }
alias -l memocanceln { var %input $input(All memos sent to this user have been read,o,Memo Cancellation Failed) | dialog -ov memo.main memo.man }
alias -l nonick { var %input $input($1 is not a registered nick,o,Memo Error) | dialog -ov memo.main memo.main }
alias -l memosent { var %input $input(Memo finished sending,o,Success) | dialog -ov memo.main memo.main | dialog -x memo.new }
alias -l loadlists {
did -r memo.main 100,200,300
var %memo.num 1
while ($calc(%memo.num - 1) != $lines(memos/inbox.txt)) {
did -a memo.main 100 $gettok($read(memos/inbox.txt,%memo.num),1-3,58)
inc %memo.num
}
If (%memo.total isnum) { did -c memo.main 100 $calc($did(memo.main,100).lines - %memo.total + 1) }
var %memo.num 1
while ($calc(%memo.num - 1) != $lines(memos/outbox.txt)) {
did -a memo.main 200 $gettok($read(memos/outbox.txt,%memo.num),1-3,58)
inc %memo.num
}
var %memo.num 1
while ($calc(%memo.num - 1) != $lines(memos/saved.txt)) {
did -a memo.main 300 $gettok($read(memos/saved.txt,%memo.num),1-3,58)
inc %memo.num
}
}
alias -l memosend {
ms send $gettok($1-,%memo.num,32) %memo.new.text
inc %memo.num
}