За Away система

За всичко свързано с mIRC
User avatar
lukas
Нов
Нов
Posts: 126
Joined: Mon Oct 15, 2007 9:45 pm
Contact:

Post by lukas » Tue Jul 15, 2008 7:44 pm

правиш 1 файл awaysys.mrc
пастваш това в него , сейваш , слагаш в папката с мирк и пишеш
/load -rs awaysys.mrc
и си готов, не е кой знае какво но работи

Code: Select all

on *:load:{
  echo -a *** This Was Created By Frodo_1 (aka DKlined)
  echo -a *** If You Have Any Questions Please Send An Email To Drakkar@Gmail.com
  echo -a *** Or Connect To Irc.WebChat.Org And Look For DKlined In #Help.mIRC
  echo -a *** Away System Has Been Loaded, to Start Off Type /_away Or Right-Click In Chan, Find Away System, And Set New Message Or Use A Previous One
  set %awaynick $me $+ [away]
  set %away.msgevery None
  halt
}
on *:unload:{
  if (%away.ctime != $null) { echo -a *** You Have To Stop Using The Script Before You Can Unload It. | halt }
  else {
    echo -a *** Away System Has Been Unloaded
    unset %away*
    halt
  }
}
on *:disconnect:{
  if (%away.reason != $null) { 
    unset %away.ctime 
    unset %away.reason
    unset %backnick
    unset %away.multinet
    dialog -x away
  }
}
dialog away {
  title "Away System"
  size -1 -1 300 240 
  button "I'm Away",1, 25 210 80 25
  text "Enter Label",2, 200 5 60 15
  edit "",3, 165 20 125 22
  text "Enter New Message",4, 90 45 100 15
  button "Cancel",5, 190 210 80 25,Ok
  edit "",7, 10 65 280 22,autohs
  Check "Save",8, 25 183 55 15
  text "Enter Away Nick",9, 30 5 80 15
  edit "",10, 10 20 125 22,autohs
  check "Pager",11, 80 183 55 15
  check "Log",12, 135 183 45 15
  check "/ame",13, 30 103 55 15
  check "/amsg",14, 88 103 55 15
  check "None",15, 150 103 50 15
  box "Message Channel Type",16, 15 88 190 35
  box "Other Options",17, 15 168 270 35
  box "Message Every:",18, 15 125 270 40
  edit "",19, 155 140 120 20
  Text "User Define (In Seconds):",20, 25 143 130 15
  box "Multi-Server",21, 210 88 75 35
  check "Yes",22, 228 103 55 15
  check "Pager-Log Extra",23, 185 183 110 15
}
on *:dialog:away:Sclick:22:{
  if ($did(away,22).state == 1) { set %away.multinet /scon -at1 | did -r Away 10 | multinetaway | halt }
  if ($did(away,22).state == 0) { unset %away.multinet | did -r Away 10 | did -a Away 10 %awaynick | halt }
}
on *:dialog:away:Sclick:13:{ 
  if ($did(away,13).state == 1) { set %away.msgtype ame | did -e away 19 | did -e away 20 | did -u away 14 | did -u away 15 }
  if ($did(Away,13).state == 0) { unset %away.msgtype | did -b away 19 | did -b away 20 | did -u away 14 | did -u away 15 }
}
on *:dialog:away:sclick:14:{   
  if ($did(away,14).state == 1) { set %away.msgtype amsg | did -e away 19 | did -e away 20 | did -u away 13 | did -u away 15 }
  if ($did(Away,14).state == 0) { unset %away.msgtype | did -b away 19 | did -b away 20 | did -u away 13 | did -u away 15 }
}
on *:dialog:Away:sclick:15:{ 
  if ($did(away,15).state == 1) { unset %away.msgtype | did -b away 19 | did -b away 20 | did -u away 14 | did -u away 13 }
  if ($did(Away,15).state == 0) { unset %away.msgtype | did -u away 14 | did -u away 13 }
}
on ^*:text:*:?:{
  if (%logger == on) && (%away.reason != $null) { aline -p @Log $chr(91) $+ $asctime $+ $chr(93) ( $+ $nick $+ ) $1- | .msg $nick Message Has Been Sent | close -m $Nick }
}
ctcp *:Page:*:{ 
  if (%pager == on) && ($away == true) { beep 1 1 | .notice $nick Your Page Has Been Sent | halt }
}
on *:dialog:away:sclick:23:{
  if (%pager-log == [/msg $ $+ me (message here)]:[/ctcp $ $+ Me page]:) { did -u Away 23 | unset %pager-log | halt }
  set %pager-log [/msg $ $+ me (message here)]:[/ctcp $ $+ Me page]:
  did -c Away 23
}
on *:dialog:away:sclick:12:{
  if (%pager == $null) && (%logger == on) { did -b Away 23 }
  if (%logger == on) { did -u Away 12 | unset %logger | halt }
  set %logger on
  did -c Away 12
  did -e Away 23
}
on *:dialog:away:sclick:11:{
  if (%logger = $null) && (%pager == on) { did -b Away 23 }
  if (%pager == on) { did -u Away 11 | unset %pager | halt }
  set %pager on 
  did -c Away 11
  did -e Away 23
}
on *:dialog:away:init:0:{
  .did -a away 19 %away.msgevery
  if (%pager-log == [/msg $ $+ me (message here)]:[/ctcp $ $+ Me page]:) { did -c Away 23 }
  if (%awaynick) { .did -a away 10 %awaynick }
  if (%away.multinet) { .did -c away 22 | did -r away 10 | multinetaway }
  if (%awaynick == $null) { .did -a away 10 $me $+ [away] }
  if (!%away.msgtype) { did -c away 15 | did -b away 19 | did -b away 20 | did -u away 14 | did -u away 13 }
  if (%away.msgtype == amsg) { did -c away 14 }
  if (%away.msgtype == ame) { did -c away 13 }
  if (%pager == $null) && (%Logger == $null) { did -b Away 23 }
  if (%away.reason == $null) { 
    did -b away 8 
    if (%pager == on) { did -c away 11 }
    if (%logger == on) { did -c away 12 }
  }
  if (%away.reason != $null) { 
    did -b away 7 
    did -b away 5 
    did -b away 8 
    did -b away 3  
    did -a away 7 %away.reason 
    did -r away 1
    did -a away 1 I'm Back
    if (%pager == on) { did -c away 11 }
    if (%logger == on) { did -c away 12 }
  } 
}
on *:dialog:away:close:0:{
  if (%away.reason == $null) && (%away.ctime == $null) { return }
  else { .timerdialog 1 1 dialog -m away away }
}
on *:dialog:away:edit:3:{ did -e away 8 }
on *:dialog:away:sclick:1:{
  if ($server == $null) { echo -a You Must Be Connected To A Server To Set Away | halt }
  if ($did(away,19).text == none) || ($did(Away,19).text isnum) { .set %away.msgevery $did(away,19).text }
  if (%away.ctime == $null) && (%away.reason == $null) { 
    if ($did(away,7).text == $null) { beep 1 1 | echo -a You Need A Reason For Leaving | halt }
    if ($did(away,10).text == $null) { goto next }
    if (!%away.multinet) { set %awaynick $did(away,10).text }
    :next 
    did -b away 7 
    did -b away 3 
    did -b away 5
    did -r away 1
    did -a away 1 I'm Back
    if ($did(away,8).state == 1) && ($did(away,3).text != $null) { set %away.reason $did(away,7).text | write -il $+ $lines($mircdir $+ scripts/AwaySystem.mrc) " $+ $mircdir $+ scripts/AwaySystem.mrc $+ " $chr(46) $+ $did(away,3).text $+ :set % $+ away.reason $did(away,7).text $chr(124) _away $chr(124) dialogaway | dialogaway }
    else { set %away.reason $did(away,7).text | dialogaway }
  }
  else { 
    did -r away 1 
    did -a away 1 I'm Away
    dialogback 
  }
}
alias multinetaway { 
  set %scon $scon(0)
  set %nocs 1
  while %nocs <= %scon &#123;
    did -a away 10 $scon&#40;%nocs&#41;.me $+ &#91;away&#93;;
    inc %nocs 1
  &#125;
  unset %nocs
  unset %scon
&#125;
alias _away &#123; dialog -dm away away &#125;
alias dialogaway &#123;
  if &#40;%away.multinet&#41; &#123;
    set %scon $scon&#40;0&#41;
    set %nocs 1
    while %nocs <= %scon &#123;
      set %backnick $+ %nocs $Scon&#40;%nocs&#41;.me
      scon -t1 %nocs /nick $gettok&#40;$did&#40;away,10&#41;,%nocs,59&#41;
      scon -t1 %nocs /away %away.reason
      inc %nocs 1
    &#125;
    unset %nocs
    unset %scon
  &#125;
  if &#40;!%away.multinet&#41; &#123; set %backnick $me | nick %awaynick | .away %away.reason &#125;
  set %away.ctime $ctime
  if &#40;%away.msgtype == ame&#41; && &#40;%away.msgevery == None&#41; &#123;
    if &#40;%pager == on&#41; && &#40;%logger == $null&#41; &#123; %away.multinet ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == on&#41; && &#40;%logger == on&#41; &#123; window -n @Log -1 -1 550 350 | %away.multinet ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == $null&#41; && &#40;%logger == on&#41; &#123; window -n @Log -1 -1 550 350 | %away.multinet ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == $null&#41; && &#40;%logger == $null&#41; &#123; %away.multinet ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
  &#125;
  if %away.msgtype == ame && %away.msgevery != $null &#123;
    if &#40;%pager == on&#41; && &#40;%logger == $null&#41; &#123; %away.multinetame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; | %away.multinet .timeraway 0 %away.msgevery ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == on&#41; && &#40;%logger == on&#41; &#123; window -n @Log -1 -1 550 350 | %away.multinet ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | %away.multinet .timeraway 0 %away.msgevery ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == $null&#41; && &#40;%logger == on&#41; &#123; window -n @Log -1 -1 550 350 | %away.multinet ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | %away.multinet .timeraway 0 %away.msgevery ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == $null&#41; && &#40;%logger == $null&#41; &#123; %away.multinet ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; | %away.multinet .timeraway 0 %away.msgevery ame is &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
  &#125;
  if %away.msgtype == amsg && %away.msgevery == None &#123;
    if &#40;%pager == on&#41; && &#40;%logger == $null&#41; &#123; %away.multinet amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == on&#41; && &#40;%logger == on&#41; &#123; window -n @Log -1 -1 550 350 | %away.multinet amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == $null&#41; && &#40;%logger == on&#41; &#123; window -n @Log -1 -1 550 350 | %away.multinet amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == $null&#41; && &#40;%logger == $null&#41; &#123; %away.multinet amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
  &#125;
  if %away.msgtype == amsg && %away.msgevery != $null &#123;
    if &#40;%pager == on&#41; && &#40;%logger == $null&#41; &#123; %away.multinet amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; | %away.multinet .timeraway 0 %away.msgevery amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == on&#41; && &#40;%logger == on&#41; &#123; window -n @Log -1 -1 550 350 | %away.multinet amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | %away.multinet .timeraway 0 %away.msgevery amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Pager&#58; On $eval&#40;$gettok&#40;%pager-log,2,58&#41;,2&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == $null&#41; && &#40;%logger == on&#41; &#123; window -n @Log -1 -1 550 350 | %away.multinet amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | %away.multinet .timeraway 0 %away.msgevery amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; &#40; Logger&#58; On $eval&#40;$gettok&#40;%pager-log,1,58&#41;,2&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
    if &#40;%pager == $null&#41; && &#40;%logger == $null&#41; &#123; %away.multinet amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; | %away.multinet .timeraway 0 %away.msgevery amsg &#40; Away &#41; &#40; Reason&#58; %away.reason &#41; &#40; Left At&#58; $asctime&#40;hh&#58;nntt&#41; &#41; | .reload -rs scripts/AwaySystem.mrc | halt &#125;
  &#125;
  if &#40;%away.msgtype == $null&#41; &#123; %away.multinet echo You Are Now Currently Away. | .reload -rs scripts/AwaySystem.mrc | halt &#125;
&#125;
alias dialogback &#123;
  if &#40;%away.multinet&#41; &#123;
    set %scon $scon&#40;0&#41;
    set %nocs 1
    while %nocs <= %scon &#123;
      scon -t1 %nocs /nick %backnick &#91; $+ &#91; %nocs &#93; &#93;
      unset %backnick &#91; $+ &#91; %nocs &#93; &#93;
      inc %nocs 1
    &#125;
    unset %nocs
    unset %scon
  &#125;
  if &#40;!%away.multinet&#41; &#123; nick %backnick | unset %backnick &#125;
  if &#40;%away.msgtype == ame&#41; &#123; %away.multinet ame is &#40; Back &#41; &#40; Reason&#58; %away.reason &#41; &#40; Gone For&#58; $duration&#40;$calc&#40;$ctime - %away.ctime&#41;,N&#41; &#41; | %away.multinet .away | .timeraway off | unset %away.ctime | unset %away.reason | dialog -x away away  &#125;
  if &#40;%away.msgtype == amsg&#41; &#123; %away.multinet amsg &#40; Back &#41; &#40; Reason&#58; %away.reason &#41; &#40; Gone For&#58; $duration&#40;$calc&#40;$ctime - %away.ctime&#41;,N&#41; &#41; | %away.multinet .away | .timeraway off | unset %away.ctime | unset %away.reason | dialog -x away away  &#125;
  if &#40;%away.msgtype == $null&#41; &#123; %away.multinet echo -a You Are Now Back | %away.multinet .away | .timeraway off | unset %away.ctime | unset %away.reason | dialog -x away away | unset %backnick &#125;
&#125;
menu channel,status,menubar &#123;
  Away System
  .New Message...&#58;dialog -dm away away
  .-
  .Somewhere&#58;set %away.reason Somewhere... | _away | dialogaway
  .Away Away Message&#58;set %away.reason Away... | _away | dialogaway
  .Dead&#58;set %away.reason Dead And Not Much You Can Do About it | _away | dialogaway
  .sad&#58;set %away.reason somewhere.... alone..... ;&#40; ;&#40; SNG i Deni4ka - Obi4am te.mp3 | _away | dialogaway
&#125;
Нито ден пропилян , секи ден пиян!!

Morales
Нов
Нов
Posts: 157
Joined: Thu Apr 19, 2007 6:44 pm
Location: Плевен

Post by Morales » Sat Aug 02, 2008 2:13 pm

#Away System
#Created bY Morales
#E-mail adm1n4e@abv.bg
menu * {
*Away System*
.Go://.awg
.Back://.awb
}
alias awg {
if (%awr == $null) { //.set %awr $?="Away Reason:" | //.set %awn $?="Away Nick:" | //.set %awe $network | //.set %awo $me | //.set %awt $time | //.away %awr | //.nick %awn | //.timer 1 0 ame is away. Reason: %awr From: %awt }
else { //.echo -a 0Ti veche si away! :) }
}
alias awb {
if (%awr != $null) { //.timer 1 0 /ame is back. Reason: %awr From: %awt | //.away | //.nick %awo | //.unset %awr | //.unset %awn | //.unset %awt | //.timer 1 1 unset %awo }
else { //.echo -a 0Purvo stani away posle se vrushtai! :) }
}
on *:text:*:?: { if (%awr != $null) && ($network == %awe) { /msg $nick *Away System* Reason: %awr From: %awt } }
on *:notice:*:?: { if (%awr != $null) && ($network == %awe) { /msg $nick *Away System* Reason: %awr $+ From: %awt } }
on *:action:*:?: { if (%awr != $null) && ($network == %awe) { /msg $nick *Away System* Reason: %awr From: %awt } }

От мене малко по късо :) Надявам се да съм ти помогнал.

User avatar
shukri_93
Много Редовен
Много Редовен
Posts: 1517
Joined: Fri Dec 19, 2008 11:17 am
Answers: 69

Post by shukri_93 » Mon Dec 29, 2008 3:59 pm

Code: Select all

&#91;script&#93;
n0=alias F11 &#123;
n1=  /unset %awayuser.*
n2=  /dialog -m xaway xaway
n3=&#125;
n4=alias F12 &#123;
n5=  if &#40; $away == $true &#41; &#123;
n6=    if &#40;%awaynick.use == on&#41; &#123; /nick %awaynick.old &#125;
n7=    /resetidle 0
n8=    /away 
n9=    if &#40;%away.silent != on&#41; &#123; /ame 3» 4i0S8» 4B0a9c8k 12&#91; 0gone for3 $duration&#40;$calc&#40;$ctime - %aw.time&#41;&#41; 12&#93; &#125;
n10=    /set %way off  
n11=    /titlebar
n12=  &#125;
n13=  else &#123; /echo -a $ud 4You Are Not AwAy!!! $ud &#125;
n14=&#125;
n15=on *&#58;text&#58;*&#58;#&#58;&#123;
n16=  if &#40; $me isin $1- &#41; &#123; 
n17=    if &#40; $away == $true &#41; &#123; 
n18=      if &#40;%awaylog == on&#41; &#123; 
n19=        /window @AwayLog
n20=        /echo @awaylog 8&#91;12 $+ $time $+ 8&#93;4 < $+ $chan $+ / $+ $nick $+ >11 $1-
n21=      &#125;
n22=      if &#40; %awayuser. $+ $nick !== yes &#41; &#123; 
n23=        /.notice $nick AwAy&#58; &#40; %away.reason &#41; - from  $+ $duration&#40;$calc&#40;$ctime - %aw.time&#41;&#41;
n24=        /set %awayuser. $+ $nick yes 
n25=      &#125; 
n26=    &#125;
n27=  &#125;
n28=&#125;
n29=
n30=on *&#58;text&#58;*&#58;?&#58; &#123; 
n31=  if &#40;$away == $true&#41; &#123; 
n32=    /.notice $nick 4AwAy 9» 7&#91;0 %away.reason 7&#93; 11- 13FRoM0&#58; $+ $duration&#40;$calc&#40;$ctime - %aw.time&#41;&#41;  
n33=    if &#40;%awaylog == on&#41; &#123; 
n34=      /window @AwayLog
n35=      /echo @awaylog 8&#91;12 $+ $time $+ 8&#93;4 < $+ $nick $+ >15 $1-
n36=    &#125;
n37=  &#125;
n38=&#125;
n39=ctcp *&#58;page&#58;?&#58;&#123;
n40=  if &#40;$away == $true&#41; &#123;  
n41=    if &#40; %awaypage == on &#41; &#123; /dialog -m paging paging | /beep 10000 1 | /flash AwAy Pager! | /.notice $nick PAGING!... | /echo -s 9<+*+>4 $nick is PAGING you... &#125;
n42=  &#125;
n43=&#125;
n44=on *&#58;open&#58;?&#58;&#123;
n45=  if &#40;$away == $true&#41; &#123;
n46=    if &#40;%awaylog == on&#41; &#123; //.timerclose $+ $nick 1 1 /closemsg $nick &#125;
n47=  &#125;
n48=&#125;
n49=
n50=menu menubar,status,channel &#123;
n51=  -
n52=  Away &#40; $+ $iif&#40;$away == $true,YES,NO&#41; $+ &#41;
n53=  .-
n54=  .On&#58;/F11
n55=  .Off&#58;/F12
n56=  .-
n57=  .Settings
n58=  ..Pager&#40;now| %awaypage $+ &#41;
n59=  ...ON&#58;/set %awaypage on
n60=  ...OFF&#58;/set %awaypage off
n61=  ..Idle&#40;now| %awayidle $+ &#41;
n62=  ...ON&#58;/set %awayidle on
n63=  ...OFF&#58;/set %awayidle off
n64=  ...-
n65=  ...Time&#40;now %idletime.min min&#41;&#58;&#123;
n66=    /set %idletime.min $?="Enter the time in minutes&#58;"
n67=    /set %idletime.sec $calc&#40;%idletime.min * 60&#41;
n68=  &#125;
n69=  ..Log&#40;now| %awaylog $+ &#41;
n70=  ...ON&#58;/set %awaylog on
n71=  ...OFF&#58;/set %awaylog off
n72=  ..Use Nick&#40;now %awaynick.use $+ &#41;
n73=  ...ON&#58;/set %awaynick.use on
n74=  ...OFF&#58;/set %awaynick.use off
n75=  ...-
n76=  ...Nick&#40;now %awaynick $+ &#41;&#58;/set %awaynick $?="Enter your away nick&#58;"
n77=  ..Silent&#40;now| %away.silent $+ &#41;
n78=  ...ON&#58;/set %away.silent on
n79=  ...OFF&#58;/set %away.silent off
n80=&#125;
n81=menu @AwAyLog &#123;
n82=  Close&#58;/close -@ @AwAyLog
n83=&#125;
n84=dialog paging &#123;
n85=  title "PAGING!!!"
n86=  size 162 250 193 35
n87=  option dbu
n88=  button "OK", 10, 27 17 137 11, cancel,
n89=  text "Press the OK Button to STOP Beeping!", 20, 6 5 181 6, center,
n90=&#125;
n91=on *&#58;dialog&#58;paging&#58;sclick&#58;*&#58;&#123;
n92=  if &#40; $did == 10 &#41; &#123; /beep off &#125;
n93=&#125;
n94=alias checkidle &#123;
n95=  if &#40;%awayidle == on&#41; &#123;
n96=    if &#40;$away == $false&#41; &#123;
n97=      if &#40;$idle >= %idletime.sec&#41; &#123;
n98=        /unset %awayuser.*
n99=        /set %away.reason Autoaway...
n100=        /away  %away.reason 
n101=        if &#40;%away.silent != on&#41; &#123; /ame 4i0S 7A3w8a9Y12. 3Reason 4-11 %away.reason &#40;autoaway %idletime.min minuts idle&#41; &#125;
n102=        /set %way on 
n103=        /set %aw.time $ctime
n104=      &#125;
n105=    &#125;
n106=  &#125;
n107=&#125;
n108=dialog xaway &#123;
n109=  title "AwAy System" 
n110=  icon data\away.ico
n111=  size -1 -1 175 52 
n112=  option dbu
n113=  text "&Away message&#58;", 202, 5 7 37 7
n114=  edit "", 1, 43 5 118 11, autohs
n115=  text "0", 4, 163 7 13 7
n116=  check "&Pager", 2, 5 21 44 7 
n117=  check "&Log", 3, 58 21 39 7
n118=  button "OK", 101, 5 35 27 12, OK default flat
n119=  button "Cancel", 102, 38 35 27 12, cancel flat
n120=  check "&Nick&#58;", 103, 75 38 22 7
n121=  edit "", 105, 98 36 73 11
n122=  check "&Silent", 104, 107 21 60 7
n123=&#125; 
n124=on *&#58;dialog&#58;xaway&#58;init&#58;*&#58;&#123;
n125=  if &#40;%awaypage == off&#41; &#123; did -u xaway 2 &#125;
n126=  if &#40;%awaypage == on&#41; &#123; did -c xaway 2 &#125;
n127=  if &#40;%awaylog == off&#41; &#123; did -u xaway 3 &#125;
n128=  if &#40;%awaylog == on&#41; &#123; did -c xaway 3 &#125;
n129=  if &#40;%awaynick.use == off&#41; &#123; did -u xaway 103 &#125;
n130=  if &#40;%awaynick.use == on&#41; &#123; did -c xaway 103 &#125;
n131=  if &#40;%away.silent == off&#41; &#123; did -u xaway 104 &#125;
n132=  if &#40;%away.silent == on&#41; &#123; did -c xaway 104 &#125;
n133=  if &#40;%awaynick !== $null&#41; &#123; did -a xaway 105 %awaynick &#125;
n134=&#125;
n135=on *&#58;dialog&#58;xaway&#58;sclick&#58;*&#58;&#123;
n136=  if &#40;$did == 2&#41; &#123; 
n137=    if &#40;%awaypage == on&#41; &#123; /set %awaypage off &#125;
n138=    else &#123; /set %awaypage on &#125; 
n139=  &#125;
n140=  if &#40;$did == 3&#41; &#123; 
n141=    if &#40;%awaylog == on&#41; &#123; /set %awaylog off &#125;
n142=    else &#123; /set %awaylog on &#125; 
n143=  &#125;
n144=  if &#40;$did == 103&#41; &#123; 
n145=    if &#40;%awaynick.use == on&#41; &#123; /set %awaynick.use off &#125;
n146=    else &#123; /set %awaynick.use on &#125; 
n147=  &#125;
n148=  if &#40;$did == 101&#41; &#123; 
n149=    /set %awaynick $did&#40;105&#41;
n150=    if &#40;$did&#40;1&#41; == $null&#41; &#123; /echo -a $ud 4Please enter away reason!!! $ud | halt &#125;
n151=    /set %away.reason $did&#40;1&#41;
n152=    /away  %away.reason 
n153=    if &#40;%away.silent != on&#41; &#123; /ame is away. Reason - %away.reason  &#125;
n154=    /set %way on 
n155=    /set %aw.time $ctime
n156=    if &#40;%awaynick.use == on&#41; &#123; /set %awaynick.old $me | /nick %awaynick &#125;
n157=  &#125;
n158=  if &#40;$did == 104&#41; &#123; 
n159=    if &#40;%away.silent == on&#41; &#123; /set %away.silent off &#125;
n160=    else &#123; /set %away.silent on &#125; 
n161=  &#125;
n162=&#125;
n163=
n164=on *&#58;DIALOG&#58;xaway&#58;edit&#58;1&#58;&#123; doeditboxchk &#125;
n165=alias -l doeditboxchk &#123;
n166=  if &#40;$len&#40;$did&#40;1&#41;&#41; < 100&#41; &#123; did -a $dname 4 $len&#40;$did&#40;1&#41;&#41; &#125;
n167=  if &#40;$len&#40;$did&#40;1&#41;&#41; == 100&#41; &#123; %did1text = $did&#40;1&#41; | did -a $dname 4 Max &#125;
n168=  if &#40;$len&#40;$did&#40;1&#41;&#41; == 101&#41; &#123; did -ar $dname 1 %did1text | beep 1 | %did1text = $did&#40;1&#41; &#125;
n169=&#125;
На мен тази ми харесва!!! :)

Post Reply