SpiffyTek
/
SMACheck
Archived
1
0
Fork 0

Added EAC, ESEA and KAC (placeholder) status to popup Ui (#45, #46, #47)

Added statusicons for bans
Replaced textstatus for VAC by statusicons

--HG--
branch : 1.1
This commit is contained in:
MadMakz 2012-11-13 00:30:20 +01:00
parent 37f5c53285
commit c3889a4f7c
6 changed files with 67 additions and 24 deletions

View File

@ -14,7 +14,7 @@
;#AutoIt3Wrapper_Res_ProductVersion=x.x.x.x ; Broken, use #AutoIt3Wrapper_Res_Field=ProductVersion|x.x.x as workarround. ;#AutoIt3Wrapper_Res_ProductVersion=x.x.x.x ; Broken, use #AutoIt3Wrapper_Res_Field=ProductVersion|x.x.x as workarround.
#AutoIt3Wrapper_Res_Field=ProductVersion|Freeware #AutoIt3Wrapper_Res_Field=ProductVersion|Freeware
#AutoIt3Wrapper_Res_Fileversion=1.1.0.58 #AutoIt3Wrapper_Res_Fileversion=1.1.0.59
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=N ;(Y/N/P) AutoIncrement FileVersion After Aut2EXE is finished. default=N. P=Prompt, Will ask at Compilation time if you want to increase the versionnumber #AutoIt3Wrapper_Res_FileVersion_AutoIncrement=N ;(Y/N/P) AutoIncrement FileVersion After Aut2EXE is finished. default=N. P=Prompt, Will ask at Compilation time if you want to increase the versionnumber
#AutoIt3Wrapper_Res_Language=1033 ;Resource Language code . german = 1031, english (U.S.) = 1033. default 2057=English (United Kingdom). For a List see http://technet.microsoft.com/en-us/library/dd346950.aspx #AutoIt3Wrapper_Res_Language=1033 ;Resource Language code . german = 1031, english (U.S.) = 1033. default 2057=English (United Kingdom). For a List see http://technet.microsoft.com/en-us/library/dd346950.aspx
@ -33,6 +33,11 @@
#AutoIt3Wrapper_res_file_add=.\resources\gfx\guibg.jpg, rt_rcdata, img_bg; http://www.autoitscript.com/forum/topic/51103-resources-udf/ #AutoIt3Wrapper_res_file_add=.\resources\gfx\guibg.jpg, rt_rcdata, img_bg; http://www.autoitscript.com/forum/topic/51103-resources-udf/
;#AutoIt3Wrapper_Res_File_Add=.\bg.bmp, rt_bitmap, img_bg ;#AutoIt3Wrapper_Res_File_Add=.\bg.bmp, rt_bitmap, img_bg
;; Ui Statuscions
#AutoIt3Wrapper_res_file_add=.\resources\gfx\tick16.png, rt_rcdata, tick.png
#AutoIt3Wrapper_res_file_add=.\resources\gfx\warning16.png, rt_rcdata, warning.png
#AutoIt3Wrapper_res_file_add=.\resources\gfx\error16.png, rt_rcdata, error.png
;; Countryflags ;; Countryflags
#AutoIt3Wrapper_res_file_add=.\resources\gfx\flags\ad.png, rt_rcdata, ad.png #AutoIt3Wrapper_res_file_add=.\resources\gfx\flags\ad.png, rt_rcdata, ad.png
#AutoIt3Wrapper_res_file_add=.\resources\gfx\flags\ae.png, rt_rcdata, ae.png #AutoIt3Wrapper_res_file_add=.\resources\gfx\flags\ae.png, rt_rcdata, ae.png

View File

@ -3,7 +3,8 @@
;; SMAC XML APi ;; SMAC XML APi
Func lookupSteamId($input) Func lookupSteamId($input)
HttpSetUserAgent("SMACheck/" & FileGetVersion(@ScriptName, "FileVersion")) HttpSetUserAgent("SMACheck/" & FileGetVersion(@ScriptName, "FileVersion"))
Local $oXML = InetRead("http://api.spiffytek.com/pub/smacheck/-testing/steamid/" & $input, 19) ;Local $oXML = InetRead("http://api.spiffytek.com/pub/smacheck/-testing/steamid/" & $input, 19)
Local $oXML = InetRead("http://labor.spiffytek.com/smacheck/api/steamid/" & $input, 19)
If @error <> 0 Then If @error <> 0 Then
_printError("noapi") _printError("noapi")
Return "ERROR_HANDELED" Return "ERROR_HANDELED"
@ -51,14 +52,9 @@ Func lookupSteamId($input)
Local $bVac = _XMLGetValue("/isbanned/vacStatus") Local $bVac = _XMLGetValue("/isbanned/vacStatus")
Local $bMod = _XMLGetValue("/isbanned/mod") Local $bMod = _XMLGetValue("/isbanned/mod")
Local $bCc = _XMLGetValue("/isbanned/country") Local $bCc = _XMLGetValue("/isbanned/country")
Local $bEac = _XMLGetValue("/isbanned/eacStatus")
If $bVac[1] = "1" Then Local $bEsea = _XMLGetValue("/isbanned/eseaStatus")
Local $pVac = "Bans on record" ;Local $bKac = _XMLGetValue("/isbanned/kacStatus")
ElseIf $bVac[1] = "-1" Then
Local $pVac = "Could not get Status from Steam"
Else
Local $pVac = "No"
EndIf
If $bCc[1] = "" Then If $bCc[1] = "" Then
$bCc[1] = "nocountry" $bCc[1] = "nocountry"
@ -66,26 +62,32 @@ Func lookupSteamId($input)
If $pStatus[1] = "Y" Then If $pStatus[1] = "Y" Then
Local $oStatus = "SteamID is Banned" Local $oStatus = "SteamID is Banned"
Local $return[8] Local $return[11]
$return[0] = $oStatus $return[0] = $oStatus
$return[1] = $bNick[1] $return[1] = $bNick[1]
$return[2] = $bReason[1] $return[2] = $bReason[1]
$return[3] = $bTime[1] $return[3] = $bTime[1]
$return[4] = $pStatus[1] $return[4] = $pStatus[1]
$return[5] = $pVac $return[5] = $bVac[1]
$return[6] = $bMod[1] $return[6] = $bMod[1]
$return[7] = $bCc[1] $return[7] = $bCc[1]
$return[8] = $bEac[1]
$return[9] = $bEsea[1]
$return[10] = -1
Else Else
Local $oStatus = "SteamID is not banned" Local $oStatus = "SteamID is not banned"
Local $return[8] Local $return[11]
$return[0] = $oStatus $return[0] = $oStatus
$return[1] = $bNick[1] $return[1] = $bNick[1]
$return[2] = "-" $return[2] = "-"
$return[3] = "-" $return[3] = "-"
$return[4] = $pStatus[1] $return[4] = $pStatus[1]
$return[5] = $pVac $return[5] = $bVac[1]
$return[6] = "-" $return[6] = "-"
$return[7] = "nocountry" $return[7] = "nocountry"
$return[8] = $bEac[1]
$return[9] = $bEsea[1]
$return[10] = -1
EndIf EndIf
Else Else

View File

@ -8,11 +8,11 @@ Func gui_Info($output)
Local $overlayWidth = 312, $overlayHeight = 154, $pos = WinGetPos($GUi) Local $overlayWidth = 312, $overlayHeight = 154, $pos = WinGetPos($GUi)
$GUI2 = GUICreate("INFO (" & $output & ")", $overlayWidth, $overlayHeight, $pos[0] + 20, $pos[1] + 20, BitXOR($GUI_SS_DEFAULT_GUI, $WS_MINIMIZEBOX)) $GUI2 = GUICreate("INFO (" & $output & ")", $overlayWidth, $overlayHeight, $pos[0] + 20, $pos[1] + 20, BitXOR($GUI_SS_DEFAULT_GUI, $WS_MINIMIZEBOX))
If $pInfo[4] = "Y" Then ;If $pInfo[4] = "Y" Then
GUISetBkColor(0xE33F35) ; GUISetBkColor(0xE33F35)
Else ;Else
GUISetBkColor(0x518652) ; GUISetBkColor(0x518652)
EndIf ;EndIf
$bClose = GUICtrlCreateButton("OK", 120, 125, 65, 25, $BS_CENTER) $bClose = GUICtrlCreateButton("OK", 120, 125, 65, 25, $BS_CENTER)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GuiCtrlSetState(-1, 512) GuiCtrlSetState(-1, 512)
@ -45,15 +45,51 @@ Func gui_Info($output)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$oMod = GUICtrlCreateLabel($pInfo[6], 150, 84, 215, 17) $oMod = GUICtrlCreateLabel($pInfo[6], 150, 84, 215, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$gVac = GUICtrlCreateLabel("VAC:", 24, 108, 48, 17) $gVac = GUICtrlCreateLabel("VAC:", 50, 105, 48, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$oVac = GUICtrlCreateLabel($pInfo[5], 72, 108, 215, 17) $oVac = GUICtrlCreatePic("", 80, 104, 16, 16)
If $pInfo[5] <> "No" And $pInfo[4] = "N" Then If $pInfo[5] = "1" Then
GUICtrlSetBkColor(-1, 0xE33F35) _ResourceSetImageToCtrl(-1, "error.png", $RT_RCDATA)
ElseIf $pInfo[5] = "-1" Then
_ResourceSetImageToCtrl(-1, "warning.png", $RT_RCDATA)
Else Else
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) _ResourceSetImageToCtrl(-1, "tick.png", $RT_RCDATA)
EndIf EndIf
$gEac = GUICtrlCreateLabel("EAC:", 100, 105, 48, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$oEac = GUICtrlCreatePic("", 130, 104, 16, 16)
If $pInfo[8] = "1" Then
_ResourceSetImageToCtrl(-1, "error.png", $RT_RCDATA)
ElseIf $pInfo[8] = "-1" Then
_ResourceSetImageToCtrl(-1, "warning.png", $RT_RCDATA)
Else
_ResourceSetImageToCtrl(-1, "tick.png", $RT_RCDATA)
EndIf
$gEsea = GUICtrlCreateLabel("ESEA:", 150, 105, 48, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$oEsea = GUICtrlCreatePic("", 190, 104, 16, 16)
If $pInfo[9] = "1" Then
_ResourceSetImageToCtrl(-1, "error.png", $RT_RCDATA)
ElseIf $pInfo[9] = "-1" Then
_ResourceSetImageToCtrl(-1, "warning.png", $RT_RCDATA)
Else
_ResourceSetImageToCtrl(-1, "tick.png", $RT_RCDATA)
EndIf
$gKac = GUICtrlCreateLabel("KAC:", 210, 105, 48, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$oKac = GUICtrlCreatePic("", 240, 104, 16, 16)
If $pInfo[10] = "1" Then
_ResourceSetImageToCtrl(-1, "error.png", $RT_RCDATA)
ElseIf $pInfo[10] = "-1" Then
_ResourceSetImageToCtrl(-1, "warning.png", $RT_RCDATA)
Else
_ResourceSetImageToCtrl(-1, "tick.png", $RT_RCDATA)
EndIf
GUISetState() GUISetState()

BIN
resources/gfx/error16.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.4 KiB

BIN
resources/gfx/tick16.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.5 KiB

BIN
resources/gfx/warning16.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.5 KiB