Batch SanGod 山国志

不定时更新中，版本号及帖子内最后更新格式为年月日时分，比如2001010001为2020年01月01日00：01分修改上传。
拥有准1Kb的安装器，混编下载游戏本体并运行。也可以http://blog.snote.cn/File/SanGod/*版本号*.zip下载！
工作生活为主，此物乃闲来无事消磨时间，有进度固然最好，没进度适当可以催催，当然不要抱什么希望…… ^_^

:On Error Resume Next
' 2>nul 3>nul&@echo off&title SanGod Install
'&cls&cd /d "%~dp0"&set Url=http://snote.cn/File/SanGod
'&call :Vbs get "%Url%/New.Ver" Ver
'&call :Vbs fdl "%Url%/SanGod-%Ver%.cab" SanGod-%Ver%.cab
'&md SanGod &expand SanGod-%Ver%.cab /f:*.* %cd%\SanGod\
'&call SanGod\Setting.bat Shortcut &start /i SanGod\SanGod.bat
'&move %~fs0 $ & del /q SanGod-%Ver%.cab,$ &exit
:Vbs
'&for /f "delims=" %%a in ('cscript //nologo //e:vbscript "%~fs0" "%1" "%2" "%3"') do (set "%3=%%a"&goto :eof)
Dim http
Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.SetOption 2,13056
http.open "GET",WScript.Arguments(1),False
http.send
If http.status = "200" Then
	If WScript.Arguments(0) = "get" Then
		wsh.echo http.responsetext
	Else
		Dim ado
		Set ado = CreateObject("Adodb.Stream")
		ado.Type = 1
		ado.Open
		ado.Write http.responseBody
		ado.SaveToFile WScript.Arguments(2),2
		ado.Close
		wsh.echo "Save to file"
	End If
Else
	wsh.echo "URL path error"
End If

:On Error Resume Next

' 2>nul 3>nul&@echo off&title SanGod Install

'&cls&cd /d "%~dp0"&set Url=http://snote.cn/File/SanGod

'&call :Vbs get "%Url%/New.Ver" Ver

'&call :Vbs fdl "%Url%/SanGod-%Ver%.cab" SanGod-%Ver%.cab

'&md SanGod &expand SanGod-%Ver%.cab /f:*.* %cd%\SanGod\

'&call SanGod\Setting.bat Shortcut &start /i SanGod\SanGod.bat

'&move %~fs0 $ & del /q SanGod-%Ver%.cab,$ &exit

:Vbs

'&for /f "delims=" %%a in ('cscript //nologo //e:vbscript "%~fs0" "%1" "%2" "%3"') do (set "%3=%%a"&goto :eof)

Dim http

Set http = CreateObject("Msxml2.ServerXMLHTTP")

http.SetOption 2,13056

http.open "GET",WScript.Arguments(1),False

http.send

If http.status = "200" Then

If WScript.Arguments(0) = "get" Then

wsh.echo http.responsetext

Else

Dim ado

Set ado = CreateObject("Adodb.Stream")

ado.Type = 1

ado.Open

ado.Write http.responseBody

ado.SaveToFile WScript.Arguments(2),2

ado.Close

wsh.echo "Save to file"

End If

Else

wsh.echo "URL path error"

End If

安装工具
下载链接：SanGod

山归山博主

2015-03-07 开坑
其实翻了一下硬盘，找到:
最早的文件是 2015年3月7日 21:41，logo.bmp
此时才算是动手开始做的一张启动图片
最早的压缩是 山の国志.手稿 15-3-9.zip 2.01Mb
山の国志.手稿 15-3-10.zip 10.2Mb
山の国志.手稿 15-3-11.zip 23.7Mb
这是当时收集了一些素材，为了保存打了包
最早的视频是 Video_2015-03-30_221225.wmv 1.1Mb
从3-11号到3-30，期间更新10次的第一个视频
视频之后就再没有录过，到现在看到的版本……
———- 2018-11-24———-
计划转战CAPIx,取消置顶。暂不更新
———- 2019-02-09———-
哇，时隔十天。这十天有更版本号，内容也有少量的更新一下下。
并且在Capix与image3.7b中在做选择，并且去熟悉了一下image3的用法，发现个show的创意思路……所以打算用image3重写……但是Sound没解决……囧了……
———- 2019-02-19———-
以后的更新会在游戏目录内Update.log

10 年前回复

山归山博主

此旧版，已弃用

@echo off
cd /d %~dp0
setlocal enabledelayedexpansion
if "%1"=="" (
		for /f "tokens=4 delims=. " %%a in (
				'ver'
			) do (
				if %%a==10 (
					for /f "tokens=2*" %%b in (
							'reg query HKEY_CURRENT_USER\Console^|findstr ForceV2'
						) do (
							set ForceV2=%%c
					)
				>nul reg add HKEY_CURRENT_USER\Console /v ForceV2 /t REG_DWORD /d 0x00000000 /f
				)
		)
		for %%a in (
				CodePage:000001b5
				QuickEdit:00000000
				CursorSize:00000019
				FontFamily:00000030
				FontSize:00100008
				ColorTable00:00000000
				WindowPosition:00bc018c
			) do (
				for /f "tokens=1,2 delims=:" %%b in (
						"%%a"
					) do (
						>nul reg add HKCU\Console\SanGod /v %%b /t reg_dword /d 0x%%c /f
				)
		)
		start "SanGod" "%ComSpec%" /c "%~s0" ZhangZsky
		for /f "tokens=4 delims=. " %%a in (
				'ver'
			) do (
				if %%a==10 echo,yes|reg add HKEY_CURRENT_USER\Console /v ForceV2 /t REG_DWORD /d !ForceV2! >nul 2>nul
		)
		>nul reg delete HKCU\Console\SanGod /f
		exit
	) else (
		set ForceV2=
		chcp 936
		cls
)

@echo off

cd /d %~dp0

setlocal enabledelayedexpansion

if "%1"=="" (

for /f "tokens=4 delims=. " %%a in (

'ver'

) do (

if %%a==10 (

for /f "tokens=2*" %%b in (

'reg query HKEY_CURRENT_USER\Console^|findstr ForceV2'

set ForceV2=%%c

)

>nul reg add HKEY_CURRENT_USER\Console /v ForceV2 /t REG_DWORD /d 0x00000000 /f

for %%a in (

CodePage:000001b5

QuickEdit:00000000

CursorSize:00000019

FontFamily:00000030

FontSize:00100008

ColorTable00:00000000

WindowPosition:00bc018c

for /f "tokens=1,2 delims=:" %%b in (

"%%a"

>nul reg add HKCU\Console\SanGod /v %%b /t reg_dword /d 0x%%c /f

start "SanGod" "%ComSpec%" /c "%~s0" ZhangZsky

if %%a==10 echo,yes|reg add HKEY_CURRENT_USER\Console /v ForceV2 /t REG_DWORD /d !ForceV2! >nul 2>nul

>nul reg delete HKCU\Console\SanGod /f

exit

) else (

set ForceV2=

chcp 936

cls

6 年前回复

Aw

这么6不发个评论过不去

6 年前回复

rem tasklist /fi "windowtitle eq Batch-SanGod*" 2>nul|find /i "PID" && exit
rem 上行避免重复运行,无法处理所有情况。弃用
set /a 游戏版本=190119
title Batch-SanGod ( 山国志 ) by %1   Ver:%游戏版本%

rem tasklist /fi "windowtitle eq Batch-SanGod*" 2>nul|find /i "PID" && exit

rem 上行避免重复运行,无法处理所有情况。弃用

set /a 游戏版本=190119

title Batch-SanGod ( 山国志 ) by %1 Ver:%游戏版本%

纸莫

太牛逼了，不赞一下都对不起我自己！

6 年前回复

LICI

@纸莫：同感

6 年前回复

LICI

666啊
如果不评论就对不起这个作品！！！

6 年前回复
山归山

缺确定使用新的image3来续写此作。
首先转移之前的代码为image3的，然后继续内政部分。时间嘛，不好说，毕竟工作为主嘛，此为消遣。

5 年前回复
吴先森

哈哈哈，大佬大佬

5 年前回复

Batch SanGod 山国志

发表回复 取消回复

发表回复取消回复