该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
新的名字
生活助手
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