- ;Bu Kod OkyAnuS Tarafından Yazılmıstır.
#aciLis on
on 1:start:{ .bagLanti }
aLias bagLanti { .diaLog -m bagLanti bagLanti }
diaLog bagLanti {
titLe \\\\"~MircHelp.Gen.Tr © \\\\"
size -1 -1 204 163
option dbu
text \\\\"Nick:\\\\", 1, 3 12 25 8
text \\\\"YedekNick:\\\\", 2, 3 21 26 8
text \\\\"E-mail:\\\\", 3, 3 30 25 8
box \\\\"Bağlantı Menüsü\\\\", 4, 1 1 129 74
edit \\\\"\\\\", 5, 37 [...]

- raw 301:*: {
haltdef
echo -a 4» 12Away: Evet: ( $+ $3- $+ )
}
raw 307:*: {
haltdef
echo -a 4» Kayitli Nick: Evet.
}
raw 310:*: {
haltdef
echo -a 4» IRC Helper: Evet.
}
raw 311:*:{
haltdef
echo -a 5——————————————–
echo -a 4» Nick: $2
echo -a 4» Isim: $6-
echo -a 4» Hostmask: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 312:*:{
haltdef
echo -a 4» Server: $3
}
raw [...]

- on *:join:#: { if $nick == $me { xpencere $chan } }
alias xpencere {
if !$widnow(@deneme) { window -dp +L @deneme 0 0 250 100 | window -h @deneme }
drawrect -f @deneme $colour(background) 50 $window(@deneme).x $window(@deneme).y $window(@deneme).w $window(@deneme).h
drawtext @deneme $colour(own text) TimesNewRoman 22 0 0 $1
drawtext @deneme $colour(info text) TimesNewRoman 12 10 30 aBso Nere [...]

- raw 006:*: {
if !%xw { set %xw 1 }
if %xw {
hadd -m c $+(c,%xw) $2-
inc %xw
}
if %xw == 10 {
var %char = 32 22 17 34 30 28 29 17 16 14
var %q = 2
while %q <= 8 {
inc %cx3 $len($gettok($replace($gettok($hget(c,$+(c,%q)),-3,44),$chr(3),$chr(32)),-1,48))
inc %q
}
var %y = 2
while %y <= 8 {
inc %cx2 $len($gettok($replace($gettok($hget(c,$+(c,%y)),-2,44),$chr(3),$chr(32)),-1,48))
inc %y
}
var %k = [...]

FTP Dosya Yollama - Hazır Kodlar

-

- alias gonder {
.remove mircdb.ftp
write mircdb.ftp open $ftp-host
write mircdb.ftp $ftp-k.adi
write mircdb.ftp $ftp-sifre
write mircdb.ftp cd $ftp-klasor
write mircdb.ftp send $shortfn($1-)
write mircdb.ftp bye
run ftp -s:mircdb.ftp
}
________
Kullanimi /gonder Dosya
; FTP Hostu
alias ftp-host return ftp.abc.com
;;;;;;;;;;
; FTP Kullanici Adi
alias ftp-k.adi return abc
;;;;;;;;;;
; FTP Sifresi
alias ftp-sifre return 123456
;;;;;;;;;;
; FTP Web Klasörü
alias ftp-klasor return public_html
;;;;;;;;;;
abc kkısımlarını kendinize göre düzenliyorsunuz [...]