#NoTrayIcon
If FileExists(@ScriptDir&"\sc.ini")<>1 Then
$sc=FileSelectFolder("请浏览星际目录","")
IniWrite (@ScriptDir&"\sc.ini","路径","scpath",$sc)
If FileExists($sc&"\starcraft.exe")=1 Then
msgbox(0,"提示","路径选择成功")
EndIf
If FileExists($sc&"\starcraft.exe")<>1 Then
msgbox(0,"提示","路径选择失败，请重新选择")
FileDelete(@ScriptDir&"\sc.ini")
Exit
EndIf
$hf=FileSelectFolder("请浏览浩方对战平台目录","")
IniWrite (@ScriptDir&"\sc.ini","路径","hfpath",$hf)
If FileExists($hf&"\GameClient.exe")=1 Then
msgbox(0,"提示","路径选择成功")
EndIf
If FileExists($hf&"\GameClient.exe")<>1 Then
msgbox(0,"提示","路径选择失败，请重新选择")
FileDelete(@ScriptDir&"\sc.ini")
Exit
EndIf
$qq=FileSelectFolder("请浏览QQ对战平台目录","")
IniWrite (@ScriptDir&"\sc.ini","路径","qqpath",$qq)
If FileExists($qq&"\QQBattleZone.exe")=1 Then
msgbox(0,"提示","路径选择成功")
EndIf
If FileExists($qq&"\QQBattleZone.exe")<>1 Then
msgbox(0,"提示","路径选择失败，请重新选择")
FileDelete(@ScriptDir&"\sc.ini")
Exit
EndIf
$vs=FileSelectFolder("请浏览VS竞技平台目录","")
IniWrite (@ScriptDir&"\sc.ini","路径","vspath",$vs)
If FileExists($vs&"\VSClient.exe")=1 Then
msgbox(0,"提示","路径选择成功")
EndIf
If FileExists($vs&"\VSClient.exe")<>1 Then
msgbox(0,"提示","路径选择失败，请重新选择")
FileDelete(@ScriptDir&"\sc.ini")
Exit
EndIf
EndIf
GUICreate("星际版本转换器 Made by ybbh",470,160)
GUISetState()
$1=GUICtrlCreateButton("108B",20,20,100,50)
$2=GUICtrlCreateButton("113F",130,20,100,50)
$3=GUICtrlCreateButton("114",240,20,100,50)
$4=GUICtrlCreateButton("115",350,20,100,50)
$5=GUICtrlCreateButton("浩方对战平台",20,80,100,50)
$6=GUICtrlCreateButton("QQ对战平台",130,80,100,50)
$7=GUICtrlCreateButton("VS对战平台",240,80,100,50)
$8=GUICtrlCreateButton("APM工具",350,80,100,50)
while 1
$0=GUIGetMsg()
$scpath=IniRead(@ScriptDir&"\sc.ini","路径","scpath","")
$hfpath=IniRead(@ScriptDir&"\sc.ini","路径","hfpath","")
$qqpath=IniRead(@ScriptDir&"\sc.ini","路径","qqpath","")
$vspath=IniRead(@ScriptDir&"\sc.ini","路径","vspath","")
Switch $0
Case $GUI_EVENT_CLOSE
Exit
Case $1
filecopy(@ScriptDir&"\108\*.*",$scpath,1)
msgbox(0,"转换成功","当前版本为108B")
Case $2
filecopy(@ScriptDir&"\113\*.*",$scpath,1)
msgbox(0,"转换成功","当前版本为113F")
Case $3
filecopy(@ScriptDir&"\114\*.*",$scpath,1)
msgbox(0,"转换成功","当前版本为114")
Case $4
filecopy(@ScriptDir&"\115\*.*",$scpath,1)
msgbox(0,"转换成功","当前版本为115")
Case $5
run($hfpath&"\GameClient.exe")
Case $6
run($qqpath&"\QQBattleZone.exe")
Case $7
run($vspath&"\VSClient.exe")
Case $8
run(@ScriptDir&"\bwrepinfow.exe")
EndSwitch
WEnd