精华公布栏

发信人: lyfe ({@_@}), 信区: SysServices
标  题: [范文]星空战斗鸡--一个养鸡机器人(转载)
发信站: 哈工大紫丁香 (2003年06月10日19:09:42 星期二), 站内信件

【以下文字转载自 NewBoard 讨论区】
【原文由 lyfe 所发表】
Option Explicit
Main
MsgBox ("Script End")

Sub Main()
Dim j,i
i=0

While i < 100
j=0
While j < 70

    STermScript.SendData ("1")

    STermScript.SendData ("1")

    STermScript.SendData ("1")

    STermScript.SendData ("1")

    STermScript.SendData ("1")

    STermScript.SendData ("1")

    STermScript.SendData ("q")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("q")

    STermScript.SendData ("5")

    STermScript.SendData ("h")

    STermScript.SendData ("h")

    STermScript.SendData ("h")

    STermScript.SendData ("h")

    STermScript.SendData ("h")

    STermScript.SendData ("h")

    STermScript.SendData ("q")

    STermScript.SendData ("1")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("q")

    STermScript.SendData ("5")

    STermScript.SendData ("h")

    STermScript.SendData ("h")

    STermScript.SendData ("h")

    STermScript.SendData ("h")

    STermScript.SendData ("q")

    STermScript.SendData ("1")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("2")

    STermScript.SendData ("q")
    j=j+1
      STermScript.SendConvertedData ("^m")

Wend
        i=i+1

    STermScript.SendData ("6")
STermScript.Delay 3
    STermScript.SendData ("2")
     STermScript.Delay 30
    STermScript.SendData ("4")
     STermScript.Delay 30
    STermScript.SendData ("q")
     STermScript.Delay 30
    STermScript.SendConvertedData ("^m")
     STermScript.Delay 30
    STermScript.SendData ("1")
     STermScript.Delay 30
    STermScript.SendConvertedData ("^m")
     STermScript.Delay 30
    STermScript.SendData ("y")
     STermScript.Delay 30
    STermScript.SendConvertedData ("^m")
     STermScript.Delay 30
    STermScript.SendData ("r")
     STermScript.Delay 30
    STermScript.SendData ("1")

    STermScript.SendData ("1")

    STermScript.SendData ("q")
    STermScript.SendData ("4")
    STermScript.SendData ("1")
    STermScript.SendData ("y")
    STermScript.SendConvertedData ("^m")
    STermScript.SendConvertedData ("^m")
    STermScript.SendData ("q")
Wend
End Sub


--
                                  ╭═══╯  ╭═╮   ╮    ╭═══╮
  /////\\                       ╰══╬══╯    ║╭╦═╯         ║
  (-O-O-)  ╓════════╖   ╰╣║╠╯    ╭╯  ╚╮       ╭═╯
   \ ^ /   <  I'm a poppet~~~~~ ╰═╝║╚═╯╰╬╯╭═╯│ ╰═╬═╯
oOO \~/ OOo╘────────╛       ║        ║  ╭╦═╯     ║
                                      ╯      ╰╯    ╰═╯   ╰╯

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.226.230]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.226.230]