; hersey burda basladi 
alias botyap { 
;Bot olusturmak icin Join de sadece 
;/botyap $1 $2 $3 
;$1 nick ;$2 services ;$3 kanal 
os raw : Nick $1 1 1 java $tipikip $2 : XXXXXXX Web Kullanicisi 
os raw $+(:,$1,$chr(32),join,$chr(32),$3) 
os raw SVSMODE $1 +ixr 
} 
alias bsmsg { os raw $+(:,$1) PRIVMSG $2 $+(:,$3-) } 
alias bsquit { os raw $+(:,$1) QUIT [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } 
alias tipikip { 
inc %ipler 1 
if (%ipler > 2) { %ipler = 1 } 
if (%ipler == 1) { 
;karma 
return $+($r(A,Z),$r(0,9),$r(A,Z),$r(A,Z),$r(2,9),$r(A,Z) ,$r(10,99),.,$r(11,50),$r(A,Z),$r(A,Z),$r(A,Z),.,$ r(A,Z),$r(A,Z),$r(3,9),$r(1,45),$r(A,Z),$r(9,999), $r(A,Z),.IP) 
} 
;adsl 
if (%ipler == 2) { 
return $+($gettok($network,1,46),-,$r(0,9),$r(A,Z),$r(A,Z),$r(2,9),$r(A,Z),$r(10,99) ,$r(A,Z),.adsl.ttnet.net.tr) 
} 
} 
alias bsnick { 
;nick degi?ticek 
os raw $+(:,$1) NICK $2 
} 
alias bspart { 
os raw $+(:,$1) PART $2 
} 
alias debugoku { 
%services = services.xxxxxxx.net 
if ($infso) { UW5VZ2MyTnlhWEIwSUdGRGIzVnpkR2xESUhSaGNtRm1hVzVrWV c0Z2VXRjZhV3h0YVhOMGFYST0= } 
var %x = $line(@hirsiz,0) 
%sbnick = $gettok($gettok($line(@hirsiz,%x),2,58),1,33) 
%sbislem = $gettok($line(@hirsiz,%x),3,32) 
%sbkanal = $gettok($gettok($line(@hirsiz,%x),4,32),1,58) 
; %sbkanal = #Muhabbet 

if (%asbislem == JOIN) { 
if (%sbnick !ison %sbkanal) { 
botyap %sbnick %services %sbkanal 
clear @hirsiz 
} 
} 

if (%sbislem == PART) { 
if (%sbnick ison %sbkanal) { 
bspart %sbnick %sbkanal 
bsquit %sbnick 
clear @hirsiz 
} 
} 
if (%sbislem == QUIT) { 
if (%sbnick ison %sbkanal) { 
bsquit %sbnick 
clear @hirsiz 
} 
} 
if (%sbislem == NICK) { 
bsnick %sbnick $gettok($line(@hirsiz,%x),3-,58) 
clear @hirsiz 
} 
if (%sbislem == PRIVMSG) { 
if (%sbnick ison %sbkanal) { 
if ($left(%sbkanal,1) == $chr(35)) { 
%sbmesaj = $gettok($line(@hirsiz,%x),3-,58) 
bsmsg %sbnick %sbkanal %sbmesaj 
clear @hirsiz 
} 
} 
if (%sbnick !ison %sbkanal) { 
if ($left(%sbkanal,1) == $chr(35)) { 
var %benc = $comchan($me,0) 
while (%benc => 1) { 
if (%sbnick ison $comchan($me,%benc) { 
scid -s 1 os raw $+(:,%sbnick) join %sbkanal 
halt 
} 
dec %benc 
} 
botyap %sbnick %services %sbkanal 
%sbmesaj = $gettok($line(@hirsiz,%x),3-,58) 
bsmsg %sbnick %sbkanal %sbmesaj 
clear @hirsiz 
} 
} 
if ($infso) { UW5VZ2MyTnlhWEIwSUdGRGIzVnpkR2xESUhSaGNtRm1hVzVrWV c0Z2VXRjZhV3h0YVhOMGFYST0= } 
} 
;echo %sbislem - %sbkanal 
;if (%nick !ison #sohbet) { echo @HirsizM #sohbet kanalynda yoq } 
}