help dosyası yardım.! - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

LoRDGuaRD · 05 Aralık 2010, 18:09

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


alias PLusyardim {
  if $1 {
    set %PLusyardim $1
  }
  _dialog PLusyardim
}

dialog PLusyardim {
  title "PLus - HeLper Menüsü"
  size -1 -1 438 301
  option pixels
  icon sys2\cpanel\love.ico
  button "Menüyü KAPAT", 3, 2 250 156 45, cancel
  list 1, 3 9 156 214, size extsel
  tab "Tab 1", 5, -50 -50 600 400
  edit "", 2, 161 9 275 214, tab 5 read multi return autovs vsbar
  combo 4, 3 226 155 85, tab 5 size drop
  edit "", 6, 251 228 100 21, tab 5
  button "Gönder", 7, 360 226 76 24, tab 5
  text "Nick/(#)Kanal:", 8, 174 232 72 16, tab 5
  text "• Bilgi ; Yardım Almak Istediğiniz Konuyu Seçdikten Sonra Nick veya Kanal Kısmına Göndermek Istediğiniz Yeri Yazarak Gönder Butonuna Tıklayınız..", 9, 183 255 252 44, tab 5
  tab "Tab 2", 12
  box "Quit ve Part Mesajları Düzenleme", 13, 171 3 336 282, tab 12
  combo 14, 177 33 239 241, tab 12 size hsbar vsbar
  button "Ekle", 15, 425 32 76 24, tab 12
  button "Çıkar", 16, 425 65 76 24, tab 12
}

on *:dialog:Plusyardim:*:*: {
  if $devent == init {
    mdxinit
    mdx SetControlMDX $dname 1 Treeview fullrowselect singleexpand nohscroll > $views

    mdx SetColor $dname 2 text $rgb(0,0,0)
    mdx SetColor $dname 2 textbg $rgb(0,191,255)
    mdx SetColor $dname 2 background $rgb(0,191,255)

    kalin 1,2 15
    did -i $dname 1 1 setcolor text $rgb(255,255,255)
    did -i $dname 1 1 setcolor line $rgb(0,191,255)
    did -i $dname 1 1 setcolor bkg $rgb(0,191,255)
    didtok $dname 4 44 NickSERV,ChanSERV,MemoSERV,OperSERV,
    did -c $dname 4 1
    did -a $dname 2 Sol Tarafdaki Yardım Konulardan Birini Seçdikden Sonra Göndermek Istediğiniz Nick veya Kanalı Sağ Alt Köşedeki Boşluğa Yazın ve Gönder Tuşuna Basın Mesaj Otomatik Olarak Gönderilecektir.
    if %Plusyardim {
      did -a $dname 6 $ifmatch
    }
    else {
      if $active ischan || $query($active) {
        did -a $dname 6 $ifmatch
      }
    }
    Plusyardim.yukle
    did -f $dname 6
  }
  if $devent == sclick {
    if $did == 1 && slclick select * iswm $did($did,1) {
      set %Plusyardim.y $right($gettok($did($dname,1,$gettok($did($did,1),4-,32)),-1,48),-1)

      if $did(Plusyardim,4).sel == 1 {
        set %Plusyardim.dosya NickSERV
      }
      if $did(Plusyardim,4).sel == 2 {
        set %Plusyardim.dosya ChanSERV
      }
      if $did(Plusyardim,4).sel == 3 {
        set %Plusyardim.dosya MemoSERV
      }
      if $did(Plusyardim,4).sel == 4 {
        set %Plusyardim.dosya OperSERV
      }
      if $exists($shortfn($+(sys2\Yardım\,%Plusyardim.dosya,\,%Plusyardim.y,.txt))) {
        .loadbuf 0 -oipr $dname 2 $shortfn($+(sys2\Yardım\,%Plusyardim.dosya,\,%Plusyardim.y,.txt))
      }
    }
    if $did == 4 {
      Plusyardim.yukle
    }
    if $did == 7 {
      if %Plusyardim.dosya && %Plusyardim.y {
        if $did($dname,6) {
          var %im $did($dname,6)
          if %im !ischan && !$query(%im) {
            query %im
          }
          scid $activecid play %im $shortfn($+(Sys2\Yardım\,%Plusyardim.dosya,\,%Plusyardim.y,.txt)) 2000
          echo %Plusyardim.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
        }
        else {
          var %im $$?"Gönderilecek Nick veya #kanal Ismini Yazınız:"
          if %im {
            did -a $dname 6 %im
            if %im !ischan && !$query(%im) {
              query %im
            }
            scid $activecid play %im $shortfn($+(Sys2\Yardım\,%Plusyardim.dosya,\,%Plusyardim.y,.txt)) 2000
            echo %Plusyardim.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
          }
        }
      }
      else {
        echo Göndermek için herhangi bir Yardım Konusu Seçmediniz..
      }
    }
  }
  if $devent == close {
    unset %Plusyardim*
  }
}

alias Plusyardim.yukle {
  did -r Plusyardim 1,2
  did -a Plusyardim 2 Sol Tarafdaki Yardım Konulardan Birini Seçdikden Sonra Göndermek Istediğiniz Nick veya Kanalı Sağ Alt Köşedeki Boşluğa Yazın ve Gönder Tuşuna Basın Mesaj Otomatik Olarak Gönderilecektir.
  if $did(Plusyardim,4).sel == 1 {
    set %Plusyardim.dosya NickSERV
  }
  if $did(Plusyardim,4).sel == 2 {
    set %Plusyardim.dosya ChanSERV
  }
  if $did(Plusyardim,4).sel == 3 {
    set %Plusyardim.dosya MemoSERV
  }
  if $did(Plusyardim,4).sel == 4 {
    set %Plusyardim.dosya OperSERV
  }
  var %i 1
  while %i <= $findfile($+(Sys2\Yardım\,%Plusyardim.dosya),*.txt,0) {
    did -a Plusyardim 1 $left($nopath($findfile($+(Sys2\Yardım\,%Plusyardim.dosya),*.txt,%i)),-4)
    inc %i 1
  }
}

elimde böyle bir helper addonu var fakat bu toolbar ın uzerındekı menude gorunuyor bunu nasıl popups a alabılırım kanalda sag tıklayıp addonu acabılmek ıstıyorum /Plusyardim diye açamıyorum. teşekkürler

BARBOROS · 05 Aralık 2010, 18:16

dialog -m plusyardım plusyardım
şeklinde deneyin açılırsa eğer
Popuslara
Helpmenü :/dialog -m plusyardım plusyardım
şeklinde ekleyin

LoRDGuaRD · 05 Aralık 2010, 18:35

BARBOROS Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

dialog -m plusyardım plusyardım
şeklinde deneyin açılırsa eğer
Popuslara
Helpmenü :/dialog -m plusyardım plusyardım
şeklinde ekleyin

o şekilde denedim zaten kardeşim ama olmadı.

uFuK · 05 Aralık 2010, 19:51

Neden olmasın;

menu * {
PlusYardim:dialog -m plusyardim plusyardim
}
remotede herhangi biryere ekle

LoRDGuaRD · 06 Aralık 2010, 00:52

FenomeNs Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Neden olmasın;

menu * {
PlusYardim:dialog -m plusyardim plusyardim
}
remotede herhangi biryere ekle

abi alakan icin teşekkürler çok başını arıttım da olmuyo ama öyle /plusyardim diyerek acması lazım normalde acmıyor ama ıstersen kodu sen bı eklede dene.

uFuK · 06 Aralık 2010, 01:00

O zaman mIRC'nde Plusyardim adlı başka bir menü vardır. Şöyle dene;

menu * {
PlusYardim2:dialog -m plusyardim plusyardim
}

SeRDaR406 · 06 Aralık 2010, 01:10

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias PLusyardim {
  if $1 {
    set %PLusyardim $1
  }
  _dialog PLusyardim
}
alias plsyardim if (!$dialog(plusyardim)) dialog -m plusyardim plusyardim
dialog PLusyardim {
  title "PLus - HeLper Menüsü"
  size -1 -1 438 301
  option pixels
  icon sys2cpanellove.ico
  button "Menüyü KAPAT", 3, 2 250 156 45, cancel
  list 1, 3 9 156 214, size extsel
  tab "Tab 1", 5, -50 -50 600 400
  edit "", 2, 161 9 275 214, tab 5 read multi return autovs vsbar
  combo 4, 3 226 155 85, tab 5 size drop
  edit "", 6, 251 228 100 21, tab 5
  button "Gönder", 7, 360 226 76 24, tab 5
  text "Nick/(#)Kanal:", 8, 174 232 72 16, tab 5
  text "• Bilgi ; Yardım Almak Istediğiniz Konuyu Seçdikten Sonra Nick veya Kanal Kısmına Göndermek Istediğiniz Yeri Yazarak Gönder Butonuna Tıklayınız..", 9, 183 255 252 44, tab 5
  tab "Tab 2", 12
  box "Quit ve Part Mesajları Düzenleme", 13, 171 3 336 282, tab 12
  combo 14, 177 33 239 241, tab 12 size hsbar vsbar
  button "Ekle", 15, 425 32 76 24, tab 12
  button "Çıkar", 16, 425 65 76 24, tab 12
}

on *:dialog:Plusyardim:*:*: {
  if $devent == init {
    mdxinit
    mdx SetControlMDX $dname 1 Treeview fullrowselect singleexpand nohscroll > $views

    mdx SetColor $dname 2 text $rgb(0,0,0)
    mdx SetColor $dname 2 textbg $rgb(0,191,255)
    mdx SetColor $dname 2 background $rgb(0,191,255)

    kalin 1,2 15
    did -i $dname 1 1 setcolor text $rgb(255,255,255)
    did -i $dname 1 1 setcolor line $rgb(0,191,255)
    did -i $dname 1 1 setcolor bkg $rgb(0,191,255)
    didtok $dname 4 44 NickSERV,ChanSERV,MemoSERV,OperSERV,
    did -c $dname 4 1
    did -a $dname 2 Sol Tarafdaki Yardım Konulardan Birini Seçdikden Sonra Göndermek Istediğiniz Nick veya Kanalı Sağ Alt Köşedeki Boşluğa Yazın ve Gönder Tuşuna Basın Mesaj Otomatik Olarak Gönderilecektir.
    if %Plusyardim {
      did -a $dname 6 $ifmatch
    }
    else {
      if $active ischan || $query($active) {
        did -a $dname 6 $ifmatch
      }
    }
    Plusyardim.yukle
    did -f $dname 6
  }
  if $devent == sclick {
    if $did == 1 && slclick select * iswm $did($did,1) {
      set %Plusyardim.y $right($gettok($did($dname,1,$gettok($did($did,1),4-,32)),-1,48),-1)

      if $did(Plusyardim,4).sel == 1 {
        set %Plusyardim.dosya NickSERV
      }
      if $did(Plusyardim,4).sel == 2 {
        set %Plusyardim.dosya ChanSERV
      }
      if $did(Plusyardim,4).sel == 3 {
        set %Plusyardim.dosya MemoSERV
      }
      if $did(Plusyardim,4).sel == 4 {
        set %Plusyardim.dosya OperSERV
      }
      if $exists($shortfn($+(sys2Yardım,%Plusyardim.dosya,,%Plusyardim.y,.txt))) {
        .loadbuf 0 -oipr $dname 2 $shortfn($+(sys2Yardım,%Plusyardim.dosya,,%Plusyardim.y,.txt))
      }
    }
    if $did == 4 {
      Plusyardim.yukle
    }
    if $did == 7 {
      if %Plusyardim.dosya && %Plusyardim.y {
        if $did($dname,6) {
          var %im $did($dname,6)
          if %im !ischan && !$query(%im) {
            query %im
          }
          scid $activecid play %im $shortfn($+(Sys2Yardım,%Plusyardim.dosya,,%Plusyardim.y,.txt)) 2000
          echo %Plusyardim.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
        }
        else {
          var %im $$?"Gönderilecek Nick veya #kanal Ismini Yazınız:"
          if %im {
            did -a $dname 6 %im
            if %im !ischan && !$query(%im) {
              query %im
            }
            scid $activecid play %im $shortfn($+(Sys2Yardım,%Plusyardim.dosya,,%Plusyardim.y,.txt)) 2000
            echo %Plusyardim.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
          }
        }
      }
      else {
        echo Göndermek için herhangi bir Yardım Konusu Seçmediniz..
      }
    }
  }
  if $devent == close {
    unset %Plusyardim*
  }
}

alias Plusyardim.yukle {
  did -r Plusyardim 1,2
  did -a Plusyardim 2 Sol Tarafdaki Yardım Konulardan Birini Seçdikden Sonra Göndermek Istediğiniz Nick veya Kanalı Sağ Alt Köşedeki Boşluğa Yazın ve Gönder Tuşuna Basın Mesaj Otomatik Olarak Gönderilecektir.
  if $did(Plusyardim,4).sel == 1 {
    set %Plusyardim.dosya NickSERV
  }
  if $did(Plusyardim,4).sel == 2 {
    set %Plusyardim.dosya ChanSERV
  }
  if $did(Plusyardim,4).sel == 3 {
    set %Plusyardim.dosya MemoSERV
  }
  if $did(Plusyardim,4).sel == 4 {
    set %Plusyardim.dosya OperSERV
  }
  var %i 1
  while %i <= $findfile($+(Sys2Yardım,%Plusyardim.dosya),*.txt,0) {
    did -a Plusyardim 1 $left($nopath($findfile($+(Sys2Yardım,%Plusyardim.dosya),*.txt,%i)),-4)
    inc %i 1
  }
} 
menu channel {
  Plus Yardım: plsyardim 
}

Bunu denedikten sonra yine olmazsa mIRC Status penceresine gözatarsan ne tür

bir hatayla karşılaştığını bir sonraki mesajında belirtirsen daha kolay yardımcı olabiliriz.

LoRDGuaRD · 06 Aralık 2010, 01:12

yine olmadı.
abı helper.mrc diye bir dosya var onun ıcınde de yukarıda verdıgım kodlar yazılı birde yardım dosyası var onun ıcınde de komutların karsılıgı var helper yardım addonu yanı dedıgın sekılde de olmadı yanı sorunsuz /plusyardim yapdıgımda acılması lazım ama olmuyor sadece mırcın toolbarın da ustunde dosya gorunum araclar (oparetor menusu) pencereler yardım var oradakı oparator menusundekı popupsta cıkıyor ordan helperı secdıgımde addon calısıyor bende bunu kanala sag tıkladıgımda acılan popups a almak ıstıyorum.

serdar abı senın duzenledıgın de yardım dosyalarınıda gormedı addon.

SeRDaR406 · 06 Aralık 2010, 01:29

Komple gönderir misin konu ile ilgili kodları

LoRDGuaRD · 06 Aralık 2010, 01:40

buyur abi addon bu ama bunu ben popups a alamadım resımlerıde var hata statuste hata veren resımde gordugun senın kodu yukledıkten sonra olustu sorunsuz calısıyor fakat ıstegım kodu popups a almak ıstıyorum.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

----------

alias plsyardim if (!$dialog(plusyardim)) dialog -m plusyardim plusyardim
dialog PLusyardim {

gelişme var bende buldum abi bız plusyardim diye acmaya calısıyorduk
/plsyardim yaptıgımda aıldı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

olmadı yinesenin duzenledıgınde dedıgım gıbı /plsyardim addonu acıyor abı ama yardım klasorundekı txt dosyalarını gormuyor:S sevındıydım:S

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
- Yardım Dosyası -	Mesut2626	IRCd	6	06 Nisan 2012 00:52
mIRC Ses Dosyası Yükleme (Acil Yardım)	gkhny	mIRC Scripting Sorunları	2	25 Ağustos 2010 15:07
Regex yardım dosyası	sensiz-seven	mIRC Scripting Programları	1	20 Temmuz 2010 13:20

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.