alias togglelog {
if ($1 == $null) {
if ($group(#alog).status == on) {
disable #alog
close -@ @chanlog
return
}
else enable #alog
return
}
if ($readini(crazyspence.ini,alog,$1) == off) {
writeini crazyspence.ini alog $1 on
echo -a -- $1 reactivated
}
else {
writeini crazyspence.ini alog $1 off
echo -a -- $1 deactivated
}
}
alias autoalog {
if ($1 == off) {
writeini crazyspence.ini alog auto off
echo -s -- Auto windowing disabled
return
}
echo -s -- Auto windowing active.... Checking Max window size
window -ax " $+ $active $+ "
writeini crazyspence.ini alog mircx $window($active).x
if ($window($active).y < 0) writeini crazyspence.ini alog mircy 0
else writeini crazyspence.ini alog mircy $window($active).y
writeini crazyspence.ini alog mircw $window($active).w
writeini crazyspence.ini alog mirch $window($active).h
writeini crazyspence.ini alog auto on
window -r " $+ $active $+ "
echo -s -- Beginning window resize
if ($readini(crazyspence.ini,alog,edit) == on) window -rle @chanlog $readini(crazyspence.ini,alog,mircx) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch - $readini(crazyspence.ini,alog,mirch) * 0.79)),0)
else window -rl @chanlog $readini(crazyspence.ini,alog,mircx) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch - $readini(crazyspence.ini,alog,mirch) * 0.79)),0)
set %alog.scid $scid(0)
while (%alog.scid > 0) {
scid $scon(%alog.scid)
window -r " $+ Status Window $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
dec %alog.scid
set %alog.i 0
while (%alog.i <= $chan(0) || %alog.i <= $query(0) || %alog.i <= $window(0) || %alog.i <= $chat(0) || %alog.i <= $send(0) || %alog.i <= $get(0) || %alog.i <= $fserve(0)) {
inc %alog.i
if ($chan(%alog.i)) {
window -r " $+ $chan(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
}
if ($query(%alog.i)) {
window -r " $+ $query(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
}
if ($window(%alog.i) && $window(%alog.i) != @chanlog) {
window -r " $+ $window(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
}
if ($send(%alog.i)) {
window -r " $+ $send(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
}
if ($chat(%alog.i)) {
window -r " $+ = $+ $chat(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
}
if ($get(%alog.i)) {
window -r " $+ $get(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
}
if ($fserve(%alog.i)) {
window -r " $+ $fserve(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
}
}
}
echo -s -- Windows resized. All new windows will be automatically resized
echo -s -- If you change your resolution or mIRC's window size please type /autoalog again to adjust
echo -s -- To disable this feature type /autoalog off
unset %alog.scid
unset %alog.i
}
alias asetup {
dialog -m aoptions alogoptions
if ($readini(crazyspence.ini,alog,edit) == on) did -c aoptions 12
if ($readini(crazyspence.ini,alog,auto) == on) did -c aoptions 13
if ($readini(crazyspence.ini,alog,snotice) == on) did -c aoptions 14
if ($readini(crazyspence.ini,alog,input) == on) did -c aoptions 16
if ($readini(crazyspence.ini,alog,cmsg) == on) did -c aoptions 22
if ($readini(crazyspence.ini,alog,caction) == on) did -c aoptions 23
if ($readini(crazyspence.ini,alog,cnotice) == on) did -c aoptions 24
if ($readini(crazyspence.ini,alog,cjoin) == on) did -c aoptions 25
if ($readini(crazyspence.ini,alog,cquit) == on) did -c aoptions 26
if ($readini(crazyspence.ini,alog,ckick) == on) did -c aoptions 27
if ($readini(crazyspence.ini,alog,cnick) == on) did -c aoptions 28
if ($readini(crazyspence.ini,alog,ctopic) == on) did -c aoptions 29
if ($readini(crazyspence.ini,alog,cmode) == on) did -c aoptions 200
if ($readini(crazyspence.ini,alog,pmsg) == on) did -c aoptions 32
if ($readini(crazyspence.ini,alog,paction) == on) did -c aoptions 33
if ($readini(crazyspence.ini,alog,pnotice) == on) did -c aoptions 34
did -r aoptions 44
set %alog.i 1
while (%alog.i <= $ini(crazyspence.ini,alog,0)) {
if ($left($ini(crazyspence.ini,alog,%alog.i),1) == $chr(35)) {
if ($readini(crazyspence.ini,alog,$ini(crazyspence.ini,alog,%alog.i)) == off ) did -a aoptions 44 $ini(crazyspence.ini,alog,%alog.i)
}
inc %alog.i
}
unset %alog.i
}
on 1:start:{
echo --- Activity log by CrazySpence
echo --- type /asetup to change settings and manage log block list
if ($readini(crazyspence.ini,alog,auto) == on) autoalog
}
on 1:load:{
if (!$readini(crazyspence.ini,alog,cmsg)) writeini crazyspence.ini alog cmsg on
if (!$readini(crazyspence.ini,alog,caction)) writeini crazyspence.ini alog caction on
if (!$readini(crazyspence.ini,alog,cjoin)) writeini crazyspence.ini alog cjoin on
if (!$readini(crazyspence.ini,alog,cquit)) writeini crazyspence.ini alog cquit on
if (!$readini(crazyspence.ini,alog,input)) writeini crazyspence.ini alog input on
asetup
}
on 1:unload:{
$dialog(unload,question,-2)
window -c @chanlog
window -x " $+ $active $+ "
if (%alog.unload == yes) {
unset %alog.unload
echo -a -- Unloading and Checking for other CrazySpence scripts (they all use the same ini file)
if ($script(colournicks.mrc)) {
remini crazyspence.ini alog
echo -a -- CrazySpence script still active and crazyspence.ini will not be deleted, removing alog section from CrazySpence.ini
return
}
if ($script(foreverplayer.mrc)) {
remini crazyspence.ini alog
echo -a -- CrazySpence script still active and crazyspence.ini will not be deleted, removing alog section from CrazySpence.ini
return
}
remove crazyspence.ini
echo -a -- no CrazySpence scripts detected, crazyspence.ini removed
}
else {
echo -a -- Unloading script and keeping current settings
unset %alog.unload
}
}
#alog on
on 1:text:*:#:{
if ($readini(crazyspence.ini,alog,cmsg) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan < $+ $nick $+ > $1-
else aline @chanlog $chan < $+ $nick $+ > $1-
sline @chanlog $line(@chanlog,0)
}
on 1:text:*:?:{
if ($readini(crazyspence.ini,alog,pmsg) != on) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp * $+ $nick $+ * $1-
else aline @chanlog $chan * $+ $nick $+ * $1-
sline @chanlog $line(@chanlog,0)
}
on 1:action:*:#:{
if ($readini(crazyspence.ini,alog,caction) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan * $nick $1-
else aline @chanlog $chan * $nick $1-
sline @chanlog $line(@chanlog,0)
}
on 1:action:*:?:{
if ($readini(crazyspence.ini,alog,caction) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp * $+ $nick $+ * $1-
else aline @chanlog * $+ $nick $+ * $1-
sline @chanlog $line(@chanlog,0)
}
on 1:join:*:{
if ($readini(crazyspence.ini,alog,cjoin) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick has joined
else aline @chanlog $chan $nick has joined
sline @chanlog $line(@chanlog,0)
}
on 1:part:*:{
if ($readini(crazyspence.ini,alog,cjoin) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick has left
else aline @chanlog $chan $nick has left
sline @chanlog $line(@chanlog,0)
}
on 1:quit:{
if ($readini(crazyspence.ini,alog,cquit) != on) return
set %alog.scid $scid(0)
while (%alog.scid > 0) {
scid $scon(%alog.scid)
dec %alog.scid
set %alog.i 0
while (%alog.i <= $ini(crazyspence.ini,alog,0)) {
inc %alog.i
if ($nick ison $ini(crazyspence.ini,alog,%alog.i)) {
if ($readini(crazyspence.ini,alog,$ini(crazyspence.ini,alog,%alog.i)) == off) {
unset %alog.i
unset %alog.scid
return
}
}
}
}
unset %alog.i
unset %alog.scid
scid -r
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $nick on $network has Quit( $+ $1- $+ )
else aline @chanlog $nick on $network has Quit( $+ $1- $+ )
sline @chanlog $line(@chanlog,0)
}
on 1:notice:*:#:{
if ($readini(crazyspence.ini,alog,cnotice) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan - $+ $nick $+ - $1-
else aline @chanlog $chan - $+ $nick $+ - $1-
sline @chanlog $line(@chanlog,0)
}
on 1:notice:*:?:{
if ($readini(crazyspence.ini,alog,pnotice) != on) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp - $+ $nick $+ - $1-
else aline @chanlog - $+ $nick $+ - $1-
sline @chanlog $line(@chanlog,0)
}
on 1:kick:#:{
if ($readini(crazyspence.ini,alog,ckick) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick kicked $knick ( $+ $1- $+ )
else aline @chanlog $chan $nick kicked $knick ( $+ $1- $+ )
sline @chanlog $line(@chanlog,0)
}
on 1:nick:{
if ($readini(crazyspence.ini,alog,cnick) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $nick is now known as $newnick
else aline @chanlog $nick is now known as $newnick
sline @chanlog $line(@chanlog,0)
}
on 1:topic:#:{
if ($readini(crazyspence.ini,alog,ctopic) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick changes topic to: $1-
else aline @chanlog $chan $nick changes topic to: $1-
sline @chanlog $line(@chanlog,0)
}
on 1:mode:#:{
if ($readini(crazyspence.ini,alog,cmode) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick set mode: $1-
else aline @chanlog $chan $nick set mode: $1-
sline @chanlog $line(@chanlog,0)
}
on 1:ban:#:{
if ($readini(crazyspence.ini,alog,ckick) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick banned $banmask
else aline @chanlog $chan $nick banned $banmask
sline @chanlog $line(@chanlog,0)
}
on 1:unban:#:{
if ($readini(crazyspence.ini,alog,ckick) != on) return
if ($readini(crazyspence.ini,alog,$chan) == off) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick unbanned $banmask
else aline @chanlog $chan $nick unbanned $banmask
sline @chanlog $line(@chanlog,0)
}
on 1:snotice:*:{
if ($readini(crazyspence.ini,alog,snotice) != on) return
if $window(chanlog) == $null) window -l @chanlog
if ($line(@chanlog,0) >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp - $+ $server $+ - $1-
else aline @chanlog - $+ $server $+ - $1-
sline @chanlog $line(@chanlog,0)
}
on 1:active:*:{
scid $activecid
if ($active == @chanlog) {
if ($readini(crazyspence.ini,alog,edit) == on) window -rle @chanlog $readini(crazyspence.ini,alog,mircx) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch - $readini(crazyspence.ini,alog,mirch) * 0.79)),0)
else window -rl @chanlog $readini(crazyspence.ini,alog,mircx) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch - $readini(crazyspence.ini,alog,mirch) * 0.79)),0)
return
}
if ($readini(crazyspence.ini,alog,auto) == on) window -r " $+ $active $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
}
on 1:input:#:{
if ($readini(crazyspence.ini,alog,input) != on) return
if ($1 == /msg) {
echo -s -> * $+ $2 $+ * $3-
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * $3-
else aline @chanlog -> * $+ $2 $+ * $3-
sline @chanlog $line(@chanlog,0)
return
}
if ($1 == /me) {
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan * $me $2-
else aline @chanlog $chan * $me $2-
sline @chanlog $line(@chanlog,0)
return
}
if ($1 == /describe) {
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * * $me $3-
else aline @chanlog -> * $+ $2 $+ * * $me $3-
sline @chanlog $line(@chanlog,0)
return
}
if ($left($1,1) == /) return
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan < $+ $me $+ > $1-
else aline @chanlog $chan < $+ $me $+ > $1-
sline @chanlog $line(@chanlog,0)
return
}
on 1:input:?:{
if ($readini(crazyspence.ini,alog,input) != on) return
if ($1 == /msg) {
echo -s -> * $+ $2 $+ * $3-
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * $3-
else aline @chanlog -> * $+ $2 $+ * $3-
sline @chanlog $line(@chanlog,0)
return
}
if ($1 == /me) {
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $active $+ * * $me $2-
else aline @chanlog * $+ $query $+ * * $me $2-
sline @chanlog $line(@chanlog,0)
return
}
if ($1 == /describe) {
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * * $me $3-
else aline @chanlog -> * $+ $2 $+ * * $me $3-
sline @chanlog $line(@chanlog,0)
return
}
if ($left($1,1) == /) return
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $active $+ * < $+ $me $+ > $1-
else aline @chanlog $chan < $+ $me $+ > $1-
sline @chanlog $line(@chanlog,0)
return
}
on 1:input:@chanlog:{
if ($readini(crazyspence.ini,alog,input) != on) return
if ($1 == /msg) {
echo -s -> * $+ $2 $+ * $3-
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * $3-
else aline @chanlog -> * $+ $2 $+ * $3-
sline @chanlog $line(@chanlog,0)
return
}
if ($1 == /describe) {
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * * $me $3-
else aline @chanlog -> * $+ $2 $+ * * $me $3-
sline @chanlog $line(@chanlog,0)
return
}
}
on 1:input:Status Window:{
if ($readini(crazyspence.ini,alog,input) != on) return
if ($1 == /msg) {
echo -s -> * $+ $2 $+ * $3-
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * $3-
else aline @chanlog -> * $+ $2 $+ * $3-
sline @chanlog $line(@chanlog,0)
return
}
if ($1 == /describe) {
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * * $me $3-
else aline @chanlog -> * $+ $2 $+ * * $me $3-
sline @chanlog $line(@chanlog,0)
return
}
}
#alog end
on 1:dialog:aoptions:sclick:12:{
if ($did($did).state == 1) {
writeini crazyspence.ini alog edit on
window -c @chanlog
window -le @chanlog
}
else {
writeini crazyspence.ini alog edit off
window -c @chanlog
window -l @chanlog
}
}
on 1:dialog:aoptions:sclick:13:{
if ($did($did).state == 1) {
writeini crazyspence.ini alog auto on
autoalog
}
else writeini crazyspence.ini alog auto off
}
on 1:dialog:aoptions:sclick:14:{
if ($did($did).state == 1) writeini crazyspence.ini alog snotice on
else writeini crazyspence.ini alog snotice off
}
on 1:dialog:aoptions:sclick:15:{
if ($did($did).state == 1) disable #alog
else enable #alog
}
on 1:dialog:aoptions:sclick:16:{
if ($did($did).state == 1) writeini crazyspence.ini alog input on
else writeini crazyspence.ini alog input off
}
on 1:dialog:aoptions:sclick:22:{
if ($did($did).state == 1) writeini crazyspence.ini alog cmsg on
else writeini crazyspence.ini alog cmsg off
}
on 1:dialog:aoptions:sclick:23:{
if ($did($did).state == 1) writeini crazyspence.ini alog caction on
else writeini crazyspence.ini alog caction off
}
on 1:dialog:aoptions:sclick:24:{
if ($did($did).state == 1) writeini crazyspence.ini alog cnotice on
else writeini crazyspence.ini alog cnotice off
}
on 1:dialog:aoptions:sclick:25:{
if ($did($did).state == 1) writeini crazyspence.ini alog cjoin on
else writeini crazyspence.ini alog cjoin off
}
on 1:dialog:aoptions:sclick:26:{
if ($did($did).state == 1) writeini crazyspence.ini alog cquit on
else writeini crazyspence.ini alog cquit off
}
on 1:dialog:aoptions:sclick:27:{
if ($did($did).state == 1) writeini crazyspence.ini alog ckick on
else writeini crazyspence.ini alog ckick off
}
on 1:dialog:aoptions:sclick:28:{
if ($did($did).state == 1) writeini crazyspence.ini alog cnick on
else writeini crazyspence.ini alog cnick off
}
on 1:dialog:aoptions:sclick:29:{
if ($did($did).state == 1) writeini crazyspence.ini alog ctopic on
else writeini crazyspence.ini alog ctopic off
}
on 1:dialog:aoptions:sclick:200:{
if ($did($did).state == 1) writeini crazyspence.ini alog cmode on
else writeini crazyspence.ini alog cmode off
}
on 1:dialog:aoptions:sclick:32:{
if ($did($did).state == 1) writeini crazyspence.ini alog pmsg on
else writeini crazyspence.ini alog pmsg off
}
on 1:dialog:aoptions:sclick:33:{
if ($did($did).state == 1) writeini crazyspence.ini alog paction on
else writeini crazyspence.ini alog paction off
}
on 1:dialog:aoptions:sclick:34:{
if ($did($did).state == 1) writeini crazyspence.ini alog pnotice on
else writeini crazyspence.ini alog pnotice off
}
on 1:dialog:aoptions:sclick:42:{
if ($left($did(43).text,1) == $chr(35)) {
writeini crazyspence.ini alog $did(43).text off
did -r aoptions 44
set %alog.i 1
while (%alog.i <= $ini(crazyspence.ini,alog,0)) {
if ($left($ini(crazyspence.ini,alog,%alog.i),1) == $chr(35)) {
if ($readini(crazyspence.ini,alog,$ini(crazyspence.ini,alog,%alog.i)) == off ) did -a aoptions 44 $ini(crazyspence.ini,alog,%alog.i)
}
inc %alog.i
}
}
unset %alog.i
}
on 1:dialog:aoptions:dclick:44:{
writeini crazyspence.ini alog $did($did).seltext on
did -d aoptions $did($did).sel 44
did -r aoptions 44
set %alog.i 1
while (%alog.i <= $ini(crazyspence.ini,alog,0)) {
if ($left($ini(crazyspence.ini,alog,%alog.i),1) == $chr(35)) {
if ($readini(crazyspence.ini,alog,$ini(crazyspence.ini,alog,%alog.i)) == off ) did -a aoptions 44 $ini(crazyspence.ini,alog,%alog.i)
}
inc %alog.i
}
unset %alog.i
}
menu @chanlog {
dclick:{
if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) set %alog.chan $mid($line(@chanlog,$1-),$calc($pos($line(@chanlog,$1-), $chr(32),1) + 1),$calc($pos($line(@chanlog,$1-), $chr(32),2) - $pos($line(@chanlog,$1-), $chr(32),1)))
else set %alog.chan $left($line(@chanlog,$1-),$pos($line(@chanlog,$1-),$chr(32)))
set %alog.scid $scid(0)
while (%alog.scid > 0) {
set %alog.loop 1
scid $scon(%alog.scid)
dec %alog.scid
while (%alog.loop <= $chan(0)) {
if ($chan(%alog.loop) == %alog.chan) {
window -a %alog.chan
unset %alog.*
return
}
inc %alog.loop
}
}
unset %alog.*
}
}
dialog -l alogoptions {
title "Activity Log options"
size -1 -1 200 90
option dbu
tab "Global", 10, -1 -1 200 125
text "Check boxes to turn a feature on. Uncheck to disable",1,20 22 130 10,center tab 10
check "Editbox", 12, 20 30 56 10,left tab 10
check "Auto Windows", 13, 20 40 56 10,left tab 10
check "Server Notices", 14, 20 50 56 10,left tab 10
check "Your input", 16,20 60 56 10,left tab 10
check "Disable Activity log ",15, 20 70 56 10,left tab 10
tab "Channel", 20, -1 -1 200 125
text "Check boxes to turn a feature on. Uncheck to disable",21,20 22 130 10,center tab 20
check "Messages", 22, 20 30 46 10,left tab 20
check "Actions", 23, 20 40 46 10,left tab 20
check "Notices", 24, 20 50 46 10,left tab 20
check "Join/part", 25, 20 60 46 10,left tab 20
check "Quits", 26, 20 70 46 10,left tab 20
check "Kicks/Bans", 27, 70 30 46 10,left tab 20
check "Nick changes", 28, 70 40 46 10,left tab 20
check "Topics", 29, 70 50 46 10,left tab 20
check "Modes", 200, 70 60 46 10,left tab 20
tab "Private", 30, -1 -1 200 125
text "Check boxes to turn a feature on. Uncheck to disable",31,20 22 130 10,center tab 30
check "Messages", 32, 20 30 46 10,left tab 30
check "Actions", 33, 20 40 46 10,left tab 30
check "Notices", 34, 20 50 46 10,left tab 30
tab "Log block", 40 -1 -1 200 125
text "Type channel name into the edit box, double click in the list to remove",41,10 22 180 10,center tab 40
button "Add Channel", 42, 19 31 36 10, left tab 40
edit "#chan", 43, 56 30 46 10,right tab 40
list 44, 56 45 46 50, sort tab 40
}
on 1:dialog:unload:sclick:2:{
set %alog.unload yes
}
on 1:dialog:unload:sclick:3:{
set %alog.unload no
}
dialog question {
title "Delete settings?"
size -1 -1 100 50
option dbu
text "Do you want to delete the settings in crazyspence.ini?",1, 1 5 95 20,center
button "Yes",2,25 25 20 15,ok
button "No",3,55 25 20 15,cancel
}