#include "hspext.as"
#include "Iniacs.as"

	pppath="パス"
	bpath="パス"
	ini_load "manudog.ini", , 1
	ini_sect "manudog"
	ini_get pppath, "pppath"
	ini_get bpath, "backpath"
	screen 0,312,220,1
	title "まぬ犬　ポストペットバックアップペポ"

id=0
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 8,51
	objsize 288,16
	input pppath


id++
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 8,91
	objsize 288,16
	input bpath



id++
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 8,153
	objsize 88,16
	button "設定反映",*setteih

id++
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 8,176
	objsize 128,16
	button "復元＆ポスペ起動",*pp1

id++
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 8,200
	objsize 128,16
	button "ポスペ終了＆バックアップ",*pp2

id++
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 144,176
	objsize 72,16
	button "ポスペ起動",*pp3

id++
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 144,200
	objsize 72,16
	button "ポスペ終了",*pp4

id++
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 224,176
	objsize 72,16
	button "復元",*pp5

id++
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 224,200
	objsize 72,16
	button "バックアップ",*pp6

id++
;　メッセージ 文字列
	font "ＭＳ Ｐゴシック",11,0
	pos 8,8
	color 0,0,0
	mes "半角63文字以内で、"

	font "ＭＳ Ｐゴシック",11,0
	pos 8,24
	color 0,0,0
	mes "PostPet実行ファイルのあるディレクトリのフルパスを入力してね。"

	font "ＭＳ Ｐゴシック",11,0
	pos 8,40
	color 0,0,0
	mes "(注意：フォルダの区切りは「\\」ではなく「\\\\」で、末尾にも付ける)"

	font "ＭＳ Ｐゴシック",11,0
	pos 8,80
	color 0,0,0
	mes "上と同じ形式で、バックアップ先ディレクトリを指定してね。"

id++

	ini_load "manudog.ini", , 1
	ini_sect "manudog"
	ini_get backup, "backup"
	
*chk
	objmode 2
	font "ＭＳ Ｐゴシック",11,0
	pos 8,113
	objsize 13,13
	chkbox "",backup
	ini_load "manudog.ini", ,1
	ini_sect "manudog"
	ini_set "backup",""+backup
	ini_save ""

	font "ＭＳ Ｐゴシック",11,0
	pos 22,113
	color 0,0,0
	mes "既にバックアップ先ディレクトリにこのソフトの\nバックアップファイルがある場合はチェックボックスをオン、\nない場合はオフにしてね。"
	if koushin=1:goto *chk2
	stop
*pp1
	x=10
	goto *pp5
	stop

*pp2
	y=10
	goto *pp4
	stop

*pp3
	x=0
	exec pppath+"PostPet20.exe"
	stop

*pp4
	aplsel "PostPet for Windows ver."
	aplobj "EDIT"
	aplact
	wait 10
	aplkey 'F',4
	wait 10
	aplkey 'Q'
	wait 10
	if y=10:goto *pp6
	stop

*pp5

	ini_load "manudog.ini", ,1
	ini_sect "manudog"
	ini_get backup,"backup"
	if backup=0:goto *pp5b

	chdir pppath
	a="PostPet設定.ppc"
	b=1
	c=""
	goto *bak
*q1
	a="おともだち帳"
	b=2
	goto *bak
*q2
	c="受信フォルダ"
	chdir pppath+c
	a="ピンクの引出し.ppm"
	b=3
	goto *bak
*q3
	a="ピンクの引出しリスト.ppl"
	b=4
	goto *bak
*q4
	a="黄色の引出し.ppm" 
	b=5
	goto *bak
*q5
	a="黄色の引出しリスト.ppl"
	b=6
	goto *bak
*q6
	a="黒の引出し.ppm"
	b=7
	goto *bak
*q7
	a="黒の引出しリスト.ppl" 
	b=8
	goto *bak
*q8
	a="紫の引出し.ppm"
	b=9
	goto *bak
*q9
	a="紫の引出しリスト.ppl" 
	b=10
	goto *bak
*q10
	a="受信メール.ppm"
	b=11
	goto *bak
*q11
	a="受信リスト.ppl"
	b=12
	goto *bak
*q12
	a="水色の引出し.ppm"
	b=13
	goto *bak
*q13
	a="水色の引出しリスト.ppl"
	b=14
	goto *bak
*q14
	a="赤の引出し.ppm"
	b=15
	goto *bak
*q15
	a="赤の引出しリスト.ppl"
	b=16
	goto *bak
*q16
	a="茶色の引出し.ppm"
	b=17
	goto *bak
*q17
	a="茶色の引出しリスト.ppl"
	b=18
	goto *bak
*q18
	a="緑色の引出し.ppm"
	b=19
	goto *bak
*q19
	a="緑色の引出しリスト.ppl"
	b=20
	goto *bak
*q20
	a="橙色の引出し.ppm"
	b=21
	goto *bak
*q21
	a="橙色の引出しリスト.ppl"
	b=22
	goto *bak
*q22
	c="送信フォルダ"
	chdir pppath+c
	a="ピンクの引出し.ppm"
	b=23
	goto *bak
*q23
	a="ピンクの引出しリスト.ppl"
	b=24
	goto *bak
*q24
	a="黄色の引出し.ppm"
	b=25
	goto *bak
*q25
	a="黄色の引出しリスト.ppl"
	b=26
	goto *bak
*q26
	a="紫の引出し.ppm"
	b=27
	goto *bak
*q27
	a="紫の引出しリスト.ppl"
	b=28
	goto *bak
*q28
	a="送信メール.ppm"
	b=29
	goto *bak
*q29
	a="送信リスト.ppl"
	b=30
	goto *bak
*q30
	c="宝物"
	chdir pppath+c
	a="tzl001.pac"
	b=31
	goto *bak

*bak
	fxren a,a+".bak"
	bcopy bpath+c+"\\"+a,pppath+c+"\\"+a
	delete pppath+c+"\\"+a+".bak"
	if b=1:goto *q1
	if b=2:goto *q2
	if b=3:goto *q3
	if b=4:goto *q4
	if b=5:goto *q5
	if b=6:goto *q6
	if b=7:goto *q7
	if b=8:goto *q8
	if b=9:goto *q9
	if b=10:goto *q10
	if b=11:goto *q11
	if b=12:goto *q12
	if b=13:goto *q13
	if b=14:goto *q14
	if b=15:goto *q15
	if b=16:goto *q16
	if b=17:goto *q17
	if b=18:goto *q18
	if b=19:goto *q19
	if b=20:goto *q20
	if b=21:goto *q21
	if b=22:goto *q22
	if b=23:goto *q23
	if b=24:goto *q24
	if b=25:goto *q25
	if b=26:goto *q26
	if b=27:goto *q27
	if b=28:goto *q28
	if b=29:goto *q29
	if b=30:goto *q30
	if stat=1:dialog "復元失敗"
	if x=10:goto *pp3
	dialog "復元完了"
	stop

*pp5b
	dialog "バックアップファイルが見つからないよ。\n確認してみてね。"
	stop

*pp6
	y=0
	ini_load "manudog.ini", , 1
	ini_sect "manudog"
	ini_get backup,"backup"
	if backup=1:goto *pp6b
	a="PostPet設定.ppc"
	b=1
	c=""
	goto *zbak

*z1
	a="おともだち帳"
	b=2
	goto *zbak
*z2
	mkdir bpath+"受信フォルダ"
	c="受信フォルダ\\"
	a="ピンクの引出し.ppm"
	b=3
	goto *zbak
*z3
	a="ピンクの引出しリスト.ppl"
	b=4
	goto *zbak
*z4
	a="黄色の引出し.ppm" 
	b=5
	goto *zbak
*z5
	a="黄色の引出しリスト.ppl"
	b=6
	goto *zbak
*z6
	a="黒の引出し.ppm"
	b=7
	goto *zbak
*z7
	a="黒の引出しリスト.ppl" 
	b=8
	goto *zbak
*z8
	a="紫の引出し.ppm"
	b=9
	goto *zbak
*z9
	a="紫の引出しリスト.ppl" 
	b=10
	goto *zbak
*z10
	a="受信メール.ppm"
	b=11
	goto *zbak
*z11
	a="受信リスト.ppl"
	b=12
	goto *zbak
*z12
	a="水色の引出し.ppm"
	b=13
	goto *zbak
*z13
	a="水色の引出しリスト.ppl"
	b=14
	goto *zbak
*z14
	a="赤の引出し.ppm"
	b=15
	goto *zbak
*z15
	a="赤の引出しリスト.ppl"
	b=16
	goto *zbak
*z16
	a="茶色の引出し.ppm"
	b=17
	goto *zbak
*z17
	a="茶色の引出しリスト.ppl"
	b=18
	goto *zbak
*z18
	a="緑色の引出し.ppm"
	b=19
	goto *zbak
*z19
	a="緑色の引出しリスト.ppl"
	b=20
	goto *zbak
*z20
	a="橙色の引出し.ppm"
	b=21
	goto *zbak
*z21
	a="橙色の引出しリスト.ppl"
	b=22
	goto *zbak
*z22

	mkdir bpath+"送信フォルダ"
	c="送信フォルダ\\"
	a="ピンクの引出し.ppm"
	b=23
	goto *zbak
*z23
	a="ピンクの引出しリスト.ppl"
	b=24
	goto *zbak
*z24
	a="黄色の引出し.ppm"
	b=25
	goto *zbak
*z25
	a="黄色の引出しリスト.ppl"
	b=26
	goto *zbak
*z26
	a="紫の引出し.ppm"
	b=27
	goto *zbak
*z27
	a="紫の引出しリスト.ppl"
	b=28
	goto *zbak
*z28
	a="送信メール.ppm"
	b=29
	goto *zbak
*z29
	a="送信リスト.ppl"
	b=30
	goto *zbak
*z30
	mkdir bpath+"宝物"
	c="宝物\\"
	a="tzl001.pac"
	b=31
	goto *zbak

*zbak
	bcopy ""+pppath+c+a,""+bpath+c+a
	if b=1:goto *z1
	if b=2:goto *z2
	if b=3:goto *z3
	if b=4:goto *z4
	if b=5:goto *z5
	if b=6:goto *z6
	if b=7:goto *z7
	if b=8:goto *z8
	if b=9:goto *z9
	if b=10:goto *z10
	if b=11:goto *z11
	if b=12:goto *z12
	if b=13:goto *z13
	if b=14:goto *z14
	if b=15:goto *z15
	if b=16:goto *z16
	if b=17:goto *z17
	if b=18:goto *z18
	if b=19:goto *z19
	if b=20:goto *z20
	if b=21:goto *z21
	if b=22:goto *z22
	if b=23:goto *z23
	if b=24:goto *z24
	if b=25:goto *z25
	if b=26:goto *z26
	if b=27:goto *z27
	if b=28:goto *z28
	if b=29:goto *z29
	if b=30:goto *z30
	if stat=1:dialog "バックアップ失敗"
	dialog "バックアップ完了！"
	backup=1
	koushin=1
	goto *chk


*chk2
	ini_load "manudog.ini", ,1
	ini_sect "manudog"
	ini_set "backup",""+backup
	ini_save ""
	stop

*pp6b
	delete bpath+"PostPet設定.ppc"
	bcopy pppath+"PostPet設定.ppc",bpath+"PostPet設定.ppc"
	delete bpath+"おともだち帳"
	bcopy pppath+"おともだち帳", bpath+"おともだち帳"
	delete bpath+"受信フォルダ\\ピンクの引出し.ppm"
	bcopy pppath+"受信フォルダ\\ピンクの引出し.ppm", bpath+"受信フォルダ\\ピンクの引出し.ppm"
	delete bpath+"受信フォルダ\\ピンクの引出しリスト.ppl"	
	bcopy pppath+"受信フォルダ\\ピンクの引出しリスト.ppl", bpath+"受信フォルダ\\ピンクの引出しリスト.ppl"
	delete bpath+"受信フォルダ\\黄色の引出し.ppm"
	bcopy pppath+"受信フォルダ\\黄色の引出し.ppm", bpath+"受信フォルダ\\黄色の引出し.ppm"	
	delete bpath+"受信フォルダ\\黄色の引出しリスト.ppl"	
	bcopy pppath+"受信フォルダ\\黄色の引出しリスト.ppl", bpath+"受信フォルダ\\黄色の引出しリスト.ppl"
	delete bpath+"受信フォルダ\\黒の引出し.ppm"
	bcopy pppath+"受信フォルダ\\黒の引出し.ppm", bpath+"受信フォルダ\\黒の引出し.ppm"	
	delete bpath+"受信フォルダ\\黒の引出しリスト.ppl"	
	bcopy pppath+"受信フォルダ\\黒の引出しリスト.ppl", bpath+"受信フォルダ\\黒の引出しリスト.ppl"
	delete bpath+"受信フォルダ\\紫の引出し.ppm"
	bcopy pppath+"受信フォルダ\\紫の引出し.ppm", bpath+"受信フォルダ\\紫の引出し.ppm"	
	delete bpath+"受信フォルダ\\紫の引出しリスト.ppl"	
	bcopy pppath+"受信フォルダ\\紫の引出しリスト.ppl", bpath+"受信フォルダ\\紫の引出しリスト.ppl"
	delete bpath+"受信フォルダ\\水色の引出し.ppm"
	bcopy pppath+"受信フォルダ\\水色の引出し.ppm", bpath+"受信フォルダ\\水色の引出し.ppm"	
	delete bpath+"受信フォルダ\\水色の引出しリスト.ppl"	
	bcopy pppath+"受信フォルダ\\水色の引出しリスト.ppl", bpath+"受信フォルダ\\水色の引出しリスト.ppl"
	delete bpath+"受信フォルダ\\赤の引出し.ppm"
	bcopy pppath+"受信フォルダ\\赤の引出し.ppm", bpath+"受信フォルダ\\赤の引出し.ppm"	
	delete bpath+"受信フォルダ\\赤の引出しリスト.ppl"	
	bcopy pppath+"受信フォルダ\\赤の引出しリスト.ppl", bpath+"受信フォルダ\\赤の引出しリスト.ppl"
	delete bpath+"受信フォルダ\\茶色の引出し.ppm"
	bcopy pppath+"受信フォルダ\\茶色の引出し.ppm", bpath+"受信フォルダ\\茶色の引出し.ppm"	
	delete bpath+"受信フォルダ\\茶色の引出しリスト.ppl"	
	bcopy pppath+"受信フォルダ\\茶色の引出しリスト.ppl", bpath+"受信フォルダ\\茶色の引出しリスト.ppl"
	delete bpath+"受信フォルダ\\緑色の引出し.ppm"
	bcopy pppath+"受信フォルダ\\緑色の引出し.ppm", bpath+"受信フォルダ\\緑色の引出し.ppm"	
	delete bpath+"受信フォルダ\\緑色の引出しリスト.ppl"	
	bcopy pppath+"受信フォルダ\\緑色の引出しリスト.ppl", bpath+"受信フォルダ\\緑色の引出しリスト.ppl"
	delete bpath+"受信フォルダ\\橙色の引出し.ppm"
	bcopy pppath+"受信フォルダ\\橙色の引出し.ppm", bpath+"受信フォルダ\\橙色の引出し.ppm"	
	delete bpath+"受信フォルダ\\橙色の引出しリスト.ppl"	
	bcopy pppath+"受信フォルダ\\橙色の引出しリスト.ppl", bpath+"受信フォルダ\\橙色の引出しリスト.ppl"
	delete bpath+"受信フォルダ\\受信メール.ppm"
	bcopy pppath+"受信フォルダ\\受信メール.ppm", bpath+"受信フォルダ\\受信メール.ppm"
	delete bpath+"受信フォルダ\\受信リスト.ppl"		
	bcopy pppath+"受信フォルダ\\受信リスト.ppl", bpath+"受信フォルダ\\受信リスト.ppl"
	delete bpath+"送信フォルダ\\送信メール.ppm"
	bcopy pppath+"送信フォルダ\\送信メール.ppm", bpath+"送信フォルダ\\送信メール.ppm"
	delete bpath+"送信フォルダ\\送信リスト.ppl"		
	bcopy pppath+"送信フォルダ\\送信リスト.ppl", bpath+"送信フォルダ\\送信リスト.ppl"
	delete bpath+"送信フォルダ\\ピンクの引出し.ppm"
	bcopy pppath+"送信フォルダ\\ピンクの引出し.ppm", bpath+"送信フォルダ\\ピンクの引出し.ppm"
	delete bpath+"送信フォルダ\\ピンクの引出しリスト.ppl"		
	bcopy pppath+"送信フォルダ\\ピンクの引出しリスト.ppl", bpath+"送信フォルダ\\ピンクの引出しリスト.ppl"
	delete bpath+"送信フォルダ\\黄色の引出し.ppm"
	bcopy pppath+"送信フォルダ\\黄色の引出し.ppm", bpath+"送信フォルダ\\黄色の引出し.ppm"	
	delete bpath+"送信フォルダ\\黄色の引出しリスト.ppl"	
	bcopy pppath+"送信フォルダ\\黄色の引出しリスト.ppl", bpath+"送信フォルダ\\黄色の引出しリスト.ppl"
	delete bpath+"送信フォルダ\\紫の引出し.ppm"
	bcopy pppath+"送信フォルダ\\紫の引出し.ppm", bpath+"送信フォルダ\\紫の引出し.ppm"	
	delete bpath+"送信フォルダ\\紫の引出しリスト.ppl"	
	bcopy pppath+"送信フォルダ\\紫の引出しリスト.ppl", bpath+"送信フォルダ\\紫の引出しリスト.ppl"
	delete bpath+"宝物\\tzl001.pac"
	bcopy pppath+"宝物\\tzl001.pac", bpath+"宝物\\tzl001.pac"
	if stat=1:dialog "バックアップ失敗"
	dialog "バックアップ完了！"
	stop

*setteih
	ini_load "manudog.ini", , 1
	ini_sect "manudog"
	ini_set "pppath",""+pppath
	ini_set "backpath",""+bpath
	ini_set "backup",""+backup
	ini_save ""
	stop