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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   seçenek listesi (https://www.ircforumlari.net/mirc-scripting-sorunlari/389000-secenek-listesi.html)

LordAres 05 Nisan 2011 15:49
seçenek listesi
 
merhaba, aşağıdaki kod ile Ask, sohbet, radyo odalarında tüm yazılanları ayrı bir pencerede ( takip adında ) görüyorum. Yapmak istedim

1)bir dialog oluşturup, görmek istedim kanalları seçmek. Yani sadece seçtim kanalları takip pencersinde gostersin.

2) yine sağmouse ekledim bir menu sayesinde takip aç - takip kapat yapmak isityorum.

Nasıl yapabilirim.

şimdiden teşekkrüler.

on *:TEXT:*:#Ask :{
if ($window(@takip) == $null) { window -ne @Takip }
if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}

on *:TEXT:*:#Sohbet :{
if ($window(@takip) == $null) { window -ne @Takip }
if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}

on *:TEXT:*:#Radyo :{
if ($window(@takip) == $null) { window -ne @Takip }
if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}

RegSubex 05 Nisan 2011 16:56
Cevap: seçenek listesi
 
Kod:
alias takip { dialog -m tkp tkp }
dialog tkp {
  title "Takip Kodu"
  size -1 -1 159 116
  option dbu
  button "Takipi Aç", 2, 16 64 37 12
  button "Takipi Kapat", 3, 16 80 37 12
  text "      Kanal ekle", 4, 75 14 52 8
  box "Takip", 5, 7 8 145 97
  button "Çıkış", 6, 79 85 37 12, ok
  icon 7, 15 24 45 33
  button "Kanal Ekle", 1, 70 31 73 19
  button "Kanal listesini yenile", 8, 71 56 71 12
  text "    unset", 9, 89 69 25 8
}

on *:dialog:tkp:sclick:*:{
  if $did == 2 { enable #takip  }
  if $did == 3 { disable #takip }
  if $did == 1 { set %tkp $$?="kanal:" $+ , $+ %tkp }
  if $did == 8 { unset %tkp | set %tkp $$?="kanal:" }
}

menu * {
  Takip
  .Aç:takip
}
#takip on
on *:TEXT:*:%tkp:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip end

icon 7, 15 24 45 33, icon\tkp.ico


şeklinde icon ekleyebılırsın

LordAres 05 Nisan 2011 18:24
Cevap: seçenek listesi
 
RegSuBex arkadaşım kod için teşekkürler. kanallar sabit olduğu için checkbox koydum. seçili kanalları takip et yapabilirmiyim.
Vermiş olduğun kodun şu kısmını nasıl değiştirmeliyim yada ne olmalı

if $did == 1 { set %tkp $$?="kanal:" $+ , $+ %tkp }


diyaloğum şu şekilde

alias takip { dialog -m tkp tkp }
dialog tkp {
title "takipsec"
size -1 -1 103 107
option dbu
box "Kanal Seç", 1, 3 4 95 86
check "Ask", 3, 10 16 29 10, left
check "Sohbet", 2, 10 25 29 10, left
check "Radyo", 4, 10 34 29 10, left
check "Kelime", 5, 10 43 29 10, left
check "İslam", 6, 10 52 29 10, left
check "Test", 7, 10 61 29 10, left
check "Oyun", 8, 53 15 29 10, left
check "Yarışma", 9, 53 24 29 10, left
check "Beyzam", 10, 53 33 29 10, left
check "AskOp", 11, 53 42 29 10, left
check "Founder", 12, 53 51 29 10, left
check "OyunOp", 13, 53 60 29 10, left
button "KapaT", 14, 35 90 37 12,ok flat
button "Takipi Kapat", 15, 53 74 32 10, left
button "Takipi Aç", 16, 10 74 29 10, left


}

RegSubex 05 Nisan 2011 21:00
Cevap: seçenek listesi
 
Kod:
alias takip { dialog -m tkp tkp }
dialog tkp {
  title "takipsec"
  size -1 -1 103 95
  option dbu
  box "Kanal Seç", 1, 3 4 95 86
  check "Ask", 3, 10 16 29 10, left
  check "Sohbet", 2, 10 25 29 10, left
  check "Radyo", 4, 10 34 29 10, left
  check "Kelime", 5, 10 43 29 10, left
  check "İslam", 6, 10 52 29 10, left
  check "Test", 7, 10 61 29 10, left
  check "Oyun", 8, 53 15 29 10, left
  check "Yarışma", 9, 53 24 29 10, left
  check "Beyzam", 10, 53 33 29 10, left
  check "AskOp", 11, 53 42 29 10, left
  check "Founder", 12, 53 51 29 10, left
  check "OyunOp", 13, 53 60 29 10, left
  button "KapaT", 14, 28 75 37 12, ok
}


on *:dialog:tkp:sclick:2: {
  if ($group(#takip).status == on ) { .disable #takip }
  else {  /.enable #takip }
}
on *:dialog:tkp:sclick:4: {
  if ($group(#takip1).status == on ) { .disable #takip1 }
  else {  /.enable #takip1 }
}
on *:dialog:tkp:sclick:5: {
  if ($group(#takip2).status == on ) { .disable #takip2 }
  else {  /.enable #takip2  }
}
on *:dialog:tkp:sclick:6: {
  if ($group(#takip3).status == on ) { .disable #takip3 }
  else {  /.enable #takip3 }
}
on *:dialog:tkp:sclick:7: {
  if ($group(#takip4).status == on ) { .disable #takip4 }
  else {  /.enable #takip4 }
}
on *:dialog:tkp:sclick:8: {
  if ($group(#takip5).status == on ) { .disable #takip5 }
  else {  /.enable #takip5 }
}
on *:dialog:tkp:sclick:9: {
  if ($group(#takip6).status == on ) { .disable #takip6 }
  else {  /.enable #takip6 }
}
on *:dialog:tkp:sclick:10: {
  if ($group(#takip7).status == on ) { .disable #takip7 }
  else {  /.enable #takip7  }
}
on *:dialog:tkp:sclick:11: {
  if ($group(#takip8).status == on ) { .disable #takip8 }
  else {  /.enable #takip8 }
}
on *:dialog:tkp:sclick:12: {
  if ($group(#takip9).status == on ) { .disable #takip9 }
  else {  /.enable #takip9 }
}
on *:dialog:tkp:sclick:13: {
  if ($group(#takip10).status == on ) { .disable #takip10 }
  else {  /.enable #takip10 }
}
on *:dialog:tkp:sclick:3: {
  if ($group(#takip11).status == on ) { .disable #takip11 }
  else {  /.enable #takip11 }
}
on *:dialog:tkp:init:*: {
  if ($group(#takip).status == on ) did -c tkp 2
  if ($group(#takip11).status == on ) did -c tkp 3
  if ($group(#takip1).status == on ) did -c tkp 4
  if ($group(#takip2).status == on ) did -c tkp 5
  if ($group(#takip3).status == on ) did -c tkp 6
  if ($group(#takip4).status == on ) did -c tkp 7
  if ($group(#takip5).status == on ) did -c tkp 8
  if ($group(#takip6).status == on ) did -c tkp 9
  if ($group(#takip7).status == on ) did -c tkp 10
  if ($group(#takip8).status == on ) did -c tkp 11
  if ($group(#takip9).status == on ) did -c tkp 12
  if ($group(#takip10).status == on ) did -c tkp 13
}
menu * {
  Takip
  .Aç:takip
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip off
on *:TEXT:*:#sohbet:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip1 off
on *:TEXT:*:#Radyo:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip1 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip2 off
on *:TEXT:*:#kelime:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip2 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip3 off
on *:TEXT:*:#İslam:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip3 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip4 on
on *:TEXT:*:#Test:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip4 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip5 on
on *:TEXT:*:#Oyun:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip5 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip6 off
on *:TEXT:*:#Yarışma:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip6 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip7 off
on *:TEXT:*:#Beyzam:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip7 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip8 off
on *:TEXT:*:#AskOp:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip8 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip9 off
on *:TEXT:*:#Founder:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip9 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip10 on
on *:TEXT:*:#OyunOp:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip10 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#takip11 on
on *:TEXT:*:#Ask:{
  if ($window(@takip) == $null) { window -ne @Takip }
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip11 end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
buyur hata cıkarsa yazarsın menu cok olunca karısıklık olabılıyor

LordAres 06 Nisan 2011 18:46
Cevap: seçenek listesi
 
dostum çok teşekkürler bu kadar güzel mi çalışır harika yaa ellerine sağlık.
kodu inceleyip nasıl yaptığını anlamaya çalışıcam.


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

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