#include Global $tab, $msg, $setstate, $check, $track, $about, $name, $k, $d, $a, $role, $comment, $go, $nr, $kr, $dr, $ar, $rr, $cr, $sn, $sk, $sd, $sa, $sr, $sc, $sgo, $path = @MyDocumentsDir & "\PlayerTracker.ini", $nsn, $sds, $sks, $sas, $srs, $scs MainGUI() Func MainGUI() Call ("SGUI") EndFunc Func SGUI() GUICreate ("Spike's Player Tracker", 600, 300) $tab = GUICtrlCreateTab(1, 1, 598, 298) $track = GUICtrlCreateTabItem ("Track") GUICtrlCreateLabel ("Input Player Name:", 5, 30, 100, 20) $name = GUICtrlCreateInput ("", 5, 50, 100, 20) GUICtrlCreateLabel ("Input Player Score:", 120, 30, 100, 20) GUICtrlCreateLabel ("Kills:", 120, 50, 40, 20) $k = GUICtrlCreateInput ("", 170, 50, 40, 20) GUICtrlCreateLabel ("Deaths: ", 120, 70, 50, 20) $d = GUICtrlCreateInput ("", 170, 70, 40, 20) GUICtrlCreateLabel ("Assists:", 120, 90, 50, 20) $a = GUICtrlCreateInput ("", 170, 90, 40, 20) GUICtrlCreateLabel ("Role:", 5, 90, 100, 20) $role = GUICtrlCreateInput ("", 5, 110, 100, 20) GUICtrlCreateLabel ("Comments:", 300, 30, 100, 20) $comment = GUICtrlCreateInput ("", 300, 50, 295, 245) $go = GUICtrlCreateButton ("Save", 100, 200, 100, 70) $check = GUICtrlCreateTabItem ("Check") GUICtrlSetState(-1,$GUI_SHOW) GUICtrlCreateLabel ("Search Player Name:", 5, 30, 100, 20) $sn = GUICtrlCreateInput ($nsn, 5, 50, 100, 20) GUICtrlCreateLabel ("Player Score:", 120, 30, 100, 20) GUICtrlCreateLabel ("Kills:", 120, 50, 40, 20) GUICtrlCreateLabel ("Deaths: ", 120, 70, 50, 20) GUICtrlCreateLabel ("Assists:", 120, 90, 50, 20) GUICtrlCreateLabel ("Role:", 5, 90, 100, 20) GUICtrlCreateLabel ("Comments:", 300, 30, 100, 20) $sgo = GUICtrlCreateButton ("Save", 100, 200, 100, 70) GUICtrlCreateInput ($sks, 170, 50, 40, 20) GUICtrlCreateInput ($sds, 170, 70, 40, 20) GUICtrlCreateInput ($sas, 170, 90, 40, 20) GUICtrlCreateInput ($srs, 5, 110, 100, 20) GUICtrlCreateInput ($scs, 300, 50, 295, 245) $about = GUICtrlCreateTabItem ("About") GUICtrlCreateLabel ("I'm lazy, still have to do this", 5, 30, 500, 250) GUICtrlSetState($check,$GUI_SHOW) $setstate = GUISetState() Call ("Open") Endfunc Func Save() $nr = GUICtrlRead ($name) $kr = GUICtrlRead ($k) $dr = GUICtrlRead ($d) $ar = GUICtrlRead ($a) $rr = GUICtrlRead ($role) $cr = GUICtrlRead ($comment) IniWriteSection ($path, $nr, "") IniWrite (@MyDocumentsDir & "\PlayerTracker.ini", $nr, "Name", $nr) IniWrite (@MyDocumentsDir & "\PlayerTracker.ini", $nr, "Kills", $kr) IniWrite (@MyDocumentsDir & "\PlayerTracker.ini", $nr, "Deaths", $dr) IniWrite (@MyDocumentsDir & "\PlayerTracker.ini", $nr, "Assists", $ar) IniWrite (@MyDocumentsDir & "\PlayerTracker.ini", $nr, "Role", $rr) IniWrite (@MyDocumentsDir & "\PlayerTracker.ini", $nr, "Comments", $cr) EndFunc Func Search () $nsn = GUICtrlRead ($sn) $sks = IniRead ($path, $nsn, "Kills", "XX") $sds = IniRead ($path, $nsn, "Deaths", "XX") $sas = IniRead ($path, $nsn, "Assists", "XX") $srs = IniRead ($path, $nsn, "Role", "XXXXXX") $scs = IniRead ($path, $nsn, "Comments", "XXXXXXXX") GUICtrlDelete ($check) GUICtrlDelete ($track) GUICtrlDelete ($about) if $sks = "XX" Then MSGBox (0, "Not Found", "No Player Found!") Else msgbox (0, "Complete", "Search Complete! Press OK to show the results.") Endif GUIDelete() Call ("SGUI") EndFunc Func Open() While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $go Call ("Save") Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $sgo Call ("Search") EndSelect WEnd Endfunc