Aceguy Posted February 13, 2008 Posted February 13, 2008 (edited) Here it is.... Thanks to ALL that helped me with this script......(many questions asked). This to me shows what a FANTASTIC program Autoit is...... BTW, this is not a HACK, CRACK or anything like that. its a timer that listens to keystrokes and gives a graphical update to how long you can recast you spells/abilities. it does also send the code to the game, i.e. /ma "Cure" <bt> expandcollapse popup#include<GUIConstants.au3> #include<Array.au3> #include<Misc.au3> #include <Sound.au3> #include <GUICombo.au3> Opt("GUIOnEventMode", 1) Opt("SendKeyDownDelay", 1) Opt("SendKeyDelay", 5); Global $height, $Labela1, $group_i, $target, $com_read, $t_clock, $t_clock2, $t_listen $t_clock = 500 $t_clock2 = 0.5 $t_listen = 50 $Form1 = GUICreate("Countdown", 450, 80, 810, 74, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE, $WS_EX_TOPMOST)) GUISetOnEvent($GUI_EVENT_CLOSE, "quit") GUICtrlSetResizing(-1, $GUI_DOCKALL) $add = GUICtrlCreateButton("Add", 8, 8, 49, 25, 0) GUICtrlSetOnEvent(-1, "addrow") GUICtrlSetResizing(-1, $GUI_DOCKALL) $remove = GUICtrlCreateButton("Delete", 64, 8, 49, 25, 0) GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetOnEvent(-1, "remove") $save = GUICtrlCreateButton("Clear List", 120, 8, 57, 25, 0) GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetOnEvent(-1, "clear") $reset= GUICtrlCreateButton("Reset " ,375, 58, 60, 15) GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetOnEvent(-1, "Reset") GUICtrlSetTip(-1,"Resets All Counters to Start Time.!!") $Combo1 = GUICtrlCreateCombo("Combo1", 8, 40, 73, 25) GUICtrlSetData(-1, "CTRL|ALT") GUICtrlSetResizing(-1, $GUI_DOCKALL) $Combo2 = GUICtrlCreateCombo("Combo2", 88, 40, 73, 25) GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|0|b") GUICtrlSetResizing(-1, $GUI_DOCKALL) $name = GUICtrlCreateInput("name", 184, 8, 73, 21) GUICtrlSetResizing(-1, $GUI_DOCKALL) $Combo3 = GUICtrlCreateCombo("Combo3", 168, 40, 81, 25) GUICtrlSetData(-1, "3 Secs|5 Secs|10 Secs|15 Secs|20 Secs|30 Secs|45 Secs|1 Min|1 Min 30 Secs|2 Mins|3 Mins|4 Mins|5 Mins|10 Mins|15 Mins|30 Mins|2 Hrs") GUICtrlSetResizing(-1, $GUI_DOCKALL) $Checkbox1 = GUICtrlCreateCheckbox("Custon Macro", 264, 8, 85, 25) GUICtrlSetResizing(-1, $GUI_DOCKALL) $Label_target = GUICtrlCreateLabel("Target", 264, 40, 100, 26,$SS_SUNKEN,-1) GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKALL) $combo_group = GUICtrlCreateCombo('', 355, 8, 89, 21, BitOR($CBS_DROPDOWN, $CBS_SORT, $ES_READONLY), 0) GUICtrlSetOnEvent(-1, "combo_change") GUICtrlSetData(-1, "Beastmaster|Ranger|Bard|Warrior|Theif|Red Mage|White Mage|Blue Mage|Black Mage|Palladin|Monk|Ninja|Samurai|Pupateer|Summoner|Scholar|Dancer|Dragoon|Dark Knight|Corinthian|Custom Set #1|Custom Set #2") GUICtrlSetResizing(-1, $GUI_DOCKALL) $settings = GUICtrlCreateButton("Settings", 375, 40, 60, 15) GUICtrlSetTip(-1,"Right Click"&@CRLF&"How Quick in Milliseconds it will"&@CRLF&"detect your Key-Strokes / Green&Red Progress bars") GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetOnEvent(-1,"but_save") $buttoncontext = GUICtrlCreateContextMenu($settings) $buttonitem = GUICtrlCreateMenu("Listen Time", $buttoncontext) $buttonitem1 = GUICtrlCreateMenu("Bar Update", $buttoncontext) $key0 = GUICtrlCreateMenuItem("200", $buttonitem) GUICtrlSetOnEvent(-1, "listen") $key1 = GUICtrlCreateMenuItem("100", $buttonitem) GUICtrlSetOnEvent(-1, "listen") $key2 = GUICtrlCreateMenuItem("75", $buttonitem) GUICtrlSetOnEvent(-1, "listen") $key3 = GUICtrlCreateMenuItem("50", $buttonitem) GUICtrlSetOnEvent(-1, "listen") $key2 = GUICtrlCreateMenuItem("25", $buttonitem) GUICtrlSetOnEvent(-1, "listen") $bar1 = GUICtrlCreateMenuItem("1000", $buttonitem1) GUICtrlSetOnEvent(-1, "bars") $bar2 = GUICtrlCreateMenuItem("500", $buttonitem1) GUICtrlSetOnEvent(-1, "bars") $bar2 = GUICtrlCreateMenuItem("250", $buttonitem1) GUICtrlSetOnEvent(-1, "bars") Dim $group_i[1] Dim $Label_i[1] Dim $Input_i[1] Dim $i_key[1] Dim $i_key_a[1] Dim $i_key_b[1] Dim $timer_init[1] Dim $Input_i_2[1] Dim $t_start[1] Dim $init[1] Dim $Labela1[1] Dim $Inputa1[1] Dim $macro[1] dim $b[1] $stress=False $save = False $combo_sent=False $line = 0 $b2y = 0 $num = 50 $bY = 0 $bx = 0 $alt = 0 $ctrl = 0 $box = 0 $done = 0 $t_clock3=1 $diff2=0 $diff3=0 $wait_len = 1 Dim $IniFile = @MyDocumentsDir & "\coutdown.ini" $op = FileOpen($IniFile, 0) If $op = -1 Then $c_list = _GUICtrlComboGetList($combo_group) MsgBox(0, "", $c_list, 0) $c_list1 = StringSplit($c_list, "|") For $c_l = 1 To $c_list1[0] IniWrite($IniFile, $c_list1[$c_l], "0", "0") Next EndIf $ir1=IniRead($IniFile,"settings",0,"") if $ir1 <> "" Then if $ir1 = 22 then $t_clock = 1000 $t_clock2 = $t_clock / 1000 elseif $ir1 = 23 Then $t_clock = 500 $t_clock2 = $t_clock / 1000 elseif $ir1 = 24 Then $t_clock = 250 $t_clock2 = $t_clock / 1000 EndIf GUICtrlSetState($ir1, $GUI_CHECKED) EndIf $ir2=IniRead($IniFile,"settings",1,"") if $ir2 <> "" Then if $ir2 = 17 Then $t_listen = 200 elseif $ir2 = 18 Then $t_listen = 100 elseif $ir2 = 19 Then $t_listen = 75 elseif $ir2 = 20 Then $t_listen = 50 Elseif $ir2 = 21 Then $t_listen = 25 EndIf GUICtrlSetState($ir2, $GUI_CHECKED) EndIf $ir3=iniread($IniFile,"Last",0,"") if $ir3 <> "" Then _GUICtrlComboSelectString ( $combo_group,1,$ir3) EndIf AdlibEnable("time", $t_clock) GUISetState(@SW_SHOW) combo_change() While 1 For $c = 1 To $group_i[0] If _IsPressed($i_key_a[$c]) And _IsPressed($i_key_b[$c]) Then GUICtrlSetBkColor($Input_i[$c], 0xff0000) _SoundPlay(@WindowsDir & "\media\notify.wav", 0) If $t_start[$c] = False Then $t_start[$c] = True ElseIf $t_start[$c] = True Then $timer_init[$c] = $init[$c] EndIf If $macro[$c] <> '0' Then If GUICtrlRead($Label_target) = "Target" Then $target = '<t>' elseif GUICtrlRead($Label_target) = "ME" Then $target = '<me>' elseif GUICtrlRead($Label_target) = "F2" Then $target = '<p1>' elseif GUICtrlRead($Label_target) = "F3" Then $target = '<p2>' elseif GUICtrlRead($Label_target) = "F4" Then $target = '<p3>' elseif GUICtrlRead($Label_target) = "F5" Then $target = '<p4>' elseif GUICtrlRead($Label_target) = "F6" Then $target = '<p5>' elseif GUICtrlRead($Label_target) = "Battle" Then $target = '<bt>' EndIf EndIf EndIf Next If _IsPressed("09") Then GUICtrlSetData($Label_target, "Target") GUICtrlSetBkColor($Label_target,0xFFFFaa) elseif _IsPressed("70") Then GUICtrlSetData($Label_target, "ME") GUICtrlSetBkColor($Label_target, 0xFFFFFF) elseif _IsPressed("71") Then gUICtrlSetData($Label_target, "F2") GUICtrlSetBkColor($Label_target, 0xA6CAF0) elseif _IsPressed("72") Then GUICtrlSetData($Label_target, "F3") GUICtrlSetBkColor($Label_target, 0xA6CAF0) elseif _IsPressed("73") Then GUICtrlSetData($Label_target, "F4") GUICtrlSetBkColor($Label_target, 0xA6CAF0) elseif _IsPressed("74") Then GUICtrlSetData($Label_target, "F5") GUICtrlSetBkColor($Label_target, 0xA6CAF0) elseif _IsPressed("75") Then GUICtrlSetData($Label_target, "F6") GUICtrlSetBkColor($Label_target, 0xA6CAF0) elseif _IsPressed("77") Then GUICtrlSetData($Label_target, "Battle") GUICtrlSetBkColor($Label_target, 0xFF0000) EndIf Sleep($t_listen) WEnd Func addrow() ;*********************** CHECKS IS KEY EXISTS *********************** $match = False If GUICtrlRead($Combo1) = "CTRL" Then $c_r = "11" If GUICtrlRead($Combo1) = "ALT" Then $c_r = "12" If GUICtrlRead($Combo2) = '1' Then $c_s = "31" If GUICtrlRead($Combo2) = '2' Then $c_s = "32" If GUICtrlRead($Combo2) = '3' Then $c_s = "33" If GUICtrlRead($Combo2) = '4' Then $c_s = "34" If GUICtrlRead($Combo2) = '5' Then $c_s = "35" If GUICtrlRead($Combo2) = '6' Then $c_s = "36" If GUICtrlRead($Combo2) = '7' Then $c_s = "37" If GUICtrlRead($Combo2) = '8' Then $c_s = "38" If GUICtrlRead($Combo2) = '9' Then $c_s = "39" If GUICtrlRead($Combo2) = '0' Then $c_s = "30" If GUICtrlRead($Combo2) = 'b' Then $c_s = "42" For $c = 1 To $group_i[0] If $i_key_a[$c] = $c_r And $i_key_b[$c] = $c_s Then $match = True EndIf Next ;******************************************************************* If $match = False Then If GUICtrlRead($name) <> "name" And GUICtrlRead($name) <> "" And GUICtrlRead($Combo1) <> "Combo1" And GUICtrlRead($Combo2) <> "Combo2" And GUICtrlRead($Combo3) <> "Combo3" Then $group_i[0] += 1 $Label_i[0] += 1 $Input_i[0] += 1 $i_key_a[0] += 1 $i_key_b[0] += 1 $timer_init[0] += 1 $Input_i_2[0] += 1 $t_start[0] += 1 $init[0] += 1 $macro[0] += 1 $b[0] +=1 ReDim $group_i[$group_i[0] + 1] ReDim $Label_i[$Label_i[0] + 1] ReDim $Input_i[$Input_i[0] + 1] ReDim $i_key_a[$i_key_a[0] + 1] ReDim $i_key_b[$i_key_b[0] + 1] ReDim $timer_init[$timer_init[0] + 1] ReDim $Input_i_2[$Input_i_2[0] + 1] ReDim $t_start[$t_start[0] + 1] ReDim $init[$init[0] + 1] ReDim $macro[$macro[0] + 1] ReDim $b[$b[0] +1] $Ypos = WinGetPos("Countdown") If GUICtrlRead($Combo1) = "ALT" Then $bx = 220 $alt += 1 If $alt = $ctrl Then $height = ($alt * $num) + 100 $box = ($alt * $num) ElseIf $alt > $ctrl Then $height = ($alt * $num) + 100 $box = ($alt * $num) ElseIf $alt < $ctrl Then $box = ($alt * $num) EndIf ElseIf GUICtrlRead($Combo1) = "CTRL" Then $bx = 0 $ctrl += 1 If $alt = $ctrl Then $height = ($alt * $num) + 100 $box = ($ctrl * $num) ElseIf $ctrl > $alt Then $box = ($ctrl * $num) $height = ($ctrl * $num) + 100 ElseIf $ctrl < $alt Then $box = $ctrl * $num EndIf EndIf WinMove("Countdown", '', $Ypos[0], $Ypos[1], $Ypos[2], $height, 0) $group_i[$group_i[0]] = GUICtrlCreateGroup(GUICtrlRead($Combo1) & "+" & GUICtrlRead($Combo2), 3 + $bx, 22 + $box, 215, 49) GUICtrlSetResizing(-1, $GUI_DOCKALL) $Label_i[$Label_i[0]] = GUICtrlCreateLabel(GUICtrlRead($name), 10 + $bx, 37 + $box, 150, 20) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKALL) $Input_i[$Input_i[0]] = GUICtrlCreateProgress(10 + $bx, 56 + $box, 200, 10) GUICtrlSetColor(-1, 0x00FF00) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetCursor(-1, 7) DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", " ", "wstr", " ") GUICtrlSetStyle(-1, 1) GUICtrlSetResizing(-1, $GUI_DOCKALL) $Input_i_2[$Input_i_2[0]] = GUICtrlCreateLabel("", 160 + $bx, 35 + $box, 50, 15,bitor($SS_SUNKEN,$SS_RIGHT),-1) GUICtrlSetCursor(-1, 7) GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetBkColor(-1, 0xFFFFFF) GUICtrlCreateGroup ("",-99,-99,1,1) If GUICtrlRead($Combo1) = "CTRL" Then $i_key_a[$i_key_a[0]] = "11" If GUICtrlRead($Combo1) = "ALT" Then $i_key_a[$i_key_a[0]] = "12" If GUICtrlRead($Combo2) = '1' Then $i_key_b[$i_key_b[0]] = "31" If GUICtrlRead($Combo2) = '2' Then $i_key_b[$i_key_b[0]] = "32" If GUICtrlRead($Combo2) = '3' Then $i_key_b[$i_key_b[0]] = "33" If GUICtrlRead($Combo2) = '4' Then $i_key_b[$i_key_b[0]] = "34" If GUICtrlRead($Combo2) = '5' Then $i_key_b[$i_key_b[0]] = "35" If GUICtrlRead($Combo2) = '6' Then $i_key_b[$i_key_b[0]] = "36" If GUICtrlRead($Combo2) = '7' Then $i_key_b[$i_key_b[0]] = "37" If GUICtrlRead($Combo2) = '8' Then $i_key_b[$i_key_b[0]] = "38" If GUICtrlRead($Combo2) = '9' Then $i_key_b[$i_key_b[0]] = "39" If GUICtrlRead($Combo2) = '0' Then $i_key_b[$i_key_b[0]] = "30" If GUICtrlRead($Combo2) = 'b' Then $i_key_b[$i_key_b[0]] = "42" If GUICtrlRead($Combo3) = '3 Secs' Then $timer_init[$timer_init[0]] = 3000 If GUICtrlRead($Combo3) = '5 Secs' Then $timer_init[$timer_init[0]] = 5000 If GUICtrlRead($Combo3) = '10 Secs' Then $timer_init[$timer_init[0]] = 10000 If GUICtrlRead($Combo3) = '15 Secs' Then $timer_init[$timer_init[0]] = 15000 If GUICtrlRead($Combo3) = '20 Secs' Then $timer_init[$timer_init[0]] = 20000 If GUICtrlRead($Combo3) = '30 Secs' Then $timer_init[$timer_init[0]] = 30000 If GUICtrlRead($Combo3) = '45 Secs' Then $timer_init[$timer_init[0]] = 45000 If GUICtrlRead($Combo3) = '1 Min' Then $timer_init[$timer_init[0]] = 60000 If GUICtrlRead($Combo3) = '1 Min 30 Secs' Then $timer_init[$timer_init[0]] = 90000 If GUICtrlRead($Combo3) = '2 Mins' Then $timer_init[$timer_init[0]] = 120000 If GUICtrlRead($Combo3) = '3 Mins' Then $timer_init[$timer_init[0]] = 3 * 60000 If GUICtrlRead($Combo3) = '4 Mins' Then $timer_init[$timer_init[0]] = 4 * 60000 If GUICtrlRead($Combo3) = '5 Mins' Then $timer_init[$timer_init[0]] = 5 * 60000 If GUICtrlRead($Combo3) = '10 Mins' Then $timer_init[$timer_init[0]] = 10 * 60000 If GUICtrlRead($Combo3) = '15 Mins' Then $timer_init[$timer_init[0]] = 15 * 60000 If GUICtrlRead($Combo3) = '30 Mins' Then $timer_init[$timer_init[0]] = 30 * 60000 If GUICtrlRead($Combo3) = '2 Hrs' Then $timer_init[$timer_init[0]] = 7200000 GUICtrlSetData($Input_i_2[$Input_i_2[0]], $timer_init[$timer_init[0]]) $init[$init[0]] = $timer_init[$timer_init[0]] $t_start[$t_start[0]] = False GUICtrlSetData($name, '') If GUICtrlRead($Checkbox1) = 1 Then newgui() Else $macro[$macro[0]] = 0 EndIf $save = True GUICtrlSetBkColor($settings,0xff0000) GUICtrlSetData($settings,"Save") Else MsgBox(0, "", "Boxes not set", 0) EndIf Else MsgBox(0, "", "Key Combination Found", 0) EndIf EndFunc ;==>addrow Func newgui() $Forma2 = GUICreate("Command Edit", 417, 42, 498, 358, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE, $WS_EX_TOPMOST)) $Buttona1 = GUICtrlCreateButton("New Line", 280, 8, 57, 17, 0) GUICtrlSetOnEvent(-1, "addcommand") GUICtrlSetResizing(-1, $GUI_DOCKALL) $Buttona2 = GUICtrlCreateButton("Accept", 344, 8, 65, 17, 0) GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetOnEvent(-1, "Macroaccept") $line = 0 $b2y = 0 Dim $Labela1[1] Dim $Inputa1[1] GUISetState(@SW_SHOW, $Forma2) EndFunc ;==>newgui Func addcommand() $Ypos2 = WinGetPos("Command Edit") $Labela1[0] += 1 $Inputa1[0] += 1 ReDim $Labela1[$Labela1[0] + 1] ReDim $Inputa1[$Inputa1[0] + 1] $line += 1 $Labela1[$Labela1[0]] = GUICtrlCreateLabel("", 8, 8 + $b2y, 58, 24) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetData(-1, "Line " & $line) $Inputa1[$Inputa1[0]] = GUICtrlCreateInput("", 72, 8 + $b2y, 201, 21) GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetTip(-1, "Use <gui> for targeting with Prog.!") GUICtrlSetState(-1, $GUI_FOCUS) WinMove("Command Edit", '', $Ypos2[0], $Ypos2[1], $Ypos2[2], $Ypos2[3] + 25, 0) $b2y += 25 EndFunc ;==>addcommand Func time() For $d = 1 To $group_i[0] If $t_start[$d] = True And $timer_init[$d] >= 0 Then If $timer_init[$d] >= $t_clock Then GUICtrlSetState($settings, $GUI_DISABLE) If $macro[$d] <> '0' Then $split = StringSplit($macro[$d], ',') If $timer_init[$d] = $init[$d] Then $b[$d] = 1 GUICtrlSetBkColor($Input_i[$d],0xA6CAF0) ElseIf $b[$d] > $split[0] Then GUICtrlSetBkColor($Input_i[$d],0xFF0000) EndIf If IsInt($b[$d]) And $b[$d] <= $split[0] Then $string = StringInStr($split[$b[$d]], '/wait') $string2 = StringInStr($split[$b[$d]], '<gui>') If $string = 0 Then If $string2 > 0 Then sleep(150) $text = StringReplace($split[$b[$d]], '<gui>', $target) Send($text & "{enter}") Else sleep(150) Send($split[$b[$d]] & "{enter}") EndIf EndIf EndIf If $b[$d] <= $split[0] Then $s = StringInStr($split[$b[$d]], '/wait') If $s > 0 Then $wait = StringSplit($split[$b[$d]], ' ') If @error = 0 Then If $wait_len <= $wait[2] Then $wait_len += $t_clock2 Else $wait_len = 1 $b[$d] += $t_clock2 EndIf EndIf EndIf If $wait_len = 1 And $b <= $split[0] Then $b[$d] += $t_clock2 EndIf EndIf EndIf $timer_init[$d] -= $t_clock GUICtrlSetData($Input_i[$d], Int(100 - ($timer_init[$d] / $init[$d]) * 100)) $time = $timer_init[$d] / 1000 $hour= floor($time/6000) $minute = Floor(Mod(($time / 60), 60)); If $minute < 10 Then $minute = '0' & $minute EndIf $second = Floor(Mod($time, 60)) If $second < 10 Then $second = '0' & $second EndIf GUICtrlSetData($Input_i_2[$d], $hour&":"&$minute & ":" & $second) Else _SoundPlay(@WindowsDir & "\media\Tada.wav", 0) $t_start[$d] = False $timer_init[$d] = $init[$d] GUICtrlSetData($Input_i_2[$d], $timer_init[$d]) GUICtrlSetColor($Input_i[$d], 0x00FF00) GUICtrlSetBkColor($Input_i[$d], 0x00ff00) GUICtrlSetState($settings, $GUI_ENABLE) EndIf EndIf Next EndFunc ;==>time Func save() ConsoleWrite("Saving") If GUICtrlRead($combo_group) <> 'Set' Then IniDelete($IniFile, $com_read) If $alt = 0 And $ctrl = 0 Then IniWrite($IniFile, $com_read, "0", "0") Else For $a = 1 To $group_i[0] IniWrite($IniFile, $com_read, $a - 1, GUICtrlRead($Label_i[$a]) & "|" & $i_key_a[$a] & "|" & $i_key_b[$a] & "|" & $timer_init[$a] & "|" & $macro[$a]) Next EndIf GUICtrlSetData($settings,"Settings") GUICtrlSetBkColor($settings,0xFFFFFF) EndIf $save = False EndFunc ;==>save Func load_settings() $var_open = IniReadSection($IniFile, GUICtrlRead($combo_group)) For $e = 1 To $var_open[0][0] $s_s = StringSplit($var_open[$e][1], "|") $group_i[0] += 1 $Label_i[0] += 1 $Input_i[0] += 1 $i_key_a[0] += 1 $i_key_b[0] += 1 $timer_init[0] += 1 $Input_i_2[0] += 1 $t_start[0] += 1 $init[0] += 1 $macro[0] += 1 $b[0] +=1 ReDim $group_i[$group_i[0] + 1] ReDim $Label_i[$Label_i[0] + 1] ReDim $Input_i[$Input_i[0] + 1] ReDim $i_key_a[$i_key_a[0] + 1] ReDim $i_key_b[$i_key_b[0] + 1] ReDim $timer_init[$timer_init[0] + 1] ReDim $Input_i_2[$Input_i_2[0] + 1] ReDim $t_start[$t_start[0] + 1] ReDim $init[$init[0] + 1] ReDim $macro[$macro[0] + 1] ReDim $b[$b[0] + 1] If $s_s[2] = 11 Then $s_s2 = 'CTRL' If $s_s[2] = 12 Then $s_s2 = 'ALT' If $s_s[3] = '31' Then $s_s3 = "1" If $s_s[3] = '32' Then $s_s3 = "2" If $s_s[3] = '33' Then $s_s3 = "3" If $s_s[3] = '34' Then $s_s3 = "4" If $s_s[3] = '35' Then $s_s3 = "5" If $s_s[3] = '36' Then $s_s3 = "6" If $s_s[3] = '37' Then $s_s3 = "7" If $s_s[3] = '38' Then $s_s3 = "8" If $s_s[3] = '39' Then $s_s3 = "9" If $s_s[3] = '30' Then $s_s3 = "0" If $s_s[3] = '42' Then $s_s3 = "b" $Ypos = WinGetPos("Countdown") If $s_s2 = 'ALT' Then $bx = 220 $alt += 1 If $alt = $ctrl Then $height = ($alt * $num) + 100 $box = ($alt * $num) ElseIf $alt > $ctrl Then $height = ($alt * $num) + 100 $box = ($alt * $num) ElseIf $alt < $ctrl Then $box = ($alt * $num) EndIf ElseIf $s_s2 = 'CTRL' Then $bx = 0 $ctrl += 1 If $alt = $ctrl Then $height = ($alt * $num) + 100 $box = ($ctrl * $num) ElseIf $ctrl > $alt Then $box = ($ctrl * $num) $height = ($ctrl * $num) + 100 ElseIf $ctrl < $alt Then $box = $ctrl * $num EndIf EndIf WinMove("Countdown", '', $Ypos[0], $Ypos[1], $Ypos[2], $height, 0) $group_i[$group_i[0]] = GUICtrlCreateGroup($s_s2 & "+" & $s_s3, 3 + $bx, 22 + $box, 215, 49) GUICtrlSetResizing(-1, $GUI_DOCKALL) $Label_i[$Label_i[0]] = GUICtrlCreateLabel($s_s[1], 10 + $bx, 37 + $box, 150, 20) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKALL) $Input_i[$Input_i[0]] = GUICtrlCreateProgress(10 + $bx, 56 + $box, 200, 10) GUICtrlSetColor(-1, 0x00FF00) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetCursor(-1, 7) DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", " ", "wstr", " ") GUICtrlSetStyle(-1, 1) GUICtrlSetResizing(-1, $GUI_DOCKALL) $Input_i_2[$Input_i_2[0]] = GUICtrlCreateLabel("", 160 + $bx, 35 + $box, 50, 15,bitor($SS_SUNKEN,$SS_RIGHT),-1) GUICtrlSetCursor(-1, 7) GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetBkColor(-1, 0xFFFFFF) GUICtrlCreateGroup ("",-99,-99,1,1) $i_key_a[$i_key_a[0]] = $s_s[2] $i_key_b[$i_key_b[0]] = $s_s[3] $timer_init[$timer_init[0]] = $s_s[4] GUICtrlSetData($Input_i_2[$Input_i_2[0]], $timer_init[$timer_init[0]]) $init[$init[0]] = $timer_init[$timer_init[0]] $t_start[$t_start[0]] = False $macro[$macro[0]] = $s_s[5] Next EndFunc ;==>load_settings Func quit() if $save=true Then save() EndIf if GUICtrlRead($combo_group) <> "Set" Then IniWrite($IniFile,"last",0,GUICtrlRead($combo_group)) EndIf Exit GUIDelete($Form1) EndFunc ;==>quit Func Macroaccept() $wait_count = 0 Dim $read[$Labela1[0] + 1] For $r = 1 To $Labela1[0] If GUICtrlRead($Inputa1[$r]) <> "" Then $read[$r] = GUICtrlRead($Inputa1[$r]) $str = StringInStr($read[$r], "/wait") If $str > 0 Then $w_split = StringSplit($read[$r], ' ') $wait_count += $w_split[2] Else $wait_count += 1 EndIf EndIf Next If $wait_count >= ($timer_init[$timer_init[0]] / 1000) Then MsgBox(0, "Error", "Your /wait commands Total, exceeds you timer!!!" & @CRLF & "Remeber.. Even if your command doesnt contain a /wait it still counts as 1 Second!!", 0) Else $aray_strin = _ArrayToString($read, ',', 1, $Labela1[0]) $macro[$macro[0]] = $aray_strin GUISetState(@SW_HIDE, "Command Edit") GUISwitch($Form1) EndIf EndFunc ;==>Macroaccept Func remove() If GUICtrlRead($Combo1) = 'Combo1' Or GUICtrlRead($Combo2) = 'Combo2' Then MsgBox(0, "", "Set Combo boxes to selecet what macro to delete", 0) Else $save = True GUICtrlSetBkColor($settings,0xff0000) GUICtrlSetData($settings,"Save") Dim $read_labels[$group_i[0] + 1] Dim $read_input[$group_i[0] + 1] For $rl = 1 To $group_i[0] $read_labels[$rl] = GUICtrlRead($Label_i[$rl]) $read_input[$rl] = GUICtrlRead($Input_i_2[$rl]) Next $found = 0 For $str = $group_i[0] To 1 Step - 1 If $i_key_a[$str] = 11 And GUICtrlRead($Combo1) = 'CTRL' And $found = 0 Then $ss = $str $found = 1 ElseIf $i_key_a[$str] = 12 And GUICtrlRead($Combo1) = 'ALT' And $found = 0 Then $ss = $str $found = 1 EndIf Next Dim $gh[$group_i[0] + 1] For $g = 1 To $group_i[0] If $i_key_a[$g] = 11 Then $gh[$g] = 1 Else $gh[$g] = 0 EndIf Next _ArrayDelete($gh, $ss) $gh[0] -= 1 GUICtrlDelete($group_i[$ss]) _ArrayDelete($group_i, $ss) GUICtrlDelete($Label_i[$ss]) _ArrayDelete($Label_i, $ss) GUICtrlDelete($Input_i[$ss]) _ArrayDelete($Input_i, $ss) GUICtrlDelete($Input_i_2[$ss]) _ArrayDelete($Input_i_2, $ss) $group_i[0] -= 1 $Label_i[0] -= 1 $Input_i[0] -= 1 $Input_i_2[0] -= 1 $found = 0 For $str = 1 To $i_key_a[0] If $i_key_a[$str] = '11' And GUICtrlRead($Combo1) = 'CTRL' And $i_key_b[$str] = GUICtrlRead($Combo2) + 30 And $found = 0 Then $ss = $str $found = 1 $ctrl -= 1 ElseIf $i_key_a[$str] = '12' And GUICtrlRead($Combo1) = 'ALT' And $i_key_b[$str] = GUICtrlRead($Combo2) + 30 And $found = 0 Then $ss = $str $found = 1 $alt -= 1 EndIf Next _ArrayDelete($i_key_a, $ss) _ArrayDelete($i_key_b, $ss) _ArrayDelete($timer_init, $ss) _ArrayDelete($t_start, $ss) _ArrayDelete($init, $ss) _ArrayDelete($macro, $ss) _ArrayDelete($read_labels, $ss) _ArrayDelete($read_input, $ss) $i_key_a[0] -= 1 $i_key_b[0] -= 1 $timer_init[0] -= 1 $t_start[0] -= 1 $init[0] -= 1 $read_labels[0] -= 1 $read_input[0] -= 1 $macro[0] -= 1 Dim $found_it[$group_i[0] + 1] Dim $found_it_aa[$group_i[0] + 1] For $ct = 1 To $group_i[0] $found_it[$ct] = False $found_it_aa[$ct] = False Next For $aa = 1 To $group_i[0] If $i_key_a[$aa] = 11 Then For $bb = 1 To $group_i[0] If $gh[$bb] = 1 And $found_it[$bb] = False And $found_it_aa[$aa] = False Then $found_it[$bb] = True $found_it_aa[$aa] = True ConsoleWrite("setting box CTRL to $bb" & $bb & " $aa=" & $aa & " keya[$aa]=" & $i_key_a[$aa] & " keyb[$aa]=" & $i_key_b[$aa] & @LF) GUICtrlSetData($group_i[$bb], 'CTRL+' & $i_key_b[$aa] - 30) GUICtrlSetData($Label_i[$bb], $read_labels[$aa]) GUICtrlSetData($Input_i_2[$bb], $read_input[$aa]) EndIf Next ElseIf $i_key_a[$aa] = 12 Then For $bb = 1 To $group_i[0] If $gh[$bb] = 0 And $found_it[$bb] = False And $found_it_aa[$aa] = False Then $found_it[$bb] = True $found_it_aa[$aa] = True ConsoleWrite("setting box ALT to $bb" & $bb & " $aa=" & $aa & " keya[$aa]=" & $i_key_a[$aa] & " keyb[$aa]=" & $i_key_b[$aa] & @LF) GUICtrlSetData($group_i[$bb], 'ALT+' & $i_key_b[$aa] - 30) GUICtrlSetData($Label_i[$bb], $read_labels[$aa]) GUICtrlSetData($Input_i_2[$bb], $read_input[$aa]) EndIf Next EndIf Next $Ypos = WinGetPos("Countdown") If $alt = $ctrl Then $height = ($alt * $num) + 100 ElseIf $alt > $ctrl Then $height = ($alt * $num) + 100 ElseIf $ctrl > $alt Then $height = ($ctrl * $num) + 100 EndIf WinMove("Countdown", '', $Ypos[0], $Ypos[1], $Ypos[2], $height, 0) EndIf EndFunc ;==>remove Func clear() $clear_fin = $group_i[0] For $clear = 1 To $clear_fin GUICtrlDelete($group_i[1]) _ArrayDelete($group_i, 1) GUICtrlDelete($Label_i[1]) _ArrayDelete($Label_i, 1) GUICtrlDelete($Input_i[1]) _ArrayDelete($Input_i, 1) GUICtrlDelete($Input_i_2[1]) _ArrayDelete($Input_i_2, 1) $group_i[0] -= 1 $Label_i[0] -= 1 $Input_i[0] -= 1 $Input_i_2[0] -= 1 _ArrayDelete($i_key_a, 1) _ArrayDelete($i_key_b, 1) _ArrayDelete($timer_init, 1) _ArrayDelete($t_start, 1) _ArrayDelete($init, 1) _ArrayDelete($macro, 1) $i_key_a[0] -= 1 $i_key_b[0] -= 1 $timer_init[0] -= 1 $t_start[0] -= 1 $init[0] -= 1 $macro[0] -= 1 Next $ctrl = 0 $alt = 0 dim $b[1] If $ctrl = $alt Then $Ypos = WinGetPos("Countdown") $height = ($ctrl * $num) + 100 WinMove("Countdown", '', $Ypos[0], $Ypos[1], $Ypos[2], $height, 0) EndIf if $combo_sent=False Then $save = True GUICtrlSetBkColor($settings,0xff0000) GUICtrlSetData($settings,"Save") EndIf EndFunc ;==>clear Func combo_change() ;$stress=True ;$t_clock3=1 If GUICtrlRead($combo_group) <> "Set" Then If $save = True Then save() EndIf $combo_sent=True clear() $combo_sent=False $ini_read = IniRead($IniFile, GUICtrlRead($combo_group), "0", "0") If $ini_read <> '0' Then load_settings() EndIf $com_read = GUICtrlRead($combo_group) Else MsgBox(0, "", "Cannot Set 'set'!!!", 0) EndIf EndFunc ;==>combo_change Func listen() Local $iD = @GUI_CtrlId GUICtrlSetState($iD, $GUI_CHECKED) Switch $iD Case $iD = 17 $t_listen = 200 Case $iD = 18 $t_listen = 100 Case $iD = 19 $t_listen = 75 Case $iD = 20 $t_listen = 50 Case $iD = 21 $t_listen = 25 EndSwitch For $i = 17 To 21 If $i <> $iD Then GUICtrlSetState($i, $GUI_UNCHECKED) EndIf Next IniWrite($IniFile,"settings",1,$iD) EndFunc ;==>listen Func bars() AdlibDisable() local $iD = @GUI_CtrlId GUICtrlSetState($iD, $GUI_CHECKED) Switch $iD Case $iD = 22 $t_clock = 1000 $t_clock2 = $t_clock / 1000 Case $iD = 23 $t_clock = 500 $t_clock2 = $t_clock / 1000 Case $iD = 24 $t_clock = 250 $t_clock2 = $t_clock / 1000 EndSwitch For $i = 22 To 24 If $i <> $iD Then GUICtrlSetState($i, $GUI_UNCHECKED) EndIf Next AdlibEnable("time", $t_clock) IniWrite($IniFile,"settings",0,$iD) EndFunc ;==>bars func but_save() if $save=True Then $com_read = GUICtrlRead($combo_group) save() EndIf EndFunc func reset() for $d=1 to $group_i[0] _SoundPlay(@WindowsDir & "\media\Windows XP Battery Low.wav", 0) $t_start[$d] = False $timer_init[$d] = $init[$d] GUICtrlSetData($Input_i_2[$d], $timer_init[$d]) GUICtrlSetColor($Input_i[$d], 0x00FF00) GUICtrlSetBkColor($Input_i[$d], 0x00ff00) GUICtrlSetState($settings, $GUI_ENABLE) Next EndFunc Edited February 18, 2008 by Aceguy [u]My Projects.[/u]Launcher - not just for games & Apps (Mp3's & Network Files)Mp3 File RenamerMy File Backup UtilityFFXI - Realtime to Vana time Clock
gseller Posted February 14, 2008 Posted February 14, 2008 What exactly is it for, what does it do? Can you post the code?
Aceguy Posted February 14, 2008 Author Posted February 14, 2008 it will detect ffxi macro activation and give you a countdown to let you know when you can use the spell/ability again. it also wirtes the command line to the game....? (if you have played FFXI youll know what i mean... if you just wanna test it have notepad open and acrivated. will post code later, off to work. [u]My Projects.[/u]Launcher - not just for games & Apps (Mp3's & Network Files)Mp3 File RenamerMy File Backup UtilityFFXI - Realtime to Vana time Clock
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now