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) }

[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

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)))

[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