sports.sc

用于收费语音服务的电话充值业务

#function FuncVerifyCard	//卡认证函数
#function FuncPutong
#function main
#function FuncIfRelisten
#function FuncTerminate
#iniparam string @vox_path
#iniparam int @PWDCount //卡认证的输入次数
#iniparam int @CallLen //卡认证的卡号长度
#iniparam int @PWDLen //卡认证的密码长度
main
{
:stWait
     	Connect->stAllocResource
:stAllocResource
	[Assign SR29,@vox_path]
	[AllocMediaDevice 1]
	AllocResourceOK -> stVerifyFee 
	AllocResourceFail -> stExit

:stVerifyFee
	[AccessFile "..\..\south.ini",0]
	Passed->stVerifyCard
	Failed->stBillBegin
:stVerifyCard
	[CallFunc &FuncVerifyCard]
	Returned(0)->stStartFlow	//stBillBegin	//卡认证成功
	Returned(1) -> stExit	//卡认证失败
:stBillBegin
	[BillBegin 1,0,$ServiceItemNo]
	Verify(0) -> stStartFlow
	Verify -> stExit
:stStartFlow
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "tc31000000.vox"] //一号键普通话，二号键广东话，三号键普通话足彩开奖结果，四号键广东话开奖结果，五号键普通话足球即时比分，六号键广东话即时比分
	[PlayFile  SR1]		//
	StopPlayBack -> stFirstChoice
	DialTerminate -> stFirstChoice
:stFirstChoice
	[Digit 10]
	StopDigits('1')->stPutong
	StopDigits('2')->stPutong
	StopDigits('3')->stPutongAward
	StopDigits('4')->stGuangdongAward
	StopDigits('5')->stPutongScore
	StopDigits('6')->stGuangdongScore
	StopDigits->stStartFlow
	TimeOut->stStartFlow
:stPutong
	[StoI SR0]
	[Equal IR0,1]
	Passed->stPutonghua
	Failed->stGuangdonghua
:stPutonghua
	[StrCat SR29,"p"]
	->stCallFunc
	
:stGuangdonghua
	[StrCat SR29,"c"]
	->stCallFunc
:stCallFunc
	[CallFunc &FuncPutong]
	Returned ->stStartFlow
:stPutongAward
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "p3103320.vox"]
	[PlayFile  SR1]		//开奖结果查询
	StopPlayBack -> stStartFlow
	DialTerminate -> stStartFlow
	failed ->stStartFlow
:stGuangdongAward
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "g3103320.vox"]
	[PlayFile  SR1]		//开奖结果查询
	StopPlayBack -> stStartFlow
	DialTerminate -> stStartFlow
	failed ->stStartFlow
:stPutongScore
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "p3103100.vox"]
	[PlayFile  SR1]		//即时比分
	StopPlayBack -> stStartFlow
	DialTerminate -> stStartFlow
	failed ->stStartFlow
:stGuangdongScore
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "g3103100.vox"]
	[PlayFile  SR1]		//即时比分
	StopPlayBack -> stStartFlow
	DialTerminate -> stStartFlow
	failed ->stStartFlow
:stExit
	[return 0]
}
FuncPutong
{
:stWait
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3102000.vox"]
	[PlayFile  SR1]		//欢迎词及提示语
	StopPlayBack -> stFirstChoice
	DialTerminate -> stFirstChoice
:stFirstChoice
	[Digit 10]
	StopDigits('1')->stPress1
	StopDigits('2')->stPress2
	StopDigits('3')->stPress3
	StopDigits('4')->stPress4
	StopDigits('5')->stPress5
	StopDigits('6')->stPress6
	StopDigits('7')->stPress7
	StopDigits('8')->stPress8
	StopDigits('9')->stPress9
	StopDigits->stWait
	TimeOut->stWait
:stPress1
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103100.vox"]
	[PlayFile  SR1]		// 每日足球即时比分
	StopPlayBack -> stRelisten1
	DialTerminate -> stTerminate1
	Failed ->stWait
:stRelisten1
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress1
:stTerminate1
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress1
:stPress2
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103200.vox"]
	[PlayFile  SR1]		//每日赛程及完场结果，按1键每日赛事预告，按2键五大联赛完场赛果，按3键其他赛事完场赛果
	StopPlayBack -> stPress2Choice
	DialTerminate -> stPress2Choice
:stPress2Choice
	[Digit 10]
	StopDigits('1')->stPress21
	StopDigits('2')->stPress22
	StopDigits('3')->stPress23
	StopDigits('*')->stWait
	StopDigits->stPress2
	TimeOut->stPress2
:stPress21
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103210.vox"]
	[PlayFile  SR1]		//每日赛事预告
	StopPlayBack -> stRelisten21
	DialTerminate -> stTerminate21
	failed ->stPress2
:stRelisten21
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress21
:stTerminate21
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress21
:stPress22
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103220.vox"]
	[PlayFile  SR1]		//五大联赛完场赛果
	StopPlayBack -> stRelisten22
	DialTerminate -> stTerminate22
	failed ->stPress2
:stRelisten22
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress22
:stTerminate22
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress22
:stPress23
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103230.vox"]
	[PlayFile  SR1]		//其他赛事完场赛果
	StopPlayBack -> stRelisten23
	DialTerminate -> stTerminate23
	failed ->stPress2
:stRelisten23
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress23
:stTerminate23
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress23
:stPress3
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103300.vox"]
	[PlayFile  SR1]		//按1 足彩即时赛果，按2 本期足彩开奖结果，按3以往结果查询
	StopPlayBack -> stPress3Choice
	DialTerminate -> stPress3Choice
	failed ->stWait
:stPress3Choice
	[Digit 10]
	StopDigits('1')->stPress31
	StopDigits('2')->stPress32
	StopDigits('3')->stPress33
	StopDigits('*')->stWait
	StopDigits->stPress3
	TimeOut->stPress3
:stPress31
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103310.vox"]
	[PlayFile  SR1]		//足彩即时赛果
	StopPlayBack -> stRelisten31
	DialTerminate -> stTerminate31
	failed->stPress3
:stRelisten31
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress31
:stTerminate31
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress31
:stPress32
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103320.vox"]
	[PlayFile  SR1]		//本期足彩开奖结果
	StopPlayBack -> stRelisten32
	DialTerminate -> stTerminate32
	failed->stPress3
:stRelisten32
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress32
:stTerminate32
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress32
:stPress33
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103331.vox"]
	[PlayFile  SR1]		//输入5位足彩期号，按＃确认，输入过程中，重新输入请按×
	StopPlayBack -> stInputPastDate
	DialTerminate -> stInputPastDate
	failed->stPress3
:stInputPastDate
	[SetDTMF "*#"]
	[Input 6,20]
	StopDigits('#')->stPlayPast
	StopDigits('*')->stPress33
	StopDigits ->stPress33
	TimeOut->stPress33
:stPlayPast  
	[ParseParam SR0,1,"#"]
	[Assign SR5,SR0]
	[ClearDTMF]
	[SETDTMF "?"]
//	[Assign SR1,SR29 ]
//	[StrCat SR1, "3103332.vox"]
//	[PlayFile  SR1]		//您输入的期号是
//	StopPlayBack -> stRePlayInput
//	DialTerminate -> stRePlayInput
//:stRePlayInput 
//	[ClearDTMF]
//	[SETDTMF "?"]
//	[Mixplay 3,SR5]
//	StopPlayBack -> stConfirmPast
//	DialTerminate -> stConfirmPast
//:stConfirmPast 
//	[ClearDTMF]
//	[SETDTMF "?"]
//	[Assign SR1,SR29 ]
//	[StrCat SR1, "3103333.vox"]
//	[PlayFile  SR1]		//1键确认，2键重输
//	StopPlayBack -> stIfConfirmPast
//	DialTerminate -> stIfConfirmPast
//:stIfConfirmPast
//	[Digit 10]
//	StopDigits('1')->stPlayPast
//	StopDigits('2')->stPress33
//	StopDigits('*')->stPress3
//	StopDigits->stConfirmPast
//	TimeOut->stConfirmPast
//:stPlayPast
	[Assign SR10,@vox_path]
	[StrCat SR10,"t3p"]
	[StrCat SR10,SR5]
	[StrCat SR10,".vox"]
	[PlayFile SR10]
	StopPlayBack ->stRelisten33
	DialTerminate -> stTerminate33
	Failed->stWrongQihao
:stRelisten33
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress33
:stTerminate33
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress33
:stWrongQihao
	[ClearDTMF]
	[SETDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103332.vox"]
	[PlayFile  SR1]		//您输入的期号错误或不存在，重新输入按1，返回上一级按×
	StopPlayBack ->stIfReInput33
	DialTerminate ->stIfReInput33
:stIfReInput33
	[Digit 10]
	StopDigits('1')->stPress33
	StopDigits('*')->stWait
	StopDigits->stWrongQihao
	TimeOut->stWrongQihao
:stPress4
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103400.vox"]
	[PlayFile  SR1]		//按1 五大联赛赔率，按2 其他联赛赔率,收听过程中按2重复收听，按×返回上一层
	StopPlayBack -> stPress4Choice
	DialTerminate -> stPress4Choice
:stPress4Choice
	[Digit 10]
	StopDigits('1')->stPress41
	StopDigits('2')->stPress42
	StopDigits('*')->stWait
	StopDigits->stPress4
	TimeOut->stPress4
:stPress41
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103410.vox"]
	[PlayFile  SR1]		//五大联赛赔率
	StopPlayBack -> stRelisten41
	DialTerminate -> stTerminate41
	failed ->stPress4
:stRelisten41
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress41
:stTerminate41
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress41
:stPress42
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103420.vox"]
	[PlayFile  SR1]		//其他联赛赔率
	StopPlayBack -> stRelisten42
	DialTerminate -> stTerminate42
	failed ->stPress4
:stRelisten42
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress42
:stTerminate42
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress42
:stPress5

	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103500.vox"]
	[PlayFile  SR1]		//按1 五大联赛赛事分析，按2 其他联赛赛事分析,收听过程中按2重复收听，按×返回上一层
	StopPlayBack -> stPress5Choice
	DialTerminate -> stPress5Choice
:stPress5Choice
	[Digit 10]
	StopDigits('1')->stPress51
	StopDigits('2')->stPress52
	StopDigits('*')->stWait
	StopDigits->stPress5
	TimeOut->stPress5
:stPress51
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103510.vox"]
	[PlayFile  SR1]		//五大联赛赛事分析预测
	StopPlayBack -> stRelisten51
	DialTerminate -> stTerminate51
:stRelisten51
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress51
:stTerminate51
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress51
:stPress52
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103520.vox"]
	[PlayFile  SR1]		//其他联赛赛事分析预测
	StopPlayBack -> stRelisten52
	DialTerminate -> stTerminate52
:stRelisten52
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress52
:stTerminate52
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress52


:stPress6
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103600.vox"]