CODICE
;by Misterx
#NoTrayIcon
#include <GuiConstants.au3>
#include <GuiTab.au3>
If ProcessExists("Spider.exe") Then
$msgbox=MsgBox(48+4,@ScriptName,"Chiudere il programma spider.exe prima di procedere!"& @CRLF &"Chiudere il processo?")
If $msgbox=6 Then
ProcessClose("Spider.exe")
ElseIf $msgbox=7 Then
Exit
EndIf
EndIf
GUICreate("Spider high-score modify",251,480)
$copyright=GUICtrlCreateLabel("-> Copyright by Misterx <-",66,463)
GUICtrlSetColor($copyright,0xff0000)
;area modifica
GUICtrlCreateGroup("Modifica statistiche",11,250,230,210)
$facile=GUICtrlCreateRadio("Facile",21,270)
GUICtrlSetState($facile,$gui_checked)
$medio=GUICtrlCreateRadio("Medio",101,270)
$difficile=GUICtrlCreateRadio("Difficile",176,270)
GUICtrlCreateLabel("Punteggio massimo =>",21,300)
$_pmax=GUICtrlCreateInput("0",130,298,100,18)
GUICtrlCreateLabel("Vittorie =>",21,325)
$_vit=GUICtrlCreateInput("0",70,323,160,18)
GUICtrlCreateLabel("Sconfitte =>",21,350)
$_sconf=GUICtrlCreateInput("0",80,348,150,18)
GUICtrlCreateLabel("Vittorie consecutive =>",21,375)
$_vitcons=GUICtrlCreateInput("0",130,373,100,18)
GUICtrlCreateLabel("Sconfitte consecutive =>",21,400)
$_sconfcons=GUICtrlCreateInput("0",140,398,90,18)
$modifica=GUICtrlCreateButton("Modifica",21,425,210)
;tab
$tabinit=GUICtrlCreateTab(11,11,230,230)
;facile
GUICtrlCreateTabItem("Facile")
tab("Easy")
;medio
GUICtrlCreateTabItem("Medio")
tab("Medium")
;difficile
GUICtrlCreateTabItem("Difficile")
tab("Difficult")
GUISetState()
While 1
$msg=GUIGetMsg()
Switch $msg
Case $modifica
$reg="HKEY_CURRENT_USER\Software\Microsoft\Spider"
If GUICtrlRead($facile)=$gui_checked Then
$mod="Easy"
ElseIf GUICtrlRead($medio)=$gui_checked Then
$mod="Medium"
ElseIf GUICtrlRead($difficile)=$gui_checked Then
$mod="Difficult"
EndIf
$_pmax1=GUICtrlRead($_pmax)
$_vit1=GUICtrlRead($_vit)
$_sconf1=GUICtrlRead($_sconf)
$_vitcons1=GUICtrlRead($_vitcons)
$_sconfcons1=GUICtrlRead($_sconfcons)
$r_pmax=RegWrite($reg,"HighScore_"& $mod,"REG_DWORD",$_pmax1)
If @error Then MsgBox(16,@ScriptName,"Impossibile modificare il punteggio massimo!",3)
$r_vit=RegWrite($reg,"Wins_"& $mod,"REG_DWORD",$_vit1)
If @error Then MsgBox(16,@ScriptName,"Impossibile modificare il numero di vittorie!",3)
$r_sconf=RegWrite($reg,"Losses_"& $mod,"REG_DWORD",$_sconf1)
If @error Then MsgBox(16,@ScriptName,"Impossibile modificare il numero di sconfitte!",3)
$r_vicons=RegWrite($reg,"StreakWins_"& $mod,"REG_DWORD",$_vitcons1)
If @error Then MsgBox(16,@ScriptName,"Impossibile modificare il numero di vittorie consecutive!",3)
$r_sconfcons=RegWrite($reg,"StreakLosses_"& $mod,"REG_DWORD",$_sconfcons1)
If @error Then MsgBox(16,@ScriptName,"Impossibile modificare il numero di sconfitte consecutive!",3)
MsgBox(64,@ScriptName,"Operazione compleatata.",5)
_GUICtrlTab_Destroy($tabinit)
$tabinit=GUICtrlCreateTab(11,11,230,230)
GUICtrlCreateTabItem("Facile")
tab("Easy")
GUICtrlCreateTabItem("Medio")
tab("Medium")
GUICtrlCreateTabItem("Difficile")
tab("Difficult")
Case $gui_event_close
Exit
EndSwitch
WEnd
Func tab($type)
;type puņ essere solo: Easy, Medium, Difficult!
$reg="HKEY_CURRENT_USER\Software\Microsoft\Spider"
;HighScore
$mig=RegRead($reg,"HighScore_"& $type)
If @error Then
$mig="error"
EndIf
GUICtrlCreateGroup("Punteggio migliore",23,41,206,39)
$inputmig=GUICtrlCreateInput($mig,39,57,161,18)
GUICtrlSetState($inputmig,$gui_disable)
;Percentuale
GUICtrlCreateGroup("Percentuale",23,85,206,69)
;vittorie
$vit=RegRead($reg,"Wins_"& $type)
If @error Then
$vit="error"
EndIf
$inputvit=GUICtrlCreateInput("Vittorie: "& $vit,39,106,161,18)
GUICtrlSetState($inputvit,$gui_disable)
;sconfitte
$vit=RegRead($reg,"Losses_"& $type)
If @error Then
$vit="error"
EndIf
$inputsconf=GUICtrlCreateInput("Sconfitte: "& $vit,39,127,161,18)
GUICtrlSetState($inputsconf,$gui_disable)
;tendenze
GUICtrlCreateGroup("Tendenze",23,157,206,69)
;vittorie consecutive
$vitcons=RegRead($reg,"StreakWins_"& $type)
If @error Then
$vitcons="error"
EndIf
$inputvitcons=GUICtrlCreateInput("Vittorie consecutive: "& $vitcons,39,174,161,18)
GUICtrlSetState($inputvitcons,$gui_disable)
;sconfitte consecutive
$sconfcons=RegRead($reg,"StreakLosses_"& $type)
If @error Then
$sconfcons="error"
EndIf
$inputsconfcons=GUICtrlCreateInput("Sconfitte consecutive: "& $sconfcons,39,197,161,18)
GUICtrlSetState($inputsconfcons,$gui_disable)
EndFunc