#include #include #include #include #include #include #include #include #include #include #include #include #Include #Include #include #include #include #include #include #include "Misc.au3" #Region ### START Koda GUI section ### Form=C:\Users\Administrator\Desktop\Form1.kxf $Form1 = GUICreate("Roulette System - 8", 307, 608, 850, 49,-1,$WS_EX_TOPMOST) $Group1 = GUICtrlCreateGroup("Δ1", 24, 72, 257, 153) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $b0 = GUICtrlCreateButton("0", 32, 136, 43, 25) GUICtrlSetBkColor(-1, 0x00FF00) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "1η Δωδεκάδα") $Group2 = GUICtrlCreateGroup("Δ2", 24, 232, 257, 153) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $b14 = GUICtrlCreateButton("14", 160, 248, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b17 = GUICtrlCreateButton("17", 160, 280, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b20 = GUICtrlCreateButton("20", 160, 312, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b23 = GUICtrlCreateButton("23", 160, 344, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b15 = GUICtrlCreateButton("15", 232, 248, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b18 = GUICtrlCreateButton("18", 232, 280, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b21 = GUICtrlCreateButton("21", 232, 312, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b24 = GUICtrlCreateButton("24", 232, 344, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "2η Δωδεκάδα") $Group3 = GUICtrlCreateGroup("Δ3", 24, 392, 257, 153) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "3η Δωδεκάδα") $Group4 = GUICtrlCreateGroup("Κ1", 80, 56, 57, 489) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $b1 = GUICtrlCreateButton("1", 88, 88, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b4 = GUICtrlCreateButton("4", 88, 120, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b7 = GUICtrlCreateButton("7", 88, 152, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b10 = GUICtrlCreateButton("10", 88, 184, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b13 = GUICtrlCreateButton("13", 88, 248, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b16 = GUICtrlCreateButton("16", 88, 280, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b19 = GUICtrlCreateButton("19", 88, 312, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b22 = GUICtrlCreateButton("22", 88, 344, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b25 = GUICtrlCreateButton("25", 88, 408, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b28 = GUICtrlCreateButton("28", 88, 440, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b31 = GUICtrlCreateButton("31", 88, 472, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b34 = GUICtrlCreateButton("34", 88, 504, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "1η Κολόνα") $Group5 = GUICtrlCreateGroup("Κ2", 152, 56, 57, 489) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $b2 = GUICtrlCreateButton("2", 160, 88, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b5 = GUICtrlCreateButton("5", 160, 120, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b8 = GUICtrlCreateButton("8", 160, 152, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b11 = GUICtrlCreateButton("11", 160, 184, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b26 = GUICtrlCreateButton("26", 160, 408, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b29 = GUICtrlCreateButton("29", 160, 440, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b32 = GUICtrlCreateButton("32", 160, 472, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b35 = GUICtrlCreateButton("35", 160, 504, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "2η Κολόνα") $Group6 = GUICtrlCreateGroup("Κ3", 224, 56, 57, 489) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $b3 = GUICtrlCreateButton("3", 232, 88, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b6 = GUICtrlCreateButton("6", 232, 120, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b9 = GUICtrlCreateButton("9", 232, 152, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b12 = GUICtrlCreateButton("12", 232, 184, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b27 = GUICtrlCreateButton("27", 232, 408, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b30 = GUICtrlCreateButton("30", 232, 440, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) $b33 = GUICtrlCreateButton("33", 232, 472, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $b36 = GUICtrlCreateButton("36", 232, 504, 41, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0xFF0000) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "3η Κολόνα") $Label1 = GUICtrlCreateLabel("Παρακαλώ διαλέξτε τον αριθμό αυτού το spin", 16, 16, 274, 17) GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("by Κ. ΜΑΚΑΡΩΝΑΣ - SUPERBEL", 60, 568, 200, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;;//////////////////////////////////MAIN/////////////////////////////////////// _FileCreate ("stili.txt") _FileCreate ("sindiasmos.txt") _FileCreate ("kolona.txt") _FileCreate ("sindiasmos2.txt") _FileCreate ("sindiasmos-list.txt") _FileCreate ("sindiasmos2-list.txt") WHILE 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE FileDelete("stili.txt") FileDelete("sindiasmos.txt") FileDelete("kolona.txt") FileDelete("sindiasmos2.txt") FileDelete ("sindiasmos-list.txt") FileDelete ("sindiasmos2-list.txt") Exit Case $b0 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b1 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b2 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b3 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b4 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b5 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b6 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b7 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b8 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b9 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b10 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b11 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b12 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b13 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b14 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b15 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b16 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b17 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b18 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b19 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b20 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b21 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b22 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b23 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b24 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b25 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b26 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b27 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b28 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b29 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b30 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b31 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b32 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b33 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b34 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b35 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end Case $b36 ;;dodekada $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, "") FileClose($hFileOpen1) FileClose($hFileOpen2) ;;end ;;kolona $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, "") FileClose($hFileOpen3) FileClose($hFileOpen4) exitloop ;;end EndSwitch wend ;;1st loop end ;;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////SECOND LOOP;; While 1 $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $ffo3 = FileOpen("sindiasmos.txt", $FO_READ) $ffr3 = FileRead($ffo3) FileClose($ffo3) ;; more $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $ffo33 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr33 = FileRead($ffo33) FileClose($ffo33) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE FileDelete("stili.txt") FileDelete("sindiasmos.txt") FileDelete("kolona.txt") FileDelete("sindiasmos2.txt") FileDelete ("sindiasmos-list.txt") FileDelete ("sindiasmos2-list.txt") Exit Case $b0 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) FileClose($hFileOpennow) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;; ////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;; ////KOLONES////////////// Case $b1 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;//////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;//////////KOLONES////////////// Case $b2 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;/////////////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;;////////////KOLONES///////////// if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;///////////KOLONES////////////// Case $b3 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;///KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;//////KOLONES////////////// Case $b4 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;//////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;//////////KOLONES////////////// Case $b5 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;/////////////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;///////////KOLONES////////////// Case $b6 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;///KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;//////KOLONES////////////// Case $b7 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;//////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;//////////KOLONES////////////// Case $b8 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;/////////////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;///////////KOLONES////////////// Case $b9 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;///KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;//////KOLONES////////////// Case $b10 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;//////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;//////////KOLONES////////////// Case $b11 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;/////////////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;///////////KOLONES////////////// Case $b12 ;;;/////////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "1") FileWrite($hFileOpen2, $ffr+1) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+1&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-3]") endif ;;;/////////////////DODEKADES///////////// ;;///KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;//////KOLONES////////////// Case $b13 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;//////////KOLONES///////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;//KOLONES///////////// Case $b14 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;/////KOLONES///////////// Case $b15 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;;stiles start $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;//DODEKADES///////////// Case $b16 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;;stiles start $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;//DODEKADES///////////// Case $b17 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;;stiles start $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;//DODEKADES///////////// Case $b18 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;;stiles start $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;//DODEKADES///////////// Case $b19 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;;stiles start $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;//DODEKADES///////////// Case $b20 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;;stiles start $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;//DODEKADES///////////// Case $b21 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;;stiles start $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;//DODEKADES///////////// Case $b22 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;;stiles start $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;//DODEKADES///////////// Case $b23 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;//////////////KOLONES///////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;//////////////KOLONES///////////// Case $b24 ;;//DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "2") FileWrite($hFileOpen2, $ffr+2) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+2&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-2]") endif ;;//////////////KOLONES///////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;//////////////KOLONES///////////// Case $b25 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;/////////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;////////KOLONES////////////// Case $b26 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;/////KOLONES////////////// Case $b27 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;////KOLONES////////////// Case $b28 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;/////////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;////////KOLONES////////////// Case $b29 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;/////KOLONES////////////// Case $b30 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;////KOLONES////////////// Case $b31 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;/////////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;////////KOLONES////////////// Case $b32 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;/////KOLONES////////////// Case $b33 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;////KOLONES////////////// Case $b34 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;/////////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "1") FileWrite($hFileOpen4, $ffr11+1) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+1&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-3]") endif ;;////////KOLONES////////////// Case $b35 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "2") FileWrite($hFileOpen4, $ffr11+2) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+2&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-2]") endif ;;/////KOLONES////////////// Case $b36 ;;//////////////DODEKADES///////////// $hFileOpen1 = FileOpen("stili.txt", $FO_OVERWRITE) $hFileOpen2 = FileOpen("sindiasmos.txt", $FO_OVERWRITE) FileWrite($hFileOpen1, "3") FileWrite($hFileOpen2, $ffr+3) $hFileOpennow = FileOpen("sindiasmos-list.txt", $FO_APPEND) FileWrite($hFileOpennow, $ffr+3&@CRLF) FileClose($hFileOpen1) FileClose($hFileOpen2) $ffo = FileOpen("stili.txt", $FO_READ) $ffr = FileRead($ffo) FileClose($ffo) $ffo2 = FileOpen("sindiasmos.txt", $FO_READ) $ffr2 = FileRead($ffo2) FileClose($ffo2) $play=$ffr2-$ffr If $ffr2 = 4 Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr2 = $ffr3 Then Local $aFile Local $bError = False _FileReadToArray("sindiasmos-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΔΩΔΕΚΑΔΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΔΩΔΕΚΑΔΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΔΩΔΕΚΑΔΕΣ >> ["&$play&"-1]") endif ;;//////////////DODEKADES///////////// ;;////KOLONES////////////// $hFileOpen3 = FileOpen("kolona.txt", $FO_OVERWRITE) $hFileOpen4 = FileOpen("sindiasmos2.txt", $FO_OVERWRITE) FileWrite($hFileOpen3, "3") FileWrite($hFileOpen4, $ffr11+3) $hFileOpennow2 = FileOpen("sindiasmos2-list.txt", $FO_APPEND) FileWrite($hFileOpennow2, $ffr11+3&@CRLF) FileClose($hFileOpen3) FileClose($hFileOpen4) $ffo11 = FileOpen("kolona.txt", $FO_READ) $ffr11 = FileRead($ffo11) FileClose($ffo11) $ffo22 = FileOpen("sindiasmos2.txt", $FO_READ) $ffr22 = FileRead($ffo22) FileClose($ffo22) $play2=$ffr22-$ffr11 ;; if $ffr22 = 4 then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (ΣΥΝΔΙΑΣΜΟΣ 4)") elseif $ffr22 = $ffr33 then Local $aFile Local $bError = False _FileReadToArray("sindiasmos2-list.txt", $aFile, $FRTA_NOCOUNT) If (@Error) Then MsgBox("", "_FRTA Error", "Failed to read file to array") Return EndIf For $i = UBound($aFile) - 1 To 2 Step -1 If ($aFile[$i] = $aFile[$i - 1] and $aFile[$i - 2] = $aFile[$i - 1]) Then $bError = True EndIf Next If ($bError) Then MsgBox($MB_TOPMOST, "", "ΜΗΝ ΠΑΙΞΕTE ΣΤΟ ΕΠΟΜΕΝΟ SPIN ΚΟΛΟΝΕΣ (3 ΟΜΟΙΑ)") Else MsgBox($MB_TOPMOST, "", "ΑΝΙΧΝΕΥΘΗΚΕ ΙΔΙΟΣ ΣΥΝΔΙΑΣΜΟΣ ΣΤΙΣ ΚΟΛΟΝΕΣ!!"& @CRLF&""&@CRLF &"Πιθανό κέρδος παίζοντας τις:"& @CRLF&"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") EndIf else MsgBox($MB_TOPMOST, "", "Πιθανό κέρδος παίζοντας τις:"& @CRLF&""&@CRLF &"ΚΟΛΟΝΕΣ >> ["&$play2&"-1]") endif ;;////KOLONES////////////// EndSwitch wend