mIRC Addonlar
Mirc Hesap Makinesi
15 Şub
Mirc Hesap Makinesi
1. Editboxa yazma iptal edildi, böylece harfler yazılamayacak. editboxa 255 limiti getirldi ilkinde limiti 9 10 gibi birşeydi, dstudio dan daha fazlasını bilmek gerekmiş demekki
2. Mdx dll si sırf arka plan için kullanılmış ve gereksizdi iptal edildi.
3. 0 ve . nın item numaraları değiştirildi böylece isnum 1-10 kullanılabildi
4. . tuşunu 1 defa yazınca daha fazla yazılması engellendi
5. +/- buttonu çalışır hale getirildi
6. hesap makinesini çalıştırmak için /poly fonksiyonu eklendi
2. Mdx dll si sırf arka plan için kullanılmış ve gereksizdi iptal edildi.
3. 0 ve . nın item numaraları değiştirildi böylece isnum 1-10 kullanılabildi
4. . tuşunu 1 defa yazınca daha fazla yazılması engellendi
5. +/- buttonu çalışır hale getirildi
6. hesap makinesini çalıştırmak için /poly fonksiyonu eklendi
Değişimlere rağmen gözüken eksikler:
1. Memory işlemleri yok MC M+ M-
2. Tekrarlama fonksiyonu yok + ya sürekli basınca toplaması gibi
3. % yok
PHP- Kodu:
alias poly { unset %poly-var, %poly-do | if !$dialog(poly) { dialog -m poly BWcalc } }
dialog BWcalc {
title "Hesap Makinesi"
size -1 -1 66 93
option dbu
button "7", 7, 2 16 14 14, flat
button "8", 8, 17 16 14 14, flat
button "9", 9, 32 16 14 14, flat
button "1", 1, 2 46 14 14, flat
button "4", 4, 2 31 14 14, flat
button "5", 5, 17 31 14 14, flat
button "6", 6, 32 31 14 14, flat
button "2", 2, 17 46 14 14, flat
button "3", 3, 32 46 14 14, flat
button ".", 11, 2 61 14 14, flat
button "0", 10, 17 61 14 14, flat
button "=", 12, 32 61 14 14, flat
button "+", 13, 50 16 14 14
button "-", 14, 50 31 14 14
button "*", 15, 50 46 14 14
button "/", 16, 50 61 14 14
button "+/-", 17, 2 77 14 14
button "^", 18, 50 77 14 14
button "C", 19, 50 1 14 14, flat
edit "", 20, 2 2 48 12, read autohs limit 255
button "x²", 21, 32 77 14 14
button "x³", 22, 17 77 14 14
}
on *:dialog:poly:*:*: {
if ($devent == sclick) {
if $did isnum 1-10 { did -a $dname 20 $did($did) }
if $did == 11 { if . !isin $did(20) { did -a $dname 20 . } }
if $did == 17 { if $calc(-1 * $did(20)) { did -ra $dname 20 $v1 } }
if $did isnum 13-16 || $did == 18 {
set %poly-var $did(20)
set %poly-do $did($did)
did -r $dname 20
}
if $did == 12 {
if %poly-var {
did -ra $dname 20 $calc(%poly-var %poly-do $did(20))
unset %poly-do, %poly-var
}
}
if $did isnum 21-22 {
did -ra $dname 20 $calc($did(20) ^ $iif($did == 21,2,3))
}
if $did == 19 { did -r $dname 20 | unset %poly-do, %poly-var }
}
}
Kod Yapimcisi ; BLaCK_and_WHiTe
(No Ratings Yet)
Loading ...Google Arama Motoru Addonu
15 Şub
Google Arama Motoru Addonu
PHP- Kodu:
alias google {
if ($1 != $null) {
sockclose google
set %google.search $1-
sockopen google www.google.com 80
}
else {
echo -a You need to specify what to google
}
}
on *:sockopen:google:{
sockwrite -n $sockname GET /ie?q= $+ $replace($replace($replace(%google.search,$chr(32),$eval(%20,0)),&,$eval(%26,0)),=,$eval(%3D,0)) $+ &hl=en&lr=&ie=UTF-8&oe=UTF-8&btnG=Google+Search HTTP/1.1
sockwrite -n $sockname Host: www.google.com
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname $crlf
}
on *:sockread:google:{
if ($sockerr) {
echo -a Error.
halt
}
else {
;var %sock.temp
sockread %sock.temp
if (%sock.temp != $null) {
if (<NOBR>* iswm %sock.temp) {
var %sock.temp = $remove($remove(%sock.temp,<b>),</b>)
var %google.1 = $mid($gettok(%sock.temp,1,32),7)
var %google.3 = $gettok($mid($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1),32),6),1,62)
var %google.2 = $gettok($gettok($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1) $+ -,32),2,62),1,60)
$iif(%google.1 == 1.,window -k @Google)
$iif(%google.1 == 1.,aline @Google Results for %google.search)
aline @Google $replace($replace($replace($replace($replace(%google.1 %google.2 - 12 $+ %google.3,>,>),<,<),","),',’),&,&)
}
elseif (*No standard web pages containing all your search terms were found.* iswm %sock.temp) {
window -k @Google
aline @Google No results found for %google.search
}
;echo -a %sock.temp
}
}
}
menu @google {
Clear:clear @google
}
Addon Hakkında Bilgi ve Kullanımı :
Arkadaşlar Addon Mirc Uzerinden Konuşurken Geçen Bir Kelimeyi Konuşmayı Kesmeden Aramamızı Sağlar. Kullanış Bakımından Gayet Kolay ve Rahat.
Öncelikle Yukarıdaki Kodu Bir Txt Dosyasına Kopyalayıp ” //load -rs textismi.txt ” Şeklinde
Kuruyoruz. Kurduktan Sonra Bizim Için Gerekli Olan Komutlar :
Arama yapmak için :
” /Google ” Aranacak Kelime
Arama Yaptığımız Pencereyi Temizlemek İçin İse:
/clear @google
Komutlarını Kullanıyoruz.
(No Ratings Yet) Loading ...Küfür addonu
15 Şub
Küfür addonu ekle
on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
ban -u300 # $nick 3
kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
}
}
alias kufur {
if ($1 == ekle) && ($regex($2,[A-Za-z])) {
hadd kufur $2
secho $2 veritabanina başarıyla eklendi
}
elseif ($1 == sil) {
if ($hfind(kufur,$2)) {
hdel kufur $2
secho $2 veritabanindan başarıyla silindi
}
else { secho $2 veritabaninda bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x <= $hget(kufur,0).item) {
set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
inc %x
}
if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
}
else { secho hatali islem }
}
alias secho {
;echo -a $1-
if (!$window(@kufur)) { window -e @kufur }
echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o kufur kufur.htb
on *:start: {
hmake kufur 1000
if ($exists(kufur.htb)) { hsave -o kufur kufur.htb }
hload kufur kufur.htb
}
/kufur ekle <kufur> belirtilen kufuru tablomuza ekler
/kufur sil <kufur> belirtilen kufuru tablodan siler
/kufur list eklenmis tum kufurleri listeler
kufur eklerken wildcad kullanilabilir
/kufur ekle *sokar*
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
ban -u300 # $nick 3
kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
}
}
alias kufur {
if ($1 == ekle) && ($regex($2,[A-Za-z])) {
hadd kufur $2
secho $2 veritabanina başarıyla eklendi
}
elseif ($1 == sil) {
if ($hfind(kufur,$2)) {
hdel kufur $2
secho $2 veritabanindan başarıyla silindi
}
else { secho $2 veritabaninda bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x <= $hget(kufur,0).item) {
set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
inc %x
}
if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
}
else { secho hatali islem }
}
alias secho {
;echo -a $1-
if (!$window(@kufur)) { window -e @kufur }
echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o kufur kufur.htb
on *:start: {
hmake kufur 1000
if ($exists(kufur.htb)) { hsave -o kufur kufur.htb }
hload kufur kufur.htb
}
/kufur ekle <kufur> belirtilen kufuru tablomuza ekler
/kufur sil <kufur> belirtilen kufuru tablodan siler
/kufur list eklenmis tum kufurleri listeler
kufur eklerken wildcad kullanilabilir
/kufur ekle *sokar*
(No Ratings Yet) Loading ...
