IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   away addonu menu seklinde (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/258178-away-addonu-menu-seklinde.html)

neobre 17 Eylül 2009 20:16

away addonu menu seklinde
 
Kod:

alias awaymenu {  dialog -m arkaway arkaway }
dialog arkaway {
  title "CooL Love Esra Away / Meşgul Menüsü"
  size -1 -1 217 98
  option dbu
  text "Away Sebebi : ", 1, 7 12 39 8
  edit "", 2, 47 11 161 10
  button "AWAY OL", 3, 141 27 57 9, flat
  check "Nickin Sonuna Ekle :", 4, 7 27 57 8
  edit "", 5, 68 26 64 10
  box "Away Menü Ayarları :", 6, 3 1 210 40
  button "Dışarıdayım", 8, 7 61 41 12, flat
  button "Yemekteyim", 9, 60 61 41 12, flat
  button "Oyundayım", 10, 113 61 41 12, flat
  button "Uyuyorum", 11, 166 61 41 12, flat
  box "Hazır Away Mesajları :", 12, 3 42 210 35
  text "Seçtiğiniz Away Sebebinin Üstüne  Tıkla***** Otomatik Olarak Away Olabilirsiniz.", 13, 12 50 196 8, disable
  button "AWAYDAN DÖN", 7, 17 82 87 12
  button "PENCEREYİ KAPAT", 14, 111 82 87 12, ok
}
on *:dialog:arkaway:init:0: {
  .timer -m 1 10 /did -f arkaway 2
  if (%addnick != $null) { did -c arkaway 4 | did -a arkaway 5 %addnick | did -e arkaway 5 }
  if (%awayres != $null) { did -a arkaway 2 %awayres }
  if (%addnick == $null) { did -u arkaway 4 | did -b arkaway 5
  }
}
on *:dialog:arkaway:sclick:3: {
  set %addnick $did(5)
  set %awayres $did(2)
  if ($did(4).state == 1) {
    if ($away == $true) halt
    set %backnick $me
    /ame Şuanda Awayım. Sebep : ( $+ $did(2) $+ )  [-Arkadasca Script v6-]  |  echo -a %logo $+ 2 Şuan awaysınız. 
    /away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
    /nick $me $+ $did(5)
  }
  if ($did(4).state == 0) {
    if ($away == $true) halt
    /ame Şuanda Awayım. Sebep : ( $did(2) )  [-CooL Love Esra-]  | echo -a %logo $+ 2  Şuan awaysınız. 
    /away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
  }
}
 
on *:dialog:arkaway:sclick:4: {
  if ($did(4).state == 0) { did -r arkaway 5 | did -b arkaway 5 | unset %addnick }
  if ($did(4).state == 1) {
    if (%addnick == $null) {
      set %addnick _aWay
      did -r arkaway 5
      did -a arkaway 5 %addnick
      did -e arkaway 5
    }
    did -e arkaway 5
  }
}
on *:dialog:arkaway:sclick:8: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Dışarıdayım!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:9: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Yemekteyim!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:10: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Oyundayım!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:11: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Uyuyorum!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:7: { away  | /amsg Awaydım Geri Döndüm! | echo %logo 2Away Modundan Çıktınız.  }



arkadaslar bu kodu menu seklınde duzenleyebılır mısınız ben yapamıyorum bır turlu.tesekkurler sımdıden. away menusune birde Tv İzliyorum. Pc Başında Değilim. Hemen Dönücem. Telefondayım butonlarını eklersenız sevınırım.

ircop 17 Eylül 2009 20:59

Cevap: away addonu menu seklinde
 
PoLyE, Scriptini Burdan Tamamlıcan Sanırım.. :) Forumdaki İlk Mesajlarım Sana Yardım Şeklinde Oluyor..

Buyur Burdan Yak..



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
}

neobre 17 Eylül 2009 21:02

Cevap: away addonu menu seklinde
 
Alıntı:

ircop Nickli Üyeden Alıntı (Mesaj 806137)
PoLyE, Scriptini Burdan Tamamlıcan Sanırım.. :) Forumdaki İlk Mesajlarım Sana Yardım Şeklinde Oluyor..

yok kardesim ya saolasın yardımcı oldugun ıcın ama menu seklınde ekleyemıyorum bır turlu benım script hep menu seklınde olsun ıstıyorum sadece bırkac ozellık eklıom buradan degıl yani:)

ircop 17 Eylül 2009 21:08

Cevap: away addonu menu seklinde
 
Kodu Ekledim.. PoLyE.. Senin Verdiğinden Daha İyisi Emin Ol.. ;)

neobre 17 Eylül 2009 21:15

Cevap: away addonu menu seklinde
 
Alıntı:

ircop Nickli Üyeden Alıntı (Mesaj 806144)
Kodu Ekledim.. PoLyE.. Senin Verdiğinden Daha İyisi Emin Ol.. ;)

kardes bunu bılıyorum saolasın yınede sadece benım dedıgımı ıstedıgım sekılde duzenlyebılırsen cok memnun kalırım.

Lucifer 18 Eylül 2009 02:52

Cevap: Away Addonu Düzenlemesi Hk..
 
Kod:


alias awaymenu {  dialog -m arkaway arkaway }
dialog arkaway {
  title "Away / Meşgul Menüsü"
  size -1 -1 217 98
  option dbu
  text "Away Sebebi : ", 1, 7 12 39 8
  edit "", 2, 47 11 161 10
  button "AWAY OL", 3, 141 27 57 9, flat
  check "Nickin Sonuna Ekle :", 4, 7 27 57 8
  edit "", 5, 68 26 64 10
  box "Away Menü Ayarları :", 6, 3 1 210 40
  button "TV İzliyorum", 8, 7 61 49 12, flat
  button "PC Başında Değilim", 9, 61 61 49 12, flat
  button "Hemen Döneceğim", 10, 113 61 49 12, flat
  button "Telefondayım", 11, 166 61 41 12, flat
  box "Hazır Away Mesajları :", 12, 3 42 210 35
  text "Seçtiğiniz Away Sebebinin Üstüne  Tıkla***** Otomatik Olarak Away Olabilirsiniz.", 13, 12 50 196 8, disable
  button "AWAYDAN DÖN", 7, 17 82 87 12
  button "PENCEREYİ KAPAT", 14, 111 82 87 12, ok
}
on *:dialog:arkaway:init:0: {
  .timer -m 1 10 /did -f arkaway 2
  if (%addnick != $null) { did -c arkaway 4 | did -a arkaway 5 %addnick | did -e arkaway 5 }
  if (%awayres != $null) { did -a arkaway 2 %awayres }
  if (%addnick == $null) { did -u arkaway 4 | did -b arkaway 5
  }
}
on *:dialog:arkaway:sclick:3: {
  set %addnick $did(5)
  set %awayres $did(2)
  if ($did(4).state == 1) {
    if ($away == $true) halt
    set %backnick $me
    /ame Şuanda Awayım. Sebep : ( $+ $did(2) $+ )  [-Arkadasca Script v6-]  |  echo -a %logo $+ 2 Şuan awaysınız. 
    /away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
    /nick $me $+ $did(5)
  }
  if ($did(4).state == 0) {
    if ($away == $true) halt
    /ame Şuanda Awayım. Sebep : ( $did(2) )  [-CooL Love Esra-]  | echo -a %logo $+ 2  Şuan awaysınız. 
    /away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
  }
}
on *:dialog:arkaway:sclick:4: {
  if ($did(4).state == 0) { did -r arkaway 5 | did -b arkaway 5 | unset %addnick }
  if ($did(4).state == 1) {
    if (%addnick == $null) {
      set %addnick _aWay
      did -r arkaway 5
      did -a arkaway 5 %addnick
      did -e arkaway 5
    }
    did -e arkaway 5
  }
}
on *:dialog:arkaway:sclick:8: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Tv İzliyorum!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:9: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 PC Başında Değilim!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:10: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Hemen Döneceğim!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:11: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Telefondayım!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:7: { away  | /amsg Awaydım Geri Döndüm! | echo %logo 2Away Modundan Çıktınız.  }

Bu şekilde, istediğin gibi olacaktır.. iyi forumlar..

eXLove 18 Eylül 2009 11:59

Cevap: away addonu menu seklinde
 
ircop Sayın Coder :) Rica Etsem Herkes Adına ; Code Eklemelerini Yukardaki # Butonuna Tıklayıp Eklersen Code'ler Daha Sağlıklı Görünür Ve Uzuuuuunca Bir Sayfa Kaplamaz Bunun Gibi , Görüntü Kirliliği Olmaz.

ircop 18 Eylül 2009 15:50

Cevap: away addonu menu seklinde
 
Alıntı:

eXLove Nickli Üyeden Alıntı (Mesaj 806786)
ircop Sayın Coder :) Rica Etsem Herkes Adına ; Code Eklemelerini Yukardaki # Butonuna Tıklayıp Eklersen Code'ler Daha Sağlıklı Görünür Ve Uzuuuuunca Bir Sayfa Kaplamaz Bunun Gibi , Görüntü Kirliliği Olmaz.

DeğerLi Kardeşim eXLove Önerin İçin Tşk Ediyorum. Fakat Bilmediğimden Değil Kullanmak İstemediğimdendir O Şekildeki Paylaşımım. Lakin Olması Gereken O ise Tabiki..

neobre 18 Eylül 2009 18:56

Cevap: Away Addonu Düzenlemesi Hk..
 
Alıntı:

neverbackdown Nickli Üyeden Alıntı (Mesaj 806586)
Kod:


alias awaymenu {  dialog -m arkaway arkaway }
dialog arkaway {
  title "Away / Meşgul Menüsü"
  size -1 -1 217 98
  option dbu
  text "Away Sebebi : ", 1, 7 12 39 8
  edit "", 2, 47 11 161 10
  button "AWAY OL", 3, 141 27 57 9, flat
  check "Nickin Sonuna Ekle :", 4, 7 27 57 8
  edit "", 5, 68 26 64 10
  box "Away Menü Ayarları :", 6, 3 1 210 40
  button "TV İzliyorum", 8, 7 61 49 12, flat
  button "PC Başında Değilim", 9, 61 61 49 12, flat
  button "Hemen Döneceğim", 10, 113 61 49 12, flat
  button "Telefondayım", 11, 166 61 41 12, flat
  box "Hazır Away Mesajları :", 12, 3 42 210 35
  text "Seçtiğiniz Away Sebebinin Üstüne  Tıkla***** Otomatik Olarak Away Olabilirsiniz.", 13, 12 50 196 8, disable
  button "AWAYDAN DÖN", 7, 17 82 87 12
  button "PENCEREYİ KAPAT", 14, 111 82 87 12, ok
}
on *:dialog:arkaway:init:0: {
  .timer -m 1 10 /did -f arkaway 2
  if (%addnick != $null) { did -c arkaway 4 | did -a arkaway 5 %addnick | did -e arkaway 5 }
  if (%awayres != $null) { did -a arkaway 2 %awayres }
  if (%addnick == $null) { did -u arkaway 4 | did -b arkaway 5
  }
}
on *:dialog:arkaway:sclick:3: {
  set %addnick $did(5)
  set %awayres $did(2)
  if ($did(4).state == 1) {
    if ($away == $true) halt
    set %backnick $me
    /ame Şuanda Awayım. Sebep : ( $+ $did(2) $+ )  [-Arkadasca Script v6-]  |  echo -a %logo $+ 2 Şuan awaysınız. 
    /away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
    /nick $me $+ $did(5)
  }
  if ($did(4).state == 0) {
    if ($away == $true) halt
    /ame Şuanda Awayım. Sebep : ( $did(2) )  [-CooL Love Esra-]  | echo -a %logo $+ 2  Şuan awaysınız. 
    /away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
  }
}
on *:dialog:arkaway:sclick:4: {
  if ($did(4).state == 0) { did -r arkaway 5 | did -b arkaway 5 | unset %addnick }
  if ($did(4).state == 1) {
    if (%addnick == $null) {
      set %addnick _aWay
      did -r arkaway 5
      did -a arkaway 5 %addnick
      did -e arkaway 5
    }
    did -e arkaway 5
  }
}
on *:dialog:arkaway:sclick:8: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Tv İzliyorum!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:9: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 PC Başında Değilim!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:10: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Hemen Döneceğim!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:11: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Telefondayım!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:7: { away  | /amsg Awaydım Geri Döndüm! | echo %logo 2Away Modundan Çıktınız.  }

Bu şekilde, istediğin gibi olacaktır.. iyi forumlar..

kardesim eyv saolasın ama ben anlatamadım sanırım yınede emegıne saglık tesekkur ederm ama benım verdııgm kodun ustune sen bu dedıgım away sekıllerını eklıceksın sadeece :(

Lucifer 22 Eylül 2009 01:24

Cevap: away addonu menu seklinde
 
Kod:


alias awaymenu {  dialog -m arkaway arkaway }
dialog arkaway {
  title "Away / Meşgul Menüsü"
  size -1 -1 227 115
  option dbu
  text "Away Sebebi : ", 1, 7 12 80 8
  edit "", 2, 47 11 131 10
  button "AWAY OL", 3, 141 27 55 9, flat
  check "Nickin Sonuna Ekle :", 4, 7 27 57 8
  edit "", 5, 68 26 64 10
  box "Away Menü Ayarları :", 6, 3 1 220 40
  button "Dışarıdayım", 8, 7 61 41 12, flat
  button "TV İzliyorum", 15, 7 75 41 12, flat
  button "PC Başında Değilim", 16, 60 75 50 12, flat
  button "Hemen Döneceğim", 17, 113 75 50 12, flat
  button "Telefondayım", 18, 166 75 41 12, flat
  button "Yemekteyim", 9, 60 61 50 12, flat
  button "Oyundayım", 10, 113 61 50 12, flat
  button "Uyuyorum", 11, 166 61 41 12, flat
  box "Hazır Away Mesajları :", 12, 3 42 220 70
  text "Seçtiğiniz Away Sebebinin Üstüne  Tıkla***** Otomatik Olarak Away Olabilirsiniz.", 13, 12 50 196 8, disable
  button "AWAYDAN DÖN", 7, 17 92 87 12
  button "PENCEREYİ KAPAT", 14, 111 92 87 12, ok
}
on *:dialog:arkaway:init:0: {
  .timer -m 1 10 /did -f arkaway 2
  if (%addnick != $null) { did -c arkaway 4 | did -a arkaway 5 %addnick | did -e arkaway 5 }
  if (%awayres != $null) { did -a arkaway 2 %awayres }
  if (%addnick == $null) { did -u arkaway 4 | did -b arkaway 5
  }
}
on *:dialog:arkaway:sclick:3: {
  set %addnick $did(5)
  set %awayres $did(2)
  if ($did(4).state == 1) {
    if ($away == $true) halt
    set %backnick $me
    /ame Şuanda Awayım. Sebep : ( $+ $did(2) $+ )   |  echo -a %logo $+ 2 Şuan awaysınız. 
    /away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
    /nick $me $+ $did(5)
  }
  if ($did(4).state == 0) {
    if ($away == $true) halt
    /ame Şuanda Awayım. Sebep : ( $did(2) )  [Away Meşgul Sistemi]  | echo -a %logo $+ 2  Şuan awaysınız. 
    /away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
  }
}
on *:dialog:arkaway:sclick:4: {
  if ($did(4).state == 0) { did -r arkaway 5 | did -b arkaway 5 | unset %addnick }
  if ($did(4).state == 1) {
    if (%addnick == $null) {
      set %addnick _aWay
      did -r arkaway 5
      did -a arkaway 5 %addnick
      did -e arkaway 5
    }
    did -e arkaway 5
  }
}
on *:dialog:arkaway:sclick:8: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Dışarıdayım!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:9: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Yemekteyim!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:10: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Oyundayım!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:11: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Uyuyorum!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:15: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 TV İzliyorum!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:16: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 PC Başında Değilim!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:17: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Hemen Döneceğim!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:18: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Telefondayım!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:7: { away  | /amsg Awaydım Geri Döndüm! | echo %logo 2Away Modundan Çıktınız.  }


Bu şekilde, denersen olacaktır.. iyi forumlar..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:17.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net