PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
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-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">-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-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">-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)
}
}
merhaba arkadaşlar bu kod çalışıyor ama bilgi cektigi site kapanmış bunu burada buldum siteyi degiştircek biri var mı? faal hale getirmek istiyorum muneccim.gen.tr calışıyor uyarlıya bilirmiyiz yada baska bir siteye tesekkurler