| WingmaN | 25 Haziran 2011 21:39 |
/* Burç - AŞK Uyumları */
/* Hakkında */
Öncelikle söylemem gerekirse, tamamen can sıkıntısı çalışmasıdır.
Kod, tamamen socket mantığını devralarak çalışmaktadır, " POST " mantığını kullanmaktadır, " POST " mantığı, site üzerin de ki belirlemiş olduğunuz bir bölüme veri göndermek amacı ile kullanılan bir veridir. Bu veri sayesinde, istediğimiz kelimeyi o bölüme yerleştirerek o bölümden gelen sonuçları mIRC'imizin üzerine aktarabilmekteyiz.
Kodun amacı, belirlediğiniz burçların aşk uyumlarını, sizlere belirlediğiniz kanala kullanım komutları ile birlikte doğru şekilde yansıtmasıdır. /* Kullanım */
Kullanımı " BOT " mantığını kullanır ve belirlediğiniz bir kanal üzerinde çalışmaktadır. Bu kanal, " #Burç " olarak hazırlanmıştır, siz bunu kendi isteğinize göre değiştirebilirsiniz.
Kullanmaları gereken tek işlem " !bilgi " komutunu kullanmaktır. Daha detaylı bilgi verecek olursam; Erkek - Kadın için -> !uyum burç- erkek burç- kadın < !uyum aslan akrep > Kadın - Kadın için -> !uyum k burç- kadın burç- erkek < !uyum k akrep aslan > /* Kod (code) */ Kod:
on 1:text:*:#:{
if $chan == #Burç {
set %::ch #
if !bilgi isin $1 {
msg # Burçlarınızın AŞK uyumları hakkında, bilgi vermek için kodlanmıştır.
msg # < !uyum Burç-Erkek Burç-Kadın > şeklinde kullanarak, Erkek burcu üzerinden, Kadın burcunda ki etkileri görebilirsiniz.
msg # < !uyumk Burç-KADIN Burç-Erkek > şeklinde kullanarak, KADIN burcu üzerinden, Erkek burcunda ki etkileri görebilirsiniz.
}
if !uyum isin $1 {
.uyum $2-
}
if !uyumk isin $1 {
.uyumk $2-
}
}
}
alias wn {
if $sock($1).status == active {
sockwrite -n $1-
}
}
alias afree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x, , )
return %x
}
alias burclar { return akrep aslan koc boga basak oglak ikizler yay kova balik yengeç balık başak koç yengec boğa oğlak }
alias uyum {
if !$sock(uyum) {
var %::postveri1 $1 $2
if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar {
msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi veya yanlış girildi, lütfen <!uyum Burç-Erkek Burç-Kadın> şeklinde kullanınız.
halt
}
set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
msg %::ch 4 $gettok(%::postveri,1,32) 2Erkeği ile,4 $gettok(%::postveri,2,32) 2Kadını AŞK uyumu getiriliyor ..
sockopen uyum muneccim.com 80
.timer $+ $r(1,99) 1 3 sockclose uyum*
}
else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
alias uyumk {
if !$sock(uyum*) {
var %::postveri1 $1 $2
if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar {
msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi, lütfen <!uyumk Burç-Kadın Burç-Erkek> şeklinde kullanınız.
halt
}
set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
msg %::ch 4 $gettok(%::postveri,1,32) 2Kadını ile,4 $gettok(%::postveri,2,32) 2Erkeği AŞK uyumu getiriliyor ..
sockopen uyumk muneccim.com 80
.timer $+ $r(1,99) 1 3 sockclose uyum*
}
else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
on *:sockopen:uyum:{
var %wn Erkek= $+ $gettok(%::postveri,1,32) $+ &Kadin= $+ $gettok(%::postveri,2,32)
wn uyum POST /uyumluluk_goster/uyumluluk_goster.asp HTTP/1.1
wn uyum Content-Type: application/x-www-form-urlencoded; charset="utf-8"
wn uyum Content-Length: $calc($len(%wn) + 1)
wn uyum Host: muneccim.com
wn uyum
wn uyum %wn
}
on *:sockread:uyum:{
var %w
sockread %w
if (*face="MS Serif"><big>* iswm %w) {
msg %::ch 5Uyum: $afree(%w)
}
}
on *:sockopen:uyumk:{
var %wn Erkek= $+ $gettok(%::postveri,2,32) $+ &Kadin= $+ $gettok(%::postveri,1,32)
wn uyumk POST /uyumluluk_goster/uyumluluk_goster2.asp HTTP/1.1
wn uyumk Content-Type: application/x-www-form-urlencoded; charset="utf-8"
wn uyumk Content-Length: $calc($len(%wn) + 1)
wn uyumk Host: muneccim.com
wn uyumk
wn uyumk %wn
}
on *:sockread:uyumk:{
var %w
sockread %w
if (*face="MS Serif"><big>* iswm %w) {
msg %::ch 5Uyum: $afree(%w)
}
}
|
