Skip to content
TechGear007 TG007 Technology · IRC · Community
Search
MSN Addons

Need A Away System

A TG007 community discussion started by Phenom™.

Forum Home Search Forum Sign In
Discussion 8 posts
Page 1 of 1
Open
Topic #6832 · 8 published posts · 1,707 views
«Çhãin™» Member #13,360
#39,099

I need a away system with a pager, does anyone know where I can get one please.

X-Fusion Historical / Guest
#39,101
Downloads?
«Çhãin™» Member #13,360
#39,102

Yes, I need a away system with a pager to add to my script

Stained Member #17,560
#39,103

I think he meant try the downloads section Chain.

Um hey Chain, when you releasing that script I keep seeing at the bottom of this page?

 

:devil::whistle:

 

«Çhãin™» Member #13,360
#39,106

im not the real chain i just made my nickname like that.

Stained Member #17,560
#39,107

:fish:

 

 

:P

chain Member #797
#40,436

Iam still working on it when i get a chance, mind you its taking awhile with work and family. but soon wiley

 

on 1:LOAD:{
 Set %awayv (XscriptV2)
 set %awaynick Enter Your away nick here!
 set %normalnick Enter Your normal nick here!
 echo -a Tnx for downloading (XScrIptV2) by Chain™!
 echo -a Your away system is installed in your menus (AwaySyS)
 echo -a Tips And bug report send to [email protected]
}
dialog awaysys {
 title "Away System"
 size -1 -1 230 300
 Box "",2, 10 10 210 42
 edit "",3, 15 25 200 20
 text "Pager:",4, 10 70 30 15
 combo 5, 45 70 50 65, drop,size
 text "Logging:",6, 109 70 45 15
 combo 7, 159 70 50 65, drop, size
 Box "Enter Your Away And normal Nick",14,  10 100 210 82
 Edit "",15, 15 125 200 20 
 Edit "",16, 15 150 200 20
;2Nd Line in dialog
 button "Close",1, 90 260 50 18,Cancel
 button "Read Logs",8,45 230 70 20,ok
 button "Del Logs",9,115 230 70 20,ok
 radio "Set to Away",10,45 200 70 20,group,push
 radio "Set to Normal",11,115 200 70 20,push
 text "",13,45 280 200 18
}
on *:DIALOG:awaysys:sclick:10:{
 set %awway on | did -u awaysys 11 | did -c awaysys 10 | /astatus | /nicksetup
 write sys\pager.txt Logging started: $date(mmmm) $date(dd) $+ , $date(yyyy)  $time
 set %reason $did(awaysys,3)
 set %pager $did(awaysys,5)
 set %logging $did(awaysys,7)
 set %awaynick $did(awaysys,15)
 /nick $did(awaysys,15)
 set %awaytime $ctime
 if (%pager == on) { enable #awaypager | enable #awaylogger }
 ame is AwaY - ReAsOn: %reason PaGeR: %pager LoG: %logging TiMe LeFt: $time(hh:nntt) %awayv
 away %reason
}
on 1:dialog:awaysys:init:*:{
 if ( %awway == on ) { /astatus | /did -c awaysys 10 }
 if ( %awway == off ) { /astatus2 | /did -c awaysys 11 }
 .timer -m 1 100 did -ra awaysys 2 R 
 .timer -m 1 200 did -ra awaysys 2 Re
 .timer -m 1 300 did -ra awaysys 2 Rea
 .timer -m 1 400 did -ra awaysys 2 Reas
 .timer -m 1 500 did -ra awaysys 2 Reaso
 .timer -m 1 600 did -ra awaysys 2 Reason
 .timer -m 1 700 did -ra awaysys 2 Reason:
 did -a awaysys 5 On
 did -a awaysys 5 Off
 did -a awaysys 7 On
 did -a awaysys 7 Off
 did -a awaysys 15 %awaynick
 did -a awaysys 16 %normalnick
}
on *:DIALOG:awaysys:sclick:11:{
 set %awway off | did -u awaysys 10 | /astatus2 
 set %backtime $ctime
 set %normalnick $did(awaysys,16)
 /nick $did(awaysys,16)
 ame is BaCk - ReAsOn: %reason DuRaTiOn: $duration($calc(%backtime - %awaytime)) %awayv
 disable { #awaypager | disable #awaylogger }
 /away
}

on *:DIALOG:awaysys:sclick:8:{
 awaysystemlog
}

on *:DIALOG:awaysys:sclick:9:{
 /remove $+ sys\pager.txt
}

#awaypager off
ctcp *:PAGE:{ 
 if ($nick != $me) { 
   .ctcpreply $nick PAGE Your page has been logged!
   if (%awaypager.snd != $null) { .splay %awaypager.snd }
   window -g2 @AwayPager
   aline -p @AwayPager $time(HH:nn:ss) $date(mm/dd/yyyy) 4Page:12 $nick $+ :  $2-
   if (%awaysystem.log == On) { write %awaysystemlog.log $time(HH:nn:ss) $date(mm/dd/yyyy) 4Page:12 $nick $+ :  $2- }
 }
}
#awaypager end
#awaylogging on
on *:TEXT:*:?:{
 if (%awway == on) && ($nick != $me) { 
   window -g1 @AwayLog
   if (%awaylog.snd != $null) { .splay %awaylog.snd }
   if (%awaysystem.log == On) { write %awaysystemlog.log  $time(HH:nn:ss) $date(mm/dd/yyyy) Message: <4 $+ $nick $+ > $1- }
   aline -p @AwayLog $time(HH:nn:ss) $date(mm/dd/yyyy) Message: <4 $+ $nick $+ > $1-
   close -m $nick
   .msg $nick I'm currently away, your message has been logged. 
   if ($group(#awaypager).status == on) { .msg $nick If your message is urgent, please type 4/ctcp $me PAGE <yourmessage> }
 }
}
on *:TEXT:*:#:{
 if (%awway == on) && ($me isin $parms) { 
   window -g1 @AwayLog
   if (%awaylog.snd != $null) { .splay %awaylog.snd }
   if (%awaysystem.log == On) { write %awaysystemlog.log  $time(HH:nn:ss) $date(mm/dd/yyyy) 13Message: <3 $+ $chan $+ 12\4 $+ $nick $+ > $1- }    
   aline -p @AwayLog $time(HH:nn:ss) $date(mm/dd/yyyy) 13Message: <3 $+ $chan $+ 12\4 $+ $nick $+ > $1-
   close -m $nick
   .msg $nick I'm currently away, your message has been logged. 
   if ($group(#awaypager).status == on) { .msg $nick If your message is urgent, please type 4/ctcp $me PAGE <yourmessage> }
 }
}
#awaylogging end
alias -l awaysystemlog {
 clear @AwaySystemLogs
 window -ad @AwaySystemLogs 100 100 650 400
 if ($exists(%awaysystemlog.log)) { loadbuf -p @AwaySystemLogs %awaysystemlog.log }
 else { 
   clear @AwaySystemLogs
   aline -p @AwaySystemLogs 4<5J2>2 AwaySystem Logs are empty
 }
}
alias -l logfolder {
 .set %oldawaysystemlog.log %awaysystemlog.log
 %awaysystemlog.log = $$sdir="Select Folder to store AwaySystem Logs in. Current folder is" $nofile(%oldawaysystemlog.log)
 %awaysystemlog.log = $shortfn(%awaysystemlog.log) $+ awaysys.log
 echo 4 -ae 4<5J2>2 AwaySystem logs are now kept in ' $+ $colour(normal) $+ $nofile(%awaysystemlog.log) $+ 4'
 if ($exists(%oldawaysystemlog.log)) { .timer 1 0 deloldlog }
 else { .unset %oldawaysystemlog.log }
}

alias astatus {
 .timer -m 1 100 did -ra awaysys 13 S 
 .timer -m 1 200 did -ra awaysys 13 St
 .timer -m 1 300 did -ra awaysys 13 Sta
 .timer -m 1 400 did -ra awaysys 13 Stat
 .timer -m 1 500 did -ra awaysys 13 Statu
 .timer -m 1 600 did -ra awaysys 13 Status
 .timer -m 1 700 did -ra awaysys 13 Status:
 .timer -m 1 800 did -ra awaysys 13 Status: A
 .timer -m 1 900 did -ra awaysys 13 Status: Aw
 .timer -m 1 1000 did -ra awaysys 13 Status: Awa
 .timer -m 1 1100 did -ra awaysys 13 Status: Away
}
alias astatus2 {
 .timer -m 1 100 did -ra awaysys 13 S 
 .timer -m 1 200 did -ra awaysys 13 St
 .timer -m 1 300 did -ra awaysys 13 Sta
 .timer -m 1 400 did -ra awaysys 13 Stat
 .timer -m 1 500 did -ra awaysys 13 Statu
 .timer -m 1 600 did -ra awaysys 13 Status
 .timer -m 1 700 did -ra awaysys 13 Status:
 .timer -m 1 800 did -ra awaysys 13 Status: N
 .timer -m 1 900 did -ra awaysys 13 Status: No
 .timer -m 1 1000 did -ra awaysys 13 Status: Nor
 .timer -m 1 1100 did -ra awaysys 13 Status: Norm
 .timer -m 1 1200 did -ra awaysys 13 Status: Norma
 .timer -m 1 1300 did -ra awaysys 13 Status: Normal
 .timer -m 1 1400 did -ra awaysys 13 Status: Normal (
 .timer -m 1 1500 did -ra awaysys 13 Status: Normal (B
 .timer -m 1 1600 did -ra awaysys 13 Status: Normal (Ba
 .timer -m 1 1700 did -ra awaysys 13 Status: Normal (Bac
 .timer -m 1 1800 did -ra awaysys 13 Status: Normal (Back
 .timer -m 1 1900 did -ra awaysys 13 Status: Normal (Back)
}
raw 301:* { awmsg away: $3- | halt }
;
raw 305:* { awsf away : you're no longer marked as bein' away | halt }
raw 306:* { awsf away : you're marked as bein' away | halt }
alias awmsg {  if ($_sn) { echo $colour(info) -a :04!: $1- } | else { echo $colour(info) -a $mvar $1- } }
alias awsf { if ($_sn) { echo $colour(info) -s :04!: $1- } | else { echo $colour(info) -s $mvar $1- } }
alias awway dialog -m awaysys awaysys
; awaylogger
alias -l awaysystemlog {
 clear @AwaySystemLogs
 window -ad @AwaySystemLogs 100 100 650 400
 if ($exists(%awaysystemlog.log)) { loadbuf -p @AwaySystemLogs %awaysystemlog.log }
 else { 
   clear @AwaySystemLogs
   aline -p @AwaySystemLogs 4<5J2>2 AwaySystem Logs are empty
 }
}
alias -l logfolder {
 .set %oldawaysystemlog.log %awaysystemlog.log
 %awaysystemlog.log = $$sdir="Select Folder to store AwaySystem Logs in. Current folder is" $nofile(%oldawaysystemlog.log)
 %awaysystemlog.log = $shortfn(%awaysystemlog.log) $+ awaysys.log
 echo 4 -ae 4<5J2>2 AwaySystem logs are now kept in ' $+ $colour(normal) $+ $nofile(%awaysystemlog.log) $+ 4'
 if ($exists(%oldawaysystemlog.log)) { .timer 1 0 deloldlog }
 else { .unset %oldawaysystemlog.log }
}
menu * {
Awaysys
.Awaysys.1.1:/awway
.Readme:/run sys\readme.txt
}

______________________________________________________

T.ogether
E.veryone
A.chieves
M.ore


 

 

coderirclogo.png.8580c336378f27471a13a95ffd242c9d (1).png

Wiley E. Member #17,560
#40,441

Cool. Looking forward to it!