IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajı başka Sayfada göster

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 24 Eylül 2009 17:26
Cevap: away addonu menu seklinde
 
Alıntı:
neverbackdown Nickli Üyeden Alıntı (Mesaj 809681)
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..

Peki Menu Seklinde Olmuyor Mu Bu acaba?

DiscO 24 Eylül 2009 18:42
Cevap: away addonu menu seklinde
 
menu menubar,channel,status {
«» Away Sistemi
.&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
}
}

Menü ŞekLinde İstiyorsan Kod bu ŞekiLdedir.

neobre 24 Eylül 2009 18:48
Cevap: away addonu menu seklinde
 
Alıntı:
DiscO Nickli Üyeden Alıntı (Mesaj 811982)
menu menubar,channel,status {
«» Away Sistemi
.&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
}
}

Menü ŞekLinde İstiyorsan Kod bu ŞekiLdedir.
Disco Pasam En Son VeriLen Addon Menu Seklınde Olmaz Mı ?;

neobre 24 Eylül 2009 18:51
Cevap: away addonu menu seklinde
 
Alıntı:
neverbackdown Nickli Üyeden Alıntı (Mesaj 809681)
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..
Disco Bu Kodun Menu Seklı Olması Gerekir Ama Ben Bır Turlu bulamadım : (

neobre 25 Eylül 2009 18:53
Cevap: away addonu menu seklinde
 
Arkadaslar Ben Bunu Menu Seklınde Istıyorum bılen varsa yaparsa sevınırım

CesuryureK 25 Eylül 2009 19:07
Cevap: away addonu menu seklinde
 
menu derken neyi kastediyorsun anlamadım gitti verdiğin kod zaten dialog şeklinde?
+
bu bölüm "Hazır Kodlar" bölümü yani sen buraya bir sorununu dile getiriyorsun bu gibi sorunluk durumlar için "mirc scripting SORUNLARI" bölümünde açacaksın
bu bölüm ne için peki yarın öbürgün bir kod yazarsın ve paylaşıma vermek istediğinde bu bölümde yayımlarsın.

ayrıca bu bölümde SORUN olup hazır kodla alakası olmayan konu açıyorsun
sildiğimde de gelip profilime hakaret mesajı ediyorsun
sonra ben veya benim gibilerin sana yardım etmesini bekliyorsun.
bu kaçıncı konu silmem senin?
bu bölümde bir daha konu açarsan hiç düşünmeden silecem haberin olsun.

neobre 25 Eylül 2009 19:51
Cevap: away addonu menu seklinde
 
Alıntı:
CesuryureK Nickli Üyeden Alıntı (Mesaj 813217)
menu derken neyi kastediyorsun anlamadım gitti verdiğin kod zaten dialog şeklinde?
+
bu bölüm "Hazır Kodlar" bölümü yani sen buraya bir sorununu dile getiriyorsun bu gibi sorunluk durumlar için "mirc scripting SORUNLARI" bölümünde açacaksın
bu bölüm ne için peki yarın öbürgün bir kod yazarsın ve paylaşıma vermek istediğinde bu bölümde yayımlarsın.

ayrıca bu bölümde SORUN olup hazır kodla alakası olmayan konu açıyorsun
sildiğimde de gelip profilime hakaret mesajı ediyorsun
sonra ben veya benim gibilerin sana yardım etmesini bekliyorsun.
bu kaçıncı konu silmem senin?
bu bölümde bir daha konu açarsan hiç düşünmeden silecem haberin olsun.
tamam kusura bakma cesuryurek al menu dedıgım bu sekilde.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

CesuryureK 25 Eylül 2009 19:59
Cevap: away addonu menu seklinde
 
menu * {
Away Menüsü:/Dialog -m arkaway arkaway
}

bunu remoteye kaydedersin.

neobre 25 Eylül 2009 20:30
Cevap: away addonu menu seklinde
 
Alıntı:
CesuryureK Nickli Üyeden Alıntı (Mesaj 813249)
menu * {
Away Menüsü:/Dialog -m arkaway arkaway
}

bunu remoteye kaydedersin.
Remoteye sadece bunu mu kayıt edcem ? dıger addon ?

CesuryureK 25 Eylül 2009 20:33
Cevap: away addonu menu seklinde
 
Alıntı:
PoLyE Nickli Üyeden Alıntı (Mesaj 813285)
Remoteye sadece bunu mu kayıt edcem ? dıger addon ?
verdiğin diğer addon zaten remotede olması lazım
ona ek olarak bu verdiğimi eklersen istediğini elde edersin.
ve bu şekilde menu ekleme yapabilirsin.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:05.
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk