IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   /* Burç - AŞK Uyumları */ (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/398492-burc-ask-uyumlari.html)

WingmaN 25 Haziran 2011 18:17

/* 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 -> !uyumk burç-kadın burç-erkek < !uyumk 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,&nbsp;,    )
  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.
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.
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)
  }
}

Not: Bot mantığını taşıdığı için, kendi mIRC'inize eklerseniz bir başkası tarafından kullanılması sağlanmaktadır.

Ecrin 25 Haziran 2011 18:20

Cevap: /* Burç - AŞK Uyumları */
 
Bugradan bir başari daha :) Emegine saglık canım yenilerini bekliyoruz süper olmuş :)

Mudin 25 Haziran 2011 19:15

Cevap: /* Burç - AŞK Uyumları */
 
Burca inanmıyorum ama düşünce güzel hoca :)

SeydiCan 20 Mart 2015 23:50

Cevap: /* Burç - AŞK Uyumları */
 
Alıntı:

WingmaN Nickli Üyeden Alıntı (Mesaj 1040769494)
/* 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 -> !uyumk burç-kadın burç-erkek < !uyumk 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,&nbsp;,    )
  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.
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.
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)
  }
}

Not: Bot mantığını taşıdığı için, kendi mIRC'inize eklerseniz bir başkası tarafından kullanılması sağlanmaktadır.

Cok önce paylasılan Bir Kod Sanırım Bu muneccim.com kapanmıs sanırım nasıl calıstırız acaba bu burc aşk uyumu testını

Feragat 21 Mart 2015 00:06

Cevap: /* Burç - AŞK Uyumları */
 
Aynı içerikte bir site varsa, socket kodlarını, sitenin kaynak içeriğine ve yapısına göre düzenleyip çalıştırabilirsin.

WingmaN 27 Mart 2015 22:49

Cevap: /* Burç - AŞK Uyumları */
 
Çok eski bir kod ya :)

SeydiCan 22 Şubat 2017 23:06

Cevap: /* Burç - AŞK Uyumları */
 
evet guzel calısma ama cok eskı aynı ozellıkte bır aktıf sıte bulunabılırse calısabılır calıstıran olursada paylasırsa sevınırım kullanılır yanı.

mustafa21 09 Mart 2017 17:38

Cevap: /* Burç - AŞK Uyumları */
 
Sa arkadaslar bu addonu şu adrese gore uyarlayabilen varmı cunku addonda verilen site calismiyor.
bu site calisiyor muneccim.gen.tr buna gore uyurlayan biri olsa guzel olur Tsk ederim şimdiden ...


Çalısan herhangi bir siteyede uyarlanabilir o site sart degil arkadaslar..

xaLper 04 Ekim 2018 21:07

Cevap: /* Burç - AŞK Uyumları */
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sky, verebilirmisin ustad görüsmemiz lazim.

Zalimsin 13 Eylül 2019 22:02

Cevap: /* Burç - AŞK Uyumları */
 
bunu düzenliyecek bir arkadaşımız yok mu

Fredyyy 17 Eylül 2019 16:51

Cevap: /* Burç - AŞK Uyumları */
 
Merhaba iyi çalışmalar dilerim. Bu burç uyum kodunun güncel hali var mı?

Emrehan 17 Eylül 2019 23:32

Cevap: /* Burç - AŞK Uyumları */
 
Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1042156303)
Merhaba iyi çalışmalar dilerim. Bu burç uyum kodunun güncel hali var mı?

Kod:

on *:text:*:#:{
  if $chan == #Burç {
    set %::ch #
    if $regex($1,/[!.]b[ıiİ]l[gq][ıiİ]/Si) {
      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.
    }
    elseif $regex($1,/[!.]uyum$/Si) { erkekuyum $2 $3 }
    elseif $regex($1,/[!.]uyumk/Si) { kadinuyum $2 $3 }
  }
}
alias afree { var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    ) | return %x }
alias burclar { return koc koç boga boğa boqa ikizler ıkızler yengec yengeç yenqec yenqeç aslan basak başak terazı terazi akrep yay oglak oğlak oqlak kova balık balik }
alias erkekuyum {
  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 <!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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyum
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
alias kadinuyum {
  if !$sock(uyumk) {
    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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyumk
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
on *:sockopen:uyum:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,2,32),-kadini-ile-,$gettok(%::postveri,1,32),-erkegi-uyumu/) HTTP/1.1
  sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:sockread:uyum:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,8-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}
on *:sockopen:uyumk:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,1,32),-kadini-ile-,$gettok(%::postveri,2,32),-erkegi-uyumu/) HTTP/1.1
  sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:sockread:uyumk:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,8-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Fredyyy 18 Eylül 2019 02:29

Cevap: /* Burç - AŞK Uyumları */
 
Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teşekkür ederim. Kolay gelsin iyi forumlar dilerim..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:29 -->-> Daha önceki mesaj 01:31 --

Post tekrarı gibi olacak üzgünüm, yalnız statuste şöyle bir hata aldım. Nasıl düzeltmem gerekiyor sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bey, şimdiden teşekkür ederim.

* /tokenize: Satır çok uzun (Satır 45, script2.txt)

Satır 45;
on *:sockread:uyum:{
var %w | sockread -f %w | tokenize 32 %w

Emrehan 18 Eylül 2019 03:13

Cevap: /* Burç - AŞK Uyumları */
 
Kod:

on *:text:*:#:{
  if $chan == #Burç {
    set %::ch #
    if $regex($1,/[!.]b[ıiİ]l[gq][ıiİ]/Si) {
      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.
    }
    elseif $regex($1,/[!.]uyum$/Si) { erkekuyum $2 $3 }
    elseif $regex($1,/[!.]uyumk/Si) { kadinuyum $2 $3 }
  }
}
alias afree { var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    ) | return %x }
alias burclar { return koc koç boga boğa boqa ikizler ıkızler yengec yengeç yenqec yenqeç aslan basak başak terazı terazi akrep yay oglak oğlak oqlak kova balık balik }
alias erkekuyum {
  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 <!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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyum
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
alias kadinuyum {
  if !$sock(uyumk) {
    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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyumk
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
on *:sockopen:uyum:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,2,32),-kadini-ile-,$gettok(%::postveri,1,32),-erkegi-uyumu/) HTTP/1.1
  sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:sockread:uyum:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,8,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,9,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,10-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}
on *:sockopen:uyumk:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,1,32),-kadini-ile-,$gettok(%::postveri,2,32),-erkegi-uyumu/) HTTP/1.1
  sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:sockread:uyumk:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,8,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,9,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,10-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}

Bu şekilde dener misiniz?

Fredyyy 18 Eylül 2019 09:58

Cevap: /* Burç - AŞK Uyumları */
 
Statusteki hata aynı şekilde devam ediyor. Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Emrehan 18 Eylül 2019 21:34

Cevap: /* Burç - AŞK Uyumları */
 
Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1042156645)
Statusteki hata aynı şekilde devam ediyor. Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mIRC sürümünüz en az 6.35 sürümü olmalı.

Fredyyy 18 Eylül 2019 21:57

Cevap: /* Burç - AŞK Uyumları */
 
Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teşekkürler, mIRC sürümünü 6.17 den 6.35'e yükselttim dediğiniz gibi oldu. :(clap):Bilginize sağlık..

integer 11 Ekim 2019 15:10

Cevap: /* Burç - AŞK Uyumları */
 
Wingciim hayatda olman güzel burçlar olmazzsa olmasın .)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:07.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net