menu * {
Bulmaca Çöz:bulmaca
}
on *:dialog:kare:sclick:*:{
if $did == 200 { unset %difyyuk | set -e %difysol on }
elseif $did == 203 { unset %difysol | set -e %difyyuk on }
elseif $did == 202 { url -n http://www.ircforumlari.net/uyeler/40159.html }
elseif $did == 218 { if %Cenk == 11 { unset %Cenk } | else { inc %Cenk 1 } | bulmaca }
}
on *:dialog:Kare:edit:*:{
if %difysol && $did < 100 && $did(kare,$calc($did +1)).enabled == $true { did -f Kare $calc($did +1) }
elseif %difyyuk && $did < 90 && $did(kare,$calc($did +10)).enabled == $true { did -f Kare $calc($did +10) }
}

alias bulmaca {
.remove bulmaca.txt
$iif($dialog(Kare),dialog -x Kare)
Gorunum
window -nh @Dify
if !%Cenk { set -e %Cenk $rand(1,11) }
sockclose bulmaca
sockopen bulmaca www.bulmacalar.net 80
}
on *:sockopen:bulmaca:{
sockwrite -n $sockname GET /karebulmaca/bulmaca $+ %Cenk $+ .asp HTTP/1.1
sockwrite -n $sockname Host: www.bulmacalar.net $str($crlf,2)
}
on *:sockread:bulmaca:{
if ($sockerr) { echo -a Veri alımında hata oluştu. | halt }
else {
var %dify | sockread %dify
write bulmaca1.txt %dify
if $regex(%dify,/"\x2C\"/) { set %difytok $addtokcs(%difytok,%dify,35) }
write -n bulmaca.txt $replace(%dify,LDAN,$+($lf,SOLDAN),YUKARDAN,$+($lf ,YUKARDAN),Restart,$+($lf,Restart))
if $regex(%dify,/a(\d+)\.style\.background="black"/) { did -b Kare $regml(1) }
if (*Ana*Sayfa* iswm %dify) {
filter -fwgp bulmaca.txt @Dify SOLDAN|YUKARDAN
did -a Kare 216 $htmlfree($remove($line(@Dify,1),SOLDANSAĞA))
did -a Kare 217 $htmlfree($remove($line(@Dify,2),YUKARDAN AŞAĞIYA))
window -c @Dify
set %diffytok $deltok(%difytok,1,44) | unset %difytok
var %different 1 | while %different <= $token(%diffytok,0,44) { did -a Kare $calc(300+ %different) $remove($token(%diffytok,%different,44),",$chr(32) ,$chr(35),$chr(40),$chr(41)) | inc %different }
sockclose bulmaca
unset %dif*
}
}
}
dialog Kare {
title "Kare BULMACA"
size -1 -1 134 266
option dbu
edit "", 1, 17 12 10 10, limit 1
edit "", 2, 27 12 10 10, limit 1
edit "", 3, 37 12 10 10, limit 1
edit "", 4, 47 12 10 10, limit 1
edit "", 5, 57 12 10 10, limit 1
edit "", 6, 67 12 10 10, limit 1
edit "", 7, 77 12 10 10, limit 1
edit "", 8, 87 12 10 10, limit 1
edit "", 9, 97 12 10 10, limit 1
edit "", 10, 107 12 10 10, limit 1
edit "", 11, 17 22 10 10, limit 1
edit "", 12, 27 22 10 10, limit 1
edit "", 13, 37 22 10 10, limit 1
edit "", 14, 47 22 10 10, limit 1
edit "", 15, 57 22 10 10, limit 1
edit "", 16, 67 22 10 10, limit 1
edit "", 17, 77 22 10 10, limit 1
edit "", 18, 87 22 10 10, limit 1
edit "", 19, 97 22 10 10, limit 1
edit "", 20, 107 22 10 10, limit 1
edit "", 21, 17 32 10 10, limit 1
edit "", 22, 27 32 10 10, limit 1
edit "", 23, 37 32 10 10, limit 1
edit "", 24, 47 32 10 10, limit 1
edit "", 25, 57 32 10 10, limit 1
edit "", 26, 67 32 10 10, limit 1
edit "", 27, 77 32 10 10, limit 1
edit "", 28, 87 32 10 10, limit 1
edit "", 29, 97 32 10 10, limit 1
edit "", 30, 107 32 10 10, limit 1
edit "", 31, 17 42 10 10, limit 1
edit "", 32, 27 42 10 10, limit 1
edit "", 33, 37 42 10 10, limit 1
edit "", 34, 47 42 10 10, limit 1
edit "", 35, 57 42 10 10, limit 1
edit "", 36, 67 42 10 10, limit 1
edit "", 37, 77 42 10 10, limit 1
edit "", 38, 87 42 10 10, limit 1
edit "", 39, 97 42 10 10, limit 1
edit "", 40, 107 42 10 10, limit 1
edit "", 41, 17 52 10 10, limit 1
edit "", 42, 27 52 10 10, limit 1
edit "", 43, 37 52 10 10, limit 1
edit "", 44, 47 52 10 10, limit 1
edit "", 45, 57 52 10 10, limit 1
edit "", 46, 67 52 10 10, limit 1
edit "", 47, 77 52 10 10, limit 1
edit "", 48, 87 52 10 10, limit 1
edit "", 49, 97 52 10 10, limit 1
edit "", 50, 107 52 10 10, limit 1
edit "", 51, 17 62 10 10, limit 1
edit "", 52, 27 62 10 10, limit 1
edit "", 53, 37 62 10 10, limit 1
edit "", 54, 47 62 10 10, limit 1
edit "", 55, 57 62 10 10, limit 1
edit "", 56, 67 62 10 10, limit 1
edit "", 57, 77 62 10 10, limit 1
edit "", 58, 87 62 10 10, limit 1
edit "", 59, 97 62 10 10, limit 1
edit "", 60, 107 62 10 10, limit 1
edit "", 61, 17 72 10 10, limit 1
edit "", 62, 27 72 10 10, limit 1
edit "", 63, 37 72 10 10, limit 1
edit "", 64, 47 72 10 10, limit 1
edit "", 65, 57 72 10 10, limit 1
edit "", 66, 67 72 10 10, limit 1
edit "", 67, 77 72 10 10, limit 1
edit "", 68, 87 72 10 10, limit 1
edit "", 69, 97 72 10 10, limit 1
edit "", 70, 107 72 10 10, limit 1
edit "", 71, 17 82 10 10, limit 1
edit "", 72, 27 82 10 10, limit 1
edit "", 73, 37 82 10 10, limit 1
edit "", 74, 47 82 10 10, limit 1
edit "", 75, 57 82 10 10, limit 1
edit "", 76, 67 82 10 10, limit 1
edit "", 77, 77 82 10 10, limit 1
edit "", 78, 87 82 10 10, limit 1
edit "", 79, 97 82 10 10, limit 1
edit "", 80, 107 82 10 10, limit 1
edit "", 81, 17 92 10 10, limit 1
edit "", 82, 27 92 10 10, limit 1
edit "", 83, 37 92 10 10, limit 1
edit "", 84, 47 92 10 10, limit 1
edit "", 85, 57 92 10 10, limit 1
edit "", 86, 67 92 10 10, limit 1
edit "", 87, 77 92 10 10, limit 1
edit "", 88, 87 92 10 10, limit 1
edit "", 89, 97 92 10 10, limit 1
edit "", 90, 107 92 10 10, limit 1
edit "", 91, 17 102 10 10, limit 1
edit "", 92, 27 102 10 10, limit 1
edit "", 93, 37 102 10 10, limit 1
edit "", 94, 47 102 10 10, limit 1
edit "", 95, 57 102 10 10, limit 1
edit "", 96, 67 102 10 10, limit 1
edit "", 97, 77 102 10 10, limit 1
edit "", 98, 87 102 10 10, limit 1
edit "", 99, 97 102 10 10, limit 1
edit "", 100, 107 102 10 10, limit 1
text "1 2 3 4 5 6 7 8 9 10", 205, 20 2 101 7
text "1", 206, 7 14 10 7
text "2", 207, 7 24 10 7
text "3", 208, 7 34 10 7
text "4", 209, 7 44 10 7
text "5", 210, 7 54 10 7
text "6", 211, 7 64 10 7
text "7", 212, 7 74 10 7
text "8", 213, 7 84 10 7
text "9", 214, 7 94 10 7
text "10", 215, 5 104 10 7
tab "Soldan Sağa", 200, 6 119 123 137
tab "Yukarıdan Aşağıya", 203
tab "Çöz", 204
button "Yeni", 218, 95 243 20 10, tab 204
text "", 216, 8 135 115 120, tab 200
text "", 217, 8 135 115 120, tab 203
link "Product by Difuzyon", 202, 42 257 68 8
text "1 2 3 4 5 6 7 8 9 10", 411, 20 133 101 6, tab 204
text "1", 412, 8 144 10 7, tab 204
text "2", 413, 8 154 10 7, tab 204
text "3", 414, 8 164 10 7, tab 204
text "4", 415, 8 174 10 7, tab 204
text "5", 416, 8 184 10 7, tab 204
text "6", 417, 8 194 10 7, tab 204
text "7", 418, 8 204 10 7, tab 204
text "8", 419, 8 214 10 7, tab 204
text "9", 420, 8 224 10 7, tab 204
text "10", 421, 7 234 10 7, tab 204
edit "", 301, 17 142 10 10, tab 204 read
edit "", 302, 27 142 10 10, tab 204 read
edit "", 303, 37 142 10 10, tab 204 read
edit "", 304, 47 142 10 10, tab 204 read
edit "", 305, 57 142 10 10, tab 204 read
edit "", 306, 67 142 10 10, tab 204 read
edit "", 307, 77 142 10 10, tab 204 read
edit "", 308, 87 142 10 10, tab 204 read
edit "", 309, 97 142 10 10, tab 204 read
edit "", 310, 107 142 10 10, tab 204 read
edit "", 311, 17 152 10 10, tab 204 read
edit "", 312, 27 152 10 10, tab 204 read
edit "", 313, 37 152 10 10, tab 204 read
edit "", 314, 47 152 10 10, tab 204 read
edit "", 315, 57 152 10 10, tab 204 read
edit "", 316, 67 152 10 10, tab 204 read
edit "", 317, 77 152 10 10, tab 204 read
edit "", 318, 87 152 10 10, tab 204 read
edit "", 319, 97 152 10 10, tab 204 read
edit "", 320, 107 152 10 10, tab 204 read
edit "", 321, 17 162 10 10, tab 204 read
edit "", 322, 27 162 10 10, tab 204 read
edit "", 323, 37 162 10 10, tab 204 read
edit "", 324, 47 162 10 10, tab 204 read
edit "", 325, 57 162 10 10, tab 204 read
edit "", 326, 67 162 10 10, tab 204 read
edit "", 327, 77 162 10 10, tab 204 read
edit "", 328, 87 162 10 10, tab 204 read
edit "", 329, 97 162 10 10, tab 204 read
edit "", 330, 107 162 10 10, tab 204 read
edit "", 331, 17 172 10 10, tab 204 read
edit "", 332, 27 172 10 10, tab 204 read
edit "", 333, 37 172 10 10, tab 204 read
edit "", 334, 47 172 10 10, tab 204 read
edit "", 335, 57 172 10 10, tab 204 read
edit "", 336, 67 172 10 10, tab 204 read
edit "", 337, 77 172 10 10, tab 204 read
edit "", 338, 87 172 10 10, tab 204 read
edit "", 339, 97 172 10 10, tab 204 read
edit "", 340, 107 172 10 10, tab 204 read
edit "", 341, 17 182 10 10, tab 204 read
edit "", 342, 27 182 10 10, tab 204 read
edit "", 343, 37 182 10 10, tab 204 read
edit "", 344, 47 182 10 10, tab 204 read
edit "", 345, 57 182 10 10, tab 204 read
edit "", 346, 67 182 10 10, tab 204 read
edit "", 347, 77 182 10 10, tab 204 read
edit "", 348, 87 182 10 10, tab 204 read
edit "", 349, 97 182 10 10, tab 204 read
edit "", 350, 107 182 10 10, tab 204 read
edit "", 351, 17 192 10 10, tab 204 read
edit "", 352, 27 192 10 10, tab 204 read
edit "", 353, 37 192 10 10, tab 204 read
edit "", 354, 47 192 10 10, tab 204 read
edit "", 355, 57 192 10 10, tab 204 read
edit "", 356, 67 192 10 10, tab 204 read
edit "", 357, 77 192 10 10, tab 204 read
edit "", 358, 87 192 10 10, tab 204 read
edit "", 359, 97 192 10 10, tab 204 read
edit "", 360, 107 192 10 10, tab 204 read
edit "", 361, 17 202 10 10, tab 204 read
edit "", 362, 27 202 10 10, tab 204 read
edit "", 363, 37 202 10 10, tab 204 read
edit "", 364, 47 202 10 10, tab 204 read
edit "", 365, 57 202 10 10, tab 204 read
edit "", 366, 67 202 10 10, tab 204 read
edit "", 367, 77 202 10 10, tab 204 read
edit "", 368, 87 202 10 10, tab 204 read
edit "", 369, 97 202 10 10, tab 204 read
edit "", 370, 107 202 10 10, tab 204 read
edit "", 371, 17 212 10 10, tab 204 read
edit "", 372, 27 212 10 10, tab 204 read
edit "", 373, 37 212 10 10, tab 204 read
edit "", 374, 47 212 10 10, tab 204 read
edit "", 375, 57 212 10 10, tab 204 read
edit "", 376, 67 212 10 10, tab 204 read
edit "", 377, 77 212 10 10, tab 204 read
edit "", 378, 87 212 10 10, tab 204 read
edit "", 379, 97 212 10 10, tab 204 read
edit "", 380, 107 212 10 10, tab 204 read
edit "", 381, 17 222 10 10, tab 204 read
edit "", 382, 27 222 10 10, tab 204 read
edit "", 383, 37 222 10 10, tab 204 read
edit "", 384, 47 222 10 10, tab 204 read
edit "", 385, 57 222 10 10, tab 204 read
edit "", 386, 67 222 10 10, tab 204 read
edit "", 387, 77 222 10 10, tab 204 read
edit "", 388, 87 222 10 10, tab 204 read
edit "", 389, 97 222 10 10, tab 204 read
edit "", 390, 107 222 10 10, tab 204 read
edit "", 391, 17 232 10 10, tab 204 read
edit "", 392, 27 232 10 10, tab 204 read
edit "", 393, 37 232 10 10, tab 204 read
edit "", 394, 47 232 10 10, tab 204 read
edit "", 395, 57 232 10 10, tab 204 read
edit "", 396, 67 232 10 10, tab 204 read
edit "", 397, 77 232 10 10, tab 204 read
edit "", 398, 87 232 10 10, tab 204 read
edit "", 399, 97 232 10 10, tab 204 read
edit "", 400, 107 232 10 10, tab 204 read
}
Alias Gorunum { dialog -m kare kare }