mIRCForumlari - mIRC ve IRC Kullanıcılarının Paylaşım Platformu
  https://www.mircforumlari.net/iletisim/


SohbetG.Com

Kullanıcı Etiket Listesi

Yeni Konu aç Cevapla
 
Seçenekler
Alt 07 Mart 2023, 04:36   #1
Çevrimdışı
Üyelik tarihi: 07 Aralık 2022
Konular: 21245
Mesajlar: 24.248
Nerden: İstanbul
Cinsiyet: Erkek
Web Site: TRmIRC.Net
IRC Sunucu: IRC.TRmIRC.Net
Alınan Beğeni: 3770
Beğendikleri: 6794
@RahmetLi
Ruh Hali : : Olu Gibi
Standart mIRC Özelde Kod Sorma

kodun amacı özelinize gelen kisilere kod sistemi ile karsilamanizi saglar.
1. Kod sorgusunda cevap dogruysa size verilen mesajı vermeye baslar.
2. Kod sorgusunda cevap hatalı veya yanlis ise 3 dakika engeller.
Kod web & mobil icin uygun degildir. Harf blokları net anlasilmasi icin mIRC kullanıcı olması gerekir.
Not: Kod gelistirilmeye aciktir.


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

on *:open:?:*: { if ($eval($+(%,$nick,_gkod),2) == $null) { .timer 1 3 build $nick set -e % $+ $nick $+ _gkod OK } window -h $nick } on *:text:*:?:{ if ($var($+(%,$nick,_gkod)) && $eval($+(%,$nick,_build),2)) { if ($hfind(giris,$strip($1))) { unset $+(%,girisdeneme-,$nick) unset $+(%,$nick,_gkod) unset $+(%,$nick,_build) beep .timer 1 2 msg $nick Buyrun, dinliyorum.(Yeap, Wht's up ?) window -w $nick hdel giris $strip($1) return } else { inc $+(%,girisdeneme-,$nick) if ($eval($+(%,girisdeneme-,$nick),2) == 2) { .msg $nick Uzgunum.2 dakika sonra tekrar denemelisiniz.(Sorry, Not accepted.Please try again after 2 mins.) .ignore -u180p $nick unset $+(%,girisdeneme-,$nick) unset $+(%,$nick,_gkod) unset $+(%,$nick,_build) return } .msg $nick - .msg $nick Hayır, dogru degil.Bir sefer daha deneyin.(Please, retry.) .msg $nick - } } } alias -l build { set -e $+(%,$1,_build) OK var %gond = $1 var %n_color = 1.14.15 var %hane = $r(4,4), %i = 1 while (%i <= %hane) { var %n = $+($r(a,z),_object) var %c_sum = %c_sum $+($,%n,(%l)) inc %i } var %m = $remove(%c_sum,object,$,_,(%l),$chr(32)) if (!$hget(giris)) { .hmake giris 500 } hadd -u60 giris %m var %1 = $gettok(%n_color,$r(1,3),46) var %2 = $gettok(%n_color,$r(1,3),46) var %3 = $gettok(%n_color,$r(1,3),46) var %4 = $gettok(%n_color,$r(1,3),46) var %5 = $gettok(%n_color,$r(1,3),46) var %l = 1 .msg %gond - while (%l <= 7) { tokenize 32 $eval(%c_sum,2) .msg %gond  $replace($1,4,%1) $+ $replace($2,4,%2) $+ $replace($3,4,%3) $+ $replace($4,4,%4) $+ $replace($5,4,%5) inc %l } .msg %gond - .msg %gond Yukarida gormus oldugunuz harf obegini yazin.(Please, type random string above.) .msg %gond - } alias -l a_object { var %w = 0,0###4###0,0#### $& 0,0##4##0,0#4##0,0### $& 0,0#4##0,0###4##0,0## $& 4,0##0,0#####4##0,0# $& 4,0#########0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# return $gettok(%w,$1,32) } alias -l b_object { var %w = 4,0########0,0## $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0########0,0## $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0########0,0## return $gettok(%w,$1,32) } alias -l b_reverse_object { var %w = 0,0#4,0########0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 0,0#4,0########0,00# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 0,0#4,0########0,0# return $gettok(%w,$1,32) } alias -l c_object { var %w = 0,0#4,0#######0,0## $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0######## $& 4,0##0,0######## $& 4,0##0,0######## $& 4,0##0,0#####4,0##0,0# $& 0,0#4,0########0,0# return $gettok(%w,$1,32) } alias -l d_object { var %w = 4,0#######0,0### $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0#######0,0### return $gettok(%w,$1,32) } alias -l e_object { var %w = 4,0########0,0# $& 4,0##0,0######0,0# $& 4,0##0,0######0,0# $& 4,0#####0,0#### $& 4,0##0,0######0,0# $& 4,0##0,0######0,0# $& 4,0########0,0# return $gettok(%w,$1,32) } alias -l f_object { var %w = 4,0#########0,0# $& 4,0##0,0######## $& 4,0##0,0######## $& 4,0######0,0#### $& 4,0##0,0######## $& 4,0##0,0######## $& 4,0##0,0######## return $gettok(%w,$1,32) } alias -l f_reverse_object { var %w = 4,0#########0,0# $& 0,0#######4,0##0,0# $& 0,0#######4,0##0,0# $& 0,0###4,0######0,0# $& 0,0#######4,0##0,0# $& 0,0#######4,0##0,0# $& 0,0#######4,0##0,0# return $gettok(%w,$1,32) } alias -l g_object { var %w = 0,0#4,0######0,0### $& 4,0##0,0####4,0##0,0## $& 4,0##0,0######## $& 4,0##0,0##4,0#####0,0# $& 4,0##0,0####4,0##0,0## $& 4,0##0,0####4,0##0,0## $& 0,0#4,0######0,0### return $gettok(%w,$1,32) } alias -l g_reverse_object { var %w = 0,0##4,0######0,0## $& 0,0#4,0##0,0####4,0##0,0# $& 0,0#######4,0##0,0# $& 4,0#####0,0##4,0##0,0# $& 0,0#4,0##0,0####4,0##0,0# $& 0,0#4,0##0,0####4,0##0,0# $& 0,0##4,0######0,0## return $gettok(%w,$1,32) } alias -l h_object { var %w = 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0#########0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# return $gettok(%w,$1,32) } alias -l i_object { var %w = 4,0####0,0# $& 0,0#4,0##0,0## $& 0,0#4,0##0,0## $& 0,0#4,0##0,0## $& 0,0#4,0##0,0## $& 0,0#4,0##0,0## $& 4,0####0,0# return $gettok(%w,$1,32) } alias -l j_object { var %w = 0,0######4,0##0,0# $& 0,0######4,0##0,0# $& 0,0######4,0##0,0# $& 0,0######4,0##0,0# $& 4,0##0,0####4,0##0,0# $& 4,0##0,0####4,0##0,0# $& 0,0#4,0#####0,0### return $gettok(%w,$1,32) } alias -l k_object { var %w = 4,0##0,0####4,0##0,0# $& 4,0##0,0###4,0##0,0## $& 4,0##0,0##4,0##0,0### $& 4,0#####0,0#### $& 4,0##0,0##4,0##0,0### $& 4,0##0,0###4,0##0,0## $& 4,0##0,0####4,0##0,0# return $gettok(%w,$1,32) } alias -l k_reverse_object { var %w = 4,0##0,0####4,0##0,0# $& 0,0#4,0##0,0###4,0##0,0# $& 0,0##4,0##0,0##4,0##0,0# $& 0,0###4,0#####0,0# $& 0,0##4,0##0,0##4,0##0,0# $& 0,0#4,0##0,0###4,0##0,0# $& 4,0##0,0####4,0##0,0# return $gettok(%w,$1,32) } alias -l l_object { var %w = 4,0##0,0####### $& 4,0##0,0####### $& 4,0##0,0####### $& 4,0##0,0####### $& 4,0##0,0####### $& 4,0##0,0####### $& 4,0########0,0# return $gettok(%w,$1,32) } alias -l l_reverse_object { var %w = 0,0######4,0##0,0# $& 0,0######4,0##0,0# $& 0,0######4,0##0,0# $& 0,0######4,0##0,0# $& 0,0######4,0##0,0# $& 0,0######4,0##0,0# $& 4,0########0,0# return $gettok(%w,$1,32) } alias -l m_object { var %w = 4,0##0,0#####4,0##0,0# $& 4,0###0,0###4,0###0,0# $& 4,0####0,0#4,0####0,0# $& 4,0##0,0#4,0###0,0#4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# return $gettok(%w,$1,32) } alias -l n_object { var %w = 4,0##0,0####4,0##0,0# $& 4,0###0,0###4,0##0,0# $& 4,0####0,0##4,0##0,0# $& 4,0##0,0#4,0##0,0#4,0##0,0# $& 4,0##0,0##4,0####0,0# $& 4,0##0,0###4,0###0,0# $& 4,0##0,0####4,0##0,0# return $gettok(%w,$1,32) } alias -l n_reverse_object { var %w = 4,0##0,0####4,0##0,0# $& 4,0##0,0###4,0###0,0# $& 4,0##0,0##4,0####0,0# $& 4,0##0,0#4,0##0,0#4,0##0,0# $& 4,0####0,0##4,0##0,0# $& 4,0###0,0###4,0##0,0# $& 4,0##0,0####4,0##0,0# return $gettok(%w,$1,32) } alias -l o_object { var %w = 0,0#4,0#######0,0## $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 0,0#4,0#######0,0## return $gettok(%w,$1,32) } alias -l p_object { var %w = 4,0########0,0## $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0########0,0## $& 4,0##0,0######## $& 4,0##0,0######## $& 4,0##0,0######## return $gettok(%w,$1,32) } alias -l r_object { var %w = 4,0########0,0## $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0########0,0## $& 4,0##0,0###4,0##0,0### $& 4,0##0,0####4,0##0,0## $& 4,0##0,0#####4,0##0,0# return $gettok(%w,$1,32) } alias -l s_object { var %w = 0,0#4,0######0,0## $& 4,0##0,0####4,0##0,0# $& 4,0##0,0####### $& 0,0#4,0######0,0## $& 0,0######4,0##0,0# $& 4,0##0,0####4,0##0,0# $& 0,0#4,0######0,0## return $gettok(%w,$1,32) } alias -l t_object { var %w = 4,0########0,0# $& 0,0###4,0##0,0#### $& 0,0###4,0##0,0#### $& 0,0###4,0##0,0#### $& 0,0###4,0##0,0#### $& 0,0###4,0##0,0#### $& 0,0###4,0##0,0#### return $gettok(%w,$1,32) } alias -l u_object { var %w = 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 0,0#4,0#######0,0## return $gettok(%w,$1,32) } alias -l v_object { var %w = 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 0,0#4,0##0,0###4,0##0,0## $& 0,0##4,0##0,0#4,0##0,0### $& 0,0###4,0###0,0#### return $gettok(%w,$1,32) } alias -l y_object { var %w = 4,0##0,0####4,0##0,0# $& 0,0#4,0##0,0##4,0##0,0## $& 0,0##4,0####0,0### $& 0,0###4,0##0,0#### $& 0,0###4,0##0,0#### $& 0,0###4,0##0,0#### $& 0,0###4,0##0,0#### return $gettok(%w,$1,32) } alias -l z_object { var %w = 4,0########0,0# $& 0,0#####4,0##0,0## $& 0,0####4,0##0,0### $& 0,0###4,0##0,0#### $& 0,0##4,0##0,0##### $& 0,0#4,0##0,0###### $& 4,0########0,0# return $gettok(%w,$1,32) } alias -l x_object { var %w = 4,0##0,0#####4,0##0,0# $& 0,0#4,0##0,0###4,0##0,0## $& 0,0##4,0##0,0#4,0##0,0### $& 0,0###4,0###0,0#### $& 0,0##4,0##0,0#4,0##0,0### $& 0,0#4,0##0,0###4,0##0,0## $& 4,0##0,0#####4,0##0,0# return $gettok(%w,$1,32) } alias -l w_object { var %w = 4,0##0,0######4,0##0,0# $& 4,0##0,0##4,0##0,0##4,0##0,0# $& 4,0##0,0##4,0##0,0##4,0##0,0# $& 4,0##0,0##4,0##0,0##4,0##0,0# $& 4,0##0,0##4,0##0,0##4,0##0,0# $& 4,0##0,0##4,0##0,0##4,0##0,0# $& 0,0#4,0###0,0##4,0###0,0## return $gettok(%w,$1,32) } alias -l q_object { var %w = 0,0#4,0#######0,0## $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0#####4,0##0,0# $& 4,0##0,0##4,0##0,0#4,0##0,0# $& 4,0##0,0####4,0##0,0## $& 0,0#4,0#####0,0#4,0##0,0# return $gettok(%w,$1,32) }





Kalbim Atar Cansız, Geçmez Gün Ahsız, Vahsız..
  Alıntı ile Cevapla

Cevapla
Etiketler
kod, mirc, sorma, özelde


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