请在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

//脚本结束