Away Dialog Script, Easy to use.
;Updated, 2005-05-30 so now there will be a checkbox that will say if you are already away or not!
;Update 2, 2005-05-30 made so its inpossible to press "Set Back" if your not already away
;Update 3, 2005-05-31 Fixed so that it cant go away 2 times, and also fixed so it will get the text in the boxes.
;Update 4, 2005-05-31 Made an topmost funktion.. havnt fixed the auto away yet..
;Update 5, 2005-05-02 Auto Update works.. not perfekt but it works.. =) and its my birthday today =) happy birthday for mee!!! =P
dialog away {
Title "Away"
option dbu
size -1 -1 100 90
icon c:\windows\system\window.ico
text "Away Prefix", 2000, 3 1 30 6
edit "", 2001, 34 1 66 10, limit 0, autohs %editprefix
text "Away Reson", 2002, 3 11 30 6
edit "", 2003, 34 11 66 10, limit 0, autohs %editreason
text "On", 2020, 10 19 7 6
text "Off", 2021, 10 19 8 6
check "Top", 2022, 1 82 19 6, left
check "", 2010, 22 19 8 7
button "Set Away", 2004, 5 28 30 10
button "Reset", 2005, 40 27 20 10
button "Set Back", 2006, 65 28 30 10
button "OK", 2007, 20 80 30 10, ok, default
button "Cancel", 2008, 50 80 30 10, cancel
button "A", 2009, 90 80 10 10, flat
button "Reset", 2023, 62 68 20 10
text "Auto Away", 2011, 36 39 30 7
text "Message", 2012, 3 48 22 7
edit "", 2013, 26 47 74 10, limit 0, autohs %editautoaway
text "Time before auto away", 2014, 3 58 57 7
edit "", 2015, 60 57 25 10, limit 7, autohs %edittime
check "h", 2016, 85 57 15 6
check "m", 2017, 85 64 15 6
check "s", 2018, 85 70 15 6
check "Auto Away", 2024, 3 67 35 6, left
}
dialog about {
Title "About Away Script"
option dbu
size -1 -1 110 58
icon c:\windows\system\window.ico
text "About", 2001, 43 1 15 15
text "Script made by Rower on Dalnet -05 ", 2002, 1 11 110 7
text "Please email me for bugs or other horrible things you finds in this script", 2003, 1 19 100 15
link "Rower@home.se" 2004, 1 50 45 7
link "www.Rower85.tk" 2005, 67 50 50 7
text "Regards to everyone in Sweden", 2006, 15 36 100 7
button "X", 2007, 50 45 10 10, flat, ok
}
;Rower@home.se
on *:dialog:about:sclick:2004: {
run www.rower85.tk
}
;www.rower85.tk
on *:dialog:about:sclick:2005: {
run www.rower85.tk
}
;Time Away
alias duration {
set %duration $calc(%duration + 1)
}
;Set Away
on *:dialog:away:sclick:2004: {
if (%away == 1) { halt }
set %prefix $did(away,2001)
set %awaymess $did(away,2003)
did -m away 2001
did -m away 2003
set %orginalnick $me
set %away 1
ame is away: %awaymess
nick %orginalnick $+ %prefix
.timer999 0 1 duration
away %awaymess
did -cb away 2010
did -v away 2020
did -h away 2021
}
;Reset
on *:dialog:away:sclick:2005: {
if $did {
did -rn away 2001
did -rn away 2003
}
}
;Set Back
on *:dialog:away:sclick:2006: {
if $did {
if (%away != 1) { halt }
did -n away 2001
did -n away 2003
ame is back from, " $+ %awaymess $+ " Duration: $duration(%duration)
nick %orginalnick
.timer999 off
unset %orginalnick
unset %duration
unset %away
unset %awaymess
away
did -u away 2010
did -v away 2021
did -h away 2020
}
}
;Reset Auto Away
on *:dialog:away:sclick:2023: {
if $did {
did -rn away 2013
did -rn away 2015
did -u away 2016
did -u away 2017
did -u away 2018
unset %aatime
}
}
;About
on *:dialog:away:sclick:2009: {
dialog -m about about
}
;Ontop
on *:dialog:away:sclick:2022: {
if ($did(away,2022).state == 0) {
set %ontop n
dialog -n away
}
if ($did(away,2022).state == 1) {
set %ontop o
dialog -o away
}
}
menu channel {
-
Away:{
dialog -m $+ %ontop away away
did -b away 2010
did -a away 2001 %editprefix
did -a away 2003 %editreason
did -a away 2013 %editautoaway
did -a away 2015 %edittime
%hms
if (%aaway == 1) {
did -c away 2024
}
if (%ontop == o) { did -c away 2022 }
if (%ontop == n) { did -u away 2022 }
if (%away == 1) {
did -h away 2021
did -c away 2010
did -m away 2001
did -m away 2003
}
if (%away != 1) {
did -h away 2020
}
}
}
;Auto Away Box
on *:dialog:away:sclick:2024:{
if ($did(away,2024).state == 1) {
set %autoawaymsg $did(away,2013)
set %aatime $did(away,2015)
.timer900 0 1 aaway
set %aaway 1
}
if ($did(away,2024).state == 0) {
.timer900 off
unset %aaway
}
}
;Auto Away Alias
alias aaway {
if (%away == 1) { halt }
set %idle $idle
if (%idle == %aatime) && ($false == $away) {
.away %autoawaymsg
/ame %autoawaymsg
}
if (%idle < %aatime) && ($true == $away) {
.away
}
}
;Timmar
on *:dialog:away:sclick:2016:{
if ($did(away,2017).state == 1) || ($did(away,2018).state == 1) {
did -u away 2017
did -u away 2018
}
if ($did(away,2016).state == 0) {
unset %hms
halt
}
set %hms did -c away 2016
unset %aatime
set %aatime $did(away,2015)
set %aatime $calc(%aatime * 3600)
msg #kajsdgh %aatime
}
;Minuter
on *:dialog:away:sclick:2017:{
if ($did(away,2016).state == 1) || ($did(away,2018).state == 1) {
did -u away 2016
did -u away 2018
}
if ($did(away,2017).state == 0) {
unset %hms
halt
}
set %hms did -c away 2017
unset %aatime
set %aatime $did(away,2015)
set %aatime $calc(%aatime * 60)
msg #kajsdgh %aatime
}
;Sekunder
on *:dialog:away:sclick:2018:{
if ($did(away,2016).state == 1) || ($did(away,2017).state == 1) {
did -u away 2016
did -u away 2017
}
if ($did(away,2018).state == 0) {
unset %hms
halt
}
set %hms did -c away 2018
unset %aatime
set %aatime $did(away,2015)
set %aatime $calc(%aatime * 1)
msg #kajsdgh %aatime
}
;Auto Away
Alias Idle {
if (%away == 1) { halt }
set %idle $idle
if (%idle == %time) && ($false == $away) {
.away %autoawaymsg
.ame %autoawaymsg
}
if (%idle < %time) && ($true == $away) {
.away
}
}
Have seen other away systems, the reason why i made it wasnt to share it with others, the only reason is to have it to myself, im no script kiddie so i dont want to get one here, feels wrong, i am also writing my own level system, im glad you enjoyed the design =)
When you say i was hard on judging things you probably mean the /whois snippet, dont you see .. its worthless.. if your ircop you probably know how to fucking script basic shit.. not hard at all..
And i dont see why you are complaining about my scripting, i made it entyerly for me and easy to script for me, if you downloaded the latest version you should have seen its not ready yet..
Thx for the critics.. but plz give me more shit to write in..
Best Regards //Rower
i have seen that you have left some pretty strict comments about others work or snippets etc etc , so know i will let you know how i fill about you away system , First i will say great work the the snippet it self secondly learn to align a dialog properly so it isnt confusing and our cluttered and like stated above why use the same as the default mirc options doesnt make any since at all effort i give a 5 design i give a 1.5 over all i would rate this nothing more then a 2.3 to a 2.5 this awaysystem isnt nothing diffrent then the other 5 million out there the best all around full featured away system to date that i know of was the one made muddpuddle a few years ago if you going to make something atleast try and put some thing diffrent and or new into it so that people can relate to it as being yours hell for all we know you could have ripped this from some one else as i have seen numerous times on this website with these snippets .
Every program uses 3 letters in .let for exampel =) thats why .mp3 and .mpg =)
Used window.ico caus every system got it =)
Im updating the script in about 1 day with more usefull tols.. for exampel:
Ontop, Auto away script, fixed so you cant press \"Set Away\" if you aint have no letters in the boxes =)
Thx for supporting me, its so fun.. if you want you can give me more ideas..
Untill then, Restekpa to all of ya! =P
//Rower