该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

新的名字

生活助手

If Clock.Hour < 12 Then

TextWindow.WriteLine("早上好，测试者")

ElseIf Clock.Hour < 14 Then

TextWindow.WriteLine("中午好，测试者")

ElseIf Clock.Hour < 17 Then

TextWindow.WriteLine("下午好，测试者")

ElseIf Clock.Hour < 20 Then

TextWindow.WriteLine("晚好，测试者")

EndIf

TextWindow.WriteLine("学习还是玩")

asg=TextWindow.Read()

If asg="学习" then

ElseIf asg="玩" then

sheng()

EndIf

TextWindow.WriteLine("答题还是编答案")

shui=TextWindow.Read()

Sub bian

ts="1.html"

ys="2.html"

us="3.html"

TextWindow.WriteLine("请问你要更新文本吗(是/否)注本程序是无限制")

tsg=TextWindow.Read()

i=1

l=Clock.Date

nian=Clock.Year

tian=Clock.Day

TextWindow.WriteLine("今天是+"+Clock.Date)

If tsg="是" Then

While i>0

TextWindow.BackgroundColor="green"

TextWindow.ForegroundColor="red"

TextWindow.WriteLine("打请出你要的信息(1)")

r=TextWindow.Read()

sr=File.ReadContents(ts)

File.InsertLine(sr,i, r)

TextWindow.WriteLine("打请出你要的信息(2)")

e=TextWindow.Read()

yr=File.ReadContents(ys)

File.InsertLine(yr,i, e)

TextWindow.WriteLine("打请出你要的信息(3)")

s=TextWindow.Read()

ysr=File.ReadContents(us)

File.InsertLine(ysr,i,s)

i=i+1

TextWindow.WriteLine("文件目录1")

gs=TextWindow.Read()

File.WriteContents(gs,ts)

TextWindow.WriteLine("文件目录2")

hs=TextWindow.Read()

File.WriteContents(hs,ys)

TextWindow.WriteLine("文件目录3")

ks=TextWindow.Read()

File.WriteContents(ks,us)

EndWhile

While i>0

TextWindow.BackgroundColor="green"

TextWindow.ForegroundColor="red"

TextWindow.WriteLine("打请出你要的信息(1)")

r=TextWindow.Read()

File.InsertLine(ts,i, r)

TextWindow.WriteLine("打请出你要的信息(2)")

e=TextWindow.Read()

File.InsertLine(ys,i, e)

TextWindow.WriteLine("打请出你要的信息(3)")

s=TextWindow.Read()

File.InsertLine(us,i,s)

i=i+1

TextWindow.Clear()

EndWhile

EndIf

EndSub

Sub xue

TextWindow.Write("你要答几次题")

iu=TextWindow.Read()

While i>0

no=Math.GetRandomNumber(100)

b=File.ReadLine(ts,no)

j=File.ReadLine(ys,no)

si=File.ReadLine(us,no)

TextWindow.Write("b")

sui=TextWindow.Read()

If sui=j Then

TextWindow.Write("答案"+j)

TextWindow.Write("因为"+si)

Else

TextWindow.Write("答案"+j)

TextWindow.Write("因为"+si)

EndIf

iu=iu-1

EndWhile

TextWindow.WriteLine("要玩一把游戏吗")

ags=TextWindow.Read()

If ags="要" Then

TextWindow.WriteLine("客官玩几次")

ste=TextWindow.Read()

While ste>0

h=Math.GetRandomNumber(6)

c=Math.GetRandomNumber(6)

TextWindow.WriteLine("1号玩家"+h)

TextWindow.WriteLine("2号玩家"+c)

If h>c Then

TextWindow.WriteLine("1号玩家获胜")

ElseIf h=c then

TextWindow.WriteLine("平局")

Else

TextWindow.WriteLine("2号玩家获胜")

EndIf

ste=ste-1

EndWhile

Else

EndIf

EndSub

If shui="答题" Then

xue()

Else

bian()

EndIf

Sub sheng

TextWindow.WriteLine("玩什么(现在只有抛筛子)")

q=TextWindow.Read()

If q="筛抛子" Then

TextWindow.WriteLine("客官玩几次")

ste=TextWindow.Read()

While ste>0

h=Math.GetRandomNumber(6)

c=Math.GetRandomNumber(6)

TextWindow.WriteLine("1号玩家"+h)

TextWindow.WriteLine("2号玩家"+c)

If h>c Then

TextWindow.WriteLine("1号玩家获胜")

ElseIf h=c then

TextWindow.WriteLine("平局")

Else

TextWindow.WriteLine("2号玩家获胜")

EndIf

ste=ste-1

EndWhile

else

EndIf

EndSub