End if End Sub //子程序的分割线----------------------------------------------------------------------------------------------------------------------------------- Sub 鉴别阶段() p=zuimodian //从上面的到最末点的坐标参加计算 Rem 开始检测 //通过颜色判断当前经验的坐标 IfColor p,f,"c700",2 Then p=p //p值是用来返回的,这里覆盖了原来的值,所以可以反复调用这个子程序 q=1 //q值是帮助判断找到没有的标记值,找到=1,没有=0 Else //这个if是规定从右到左的找,直到找到 If p>0 Then p=p-1 Goto 开始检测 Else Call MessageBox("Sorry!我没有找到程序运行需要的参数!游戏是不是没有运行?") q=0 End if End if End Sub //子程序的分割线----------------------------------------------------------------------------------------------------------------------------------- Sub 延时阶段() haomiao=t*60000 Delay haomiao End Sub //子程序的分割线----------------------------------------------------------------------------------------------------------------------------------- Sub 赋值阶段() zengliang=jieshu-kaishi zb=zengliang/leng yb=(zuimodian-jieshu)/leng total=t/zb lest=total*yb i=(jinyan*zb)/t jy=jinyan*yb //上面的一段是计算增加经验和剩余经验的百分比和总时间与剩余时间的判断 w=Fix(total/60) r=Fix(total-w*60) g=Fix(lest/60) k=Fix(lest-g*60) //这一段是换算小时的 jy=Fix(jy) i=Fix(i) //Fix()是取整函数,相当于Int,不过小于零的时候好像有不同,可到宝典看看,(什么,你不知道宝典,按键的啦!!!) End Sub //分割线------------------------------------------------------------------------------------------------------------------------------------------------------ //下面的这几段没有什么好说的,对话框的使用啦,很简单的。 Sub 没有长经验() Call MessageBox("老大,你玩我啊,一点都没有变嘛,还要继续努力啊!") Call MessageBox("本级升级单位时间经验当然等于 "&i&" 点经验每分钟啦!") Call MessageBox("你的升级路程还很长啊,一点都没有长经验嘛 !") End Sub //分割线------------------------------------------------------------------------------------------------------------------------------------------------------ Sub 总时间大于两个小时() Call MessageBox("本级升级需要总时间预计为 "&w&" 小时 "&r&" 分钟!") Call MessageBox("有够衰啊,居然要 "&w&" 多个小时才够升级!") End Sub //分割线------------------------------------------------------------------------------------------------------------------------------------------------------ Sub 总时间一个小时() Call MessageBox("本级升级需要总时间预计为 "&w&" 小时 "&r&" 分钟!") Call MessageBox("还不错啊, "&w&" 个多小时就够升级了!") End Sub //分割线------------------------------------------------------------------------------------------------------------------------------------------------------ Sub 总时间不到一个小时() Call MessageBox("本级升级需要总时间预计为 "&r&" 分钟!") Call MessageBox("太帅了,不到1个小时就够升级了!") End Sub //分割线------------------------------------------------------------------------------------------------------------------------------------------------------ Sub 剩余时间大于一个小时() Call MessageBox("你惨了!(∵)!还要 "&g&" 小时 "&k&" 分钟你才能升级!") End Sub //分割线------------------------------------------------------------------------------------------------------------------------------------------------------ Sub 剩余时间不到一个小时() Call MessageBox("恭喜你!^_^ !离本次升级结束还有 "&k&" 分钟 !") End Sub