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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Eylül 2009, 20:16   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
away addonu menu seklinde




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 17 Eylül 2009, 20:59   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: away addonu menu seklinde




PoLyE, Scriptini Burdan Tamamlıcan Sanırım..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
}


Konu ircop tarafından (17 Eylül 2009 Saat 21:06 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 17 Eylül 2009, 21:02   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: away addonu menu seklinde




ircop Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PoLyE, Scriptini Burdan Tamamlıcan Sanırım..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 17 Eylül 2009, 21:08   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: away addonu menu seklinde




Kodu Ekledim.. PoLyE.. Senin Verdiğinden Daha İyisi Emin Ol..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 17 Eylül 2009, 21:15   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: away addonu menu seklinde




ircop Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kodu Ekledim.. PoLyE.. Senin Verdiğinden Daha İyisi Emin Ol..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

 
Alıntı ile Cevapla

Alt 18 Eylül 2009, 02:52   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Away Addonu Düzenlemesi Hk..




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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..

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.

Konu Lucifer tarafından (18 Eylül 2009 Saat 02:53 ) değiştirilmiştir. Sebep: Düzenleme..
 
Alıntı ile Cevapla

Alt 18 Eylül 2009, 11:59   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: away addonu menu seklinde




ircop Sayın Coder
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

 
Alıntı ile Cevapla

Alt 18 Eylül 2009, 15:50   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: away addonu menu seklinde




eXLove Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ircop Sayın Coder
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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..

 
Alıntı ile Cevapla

Alt 18 Eylül 2009, 18:56   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Away Addonu Düzenlemesi Hk..




neverbackdown Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 22 Eylül 2009, 01:24   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: away addonu menu seklinde




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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..

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 
Alıntı ile Cevapla

Cevapla

Etiketler
addonu, menu, mirc, mirc download, mirc indir, seklinde


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
elinde baloncuk addonu ve baglantı menusu addonu olan varmı? Leo mIRC Scripting Sorunları 12 26 Şubat 2010 10:19
nick in ozele girince liste seklinde yazi cikmasi Sanquin mIRC Scripting Sorunları 5 30 Ağustos 2009 18:00
Kanal ve User korumaları ( Dialog seklinde ) RNA mIRC Scripting Hazır Kodlar 15 28 Mart 2007 16:23