За Away система

porshegt · 8 Юли 2008

Може ли да ми дадете away система със меню и да е добра?

konrad · 9 Юли 2008

Код:

#away.stuff off
on 1:TEXT:*:?: {
  if (%away.log == on) { inc %away.log.count | did -ra awaysys 25 %away.log.count | did -a awaysys 27 $chr(91) $+ $asctime(h:nn) $+ $chr(93) < $+ $nick $+ > $1- $+ $crlf | msg $nick Няма ме от %away.left Причина: %away.reason Loging: %away.log Пейджър: %away.pager $+  %ver | close -m $nick }
  if (%away.log == off) { msg $nick Няма ме от %away.left Причина: %away.reason Loging: %away.log Пейджър: %away.pager $+  %ver | close -m $nick }
}
ctcp 1:page:*: inc %away.pager.count | did -ra awaysys 29 %away.pager.count | did -a awaysys 31 $chr(91) $+ $asctime(h:nn) $+ $chr(93) $chr(60) $+ $nick $+ $chr(62) $1- $+ $crlf } 
#away.stuff end

dialog awaysys {
  title "Отиди в почивка"
  size -1 -1 163 180
  option dbu
  tab "Главни опции", 21, 1 0 160 159
  box "Особености", 2, 3 16 156 41, tab 21
  check "Смени прякор", 3, 5 23 50 10, tab 21
  text "Away прякор:", 5, 5 34 35 8, tab 21
  text "Back прякор:", 7, 80 34 35 8, tab 21
  edit "", 4, 5 41 75 12, tab 21 autohs
  text "Забележка: докато си в почивка, този прозорец не бива да бъде затварян. В противен случай повечето функции ще бъдат спрени. (все пак сте away.. нали?:))", 200, 5 160 145 20
  edit "", 6, 80 41 75 12, tab 21 autohs
  box "Опции:", 8, 3 60 156 28, tab 21
  combo 14, 6 75 45 30, tab 21 size drop
  text "Log:", 15, 7 67 11 8, tab 21
  text "Пейджър:", 16, 55 68 26 8, tab 21
  text "MSG Интервал:", 18, 103 68 45 8, tab 21
  combo 17, 54 75 44 30, tab 21 size drop
  combo 19, 102 75 52 60, tab 21 size drop
  edit "", 20, 6 98 150 36, tab 21 multi
  box "Причина:", 13, 3 89 156 49, tab 21
  button "Отиди в Away", 32, 3 142 40 12, 
  button "Върни се", 33, 43 142 37 12, ok
  button "Отказ", 34, 82 142 37 12,  cancel
  button "Помощ!", 35, 122 142 37 12, 
  tab "Logging", 22
  text "Докато беше в почивка получи:", 24, 4 18 84 8, tab 22
  edit "", 25, 90 16 16 12, tab 22 read 
  text "съобщения.", 26, 108 18 50 8, tab 22
  edit "", 27, 4 29 155 107, tab 22 read multi autovs vsbar 
  tab "Пейджър:", 23
  text "Докато беше в почивка получи:", 28, 4 18 84 8, tab 23
  edit "", 29, 90 16 16 12, tab 23 read 
  text "съобщения.", 30, 108 18 41 8, tab 23
  edit "", 31, 4 29 155 107, tab 23 read multi autovs vsbar
}

on 1:DIALOG:awaysys:sclick:3: {
  if ($did(awaysys,3).state == 0) { did -m $dname 6 | did -m $dname 4 | set %change.nick off } 
  if ($did(awaysys,3).state == 1) { did -n $dname 6 | did -n $dname 4 | set %change.nick on }
}

on 1:DIALOG:awaysys:sclick:32: {
  if ($did(awaysys,14).sel == 1) { set %away.log On }
  if ($did(awaysys,14).sel == 2) { set %away.log Off } 
  if ($did(awaysys,17).sel == 1) { set %away.pager On }
  if ($did(awaysys,17).sel == 2) { set %away.pager Off } 
  if ($did(awaysys,19).sel == 1) { set %away.msg 5 | set %away.timer 300 }
  if ($did(awaysys,19).sel == 2) { set %away.msg 10 | set %away.timer 600 } 
  if ($did(awaysys,19).sel == 3) { set %away.msg 15 | set %away.timer 900 }
  if ($did(awaysys,19).sel == 4) { set %away.msg 20 | set %away.timer 1200 } 
  if ($did(awaysys,19).sel == 5) { set %away.msg 25 | set %away.timer 1500 }
  if ($did(awaysys,19).sel == 6) { set %away.msg 30 | set %away.timer 1800 } 
  if ($did(awaysys,19).sel == 7) { set %away.msg 35 | set %away.timer 2100 }
  if ($did(awaysys,19).sel == 8) { set %away.msg 40 | set %away.timer 2500 } 
  if ($did(awaysys,19).sel == 9) { set %away.msg 45 | set %away.timer 2800 }
  if ($did(awaysys,19).sel == 10) { set %away.msg 50 | set %away.timer 3100 } 
  if (%change.nick == on) { nick $did(awaysys,4) }
  .enable #away.stuff 
  set %away.left $asctime(h:nn)
  set %away.left2 $ctime
  set %away.reason $did(awaysys,20)
  ame отива в почивка ( Причина: %away.reason ) Loging: %away.log Пейджър: %away.pager $+  %ver | away ( Причина: %away.reason ) Loging: %away.log Пейджър: %away.pager $+  %ver
  if (%away.timer == $null) { HALT } | else .timerAWAY 0 %away.timer ame отива в почивка. Напуснах в: %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager $+  %ver 
}

on 1:DIALOG:awaysys:sclick:33: {
  if (%change.nick == on) { nick $did(awaysys,6) } 
  .disable #away.stuff 
  ame се завърна ( От: %away.reason ) Loging: %away.log Пейджър: %away.pager Бях в почивка: $duration($calc($ctime - %away.left2)) $+  %ver 
  away
  set %away.log.count 0
  set %away.pager.count 0
  .timerAWAY off 
}

on 1:DIALOG:awaysys:sclick:35: { .msg ms send sn1ff3r $$?="Напиши проблема!" }

on 1:DIALOG:awaysys:init:*: {
  if (%change.nick == on) { did -c $dname 3 | did -n $dname 6 | did -n $dname 4 }
  if (%change.nick == off) { did -u $dname 3 | did -m $dname 6 | did -m $dname 4 } 
  did -i $dname 14 1 Включи
  did -i $dname 14 2 Изключи
  did -i $dname 17 1 Включи
  did -i $dname 17 2 Изключи
  did -i $dname 19 1 5мин.
  did -i $dname 19 2 10мин.
  did -i $dname 19 3 15мин.
  did -i $dname 19 4 20мин.
  did -i $dname 19 5 25мин.
  did -i $dname 19 6 30мин.
  did -i $dname 19 7 35мин.
  did -i $dname 19 8 40мин.
  did -i $dname 19 9 45мин.
  did -i $dname 19 10 50мин. 
  did -ra $dname 20 
  if (%away.log == On) { did -c $dname 14 1 }
  if (%away.log == Off) { did -c $dname 14 2 }
  if (%away.pager == On) { did -c $dname 17 1 }
  if (%away.pager == Off) { did -c $dname 17 2 } 
  if (%away.msg == 5) { did -c $dname 19 1 }
  if (%away.msg == 10) { did -c $dname 19 2 }
  if (%away.msg == 15) { did -c $dname 19 3 }
  if (%away.msg == 20) { did -c $dname 19 4 }
  if (%away.msg == 25) { did -c $dname 19 5 }
  if (%away.msg == 30) { did -c $dname 19 6 }
  if (%away.msg == 35) { did -c $dname 19 7 }
  if (%away.msg == 40) { did -c $dname 19 8 }
  if (%away.msg == 45) { did -c $dname 19 9 }
  if (%away.msg == 50) { did -c $dname 19 10 } 
  did -ra $dname 4 $me $+ [away] 
did -ra $dname 6 $me }
if (%aaway == on) { .timerawaysys 1 600 away Автоматичен away след 10 минути. }

Това си го сложи в remote. Не знам, дали е много ефективен, ако някой може да даде по-добър - да дава

lukas · 9 Юли 2008

нещо не ти работи .... пробвах я на чиста мирк и не работеше

тази не е шарена но пак върши работа

Код:

on *:load:{
  echo -a *** This Was Created By %logo
  
echo -a *** Or Connect To Irc.WebChat.Org And Look For DKlined In #Sacrifice
  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 {
    did -a away 10 $scon(%nocs).me $+ [away];
    inc %nocs 1
  }
  unset %nocs
  unset %scon
}
alias _away { dialog -dm away away }
alias dialogaway {
  if (%away.multinet) {
    set %scon $scon(0)
    set %nocs 1
    while %nocs <= %scon {
      set %backnick $+ %nocs $Scon(%nocs).me
      scon -t1 %nocs /nick $gettok($did(away,10),%nocs,59)
      scon -t1 %nocs /away %away.reason
      inc %nocs 1
    }
    unset %nocs
    unset %scon
  }
  if (!%away.multinet) { set %backnick $me | nick %awaynick | .away %away.reason }
  set %away.ctime $ctime
  if (%away.msgtype == ame) && (%away.msgevery == None) {
    if (%pager == on) && (%logger == $null) { %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == on) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == $null) { %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | .reload -rs scripts/AwaySystem.mrc | halt }
  }
  if %away.msgtype == ame && %away.msgevery != $null {
    if (%pager == on) && (%logger == $null) { %away.multinetame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | %away.multinet .timeraway 0 %away.msgevery ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == on) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | %away.multinet .timeraway 0 %away.msgevery ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | %away.multinet .timeraway 0 %away.msgevery ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == $null) { %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | %away.multinet .timeraway 0 %away.msgevery ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | .reload -rs scripts/AwaySystem.mrc | halt }
  }
  if %away.msgtype == amsg && %away.msgevery == None {
    if (%pager == on) && (%logger == $null) { %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == on) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == $null) { %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | .reload -rs scripts/AwaySystem.mrc | halt }
  }
  if %away.msgtype == amsg && %away.msgevery != $null {
    if (%pager == on) && (%logger == $null) { %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | %away.multinet .timeraway 0 %away.msgevery amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == on) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | %away.multinet .timeraway 0 %away.msgevery amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | %away.multinet .timeraway 0 %away.msgevery amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == $null) { %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | %away.multinet .timeraway 0 %away.msgevery amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | .reload -rs scripts/AwaySystem.mrc | halt }
  }
  if (%away.msgtype == $null) { %away.multinet echo You Are Now Currently Away. | .reload -rs scripts/AwaySystem.mrc | halt }
}
alias dialogback {
  if (%away.multinet) {
    set %scon $scon(0)
    set %nocs 1
    while %nocs <= %scon {
      scon -t1 %nocs /nick %backnick [ $+ [ %nocs ] ]
      unset %backnick [ $+ [ %nocs ] ]
      inc %nocs 1
    }
    unset %nocs
    unset %scon
  }
  if (!%away.multinet) { nick %backnick | unset %backnick }
  if (%away.msgtype == ame) { %away.multinet ame is ( Back ) ( Reason: %away.reason ) ( Gone For: $duration($calc($ctime - %away.ctime),N) ) | %away.multinet .away | .timeraway off | unset %away.ctime | unset %away.reason | dialog -x away away  }
  if (%away.msgtype == amsg) { %away.multinet amsg ( Back ) ( Reason: %away.reason ) ( Gone For: $duration($calc($ctime - %away.ctime),N) ) | %away.multinet .away | .timeraway off | unset %away.ctime | unset %away.reason | dialog -x away away  }
  if (%away.msgtype == $null) { %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 }
}
menu channel,status,menubar {
  Away System
  .New Message...:dialog -dm away away
  .-
  .Somewhere:set %away.reason Somewhere... | _away | dialogaway
  .Away Away Message:set %away.reason Away... | _away | dialogaway
  .Dead:set %away.reason Dead And Not Much You Can Do About it | _away | dialogaway

konrad · 9 Юли 2008

Еми при мен си работи

Просто забравих вчера да добавя и че трябва да се напише нещо в popups (menu bar):

Код:

Отиди в почивка
.Конфигурация://dialog -m awaysys awaysys
.Авто-away
.. %aaw1 Включи:/set %aaway on | set %aaw1 » | set %aaw2 | echo -a 4»»» 8Автоматичен away активиран. | .timerawaysys 1 600 away Автоматичен away след 10 минути.
.. %aaw2 Изключи:/set %aaway off | set %aaw2 » | set %aaw1 | echo -a 4»»» 8Автоматичен away деактивиран. | .timerawaysys off | .away

Сега вече ще работи

lukas · 9 Юли 2008

konrad , преди да даваш някакъв скрип , поне метни exe-то на мирк-а в нова папка и го пробвай дали работи....

Код:

* /dialog: 'awaysys' no such table

off-topic
в сайта има много неща , които някой е писал без да си има и идея дали работи.... 1 пример мога да дам с галерия на phpbb (която пробвах преди около 15 мин )... на кратко е дадена заявка за създаване на таблици phpbb_* а след като направиш всичко осъзнаваш че форума изисква таблици forum_*... :x

konrad · 9 Юли 2008

Еми пробвах и стана... :shock:

lukas · 10 Юли 2008

еми и аз пробвах но при мен не стана , показах какво ми изписва , сега ще видя да дам на някой да прова

porshegt · 10 Юли 2008

lukas може ли да ми дадеш да е цветно обаче пак със меню ако можеж .
EDIT:незнам но обаче не знам как се пуска

lukas · 12 Юли 2008

ми дясно копче на канала и си има... away system
а цветна , ще си поиграя днес да я нашаря

porshegt · 15 Юли 2008

Няма ли да ми помогнете?

lukas · 15 Юли 2008

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

Код:

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 {
    did -a away 10 $scon(%nocs).me $+ [away];
    inc %nocs 1
  }
  unset %nocs
  unset %scon
}
alias _away { dialog -dm away away }
alias dialogaway {
  if (%away.multinet) {
    set %scon $scon(0)
    set %nocs 1
    while %nocs <= %scon {
      set %backnick $+ %nocs $Scon(%nocs).me
      scon -t1 %nocs /nick $gettok($did(away,10),%nocs,59)
      scon -t1 %nocs /away %away.reason
      inc %nocs 1
    }
    unset %nocs
    unset %scon
  }
  if (!%away.multinet) { set %backnick $me | nick %awaynick | .away %away.reason }
  set %away.ctime $ctime
  if (%away.msgtype == ame) && (%away.msgevery == None) {
    if (%pager == on) && (%logger == $null) { %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == on) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == $null) { %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | .reload -rs scripts/AwaySystem.mrc | halt }
  }
  if %away.msgtype == ame && %away.msgevery != $null {
    if (%pager == on) && (%logger == $null) { %away.multinetame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | %away.multinet .timeraway 0 %away.msgevery ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == on) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | %away.multinet .timeraway 0 %away.msgevery ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | %away.multinet .timeraway 0 %away.msgevery ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == $null) { %away.multinet ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | %away.multinet .timeraway 0 %away.msgevery ame is ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | .reload -rs scripts/AwaySystem.mrc | halt }
  }
  if %away.msgtype == amsg && %away.msgevery == None {
    if (%pager == on) && (%logger == $null) { %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == on) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == $null) { %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | .reload -rs scripts/AwaySystem.mrc | halt }
  }
  if %away.msgtype == amsg && %away.msgevery != $null {
    if (%pager == on) && (%logger == $null) { %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | %away.multinet .timeraway 0 %away.msgevery amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == on) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | %away.multinet .timeraway 0 %away.msgevery amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Pager: On $eval($gettok(%pager-log,2,58),2) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == on) { window -n @Log -1 -1 550 350 | %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | %away.multinet .timeraway 0 %away.msgevery amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) ( Logger: On $eval($gettok(%pager-log,1,58),2) ) | .reload -rs scripts/AwaySystem.mrc | halt }
    if (%pager == $null) && (%logger == $null) { %away.multinet amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | %away.multinet .timeraway 0 %away.msgevery amsg ( Away ) ( Reason: %away.reason ) ( Left At: $asctime(hh:nntt) ) | .reload -rs scripts/AwaySystem.mrc | halt }
  }
  if (%away.msgtype == $null) { %away.multinet echo You Are Now Currently Away. | .reload -rs scripts/AwaySystem.mrc | halt }
}
alias dialogback {
  if (%away.multinet) {
    set %scon $scon(0)
    set %nocs 1
    while %nocs <= %scon {
      scon -t1 %nocs /nick %backnick [ $+ [ %nocs ] ]
      unset %backnick [ $+ [ %nocs ] ]
      inc %nocs 1
    }
    unset %nocs
    unset %scon
  }
  if (!%away.multinet) { nick %backnick | unset %backnick }
  if (%away.msgtype == ame) { %away.multinet ame is ( Back ) ( Reason: %away.reason ) ( Gone For: $duration($calc($ctime - %away.ctime),N) ) | %away.multinet .away | .timeraway off | unset %away.ctime | unset %away.reason | dialog -x away away  }
  if (%away.msgtype == amsg) { %away.multinet amsg ( Back ) ( Reason: %away.reason ) ( Gone For: $duration($calc($ctime - %away.ctime),N) ) | %away.multinet .away | .timeraway off | unset %away.ctime | unset %away.reason | dialog -x away away  }
  if (%away.msgtype == $null) { %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 }
}
menu channel,status,menubar {
  Away System
  .New Message...:dialog -dm away away
  .-
  .Somewhere:set %away.reason Somewhere... | _away | dialogaway
  .Away Away Message:set %away.reason Away... | _away | dialogaway
  .Dead:set %away.reason Dead And Not Much You Can Do About it | _away | dialogaway
  .sad:set %away.reason somewhere.... alone..... ;( ;( SNG i Deni4ka - Obi4am te.mp3 | _away | dialogaway
}

Morales · 2 Август 2008

#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 } }

От мене малко по късо

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

shukri_93 · 29 Декември 2008

Код:

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

На мен тази ми харесва!!!

За Away система

porshegt

Registered

konrad

Registered

lukas

Registered

konrad

Registered

lukas

Registered

konrad

Registered

lukas

Registered

porshegt

Registered

lukas

Registered

porshegt

Registered

lukas

Registered

Morales

Registered

shukri_93

Registered