⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sports.sc

📁 用于收费语音服务的电话充值业务
💻 SC
📖 第 1 页 / 共 2 页
字号:
🔍
12 
	[PlayFile  SR1]		//知名媒体足彩预测，输入0－9查询体坛周报前十名本期预测，收听过程中按2重复收听，按×返回上一层
	StopPlayBack -> stInputWhichMedia
	DialTerminate -> stInputWhichMedia
:stInputWhichMedia
	[Digit 10]
	StopDigits('*')->stWait
	StopDigits->stAssignKey
	[Assign SR10,SR0]
:stAssignKey 
	[StoI SR10]
	[Equal IR0,0]
	Passed->stInputZero
	Failed->stInputNotZero
:stInputZero
	[Assign SR1,SR29]
	[StrCat SR1,"3103610.vox"]
	->stFamousMedia
:stInputNotZero
	[Assign SR1,SR29]
	[Strcat SR1,"310360"]
	[StrCat SR1,SR10]
	[StrCat SR1,".vox"]
	->stFamousMedia
:stFamousMedia
	[ClearDTMF]
	[SetDTMF "?"]
	[PlayFile SR1]
	StopPlayBack -> stRelisten6
	DialTerminate -> stTerminate6
:stRelisten6
	[CallFunc &FuncIfRelisten]
	Returned(0)->stPress6
	Returned ->stFamousMedia
:stTerminate6
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress6
:stPress7
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103700.vox"]
	[PlayFile  SR1]		//足彩对阵赛事数据
	StopPlayBack -> stRelisten7
	DialTerminate -> stTerminate7
:stTerminate7
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress7
:stRelisten7
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress7
:stPress8
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103800.vox"]
	[PlayFile  SR1]		//1键本期全国体彩开奖公告，2键以往开奖结果公告,收听过程中按2重复收听，按×返回上一层
	StopPlayBack -> stInput8Select
	DialTerminate -> stInput8Select
:stInput8Select
	[Digit 10]
	StopDigits('1')->stPress81
	StopDigits('2')->stPress82
	StopDigits('*')->stWait
	StopDigits->stPress8
	TimeOut->stPress8
:stPress81
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103810.vox"]
	[PlayFile  SR1]		//请输入所查询彩票所属省会，直辖市区号，＃结束，输入过程中，重新输入请按×
	StopPlayBack -> stAreaCodeInput
	DialTerminate -> stAreaCodeInput
:stAreaCodeInput
	[SetDTMF "*#"]
	[Input 5,20]
	StopDigits('#')->stParseAreaCode
	StopDigits('*')->stPress81
	StopDigits(-1)->stPress81
	TimeOut->stPress81
:stParseAreaCode
	[ParseParam SR0,1,"#"]
	[Assign SR10,SR0]
	[StrLen SR10]
	[Equal IR0,4]
	Passed->st4bitAreaCode
	Failed->st3bitAreaCode
:st4bitAreaCode
	[StrSub SR10,2,4]
	[Assign SR15,SR0]
	->stGet3BitAreaCode
:st3bitAreaCode
	[Assign SR15,SR10]
	->stGet3BitAreaCode
:stGet3BitAreaCode
	[Assign SR1,SR29 ]
	[StrCat SR1,SR15]
	[StrCat SR1,"0001.vox"]
	[AccessFile SR1,0]
	Passed->stPlayAreaResult
	Failed->stWrongAreaCode
:stWrongAreaCode
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103830.vox"]
	[PlayFile  SR1]		//按键错误，重新输入按2，返回上一级按×
	StopPlayBack -> stIfReInputAreacode
	DialTerminate -> stIfReInputAreacode
:stIfReInputAreacode
	[Digit 10]
	StopDigits('2')->stPress81
	StopDigits('*')->stWait	
	StopDigits->stWrongAreaCode
:stPlayAreaResult
	[ClearDTMF]
	[SetDTMF "?"]
	[PlayFile  SR1]		//播放本期开奖结果
	StopPlayBack -> stRelisten81
	DialTerminate -> stTerminate81
:stRelisten81
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPlayAreaResult
:stTerminate81
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPlayAreaResult
:stPress82


	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103810.vox"]
	[PlayFile  SR1]		//请输入所查询彩票所属省会，直辖市区号，＃结束，输入过程中，重新输入请按×
	StopPlayBack -> st82AreaCodeInput
	DialTerminate -> st82AreaCodeInput
:st82AreaCodeInput
	[SetDTMF "*#"]
	[Input 5,20]
	StopDigits('#')->stParseAreaCode
	StopDigits('*')->stPress82
	StopDigits(-1)->stPress82
	TimeOut->stPress82
:st82ParseAreaCode
	[ParseParam SR0,1,"#"]
	[Assign SR10,SR0]
	[StrLen SR10]
	[Equal IR0,4]
	Passed->st4bitAreaCode82
	Failed->st3bitAreaCode82
:st4bitAreaCode82
	[StrSub SR10,2,4]
	[Assign SR15,SR0]
	->stInputWhichTerm
:st3bitAreaCode82
	[Assign SR15,SR10]
	->stInputWhichTerm
:stInputWhichTerm
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103820.vox"]
	[PlayFile  SR1]		//输入5位期号，按＃确认，输入过程中，重新输入请按×
	StopPlayBack -> stInputPastDate82
	DialTerminate -> stInputPastDate82
:stInputPastDate82
	[SetDTMF "*#"]
	[Input 6,20]
	StopDigits('#')->stGetThisYear
	StopDigits('*')->stInputWhichTerm
	StopDigits ->stInputWhichTerm
	TimeOut->stInputWhichTerm
:stGetThisYear
	[NowTime]
	[Strsub SR0,3,4]
	[Assign SR17,SR0]
	[Assign SR1,SR29 ]
	[StrCat SR1,SR15]
	[StrCat SR1,SR17]
	[AccessFile SR1,0]
	Passed->stPlayAreaResult82
	Failed->stWrongAreaCode82
:stWrongAreaCode82
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103830.vox"]
	[PlayFile  SR1]		//按键错误，重新输入按2，返回上一级按×
	StopPlayBack -> stPress82
	DialTerminate -> stPress82
:stIfReInputAreacode82
	[Digit 10]
	StopDigits('2')->stPress82
	StopDigits('*')->stWait	
	StopDigits->stWrongAreaCode82
:stPlayAreaResult82
	[ClearDTMF]
	[SetDTMF "?"]
	[PlayFile  SR1]		//播放以往开奖结果
	StopPlayBack -> stRelisten82
	DialTerminate -> stTerminate82
:stRelisten82
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPlayAreaResult82
:stTerminate82
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPlayAreaResult82
:stPress9
	[Assign IR10,0]
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103900.vox"]
	[PlayFile  SR1]		//1键本省奖池查询，2键全国前十位奖池通报,收听过程中按2重复收听，按×返回上一层
	StopPlayBack -> stInput9Select
	DialTerminate -> stInput9Select
:stInput9Select
	[Digit 10]
	StopDigits('1')->stPress91
	StopDigits('2')->stPress92
	StopDigits('*')->stWait
	StopDigits->stPress9
	TimeOut->stPress9
:stPress91
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103810.vox"]
	[PlayFile  SR1]		//请输入所查询彩票所属省会，直辖市区号，＃结束，输入过程中，重新输入请按×
	StopPlayBack -> stMoneyAreaCodeInput
	DialTerminate -> stMoneyAreaCodeInput
:stMoneyAreaCodeInput
	[SetDTMF "*#"]
	[Input 5,20]
	StopDigits('#')->stParseMoneyAreaCode
	StopDigits('*')->stPress91
	StopDigits(-1)->stPress91
	TimeOut->stPress91
:stParseMoneyAreaCode
	[ParseParam SR0,1,"#"]
	[Assign SR10,SR0]
	[StrLen SR10]
	[Equal IR0,4]
	Passed->stMoney4bitAreaCode
	Failed->stMoney3bitAreaCode
:stMoney4bitAreaCode
	[StrSub SR10,2,4]
	[Assign SR15,SR0]
	->stMoney3bitAreaCode
:stMoney3bitAreaCode
	[Assign SR15,SR10]
	->stIfFileExist
:stIfFileExist
	[Assign SR1,SR29 ]
	[StrCat SR1,SR15]
	[StrCat SR1,"0000.vox"]
	[AccessFile SR1,0]
	Passed->stPlayMoneyResult
	Failed->stMoneyFileNotExist
:stMoneyFileNotExist
	[Equal IR10,3]
	Passed->stExit
	Failed->stWrongAreaCode91
:stWrongAreaCode91
	[Inc IR10]
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "3103830.vox"]
	[PlayFile  SR1]		//按键错误，请重新输入
	StopPlayBack -> stPress91
	DialTerminate -> stPress91
:stPlayMoneyResult
	[ClearDTMF]
	[SetDTMF "?"]
	[PlayFile  SR1]		//播放本省奖池
	StopPlayBack -> stRelisten91
	DialTerminate -> stTerminate91
:stRelisten91
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPlayMoneyResult
:stTerminate91
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPlayMoneyResult
:stPress92
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29]
	[StrCat SR1,"3109100.vox"]
	[PlayFile  SR1]		//播放全国前十位奖池通报
	StopPlayBack -> stRelisten92
	DialTerminate -> stTerminate92
:stRelisten92
	[CallFunc &FuncIfRelisten]
	Returned(0)->stWait
	Returned ->stPress92
:stTerminate92
	[CallFunc &FuncTerminate]
	Returned(0)->stWait
	Returned->stPress92
:stExit
	[Return 0]
}
FuncTerminate
{
:stWait
	[Assign IR20,0]
	[DIGIT 5]
	StopDigits('2')->stRelisten
	StopDigits('*')->stExit
:stRelisten
	[Assign IR20,1]
	->stExit
:stExit
	[Return IR20]
}

FuncIfRelisten
{
:stWait
	[Assign IR20,0]
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign SR1,SR29 ]
	[StrCat SR1, "0000000.vox"]
	[PlayFile  SR1]		//按2键重新收听，按×返回上一层
	StopPlayBack -> stRelistenChoose
	DialTerminate -> stRelistenChoose
:stRelistenChoose
	[Digit 10]
	StopDigits('2')->stRelisten
	StopDigits('*')->stExit
	StopDigits->stWait
	TimeOut->stWait
:stRelisten
	[Assign IR20,1]
	->stExit
:stExit
	[Return IR20]
}
FuncVerifyCard
{
#declare SR CardID	//保留卡号
:stWait
	[Inc IR23]
	->stPlayInputCardID
:stPlayInputCardID
	[ClearDTMF]
	[SetDTMF "?"]
	[Assign IR22,1]
	[Assign SR1,SR29]
	[StrCat SR1, "v012.vox"]
	[PlayFile  SR1]	//请输入您的卡号，按#号键确认。
	StopPlayBack -> stInputCardID
	DialTerminate -> stInputCardID
	Failed -> stInputCardID
:stInputCardID
	[SetDTMF "#"]
	[Input @CallLen,30]
	StopDigits -> stPlayInputCardPwd
	TimeOut -> stExit
:stPlayInputCardPwd
	[ParseParam SR0,1,"#"]
	[StrTrim SR0]
	[Assign CardID,SR0]
	[SetDTMF "?"]
	[Assign SR1,SR29]
	[StrCat SR1, "v013.vox"]
	[PlayFile SR1]	//请输入您的密码，按#号键确认。
	StopPlayBack -> stCardInputPwd
	DialTerminate -> stCardInputPwd
	Failed -> stCardInputPwd
:stCardInputPwd
        [SetDTMF "#"]
        [Input @PWDLen,20]
        StopDigits -> stVerifyCard
        TimeOut -> stExit
:stVerifyCard
	[ParseParam SR0,1,"#"]
	[StrTrim SR0]
	[Assign $Password,SR0]
	[VerifyUser CardID,-1] //认证卡号
	Verify(0) -> stAdjustMoney	//有效卡号
	Verify(1) -> stCardErr	//卡号错误
	Verify(2) -> stCardUsed	//卡号正在被使用
	Verify(4) -> stCardNotEnoughMoney	//余额不足
:stAdjustMoney
	[Great $AccountBalance,1.00]
	Passed -> stBack
	Failed -> stCardNotEnoughMoney
:stCardErr
	[Equal IR23,@PWDCount]
	Passed -> stPassCount	//错误密码超过次数
	Failed -> stPlayCardErr	
:stPlayCardErr
	[SetDTMF "?"]
	[Assign SR1,SR29]
	[StrCat SR1, "v014.vox"]
	[PlayFile SR1]	//您输入的卡号和密码错误，请重新输入。
	StopPlayBack  -> stWait
	DialTerminate -> stWait
	Failed        -> stWait
:stPassCount
	[SetDTMF "?"]
	[Assign SR1,SR29]
	[StrCat SR1, "v015.vox"]
	[PlayFile SR1]	//您输入的卡号和密码错误，谢谢使用，再见。
	StopPlayBack  -> stExit
	DialTerminate -> stExit
	Failed        -> stExit
:stCardNotEnoughMoney
	[SetDTMF "?"]
	[Assign SR1,SR29]
	[StrCat SR1, "v016.vox"]
	[PlayFile SR1]	//您输入的卡号余额不足，请重新输入。
	StopPlayBack  -> stExit
	DialTerminate -> stExit
	Failed        -> stExit
:stCardUsed
	[SetDTMF "?"]
	[Assign SR1,SR29]
	[StrCat SR1, "v017.vox"]
	[PlayFile SR1]	//您输入的卡号正在被使用，请重新输入。
	StopPlayBack  -> stWait
	DialTerminate -> stWait
	Failed        -> stWait
:stBack
	[Assign IR22,0]	//认证通过
	-> stExit
:stExit
	[Return IR22]
}
//★★卡认证函数end
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -