on *:sockopen:burc*:{
sockwrite -n $sockname GET /yildizfali/ $+ %burc $+ .asp HTTP/1.1
sockwrite -n $sockname Host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n $sockname $crlf
}
on *:sockread:burc*:{
var %ghs
sockread %ghs
if (*img height="80" alt="*" hspace="3" src="
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*" width="80" align="left" * iswm %ghs) { set %else ok! }
elseif (%else) {
if (<p align="left"> isin %ghs) { set %else1 ok! }
elseif (%else1) {
msg %burcnick : $remove($htmlfree(%ghs), )
unset %else
unset %else1
unset %burcnick
sockclose $sockname
}
}
}
on *:text:*:#:{
if $1 == !burc {
if (!%buclar) set %buclar koc|boga|ikizler|yengec|aslan|basak|terazi|akrep|yay|oglak|kova|balik
if $2 == $null { msg $chan : $nick Lutfen Burc Belirtiniz. | halt }
if !$istok(%buclar,$bufak($2),124) { msg $chan :Burç adını yanlış girdiniz. Doğru kullanım: !burc %buclar | halt }
msg $chan : $regsubex($bufak($2),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1))) burcuna bakılıyor lütfen bekleyiniz.
var %rand $rand(1,9999)
set %burcnick $chan
set %burc $bufak($2)
sockopen $+(burc,%rand)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
}
alias bufak {
return $replace($1,A,a,B,b,C,c,Ç,c,ç,c,D,d,E,e,F,f,G,g,Ğ,g,ğ,g,H,h,I,i,ı,i,İ,i,J,j,K,k,L,l,M,m,N,n,O,o,Ö,o,ö,o,P,p,R,r,S,s,Ş,s,ş,s,T,t,U,u,Ü,ü,V,v,Y,y,Z,z,W,w,@,a)
}