请在800*600窗口模式下运行此脚本,窗口位置在屏幕的左上。 运行时需要将《阅览图书》的按钮先点出再开始执行脚本
//脚本开始 VBSCâll Bººk=InpuþBºx ("请选择读的书!地理=¹ 考古=² 宗教=³ 生物=4 财宝=5 美术=6。输入数字时因窗口问题第²次会出现!") Ððlâý ¹000 VBSCâll CI=InpuþBºx ("请输入读书次数!") Ððlâý ¹000 Fºr CI MºvðÞº 648 ³8² Ððlâý 600 LðfþClick ¹ Ððlâý ¹000 If Bººk>0 x=²60+(Bººk-¹)*56 ý=²³0 MºvðÞº x ý Ððlâý ¹000 LðfþкublðClick ¹ Ððlâý ¹000 EndIf EndFºr
//脚本结束