Dabar yra 2020-09-23, 07:21




Naujos temos kūrimas Atsakyti į temą  [ 13 pranešimai(ų) ] 
mIRC skriptas: /ame ir /amsg blockeris 
Autorius Žinutė
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1556
Forumo litai: 939
Pinigų pervedimas
Miestas: Klaipeda
Standartinė mIRC skriptas: /ame ir /amsg blockeris
Kodas:
alias noame { dialog -m noame noame }
 
menu status,channel,query,menubar {
  AME/AMSG blocker:/noame
}
 
dialog noame {
  title ""
  size -1 -1 124 83
  option dbu
  text "Irasyk kanala:", 1, 8 49 37 8
  list 2, 53 21 65 55, size
  edit "", 3, 7 57 45 10
  button "Prideti", 4, 8 67 21 9
  box "AME/AMSG block'eris", 5, 2 1 119 80
  button "Isimti", 6, 30 67 21 9
  check "Ijungti", 7, 7 9 29 10
  radio "Blokuoti /ame", 10, 7 29 44 10
  radio "Blokuoti /amsg", 11, 7 19 46 10
  radio "Blokuoti abi", 12, 7 39 41 10
  check "Ispeti, jei nenusiunte", 13, 53 9 63 10
}
 
 
on *:dialog:noame:init:*: {
  did -b noame 6
  if (%noame) {
    var %kiek = $numtok(%noame,124)
    while %kiek > 0 {
      did -a noame 2 $gettok(%noame,%kiek,124)
      dec %kiek
    }
  }
  if (!%noamestat) {
    did -b noame 10-13,1-4,6
  }
  else {
    did -c noame 7
    if $group(#noame) == on && $group(#noamsg) == on { did -c noame 12 }
    elseif $group(#noame) == off && $group(#noamsg) == on { did -c noame 11 }
    else { did -c noame 10 }
  }
  if (%warn) {
    did -c noame 13
  }
}
 
on *:dialog:noame:sclick:*: {
  if $did == 4 && ($did(3).text) {
    var %text = $did(3).text
    did -a noame 2 %text
    did -r noame 3
    set %noame %noame $+ $chr(124) $+ %text
  }
  if $did == 7 {
    if (%noamestat) { unset %noamestat | did -b noame 10-13,1-4,6 | .disable #noame | .disable #noamsg | did -u noame 10-12 }
    else { set %noamestat 1 | did -e noame 10-13,1-4,6 | .enable #noame | .enable #noamsg | did -c noame 12 }
  }
  if $did == 2 {
    did -e noame 6
    did -r noame 3
    did -a noame 3 $did(noame,2).seltext
  }
  if $did == 6 {
    set %noame $remtok(%noame,$did(noame,2).seltext,1,124)
    did -d noame 2 $did(noame,2).sel
    did -r noame 3
    did -b noame 6
  }
  if $did == 13 {
    if (%warn) { unset %warn }
    else { set %warn 1 }
  }
  if $did == 11 {
    .enable #noamsg | .disable #noame
  }
  if $did == 10 {
    .disable #noamsg | .enable #noame
  }
  if $did == 12 {
    .enable #noamsg | .enable #noame
  }
}
 
#noame on
alias ame {
  var %visi = $chan(0)
  while %visi > 0 {
    if ($istok(%noame,$chan(%visi),124)) {
      if (%warn) {
        echo -st Kanale $chan(%visi) Zinute nenusiusta
      }
    }
    else {
      describe $chan(%visi) $1-
    }
    dec %visi
  }
}
#noame end
 
#noamsg on
alias amsg {
  var %visi = $chan(0)
  while %visi > 0 {
    if ($istok(%noame,$chan(%visi),124)) {
      echo -st Kanale $chan(%visi) Zinute nenusiusta
    }
    else {
      msg $chan(%visi) $1-
    }
    dec %visi
  }
}
#noamsg end



Paleidimas: /noame

(c) Kastuvas

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


2009-12-11, 19:23
Aprašymas WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2005-10-10, 20:07
Pranešimai: 1297
Forumo litai: 616
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: AME ir AMSG blockeris by Kastuvas
Kastuvai patvarkyk ta while describe į PRIVMSG :D Mažiau lag.

_________________
Niekada nebijok daryti to ko nemoki, atmink: Nojaus arką pastatė mėgėjas, o Titaniką - profesionalai.


2009-12-11, 23:35
Aprašymas WWW
pats kiečiausias
pats kiečiausias
Vartotojo avataras

Užsiregistravo: 2006-11-27, 15:52
Pranešimai: 1780
Forumo litai: 777
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: AME ir AMSG blockeris by Kastuvas
tiesa sakant, tada, kai rašiau, nežinojau, kad PRIVMSG #1,#2,#3 turi mažiau lago, negu rašant atskirai.
bet dabar tingiu taisyt :S


2009-12-12, 01:13
Aprašymas WWW
Vartotojo avataras

Užsiregistravo: 2009-12-05, 17:20
Pranešimai: 44
Miestas: Vilnius
Standartinė Re: AME ir AMSG blockeris by Kastuvas
Dekui, sitas tikrai praves ne vienam scriptas :)


2009-12-12, 08:30
Aprašymas
Dalyvis
Dalyvis
Vartotojo avataras

Užsiregistravo: 2009-12-11, 19:56
Pranešimai: 285
Forumo litai: 304
Pinigų pervedimas
Miestas: Negerija
Standartinė Re: AME ir AMSG blockeris by Kastuvas
OMG , nemaniau, kad toks ilgas gali buti :w00t:

_________________
Gincas internete - tas pats, kas silpnaprociu olimpiada, jei ir laimesi - vistiek tu PYYP.


2009-12-24, 16:44
Aprašymas
Naujokas
Naujokas
Vartotojo avataras

Užsiregistravo: 2009-12-15, 17:46
Pranešimai: 67
Forumo litai: 100
Pinigų pervedimas
Miestas: Kaunas
Standartinė Re: AME ir AMSG blockeris by Kastuvas
Asas - tada tu dar ilgu nemates.. 8) :shock:

_________________
Aitvaras, Quakenet @ #promatic /q goru


2009-12-25, 13:06
Aprašymas
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2009-07-14, 08:19
Pranešimai: 1472
Forumo litai: 1670
Pinigų pervedimas
Standartinė Re: AME ir AMSG blockeris by Kastuvas
aciu, labai sito reikia sedint irchelp kanaluose :)

_________________
http://counter-strike-download.fleshas.lt/


2009-12-25, 13:26
Aprašymas
Vartotojo avataras

Užsiregistravo: 2010-01-03, 16:09
Pranešimai: 31
Forumo litai: 41
Pinigų pervedimas
Standartinė Re: AME ir AMSG blockeris by Kastuvas
Ačiū, labai pravers :)


2010-01-03, 17:20
Aprašymas
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-12-08, 21:19
Pranešimai: 955
Forumo litai: 1125
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: AME ir AMSG blockeris by Kastuvas
atsiprasau uz durna klausima :D o kaip ji ijungti :D " NONAME Unknown command "
:lol: :lol: :lol:

_________________
!!! <-

search.php & Google

Respect Existence or Expect Resistance


2010-03-15, 16:29
Aprašymas
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-06-27, 22:16
Pranešimai: 857
Forumo litai: 731
Pinigų pervedimas
Miestas: Kaunas
Standartinė Re: AME ir AMSG blockeris by Kastuvas
ne noname o N O A M E

_________________
Keli faktai:
1. Tu dabar internete
2. Tu dabar lt-help.com
3. Tu skaitai
5. Tu nepastebejai, kad nera 4-to punkto
6. Tu dabar tai patikrinai
7. Tu sypsaisi. Geros dienos! :*


2010-03-15, 17:37
Aprašymas

Užsiregistravo: 2010-03-15, 16:19
Pranešimai: 7
Forumo litai: 11
Pinigų pervedimas
Standartinė Re: AME ir AMSG blockeris by Kastuvas
Parašyta juk..
Cituoti:
alias noame { dialog -m noame noame }


2010-03-15, 22:35
Aprašymas

Užsiregistravo: 2011-05-31, 08:04
Pranešimai: 3
Forumo litai: 3
Pinigų pervedimas
Standartinė Re: mIRC skriptas: /ame ir /amsg blockeris
Čia kaip supratau blokuos kanale. O gal eitų padaryti, kad aš pats nematyčiau visuose kanaluose, /ame žinučių?


2011-06-03, 17:48
Aprašymas
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2005-10-10, 20:07
Pranešimai: 1297
Forumo litai: 616
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: mIRC skriptas: /ame ir /amsg blockeris
rokido rašė:
Čia kaip supratau blokuos kanale. O gal eitų padaryti, kad aš pats nematyčiau visuose kanaluose, /ame žinučių?

http://lt-help.com/fm/viewtopic.php?f=7&t=1425

_________________
Niekada nebijok daryti to ko nemoki, atmink: Nojaus arką pastatė mėgėjas, o Titaniką - profesionalai.


2011-06-08, 08:26
Aprašymas WWW
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 13 pranešimai(ų) ] 


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 2 svečių


Jūs negalite kurti naujų temų šiame forume
Jūs negalite atsakinėti į temas šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite trinti savo pranešimų šiame forume
Jūs negalite prikabinti failų šiame forume

Ieškoti:
Pereiti į:  
cron
© phpBB Group. Veikia phpBB pagrindu.
Dizaino autorius Vjacheslav Trushkin, adaptavo Igor „MucTuK“ Gubaidulin
Vertė Vilius Šumskas © 2003, 2005, 2007