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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - mIRC Hesap Makinesi B&W (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/234350-mirc-hesap-makinesi-bampw.html)

mIRC Hesap Makinesi B&W

1. Editboxa yazma iptal edildi, böylece harfler yazılamayacak. editboxa 255 limiti getirldi ilkinde limiti 9 10 gibi birşeydi, dstudio dan daha fazlasını bilmek gerekmiş demekki
2. Mdx dll si sırf arka plan için kullanılmış ve gereksizdi iptal edildi.
3. 0 ve . nın item numaraları değiştirildi böylece isnum 1-10 kullanılabildi
4. . tuşunu 1 defa yazınca daha fazla yazılması engellendi
5. +/- buttonu çalışır hale getirildi
6. hesap makinesini çalıştırmak için /poly fonksiyonu eklendi

Değişimlere rağmen gözüken eksikler:
1. Memory işlemleri yok MC M+ M-
2. Tekrarlama fonksiyonu yok + ya sürekli basınca toplaması gibi
3. % yok

Kod:

alias poly { unset %poly-var, %poly-do | if !$dialog(poly) { dialog -m poly BWcalc } }

dialog BWcalc {

  title "Hesap Makinesi"

  size -1 -1 66 93

  option dbu

  button "7", 7, 2 16 14 14, flat

  button "8", 8, 17 16 14 14, flat

  button "9", 9, 32 16 14 14, flat

  button "1", 1, 2 46 14 14, flat

  button "4", 4, 2 31 14 14, flat

  button "5", 5, 17 31 14 14, flat

  button "6", 6, 32 31 14 14, flat

  button "2", 2, 17 46 14 14, flat

  button "3", 3, 32 46 14 14, flat

  button ".", 11, 2 61 14 14, flat

  button "0", 10, 17 61 14 14, flat

  button "=", 12, 32 61 14 14, flat

  button "+", 13, 50 16 14 14

  button "-", 14, 50 31 14 14

  button "*", 15, 50 46 14 14

  button "/", 16, 50 61 14 14

  button "+/-", 17, 2 77 14 14

  button "^", 18, 50 77 14 14

  button "C", 19, 50 1 14 14, flat

  edit "", 20, 2 2 48 12, read autohs limit 255

  button "x²", 21, 32 77 14 14

  button "x³", 22, 17 77 14 14

}

on *:dialog:poly:*:*: {

  if ($devent == sclick) {

    if $did isnum 1-10 { did -a $dname 20 $did($did) }

    if $did == 11 { if . !isin $did(20) { did -a $dname 20 . } }

    if $did == 17 { if $calc(-1 * $did(20)) { did -ra $dname 20 $v1 } }

    if $did isnum 13-16 || $did == 18 {

      set %poly-var $did(20)

      set %poly-do $did($did)

      did -r $dname 20

    }

    if $did == 12 {

      if %poly-var {

        did -ra $dname 20 $calc(%poly-var %poly-do $did(20))

        unset %poly-do, %poly-var

      }

    }

    if $did isnum 21-22 {

      did -ra $dname 20 $calc($did(20) ^ $iif($did == 21,2,3))

    }

    if $did == 19 { did -r $dname 20 | unset %poly-do, %poly-var }

  }

}

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

Kodlama bana aittir koda ve ya diyaloga imza koymadım anonim olarak kullanılması beni bozmaz. Nasıl olsa kullanacak olan kendi imzasını koyar bize sormadan.

Cevap: mIRC Hesap Makinesi B&W

Emeğinize sağlık..

Cevap: mIRC Hesap Makinesi B&W

dialog polybasic {
title "PoLy "
size -1 -1 66 93
option dbu
button "7", 7, 2 16 14 14, flat
button "8", 8, 17 16 14 14, flat
button "9", 9, 32 16 14 14, flat
button "1", 1, 2 46 14 14, flat
button "4", 4, 2 31 14 14, flat
button "5", 5, 17 31 14 14, flat
button "6", 6, 32 31 14 14, flat
button "2", 2, 17 46 14 14, flat
button "3", 3, 32 46 14 14, flat
button ".", 10, 2 61 14 14, flat
button "0", 11, 17 61 14 14, flat
button "=", 12, 32 61 14 14, flat

kodun %60 ı benim yazdığım poLy addonundan bari dialog numaralarını değiştirseydin! N ala memleket bende gideyim Yapılmış dialogları alayım Serdar406 nın tüm dialoglarını 2 extra kod ekliyim ve ben yazdım diyim
Yuh yani ya dialog elemanlarının hepsi benim koddan çalıntı kodlamanın da %70 i

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

Asıl bomba birde benim poly serimin adını da almış neler görücez bakalım :D

Cevap: mIRC Hesap Makinesi B&W

Sadece görüntü olarak aldım arkadaşım işlev kısmı sanırım önemli olan.

Cevap: mIRC Hesap Makinesi B&W

Düne kadar sorunsuz çalışan kod artık sebebini bilmediğim bir nedenden dolayı çalışmamaktadır. İlgilenebilrseniz sevinirim. Sevgiler

PHP- Kodu:

   on $*:text:/^!hesapla /Si:#,?:{
  calculate $2-
}
alias calculate {
  if $sock(calculate) || $sock($+(calculate,$nick)) {
    sockclose $v1
  }
  sockopen $iif($event == text,$+(calculate,$nick),calculate) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.google.com 80
  sockmark $iif($event == text,$+(calculate,$nick) msg $iif(#,#,$nick),calculate echo -a) $1-
}
on *:sockopen:calculate*:{
  tokenize 32 $sock($sockname).mark
  sockwrite -nt $sockname GET $+(/ig/calculator?hl=en&q=,$urlencode($3-)) HTTP/1.1
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.google.com
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}
on *:sockread:calculate*:{
  sockread &greader
  var %greader $bvar(&greader,1-).text
  tokenize 32 $sock($sockname).mark
  if $regex(answer $+ $2,%greader,/rhs: "(.*?)"/) && $regex(calc $+ $2,%greader,/lhs: "(.*?)"/) {
    $1-2 $iif($regml(answer $+ $2,1) == $null,4Reel Sonucu yok.,03 $&
      $+ $csub($cchr($sup($replace($regml(calc $+ $2,1) = $v1,+,04+03,-,06-03,*,13*03,/,07/03,=,10=03)))))
    sockclose $sockname
  }
}
alias cchr return $regsubex($1,/\\x26#(\d+?);/g,$chr(\1))
alias sup return $regsubex($1,/\\x3csup\\x3e([\d-]+?)\\x3c\/sup\\x3e/Sg,12^\13)
alias urlencode return $regsubex($1,/(\W)/g,% $+ $base($asc(\1),10,16,2)))
alias csub return $regsubex($1,/\\x3csub\\x3e(.+?)\\x3c\/sub\\x3e/g,\1)

Cevap: mIRC Hesap Makinesi B&W

Google Resmi açıklaması: "iGoogle 1 Kasım 2013'te kullanımdan kaldırılacaktır. " Kullandığın kod ig yani iGoogle üzerinden veri çekiyordu. O yüzden çalışmıyordur.

Cevap: mIRC Hesap Makinesi B&W

Peki sevgili feragat. Başka siteden veyahut !hesapla sistemi ile çalıştırabilir miyiz ?

Cevap: mIRC Hesap Makinesi B&W

Alıntı:

kheldor Nickli Üyeden Alıntı (Mesaj 1041359061)

Peki sevgili feragat. Başka siteden veyahut !hesapla sistemi ile çalıştırabilir miyiz ?

Kodla yaptığın sadece 4 işlem mi, yoksa çok fonksiyonlu hesaplamalarda mı kullanıyordun. Tam olarak yapmak istediğin nedir.

Cevap: mIRC Hesap Makinesi B&W

İsteğini karşılar nitelikte mi bilmiyorum ama, 2 seçenekte ben sunayım.

1 - Socket bağlantı yapmadan $calc tanımı ile hesaplama (Normal hesap ve Yüzde hesaplama)

Kod:

on $*:text:/^[.!]hesapla\s+\S+/Si:#: { set -ln %hesap $2- | msg $chan İşlemin Sonucu: $calc(%hesap) }

on $*:text:/^[.!]y(u|ü)zde\s+\S+/Si:#: { msg $chan $2 Sayısının $+($chr(37),$3) = $calc($2 / 100 * $3) }

Sonuç:

Kod:

[14:09] <deneme1> !hesapla 110+150-100*2

[14:09] <Feragat> İşlemin Sonucu: 60

[14:09] <deneme1> !yüzde 60 10

[14:09] <Feragat> 60 Sayısının %10 = 6

[14:12] <deneme1> !hesapla 110+150-100*4

[14:12] <Feragat> İşlemin Sonucu: -140

2- Sende çalışmayan kodun değiştirilmiş hali (Socket bağlantı şekli, yine google üzerinden)

Kod:

on $*:text:/^!hesapla /Si:#:{

  set %kanal $chan | calculate $2-

}

alias calculate {

  sockclose calculate | sockopen calculate 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark calculate $1-

}

on *:sockopen:calculate:{

  sockwrite -nt $sockname GET $+(/search?q=,$urlencode($sock($sockname).mark)) HTTP/1.1

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: close

  sockwrite -nt $sockname $crlf

}

on *:sockread:calculate:{

  var %greader | sockread %greader

  if $regex(f,%greader,/["]>(.+)<\/h2><\/span><div\sstyle\=/)  { msg %kanal Sonuç: $gettok($replace($regml(f,1),$+($chr(37),">),$chr(124)),2,124) }

}
 

alias urlencode return $regsubex($1,/(\W)/g,% $+ $base($asc(\1),10,16,2)))

Sonuç

Kod:

[14:17] <deneme1> !hesapla 2*2

[14:17] <Feragat> Sonuç: 2 * 2 = 4

[14:28] <deneme1> !hesapla 2*2+2/2

[14:28] <Feragat> Sonuç: (2 * 2) + (2 / 2) = 5

[14:29] <deneme1> !hesapla 2*2+2/2+5-2

[14:29] <Feragat> Sonuç: (2 * 2) + (2 / 2) + 5 - 2 = 8

[14:30] <deneme1> !hesapla 2*2+2/2+5-2-1+7

[14:30] <Feragat> Sonuç: (2 * 2) + (2 / 2) + 5 - 2 - 1 + 7 = 14

Not: Kodun sadece veri yansıtmasını sağlayıp bıraktım. Zamanım yok çok detaylı uğraşamıyorum şuan.
- Ayrıca bu tarz sorunlarınızı [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bölümüne konu olarak açın lütfen. İyi forumlar.

Cevap: mIRC Hesap Makinesi B&W

Tam olarak istediğimi vermişsin. Çok müteşekkirim. Saygılar