alias pmc1 {  if ( %away.total.pages > 0 ) {    echo -a $chr(35) of CTCP pages received: %away.total.pages $+ .    set %away.total.pages 0  }  else echo -a CTCP ile ilgili herhangi bir komut gelmemiÅŸ. } alias repeataway {  if (%away.rep) .timerblah 0 %away.rep. rep2 } alias rep2 {  if (%away.rep. < 600) set %away.rep. 3600  if ($chan(0)) ame is still away ( $+ %away.reason $+ ) ( $+ $a.cp $+ ) gone: $duration($calc($ctime - %away.time)) %logo  else return } alias cdate1 { return $date(dd/mmm/yy) : $time(HH:nn) } alias away.logo { return %logo } alias sback {  if ( $away == $true ) && ( %away.q.mode != on ) {    Set %away.status off    away    if ( %away.nick == on ) {      nick %away.oldnick      unset %away.oldnick      unset %away.newnick      set %away.back $ctime      .timerblah off      if ( $chan(0) > 0 ) { ame Awaydan çıktım ( $+ %away.reason $+ ) Away olduÄŸum süre: $duration($calc(%away.back - %away.time)) %logo }      resetidle      else { echo -a Artık away deÄŸilsin %away.reason $+ . Away kaldığın süre $duration($calc(%away.back - %away.time)) $+ . }      unset %away.back      unset %away.time    }    else {      set %away.back $ctime      if ( $chan(0) > 0 ) && (%away.time != $null) { ame is back ( $+ %away.reason $+ ) Gone: $duration($calc(%away.back - %away.time)) %logo }      else { echo -a Artık away deÄŸilsin %away.reason $+ . Away kaldığın süre $duration($calc($ctime - %away.back)) $+ . }      resetidle      aacheck      .timerBlah on      .unset %away.back      .unset %away.time      .unset %away.oldnick      .unset %away.newnick    }  }  elseif (%away.q.mode == on ) { qsback }  else Echo -a You’re not away. } alias saway {  if (%away.status == on) && ($away) echo -a You’re already away.  else {    unset %away.reason    set %away.reason $$?=”Away Sebebi Yazınız?”    away %away.reason    repeataway    set %away.time $ctime    set %away.stamp $time    set %away.q.mode off    if ($chan(0)) { ame away oldum ( $+ %away.reason $+ ) $+ . ( $+ $a.cp $+ ) %logo }    else echo -a You are away. reason: %away.reason $+ . Pager %away.pager $+ . Log: %away.log $+ .    set %away.time $ctime    awaycompare  } } alias testpage {  if ( %away.pager.wav == on ) && ( %away.pager.sound != empty ) splay %away.pager.sound  else beep 10 100 } alias qsaway {  away %away.reason  set %away.q.mode on  unset %away.total.pages  if ($1 != r) set %away.reason $$?=”Away Sebebi Yazınız?”  set %away.status on  set %away.time $ctime  echo -a Pencere Durumu: %away.pager $+ .  echo -a Mesaj Log Durumu: %away.log $+ .  set %away.st.1 »» Away  awaycompare  echo -a Away Sebebin: %away.reason $+ . } alias qsback {  if ($away) && ( %away.q.mode == on ) {    set %away.back $ctime    echo -a Artık away deÄŸilsin %away.reason $+ . Away kaldığın süre $duration($calc(%away.back - %away.time)) $+ .    away    if ( %away.nick == on ) {      nick %away.oldnick      unset %away.oldnick      unset %away.newnick    }    pmc1    set %away.q.mode off    unset %away.time    unset %away.back  }  else echo -a 5Buradan eski ayara dönülemiyor. Nereden away olduysanız oradan geri dönme seceneÄŸini secin. } on *:start: {  if ($version < 5.6) || ($bits != 32) {    echo 4Error:1 you must have mIRC ver. 5.6 or higher, and 32 bits version.    echo Load canceled!    halt  }  unset %away.total.pages  if (%away.pager.clear == on) echo -a CTCP Pager log cleared. | write -c pager.log  set %away.total.pages 0  if ( %predef.1 == $null ) set %predef.1 Empty  if ( %predef.2 == $null ) set %predef.2 Empty  if ( %predef.3 == $null ) set %predef.3 Empty  if ( %predef.4 == $null ) set %predef.4 Empty  if ( %predef.5 == $null ) set %predef.5 Empty } on *:load: {  if ($version < 5.6) || ($bits != 32) {    echo 4Error:1 To use Away System you must have mIRC ver. 5.6 or higher, and 32 bits version.    echo Load canceled!    halt  }  if ($away) { set %away.st.1 »» Away | set %away.status on }  else { set %away.st.1 »» Not away | set %away.status off }  set %away.nick on  set %away.nick.1 {Away}  unset %away.total.pages  set -u0 %i 0  :loop  inc %i  set %predef. $+ %i Empty  if (%i < 5) goto loop  set %away.pager on  set %away.log on  set %away.sc.a  set %away.sc.b  alias %away.sc.a maway  alias %away.sc.b maway2 } menu @Info {  dclick:window -c @Info } alias awaycompare {  if ( %away.nick == on ) && ( %away.nick.1 != $null ) {    set %away.oldnick $me    set %away.newnick $me $+ %away.nick.1    nick %away.newnick  } } alias predefaway {  unset %away.total.pages  if ( %away.status == on ) && ( $away == $true ) echo -a You’re already away.  else {    if ( %away.q.mode == on ) { set %away.q.mode off }    away %away.reason    set %away.status on    set %away.st.1 »» Away    if ($chan(0)) { ame is away - ( $+ %away.reason $+ ) $+ . ( $+ $cp $+ ) %logo }    else { echo -a You are away. reason: %away.reason $+ . Pager %away.pager $+ . Log: %away.log $+ . }    set %away.time $ctime    awaycompare  } } alias idelest { if ( $idle > %auto.away.secs ) autoaway } alias aacheck {  if ( %auto.away == on ) {    echo -a Auto-Away checker started.    .timerIdling 0 1 idelest  }  ; else halt } alias autoaway {  .TimerIdling Off  unset %away.total.pages  if ($away) echo -a You’re already away.  else {    .away %away.reason    set %away.st.1 »» Away    set %away.reason auto-away after $duration($idle)    set %away.status on      .set %away.time $ctime    .set %away.stamp $time    set %away.oldnick $me    awaycompare    if ($chan(0)) { ame is away - ( $+ %away.reason $+ ) $+ . ( $+ $a.cp $+ ) %logo }    else echo -a You are away - %away.reason $+ .  } } on *:connect: { aacheck } ; Track Messages on *:text:*:?: {  if ($away) && ( %away.log == on ) {    msg $nick 14Su anda yokum, eger bir mesajin varsa birak gelince okurum..! %logo    write logs\msg.log $timestamp $nick $1-    closemsg $nick  } } alias maway {  if ($away) sback  else saway } alias maway2 { ; if $1 == r there is a reason, we don’t need to request it from the user!  if ($away) qsback  else qsaway $1- } ctcp *:PAGE:*: {  if ($away) && ( %away.pager == on ) {    haltdef    write logs\pager.log Page received at $cdate $+ , from $nick $+ . message: $$2-    echo -a logs\Page from $nick $+ : $$2-    inc %away.total.pages    testpage  }  else return } alias ANOn {  set %away.nick on  echo -a Away nick enabled  set %away.nick.1 $$?=”Enter away nick - e.g. : -gone, -away, {A}”  if ( %away.nick.1 == $null ) { set %away.nick.1 {Away} }  else echo -a Away nickname set to %away.nick.1 $+ .  if ($away) nick %away.nick.1 } Alias ANOff set %away.nick off | echo -a Away nick disabled
menu menubar,channel,status {  «» Away Sistemi  .Away Systemi K&ontrol Paneli : open.AwaySysDialog  .&Away ol / geri dön  ..&Set Away/Geri dön:maway2  .&Genele (/ame)  ..&Away ol/Geri dön:maway  ..&Away Sebebi Sec  …&Yemek:if ($away == $false) set %away.reason Yemekteyim | predefaway  …&Uyku:if ($away == $false) set %away.reason Su an uyuyorum. Ses yapmayin. | predefaway  …&Web:if ($away == $false) set %away.reason Su an web sayfalarinda sorf yapiyorum | predefaway  …&Gezinti:if ($away == $false) set %away.reason Dışardayım, geziyorum.. | predefaway  …&Sigara:if ($away == $false) set %away.reason Sigara icmekteyim. | predefaway  …&Kahve:if ($away == $false) set %away.reason Kahve iciyorum, istermisin ? | predefaway  …&Customized  ….1 ( $+ %predef.1 $+ )  …..Use this one:if (%predef.1 != empty) && ($away == $false) set %away.reason %predef.1 | predefaway  …..Change…:set %predef.1 $$?=”Enter reason: ”  ….2 ( $+ %predef.2 $+ )  …..Use this one:if ( %predef.2 != empty ) && if ($away == $false) set %away.reason %predef.2 | predefaway  …..Change…:set %predef.2 $$?=”Enter reason: ”  ….3 ( $+ %predef.3 $+ )  …..Use this one:if ( %predef.3 != empty ) && if ($away == $false) set %away.reason %predef.3 | predefaway  …..Change…:set %predef.3 $$?=”Enter reason: ”  ….4 ( $+ %predef.4 $+ )  …..Use this one:if ( %predef.4 != empty ) && if ($away == $false) set %away.reason %predef.4 | predefaway  …..Change…:set %predef.4 $$?=”Enter reason: ”  ….5 ( $+ %predef.5 $+ )  …..Use this one:if ( %predef.5 != empty ) && if ($away == $false) set %away.reason %predef.5 | predefaway  …..Change…:set %predef.5 $$?=”Enter reason: ”  .&Away Nick  ..$iif(%away.nick == on,off,on):if (%away.nick == on) anoff | else anon
 ..&Set away nick: {    set %away.nick.1 $$?=”Enter away nick - e.g. : -gone, -away, {A}”    if ( %away.nick.1 == $null ) { set %away.nick.1 -Gone }    else echo -a Away nickname set to %away.nick.1 $+ .  }  .&Pencere  ..&On:set %away.pager on | echo -a CTCP penceresi acık..  ..&Off:set %away.pager off | echo -a CTCP penceresi kapalı..  ..&Mesajları Gör: {    window -ak @PagerLog -0 -0    if ( $exists(logs\pager.log)) { loadbuf @PagerLog logs\pager.log }    else {      write logs\pager.log $away.logo      loadbuf @PagerLog logs\pager.log    }  }  ..&Log Sil:if ( $$?!=”Loglar silinsinmi?” == $true ) { write -c logs\pager.log | write logs\pager.log $away.logo | echo -a CTCP penceresi logları silindi. }  ..&Müzik  …&On: {    set %away.pager.wav on    if ( $$?!=”Away de Ses Dosyasi çaldirin Sadece Wav== $true ) set %away.pager.sound $dir[="Wav Dosyası Çaldırın"] *.wav    else { set %away.pager.sound empty | set %away.pager.wav off }  }  …&Off:set %away.pager.wav off  .&Log  ..&On:set %away.log on | echo -a Mesajlar kayıt ediliyor…  ..&Off:set %away.log off | echo -a Mesajlar siliniyor…  ..&Mesajları Gör: {    window -ak @MSGLog -0 -0    if ( $exists(logs\msg.log)) { loadbuf @MSGLog logs\msg.log }    else {      write logs\msg.log $away.logo      loadbuf @MSGLog logs\msg.log    }  }  ..&Log Sil: if ( $$?!=”Loglar Silinsinmi?” == $true ) { write -c msg.log | write msg.log $away.logo | echo -a MSG Loglar silindi. } | else halt  .&Otomatik Away  ..&On: {    set %auto.away on    set %auto.away.etmp $$?=”Kaç dakika away kalacaksınız:”    if ( %auto.away.etmp isnum ) && ( %auto.away.etmp > 0 ) set %auto.away.secs $calc(60 * %auto.away.etmp) | echo -a Away süren %auto.away.etmp dakika. ( $+ $calc( %auto.away.etmp * 60 ) seconds $+ ) | .unset %auto.away.etmp    aacheck  }  ..&Off:set %auto.away off | echo -a Otomatik away iptal edildi. | .unset %auto.away.secs  ..&DeÄŸiÅŸ…  …&Dakika: {    set %auto.away.etmp $$?=”Kaç dakika away kalacaksınız:”    if ( %auto.away.etmp isnum ) && ( %auto.away.etmp > 0 ) set %auto.away.secs $calc(60 * %auto.away.etmp) | echo -a Away süren %auto.away.etmp dakika.. ( $+ $calc( %auto.away.etmp * 60 ) seconds $+ ) | .unset %auto.away.etmp | aacheck  }  …&Saniye: {    set %auto.away.etp $$?=”Kaç saniye away kalacaksınız:”    if (%auto.away.etp isnum ) && ( %auto.away.etp > 0 ) set %auto.away.secs %auto.away.etp | Echo -a Away süren %auto.away.etp saniye. | .unset %auto.away.etp | aacheck  }  .&Kısayol tuÅŸ ayarı  ..F tuÅŸlarını ayarla : { set -u0 %away.sc.tmp $$?=”Away olduÄŸunu genele yansıtmak için kısayol tuÅŸu seç (Örn:F5)”  if (%away.sc.tmp != $null) alias %away.sc.a | set %away.sc.a %away.sc.tmp | alias %away.sc.a maway }  ..F tuÅŸlarını ayarla:{ set -u0 %away.sc.tmp $$?=”Away olduÄŸunu kanala yansıtma. Kısayol tuÅŸu belirle (Örn:F5)”  if (%away.sc.tmp != $null) alias %away.sc.b | set %away.sc.b %away.sc.tmp | alias %away.sc.b maway2 } }
; ############## ; # Dialog Section   # ; ##############
alias open.AwaySysDialog { Â if ($dialog(AwaySysDialog) != $null)Â { dialog -v AwaySysDialog AwaySysDialog } Â else { dialog -m AwaySysDialog AwaySysDialog }Â }
Dialog AwaySysDialog {  title “Away Paneli”  size -1 -1 390 285  box “Away ayarları”, 1, 10 10 370 235  text “&Nickim:”, 2, 20 30 63 15  radio “Away” ,3, 110 30 45 15, group  radio “Away deÄŸil” ,4, 181 30 70 15  text “&Away OlduÄŸunda:” ,5, 20 50 85 15  radio “Sessiz Kal” , 6, 110 50 66 15, group  radio “Tüm Kanallara Sebeb Bildir” ,7, 181 50 185 15  text “&Away Sebebi:”, 40, 20 72 102 15  combo 8, 139 70 120 150 , edit drop  text “&Nickine away eki getir:” ,9, 20 95 130 15  radio “Evet”, 10, 155 95 47 15, group  radio “Hayır”, 11, 197 95 45 15  text “A&way ekini seç:”, 12, 20 117 114 15  combo 13, 139 113 120 90 , edit drop  text “&Mesaj:”, 14, 20 145 30 15  radio “On”, 15, 78 145 33 15, group  radio “Off”, 16, 116 145 45 15  button “&Logları gör”, 17, 155 140 90 20, flat  button “L&ogları sil”, 18, 255 140 90 20, flat  button “!”, 19.1, 355 140 15 20, flat  text “Lo&g:”, 49, 20 170 20 15  radio “On”, 20, 78 170 33 15, group  radio “Off”, 21, 116 170 45 15  button “L&ogları gör”, 22, 155 165 90 20, flat  button “L&ogları sil”, 23, 255 165 90 20, flat  text “Otomatik awa&y:”, 24, 20 195 53 15  radio “On”, 25, 78 195 33 15, group  radio “Off”, 26, 116 195 45 15  button “&Kaç saniye”, 27, 155 190 90 20, flat  text “F Tuslarini Kullan:”, 28, 20 220 100 15  text “Away (/a&me):”, 29, 125 220 63 15  edit “”, 30, 193 217 30 20  text “Away (&Quiet):”, 31, 228 220 63 15  edit “”, 32, 296 217 30 20  button “&Evet”, 35, 50 255 90 25, ok flat  button “&Vazgeç”, 36, 150 255 90 25, cancel flat }
on 1:dialog:AwaySysDialog:init:0: {  ;if (%away.st.1 == »» Not away) did -cf AwaySysDialog 4  ;else { did -cf AwaySysDialog 3 }  if ($away) { did -cf AwaySysDialog 3 | set %away.st.1 »» Away | set %away.status on }  else { did -cf AwaySysDialog 4 | set %away.st.1 »» Not away | set %away.status off }  if (%away.nick == on) did -c AwaySysDialog 10  else { did -c AwaySysDialog 11 | did -b AwaySysDialog 12,13 }  if (%away.pager == on) did -c AwaySysDialog 15  else did -c AwaySysDialog 16  if (%away.log == on) did -c AwaySysDialog 20  else did -c AwaySysDialog 21  did -c AwaySysDialog 7  if (%auto.away == on) did -c AwaySysDialog 25  else did -c AwaySysDialog 26  did -a AwaySysDialog 30 %away.sc.a  did -a AwaySysDialog 32 %away.sc.b  if (%away.nick.1 != $null) { did -a AwaySysDialog 13 %away.nick.1 }  if (%away.nick.1 != {Away} ) did -a AwaySysDialog 13 {Away}  if (%away.nick.1 != -Yok ) did -a AwaySysDialog 13 -Yok  if (%away.nick.1 != -away ) did -a AwaySysDialog 13 -away  did -c AwaySysDialog 13 1  did -a AwaySysDialog 8 Yemek  did -a AwaySysDialog 8 Uyku  did -a AwaySysDialog 8 Web Gezintisi  did -a AwaySysDialog 8 Dışardayım  did -a AwaySysDialog 8 Sigara Molası  did -a AwaySysDialog 8 Cafe Molası  if (%predef.1 != Empty) did -a AwaySysDialog 8 %predef.1  if (%predef.2 != Empty) did -a AwaySysDialog 8 %predef.2  if (%predef.3 != Empty) did -a AwaySysDialog 8 %predef.3  if (%predef.4 != Empty) did -a AwaySysDialog 8 %predef.4  if (%predef.5 != Empty) did -a AwaySysDialog 8 %predef.5 }
on 1:dialog:AwaySysDialog:sclick:35: {  ; add the reason to the list if there is an empty place and it not of the default reasons  if ($did(8) == $null) goto continue  if ($did(8) == food) || ($did(8) == sleep-zzz) || ($did(8) == Surfin’ the Web) || ($did(8) == Went outside) || ($did(8) == Out 4 a smoke) || ($did(8) == Coffee break) { goto continue }  if (($did(8) == %predef.1) || ($did(8) == %predef.2) || ($did(8) == %predef.3) || ($did(8) == %predef.4) || ($did(8) == %predef.5)) && $did(8) != Empty { goto continue }  if ($did(8) == Empty) { goto continue }  if (%predef.1 == Empty) { set %predef.1 $did(8) | goto continue }  if (%predef.2 == Empty) { set %predef.2 $did(8) | goto continue }  if (%predef.3 == Empty) { set %predef.3 $did(8) | goto continue }  if (%predef.4 == Empty) { set %predef.4 $did(8) | goto continue }  if (%predef.5 == Empty) { set %predef.5 $did(8) | goto continue }  :continue  ; auto away  if ($did(25).state == 1) set %auto.away on  else set %auto.away off  ; pager  if ($did(15).state == 1) set %away.pager on  else set %away.pager off  ; log  if ($did(20).state == 1) set %away.log on  else set %away.log off  ; shortcut keys  if ($did(30) != %away.sc.a) {    alias %away.sc.a    set %away.sc.a $did(30)    alias %away.sc.a maway  }  if ($did(32) != %away.sc.b) {    alias %away.sc.b    set %away.sc.b $did(32)    alias %away.sc.b maway2  }  ; use away nick  if ($did(13) == $null) set %away.nick.1 {Away}  set %away.nick.1 $did(13)  if ($did(10).state == 1) {    set %away.nick on    }  else set %away.nick off  ; Going away now  if ($did(3).state == 1 && %away.status == off) {    if ($did(6).state == 1) {      if ($did(8) == $null) set %away.reason No reason      else set %away.reason $did(8)      maway2 r  ; don’t delete the ‘r’!!    }    else {      if ($did(8) == $null) set %away.reason No reason      else set %away.reason $did(8)      predefaway    }  }  ; Back now  if ($did(4).state == 1 && %away.status == on) {    if (did(6).state == 1) maway2    else maway  } } on 1:dialog:AwaySysDialog:sclick:11: {  did -b AwaySysDialog 12,13 }
on 1:dialog:AwaySysDialog:sclick:10: { Â did -e AwaySysDialog 12,13 }
on 1:dialog:AwaySysDialog:sclick:26: { Â did -b AwaySysDialog 27 }
on 1:dialog:AwaySysDialog:sclick:25: {  did -e AwaySysDialog 27 } on 1:dialog:AwaySysDialog:sclick:17: {  window -ak @PagerLog -0 -0  if ( $exists(logs\pager.log)) { loadbuf @PagerLog logs\pager.log }  else {    write logs\pager.log $away.logo    loadbuf @PagerLog logs\pager.log  } } alias ClearPagerLog {  if ( $$?!=”Loglar Silinsinmi?” == $true ) { write -c logs\pager.log | write logs\pager.log $away.logo | echo -a CTCP pager log cleared. } } on 1:dialog:AwaySysDialog:sclick:18: .timer 1 0 ClearPagerLog on 1:dialog:AwaySysDialog:sclick:22: {  window -ak @MSGLog -0 -0  if ( $exists(logs\msg.log)) { loadbuf @MSGLog logs\msg.log }  else {    write logs\msg.log $away.logo    loadbuf @MSGLog logs\msg.log  } } alias ClearMsgLog {  if ( $$?!=”Loglar Silinsinmi?” == $true ) { write -c logs\msg.log | write logs\msg.log $away.logo | echo -a MSG Log cleared. } | else halt } on 1:dialog:AwaySysDialog:sclick:23: .timer 1 0 ClearMsgLog alias SetTime {  set %auto.away.etp $$?=”Enter number of seconds:”  if (%auto.away.etp isnum ) && ( %auto.away.etp > 0 ) set %auto.away.secs %auto.away.etp | Echo -a Auto away set to %auto.away.etp seconds. | .unset %auto.away.etp | aacheck } on 1:dialog:AwaySysDialog:sclick:27: .timer 1 0 SetTime alias SetPagerSound {  set %away.pager.wav on  if ( $$?!=”Would you like to use a WAV file for the pager sound?” == $true ) set %away.pager.sound $dir[="Choose WAV file to play when Pager comes"] *.wav  else { set %away.pager.sound empty | set %away.pager.wav off } } on 1:dialog:AwaySysDialog:sclick:19: .timer 1 0 SetPagerSound on 1:dialog:AwaySysDialog:sclick:37: .about
alias a.cp {  if (%away.pager == on) && (%away.log == on) return +pl  elseif (%away.pager == on) && (%away.log == off) return +p  elseif (%away.pager == off) && (%away.log == off) return -pl  elseif (%away.pager == off) && (%away.log == on) return +l }