Çevrimdışı

Örnek: !burc oglak
*/
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
if ($1 == !burc) {
if (!$2) msg $nick Burcun adını girmediniz!
elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $nick Türkçe karakter girmeyiniz!
else {
if (!%burclar) set %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik
if ($istok(%burclar,$2,32)) {
msg $nick 4,1Burcun Yorumu Alınıyor.Bekleyin...
set %burcid $findtok(%burclar,$2,32)
sockclose $+(burc*,$nick)
sockopen $+(burc*,$nick) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
sockmark $+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid)
}
else msg $nick Burç adı hatalı! Tekrar deneyiniz..!
}
}
}
on *:sockopen:burc*: {
var %s = sockwrite -n $sockname
%s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191) HTTP/1.1
%s Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
%s $crlf
}
on *:sockread:burc*: {
sockread %data
if (face="Arial Narrow"> isin %data) {
msg $remove($sock($sockname),burc*)  $+ $gettok($sock($sockname).mark,1,191) Burcunun Bugünkü Yorumu:
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),1 $+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32)
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),$calc($calc($numtok($html free(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
unset %burcid %data
}
}

bu kodu sock koduna çevirebilirmiyiz.tşker şimdiden

 

Çevrimdışı

bu kodu sock koduna çevirebilirmiyiz.tşker şimdiden

Nasıl yani? xS

 

Çevrimdışı

Yani sock bot için bu sock bota ekliyecem de ondan sordum

 

Çevrimdışı

aynı text e veya aynı bota ekleyip daha cok ozellik yapmak istiosun sanırım . eger öyleyse ekle ama variablelerin çakışmamasından eminsen yap derim.

 

Çevrimdışı

merhabaLar
kodLarı denedim.
buLuyor faKat söyLe bi sorun var :

!burc kova

iLk satır : Çok duygusal davranıyorsunuz. Halbuki çabuk ve mantıklı kararlar vermelisiniz. Bu durum iş hayatınızda zorluklarla karşılaşmanıza yol açıyor. Biraz kendinize güvenle altından kalkamayacağınız iş yok. Ulaşmak istediğiniz hedefe ancak böyle

ikinci satır : Çok duygusal davranıyorsunuz. Halbuki çabuk ve mantıklı kararlar vermelisiniz. Bu durum iş hayatınızda zorluklarla karşılaşmanıza yol açıyor. Biraz kendinize güvenle altından kalkamayacağınız iş yok. Ulaşmak istediğiniz hedefe ancak böyle ulaşabilirsiniz. İşlerinizi zorlaştırmayın. Sevdiğinizden alacağınız sevindirici bir haberle rahatlayacaksınız. Ve işlerinize dört elle sarılacaksınız. Yeni biri ile tanışacaksınız. Sakın kendinizi kaptırmayın. Zira sevdiğinizi in

devamı yok ve karsı tarafa giden mesaj benim status te görünüyor. tam olarak.

KLavye azizLigi (:

 

Çevrimdışı

Siz kanal geneline yansitmakmi istiyorsunuz,yoksa bota komut uygulayin kisinin guncel burc bilgisi kisinin ozelinemi gelmesini istiyorsunuz?

 

Çevrimdışı

msg komutları yerine. botunun sockwrite komutlarını yazacaksın mesela;

sockwrite -n bot PRIVMSG #kanal %a $gettok($htmlfree(%data),1 $+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32)

gibi.

ayrıca verilen kodta ufak bir hata var.

alttan 4. veya 5. satırda şöyle birşey var;

...$html free(%data),32) / 2) +1...

bu

...$htmlfree(%data),32) / 2) +1... şeklinde olacak.