Şubat, 2014 | Türkçe mIRC indir - Resmi mIRC indirme Sitesi

mIRC Proxy Tarama Addon

28 Şubat 2014 • 00:23 OxiGeN Addonlar

on ^*:snotice:*: {
if (*client*connect*on*port* iswm $1-) {
tr $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(6 4))
}
halt
}
alias po {
;portlar buraya
return 21 22 23 33 47 56 54 80 70 1046 1080 1182 1183 1184 1188 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 4480 5463 6667 6588 8080 8000 8001 8118 8888 8922 10102 26260 31337 44322
}
alias tr {
set %prx $ticks | .dns $1
set %ip $1 | var %pi = 1
while (%pi &amp;lt;= $gettok($po,0,32)) {
var %ki = $gettok($po,%pi,32)
sockopen $+(prx-,$md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z)))) %ip %ki
inc %pi
}
echo 4Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po
}
on *:sockopenrx-*: {
if ($sockerr) { sockclose $sockname | return }
echo 2 $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\\\\KAPALI: $portfree($sockerr) 4HATA\\\\WS_Err: $sock($sockname).wserr 4MESAJ\\\\WS_Msg: $sock($sockname).wsmsg
if ($portfree($sockerr)) &amp;amp;&amp;amp; ($status(connected)) &amp;amp;&amp;amp; (o isincs $usermode) {
;ofline denemeden sonra sil..?! ($status(connected)
gzline $+(*@,$sock($sockname).ip) Proxy yasakt?r. 1D
}
.sockclose $sockname
}
on *:sockreadrx-*:{
if ($sockerr &amp;gt; 0) { echo :HATA: $sock($sockname).wserr | return }
; echo 4 -s :---&amp;gt; $sock($sockname).ip $sock($sockname).port
sockclose $sockname
}
on *:dns:{
if (%prx) {
var %di = $dns(0)
while (%di &amp;gt; 0) {
echo 2 $chr(32) 4DNS: $dns(%di) 4ADRES: $dns(%di).addr \\\\ $dns(%di).ip
dec %di
}
unset %prx | unset %ip
halt
}
unset %prx | unset %ip
}

on ^*:snotice:*: {

if (*client*connect*on*port* iswm $1-) {

tr $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(6 4))

}

halt

}

alias po {

;portlar buraya

return 21 22 23 33 47 56 54 80 70 1046 1080 1182 1183 1184 1188 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 4480 5463 6667 6588 8080 8000 8001 8118 8888 8922 10102 26260 31337 44322

}

alias tr {

set %prx $ticks | .dns $1

set %ip $1 | var %pi = 1

while (%pi &lt;= $gettok($po,0,32)) {

var %ki = $gettok($po,%pi,32)

sockopen $+(prx-,$md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z)))) %ip %ki

inc %pi

}

echo 4Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po

}

on *:sockopenrx-*: {

if ($sockerr) { sockclose $sockname | return }

echo 2 $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\\\\KAPALI: $portfree($sockerr) 4HATA\\\\WS_Err: $sock($sockname).wserr 4MESAJ\\\\WS_Msg: $sock($sockname).wsmsg

if ($portfree($sockerr)) &amp;&amp; ($status(connected)) &amp;&amp; (o isincs $usermode) {

;ofline denemeden sonra sil..?! ($status(connected)

gzline $+(*@,$sock($sockname).ip) Proxy yasakt?r. 1D

}

.sockclose $sockname

}

on *:sockreadrx-*:{

if ($sockerr &gt; 0) { echo :HATA: $sock($sockname).wserr | return }

; echo 4 -s :---&gt; $sock($sockname).ip $sock($sockname).port

sockclose $sockname

}

on *:dns:{

if (%prx) {

var %di = $dns(0)

while (%di &gt; 0) {

echo 2 $chr(32) 4DNS: $dns(%di) 4ADRES: $dns(%di).addr \\\\ $dns(%di).ip

dec %di

}

unset %prx | unset %ip

halt

}

unset %prx | unset %ip

}

» Devamını Oku

Yorum yaz addon, mirc, Proxy, tarama

mIRC Spamfilter Addon

28 Şubat 2014 • 00:20 OxiGeN Addonlar

alias spamekle {
  spamfilter add cpNna gzline - 2Â7n2t7î2c7ode4  $yildiztemizle($1-)
}

alias spamsil {
  spamfilter del cpNna gzline - 2Â7n2t7î2c7ode4  $yildiztemizle($1-)
}

alias yildiztemizle {
  var %y $+(.,?) , %yi
  if $numtok($1-,32) == 1 {
    var %1kelime 1
  }
  %yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$chr(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr(164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$chr(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$chr(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr(34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr(45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
  if %1kelime {
    %yi = $+(^,%yi,$chr(36))
  }
  return $iif($len($remove(%yi,.,*)) &amp;gt; 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}

/spamekle Kelime. /Spamsil Kelime.

alias spamekle {

spamfilter add cpNna gzline - 2Â7n2t7î2c7ode4 $yildiztemizle($1-)

}

alias spamsil {

spamfilter del cpNna gzline - 2Â7n2t7î2c7ode4 $yildiztemizle($1-)

}

alias yildiztemizle {

var %y $+(.,?) , %yi

if $numtok($1-,32) == 1 {

var %1kelime 1

}

%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$chr(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr(164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$chr(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$chr(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr(34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr(45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)

if %1kelime {

%yi = $+(^,%yi,$chr(36))

}

return $iif($len($remove(%yi,.,*)) &gt; 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )

}

/spamekle Kelime. /Spamsil Kelime.

» Devamını Oku

Yorum yaz mirc, SpamfiLter

mIRC Script Log sistem

28 Şubat 2014 • 00:18 OxiGeN Addonlar

alias kayitgosterici.mo (
  var% s = $ $ input ($ nopath ($ longfn ($ 1 -) dosyasi icinde aramak istediginizi yaziniz:), eq, Arama)
  net @ LogArama ($ window (@ LogArama)) () ise
  pencere k0z @ LogArama
  var% t = $ keneler
  kte_echo @ LogArama $ PARANTEZ ($ nopath ($ longfn ($ 1 -))) dosyasinda $ PARANTEZ (% s) for Arama yapildi $ + ...
  echo @ LogArama?
  filtre-fwbp $ 1 - @ LogArama $+(*,% s *)
  echo @ LogArama?
  kte_echo @ LogArama $ nopath ($ longfn ($ 1 -)) dosyasinda arnan $ + (\ \ \ '% s, \ \ \') ile ilgili $ PARANTEZ ($ filtre) sonuc $ tur ($ (($ calc keneler -% t) / 1000), 2) saniyede bulundu.
)
alias kayitgosterici (
  yak?n ($ window (@ LogGosterici)) (if - @ @ LogGosterici)
  pencere k0l16zS @ LogGosterici
  icinde $ PARANTEZ ($ nopath ($ findfile ($ logdir, *. log, 0,))) $ 1 - kayit.yukle @ LogGosterici $ logdir echo dosyasi bulundu giri? yap?n.
  ($ Isfile ($ 1 -)) (if
    ($ Hatlar? ($ 1 e?er -)&gt; 64000) (
      Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy)) ($ 1 ko?mak -)
      durdurmak
    )
    $ Kayitgosterici.aktifkayit set% shortfn ($ 1 -)
    loadbuf-pr @ LogGosterici $ 1 -
    ba?l?k @ LogGosterici - $ nopath ($ mid ($ sol ($ 1 -, -1), 2))
  )
)
alias kayitgosterici.yenile (
  ($ Window (@ LogGosterici)) (if
    aç?k-l @ LogGosterici
    net @ LogGosterici
    echo-q $ nopath ($ findfile ($ logdir, *. log, 0,)) $ 1 - kayit.yukle.
    ($ 1 e?er! =-C) (
      (% Kayitgosterici.aktifkayit) (loadbuf-pr @ LogGosterici% kayitgosterici.aktifkayit) e?er
      else (@ echo LogGosterici Loglar yenilendi ... )
    )
  )
)
alias kayitfilter (
  filtre-fwbp $ 1 @ LogArama $+(*,$ 2 - *)
  inc% kayitaaranan2
  ($ Süzülmü?) (if
    @ LogArama $ filtre sonuc $ PARANTEZ ($ longfn ($ 1)) dosyasinda bulundu yank? ...
    echo @ LogArama?
    inc% kayitabulunan $ filtre
  )
  rline @ LogArama 1 $ deltok ($ line (@ LogArama, 1), -1,32) $ int ($ calc (% kayitaaranan2 /% kayitaaranan * 100)) $ +%
)
alias kayitmod.aktif (if ($ dialog (lsetmode)) (did-e $ ifmatch 21))
alias kayit.yukle (
  (# * Iswm $ nopath ($ 1 -)) (aline-l @ LogGosterici olur? $ + $ ($ 1 - $ logdir)) kald?r
  else (aline-l @ LogGosterici $ ($ 1 - $ logdir)) kald?r
)
menü @ LogArama (
  $ Style (2) aktif $+([,$]): x
  -
  Sonuclari Kaydet (
    var% x = $ sfile (c: \ \ \ \ *. log, Ay?e Arama sonuclarini nereye kaydetmek istersiniz?, Kaydet)
    yazmak-c% x
    savebuf $ aktif% x
  )
  -
  Kapat: yak?n - @ $ aktif
)
menü @ LogGosterici (
  dclick (
    var% f = $ shortfn ($+($ logdir, $ strip ($ line (@ LogGosterici, $ 1 -, 1))))
    ($ Hatlar? (% e?er f)&gt; 64000) (
      Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy, Log Fazla Büyük)) (çal??t?rmak% f)
      durdurmak
    )
    set% kayitgosterici.aktifkayit% f
    loadbuf-pr @ LogGosterici% f
    ba?l?k @ LogGosterici - $ strip ($ line (@ LogGosterici, $ 1 -, 1))
  )
  -
  Ara
  . Tum Loglarda (
    % Kayitabulunan 0 set
    % Kayitaaranan findfile ($ logdir, $ set *. log, 0)
    set% kayitaaranan2 0
    var% = $ $ input (Eger buyuk log dosyalarina sahipseniz Arama islemi Uzun Zaman alacaktir. Devam etmek istiyorsaniz $ + $ chr (44) aramak istediginizi kutuya yazin. s, eq, Arama)
    net @ LogArama ($ window (@ LogArama)) () ise
    pencere k0z @ LogArama
    var% t = $ keneler
    @ LogArama $ + (\ \ \ '% s echo, \ \ \' Click Arama yapiliyor ...)% 0
    @ LogArama $ findfile ($ logdir, echo *. log, 0, kayitfilter 1 $% s). Shortfn log dosyasinda $ + (\ \ \ '% s, \ \ \' arandi.) Toplam $ PARANTEZ (% kayitabulunan) sonuc $ tur ($ (($ kenelerin -% t) / 1000), 2) saniyede bulundu kalk.
    unset% kayitabulunan% kayitaaranan% kayitaaranan2
  )
  . $ IIf ($ mouse.lb, $ strip ($ 1)): kayitgosterici.mo $ shortfn ($+($ logdir, $ strip ($ 1)))
  . $ IIf (! $ Mouse.lb, $ nopath (% kayitgosterici.aktifkayit)): kayitgosterici.mo% kayitgosterici.aktifkayit
  $ IIf ($ mouse.lb, HTML Olustur): strip ($ 1))) $ shortfn ($+($ logdir, $ crlog
  $ IIf (! $ Mouse.lb, HTML Olustur): crlog% kayitgosterici.aktifkayit
  $ IIf ($ mouse.lb, Logu göster) (
    var% f = $ shortfn ($+($ logdir, $ strip ($ 1)))
    ($ Hatlar? (% e?er f)&gt; 64000) (
      Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy, Log Fazla Büyük)) (
        ko?mak% f
        durdurmak
      )
      else (halt)
    )
    set% kayitgosterici.aktifkayit% f
    loadbuf-pr @ LogGosterici% f
    ba?l?k @ LogGosterici - $ strip ($ 1 -)
  )
  $ IIf (! $ Mouse.lb &amp; &amp;% kayitgosterici.aktifkayit, de?il Defteriyle Ac): ko?mak% kayitgosterici.aktifkayit
  Log Dizinini Ac: ", $ logdir, \ \") $ + (\ \ ko?mak
  -
  Sil
  . Tum Loglari (
    BÜTÜN loglarinizi silmek istediginizden Emin misiniz?, Wy)) (($ input (e?er
      net @ LogGosterici
      aç?k-l @ LogGosterici
      @ Echo LogGosterici Loglar siliniyor ...
      . Echo-q $ findfile ($ logdir, *. log, 0,. Kald?rmak $ 1 -). Shortfn
      net @ LogGosterici
      @ Echo LogGosterici BÜTÜN log dosyalariniz basariyla silindi.
      ba?l?k @ LogGosterici - Acik oturum fade
    )
  )
  . Aktif logu (
    ($ 1 == $ null) (if
      net @ LogGosterici
      @ LogGosterici Lutfen tür bir kez silmek istediginiz logu listeden Seçin yank?.
      durdurmak
    )
    var% t = $ sline (@ LogGosterici, 0)
    ($ Input ($ + $ $ 1 loguni silmek istediginizden Emin misiniz? Not: Oturum su Anda kullanimdaysa silinmeyebilir e?er., Wy)) (
      unset% kayitgosterici.aktifkayit
      i var% = $ sline (@ LogGosterici, 0)
      (% I&gt; ise = 1) (
        "LogGosterici, i)% $ logdir, $ strip ($ sline (@ $ + (\ \ kald?r ($ isfile ($ logdir $ + $ strip ($ sline (@ LogGosterici,% i)))) (if. ), \ \ "))
        dline-l @ LogGosterici $ sline (@ LogGosterici,% i). ln
        Aral?k% i
      )
      net @ LogGosterici
      @ LogGosterici $ PARANTEZ (% t) echo (lar) i basariyla silindi dosyas giri? yap?n.
    )
    ba?l?k @ LogGosterici - Acik oturum fade
  )
  -
  Yenile: kayitgosterici.yenile
  Kapat: yak?n - @ @ LogGosterici
)
alias crlog (
  var% f = $ shortfn ($ IIf ($ 1, $ 1 - $ sfile ($ logdir $ + *. log, Hangi log dosyasindan HTML dosyasi olusturmak istiyorsunuz?, Tamam ))),% o = $ shortfn ($ sfile ($ + (c: \ \ \ \ $ deltok ($ nopath (% f), -1,46),. htm), Bir cikis dosyasi Seçin, Olustur !)),% p = $ keneler
  ($ Isfile (e?er% f)) (
    yazmak-c% o
    dialog-m htmlolustur htmlolustur
    did-a htmlolustur 1 1 0 999
    -Ra htmlolustur yapt?m 2 Olusturuluyor ...
    -Ra htmlolustur 3 Kaynak yapt?:
    -Ra htmlolustur 4 Satir yapt?:
    -Ra htmlolustur 5 Biten yapt?:
    -Ra htmlolustur 6 Kalan Sure yapt?:
    did-ra htmlolustur 7 $ nopath ($ longfn (% f))
    did-ra htmlolustur 8,9,10?
    pencere-h @ htmlolustur
    var% i = 4,% b = 0,% tt = $ hatlar? (% f),% u = 0
    aline @ htmlolustur $ + (&lt;html&gt; &lt;head&gt; &lt;title&gt;, $ nopath ($ longfn (% f )),&lt;/ title&gt; &lt;/ head&gt; &lt;style type = \ \ "metin / css \ \ "&gt;&lt;!--)
    aline @ htmlolustur vücut $ chr (123) $ + (background-color = \ \ ", $ hexcolor (arka), \ \"; font-family: \ \ ", $ window ($ aktif). font, \ \ "; font-size: \ \", $ window ($ aktif). "\ \ Yaz?y?; color = \ \", $ hexcolor (normal), \ \ ") $ chr (125 )
    aline @ htmlolustur -
    loadbuf 1-2001 @ htmlolustur% f
    (% U &lt;=% tt) (süre
      rline @ htmlolustur% i $ + ($ ($ (@ htmlolustur,% i )),&lt;,&amp; lt ;,&gt;,&amp; gt strip ($ line yerine;), )
      (% I == 2001) (if
        var% i = 1
        inc% b 2001
        savebuf-a @ htmlolustur% o
        loadbuf $ + ($ calc (% b 1 ),-,$ calc (% b 2001))-r @ htmlolustur% f
        devam etmek
      )
      If (! $ Calc (% i% 100)) (
        did-a htmlolustur 1% u% 0 tt
        did-ra htmlolustur 8 $ + (% u /% tt)
        did-ra htmlolustur 9 $ + ($ int ($ calc (% u /% tt * 100 )),%)
        (% U&gt; 5000) (did-ra htmlolustur 10 $ süresi (int $ ($ (($ kenelerin -% p) / 1000 /% u *% tt kalk - (($ kenelerin -% p) / 1000) ise ))))
      )
      inc% i
      inc% u
    )
    aline @ htmlolustur &lt;/ html&gt;
    savebuf-a @ htmlolustur $ + (\ \ ",% o, \ \")
    yak?n - @ @ htmlolustur
    dialog-c htmlolustur
    yazmak-L3 $ + (\ \ ",% o, \ \") --&gt;&lt;/ style&gt; &#8226; HTML $ Tarih Tarihinde $ tur ($ calc (($ keneler dosyasi tarafindan log - % p) / 1000), 2) saniyede,  &#8226; $ nopath ($ longfn (% f)) dosyasindan olusturuldu $ PARANTEZ (Orijinal dosya say?s?% tt SATIR $ + $ chr (44) $ byte ( $ ()% f). dosya boyutu. SUF), )
    (HTML yuvarlak ($ (($ kenelerin -% p) / 1000), 2) $ + (saniye icinde basariyla olusturuldu kalk. Dosyasi $ log ($ input e?er $ CRLF, $ CRLF, maddesine ba?lant? veren sayfalar: $ nopath (% o ) $ PARANTEZ ($ byte ($ (% o) dosyas?. boyutunda). SUF), $ CRLF, Kaynak: $ nopath (% f) $ PARANTEZ ($ byte ($ file (% f). boyutunda). SUF) , $ CRLF, Satir:% tt, $ CRLF, $ CRLF, Log Dizini \ \ \ ', $ longfn (% o), \ \ \'. $ CRLF, birsey calistirmak Ba misiniz?), IY, HTML logu )) (url-an% o)
  )
  else (errdialog maddesine ba?lant? veren sayfalar cikis hatasi% f $ +! )
)
ileti?im htmlolustur (
  boyutu -1 -1 120 49
  seçenek dBu
  metin \ \ "? \ \", 2,2 3 116 8, merkez
  Metin "" \ \ \ \ 1,2 12 116 10
  metin \ \ "? \ \", 3,2 24 50 8, sa?
  metin \ \ "? \ \", 4,2 32 50 8, sa?
  metin \ \ "? \ \", 5,2 40 50 8, sa?
  metin \ \ "? \ \", 6,2 48 50 8, sa?
  metin \ \ "? \ \", 7,55 24 60 8
  metin \ \ "? \ \", 8,55 32 60 8
  metin \ \ "? \ \", 9,55 40 60 8
  metin \ \ "? \ \", 10,55 48 60 8
)
* Do?um: dialog: htmlolustur: init: 0: (
  SetMircVersion sürümü $ mdx
  MarkDialog dname $ dialog ($ dname) $ mdx. Hwnd
  SetControlMDX ProgressBar pürüzsüz&gt; script $ dname 1 mdx \ \ \ \ mdx \ \ \ \ ctl_gen.mdx
  SetDialog tarz? dlgmodal $ dname mdx
  did-i $ dname 1 1 bgcolor $ rgb (hilight)
  did-i $ dname 1 1 barcolor $ rgb (metin)
)
* Do?um: close: @ LogGosterici: (unset% kayitgosterici.aktifkayit)
alias PARANTEZ (return ($ + $ 1 - $ +))
menü kanal, durum (
  Ne dinliyorum?: ?ark? #
  -
  Log gösterici:. Kayitgosterici
)

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

alias kayitgosterici.mo (

var% s = $ $ input ($ nopath ($ longfn ($ 1 -) dosyasi icinde aramak istediginizi yaziniz:), eq, Arama)

net @ LogArama ($ window (@ LogArama)) () ise

pencere k0z @ LogArama

var% t = $ keneler

kte_echo @ LogArama $ PARANTEZ ($ nopath ($ longfn ($ 1 -))) dosyasinda $ PARANTEZ (% s) for Arama yapildi $ + ...

echo @ LogArama?

filtre-fwbp $ 1 - @ LogArama $+(*,% s *)

echo @ LogArama?

kte_echo @ LogArama $ nopath ($ longfn ($ 1 -)) dosyasinda arnan $ + (\ \ \ '% s, \ \ \') ile ilgili $ PARANTEZ ($ filtre) sonuc $ tur ($ (($ calc keneler -% t) / 1000), 2) saniyede bulundu.

)

alias kayitgosterici (

yak?n ($ window (@ LogGosterici)) (if - @ @ LogGosterici)

pencere k0l16zS @ LogGosterici

icinde $ PARANTEZ ($ nopath ($ findfile ($ logdir, *. log, 0,))) $ 1 - kayit.yukle @ LogGosterici $ logdir echo dosyasi bulundu giri? yap?n.

($ Isfile ($ 1 -)) (if

($ Hatlar? ($ 1 e?er -)> 64000) (

Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy)) ($ 1 ko?mak -)

durdurmak

)

$ Kayitgosterici.aktifkayit set% shortfn ($ 1 -)

loadbuf-pr @ LogGosterici $ 1 -

ba?l?k @ LogGosterici - $ nopath ($ mid ($ sol ($ 1 -, -1), 2))

)

alias kayitgosterici.yenile (

($ Window (@ LogGosterici)) (if

aç?k-l @ LogGosterici

net @ LogGosterici

echo-q $ nopath ($ findfile ($ logdir, *. log, 0,)) $ 1 - kayit.yukle.

($ 1 e?er! =-C) (

(% Kayitgosterici.aktifkayit) (loadbuf-pr @ LogGosterici% kayitgosterici.aktifkayit) e?er

else (@ echo LogGosterici Loglar yenilendi ... )

)

alias kayitfilter (

filtre-fwbp $ 1 @ LogArama $+(*,$ 2 - *)

inc% kayitaaranan2

($ Süzülmü?) (if

@ LogArama $ filtre sonuc $ PARANTEZ ($ longfn ($ 1)) dosyasinda bulundu yank? ...

echo @ LogArama?

inc% kayitabulunan $ filtre

)

rline @ LogArama 1 $ deltok ($ line (@ LogArama, 1), -1,32) $ int ($ calc (% kayitaaranan2 /% kayitaaranan * 100)) $ +%

)

alias kayitmod.aktif (if ($ dialog (lsetmode)) (did-e $ ifmatch 21))

alias kayit.yukle (

(# * Iswm $ nopath ($ 1 -)) (aline-l @ LogGosterici olur? $ + $ ($ 1 - $ logdir)) kald?r

else (aline-l @ LogGosterici $ ($ 1 - $ logdir)) kald?r

)

menü @ LogArama (

$ Style (2) aktif $+([,$]): x

Sonuclari Kaydet (

var% x = $ sfile (c: \ \ \ \ *. log, Ay?e Arama sonuclarini nereye kaydetmek istersiniz?, Kaydet)

yazmak-c% x

savebuf $ aktif% x

)

Kapat: yak?n - @ $ aktif

)

menü @ LogGosterici (

dclick (

var% f = $ shortfn ($+($ logdir, $ strip ($ line (@ LogGosterici, $ 1 -, 1))))

($ Hatlar? (% e?er f)> 64000) (

Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy, Log Fazla Büyük)) (çal??t?rmak% f)

durdurmak

)

set% kayitgosterici.aktifkayit% f

loadbuf-pr @ LogGosterici% f

ba?l?k @ LogGosterici - $ strip ($ line (@ LogGosterici, $ 1 -, 1))

)

Ara

. Tum Loglarda (

% Kayitabulunan 0 set

% Kayitaaranan findfile ($ logdir, $ set *. log, 0)

set% kayitaaranan2 0

var% = $ $ input (Eger buyuk log dosyalarina sahipseniz Arama islemi Uzun Zaman alacaktir. Devam etmek istiyorsaniz $ + $ chr (44) aramak istediginizi kutuya yazin. s, eq, Arama)

net @ LogArama ($ window (@ LogArama)) () ise

pencere k0z @ LogArama

var% t = $ keneler

@ LogArama $ + (\ \ \ '% s echo, \ \ \' Click Arama yapiliyor ...)% 0

@ LogArama $ findfile ($ logdir, echo *. log, 0, kayitfilter 1 $% s). Shortfn log dosyasinda $ + (\ \ \ '% s, \ \ \' arandi.) Toplam $ PARANTEZ (% kayitabulunan) sonuc $ tur ($ (($ kenelerin -% t) / 1000), 2) saniyede bulundu kalk.

unset% kayitabulunan% kayitaaranan% kayitaaranan2

)

. $ IIf ($ mouse.lb, $ strip ($ 1)): kayitgosterici.mo $ shortfn ($+($ logdir, $ strip ($ 1)))

. $ IIf (! $ Mouse.lb, $ nopath (% kayitgosterici.aktifkayit)): kayitgosterici.mo% kayitgosterici.aktifkayit

$ IIf ($ mouse.lb, HTML Olustur): strip ($ 1))) $ shortfn ($+($ logdir, $ crlog

$ IIf (! $ Mouse.lb, HTML Olustur): crlog% kayitgosterici.aktifkayit

$ IIf ($ mouse.lb, Logu göster) (

var% f = $ shortfn ($+($ logdir, $ strip ($ 1)))

($ Hatlar? (% e?er f)> 64000) (

Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy, Log Fazla Büyük)) (

ko?mak% f

durdurmak

)

else (halt)

)

set% kayitgosterici.aktifkayit% f

loadbuf-pr @ LogGosterici% f

ba?l?k @ LogGosterici - $ strip ($ 1 -)

)

$ IIf (! $ Mouse.lb & &% kayitgosterici.aktifkayit, de?il Defteriyle Ac): ko?mak% kayitgosterici.aktifkayit

Log Dizinini Ac: ", $ logdir, \ \") $ + (\ \ ko?mak

Sil

. Tum Loglari (

BÜTÜN loglarinizi silmek istediginizden Emin misiniz?, Wy)) (($ input (e?er

net @ LogGosterici

aç?k-l @ LogGosterici

@ Echo LogGosterici Loglar siliniyor ...

. Echo-q $ findfile ($ logdir, *. log, 0,. Kald?rmak $ 1 -). Shortfn

net @ LogGosterici

@ Echo LogGosterici BÜTÜN log dosyalariniz basariyla silindi.

ba?l?k @ LogGosterici - Acik oturum fade

)

. Aktif logu (

($ 1 == $ null) (if

net @ LogGosterici

@ LogGosterici Lutfen tür bir kez silmek istediginiz logu listeden Seçin yank?.

durdurmak

)

var% t = $ sline (@ LogGosterici, 0)

($ Input ($ + $ $ 1 loguni silmek istediginizden Emin misiniz? Not: Oturum su Anda kullanimdaysa silinmeyebilir e?er., Wy)) (

unset% kayitgosterici.aktifkayit

i var% = $ sline (@ LogGosterici, 0)

(% I> ise = 1) (

"LogGosterici, i)% $ logdir, $ strip ($ sline (@ $ + (\ \ kald?r ($ isfile ($ logdir $ + $ strip ($ sline (@ LogGosterici,% i)))) (if. ), \ \ "))

dline-l @ LogGosterici $ sline (@ LogGosterici,% i). ln

Aral?k% i

)

net @ LogGosterici

@ LogGosterici $ PARANTEZ (% t) echo (lar) i basariyla silindi dosyas giri? yap?n.

)

ba?l?k @ LogGosterici - Acik oturum fade

)

Yenile: kayitgosterici.yenile

Kapat: yak?n - @ @ LogGosterici

)

alias crlog (

var% f = $ shortfn ($ IIf ($ 1, $ 1 - $ sfile ($ logdir $ + *. log, Hangi log dosyasindan HTML dosyasi olusturmak istiyorsunuz?, Tamam ))),% o = $ shortfn ($ sfile ($ + (c: \ \ \ \ $ deltok ($ nopath (% f), -1,46),. htm), Bir cikis dosyasi Seçin, Olustur !)),% p = $ keneler

($ Isfile (e?er% f)) (

yazmak-c% o

dialog-m htmlolustur htmlolustur

did-a htmlolustur 1 1 0 999

-Ra htmlolustur yapt?m 2 Olusturuluyor ...

-Ra htmlolustur 3 Kaynak yapt?:

-Ra htmlolustur 4 Satir yapt?:

-Ra htmlolustur 5 Biten yapt?:

-Ra htmlolustur 6 Kalan Sure yapt?:

did-ra htmlolustur 7 $ nopath ($ longfn (% f))

did-ra htmlolustur 8,9,10?

pencere-h @ htmlolustur

var% i = 4,% b = 0,% tt = $ hatlar? (% f),% u = 0

aline @ htmlolustur $ + (<html> <head> <title>, $ nopath ($ longfn (% f )),</ title> </ head> <style type = \ \ "metin / css \ \ "><!--)

aline @ htmlolustur vücut $ chr (123) $ + (background-color = \ \ ", $ hexcolor (arka), \ \"; font-family: \ \ ", $ window ($ aktif). font, \ \ "; font-size: \ \", $ window ($ aktif). "\ \ Yaz?y?; color = \ \", $ hexcolor (normal), \ \ ") $ chr (125 )

aline @ htmlolustur -

loadbuf 1-2001 @ htmlolustur% f

(% U <=% tt) (süre

rline @ htmlolustur% i $ + ($ ($ (@ htmlolustur,% i )),<,& lt ;,>,& gt strip ($ line yerine;), )

(% I == 2001) (if

var% i = 1

inc% b 2001

savebuf-a @ htmlolustur% o

loadbuf $ + ($ calc (% b 1 ),-,$ calc (% b 2001))-r @ htmlolustur% f

devam etmek

)

If (! $ Calc (% i% 100)) (

did-a htmlolustur 1% u% 0 tt

did-ra htmlolustur 8 $ + (% u /% tt)

did-ra htmlolustur 9 $ + ($ int ($ calc (% u /% tt * 100 )),%)

(% U> 5000) (did-ra htmlolustur 10 $ süresi (int $ ($ (($ kenelerin -% p) / 1000 /% u *% tt kalk - (($ kenelerin -% p) / 1000) ise ))))

)

inc% i

inc% u

)

aline @ htmlolustur </ html>

savebuf-a @ htmlolustur $ + (\ \ ",% o, \ \")

yak?n - @ @ htmlolustur

dialog-c htmlolustur

yazmak-L3 $ + (\ \ ",% o, \ \") --></ style> • HTML $ Tarih Tarihinde $ tur ($ calc (($ keneler dosyasi tarafindan log - % p) / 1000), 2) saniyede, • $ nopath ($ longfn (% f)) dosyasindan olusturuldu $ PARANTEZ (Orijinal dosya say?s?% tt SATIR $ + $ chr (44) $ byte ( $ ()% f). dosya boyutu. SUF), )

(HTML yuvarlak ($ (($ kenelerin -% p) / 1000), 2) $ + (saniye icinde basariyla olusturuldu kalk. Dosyasi $ log ($ input e?er $ CRLF, $ CRLF, maddesine ba?lant? veren sayfalar: $ nopath (% o ) $ PARANTEZ ($ byte ($ (% o) dosyas?. boyutunda). SUF), $ CRLF, Kaynak: $ nopath (% f) $ PARANTEZ ($ byte ($ file (% f). boyutunda). SUF) , $ CRLF, Satir:% tt, $ CRLF, $ CRLF, Log Dizini \ \ \ ', $ longfn (% o), \ \ \'. $ CRLF, birsey calistirmak Ba misiniz?), IY, HTML logu )) (url-an% o)

)

else (errdialog maddesine ba?lant? veren sayfalar cikis hatasi% f $ +! )

)

ileti?im htmlolustur (

boyutu -1 -1 120 49

seçenek dBu

metin \ \ "? \ \", 2,2 3 116 8, merkez

Metin "" \ \ \ \ 1,2 12 116 10

metin \ \ "? \ \", 3,2 24 50 8, sa?

metin \ \ "? \ \", 4,2 32 50 8, sa?

metin \ \ "? \ \", 5,2 40 50 8, sa?

metin \ \ "? \ \", 6,2 48 50 8, sa?

metin \ \ "? \ \", 7,55 24 60 8

metin \ \ "? \ \", 8,55 32 60 8

metin \ \ "? \ \", 9,55 40 60 8

metin \ \ "? \ \", 10,55 48 60 8

)

* Do?um: dialog: htmlolustur: init: 0: (

SetMircVersion sürümü $ mdx

MarkDialog dname $ dialog ($ dname) $ mdx. Hwnd

SetControlMDX ProgressBar pürüzsüz> script $ dname 1 mdx \ \ \ \ mdx \ \ \ \ ctl_gen.mdx

SetDialog tarz? dlgmodal $ dname mdx

did-i $ dname 1 1 bgcolor $ rgb (hilight)

did-i $ dname 1 1 barcolor $ rgb (metin)

)

* Do?um: close: @ LogGosterici: (unset% kayitgosterici.aktifkayit)

alias PARANTEZ (return ($ + $ 1 - $ +))

menü kanal, durum (

Ne dinliyorum?: ?ark? #

Log gösterici:. Kayitgosterici

)

» Devamını Oku

Yorum yaz log, mirc, script, sistem

mIRC PnP Progress Bar

28 Şubat 2014 • 00:17 OxiGeN Addonlar

alias _progress.1 (
  yak?n - @ @ Progress @. pbmp
  pencere pfdohkaBz + blt @ Progress $ calc ($ window (-1). w - 330) $ calc ($ window (-1). h - 160) 319 104
  drawrect-FRN @ Progress $ rgb (yüz) 2 0 0 319 104
  _gradient @ Progress 9 69 300 25
  _bevel @ ?lerleme 7 67 304 29
  drawrect-rn @ Progress $ rgb (yüz) 7 0 60 319 44
  drawtext-nr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 16 8 25 $ 1 -
 ; Progress Bar? N sa? Kö? esine görüntü koyabilirsiniz 64 X 64
 ; Drawpic-@ Progress $ nt rgb (255.255.255) 247 1 195 65 64 64 image.ico
  drawdot @ ?lerleme
  pencere hpf @. pbmp 0 0 301 30
  drawcopy @ Progress 9 69 300 28 @. pbmp 0 0
)
alias _progress.2 (
  ($ Window (@ Progress) == $ null) if
  ($ 1&gt; 100) (_recurse e?er _progress.2 100 $ 2 - | geri)
  drawcopy-n @. pbmp 0 0 300 28 @ Progress 9 69
  drawtext-nro @ Progress $ rgb (metin) \ \ "Arial \ \" 24 $ calc (159 - $ geni?li?i ($ 1%, Arial, 24,1,0) / 2) 67 $ 1%
  drawrect-nrif @ Progress 1 0 9 69 $ calc ($ 1 * 3 + 1) 26
  drawrect-FRN @ Progress $ rgb (yüz) 2 8 45 236 21
  drawtext-cnr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 12 8 48 235 99 $ 2 -
  ba?l?k @ ?lerleme - $ 1%
  drawdot @ ?lerleme
  ($ 1 == 100) (if
    timer.kill.progress-mio 1 500 kapat?n. - @ @ Progress @. chr (124) $ pbmp
  )
)
alias-l _bevel (
  drawrect-$ 1 $ rgb (kare) 1 $ nr calc ($ 2 + 1) $ calc ($ 3 + 1) $ calc ($ 4 - 1) $ calc ($ 5 - 1)
  drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + 1) $ calc ($ 3 + $ 5 - 1) $ calc ($ 4 - 1) 2
  drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + $ 4 - 1) $ calc ($ 3 + 1) 2 $ calc ($ 5 - 1)
  drawrect-$ 1 $ rgb (hilight) 1 $ 2 $ 3 $ calc ($ 4 + 1) $ nr calc ($ 5 + 1)
  drawline-nr $ 1 $ rgb (gölge) 1 $ 2 $ calc ($ 3 + $ 5 - 1) $ 2 $ 3 $ calc ($ 2 + $ 4) $ 3
)
alias-l _gradient (
  var% yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2),% r = $ calc ($ rgb (yüz)% 256),% g = $ calc ($ rgb (yüz) / 256% 256), % b = $ calc ($ rgb (yüz) / 65536)
  : LoopL
  drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5)
  (% Yerde $ 2&gt;) (if
    (% R&gt; 2) Aral?k% r 3 e?er
    %) Aral?k% g 3&gt; 2 g (e?er
    (% B&gt; e?er 2) Aral?k% b 3
    Aral?k% yerde 8
    goto loopL
  )
  % Yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2)
  % R = $ calc ($ rgb (yüz)% 256)
  % G = $ calc ($ rgb (yüz) / 256% 256)
  % B = $ calc ($ rgb (yüz) / 65536)
  var% hedefi = $ calc ($ 2 + $ 4 + $ 5)
  : LoopR
  drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5)
  (% Yer &lt;% gol) (if
    (% R &lt;250) inc% r 3 e?er
    %) Inc% g 3 &lt;250 g (e?er
    (% B &lt;250) inc% b 3 e?er
    inc% yerde 8
    goto loopR
  )
)
alias $ 1 - | return $ result _recurse

alias _progress.1 (

yak?n - @ @ Progress @. pbmp

pencere pfdohkaBz + blt @ Progress $ calc ($ window (-1). w - 330) $ calc ($ window (-1). h - 160) 319 104

drawrect-FRN @ Progress $ rgb (yüz) 2 0 0 319 104

_gradient @ Progress 9 69 300 25

_bevel @ ?lerleme 7 67 304 29

drawrect-rn @ Progress $ rgb (yüz) 7 0 60 319 44

drawtext-nr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 16 8 25 $ 1 -

; Progress Bar? N sa? Kö? esine görüntü koyabilirsiniz 64 X 64

; Drawpic-@ Progress $ nt rgb (255.255.255) 247 1 195 65 64 64 image.ico

drawdot @ ?lerleme

pencere hpf @. pbmp 0 0 301 30

drawcopy @ Progress 9 69 300 28 @. pbmp 0 0

)

alias _progress.2 (

($ Window (@ Progress) == $ null) if

($ 1> 100) (_recurse e?er _progress.2 100 $ 2 - | geri)

drawcopy-n @. pbmp 0 0 300 28 @ Progress 9 69

drawtext-nro @ Progress $ rgb (metin) \ \ "Arial \ \" 24 $ calc (159 - $ geni?li?i ($ 1%, Arial, 24,1,0) / 2) 67 $ 1%

drawrect-nrif @ Progress 1 0 9 69 $ calc ($ 1 * 3 + 1) 26

drawrect-FRN @ Progress $ rgb (yüz) 2 8 45 236 21

drawtext-cnr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 12 8 48 235 99 $ 2 -

ba?l?k @ ?lerleme - $ 1%

drawdot @ ?lerleme

($ 1 == 100) (if

timer.kill.progress-mio 1 500 kapat?n. - @ @ Progress @. chr (124) $ pbmp

)

alias-l _bevel (

drawrect-$ 1 $ rgb (kare) 1 $ nr calc ($ 2 + 1) $ calc ($ 3 + 1) $ calc ($ 4 - 1) $ calc ($ 5 - 1)

drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + 1) $ calc ($ 3 + $ 5 - 1) $ calc ($ 4 - 1) 2

drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + $ 4 - 1) $ calc ($ 3 + 1) 2 $ calc ($ 5 - 1)

drawrect-$ 1 $ rgb (hilight) 1 $ 2 $ 3 $ calc ($ 4 + 1) $ nr calc ($ 5 + 1)

drawline-nr $ 1 $ rgb (gölge) 1 $ 2 $ calc ($ 3 + $ 5 - 1) $ 2 $ 3 $ calc ($ 2 + $ 4) $ 3

)

alias-l _gradient (

var% yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2),% r = $ calc ($ rgb (yüz)% 256),% g = $ calc ($ rgb (yüz) / 256% 256), % b = $ calc ($ rgb (yüz) / 65536)

: LoopL

drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5)

(% Yerde $ 2>) (if

(% R> 2) Aral?k% r 3 e?er

%) Aral?k% g 3> 2 g (e?er

(% B> e?er 2) Aral?k% b 3

Aral?k% yerde 8

goto loopL

)

% Yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2)

% R = $ calc ($ rgb (yüz)% 256)

% G = $ calc ($ rgb (yüz) / 256% 256)

% B = $ calc ($ rgb (yüz) / 65536)

var% hedefi = $ calc ($ 2 + $ 4 + $ 5)

: LoopR

drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5)

(% Yer <% gol) (if

(% R <250) inc% r 3 e?er

%) Inc% g 3 <250 g (e?er

(% B <250) inc% b 3 e?er

inc% yerde 8

goto loopR

)

alias $ 1 - | return $ result _recurse

» Devamını Oku

Yorum yaz bar, mirc, pnp, progress

mIRC Baska Nickle Gireni Belirleme Kodu

28 Şubat 2014 • 00:13 OxiGeN Addonlar

1: start: (. Hmake nicksch 100)
1art Do?um: #: (($ comchan ($ nick, 0) &lt;2) (nick $ site)) $ nicksgrab e?er
1: ç?k?n: (nick $ site) $ nicksgrab
1: kick: #: (
($ Comchan ($ önemsiz, e?er 0) &lt;2) (
?v?r $ ifmatch) $ nicksgrab ($ ial ($ ?v?r birlikte). host! = $ null) (
)
)
alias (nicksgrab
. $ Nicksch hadd IIf (($ gettok ($ 2, -1,46) == virtuel) &amp; &amp; ($ numtok (2,46 $)&gt; 3 ),$+($ gettok ($ 2,1-2, 46). virtuel), $ 2) $ 1
)
NicksTrouve (alias
var% a = $ IIf (($ gettok ($ 2, -1,46) == virtuel) &amp; &amp; ($ numtok (2,46 $)&gt; 3 ),$+($ gettok ($ 2,1-2 , 46). virtuel), $ 2)
return $ IIf ($ hget (nicksch,% a)! = $ 1, $ ifmatch)
)
1: JOIN: #: (
var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2Onceki Nicki? 4]? 12 $ ifmatch?)
(% NickPrecedent) (echo-tm $ chan $ ifmatch) e?er
)

1: start: (. Hmake nicksch 100)

1art Do?um: #: (($ comchan ($ nick, 0) <2) (nick $ site)) $ nicksgrab e?er

1: ç?k?n: (nick $ site) $ nicksgrab

1: kick: #: (

($ Comchan ($ önemsiz, e?er 0) <2) (

?v?r $ ifmatch) $ nicksgrab ($ ial ($ ?v?r birlikte). host! = $ null) (

)

alias (nicksgrab

. $ Nicksch hadd IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2, 46). virtuel), $ 2) $ 1

)

NicksTrouve (alias

var% a = $ IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2 , 46). virtuel), $ 2)

return $ IIf ($ hget (nicksch,% a)! = $ 1, $ ifmatch)

)

1: JOIN: #: (

var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2Onceki Nicki? 4]? 12 $ ifmatch?)

(% NickPrecedent) (echo-tm $ chan $ ifmatch) e?er

)

» Devamını Oku

Yorum yaz addon, belirleme, mirc, Nick

mIRC Lag Addon

28 Şubat 2014 • 00:12 OxiGeN Addonlar

alias lag { set %lag $ticks | .quote PING $ticks }
on ^*:PONG:{
  if (%lag) {
    echo -a * Lag: $calc($ticks - $iif($2 isnum,$2,%lag))  ( $+ $nick $+ )
    unset %lag
    haltdef
  }
}

alias lag { set %lag $ticks | .quote PING $ticks }

on ^*:PONG:{

if (%lag) {

echo -a * Lag: $calc($ticks - $iif($2 isnum,$2,%lag)) ( $+ $nick $+ )

unset %lag

haltdef

}

» Devamını Oku

Yorum yaz addon, lag, mirc

Blackjack Oyunu Addon

27 Şubat 2014 • 22:21 OxiGeN Addonlar

;##############################################
;## !21 cards game ############################
;#########################   by cabadak  ######
;##############################################
on *:text:!21:#: {
  if !$timer(21cardgame) { set %chan21game $chan | .timer21cardgame 0 180 puansirala }
  if (%21jog != on) {
    set %21jog on
    set %21player-1 $nick
    msg $chan Oyun 2 kişiliktir ve bir kişi daha kanala !21 yazıp oyuna katılmalıdır, please wait ..
    .timer_21-onlyone 1 30 player-me $chan
    set %21para-jog-1 off
    halt
  }
  if (%21jog == on) &amp;&amp; (!%21player-2) &amp;&amp; ($nick != %21player-1) {
    .timer_21-onlyone off
    set %21player-2 $nick
    set %21game-starts ok
    .notice %21player-1 " !puan " yazın.. 21 sayıya ulaşan ve en yaklaşan kazanır.  
    .notice %21player-2 21 oyunu blackjack. 21'e en yakın sayısı olan kazanır. 
    msg $chan 1Oyun başlıyor, oyuncular şu kişiler :  4 %21player-1 1-4 %21player-2 
    msg $chan 4 %21player-1 1 sen başlıyorsun hemen kartını çek (!card)
    set %21jogada-jog 1
    set %21para-jog-2 off
    .timer_end-21 1 62 encerra-21 $chan
  }
}
on *:text:!puan*:#: {
  if $1 == !puanreset &amp;&amp; $nick isop $chan {  unset %wins* | msg # blackjack puan listesi sıfırlandı. (4reset1) | .timer21cardgame off | return }
  if !$2 &amp;&amp; $($+(%,wins,$nick)) { msg #  $+(,$nick,) : 2 $($+(%,wins,$nick),2) 1puanınız var ve2 $calc($($+(%,wins,$nick),2) / 5 ) 1kez kazandınız.  } 
  if !$2 &amp;&amp; !$($+(%,wins,$nick)) { msg # $+(,$nick,) : 2 0 puanınız var malesef hiç kazanamadınız. }
}
alias puansirala {
  var %i 1
  while $var(%wins*,%i) {
    var %ml $var(%wins*,%i).value 
    var %gl $remove($var(%wins*,%i),%,wins)
    var %kazanan %kazanan $+(%ml,.,%gl)
    inc %i
  }
  var %kaz $sorttok(%kazanan,32,nr) 
  tokenize 32 %kaz
  msg %chan21game 4Blackjack En iyi ilk 5 : 1) $+(10,$gettok($1,2,46),) -&gt; $gettok($1,1,46) $+(13,$chr(124),) 2) $+(10,$gettok($2,2,46),) -&gt; $gettok($2,1,46) $+(13,$chr(124),) 3) $+(10,$gettok($3,2,46),) : $gettok($3,1,46) $+(13,$chr(124),) 4) $+(10,$gettok($4,2,46),) -&gt; $gettok($4,1,46) $+(13,$chr(124),) 5) $+(10,$gettok($$5,2,46),) -&gt; $gettok($$5,1,46)
}

alias player-me {
  msg $1 4  %21player-1 $+   1ikimiz oynuyoruz ..
  set %21player-2 $me
  set %21jogada-jog 1
  set %21para-jog-2 off
  msg $1 1Oyun başlıyor, oyuncular şu kişiler :4 %21player-1 1-4 %21player-2
  msg $1 4 %21player-1 1sen başlıyorsun, kanala !card yazarak kartını çek.
  .timer_end-21 1 62 encerra-21 $1
}
alias me-play {
  if (%21jogada-jog == 2)  &amp;&amp; ($me == %21player-2) {
    set %carta-jog-2 $rand(1,13)
    if (!%21cards-value-2) {
      set %21cards-value-2 %carta-jog-2
      set %21cards-player-2 $pass-to-card(%carta-jog-2)
      set %21jogada-jog 1
      msg $1 !card
      calc-next-orstop %21cards-value-2 %21player-2 $1
    }
    else {
      set %21jogada-jog 1
      set %21cards-value-2 $calc(%21cards-value-2 + %carta-jog-2)
      set %21cards-player-2 %21cards-player-2 $pass-to-card(%carta-jog-2)
      var %21me-play = %21cards-value-2
      if (%21me-play isnum 15-18) {
        var %me-play = $rand(1,2)
        if (%me-play == 1) {
          msg $1 !card
          calc-next-orstop %21cards-value-2 %21player-2 $1
          .timer_end-21 1 62 encerra-21 $1
          halt
        }
        if (%me-play == 2) {
          set %21para-jog-2 on
          msg $1 !comp
          if (%21para-jog-1 !== on) {
            calc-next-orstop %21cards-value-2 %21player-2 $1
            .timer_end-21 1 62 encerra-21 $1
            halt
          }
          if (%21para-jog-1 == on) {
            who-winns-21 $1
          }
        }
        halt
      }
      if (%21me-play isnum 1-14) {
        msg $1 !card
        calc-next-orstop %21cards-value-2 %21player-2 $1
        .timer_end-21 1 62 encerra-21 $1
        halt
      }
      if (%21me-play isnum 19-20) {
        set %21para-jog-2 on
        msg $1 !comp
        if (%21para-jog-1 !== on) {
          calc-next-orstop %21cards-value-2 %21player-2 $1
          .timer_end-21 1 62 encerra-21 $1
        }
        if (%21para-jog-1 !== on) {
          calc-next-orstop %21cards-value-2 %21player-2 $1
          .timer_end-21 1 62 encerra-21 $1
          halt
        }
        if (%21para-jog-1 == on) {
          who-winns-21 $1
          halt
        }
        halt
      }
      if (%21me-play == 21) {
        msg $1 !card
        calc-next-orstop %21cards-value-2 %21player-2 $1
      }
      if (%21me-play isnum 22-1000) {
        calc-next-orstop %21cards-value-2 %21player-2 $1
        .timer_end-21 off
        halt
      }
    }
  }
}
on *:text:!card:#: {
  if (%21jogada-jog == 1) &amp;&amp; ($nick == %21player-1) &amp;&amp; (%21player-2 != $me) {
    set %carta-jog-1 $rand(1,13)
    if (!%21cards-value-1) {
      set %21cards-value-1 %carta-jog-1
      set %21cards-player-1 $pass-to-card(%carta-jog-1)
      set %21jogada-jog 2
      .notice $nick 14kart:3 %21cards-player-1
      .notice $nick 14sayı:3 %21cards-value-1
      calc-next-orstop %21cards-value-1 %21player-1 $chan
      .timer_end-21 1 62 encerra-21 $chan
      halt
    }
    else {
      set %21jogada-jog 2
      set %21cards-value-1 $calc(%21cards-value-1 + %carta-jog-1)
      set %21cards-player-1 %21cards-player-1 $pass-to-card(%carta-jog-1)
      .notice $nick 14kart:3 %21cards-player-1
      .notice $nick 14sayı:3 %21cards-value-1
      calc-next-orstop %21cards-value-1 %21player-1 $chan
      halt
    }
  }
  if (%21jogada-jog == 1) &amp;&amp; ($nick == %21player-1) &amp;&amp; (%21player-2 == $me) {
    set %carta-jog-1 $rand(1,13)
    if (!%21cards-value-1) {
      set %21cards-value-1 %carta-jog-1
      set %21cards-player-1 $pass-to-card(%carta-jog-1)
      set %21jogada-jog 2
      .notice $nick 14kart:3 %21cards-player-1
      .notice $nick 14sayı:3 %21cards-value-1
      calc-next-orstop %21cards-value-1 %21player-1 $chan
      .timer_end-21 1 62 encerra-21 $chan
      halt
    }
    else {
      set %21jogada-jog 2
      set %21cards-value-1 $calc(%21cards-value-1 + %carta-jog-1)
      set %21cards-player-1 %21cards-player-1 $pass-to-card(%carta-jog-1)
      .notice $nick 14kart:3 %21cards-player-1
      .notice $nick 14sayı:3 %21cards-value-1
      calc-next-orstop %21cards-value-1 %21player-1 $chan
      .timer_end-21 1 62 encerra-21 $chan
      halt
    }
  }
  if (%21jogada-jog == 2)  &amp;&amp; ($nick == %21player-2) {
    set %carta-jog-2 $rand(1,13)
    if (!%21cards-value-2) {
      set %21cards-value-2 %carta-jog-2
      set %21cards-player-2 $pass-to-card(%carta-jog-2)
      set %21jogada-jog 1
      .notice $nick 14kart:3 %21cards-player-2
      .notice $nick 14sayı:3 %21cards-value-2
      calc-next-orstop %21cards-value-2 %21player-2 $chan
      .timer_end-21 1 62 /encerra-21 $chan
      halt
    }
    if (%21cards-value-2) {
      set %21jogada-jog 1
      set %21cards-value-2 $calc(%21cards-value-2 + %carta-jog-2)
      set %21cards-player-2 %21cards-player-2 $pass-to-card(%carta-jog-2)
      .notice $nick 14kart:3 %21cards-player-2
      .notice $nick 14sayı:3 %21cards-value-2
      calc-next-orstop %21cards-value-2 %21player-2 $chan
      .timer_end-21 1 62 encerra-21 $chan
      halt
    }
  }
}
alias encerra-21 {
  if (%21jog == on) {
    who-winns-21 $1
  }
  else {
    acaba-21
  }
}
alias calc-next-orstop {
  if (%21player-2 != $me) {
    if ($1 &gt; 21) &amp;&amp; ($2 == %21player-1)  { msg $3 1BOOOOOOOOOOMMMM!!  4  $2  1çektiğin kart ile 21'i geçtin, oyunu kaybettin.  %21cards-player-1  1Toplam %21cards-value-1 |  .timer_end-21 off | msg $3  KAZANAN4 %21player-2  1çektiği kartlar-&gt; %21cards-player-2  1Kartların toplamı-&gt; %21cards-value-2 | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | acaba-21 | halt }
    if ($1 == 21) &amp;&amp; ($2 == %21player-1)  { msg $3 4KAZANAN4  %21player-1  1çektiği kartlar, %21cards-player-1 toplam, %21cards-value-1 | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }
    if ($1 &lt; 21) &amp;&amp; ($2 == %21player-1) {
      if (%21para-jog-2 !== on) { msg $3 4  %21player-2 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın. }
      if (%21para-jog-2 == on) { set %21jogada-jog 1 | msg $3 4 %21player-1 4sıra sende. Kanala !card yaz ve kartını çek. Eğer kart istemiyorsan !comp yaz.  |  .timer_end-21 1 62 encerra-21 $3 | halt }
    }
    if ($1 &gt; 21) &amp;&amp; ($2 == %21player-2) { msg $3  1BOOOOOOOOOOMMMM! !4  $2 1çektiğin kart ile oyunu kaybettin. -&gt; %21cards-player-2 1toplam-&gt;  %21cards-value-2 1 | msg $3  1KAZANAN -&gt;4 %21player-1 1çektiği kartlar-&gt;  %21cards-player-1 1Elinin toplamı-&gt; %21cards-value-1  | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }
    if ($1 == 21) &amp;&amp; ($2 == %21player-2) { msg $3 1KAZANAN 4 %21player-2 1kartlar-&gt;  %21cards-player-2 1toplamı-&gt; %21cards-value-2  | inc $+(%,wins,%21player-2) 5 |  .timer_end-21 off | acaba-21 | halt | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) }
    if ($1 &lt; 21) &amp;&amp; ($2 == %21player-2) {
      if (%21para-jog-1 !== on) { msg $3 4 %21player-1 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et..   | halt }
      if (%21para-jog-1 == on)  { set %21jogada-jog 2 | msg $3 4 %21player-2 1sıra sende dostum. Kanala !card yaz ve kartını çek, elindeki kartlar yeterliyse !comp yaz ve rakibini bekle..  |  .timer_end-21 1 62 /encerra-21 $3 | halt }
    }
  }
  if (%21player-2 == $me) {
    if ($1 &gt; 21) &amp;&amp; ($2 == %21player-1)  { msg $3  1BOOOOOOOOOOMMMM!!!!4 $2 1kaybettin. Kartların -&gt;  %21cards-player-1  1toplamda -&gt; %21cards-value-1 sayı. |  .timer_end-21 off | msg $3  1KAZANAN OYUNCU -&gt; 4 %21player-2 1elindeki kartlar-&gt; %21cards-player-2 1toplamda ise-&gt; %21cards-value-2 1sayı. | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | acaba-21 | halt }
    if ($1 == 21) &amp;&amp; ($2 == %21player-1)  { msg $3 1KAZANAN4 %21player-1 1ÇEKTİĞİ TÜM KARTLAR -&gt;  %21cards-player-1 1ÇEKTİĞİ TÜM KARTLARİN TOPLAM SAYISI -&gt;4 %21cards-value-1 ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }
    if ($1 &lt; 21) &amp;&amp; ($2 == %21player-1) {
      if (%21para-jog-2 !== on) { msg $3  SIRA BENDE ! | me-play $3 }
      if (%21para-jog-2 == on) { set %21jogada-jog 1 | msg $3 4 %21player-1 1oyna aslan parçası.. Kartını çekmek için !card yaz. Eğer elindeki sayılar yeterli ise !comp yaz ama acele et..  |  .timer_end-21 1 62 encerra-21 $3 | halt }
    }
    if ($1 &gt; 21) &amp;&amp; ($2 == %21player-2) { /msg $3 1BOOOOOOOOOOMMMM  4 $2 1oyunu kaybettin. Senin kartların -&gt;  %21cards-player-2 1kartlarin toplamı -&gt;  %21cards-value-2  | inc $+(%,wins,%21player-1) 5 | msg $3 KAZANAN4 %21player-1  1İŞTE ŞU KARTLARI ÇEKTİ -&gt;  %21cards-player-1 1 VE ÇEKTİĞİ KARTLARIN TOPLAMI -&gt;  %21cards-value-1  ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }
    if ($1 == 21) &amp;&amp; ($2 == %21player-2) { msg $3 1KAZANAN 4 %21player-2 1 KARTLARI-&gt;  %21cards-player-2 1TOPLAMI-&gt;  %21cards-value-2  | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) |   .timer_end-21 off | acaba-21 | halt }
    if ($1 &lt; 21) &amp;&amp; ($2 == %21player-2) {
      if (%21para-jog-1 !== on) { msg $3 4 %21player-1 1sıra sende gençoğlan. Kanala !card yaz ve  çek. kart istemiyore !comp yaziyore.. | halt }
      if (%21para-jog-1 == on)  { set %21jogada-jog 2 | msg $3 1şimdi ise ben çekiyorum ve çektimm.. ! | .timer_end-21  off | .timer_only-me-play 1 2 me-play $3 |  halt }
    }
  }
}
alias acaba-21 {
  set %21jog off
  unset %21player-1 %21player-2 %21cards-value-1 %21cards-player-1 %21cards-value-2 %21cards-player-2 %21game-starts
}
on *:text:!comp:#: {
  if (%21jog == on) &amp;&amp; (%21player-2) {
    if ($var(%21cards-player*,0) &gt; 1) {
      if (%21player-2 != $me) {
        if (%21jogada-jog == 1) {
          if ($nick == %21player-1) &amp;&amp; (%21para-jog-2 !== on) { set %21para-jog-1 on | set %21jogada-jog 2 | msg $chan 4 %21player-2 1kart çekmek için !card yazmalısın , kart çekmemek ve rakibi beklemek için ise !comp yazmalısın canım.  |  .timer_end-21 1 62 encerra-21 $chan | halt }
          if ($nick == %21player-1) &amp;&amp; (%21para-jog-2 == on) { who-winns-21 $chan |  .timer_end-21 off }
        }
        if (%21jogada-jog == 2) {
          if ($nick == %21player-2) &amp;&amp; (%21para-jog-1 !== on) { set %21para-jog-2 on | set %21jogada-jog 1 | msg $chan 4 %21player-1 1oyna koçum! Yapacağın şey basit? Kart istiyorsan !card yazıyorsun, kart istemiyorsan !comp yazıyorsun.. understand me?   |  .timer_end-21 1 62 encerra-21 $chan  | halt }
          if ($nick == %21player-2) &amp;&amp; (%21para-jog-1 == on) { who-winns-21 $chan |  .timer_end-21 off }
        }
      }
      if (%21player-2 == $me) {
        if (%21jogada-jog == 1) {
          if ($nick == %21player-1) &amp;&amp; (%21para-jog-2 !== on) { set %21para-jog-1 on | set %21jogada-jog 2 | msg $chan ŞİMDİ DE BEN ÇEKİYORUM, ALLAH ÇEKTİRMESİN HOPPA.. Rule! | .timer_end-21 off | .timer_only-me-play 1 2 me-play $chan | halt }
          if ($nick == %21player-1) &amp;&amp; (%21para-jog-2 == on) { who-winns-21 $chan |  .timer_end-21 off }
        }
        if (%21jogada-jog == 2) {
          if ($nick == %21player-2) &amp;&amp; (%21para-jog-1 !== on) { set %21para-jog-2 on | set %21jogada-jog 1 | msg $chan 4 %21player-1 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et..   |  .timer_end-21 1 62 encerra-21 $chan  | halt }
          if ($nick == %21player-2) &amp;&amp; (%21para-jog-1 == on) { who-winns-21 $chan |  .timer_end-21 off }
        }
      }
    }
    else { msg $chan 1ilk önce bi kart çek ondan sonra compla uyanıkmısın nesin ak :4 !card }
  }
}
alias who-winns-21 {
  if ($var(%21cards-player*,0) &gt; 1) {
    set %21total-jog-1 $calc(21 - %21cards-value-1)
    set %21total-jog-2 $calc(21 - %21cards-value-2)
    if (%21total-jog-1 &lt; %21total-jog-2) {  .timer_end-21 off | msg $1  1KAZANAN4 %21player-1 1 kart's-&gt; %21cards-player-1 tötal's-&gt;  %21cards-value-1  | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) | msg $1  1KAYBEDEN4 %21player-2 1kart's -&gt; %21cards-player-2 1tötal's-&gt; %21cards-value-2  | acaba-21 | halt }
    if (%21total-jog-1 &gt; %21total-jog-2) {  .timer_end-21 off | msg $1  1KAZANAN4 %21player-2 1elindeki kartlar-&gt; %21cards-player-2 1Toplamı-&gt; %21cards-value-2 | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | msg $1 1KAYBEDEN 4 %21player-1 1elindeki kartları-&gt; %21cards-player-1 1toplamı-&gt; %21cards-value-1  | acaba-21 | halt }
    if (%21total-jog-1 == %21total-jog-2) &amp;&amp; ($var(%cartas-jog*,0) = 2) {  .timer_end-21 off | msg $1 Oyun Bitti.. !  | msg $1    %21player-1  KARTLAR-&gt; %21cards-player-1 TOPLAM-&gt; %21cards-value-1 | msg $1  %21player-2  1kart's-&gt; %21cards-player-2 1toplam-&gt; %21cards-value-2  | acaba-21 | halt } 
  }
  else { msg $1 oyun bitti ve kazanan yok.!  | acaba-21 }
}
alias pass-to-card {
  set %21cor  $rand(1,2)
  if (%21cor == 1) { set %21cort 1 }
  if (%21cor == 2) { set %21cort 4 }
  if ($1 == 1) { return  $+ %21cort $+ ,0 $+ [A] }
  if ($1 == 2) { return  $+ %21cort $+ ,0 $+ [2] }
  if ($1 == 3) { return  $+ %21cort $+ ,0 $+ [3] }
  if ($1 == 4) { return  $+ %21cort $+ ,0 $+ [4] }
  if ($1 == 5) { return  $+ %21cort $+ ,0 $+ [5] }
  if ($1 == 6) { return  $+ %21cort $+ ,0 $+ [6] }
  if ($1 == 7) { return  $+ %21cort $+ ,0 $+ [7] }
  if ($1 == 8) { return  $+ %21cort $+ ,0 $+ [8] }
  if ($1 == 9) { return  $+ %21cort $+ ,0 $+ [9] }
  if ($1 == 10) { return  $+ %21cort $+ ,0 $+ [10] }
  if ($1 == 11) { return  $+ %21cort $+ ,0 $+ [J] }
  if ($1 == 12) { return  $+ %21cort $+ ,0 $+ [Q] }
  if ($1 == 13) { return  $+ %21cort $+ ,0 $+ [K] }
  if ($1 == 21) { return  $+ %21cort $+ ,0 $+ [G] }


<b><span style="color: black">-Blackjack oyunu 2 kişi ile oynanır.</span></b>
<b><span style="color: black">-Oyuna katılmak için kanala !21 yazmalısınız.</span></b>
<b><span style="color: black">-Aynen diğer kişide !21 yazmalıdır.</span></b>
<b><span style="color: black">-Kart istemek için !card</span></b>
<b><span style="color: black">-Kart istemiyorum !comp</span></b>
<b>-Puan için !puan</b>
<b><span style="color: black">-Beraberlik halinde !comp kullanamazsınız kart cekmelisiniz.</span></b>

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

;##############################################

;## !21 cards game ############################

;######################### by cabadak ######

;##############################################

on *:text:!21:#: {

if !$timer(21cardgame) { set %chan21game $chan | .timer21cardgame 0 180 puansirala }

if (%21jog != on) {

set %21jog on

set %21player-1 $nick

msg $chan Oyun 2 kişiliktir ve bir kişi daha kanala !21 yazıp oyuna katılmalıdır, please wait ..

.timer_21-onlyone 1 30 player-me $chan

set %21para-jog-1 off

halt

}

if (%21jog == on) && (!%21player-2) && ($nick != %21player-1) {

.timer_21-onlyone off

set %21player-2 $nick

set %21game-starts ok

.notice %21player-1 " !puan " yazın.. 21 sayıya ulaşan ve en yaklaşan kazanır.

.notice %21player-2 21 oyunu blackjack. 21'e en yakın sayısı olan kazanır.

msg $chan 1Oyun başlıyor, oyuncular şu kişiler : 4 %21player-1 1-4 %21player-2

msg $chan 4 %21player-1 1 sen başlıyorsun hemen kartını çek (!card)

set %21jogada-jog 1

set %21para-jog-2 off

.timer_end-21 1 62 encerra-21 $chan

}

on *:text:!puan*:#: {

if $1 == !puanreset && $nick isop $chan { unset %wins* | msg # blackjack puan listesi sıfırlandı. (4reset1) | .timer21cardgame off | return }

if !$2 && $($+(%,wins,$nick)) { msg # $+(,$nick,) : 2 $($+(%,wins,$nick),2) 1puanınız var ve2 $calc($($+(%,wins,$nick),2) / 5 ) 1kez kazandınız. }

if !$2 && !$($+(%,wins,$nick)) { msg # $+(,$nick,) : 2 0 puanınız var malesef hiç kazanamadınız. }

}

alias puansirala {

var %i 1

while $var(%wins*,%i) {

var %ml $var(%wins*,%i).value

var %gl $remove($var(%wins*,%i),%,wins)

var %kazanan %kazanan $+(%ml,.,%gl)

inc %i

}

var %kaz $sorttok(%kazanan,32,nr)

tokenize 32 %kaz

msg %chan21game 4Blackjack En iyi ilk 5 : 1) $+(10,$gettok($1,2,46),) -> $gettok($1,1,46) $+(13,$chr(124),) 2) $+(10,$gettok($2,2,46),) -> $gettok($2,1,46) $+(13,$chr(124),) 3) $+(10,$gettok($3,2,46),) : $gettok($3,1,46) $+(13,$chr(124),) 4) $+(10,$gettok($4,2,46),) -> $gettok($4,1,46) $+(13,$chr(124),) 5) $+(10,$gettok($$5,2,46),) -> $gettok($$5,1,46)

}

alias player-me {

msg $1 4 %21player-1 $+ 1ikimiz oynuyoruz ..

set %21player-2 $me

set %21jogada-jog 1

set %21para-jog-2 off

msg $1 1Oyun başlıyor, oyuncular şu kişiler :4 %21player-1 1-4 %21player-2

msg $1 4 %21player-1 1sen başlıyorsun, kanala !card yazarak kartını çek.

.timer_end-21 1 62 encerra-21 $1

}

alias me-play {

if (%21jogada-jog == 2) && ($me == %21player-2) {

set %carta-jog-2 $rand(1,13)

if (!%21cards-value-2) {

set %21cards-value-2 %carta-jog-2

set %21cards-player-2 $pass-to-card(%carta-jog-2)

set %21jogada-jog 1

msg $1 !card

calc-next-orstop %21cards-value-2 %21player-2 $1

}

else {

set %21jogada-jog 1

set %21cards-value-2 $calc(%21cards-value-2 + %carta-jog-2)

set %21cards-player-2 %21cards-player-2 $pass-to-card(%carta-jog-2)

var %21me-play = %21cards-value-2

if (%21me-play isnum 15-18) {

var %me-play = $rand(1,2)

if (%me-play == 1) {

msg $1 !card

calc-next-orstop %21cards-value-2 %21player-2 $1

.timer_end-21 1 62 encerra-21 $1

halt

}

if (%me-play == 2) {

set %21para-jog-2 on

msg $1 !comp

if (%21para-jog-1 !== on) {

calc-next-orstop %21cards-value-2 %21player-2 $1

.timer_end-21 1 62 encerra-21 $1

halt

}

if (%21para-jog-1 == on) {

who-winns-21 $1

}

halt

}

if (%21me-play isnum 1-14) {

msg $1 !card

calc-next-orstop %21cards-value-2 %21player-2 $1

.timer_end-21 1 62 encerra-21 $1

halt

}

if (%21me-play isnum 19-20) {

set %21para-jog-2 on

msg $1 !comp

if (%21para-jog-1 !== on) {

calc-next-orstop %21cards-value-2 %21player-2 $1

.timer_end-21 1 62 encerra-21 $1

}

if (%21para-jog-1 !== on) {

calc-next-orstop %21cards-value-2 %21player-2 $1

.timer_end-21 1 62 encerra-21 $1

halt

}

if (%21para-jog-1 == on) {

who-winns-21 $1

halt

}

halt

}

if (%21me-play == 21) {

msg $1 !card

calc-next-orstop %21cards-value-2 %21player-2 $1

}

if (%21me-play isnum 22-1000) {

calc-next-orstop %21cards-value-2 %21player-2 $1

.timer_end-21 off

halt

}

on *:text:!card:#: {

if (%21jogada-jog == 1) && ($nick == %21player-1) && (%21player-2 != $me) {

set %carta-jog-1 $rand(1,13)

if (!%21cards-value-1) {

set %21cards-value-1 %carta-jog-1

set %21cards-player-1 $pass-to-card(%carta-jog-1)

set %21jogada-jog 2

.notice $nick 14kart:3 %21cards-player-1

.notice $nick 14sayı:3 %21cards-value-1

calc-next-orstop %21cards-value-1 %21player-1 $chan

.timer_end-21 1 62 encerra-21 $chan

halt

}

else {

set %21jogada-jog 2

set %21cards-value-1 $calc(%21cards-value-1 + %carta-jog-1)

set %21cards-player-1 %21cards-player-1 $pass-to-card(%carta-jog-1)

.notice $nick 14kart:3 %21cards-player-1

.notice $nick 14sayı:3 %21cards-value-1

calc-next-orstop %21cards-value-1 %21player-1 $chan

halt

}

if (%21jogada-jog == 1) && ($nick == %21player-1) && (%21player-2 == $me) {

set %carta-jog-1 $rand(1,13)

if (!%21cards-value-1) {

set %21cards-value-1 %carta-jog-1

set %21cards-player-1 $pass-to-card(%carta-jog-1)

set %21jogada-jog 2

.notice $nick 14kart:3 %21cards-player-1

.notice $nick 14sayı:3 %21cards-value-1

calc-next-orstop %21cards-value-1 %21player-1 $chan

.timer_end-21 1 62 encerra-21 $chan

halt

}

else {

set %21jogada-jog 2

set %21cards-value-1 $calc(%21cards-value-1 + %carta-jog-1)

set %21cards-player-1 %21cards-player-1 $pass-to-card(%carta-jog-1)

.notice $nick 14kart:3 %21cards-player-1

.notice $nick 14sayı:3 %21cards-value-1

calc-next-orstop %21cards-value-1 %21player-1 $chan

.timer_end-21 1 62 encerra-21 $chan

halt

}

if (%21jogada-jog == 2) && ($nick == %21player-2) {

set %carta-jog-2 $rand(1,13)

if (!%21cards-value-2) {

set %21cards-value-2 %carta-jog-2

set %21cards-player-2 $pass-to-card(%carta-jog-2)

set %21jogada-jog 1

.notice $nick 14kart:3 %21cards-player-2

.notice $nick 14sayı:3 %21cards-value-2

calc-next-orstop %21cards-value-2 %21player-2 $chan

.timer_end-21 1 62 /encerra-21 $chan

halt

}

if (%21cards-value-2) {

set %21jogada-jog 1

set %21cards-value-2 $calc(%21cards-value-2 + %carta-jog-2)

set %21cards-player-2 %21cards-player-2 $pass-to-card(%carta-jog-2)

.notice $nick 14kart:3 %21cards-player-2

.notice $nick 14sayı:3 %21cards-value-2

calc-next-orstop %21cards-value-2 %21player-2 $chan

.timer_end-21 1 62 encerra-21 $chan

halt

}

alias encerra-21 {

if (%21jog == on) {

who-winns-21 $1

}

else {

acaba-21

}

alias calc-next-orstop {

if (%21player-2 != $me) {

if ($1 > 21) && ($2 == %21player-1) { msg $3 1BOOOOOOOOOOMMMM!! 4 $2 1çektiğin kart ile 21'i geçtin, oyunu kaybettin. %21cards-player-1 1Toplam %21cards-value-1 | .timer_end-21 off | msg $3 KAZANAN4 %21player-2 1çektiği kartlar-> %21cards-player-2 1Kartların toplamı-> %21cards-value-2 | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | acaba-21 | halt }

if ($1 == 21) && ($2 == %21player-1) { msg $3 4KAZANAN4 %21player-1 1çektiği kartlar, %21cards-player-1 toplam, %21cards-value-1 | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) | .timer_end-21 off | acaba-21 | halt }

if ($1 < 21) && ($2 == %21player-1) {

if (%21para-jog-2 !== on) { msg $3 4 %21player-2 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın. }

if (%21para-jog-2 == on) { set %21jogada-jog 1 | msg $3 4 %21player-1 4sıra sende. Kanala !card yaz ve kartını çek. Eğer kart istemiyorsan !comp yaz. | .timer_end-21 1 62 encerra-21 $3 | halt }

}

if ($1 > 21) && ($2 == %21player-2) { msg $3 1BOOOOOOOOOOMMMM! !4 $2 1çektiğin kart ile oyunu kaybettin. -> %21cards-player-2 1toplam-> %21cards-value-2 1 | msg $3 1KAZANAN ->4 %21player-1 1çektiği kartlar-> %21cards-player-1 1Elinin toplamı-> %21cards-value-1 | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) | .timer_end-21 off | acaba-21 | halt }

if ($1 == 21) && ($2 == %21player-2) { msg $3 1KAZANAN 4 %21player-2 1kartlar-> %21cards-player-2 1toplamı-> %21cards-value-2 | inc $+(%,wins,%21player-2) 5 | .timer_end-21 off | acaba-21 | halt | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) }

if ($1 < 21) && ($2 == %21player-2) {

if (%21para-jog-1 !== on) { msg $3 4 %21player-1 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et.. | halt }

if (%21para-jog-1 == on) { set %21jogada-jog 2 | msg $3 4 %21player-2 1sıra sende dostum. Kanala !card yaz ve kartını çek, elindeki kartlar yeterliyse !comp yaz ve rakibini bekle.. | .timer_end-21 1 62 /encerra-21 $3 | halt }

}

if (%21player-2 == $me) {

if ($1 > 21) && ($2 == %21player-1) { msg $3 1BOOOOOOOOOOMMMM!!!!4 $2 1kaybettin. Kartların -> %21cards-player-1 1toplamda -> %21cards-value-1 sayı. | .timer_end-21 off | msg $3 1KAZANAN OYUNCU -> 4 %21player-2 1elindeki kartlar-> %21cards-player-2 1toplamda ise-> %21cards-value-2 1sayı. | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | acaba-21 | halt }

if ($1 == 21) && ($2 == %21player-1) { msg $3 1KAZANAN4 %21player-1 1ÇEKTİĞİ TÜM KARTLAR -> %21cards-player-1 1ÇEKTİĞİ TÜM KARTLARİN TOPLAM SAYISI ->4 %21cards-value-1 ( kanala !puan yaz ) | .timer_end-21 off | acaba-21 | halt }

if ($1 < 21) && ($2 == %21player-1) {

if (%21para-jog-2 !== on) { msg $3 SIRA BENDE ! | me-play $3 }

if (%21para-jog-2 == on) { set %21jogada-jog 1 | msg $3 4 %21player-1 1oyna aslan parçası.. Kartını çekmek için !card yaz. Eğer elindeki sayılar yeterli ise !comp yaz ama acele et.. | .timer_end-21 1 62 encerra-21 $3 | halt }

}

if ($1 > 21) && ($2 == %21player-2) { /msg $3 1BOOOOOOOOOOMMMM 4 $2 1oyunu kaybettin. Senin kartların -> %21cards-player-2 1kartlarin toplamı -> %21cards-value-2 | inc $+(%,wins,%21player-1) 5 | msg $3 KAZANAN4 %21player-1 1İŞTE ŞU KARTLARI ÇEKTİ -> %21cards-player-1 1 VE ÇEKTİĞİ KARTLARIN TOPLAMI -> %21cards-value-1 ( kanala !puan yaz ) | .timer_end-21 off | acaba-21 | halt }

if ($1 == 21) && ($2 == %21player-2) { msg $3 1KAZANAN 4 %21player-2 1 KARTLARI-> %21cards-player-2 1TOPLAMI-> %21cards-value-2 | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | .timer_end-21 off | acaba-21 | halt }

if ($1 < 21) && ($2 == %21player-2) {

if (%21para-jog-1 !== on) { msg $3 4 %21player-1 1sıra sende gençoğlan. Kanala !card yaz ve çek. kart istemiyore !comp yaziyore.. | halt }

if (%21para-jog-1 == on) { set %21jogada-jog 2 | msg $3 1şimdi ise ben çekiyorum ve çektimm.. ! | .timer_end-21 off | .timer_only-me-play 1 2 me-play $3 | halt }

}

alias acaba-21 {

set %21jog off

unset %21player-1 %21player-2 %21cards-value-1 %21cards-player-1 %21cards-value-2 %21cards-player-2 %21game-starts

}

on *:text:!comp:#: {

if (%21jog == on) && (%21player-2) {

if ($var(%21cards-player*,0) > 1) {

if (%21player-2 != $me) {

if (%21jogada-jog == 1) {

if ($nick == %21player-1) && (%21para-jog-2 !== on) { set %21para-jog-1 on | set %21jogada-jog 2 | msg $chan 4 %21player-2 1kart çekmek için !card yazmalısın , kart çekmemek ve rakibi beklemek için ise !comp yazmalısın canım. | .timer_end-21 1 62 encerra-21 $chan | halt }

if ($nick == %21player-1) && (%21para-jog-2 == on) { who-winns-21 $chan | .timer_end-21 off }

}

if (%21jogada-jog == 2) {

if ($nick == %21player-2) && (%21para-jog-1 !== on) { set %21para-jog-2 on | set %21jogada-jog 1 | msg $chan 4 %21player-1 1oyna koçum! Yapacağın şey basit? Kart istiyorsan !card yazıyorsun, kart istemiyorsan !comp yazıyorsun.. understand me? | .timer_end-21 1 62 encerra-21 $chan | halt }

if ($nick == %21player-2) && (%21para-jog-1 == on) { who-winns-21 $chan | .timer_end-21 off }

}

if (%21player-2 == $me) {

if (%21jogada-jog == 1) {

if ($nick == %21player-1) && (%21para-jog-2 !== on) { set %21para-jog-1 on | set %21jogada-jog 2 | msg $chan ŞİMDİ DE BEN ÇEKİYORUM, ALLAH ÇEKTİRMESİN HOPPA.. Rule! | .timer_end-21 off | .timer_only-me-play 1 2 me-play $chan | halt }

if ($nick == %21player-1) && (%21para-jog-2 == on) { who-winns-21 $chan | .timer_end-21 off }

}

if (%21jogada-jog == 2) {

if ($nick == %21player-2) && (%21para-jog-1 !== on) { set %21para-jog-2 on | set %21jogada-jog 1 | msg $chan 4 %21player-1 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et.. | .timer_end-21 1 62 encerra-21 $chan | halt }

if ($nick == %21player-2) && (%21para-jog-1 == on) { who-winns-21 $chan | .timer_end-21 off }

}

else { msg $chan 1ilk önce bi kart çek ondan sonra compla uyanıkmısın nesin ak :4 !card }

}

alias who-winns-21 {

if ($var(%21cards-player*,0) > 1) {

set %21total-jog-1 $calc(21 - %21cards-value-1)

set %21total-jog-2 $calc(21 - %21cards-value-2)

if (%21total-jog-1 < %21total-jog-2) { .timer_end-21 off | msg $1 1KAZANAN4 %21player-1 1 kart's-> %21cards-player-1 tötal's-> %21cards-value-1 | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) | msg $1 1KAYBEDEN4 %21player-2 1kart's -> %21cards-player-2 1tötal's-> %21cards-value-2 | acaba-21 | halt }

if (%21total-jog-1 > %21total-jog-2) { .timer_end-21 off | msg $1 1KAZANAN4 %21player-2 1elindeki kartlar-> %21cards-player-2 1Toplamı-> %21cards-value-2 | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | msg $1 1KAYBEDEN 4 %21player-1 1elindeki kartları-> %21cards-player-1 1toplamı-> %21cards-value-1 | acaba-21 | halt }

if (%21total-jog-1 == %21total-jog-2) && ($var(%cartas-jog*,0) = 2) { .timer_end-21 off | msg $1 Oyun Bitti.. ! | msg $1 %21player-1 KARTLAR-> %21cards-player-1 TOPLAM-> %21cards-value-1 | msg $1 %21player-2 1kart's-> %21cards-player-2 1toplam-> %21cards-value-2 | acaba-21 | halt }

}

else { msg $1 oyun bitti ve kazanan yok.! | acaba-21 }

}

alias pass-to-card {

set %21cor $rand(1,2)

if (%21cor == 1) { set %21cort 1 }

if (%21cor == 2) { set %21cort 4 }

if ($1 == 1) { return $+ %21cort $+ ,0 $+ [A] }

if ($1 == 2) { return $+ %21cort $+ ,0 $+ [2] }

if ($1 == 3) { return $+ %21cort $+ ,0 $+ [3] }

if ($1 == 4) { return $+ %21cort $+ ,0 $+ [4] }

if ($1 == 5) { return $+ %21cort $+ ,0 $+ [5] }

if ($1 == 6) { return $+ %21cort $+ ,0 $+ [6] }

if ($1 == 7) { return $+ %21cort $+ ,0 $+ [7] }

if ($1 == 8) { return $+ %21cort $+ ,0 $+ [8] }

if ($1 == 9) { return $+ %21cort $+ ,0 $+ [9] }

if ($1 == 10) { return $+ %21cort $+ ,0 $+ [10] }

if ($1 == 11) { return $+ %21cort $+ ,0 $+ [J] }

if ($1 == 12) { return $+ %21cort $+ ,0 $+ [Q] }

if ($1 == 13) { return $+ %21cort $+ ,0 $+ [K] }

if ($1 == 21) { return $+ %21cort $+ ,0 $+ [G] }

-Blackjack oyunu 2 kişi ile oynanır.

-Oyuna katılmak için kanala !21 yazmalısınız.

-Aynen diğer kişide !21 yazmalıdır.

-Kart istemek için !card

-Kart istemiyorum !comp

-Puan için !puan

-Beraberlik halinde !comp kullanamazsınız kart cekmelisiniz.

» Devamını Oku

Yorum yaz addon, blackjack, mirc, oyun

« 1 2 3 4 5 … 9 »