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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - ipe oto ban (https://www.ircforumlari.net/mirc-scripting-sorunlari/134736-ipe-oto-ban.html)

Selm Arkadaslar belirlediğim ip adresınden giriş olursa banlamak istıyorum bıkod uydurmaya calıstım lakın eksigim var bana yardım edermısınız..

Kod:

on *:join:#:{ if [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]* iswm { mode #turkiye +b } }

Cevap: ipe oto ban

Daha önce bunun icin bir diyalog vermiştim ara bulabilirsen ufak bir kısmını düzelterek kullanabilirsin. Yada yarın girdigimde bakar atarım burdan, şuan feci durumda uykum var.

Bu dedigine görede şimdilik bişey yaptım denemedim ama calışması gerekli..

Kod:

on *:join:#: { 

if (*!*@88.229.106* iswm $fulladdress) {

.ban -k # $nick Yasaklısın

}

}

Cevap: ipe oto ban

Tam aradığım kod cok sagolasın :) kod calışıyor denedim değişecek biyeri varmıki

Kod:

on OpenProxy:join:#:{ if ($nick != $me) { .gline $nick Yasaklanmıştır.. } }

alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist

dialog Proxylist {

  title "Proxy List Korumasi"

  size -1 -1 200 280 

  button "Tamam", 1, 110 200 70 20,ok, flat

  list 2, 10 20 180 135, sort 

  box "Ceza Listesi", 3, 5 5 190 145 

  edit "*!*@", 4, 10 165 180 20, autohs

  box "Eklenecek İp'yi Girin", 5, 5 150 190 45

  button "İp Ekle", 6, 20 200 70 20, flat

  box "Not:", 7, 5 225 190 45 

  text "İp'yi Kaldirmak icin İp'nin Uzerine Cift Tiklayin", 8, 25 240 140 45  

}

alias Proxysetup if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist

on *:dialog:Proxylist:dclick:2:{ .ruser OpenProxy $did(2).seltext | did -d Proxylist 2 $did(2).sel }

on *:dialog:Proxylist:sclick:6:{ if ($did(4) != $null) { did -a Proxylist 2 $did(4) | .auser OpenProxy $did(4) | did -fr Proxylist 4 } }

on *:dialog:Proxylist:init:*:{ 

  if ($ulist(*,OpenProxy,0) != $null) { 

    set %prx.Proxy 0

    while (%prx.Proxy < $ulist(*,OpenProxy,0)) { 

      inc %prx.Proxy 1 

      did -a Proxylist 2 $ulist(*,OpenProxy,%prx.Proxy) 

    }      

    unset %prx.Proxy 

  } 

}

on *:snotice:*client connect*:var %ip $remove($gettok($10,2,64),$chr(41)),%id = $remove($gettok($10,1,64),$chr(40)),%full = $+($9,!,%id,@,%ip) | if ($level(%full) == OpenProxy) { .gline $9 Yasaklanmıştır.. }

Cevap: ipe oto ban

Bu arada şunu da öğrenmen gerekir ki "if veri iswm" diye bir ISWM kuramazsın. ISWM'de iki tane veri kullanılır ve "içinde geçiyorsa" döngüsüdür. Yani senin burada if veri1 iswm yazdıktan sonra "Neyin içinde geçiyorsa?" sorusunu da yanıtlaman gerekmekte. Ayrıca sunucu unreal ise, on JOIN eventıyla IP'leri alamayız.

Cevap: ipe oto ban

sunucu unreal neyapmak lazım tam olarak buna artı olarak belinicke ziline ve belirli nicke h.g dıyalogu ekleye bılırmıyız 3 işlevli bır diyalog olurmu kodlarım var lakın bunları txt ıcersıne nıck ekleyım manuel yapıyorum dıyalog yapa bılırmıyız

bu ıkı kodu ekleme sansımız varmı

Kod:

on *:Join:#:{ if $Read(ark.Txt,w,$Nick) { /.timer 1 01 msg # $read $mircdirbot/h.g.txt | halt }

} }

on *:Join:#:{ if $Read(shun.Txt,w,$Nick) { .shun $Nick küfürrr } }

Cevap: ipe oto ban

Eger bu dediğim olursa güzel bişey cıkar ortaya inanıyorum :)

Cevap: ipe oto ban

Kod:

on !*:join:#:if $read(ark.txt,w,$nick) { .timer 1 1 .msg # $read(bot/h.g.txt) | elseif $read(shun.txt,w,$nick) { shun $nick Küfür. }

Bu şekilde daha sağlıklı çalışacaktır.

Cevap: ipe oto ban

$shortfn Ongun $shortfn :P