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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Ekim 2010, 21:58   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Full Ipi Kisa Ip Yapmak?




Selamun Aleykum..
Kendi Kufur Korumami Yapiorum .. Bir Sorun Ya$adim ..
Kufur Eden Nickin Ip Adresi Mesale 12.34.567.89 Ise..
Bu Ipi Kisaltcak Yani
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.* Yapicak Ve Daha Sonra
%bilgip EkLenicek ..

Yani Sonuc Variables De BöyLe Olucak:

%bilgip
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.*

TskLeR..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Ekim 2010, 23:47   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Full Ipi Kisa Ip Yapmak?




Kodlarını paylaşırsan yardımcı olmaya çalışırız.

 
Alıntı ile Cevapla

Alt 15 Ekim 2010, 01:07   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Full Ipi Kisa Ip Yapmak?




Alıntı:
Yani Sonuc Variables De BöyLe Olucak:

%bilgip
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.*



//set %bilgip $left(*@12.34.567.89,-3)

 
Alıntı ile Cevapla

Alt 15 Ekim 2010, 08:29   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Full Ipi Kisa Ip Yapmak?




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/*
####################################################
############ Strong Wall System (SWS) v1.0 ############
####################################################
################# Coded by XcLusive #################
####################################################
*/
alias wall $iif($dialog(wall),dialog -v wall,dialog -m wall wall) }
alias viewspath return $shortfn($scriptdirviews.mdx)
alias mdxpath return $shortfn($scriptdirmdx.dll)
alias walli $iif($input($2,owdia,$1),haltdef,haltdef) }
dialog wall {
  
title "Strong Wall System (SWS) Coded by XcLusive"
  
size --1 210 257
  option dbu
  tab 
"Algýlanacak Kelimeler"16 3 198 233
  box 
"Algýlanacak Kelimeler"253 23 102 166tab 1
  
list 360 32 87 151tab 1 size
  button 
"Ekle"555 192 29 10tab 1 flat
  button 
"Sil"688 192 29 10tab 1 flat
  button 
"Temizle"14122 192 29 10tab 1 flat
  tab 
"Deðiþtirilecek Karakterler"4
  
list 960 32 87 151tab 4 size
  box 
"Deðiþtirilecek Karakterler"1053 23 102 166tab 4
  button 
"Ekle"1155 192 29 10tab 4 flat
  button 
"Sil"1288 192 29 10tab 4 flat
  button 
"Temizle"13122 192 29 10tab 4 flat
  tab 
"Silinecek Karakterler"7
  
list 1960 32 87 151tab 7 size
  box 
"Silinecek Karakterler"2053 23 102 166tab 7
  button 
"Ekle"2155 192 29 10tab 7 flat
  button 
"Sil"2288 192 29 10tab 7 flat
  button 
"Temizle"23122 192 29 10tab 7 flat
  button 
"Muaf Kanal"2456 221 40 10flat
  button 
"Muaf Nick"8111 221 40 10flat
  button 
"KAPAT"256 240 199 12cancel
  check 
"Boþluklarý Sil"1674 206 43 10
  check 
"Rakamlarý Sil"1519 206 45 10
  check 
"Uzatýlmýþ Karakterleri Sil"17124 206 68 10
}
on *:dialog:wall:*:*:{
  if 
$devent == init {
    if (!
$isfile($shortfn($scriptdirwall.xc))) { write $scriptdirwall.xc 1 write -c $scriptdirwall.xc }
    if (!
$isfile($shortfn($scriptdirascii.xc))) { write $scriptdirascii.xc 1 write -c $scriptdirascii.xc }
    if (!
$isfile($shortfn($scriptdirchr.xc))) { write $scriptdirchr.xc 1 write -c $scriptdirchr.xc }
    
dll $mdxpath SetMircVersion $version
    dll $mdxpath MarkDialog $dname
    dll $mdxpath SetControlMDX $dname 9 ListView report nosortheader showsel single rowselect grid 
$viewspath
    did 
-i $dname 9 1 headerdims 85 85 
    did 
-i $dname 9 1 headertext +c Karakter $chr(9Karþýtý
    
walllist
    asciilist
    chrlist
    
if %sws.bosluk == on did -c $dname 16
    
if %sws.rakam == on did -c $dname 15
    
if %sws.karakter == on did -c $dname 17
  
}
  if 
$devent == sclick {
    if 
$did == { var %$$?="Eklenecek Kelimeyi Girin" walladd %walllist }
    if 
$did == walldel $did(3).seltext walllist }
    if 
$did == 14 cleanwall }
    if 
$did == 11 { var %$$?="Eklenecek Karakteri Girin" | var %$$?="Karakter Karþýtýný Girin" asciiadd %%asciilist }
    if 
$did == 12 asciidel $remove($did(9).seltext,$chr(9),+fs,0) | asciilist }
    if 
$did == 13 cleanascii }
    if 
$did == 24 muafclist }
    if 
$did == muafnlist }
    if 
$did == 21 { var %$$?="Silinecek Karakteri Girin" chradd %chrlist }
    if 
$did == 22 chrdel $did(19).seltext chrlist }
    if 
$did == 23 cleanchr }
    if 
$did == 16 
      if %
sws.bosluk == on set %sws.bosluk off }
      else { 
set %sws.bosluk on }
    }
    if 
$did == 15 
      if %
sws.rakam == on set %sws.rakam off }
      else { 
set %sws.rakam on }
    }
    if 
$did == 17 
      if %
sws.karakter == on set %sws.karakter off }
      else { 
set %sws.karakter on }
    }
  }
}
alias walladd {
  var %! = 
$left($calc($ctime $rand(1000,9999)),7)
  if (!$
1) { $walli(Wall System,Eklenecek Kelime Girmediniz) | halt }
  elseif (
$hfind(wall,$1,0,W).data) { $walli(Wall System,Bu Kelime Daha Önceden Eklenmiþ) | halt }
  else { 
hadd -m wall %! $hsave -o wall $shortfn($scriptdirwall.xc) | $walli(Wall System,$1 Tabloya Eklendi) }
}
alias walldel {
  if (!$
1) { $walli(Wall System,Silinecek Kelime Girmediniz) | halt }
  elseif (!
$hfind(wall,$1,0,W).data) { $walli(Wall System,Bu Kelime Tabloda Ekli Deðil) | halt }
  else { 
hdel -m wall $hfind(wall,$1,1,W).data hsave -o wall $shortfn($scriptdirwall.xc)  | $walli(Wall System,$1 Tablodan Silindi) }
}
alias wallfind {
  if (
$hfind(wall,$1-,1,W).data) { return }
  else { return 
}
}
alias walllist {
  if (!
$dialog(wall)) { halt }
  
did -r wall 3
  
var %1, %$hget(wall,0).data
  
while (%<= %t) {
    
did -a wall 3 $hget(wall,%i).data
    inc 
%i 1
  
}
}
alias cleanwall {
  var %
y/$input(Duvar Tablosunu Komple Silmek &Yacute;stedi&eth;inize Eminmisiniz!?,ivy,D&Yacute;KKAT!)
  if %
y/$yes write -c $shortfn($scriptdirwall.xc) | $walli(Wall System,Wall.xc Tablosu Bo&thorn;alt&yacute;ld&yacute;!) | .hfree -sw wall hmake wall walllist }
  else { 
halt }
}
alias cleanascii {
  var %
y/$input(Ascii Tablosunu Komple Silmek &Yacute;stedi&eth;inize Eminmisiniz!?,ivy,D&Yacute;KKAT!)
  if %
y/$yes write -c $shortfn($scriptdirascii.xc) | $walli(Wall System,Ascii.xc Tablosu Bo&thorn;alt&yacute;ld&yacute;!) | .hfree -sw ascii hmake ascii asciilist }
  else { 
halt }
}
alias cleanchr {
  var %
y/$input(Karakter Tablosunu Komple Silmek &Yacute;stedi&eth;inize Eminmisiniz!?,ivy,D&Yacute;KKAT!)
  if %
y/$yes write -c $shortfn($scriptdirchr.xc) | $walli(Wall System,Chr.xc Tablosu Bo&thorn;alt&yacute;ld&yacute;!) | .hfree -sw chr hmake chr chrlist }
  else { 
halt }
}
alias asciiadd {
  if (!$
1) || (!$2) { $walli(Wall System,Eklenecek Karakter Girmediniz) | halt }
  elseif (
$hfind(ascii,$1,0,W).item) { $walli(Wall System,Bu Karakter Daha Önceden Eklenmi&thorn;) | halt }
  else { 
hadd -m ascii $$hsave -b ascii $shortfn($scriptdirascii.xc) | $walli(Wall System,$- $2 Olarak Tabloya Eklendi) }
}
alias asciidel {
  if (!$
1) { $walli(Wall System,Silinecek Karakteri Girmediniz) | halt }
  elseif (!
$hfind(ascii,$1,0,W).item) { $walli(Wall System,Bu Karakter Tabloda Ekli De&eth;il) | halt }
  else { 
hdel -m ascii $hsave -b ascii $shortfn($scriptdirascii.xc)  | $walli(Wall System,$- $2 Tablodan Silindi) }
}
alias asciifind {
  if (
$hfind(wall,$1-,1,W).data) { return }
  else { return 
}
}
alias asciilist {
  if (!
$dialog(wall)) { halt }
  
did -r wall 9
  
var %1, %$hget(ascii,0).data
  
while (%<= %t) {
    
did -a wall 9 $hget(ascii,%i).item $chr(9$hget(ascii,%i).data $chr(9)
    
inc %i 1
  
}
}
alias chradd {
  var %! = 
$left($calc($ctime $rand(1000,9999)),7)
  if (!$
1) { $walli(Wall System,Eklenecek Kelime Girmediniz) | halt }
  elseif (
$hfind(chr,$1,0,n).data) { $walli(Wall System,Bu Karakter Daha Önceden Eklenmi&thorn;) | halt }
  else { 
hadd -m chr %! $hsave -o chr $shortfn($scriptdirchr.xc) | $walli(Wall System,$1 Tabloya Eklendi) }
}
alias chrdel {
  if (!$
1) { $walli(Wall System,Silinecek Kelime Girmediniz) | halt }
  elseif (!
$hfind(chr,$1,0,n).data) { $walli(Wall System,Bu Karakter Tabloda Ekli De&eth;il) | halt }
  else { 
hdel -m chr $hfind(chr,$1,1,n).data hsave -o chr $shortfn($scriptdirchr.xc)  | $walli(Wall System,$1 Tablodan Silindi) }
}
alias chrfind {
  if (
$hfind(chr,$1-,1,W).data) { return }
  else { return 
}
}
alias chrlist {
  if (!
$dialog(wall)) { halt }
  
did -r wall 19
  
var %1, %$hget(chr,0).data
  
while (%<= %t) {
    
did -a wall 19 $hget(chr,%i).data
    inc 
%i 1
  
}
}
on *:start:{
  if (!
$hget(wall)) {  hmake wall hload wall $shortfn($scriptdirwall.xc)  }
  if (!
$hget(ascii)) {  hmake ascii hload -b ascii $shortfn($scriptdirascii.xc) }
  if (!
$hget(chr)) {  hmake chr hload chr $shortfn($scriptdirchr.xc) }
}
alias mlist {
  
did -$1 11
  
var %1,%$ulist(*,$1,0)
  while (%
<= %a) {
    
did -$1 11 $ulist(*,$1,%b)
    
inc %b 1
  
}
}
alias muafnlist $iif($dialog(muafnlist),dialog -v muafnlist,dialog -m muafnlist muafnlist) }
dialog muafnlist {
  
title "Muaf Nick Listesi"
  
size --1 150 100
  option dbu
  text 
"Nicki YazIp Ekleyin:"1010 5 95 10
  combo 11
10 15 95 85sort
  button 
"Ekle"1110 27 37 12
  button 
"Sil"2110 47 37 12
  button 
"Tamam"3110 67 37 12,cancel
}
on *:dialog:muafnlist:*:*:{
  if 
$devent == init {
    var %
1,%$ulist(*,muafnlist,0)
    while %
<= %{
      
did -a $dname 11 $ulist(*,muafnlist,%a)
      
inc %a 1 
    
}
  }
  if 
$devent == sclick {
    if 
$did == {
      if (!
$did(11).text) { $walli(Wall System,Eklenecek Nick'i Girmediniz) | halt }
      else { .auser muafnlist $did(11).text | mlist $dname }
    }
    if $did == 2 { 
      if (!$did(11).text) { $walli(Wall System,Silinecek Nick'
i Seçmediniz) | halt }
      else { .
ruser muafnlist $did(11).seltext mlist $dname }
    }
  }
}
alias muafclist $iif($dialog(muafclist),dialog -v muafclist,dialog -m muafclist muafclist) }
dialog muafclist {
  
title "Muaf Kanal Listesi"
  
size --1 150 100
  option dbu
  text 
"Kanal&yacute; YazIp Ekleyin:"1010 5 95 10
  combo 11
10 15 95 85sort
  button 
"Ekle"1110 27 37 12
  button 
"Sil"2110 47 37 12
  button 
"Tamam"3110 67 37 12,cancel
}
on *:dialog:muafclist:*:*:{
  if 
$devent == init {
    var %
1,%$ulist(*,muafclist,0)
    while %
<= %{
      
did -a $dname 11 $ulist(*,muafclist,%a)
      
inc %a 1 
    
}
  }
  if 
$devent == sclick {
    if 
$did == {
      if (!
$did(11).text) { $walli(Wall System,Eklenecek Kanal&yacuteGirmediniz) | halt }
      else { .
auser muafclist $did(11).text mlist $dname }
    }
    if 
$did == 
      if (!
$did(11).text) { $walli(Wall System,Silinecek Kanal&yacuteSeçmediniz) | halt }
      else { .
ruser muafclist $did(11).seltext mlist $dname }
    }
  }
}
alias duvar {
  var %::
rtext $remove($1-,$chr(44),$chr(40),$chr(41)),%xc
  
%::rtext $lower(%::rtext)
  var %
$hget(ascii,0).item
  
while %{
    %::
rtext $replace(%::rtext,$hget(ascii,%i).item,$hget(ascii,%i).data)
    
dec %i 1
  
}
  var %
$hget(chr,0).item
  
while %{
    %
xc $hget(chr,%q).data
    
%::rtext $remove(%::rtext,%xc)
    
dec %q
  
}
  if %
sws.bosluk == on { %::rtext $regsubex(%::rtext,/([[:space:]])/g,$null) }
  if %
sws.rakam == on { %::rtext $regsubex(%::rtext,/([[:digit:]])/g,$null) }
  if %
sws.karakter == on  { %::rtext $regsubex(%::rtext,/(.)\1+/g,\1) }
  if (
$hfind(wall,%::rtext,1,W).data) { set %lastword $hget(wall,$hfind(wall,%::rtext,1,W).data)) | return $true }
  else { return 
$false }
}
#wall on
on *:text:*:#:{
  
if ($level($nick) == muafnlist) { halt }
  if (
$level($chan) == muafclist) { halt }
  if 
$me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }
  if (
$duvar($1-)) { /notice #massads 12[0,4 DIKKAT ] 4 #Massads Kanalina Sikayet Geldi !
/msg #massads 12[0,4 REPORTING ]
/msg #massads 7Nick: 4 $nick 
/msg #massads 7Yazdigi Söz: 4 $1- 7 Yasak Kelime: 4  %lastword 7 Kanal: 4 $chan 7 
/msg #massads 7Ip: 4 $address 
/msg #massads 7Saat: 4 $time
/msg #massads -
/msg #massads 4Akill Atmak Icin 1!Ban 4Yaziniz..
/msg #massads -
/msg #massads -
/set %bilgip $address($$1,3) | set %bilgip2 $+($remove($gettok(%bilgip,2,64),$chr(41))) | unset %bilgip }
}
on *:action:*:#:{
  
if ($level($nick) == muafnlist) { halt }
  if (
$level($chan) == muafclist) { halt }
  if 
$me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }
  if (
$duvar($1-)) {   /notice #massads 12[0,4 DIKKAT ] 4 #Massads Kanalina Sikayet Geldi !
/msg #massads 12[0,4 REPORTING ]
/msg #massads 7Nick: 4 $nick 
/msg #massads 7Yazdigi Söz: 4 $1- 7 Yasak Kelime: 4  %lastword 7 Kanal: 4 $chan 7 
/msg #massads 7Ip: 4 $address 
/msg #massads 7Saat: 4 $time
/msg #massads -
/msg #massads 4Akill Atmak Icin 1!Ban 4Yaziniz..
/msg #massads -
/msg #massads -
/set %bilgip $address($$1,3) | set %bilgip2 $+($remove($gettok(%bilgip,2,64),$chr(41))) | unset %bilgip }
}
*:
notice:*:#:{
  
if ($level($nick) == muafnlist) { halt }
  if (
$level($chan) == muafclist) { halt }
  if 
$me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }
  if (
$duvar($1-)) { /notice #massads 12[0,4 DIKKAT ] 4 #Massads Kanalina Sikayet Geldi !
/msg #massads 12[0,4 REPORTING ]
/msg #massads 7Nick: 4 $nick 
/msg #massads 7Yazdigi Söz: 4 $1- 7 Yasak Kelime: 4  %lastword 7 Kanal: 4 $chan 7 
/msg #massads 7Ip: 4 $address 
/msg #massads 7Saat: 4 $time
/msg #massads -
/msg #massads 4Akill Atmak Icin 1!Ban 4Yaziniz..
/msg #massads -
/msg #massads -
/set %bilgip $address($$1,3) | set %bilgip2 $+($remove($gettok(%bilgip,2,64),$chr(41))) | unset %bilgip }
}
#wall end
on *:load:{
  if (!
$hget(wall)) {  hmake wall hload wall $shortfn($scriptdirwall.xc)  }
  if (!
$hget(ascii)) {  hmake ascii hload -b ascii $shortfn($scriptdirascii.xc) }
  if (!
$hget(chr)) {  hmake chr hload chr $shortfn($scriptdirchr.xc) }
  
set %sws.bosluk on set %sws.rakam on set %sws.karakter on
  wall
  
return $walli(Wall System,Strong Wall System (SWSYüklendi$crlf $+ Coded By XcLusive)
}
menu menubar,status,channel,query {
  
SWS
  
.$iif($group(#wall) == on,$style(2)) Aç:.enable #wall | $walli(Wall System,Koruma Aç&yacute;ld&yacute;!)
  
.$iif($group(#wall) == off,$style(2)) Kapat:.disable #wall | $walli(Wall System,Koruma Kapat&yacute;ld&yacute;!)
  
.Ayarlar:wall


Kod Bu ..
/set %bilgip $address($$1,3) | set %bilgip2 $+($remove($gettok(%bilgip,2,64),$chr(41))) | unset %bilgip }
}

Buranin DeyisiLmesi Lazim TskLer

 
Alıntı ile Cevapla

Cevapla

Etiketler
ip, ipi, kisa, yapmak


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık