; BurntAsh's Dream Away System Version 3.0
; Copyright © 1999-2001 BurntAsh, All rights reserved
;
; Disclaimer
; I am not responsible for any problems, including bannings and other types of trouble you
; may encounter by using this script. I know some channels do not like ads and colors
; and all sorts of other stuff so if thats true I advise you to use the Silent Away.
; Please do not complain to me or blame me or the site you recieved this script from for any
; problems you might encounter.
; If you find that a piece of this script resembles another script, it is a coincidence. I do not
; pirate script from others.
; This file was created by BurntAsh from Undernet
; Don't take credit for other peoples work if you want to take credit for work then do it urself
on *:load: {
set %dream.anick DreamAway
set %dream.page Off
set %dream.log Off
set %dream.away Back
set %dream.ls $scriptdir $+ system\load.wav
set %dream.ps $scriptdir $+ system\page.wav
set %dream.bg ,1
set %dream.txt 4
splay %dream.ls
echo -a 4,1Dream Away System Version 3.0
echo -a 0,1By BurntAsh
echo -a 4,1Copyright © 2001 All rights reserved
echo -a 0,1Updates at Http://BurntScripts.Hypermart.Net
dialog -m AboutDream AboutDream
}
dialog DreamStats {
title "Dream Away Statistics"
size -1 -1 180 200
[Edit]
edit %dream.anick,1, 60 1 120 20, read
edit %dream.log,2, 60 30 120 20, read
edit %dream.page,3, 60 60 120 20, read
edit %dream.away,4, 60 90 120 20, read
edit %dream.idletime minute/s,5, 60 120 120 20, read
[Text]
text "Away Nick",6, 1 4 60 15, left
text "Logging",7, 1 33 60 15, left
text "Pager",8, 1 64 60 15, left
text "Status",9, 1 94 60 15, left
text "Idle After",10, 1 123 60 15, left
[Buttons]
button "Ok", 11,30 155 120 30, ok
}
dialog AboutDream {
title "About Dream Away System Version 3.0"
size -1 -1 280 200
[Text]
text "Visit this site for updates and more.",1, 4 160 180 15, left
text "I wonder if I will be missed...",2, 60 79 180 15, left
text "Written By BurntAsh",3, 90 94 96 15, left
text "Copyright © 1999-2001",4, 83 109 180 15, left
[Box]
box "",5, 40 50 200 100
[Edit]
edit "Http://BurntScripts.Hypermart.Net",6, 1 176 170 20, read,left
[Icons]
icon 7, 6 5 270 45, Dream/System/Dream.bmp, center
[Buttons]
button "Readme", 8,185 155 85 20, default
button "Visit", 9,185 176 40 20, default
button "Ok", 10,230 176 40 20, ok
}
on *:dialog:AboutDream:sclick:8: {
/run $findfile($mircdir,DreamReadMe.txt,1)
}
on *:dialog:AboutDream:sclick:9: {
.set %Put.Temp $findfile(c:\,ie.exe,1) | .run %Put.Temp Http://BurntScripts.Hypermart.Net
}
ctcp 1:PAGE:*: if (%dream.page == on) splay %dream.ps
ctcp 1:version:*:/ctcpreply $nick Addon %dream.txt $+ %dream.bg $+ is using 0Dream Away System Version 3.0 %dream.txt $+ By BurntAsh
ctcp 1:DreamMe:*:/.notice $nick $+ %dream.txt $+ %dream.bg $+ ( 0 $+ $nick $+ 14) 0Want this addon? Go to %dream.txt $+ Http://BurntScripts.Hypermart.Net
dialog DreamSetup {
size -1 -1 250 210
title "Dream Away System Version 3.0"
edit %dream.awayr,1, 50 85 190 20, multi, autohs
edit %dream.anick,2, 60 115 70 20, multi, autohs
edit %dream.awayt,3, 90 139 40 20, multi, autohs
box "Silent Ad's",25, 160 105 88 65
box "Initialize",4, 1 1 115 60
box "Options",5, 120 1 130 60
box "Utilities",6, 1 70 247 100
text "Away Nick",7, 5 118 55 15
text "Timer(in minutes)",8, 5 145 85 15
text "Reason",9, 5 88 40 15
text "Logging",10, 125 15 50 15
text "Pager",11, 125 40 50 15
text "Silent Away",19, 168 120 60 15
check "On",20, 168 140 35 14, left
check "Off",21, 208 140 35 14, left
check "On",12, 168 15 35 14, left
check "Off",13, 208 15 35 14, left
check "On",14,168 40 35 14, left
check "Off",15, 208 40 35 14, left
button "Away",16, 15 17 40 40, default
button "Back",17, 65 17 40 40, default
button "Auto-Idle",22, 5 177 60 30, default
button "Files",23, 65 177 60 30, default
button "Colors",24, 126 177 60 30, default
button "Ok",18, 186 177 60 30, ok
}
dialog dreamcolors {
option dbu
size -1 -1 126 92
title "Dream Away Sys. Color Scheme"
text "Background", 1, 15 1 30 10
list 2, 1 10 60 60, vsbar
text "Main Color", 3, 80 1 30 10
list 4, 65 10 60 60, vsbar
edit "",5, 1 65 60 10,
edit "",6, 65 65 60 10,
button "Apply",19, 2 78 122 12, ok
}
on *:dialog:dreamcolors:init:0:{
listcolors
}
alias listcolors {
did -a $dname 2 0 - White
did -a $dname 4 0 - White
did -a $dname 2 1 - Black
did -a $dname 4 1 - Black
did -a $dname 2 2 - Dark Blue
did -a $dname 4 2 - Dark Blue
did -a $dname 2 3 - Green
did -a $dname 4 3 - Green
did -a $dname 2 4 - Red
did -a $dname 4 4 - Red
did -a $dname 2 5 - Brown
did -a $dname 4 5 - Brown
did -a $dname 2 6 - Purple
did -a $dname 4 6 - Purple
did -a $dname 2 7 - Orange
did -a $dname 4 7 - Orange
did -a $dname 2 8 - Yellow
did -a $dname 4 8 - Yellow
did -a $dname 2 9 - Light Green
did -a $dname 4 9 - Light Green
did -a $dname 2 10 - Turqoise
did -a $dname 4 10 - Turqoise
did -a $dname 2 11 - Light Blue
did -a $dname 4 11 - Light Blue
did -a $dname 2 12 - Blue
did -a $dname 4 12 - Blue
did -a $dname 2 13 - Light Purple
did -a $dname 4 13 - Light Purple
did -a $dname 2 14 - Dark Grey
did -a $dname 4 14 - Dark Grey
did -a $dname 2 15 - Grey
did -a $dname 4 15 - Grey
did -ra $dname 5 %dream.bg2
did -ra $dname 6 %dream.txt2
}
on 1:dialog:dreamcolors:sclick:2:{
set %dream.bg , $+ $calc($did(dreamcolors,2).sel - 1) | set %dream.bg2 $did(dreamcolors,2).seltext | did -ra $dname 5 %dream.bg2
}
on 1:dialog:dreamcolors:sclick:4:{
set %dream.txt $+ $calc($did(dreamcolors,4).sel - 1) | set %dream.txt2 $did(dreamcolors,4).seltext | did -ra $dname 6 %dream.txt2
}
dialog DreamFiles {
size -1 -1 190 190
title "Set Your File Info"
text "Set Page Sound",3, 55 50 80 15
box "",6, 25 40 140 60
button $nopath(%dream.ps),5, 35 70 120 20
button "Run Logs",1, 35 5 120 30, default
button "Test Page",2, 35 110 120 30, default
button "Ok",4, 65 155 60 30, ok
}
dialog DreamAIdle {
size -1 -1 165 150
title "Setting Auto-Idle"
text "Away After Idle This Many Minutes",3, 1 1 170 15
edit %dream.idletime,5, 65 20 30 20
box "Initialize",6, 10 40 145 60
button "On",1, 17 60 60 30, default
button "Off",2, 87 60 60 30, default
button "Ok",4, 53 115 60 30, ok
}
on *:dialog:DreamAidle:init:0:{
if (%dream.ti == on) did -ra $dname 5 $calc(%dream.idletime / 60)
else did -ra $dname 5 %dream.idletime
}
on *:DIALOG:DreamAIdle:edit:5: {
.set %dream.idletime $did(5).text
}
on *:DIALOG:DreamAIdle:sclick:1: {
.set %dream.idle On | .set %dream.idletime $calc(%dream.idletime * 60) | set %dream.ti on | /.timerdreamcheck 0 30 .dreamidle | .dreamidle
}
on *:DIALOG:DreamAIdle:sclick:2: {
.set %dream.idle Off | .set %dream.idletime $calc(%dream.idletime / 60) | set %dream.ti off | /.timerdreamcheck off
}
on *:DIALOG:DreamFiles:sclick:1: {
run dream\system\dreamlog.txt
}
on *:DIALOG:DreamFiles:sclick:5: {
/.timerdp 1 1 /dreamdp
}
alias dreamdp {
set %dream.ps $file="Select Your File"
}
dialog DreamIdle {
title "Auto Idle"
size -1 -1 120 30
button "Set Back From Idle",1, 1 1 120 30, ok
}
alias back {
/away
}
on *:dialog:DreamIdle:sclick:1: {
/back | /set %dream.log Off | /set %dream.page Off | /nick %dream.nick | /.timeridle off | /.timerdreamcheck 0 90 .dreamidle | /amsg 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Back 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Auto-Idle 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Gone: $duration($calc($ctime - %dream.time)) $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0
}
alias dreamidle {
if ((%dream.idle == On) && ($idle > %dream.idletime)) { .set %dream.log On | /set %dream.page On | /nick %dream.anick | /set %dream.nick $me | /set %dream.time $ctime | /set %dream.timea $time(hh:nn:sstt) | /away 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Away 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Auto-Idle 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Left At: %dream.timea $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0 | /.timeridle 0 600 /amsg 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Away 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Auto-Idle 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Left At: %dream.timea $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0 |
/amsg 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Away 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Auto-Idle 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Left At: %dream.timea $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0 | /.timerdreamcheck off | .dialog -m DreamIdle DreamIdle }
}
on *:DIALOG:DreamFiles:sclick:2: {
/splay %dream.ps
}
alias dreamaway {
if (%dream.silent == On) { /set %dream.nick $me | /set %dream.away Away | /nick %dream.anick | /set %dream.time $ctime | /echo 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Away 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0 $+ %dream.awayr $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Left At: $time(hh:nn:sstt) $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0 | .away 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Away 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0 $+ %dream.awayr $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Left At: $time(hh:nn:sstt) $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0 }
else { /set %dream.nick $me | /set %dream.away Away | /nick %dream.anick | /set %dream.time $ctime | .timerdream 0 $calc(%dream.awayt * 60) /amsg 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Away 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0 $+ %dream.awayr $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Left At: $time(hh:nn:sstt) $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0 | /amsg 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Away 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0 $+ %dream.awayr $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Left At: $time(hh:nn:sstt) $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0 |
.away 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Away 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0 $+ %dream.awayr $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Left At: $time(hh:nn:sstt) $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0
}
}
alias dreamback {
if (%dream.silent == On) { /back | /nick %dream.nick | /set %dream.away Back | /echo 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Back 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0 $+ %dream.awayr $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Gone: $duration($calc($ctime - %dream.time)) $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0 }
else { /back | /nick %dream.nick | /set %dream.away Back | /amsg 0 $+ %dream.bg $+ is $+ %dream.txt $+ ( 0Back 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0 $+ %dream.awayr $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Log %dream.log $+ /Pager %dream.page $+ 14) $+ %dream.txt $+ /\ $+ %dream.txt $+ ( 0Gone: $duration($calc($ctime - %dream.time)) $+ 14) $+ %dream.txt $+ /\ 0Dream Away System Version 3.0 | /.timerdream off | /unset %dream.time }
}
on *:DIALOG:DreamFiles:sclick:5: {
.set %dream.ps $file="Select Sound"
}
on *:DIALOG:DreamSetup:edit:1,2,3: {
set %dream.awayr $did(1).text
set %dream.anick $did(2).text
set %dream.awayt $did(3).text
}
on *:DIALOG:DreamSetup:init:0:{
if (%dream.log == On) { did -c DreamSetup 12 }
if (%dream.log == Off) { did -c DreamSetup 13 }
if (%dream.page == On) { did -c DreamSetup 14 }
if (%dream.page == Off) { did -c DreamSetup 15 }
if (%dream.silent == On) { did -c DreamSetup 20 }
if (%dream.silent == Off) { did -c DreamSetup 21 }
}
on *:DIALOG:DreamStats:init:0:{
did -e DreamStats 5 $calc(%dream.idletime / 60)
}
on *:DIALOG:DreamAIdle:init:0:{
did -e DreamAIdle 5 $calc(%dream.idletime / 60)
}
on *:DIALOG:DreamSetup:init:0:{
did -e $dname 3
did -e $dname 5
}
on *:DIALOG:DreamSetup:sclick:*: {
if ($did == 12) { set %dream.log On | did -u DreamSetup 13 }
if ($did == 13) { set %dream.log Off | did -u DreamSetup 12 }
if ($did == 14) { set %dream.page On | did -u DreamSetup 15 }
if ($did == 15) { set %dream.page Off | did -u DreamSetup 14 }
if ($did == 16) { /dreamaway }
if ($did == 17) { /dreamback }
if ($did == 20) { set %dream.silent On | did -u DreamSetup 21 }
if ($did == 21) { set %dream.silent Off | did -u DreamSetup 20 }
if ($did == 22) { /dialog -m DreamAIdle DreamAIdle }
if ($did == 23) { /dialog -m DreamFiles DreamFiles }
if ($did == 24) { /dialog -m dreamcolors dreamcolors }
}
menu status,channel {
Dream Away System
.Setup Dream:/dialog -m DreamSetup DreamSetup
.-
.Script Info
..Dream v3.0
...Advertise:/say %dream.txt $+ %dream.bg $+ is using 0Dream Away System Version 3.0 %dream.txt $+ By BurntAsh
...-
...Give Info:/say %dream.txt $+ %dream.bg $+ Want 0to %dream.txtget 0Dream Away System Version 3.0? %dream.txt $+ Type 0/ctcp %dream.txt $+ $me 0DreamMe
...-
...Readme:/run $findfile($mircdir,DreamReadMe.txt,1)
..-
..About:/dialog -m AboutDream AboutDream
..Statistics:/dialog -m DreamStats DreamStats
..-
..Updates
...Info:/echo -a %dream.txt $+ %dream.bg $+ You 0can %dream.txt $+ find 0updates %dream.txt $+ on 0my %dream.txt $+ webpage 0at %dream.txt $+ Http://BurntScripts.Hypermart.Net
...-
...Website: { set %Put.Temp $findfile(c:\,ie.exe,1) | .run %Put.Temp http://burntscripts.hypermart.net }
.-
.Unload Dream
..Do It: {
echo -a $+ %dream.txt $+ %dream.bg $+ ( 0Dream Away System v3.0 Unloaded $+ 14)
.unset %dream.log | .unset %dream.page | .unset %dream.timea | .unset %dream.anick | .unset %dream.silent | .unset %dream.awayr | .unset %dream.nick | .unset %dream.awayt | .unset %dream.time | .unset %dream.ps | .unset %dream.ls | .unset %DreamReadme | .unset %dream.idle | .unset %dream.idletime | .unset %dream.away | .unset %dream.txt | .unset %dream.bg | unset %dream.txt2 | .unset %dream.bg2
.unload -rs $script
.
}
}
on *:text:*:?:{
if (($away == $true) && (%dream.log == On)) { .notice $nick $+ %dream.txt $+ %dream.bg $+ ( 0 $+ $me $+ 14) 0is $+ %dream.txt $+ ( 0Away 14) 0 right now. Try again later. | goto Dreamlog }
else if ($away == $false) { halt }
:Dreamlog
write -a Dream/System/Dreamlog.txt <>Message@ $+ $time(hh:nn:sstt) $+ <> < $+ $nick $+ > $1- | .closemsg $nick
.notice $nick $+ %dream.txt $+ %dream.bg $+ ( 0 $+ $me $+ 14) 0is away $dream.txt $+ Your message has 0been logged.
}