Small Basic中文站-快乐编程

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1365|回复: 1

Island Craft 1.1.2 版本源代码

[复制链接]
发表于 2014-11-1 14:29:04 | 显示全部楼层 |阅读模式
本帖最后由 study_hard 于 2014-11-1 14:33 编辑

Island Craft1.1.2更新内容:
1.攻击野人、野人掉落
2.物品:指南针
3.新增概念【重生点】
4.修复上一版本的BUG
P.S.   1.1.2版本不支持以前的存档!!可以到E盘里删除以前的存档!
更新详见http://tieba.baidu.com/p/3329462479?pn=1

代码:(分两个部分,请都复制到Small Basic)
第一部分:1-908行
第二部分:1-625行

代码第一部分:(复制完请换行,接着复制第二部分)

  1. '2014.10.1   开始制作   1.1.2
  2. '更新步骤:
  3. GraphicsWindow.Width=700
  4. GraphicsWindow.Height=530
  5. GraphicsWindow.Left=(Desktop.Width-GraphicsWindow.Width)/2-50
  6. GraphicsWindow.Top=(Desktop.Height-GraphicsWindow.Height)/2-50
  7. GraphicsWindow.Title="Island Craft"
  8. Controls.ButtonClicked=buttonclicked
  9. GraphicsWindow.KeyDown=keydown
  10. GraphicsWindow.MouseDown=mousedown
  11. screen=1
  12. check=1
  13. gameload=0
  14. path="E:\Island Craft1"     '默认打开方式     标准:E:\Island Craft1    ,    E:\编程\LOCK\LOCK2\lock\文件\Island Craft1
  15. baginformation()
  16. typerinformation()
  17. drawscreen()
  18. worldwidth=100
  19. worldlength=worldwidth
  20. Sub drawscreen
  21.   If screen=1 Then
  22.     GraphicsWindow.Clear()
  23.     GraphicsWindow.BrushColor="Black"
  24.     GraphicsWindow.FontSize=36
  25.     GraphicsWindow.DrawText(50,50,"Island Craft岛屿生存")
  26.     GraphicsWindow.FontSize=25
  27.     GraphicsWindow.DrawText(50,165,"输入存档路径:")
  28.     enterkeypath=Controls.AddTextBox(50,200)
  29.     Controls.SetSize(enterkeypath,500,40)
  30.     Controls.SetTextBoxText(enterkeypath,path)
  31.     startplaygame=Controls.AddButton("PLAY",580,200)
  32.     Controls.SetSize(startplaygame,80,40)
  33.   ElseIf screen=2 Then
  34.     GraphicsWindow.Clear()
  35.     firstgameload=0
  36.     GraphicsWindow.DrawText(200,150,"第一次进入此存档需要加载")
  37.     GraphicsWindow.DrawText(280,190,"请耐心等候")
  38.     showfirstgameload=Shapes.AddText("已加载"+firstgameload+"%")
  39.     Shapes.Move(showfirstgameload,270,230)
  40.     mex=Math.Floor(worldwidth/2)+1
  41.     mey=Math.Floor(worldlength/2)+1
  42.     For i=1 To worldlength
  43.       For j=1 To worldwidth
  44.         If i=mex And j=mey Then
  45.           thing[i][j]=120
  46.         ElseIf i=mex-1 And j=mey Then
  47.           thing[i][j]=120
  48.         ElseIf i=mex-2 And j=mey Then
  49.           thing[i][j]=120
  50.         Else
  51.           thing[i][j]=Math.GetRandomNumber(120)
  52.         EndIf
  53.         File.WriteLine(path,(i-1)*worldwidth+j+1,thing[i][j])
  54.         firstgameload=Math.Round((i*100+j)/worldlength-1)/2
  55.         Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%")
  56.       EndFor
  57.     EndFor
  58.     For i=1 To allcheck
  59.       File.WriteLine(path,worldlength*worldwidth+1+i,0)
  60.       firstgameload=50+Math.Round(50/allcheck)*i-1
  61.       Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%")
  62.     EndFor
  63.     For i=1 To 6
  64.       File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,0)
  65.     EndFor
  66.     File.WriteLine(path,worldlength*worldwidth+8+allcheck,1)
  67.     File.WriteLine(path,worldlength*worldwidth+9+allcheck,mex)
  68.     File.WriteLine(path,worldlength*worldwidth+10+allcheck,mey)
  69.     For i=1 To 12
  70.       File.WriteLine(path,worldlength*worldwidth+10+allcheck+i,0)
  71.     EndFor
  72.     File.WriteLine(path,worldlength*worldwidth+23+allcheck,10)
  73.     File.WriteLine(path,worldlength*worldwidth+24+allcheck,10)
  74.     File.WriteLine(path,worldlength*worldwidth+25+allcheck,0)
  75.     File.WriteLine(path,worldlength*worldwidth+26+allcheck,0)
  76.     File.WriteLine(path,worldlength*worldwidth+27+allcheck,mex)
  77.     File.WriteLine(path,worldlength*worldwidth+28+allcheck,mey)
  78.     firstgameload=100
  79.     Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%")
  80.     screen=4
  81.     drawscreen()
  82.   ElseIf screen=3 Then
  83.     GraphicsWindow.Clear()
  84.     If hunger<=0 Or blood<=0 Then
  85.       screen=10000
  86.       die()
  87.     EndIf
  88.     willgetthing=0
  89.     gameload=0
  90.     GraphicsWindow.PenWidth=4
  91.     GraphicsWindow.DrawLine(0,451,700,451)
  92.     GraphicsWindow.DrawLine(451,0,451,451)
  93.     GraphicsWindow.PenWidth=4
  94.     GraphicsWindow.FontSize=14
  95.     GraphicsWindow.BrushColor="Black"
  96.     seesight=Shapes.AddRectangle(450,450)
  97.     exchangerdaytime=daytime-200
  98.     If exchangerdaytime>0 Then
  99.       exchangerdaytime=Math.Abs(exchangerdaytime-100)/10*9
  100.     Else
  101.       exchangerdaytime=90
  102.     EndIf
  103.     Shapes.SetOpacity(seesight,90-exchangerdaytime)
  104.     For i=1 To 6
  105.       If holdeasybag=i Then
  106.         GraphicsWindow.PenColor="Red"
  107.         showholdeasybag1=Shapes.AddRectangle(2,40)
  108.         showholdeasybag2=Shapes.AddRectangle(2,40)
  109.         showholdeasybag3=Shapes.AddRectangle(60,2)
  110.         showholdeasybag4=Shapes.AddRectangle(60,2)
  111.         Shapes.Move(showholdeasybag1,19+(i-1)*70,486)
  112.         Shapes.Move(showholdeasybag2,80+(i-1)*70,486)
  113.         Shapes.Move(showholdeasybag3,20+(i-1)*70,485)
  114.         Shapes.Move(showholdeasybag4,20+(i-1)*70,526)
  115.         GraphicsWindow.PenColor="Black"
  116.       EndIf
  117.       GraphicsWindow.DrawRectangle(20+(i-1)*70,486,60,40)
  118.       GraphicsWindow.DrawText(22+(i-1)*70,486,bagthing[easybag[i]])
  119.       GraphicsWindow.DrawText(22+(i-1)*70,506,"x"+bagnum[easybag[i]])
  120.     EndFor
  121.     GraphicsWindow.PenWidth=2
  122.     GraphicsWindow.FontSize=22
  123.     GraphicsWindow.DrawText(10,456,"血量值:"+exchangerblood[blood])
  124.     GraphicsWindow.DrawText(300,456,"饥饿值:"+exchangerhung[hunger])
  125.     If bagnum[44]>0 Then
  126.       GraphicsWindow.FontSize=19
  127.       GraphicsWindow.DrawText(460,300,"现在位置:X:"+mex+"  Y:"+mey)
  128.       GraphicsWindow.DrawText(460,330,"重生位置:X:"+sleepx+"  Y:"+sleepy)
  129.       GraphicsWindow.FontSize=22
  130.     EndIf
  131.     For i=mex-4 To mex+4
  132.       For j=mey-4 To mey+4
  133.         instead=thing[i][j]
  134.         If instead<=18 Then    '水
  135.           GraphicsWindow.BrushColor="CornFlowerBlue"
  136.           GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50,50,50)
  137.         Else
  138.           GraphicsWindow.BrushColor="ForestGreen"
  139.           GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50,50,50)
  140.         EndIf
  141.         If instead>18 And instead<=28 Then                 '树木
  142.           GraphicsWindow.BrushColor="DarkGreen"
  143.           GraphicsWindow.FillRectangle((i-mex+4)*50+12.5,(j-mey+4)*50,25,50)
  144.           GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50+12.5,50,25)
  145.         ElseIf instead>30 And instead<=35 Then                 '石头
  146.           GraphicsWindow.BrushColor="Gray"
  147.           GraphicsWindow.FillRectangle((i-mex+4)*50+15,(j-mey+4)*50+15,20,20)
  148.         ElseIf instead=30 Then                 '蘑菇
  149.           GraphicsWindow.BrushColor="Purple"
  150.           GraphicsWindow.FillEllipse((i-mex+4)*50+19,(j-mey+4)*50+12,12,12)
  151.           GraphicsWindow.FillRectangle((i-mex+4)*50+21.5,(j-mey+4)*50+22,7,10)
  152.         ElseIf instead=29 Then                 '南瓜
  153.           GraphicsWindow.BrushColor="Gold"
  154.           GraphicsWindow.FillRectangle((i-mex+4)*50+20,(j-mey+4)*50+15,10,8)
  155.           GraphicsWindow.FillEllipse((i-mex+4)*50+15,(j-mey+4)*50+22,20,20)
  156.         ElseIf instead=46 Then         '猪
  157.           GraphicsWindow.BrushColor="PeachPuff"
  158.           GraphicsWindow.FillRectangle((i-mex+4)*50+18,(j-mey+4)*50+10,14,20)
  159.           GraphicsWindow.FillRectangle((i-mex+4)*50+21,(j-mey+4)*50+30,8,8)
  160.         ElseIf instead=47 Then         '牛
  161.           GraphicsWindow.BrushColor="Peru"
  162.           GraphicsWindow.FillRectangle((i-mex+4)*50+18,(j-mey+4)*50+10,14,20)
  163.           GraphicsWindow.FillRectangle((i-mex+4)*50+21,(j-mey+4)*50+30,8,8)
  164.           If hasescaped=0 Then
  165.             hasescaped=1
  166.             do3()
  167.           Else
  168.             hasescaped=0
  169.           EndIf
  170.         ElseIf instead=48 Then         '羊
  171.           GraphicsWindow.BrushColor="White"
  172.           GraphicsWindow.FillRectangle((i-mex+4)*50+18,(j-mey+4)*50+10,14,20)
  173.           GraphicsWindow.FillRectangle((i-mex+4)*50+21,(j-mey+4)*50+30,8,8)
  174.           If hasescaped=0 Then
  175.             hasescaped=1
  176.             do3()
  177.           Else
  178.             hasescaped=0
  179.           EndIf
  180.         ElseIf instead=49 And move[i][j]=0 Then         '野人
  181.           GraphicsWindow.BrushColor="SaddleBrown"
  182.           GraphicsWindow.FillRectangle((i-mex+4)*50+20,(j-mey+4)*50+10,10,10)
  183.           GraphicsWindow.BrushColor="Red"
  184.           GraphicsWindow.FillRectangle((i-mex+4)*50+20,(j-mey+4)*50+20,10,18)
  185.           'do5()
  186.         'ElseIf instead=49 And move[i][j]=1 Then         '野人
  187.           'GraphicsWindow.BrushColor="SaddleBrown"
  188.           'GraphicsWindow.FillRectangle((i-mex+4)*50+20,(j-mey+4)*50+10,10,10)
  189.           'GraphicsWindow.BrushColor="Red"
  190.           'GraphicsWindow.FillRectangle((i-mex+4)*50+20,(j-mey+4)*50+20,10,18)
  191.           'move[i][j]=0
  192.         ElseIf instead=121 Then         '毛毯
  193.           GraphicsWindow.BrushColor="White"
  194.           GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50,50,50)
  195.         ElseIf instead=122 Then         '木墩
  196.           GraphicsWindow.BrushColor="BurlyWood"
  197.           GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50,50,50)
  198.           GraphicsWindow.DrawRectangle((i-mex+4)*50+5,(j-mey+4)*50+5,40,40)
  199.           GraphicsWindow.DrawRectangle((i-mex+4)*50+10,(j-mey+4)*50+10,30,30)
  200.           GraphicsWindow.DrawRectangle((i-mex+4)*50+15,(j-mey+4)*50+15,20,20)
  201.           GraphicsWindow.DrawRectangle((i-mex+4)*50+20,(j-mey+4)*50+20,10,10)
  202.         ElseIf instead=123 Then         '石墩
  203.           GraphicsWindow.BrushColor="DarkGray"
  204.           GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50,50,50)
  205.           GraphicsWindow.DrawLine((i-mex+4)*50,(j-mey+4)*50+10,(i-mex+4)*50+50,(j-mey+4)*50+10)
  206.           GraphicsWindow.DrawLine((i-mex+4)*50,(j-mey+4)*50+20,(i-mex+4)*50+50,(j-mey+4)*50+20)
  207.           GraphicsWindow.DrawLine((i-mex+4)*50,(j-mey+4)*50+30,(i-mex+4)*50+50,(j-mey+4)*50+30)
  208.           GraphicsWindow.DrawLine((i-mex+4)*50,(j-mey+4)*50+40,(i-mex+4)*50+50,(j-mey+4)*50+40)
  209.           GraphicsWindow.DrawLine((i-mex+4)*50,(j-mey+4)*50+50,(i-mex+4)*50+50,(j-mey+4)*50+50)
  210.         ElseIf instead=124 Then         '藤帘
  211.           GraphicsWindow.BrushColor="OliveDrab"
  212.           GraphicsWindow.FillRectangle((i-mex+4)*50+1,(j-mey+4)*50,11,45)
  213.           GraphicsWindow.FillRectangle((i-mex+4)*50+13,(j-mey+4)*50,11,45)
  214.           GraphicsWindow.FillRectangle((i-mex+4)*50+25,(j-mey+4)*50,11,45)
  215.           GraphicsWindow.FillRectangle((i-mex+4)*50+37,(j-mey+4)*50,11,45)
  216.         ElseIf instead=125 Then         '金色毛毯
  217.           GraphicsWindow.BrushColor="Yellow"
  218.           GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50,50,50)
  219.         ElseIf instead=126 Then         '浅蓝毛毯
  220.           GraphicsWindow.BrushColor="Aqua"
  221.           GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50,50,50)
  222.         EndIf
  223.         If i=mex And j=mey Then                 '我
  224.           GraphicsWindow.BrushColor="SaddleBrown"
  225.           GraphicsWindow.FillRectangle((i-mex+4)*50+20,(j-mey+4)*50+10,10,10)
  226.           GraphicsWindow.BrushColor="Blue"
  227.           GraphicsWindow.FillRectangle((i-mex+4)*50+20,(j-mey+4)*50+20,10,18)
  228.         EndIf
  229.       EndFor
  230.     EndFor
  231.     For k=1 To 6
  232.       If bagnum[easybag[k]]=0 Then
  233.         File.WriteLine(path,worldlength*worldwidth+1+allcheck+k,0)
  234.       EndIf
  235.     Endfor
  236.   ElseIf screen=4 Then
  237.     GraphicsWindow.Clear()
  238.     GraphicsWindow.FontSize=25
  239.     GraphicsWindow.DrawText(240,150,"正在载入游戏......")
  240.     GraphicsWindow.DrawText(280,190,"请耐心等候")
  241.     showfirstgameload=Shapes.AddText("已加载"+firstgameload+"%")
  242.     Shapes.Move(showfirstgameload,270,230)
  243.     mex=File.ReadLine(path,worldlength*worldwidth+9+allcheck)
  244.     mey=File.ReadLine(path,worldlength*worldwidth+10+allcheck)
  245.     For i=1 To worldlength
  246.       For j=1 To worldwidth
  247.         thing[i][j]=File.ReadLine(path,(i-1)*worldwidth+j+1)
  248.         If thing[i][j]>=46 And thing[i][j]<=animalplace Then
  249.           aniblood[i][j]=haveblood[thing[i][j]]
  250.         EndIf
  251.         If thing[i][j]=49 Then
  252.           move[i][j]=0
  253.         EndIf
  254.         firstgameload=Math.Round((i*100+j)/worldlength-1)/2
  255.         Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%")
  256.       EndFor
  257.     EndFor
  258.     For i=1 To allcheck
  259.       bagnum[i]=File.ReadLine(path,worldlength*worldwidth+1+i)
  260.       firstgameload=50+Math.Round(50/allcheck)*i-1
  261.       Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%")
  262.     EndFor
  263.     For i=1 To 12
  264.       baglong[i+13]=File.ReadLine(path,worldlength*worldwidth+10+allcheck+i)
  265.     EndFor
  266.     For i=1 To 6
  267.       easybag[i]=File.ReadLine(path,worldlength*worldwidth+1+allcheck+i)
  268.     EndFor
  269.     holdeasybag=File.ReadLine(path,worldlength*worldwidth+8+allcheck)
  270.     blood=File.ReadLine(path,worldlength*worldwidth+23+allcheck)
  271.     hunger=File.ReadLine(path,worldlength*worldwidth+24+allcheck)
  272.     nofood=File.ReadLine(path,worldlength*worldwidth+25+allcheck)
  273.     daytime=File.ReadLine(path,worldlength*worldwidth+26+allcheck)
  274.     sleepx=File.ReadLine(path,worldlength*worldwidth+27+allcheck)
  275.     sleepy=File.ReadLine(path,worldlength*worldwidth+28+allcheck)
  276.     firstgameload=100
  277.     Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%")
  278.     screen=3
  279.     Timer.Tick=timecounter
  280.     Timer.Interval=1000
  281.     drawscreen()
  282.   ElseIf screen=5 Then
  283.     GraphicsWindow.Clear()
  284.     GraphicsWindow.BrushColor="Black"
  285.     GraphicsWindow.FontSize=25
  286.     GraphicsWindow.DrawRectangle(20,20,660,490)
  287.     GraphicsWindow.DrawText(30,30,"背包物品:"+bagthing[check])
  288.     GraphicsWindow.DrawText(30,60,"物品编号:"+check)
  289.     GraphicsWindow.DrawText(30,90,"物品数量:"+bagnum[check])
  290.     GraphicsWindow.DrawText(30,130,"放入快捷包:")
  291.     GraphicsWindow.FontSize=22
  292.     For i=1 To 6
  293.       putinto[i]=Controls.AddButton(i+"号",30+(i-1)*85,160)
  294.       Controls.SetSize(putinto[i],80,35)
  295.     EndFor
  296.     GraphicsWindow.DrawText(30,220,"制作材料1:"+bagthing[bagmake1[check]]+" X"+bagmake1num[check]+"  ,  拥有"+bagnum[bagmake1[check]])
  297.     GraphicsWindow.DrawText(30,250,"制作材料2:"+bagthing[bagmake2[check]]+" X"+bagmake2num[check]+"  ,  拥有"+bagnum[bagmake2[check]])
  298.     GraphicsWindow.DrawText(30,280,"制作材料3:"+bagthing[bagmake3[check]]+" X"+bagmake3num[check]+"  ,  拥有"+bagnum[bagmake3[check]])
  299.     GraphicsWindow.DrawText(30,320,"制作后可得到:"+bagthing[check]+" X"+bagmakeget[check])
  300.     makething=Controls.AddButton("制作1个",30,350)
  301.     If check>=14 And check<=25 Then
  302.       GraphicsWindow.DrawText(30,400,"剩余耐久度:"+baglong[check])
  303.     EndIf
  304.     findinbagwri=Controls.AddTextBox(380,28)
  305.     Controls.SetSize(findinbagwri,180,40)
  306.     findinbagbut=Controls.AddButton("查找",570,28)
  307.     Controls.SetSize(findinbagbut,80,40)
  308.     If bagblood[check]>0 Or baghunger[check]>0 Then
  309.       bageat=Controls.AddButton("食用1个",30,400)
  310.     EndIf
  311.   ElseIf screen=6 Then
  312.     GraphicsWindow.Clear()
  313.     GraphicsWindow.BrushColor="Black"
  314.     GraphicsWindow.FillRectangle(0,0,700,530)
  315.     GraphicsWindow.BrushColor="White"
  316.     GraphicsWindow.FontSize=25
  317.     showmessage=Shapes.AddText("ZZZ...")
  318.     Shapes.Move(showmessage,300,200)
  319.   EndIf  
  320. EndSub


  321. Sub buttonclicked
  322.   If screen=1 And Controls.LastClickedButton=startplaygame Then
  323.     path=Controls.GetTextBoxText(enterkeypath)
  324.     If File.ReadLine(path,1)="" Then
  325.       File.WriteLine(path,1,1)
  326.       screen=2
  327.       drawscreen()
  328.     Else
  329.       screen=4
  330.       drawscreen()
  331.     EndIf
  332.   ElseIf screen=5 Then
  333.     If bagnum[check]>0 Then
  334.       For i=1 To 6
  335.         If Controls.LastClickedButton=putinto[i] Then
  336.           For j=1 To 6
  337.             If i<>j And easybag[j]=check Then
  338.               easybag[j]=0
  339.               File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,check)
  340.             EndIf
  341.           EndFor
  342.           easybag[i]=check
  343.           File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,check)
  344.         EndIf
  345.       EndFor   
  346.     EndIf
  347.     If Controls.LastClickedButton=makething Then
  348.       If bagnum[bagmake1[check]]>=bagmake1num[check] And bagnum[bagmake2[check]]>=bagmake2num[check] Then
  349.         If bagnum[bagmake3[check]]>=bagmake3num[check] Then
  350.           bagnum[bagmake1[check]]=bagnum[bagmake1[check]]-bagmake1num[check]
  351.           bagnum[bagmake2[check]]=bagnum[bagmake2[check]]-bagmake2num[check]
  352.           bagnum[bagmake3[check]]=bagnum[bagmake3[check]]-bagmake3num[check]
  353.           bagnum[check]=bagnum[check]+bagmakeget[check]
  354.           If bagnum[bagmake1[check]]=0 Then
  355.             For i=1 To 6
  356.               If easybag[i]=bagmake1[check] Then
  357.                 easybag[i]=0
  358.                 File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,0)
  359.               EndIf
  360.             EndFor
  361.           EndIf
  362.           If bagnum[bagmake2[check]]=0 Then
  363.             For i=1 To 6
  364.               If easybag[i]=bagmake2[check] Then
  365.                 easybag[i]=0
  366.                 File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,0)
  367.               EndIf
  368.             EndFor
  369.           EndIf
  370.           If bagnum[bagmake3[check]]=0 Then
  371.             For i=1 To 6
  372.               If easybag[i]=bagmake3[check] Then
  373.                 easybag[i]=0
  374.                 File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,0)
  375.               EndIf
  376.             EndFor
  377.           EndIf
  378.           File.WriteLine(path,worldlength*worldwidth+1+bagmake1[check],bagnum[bagmake1[check]])
  379.           File.WriteLine(path,worldlength*worldwidth+1+bagmake2[check],bagnum[bagmake2[check]])
  380.           File.WriteLine(path,worldlength*worldwidth+1+bagmake3[check],bagnum[bagmake3[check]])
  381.           File.WriteLine(path,worldlength*worldwidth+1+check,bagnum[check])
  382.           If check>=14 And check<=25 And bagnum[check]=1 Then
  383.             baglong[check]=baghavelong[check]
  384.             File.WriteLine(path,worldlength*worldwidth+10+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]])
  385.           EndIf
  386.         EndIf
  387.       EndIf
  388.       drawscreen()
  389.     ElseIf Controls.LastClickedButton=findinbagbut Then
  390.       findinbagname=Controls.GetTextBoxText(findinbagwri)
  391.       For i=1 To allcheck
  392.         If findinbagname=bagthing[i] Or i=findinbagname Then
  393.           check=i
  394.         EndIf
  395.       EndFor
  396.       drawscreen()
  397.     ElseIf Controls.LastClickedButton=bageat And bagnum[check]>=1 Then
  398.       bagnum[check]=bagnum[check]-1
  399.       blood=blood+bagblood[check]
  400.       hunger=hunger+baghunger[check]
  401.       If blood>10 Then
  402.         blood=10
  403.       EndIf
  404.       If hunger>10 Then
  405.         hunger=10
  406.       EndIf
  407.       File.WriteLine(path,worldlength*worldwidth+24+allcheck,hunger)
  408.       File.WriteLine(path,worldlength*worldwidth+1+check,bagnum[check])
  409.       drawscreen()
  410.     EndIf   
  411.   EndIf  
  412. EndSub


  413. Sub keydown
  414.   If GraphicsWindow.LastKey="Escape" Then
  415.     File.WriteLine(path,worldlength*worldwidth+26+allcheck,daytime)
  416.     File.WriteLine(path,worldlength*worldwidth+25+allcheck,nofood)
  417.     File.WriteLine(path,worldlength*worldwidth+23+allcheck,blood)
  418.     File.WriteLine(path,worldlength*worldwidth+9+allcheck,mex)
  419.     File.WriteLine(path,worldlength*worldwidth+10+allcheck,mey)
  420.     Program.End()
  421.   EndIf
  422.   If screen=3 Then
  423.     If GraphicsWindow.LastKey="W" Or GraphicsWindow.LastKey="Up" Then
  424.       If mey>1 And thing[mex][mey-1]>29 And thing[mex][mey-1]<=45 Then
  425.         mey=mey-1
  426.         drawscreen()
  427.       ElseIf mey>1 And thing[mex][mey-1]>animalplace And thing[mex][mey-1]<=121 Then
  428.         mey=mey-1
  429.         drawscreen()
  430.       ElseIf thing[mex][mey-1]=124 Or thing[mex][mey-1]=125 Or thing[mex][mey-1]=126 Then
  431.         mey=mey-1
  432.         drawscreen()
  433.       EndIf
  434.     ElseIf GraphicsWindow.LastKey="A" Or GraphicsWindow.LastKey="Left" Then
  435.       If mex>1 And thing[mex-1][mey]>29 And thing[mex-1][mey]<=45 Then
  436.         mex=mex-1
  437.         drawscreen()
  438.       ElseIf mex>1 And thing[mex-1][mey]>animalplace And thing[mex-1][mey]<=121 Then
  439.         mex=mex-1
  440.         drawscreen()
  441.       ElseIf thing[mex-1][mey]=124 Or thing[mex-1][mey]=125  Or thing[mex-1][mey]=126 Then
  442.         mex=mex-1
  443.         drawscreen()
  444.       EndIf
  445.     ElseIf GraphicsWindow.LastKey="S" Or GraphicsWindow.LastKey="Down" Then
  446.       If mey<worldwidth And thing[mex][mey+1]>29 And thing[mex][mey+1]<=45 Then
  447.         mey=mey+1
  448.         drawscreen()
  449.       ElseIf mey<worldwidth And thing[mex][mey+1]>animalplace And thing[mex][mey+1]<=121 Then
  450.         mey=mey+1
  451.         drawscreen()
  452.       ElseIf thing[mex][mey+1]=124 Or thing[mex][mey+1]=125 Or thing[mex][mey+1]=126 Then
  453.         mey=mey+1
  454.         drawscreen()
  455.       EndIf
  456.     ElseIf GraphicsWindow.LastKey="D" Or GraphicsWindow.LastKey="Right" Then
  457.       If mex<worldlength And thing[mex+1][mey]>29 And thing[mex+1][mey]<=45 Then
  458.         mex=mex+1
  459.         drawscreen()
  460.       ElseIf mex<worldlength And thing[mex+1][mey]>animalplace And thing[mex+1][mey]<=121 Then
  461.         mex=mex+1
  462.         drawscreen()
  463.       ElseIf thing[mex+1][mey]=124 Or thing[mex+1][mey]=125 Or thing[mex+1][mey]=126 Then
  464.         mex=mex+1
  465.         drawscreen()
  466.       EndIf
  467.     ElseIf GraphicsWindow.LastKey="E" Then
  468.       screen=5
  469.       drawscreen()
  470.     ElseIf GraphicsWindow.LastKey="R" And daytime>=230 And daytime<=370 Then
  471.       If thing[mx][my]=121 Or thing[mx][my]=125 Or thing[mx][my]=126 Then
  472.         screen=6
  473.         sleeping=1
  474.         drawscreen()
  475.       EndIf
  476.     EndIf
  477.     For i=1 To 6
  478.       If GraphicsWindow.LastKey="D"+i Then
  479.         holdeasybag=i
  480.         Shapes.Move(showholdeasybag1,19+(i-1)*70,486)
  481.         Shapes.Move(showholdeasybag2,80+(i-1)*70,486)
  482.         Shapes.Move(showholdeasybag3,20+(i-1)*70,485)
  483.         Shapes.Move(showholdeasybag4,20+(i-1)*70,526)
  484.         File.WriteLine(path,worldlength*worldwidth+8+allcheck,holdeasybag)
  485.       EndIf
  486.     EndFor
  487.   ElseIf screen=5 Then
  488.     If GraphicsWindow.LastKey="W" Or GraphicsWindow.LastKey="Up" Then
  489.       If check>1 Then
  490.         check=check-1
  491.       Else
  492.         check=allcheck
  493.       EndIf
  494.       drawscreen()
  495.     ElseIf GraphicsWindow.LastKey="S" Or GraphicsWindow.LastKey="Down" Then
  496.       If check<allcheck Then
  497.         check=check+1
  498.       Else
  499.         check=1
  500.       EndIf
  501.       drawscreen()
  502.     ElseIf GraphicsWindow.LastKey="E" Then
  503.       screen=3
  504.       drawscreen()
  505.     EndIf  
  506.   EndIf
  507. EndSub


  508. Sub mousedown
  509.   mx=GraphicsWindow.MouseX
  510.   my=GraphicsWindow.MouseY
  511.   If Mouse.IsLeftButtonDown="True" Then
  512.     If mx<450 And my<450 Then
  513.       mx=Math.Floor(mx/50)-4+mex
  514.       my=Math.Floor(my/50)-4+mey
  515.       If Math.Abs(mex-mx)<=1 And Math.Abs(mey-my)<=1 And gameload=0 Then
  516.         If thing[mx][my]=30 Then    '蘑菇
  517.           gameload=2
  518.           If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then
  519.             gameload=gameload-bagspeed[easybag[holdeasybag]]
  520.             If gameload<=0 Then
  521.               gameload=1
  522.             EndIf
  523.           EndIf
  524.           GraphicsWindow.BrushColor="Black"
  525.           GraphicsWindow.FontSize=25
  526.           showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  527.           Shapes.Move(showpickcomplete,460,10)
  528.           willgetthing=7
  529.         ElseIf thing[mx][my]>18 And thing[mx][my]<29 Then    '树木
  530.           gameload=10
  531.           If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then
  532.             gameload=gameload-bagspeed[easybag[holdeasybag]]
  533.             If gameload<=0 Then
  534.               gameload=1
  535.             EndIf
  536.           EndIf
  537.           GraphicsWindow.BrushColor="Black"
  538.           GraphicsWindow.FontSize=25
  539.           showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  540.           Shapes.Move(showpickcomplete,460,10)
  541.           willgetthing=1
  542.         ElseIf thing[mx][my]>=31 And thing[mx][my]<=35 Then   '石头
  543.           If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then
  544.             gameload=5
  545.             gameload=gameload-bagspeed[easybag[holdeasybag]]
  546.             If gameload<=0 Then
  547.               gameload=1
  548.             EndIf  
  549.             GraphicsWindow.BrushColor="Black"
  550.             GraphicsWindow.FontSize=25
  551.             showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  552.             Shapes.Move(showpickcomplete,460,10)
  553.             willgetthing=4
  554.           Else
  555.             GraphicsWindow.BrushColor="Black"
  556.             GraphicsWindow.FontSize=25
  557.             showmessage=Shapes.AddText("太硬了,挖不动")
  558.             Shapes.Move(showmessage,460,70)
  559.           EndIf
  560.         ElseIf thing[mx][my]>=36 And thing[mx][my]<=38 Then   '铁
  561.           If easybag[holdeasybag]>=15 And easybag[holdeasybag]<=19 Then
  562.             gameload=6
  563.             gameload=gameload-bagspeed[easybag[holdeasybag]]
  564.             If gameload<=0 Then
  565.               gameload=1
  566.             EndIf
  567.             GraphicsWindow.BrushColor="Black"
  568.             GraphicsWindow.FontSize=25
  569.             showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  570.             Shapes.Move(showpickcomplete,460,10)
  571.             willgetthing=10
  572.           Else
  573.             GraphicsWindow.BrushColor="Black"
  574.             GraphicsWindow.FontSize=25
  575.             showmessage=Shapes.AddText("太硬了,挖不动")
  576.             Shapes.Move(showmessage,460,70)
  577.           EndIf
  578.         ElseIf thing[mx][my]>38 And thing[mx][my]<41 Then    '黄金
  579.           If easybag[holdeasybag]>=16 And easybag[holdeasybag]<=19 Then
  580.             gameload=6
  581.             gameload=gameload-bagspeed[easybag[holdeasybag]]
  582.             If gameload<=0 Then
  583.               gameload=1
  584.             EndIf
  585.             GraphicsWindow.BrushColor="Black"
  586.             GraphicsWindow.FontSize=25
  587.             showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  588.             Shapes.Move(showpickcomplete,460,10)
  589.             willgetthing=11
  590.           Else
  591.             GraphicsWindow.BrushColor="Black"
  592.             GraphicsWindow.FontSize=25
  593.             showmessage=Shapes.AddText("太硬了,挖不动")
  594.             Shapes.Move(showmessage,460,70)
  595.           EndIf
  596.         ElseIf thing[mx][my]=41 Then    '钻石
  597.           If easybag[holdeasybag]>=17 And easybag[holdeasybag]<=19 Then
  598.             gameload=8
  599.             gameload=gameload-bagspeed[easybag[holdeasybag]]
  600.             If gameload<=0 Then
  601.               gameload=1
  602.             EndIf
  603.             GraphicsWindow.BrushColor="Black"
  604.             GraphicsWindow.FontSize=25
  605.             showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  606.             Shapes.Move(showpickcomplete,460,10)
  607.             willgetthing=12
  608.           Else
  609.             GraphicsWindow.BrushColor="Black"
  610.             GraphicsWindow.FontSize=25
  611.             showmessage=Shapes.AddText("太硬了,挖不动")
  612.             Shapes.Move(showmessage,460,70)
  613.           EndIf
  614.         ElseIf thing[mx][my]=42 Then    '黑曜石
  615.           If easybag[holdeasybag]>=18 And easybag[holdeasybag]<=19 Then
  616.             gameload=9
  617.             gameload=gameload-bagspeed[easybag[holdeasybag]]
  618.             If gameload<=0 Then
  619.               gameload=1
  620.             EndIf
  621.             GraphicsWindow.BrushColor="Black"
  622.             GraphicsWindow.FontSize=25
  623.             showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  624.             Shapes.Move(showpickcomplete,460,10)
  625.             willgetthing=13
  626.           Else
  627.             GraphicsWindow.BrushColor="Black"
  628.             GraphicsWindow.FontSize=25
  629.             showmessage=Shapes.AddText("太硬了,挖不动")
  630.             Shapes.Move(showmessage,460,70)
  631.           EndIf
  632.         ElseIf thing[mx][my]>=43 And thing[mx][my]<=45 Then    '煤
  633.           If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then
  634.             gameload=4
  635.             gameload=gameload-bagspeed[easybag[holdeasybag]]
  636.             If gameload<=0 Then
  637.               gameload=1
  638.             EndIf
  639.             GraphicsWindow.BrushColor="Black"
  640.             GraphicsWindow.FontSize=25
  641.             showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  642.             Shapes.Move(showpickcomplete,460,10)
  643.             willgetthing=9
  644.           Else
  645.             GraphicsWindow.BrushColor="Black"
  646.             GraphicsWindow.FontSize=25
  647.             showmessage=Shapes.AddText("太硬了,挖不动")
  648.             Shapes.Move(showmessage,460,70)
  649.           EndIf
  650.         ElseIf thing[mx][my]=29 Then    '南瓜
  651.           If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then
  652.             gameload=6
  653.             gameload=gameload-bagspeed[easybag[holdeasybag]]
  654.             If gameload<=0 Then
  655.               gameload=1
  656.             EndIf
  657.             GraphicsWindow.BrushColor="Black"
  658.             GraphicsWindow.FontSize=25
  659.             showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  660.             Shapes.Move(showpickcomplete,460,10)
  661.             willgetthing=8
  662.           Else
  663.             GraphicsWindow.BrushColor="Black"
  664.             GraphicsWindow.FontSize=25
  665.             showmessage=Shapes.AddText("太硬了,挖不动")
  666.             Shapes.Move(showmessage,460,70)
  667.           EndIf
  668.         ElseIf thing[mx][my]=46 Then    '猪
  669.           hard=2
  670.           do2()
  671.           Sound.PlayClick()
  672.           If aniblood[mx][my]<=0 Then
  673.             bagnum[26]=bagnum[26]+Math.GetRandomNumber(2)
  674.             File.WriteLine(path,worldlength*worldwidth+27,bagnum[26])
  675.             GraphicsWindow.BrushColor="Black"
  676.             GraphicsWindow.FontSize=25
  677.             showgetbagthing=Shapes.AddText("获得物品:生猪肉")
  678.           ElseIf Math.GetRandomNumber(8)=1 Then
  679.             blood=blood-1
  680.             drawscreen()
  681.             GraphicsWindow.BrushColor="Black"
  682.             GraphicsWindow.FontSize=25
  683.             showmessage2=Shapes.AddText("遭到反抗,扣了血")
  684.             Shapes.Move(showmessage2,460,100)
  685.           EndIf
  686.         ElseIf thing[mx][my]=47 Then    '牛
  687.           hard=3
  688.           do2()
  689.           Sound.PlayClick()
  690.           If aniblood[mx][my]<=0 Then
  691.             bagnum[28]=bagnum[28]+Math.GetRandomNumber(2)
  692.             File.WriteLine(path,worldlength*worldwidth+29,bagnum[28])
  693.             GraphicsWindow.BrushColor="Black"
  694.             GraphicsWindow.FontSize=25
  695.             showgetbagthing=Shapes.AddText("获得物品:生牛肉")
  696.           ElseIf Math.GetRandomNumber(5)=1 Then
  697.             blood=blood-1
  698.             drawscreen()
  699.             GraphicsWindow.BrushColor="Black"
  700.             GraphicsWindow.FontSize=25
  701.             showmessage2=Shapes.AddText("遭到反抗,扣了血")
  702.             Shapes.Move(showmessage2,460,100)
  703.           EndIf
  704.           If Math.GetRandomNumber(5)=1 Then
  705.             blood=blood-1
  706.             drawscreen()
  707.             GraphicsWindow.BrushColor="Black"
  708.             GraphicsWindow.FontSize=25
  709.             showmessage2=Shapes.AddText("遭到反抗,扣了血")
  710.             Shapes.Move(showmessage2,460,100)
  711.           EndIf
  712.         ElseIf thing[mx][my]=48 Then    '羊
  713.           hard=2
  714.           do2()
  715.           Sound.PlayClick()
  716.           drawscreen()
  717.           If aniblood[mx][my]<=0 Then
  718.             bagnum[34]=bagnum[34]+1
  719.             File.WriteLine(path,worldlength*worldwidth+35,bagnum[34])
  720.             GraphicsWindow.BrushColor="Black"
  721.             GraphicsWindow.FontSize=25
  722.             showgetbagthing=Shapes.AddText("获得物品:羊毛")
  723.           EndIf
  724.         ElseIf thing[mx][my]=49 Then    '野人
  725.           hard=2
  726.           do2()
  727.           Sound.PlayClick()
  728.           drawscreen()
  729.           If aniblood[mx][my]<=0 Then
  730.             getthing=Math.GetRandomNumber(4)
  731.             If getthing=1 Then
  732.               getthing2=Math.GetRandomNumber(4)+13
  733.               bagnum[getthing2]=bagnum[getthing2]+1
  734.             ElseIf getthing=2 Then
  735.               getthing2=Math.GetRandomNumber(4)+19
  736.               bagnum[getthing2]=bagnum[getthing2]+1
  737.             ElseIf getthing=3 Then
  738.               getthing2=Math.GetRandomNumber(3)+29
  739.               bagnum[getthing2]=bagnum[getthing2]+Math.GetRandomNumber(1)+1
  740.             ElseIf getthing=4 Then
  741.               getthing2=Math.GetRandomNumber(5)
  742.               If getthing2=1 Then
  743.                 getthing2=19
  744.                 bagnum[getthing2]=bagnum[getthing2]+Math.GetRandomNumber(1)+1
  745.               ElseIf getthing2=2 Then
  746.                 getthing2=25
  747.                 bagnum[getthing2]=bagnum[getthing2]+Math.GetRandomNumber(1)+1
  748.               Else
  749.                 getthing2=16
  750.                 bagnum[getthing2]=bagnum[getthing2]+Math.GetRandomNumber(1)+1
  751.               EndIf
  752.             EndIf
  753.             File.WriteLine(path,worldlength*worldwidth+getthing2,bagnum[getthing2])
  754.             GraphicsWindow.BrushColor="Black"
  755.             GraphicsWindow.FontSize=25
  756.             showgetbagthing=Shapes.AddText("获得物品:"+bagthing[getthing2])
  757.           EndIf
  758.         ElseIf thing[mx][my]=121 Then    '毛毯
  759.           gameload=2
  760.           GraphicsWindow.BrushColor="Black"
  761.           GraphicsWindow.FontSize=25
  762.           showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  763.           Shapes.Move(showpickcomplete,460,10)
  764.           willgetthing=35
  765.         ElseIf thing[mx][my]=122 Then    '木桩
  766.           gameload=3
  767.           GraphicsWindow.BrushColor="Black"
  768.           GraphicsWindow.FontSize=25
  769.           showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  770.           Shapes.Move(showpickcomplete,460,10)
  771.           willgetthing=36
  772.         ElseIf thing[mx][my]=123 Then    '石桩
  773.           gameload=3
  774.           GraphicsWindow.BrushColor="Black"
  775.           GraphicsWindow.FontSize=25
  776.           showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  777.           Shapes.Move(showpickcomplete,460,10)
  778.           willgetthing=37
  779.         ElseIf thing[mx][my]=124 Then    '藤帘
  780.           gameload=2
  781.           GraphicsWindow.BrushColor="Black"
  782.           GraphicsWindow.FontSize=25
  783.           showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  784.           Shapes.Move(showpickcomplete,460,10)
  785.           willgetthing=39
  786.         ElseIf thing[mx][my]=125 Then    '金色毛毯
  787.           gameload=2
  788.           GraphicsWindow.BrushColor="Black"
  789.           GraphicsWindow.FontSize=25
  790.           showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  791.           Shapes.Move(showpickcomplete,460,10)
  792.           willgetthing=41
  793.         ElseIf thing[mx][my]=126 Then    '浅蓝毛毯
  794.           gameload=2
  795.           GraphicsWindow.BrushColor="Black"
  796.           GraphicsWindow.FontSize=25
  797.           showpickcomplete=Shapes.AddText("采集剩余时间:"+gameload+"秒")
  798.           Shapes.Move(showpickcomplete,460,10)
  799.           willgetthing=42
  800.         EndIf
  801.         If thing[mx][my]>=46 And thing[mx][my]<=animalplace Then
  802.           If broken=1 Then
  803.             GraphicsWindow.BrushColor="Black"
  804.             GraphicsWindow.FontSize=25
  805.             showmessage=Shapes.AddText("攻击损坏了工具")
  806.             Shapes.Move(showmessage,460,70)
  807.           EndIf
  808.           broken=0
  809.           Shapes.Move(showgetbagthing,460,40)
  810.         EndIf
  811.       EndIf
  812.     EndIf
  813.   ElseIf Mouse.IsRightButtonDown="True" Then
  814.     If mx<450 And my<450 Then
  815.       mx=Math.Floor(mx/50)-4+mex
  816.       my=Math.Floor(my/50)-4+mey
  817.       If Math.Abs(mex-mx)+Math.Abs(mey-my)>=1 And Math.Abs(mex-mx)<=1 And Math.Abs(mey-my)<=1 Then
  818.         If (thing[mx][my]>=animalplace And thing[mx][my]<=120) Or (thing[mx][my]>=34 And thing[mx][my]<=45) Then
  819.           If easybag[holdeasybag]=35 Then    '毛毯
  820.             bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1
  821.             do4()
  822.             File.WriteLine(path,worldwidth*worldlength+36,bagnum[easybag[holdeasybag]])
  823.             thing[mx][my]=121
  824.             File.WriteLine(path,(mx-1)*worldwidth+my+1,121)
  825.             drawscreen()
  826.           ElseIf easybag[holdeasybag]=36 Then    '木墩
  827.             bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1
  828.             do4()
  829.             File.WriteLine(path,worldwidth*worldlength+37,bagnum[easybag[holdeasybag]])
  830.             thing[mx][my]=122
  831.             File.WriteLine(path,(mx-1)*worldwidth+my+1,122)
  832.             drawscreen()
  833.           ElseIf easybag[holdeasybag]=37 Then    '石墩
  834.             bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1
  835.             do4()
  836.             File.WriteLine(path,worldwidth*worldlength+38,bagnum[easybag[holdeasybag]])
  837.             thing[mx][my]=123
  838.             File.WriteLine(path,(mx-1)*worldwidth+my+1,123)
  839.             drawscreen()
  840.           ElseIf easybag[holdeasybag]=39 Then    '藤帘
  841.             bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1
  842.             do4()
  843.             File.WriteLine(path,worldwidth*worldlength+40,bagnum[easybag[holdeasybag]])
  844.             thing[mx][my]=124
  845.             File.WriteLine(path,(mx-1)*worldwidth+my+1,124)
  846.             drawscreen()
  847.           ElseIf easybag[holdeasybag]=42 Then    '金色毛毯
  848.             bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1
  849.             do4()
  850.             File.WriteLine(path,worldwidth*worldlength+43,bagnum[easybag[holdeasybag]])
  851.             thing[mx][my]=125
  852.             File.WriteLine(path,(mx-1)*worldwidth+my+1,125)
  853.             drawscreen()
  854.           ElseIf easybag[holdeasybag]=43 Then    '浅蓝毛毯
  855.             bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1
  856.             do4()
  857.             File.WriteLine(path,worldwidth*worldlength+44,bagnum[easybag[holdeasybag]])
  858.             thing[mx][my]=126
  859.             File.WriteLine(path,(mx-1)*worldwidth+my+1,126)
  860.             drawscreen()
  861.           EndIf
  862.         EndIf  
  863.       EndIf
  864.     EndIf   
  865.   EndIf
  866. EndSub


  867. Sub timecounter
  868.   nofood=nofood+1
  869.   If nofood>=120 Then
  870.     nofood=0
  871.     hunger=hunger-1
  872.     File.WriteLine(path,worldlength*worldwidth+24+allcheck,hunger)
  873.     drawscreen()
  874.   EndIf
  875.   daytime=daytime+1
  876.   If daytime>=400 Then
  877.     daytime=0
  878.   EndIf
  879.   If Math.Remainder(daytime,60)=0 And screen=3 And gameload=0 Then
  880.     drawscreen()
  881.   EndIf
  882.   If sleeping>=1 Then
  883.     sleeping=sleeping+1
  884.     If sleeping=7 Then
  885.       sleepx=mex
  886.       sleepy=mey
  887.       File.WriteLine(path,worldlength*worldwidth+27+allcheck,sleepx)
  888.       File.WriteLine(path,worldlength*worldwidth+28+allcheck,sleepy)
  889.       sleeping=0
  890.       screen=3
  891.       daytime=30
  892.       blood=blood+5
  893.       If blood>=10 Then
  894.         blood=10
  895.       EndIf
  896.       drawscreen()
  897.     EndIf
  898.   EndIf
  899.   digger()
  900. EndSub


复制代码



第二部分:
  1. Sub digger
  2.   If gameload>0 Then
  3.     gameload=gameload-1
  4.     Shapes.SetText(showpickcomplete,"采集剩余时间:"+gameload+"秒")
  5.   EndIf
  6.   If gameload=0 Then
  7.     If willgetthing=7 Then
  8.       Shapes.HideShape(showpickcomplete)
  9.       bagnum[7]=bagnum[7]+1
  10.       File.WriteLine(path,worldwidth*worldlength+8,bagnum[7])
  11.       hard=1
  12.       do1()
  13.       showgetbagthing=Shapes.AddText("获得物品:蘑菇")
  14.     ElseIf willgetthing=1 Then
  15.       Shapes.HideShape(showpickcomplete)
  16.       bagnum[1]=bagnum[1]+Math.GetRandomNumber(2)+2
  17.       File.WriteLine(path,worldwidth*worldlength+2,bagnum[1])
  18.       bagnum[3]=bagnum[3]+Math.GetRandomNumber(3)
  19.       File.WriteLine(path,worldwidth*worldlength+4,bagnum[3])
  20.       If Math.GetRandomNumber(6)=1 Then
  21.         bagnum[38]=bagnum[38]+1
  22.         File.WriteLine(path,worldwidth*worldlength+39,bagnum[38])
  23.         changeshowmessage=1
  24.       ElseIf Math.GetRandomNumber(5)=1 Then
  25.         bagnum[30]=bagnum[30]+1
  26.         File.WriteLine(path,worldwidth*worldlength+31,bagnum[30])
  27.         changeshowmessage=2
  28.       EndIf
  29.       hard=10
  30.       do1()
  31.       If changeshowmessage=1 Then
  32.         GraphicsWindow.FontSize=18
  33.         showgetbagthing=Shapes.AddText("获得物品:树叶、木块、藤条")
  34.         changeshowmessage=0
  35.       ElseIf changeshowmessage=2 Then
  36.         GraphicsWindow.FontSize=18
  37.         showgetbagthing=Shapes.AddText("获得物品:树叶、木块、禽蛋")
  38.         changeshowmessage=0
  39.       Else
  40.         showgetbagthing=Shapes.AddText("获得物品:树叶、木块")
  41.       EndIf
  42.     ElseIf willgetthing=4 Then
  43.       Shapes.HideShape(showpickcomplete)
  44.       bagnum[4]=bagnum[4]+Math.GetRandomNumber(2)
  45.       File.WriteLine(path,worldwidth*worldlength+5,bagnum[4])
  46.       hard=3
  47.       do1()
  48.       showgetbagthing=Shapes.AddText("获得物品:石头")
  49.     ElseIf willgetthing=10 Then
  50.       Shapes.HideShape(showpickcomplete)
  51.       bagnum[10]=bagnum[10]+1
  52.       File.WriteLine(path,worldwidth*worldlength+11,bagnum[10])
  53.       hard=5
  54.       do1()
  55.       showgetbagthing=Shapes.AddText("获得物品:铁")
  56.     ElseIf willgetthing=11 Then
  57.       Shapes.HideShape(showpickcomplete)
  58.       bagnum[11]=bagnum[11]+1
  59.       File.WriteLine(path,worldwidth*worldlength+12,bagnum[11])
  60.       hard=5
  61.       do1()
  62.       showgetbagthing=Shapes.AddText("获得物品:黄金")
  63.     ElseIf willgetthing=12 Then
  64.       Shapes.HideShape(showpickcomplete)
  65.       bagnum[12]=bagnum[12]+1
  66.       File.WriteLine(path,worldwidth*worldlength+13,bagnum[12])
  67.       hard=7
  68.       do1()
  69.       showgetbagthing=Shapes.AddText("获得物品:钻石")
  70.     ElseIf willgetthing=13 Then
  71.       Shapes.HideShape(showpickcomplete)
  72.       bagnum[13]=bagnum[13]+1
  73.       File.WriteLine(path,worldwidth*worldlength+14,bagnum[13])
  74.       hard=8
  75.       do1()
  76.       showgetbagthing=Shapes.AddText("获得物品:黑曜石")
  77.     ElseIf willgetthing=9 Then
  78.       Shapes.HideShape(showpickcomplete)
  79.       bagnum[9]=bagnum[9]+Math.GetRandomNumber(2)
  80.       File.WriteLine(path,worldwidth*worldlength+10,bagnum[9])
  81.       hard=3
  82.       do1()
  83.       showgetbagthing=Shapes.AddText("获得物品:煤炭")
  84.     ElseIf willgetthing=8 Then
  85.       Shapes.HideShape(showpickcomplete)
  86.       bagnum[8]=bagnum[8]+1
  87.       File.WriteLine(path,worldwidth*worldlength+9,bagnum[8])
  88.       hard=5
  89.       do1()
  90.       showgetbagthing=Shapes.AddText("获得物品:南瓜")
  91.     ElseIf willgetthing=35 Then
  92.       Shapes.HideShape(showpickcomplete)
  93.       bagnum[35]=bagnum[35]+1
  94.       File.WriteLine(path,worldwidth*worldlength+36,bagnum[35])
  95.       hard=0
  96.       do1()
  97.       showgetbagthing=Shapes.AddText("获得物品:毛毯")
  98.     ElseIf willgetthing=36 Then
  99.       Shapes.HideShape(showpickcomplete)
  100.       bagnum[36]=bagnum[36]+1
  101.       File.WriteLine(path,worldwidth*worldlength+37,bagnum[36])
  102.       hard=0
  103.       do1()
  104.       showgetbagthing=Shapes.AddText("获得物品:木墩")
  105.     ElseIf willgetthing=37 Then
  106.       Shapes.HideShape(showpickcomplete)
  107.       bagnum[37]=bagnum[37]+1
  108.       File.WriteLine(path,worldwidth*worldlength+38,bagnum[37])
  109.       hard=0
  110.       do1()
  111.       showgetbagthing=Shapes.AddText("获得物品:石墩")
  112.     ElseIf willgetthing=39 Then
  113.       Shapes.HideShape(showpickcomplete)
  114.       bagnum[39]=bagnum[39]+1
  115.       File.WriteLine(path,worldwidth*worldlength+40,bagnum[39])
  116.       hard=0
  117.       do1()
  118.       showgetbagthing=Shapes.AddText("获得物品:藤帘")
  119.     ElseIf willgetthing=42 Then
  120.       Shapes.HideShape(showpickcomplete)
  121.       bagnum[42]=bagnum[42]+1
  122.       File.WriteLine(path,worldwidth*worldlength+43,bagnum[42])
  123.       hard=0
  124.       do1()
  125.       showgetbagthing=Shapes.AddText("获得物品:金色毛毯")
  126.     ElseIf willgetthing=43 Then
  127.       Shapes.HideShape(showpickcomplete)
  128.       bagnum[43]=bagnum[43]+1
  129.       File.WriteLine(path,worldwidth*worldlength+44,bagnum[43])
  130.       hard=0
  131.       do1()
  132.       showgetbagthing=Shapes.AddText("获得物品:浅蓝毛毯")
  133.     EndIf
  134.     willgetthing=0
  135.     If broken=1 Then
  136.       GraphicsWindow.FontSize=25
  137.       showmessage=Shapes.AddText("挖掘损坏了工具")
  138.       Shapes.Move(showmessage,460,70)
  139.     EndIf
  140.     broken=0
  141.     Shapes.Move(showgetbagthing,460,40)
  142.   EndIf
  143. EndSub


  144. Sub do2
  145.   If easybag[holdeasybag]>=20 And easybag[holdeasybag]<=25 Then
  146.     aniblood[mx][my]=aniblood[mx][my]-baghurt[easybag[holdeasybag]]
  147.     baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-hard
  148.   ElseIf easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then
  149.     aniblood[mx][my]=aniblood[mx][my]-1
  150.     baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-hard*2
  151.   Else
  152.     aniblood[mx][my]=aniblood[mx][my]-1
  153.   EndIf
  154.   If baglong[easybag[holdeasybag]]<=0 And easybag[holdeasybag]>=14 And easybag[holdeasybag]<=25 Then
  155.     bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1
  156.     If bagnum[easybag[holdeasybag]]>0 Then
  157.       baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]]
  158.     EndIf
  159.     broken=1
  160.     File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]])
  161.   EndIf
  162.   
  163.   
  164.   redo2:
  165.   If aniblood[mx][my]<=0 Then
  166.     drawnewx=Math.GetRandomNumber(worldlength)
  167.     drawnewy=Math.GetRandomNumber(worldwidth)
  168.     If thing[drawnewx][drawnewy]>animalplace And thing[drawnewx][drawnewy]<=120 Then
  169.       thing[drawnewx][drawnewy]=thing[mx][my]
  170.       aniblood[drawnewx][drawnewy]=haveblood[thing[mx][my]]
  171.       thing[mx][my]=120
  172.       File.WriteLine(path,(mx-1)*worldwidth+my+1,120)
  173.       File.WriteLine(path,(drawnewx-1)*worldwidth+drawnewy+1,thing[drawnewx][drawnewy])
  174.     Else
  175.       Goto redo2
  176.     EndIf
  177.     drawscreen()
  178.   EndIf
  179. EndSub


  180. Sub do1
  181.   If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then
  182.     baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-hard
  183.   ElseIf easybag[holdeasybag]>=20 And easybag[holdeasybag]<=25 Then
  184.     baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-hard/2
  185.   EndIf
  186.   If baglong[easybag[holdeasybag]]<=0 And easybag[holdeasybag]>=14 And easybag[holdeasybag]<=25 Then
  187.     bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1
  188.     If bagnum[easybag[holdeasybag]]>0 Then
  189.       baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]]
  190.     EndIf
  191.     broken=1
  192.     File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]])
  193.   EndIf
  194.   File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]])
  195.   
  196.   
  197.   If thing[mx][my]<=120 Then
  198.     redo1:
  199.     drawnewx=Math.GetRandomNumber(worldlength)
  200.     drawnewy=Math.GetRandomNumber(worldwidth)
  201.     If thing[drawnewx][drawnewy]>animalplace And thing[drawnewx][drawnewy]<=120 Then
  202.       thing[drawnewx][drawnewy]=thing[mx][my]
  203.       thing[mx][my]=120
  204.       File.WriteLine(path,(mex-1)*worldwidth+mey+1,120)
  205.       File.WriteLine(path,(drawnewx-1)*worldwidth+drawnewy+1,thing[drawnewx][drawnewy])
  206.     Else
  207.       Goto redo1
  208.     EndIf
  209.   Else
  210.     thing[mx][my]=120
  211.     File.WriteLine(path,(mex-1)*worldwidth+mey+1,120)
  212.   EndIf
  213.   
  214.   
  215.   drawscreen()
  216.   GraphicsWindow.BrushColor="Black"
  217.   GraphicsWindow.FontSize=25
  218. EndSub


  219. Sub do3
  220.   If 1=2 Then   '比较卡的动物逃跑判断
  221.     If instead=47 Then
  222.       If Math.GetRandomNumber(20)=1 Then
  223.         If Math.GetRandomNumber(4)=1 And thing[i-1][j]>=animalplace And thing[i-1][j]<=121 Then
  224.           thing[i-1][j]=instead
  225.           hasescaped=0
  226.           aniblood[i-1][j]=aniblood[i][j]
  227.           File.WriteLine(path,(i-2)*worldwidth+j+1,thing[i-1][j])
  228.         ElseIf Math.GetRandomNumber(3)=1 And thing[i+1][j]>=animalplace And thing[i+1][j]<=121 Then
  229.           thing[i+1][j]=instead
  230.           hasescaped=0
  231.           aniblood[i+1][j]=aniblood[i][j]
  232.           File.WriteLine(path,i*worldwidth+j+1,thing[i+1][j])
  233.         ElseIf Math.GetRandomNumber(2)=1 And thing[i][j-1]>=animalplace And thing[i][j-1]<=121 Then
  234.           thing[i][j-1]=instead
  235.           hasescaped=0
  236.           aniblood[i][j-1]=aniblood[i][j]
  237.           File.WriteLine(path,(i-1)*worldwidth+j,thing[i][j-1])
  238.         ElseIf thing[i][j+1]>=animalplace And thing[i][j+1]<=120 Then
  239.           thing[i][j+1]=instead
  240.           hasescaped=0
  241.           aniblood[i][j+1]=aniblood[i][j]
  242.           File.WriteLine(path,(i-1)*worldwidth+j+2,thing[i][j+1])
  243.         EndIf
  244.         If hasescaped=0 Then
  245.           thing[i][j]=120
  246.           aniblood[i][j]=0
  247.           File.WriteLine(path,(i-1)*worldwidth+j+1,120)
  248.           drawscreen()
  249.         EndIf
  250.       EndIf
  251.     ElseIf instead=48 Then
  252.       If Math.GetRandomNumber(4)=1 Then
  253.         If Math.GetRandomNumber(4)=1 And thing[i-1][j]>=animalplace And thing[i-1][j]<=121 Then
  254.           thing[i-1][j]=instead
  255.           hasescaped=0
  256.           aniblood[i-1][j]=aniblood[i][j]
  257.           File.WriteLine(path,(i-2)*worldwidth+j+1,thing[i-1][j])
  258.         ElseIf Math.GetRandomNumber(3)=1 And thing[i+1][j]>=animalplace And thing[i+1][j]<=121 Then
  259.           thing[i+1][j]=instead
  260.           hasescaped=0
  261.           aniblood[i+1][j]=aniblood[i][j]
  262.           File.WriteLine(path,i*worldwidth+j+1,thing[i+1][j])
  263.         ElseIf Math.GetRandomNumber(2)=1 And thing[i][j-1]>=animalplace And thing[i][j-1]<=121 Then
  264.           thing[i][j-1]=instead
  265.           hasescaped=0
  266.           aniblood[i][j-1]=aniblood[i][j]
  267.           File.WriteLine(path,(i-1)*worldwidth+j,thing[i][j-1])
  268.         ElseIf thing[i][j+1]>=animalplace And thing[i][j+1]<=121 Then
  269.           thing[i][j+1]=instead
  270.           hasescaped=0
  271.           aniblood[i][j+1]=aniblood[i][j]
  272.           File.WriteLine(path,(i-1)*worldwidth+j+2,thing[i][j+1])
  273.         EndIf
  274.         If hasescaped=0 Then
  275.           thing[i][j]=120
  276.           aniblood[i][j]=0
  277.           File.WriteLine(path,(i-1)*worldwidth+j+1,120)
  278.           drawscreen()
  279.         EndIf
  280.       EndIf
  281.     EndIf
  282.   EndIf
  283. EndSub


  284. Sub do4
  285.   If thing[mx][my]>=36 And thing[mx][my]<=45 Then
  286.     redo3:
  287.     drawnewx=Math.GetRandomNumber(worldlength)
  288.     drawnewy=Math.GetRandomNumber(worldwidth)
  289.     If thing[drawnewx][drawnewy]>animalplace And thing[drawnewx][drawnewy]<=120 Then
  290.       thing[drawnewx][drawnewy]=thing[mx][my]
  291.       thing[mx][my]=120
  292.       File.WriteLine(path,(drawnewx-1)*worldwidth+drawnewy+1,thing[drawnewx][drawnewy])
  293.     Else
  294.       Goto redo3
  295.     EndIf
  296.   EndIf
  297. EndSub


  298. Sub do5             '野人行动
  299.   If Math.Abs(i-mex)+Math.Abs(j-mey)>=2 Or Math.Abs(i-mex)+Math.Abs(j-mey)=0 Then
  300.     If i<mex And thing[i+1][j]>animalplace And thing[i+1][j]<=120 Then
  301.       thing[i+1][j]=49
  302.       move[i+1][j]=1
  303.       'File.WriteLine(path,i*worldwidth+j+1,49)
  304.     ElseIf i>mex And thing[i-1][j]>animalplace And thing[i-1][j]<=120 Then
  305.       thing[i-1][j]=49
  306.       move[i-1][j]=1
  307.       'File.WriteLine(path,(i-2)*worldwidth+j+1,49)
  308.     ElseIf j<mey And thing[i][j+1]>animalplace And thing[i][j+1]<=120 Then
  309.       thing[i][j+1]=49
  310.       move[i][j+1]=1
  311.       'File.WriteLine(path,(i-1)*worldwidth+j+2,49)
  312.     ElseIf j>mey And thing[i][j-1]>animalplace And thing[i][j-1]<=120 Then
  313.       thing[i][j-1]=49
  314.       move[i][j-1]=1
  315.       'File.WriteLine(path,(i-1)*worldwidth+j,49)
  316.     EndIf
  317.     thing[i][j]=120
  318.     move[i][j]=0
  319.     'File.WriteLine(path,(i-1)*worldwidth+j+1,120)
  320.   ElseIf 1=2 Then
  321.     blood=blood-((0.5-Math.Abs(Math.GetRandomNumber(3)/2-1))*2+2)
  322.     drawscreen()
  323.     move[i][j]=1
  324.   EndIf
  325. EndSub


  326. Sub die
  327.   GraphicsWindow.ShowMessage("你死亡了!!","死亡")
  328.   daytime=0
  329.   mex=sleepx
  330.   mey=sleepy
  331.   File.WriteLine(path,(mex-1)*worldwidth+mey+2,120)
  332.   For i=1 To 4
  333.     losesth=Math.GetRandomNumber(allcheck)
  334.     bagnum[losesth]=0
  335.     File.WriteLine(path,worldlength*worldwidth+1+losesth,0)
  336.   EndFor
  337.   hunger=10
  338.   blood=10
  339.   screen=3
  340.   drawscreen()
  341. EndSub


  342. Sub baginformation
  343.   allcheck=44
  344.   
  345.   
  346.   
  347.   
  348.   bagthing[1]="木块"
  349.   bagthing[2]="木板"
  350.   bagthing[3]="树叶"
  351.   bagthing[4]="石头"
  352.   bagthing[5]="石块"
  353.   bagthing[6]="木棍"
  354.   bagthing[7]="蘑菇"
  355.   bagthing[8]="南瓜"
  356.   bagthing[9]="煤炭"
  357.   bagthing[10]="铁"
  358.   bagthing[11]="黄金"
  359.   bagthing[12]="钻石"
  360.   bagthing[13]="黑曜石"
  361.   bagthing[14]="木镐"
  362.   bagthing[15]="石镐"
  363.   bagthing[16]="铁镐"
  364.   bagthing[17]="黄金镐"
  365.   bagthing[18]="钻石镐"
  366.   bagthing[19]="黑曜石镐"
  367.   bagthing[20]="木剑"
  368.   bagthing[21]="石剑"
  369.   bagthing[22]="铁剑"
  370.   bagthing[23]="黄金剑"
  371.   bagthing[24]="钻石剑"
  372.   bagthing[25]="黑曜石剑"
  373.   bagthing[26]="生猪肉"
  374.   bagthing[27]="熟猪肉"
  375.   bagthing[28]="生牛肉"
  376.   bagthing[29]="熟牛肉"
  377.   bagthing[30]="禽蛋"
  378.   bagthing[31]="小麦"
  379.   bagthing[32]="牛奶"
  380.   bagthing[33]="蛋糕"
  381.   bagthing[34]="羊毛"
  382.   bagthing[35]="毛毯"
  383.   bagthing[36]="木墩"
  384.   bagthing[37]="石墩"
  385.   bagthing[38]="藤条"
  386.   bagthing[39]="藤帘"
  387.   bagthing[40]="金粉"
  388.   bagthing[41]="钻石粉"
  389.   bagthing[42]="金色毛毯"
  390.   bagthing[43]="浅蓝毛毯"
  391.   bagthing[44]="指南针"
  392.   
  393.   
  394.   
  395.   bagmake1[2]=1
  396.   bagmake1num[2]=1
  397.   bagmakeget[2]=4
  398.   bagmake1[5]=4
  399.   bagmake1num[5]=2
  400.   bagmakeget[5]=1
  401.   bagmake1[6]=2
  402.   bagmake1num[6]=2
  403.   bagmakeget[6]=4
  404.   bagmake1[14]=2
  405.   bagmake1num[14]=3
  406.   bagmake2[14]=6
  407.   bagmake2num[14]=2
  408.   bagmakeget[14]=1
  409.   bagmake1[15]=5
  410.   bagmake1num[15]=3
  411.   bagmake2[15]=6
  412.   bagmake2num[15]=2
  413.   bagmakeget[15]=1
  414.   bagmake1[16]=10
  415.   bagmake1num[16]=3
  416.   bagmake2[16]=6
  417.   bagmake2num[16]=2
  418.   bagmakeget[16]=1
  419.   bagmake1[17]=11
  420.   bagmake1num[17]=3
  421.   bagmake2[17]=6
  422.   bagmake2num[17]=2
  423.   bagmakeget[17]=1
  424.   bagmake1[18]=12
  425.   bagmake1num[18]=3
  426.   bagmake2[18]=6
  427.   bagmake2num[18]=2
  428.   bagmakeget[18]=1
  429.   bagmake1[19]=13
  430.   bagmake1num[19]=3
  431.   bagmake2[19]=6
  432.   bagmake2num[19]=2
  433.   bagmakeget[19]=1
  434.   bagmake1[20]=2
  435.   bagmake1num[20]=3
  436.   bagmake2[20]=6
  437.   bagmake2num[20]=2
  438.   bagmakeget[20]=1
  439.   bagmake1[21]=5
  440.   bagmake1num[21]=3
  441.   bagmake2[21]=6
  442.   bagmake2num[21]=2
  443.   bagmakeget[21]=1
  444.   bagmake1[22]=10
  445.   bagmake1num[22]=3
  446.   bagmake2[22]=6
  447.   bagmake2num[22]=2
  448.   bagmakeget[22]=1
  449.   bagmake1[23]=11
  450.   bagmake1num[23]=3
  451.   bagmake2[23]=6
  452.   bagmake2num[23]=2
  453.   bagmakeget[23]=1
  454.   bagmake1[24]=12
  455.   bagmake1num[24]=3
  456.   bagmake2[24]=6
  457.   bagmake2num[24]=2
  458.   bagmakeget[24]=1
  459.   bagmake1[25]=13
  460.   bagmake1num[25]=3
  461.   bagmake2[25]=6
  462.   bagmake2num[25]=2
  463.   bagmakeget[25]=1
  464.   bagmake1[27]=26
  465.   bagmake1num[27]=1
  466.   bagmake2[27]=9
  467.   bagmake2num[27]=2
  468.   bagmakeget[27]=1
  469.   bagmake1[29]=28
  470.   bagmake1num[29]=1
  471.   bagmake2[29]=9
  472.   bagmake2num[29]=2
  473.   bagmakeget[29]=1
  474.   bagmake1[33]=30
  475.   bagmake1num[33]=3
  476.   bagmake2[33]=31
  477.   bagmake2num[33]=3
  478.   bagmake3[33]=32
  479.   bagmake3num[33]=3
  480.   bagmakeget[33]=1
  481.   bagmake1[35]=34
  482.   bagmake1num[35]=4
  483.   bagmakeget[35]=1
  484.   bagmake1[36]=2
  485.   bagmake1num[36]=3
  486.   bagmakeget[36]=1
  487.   bagmake1[37]=5
  488.   bagmake1num[37]=3
  489.   bagmakeget[37]=1
  490.   bagmake1[39]=38
  491.   bagmake1num[39]=5
  492.   bagmakeget[39]=1
  493.   bagmake1[40]=11
  494.   bagmake1num[40]=1
  495.   bagmakeget[40]=3
  496.   bagmake1[41]=12
  497.   bagmake1num[41]=1
  498.   bagmakeget[41]=3
  499.   bagmake1[42]=40
  500.   bagmake1num[42]=4
  501.   bagmakeget[42]=1
  502.   bagmake1[43]=41
  503.   bagmake1num[43]=4
  504.   bagmakeget[43]=1
  505.   bagmake1[44]=11
  506.   bagmake1num[44]=2
  507.   bagmake2[44]=12
  508.   bagmake2num[44]=1
  509.   bagmakeget[44]=1
  510.   
  511.   
  512.   
  513.   baghavelong[14]=60
  514.   baghavelong[15]=80
  515.   baghavelong[16]=140
  516.   baghavelong[17]=100
  517.   baghavelong[18]=160
  518.   baghavelong[19]=180
  519.   baghavelong[20]=25
  520.   baghavelong[21]=35
  521.   baghavelong[22]=45
  522.   baghavelong[23]=40
  523.   baghavelong[24]=60
  524.   baghavelong[25]=70
  525.   
  526.   
  527.   bagspeed[14]=1
  528.   bagspeed[15]=2
  529.   bagspeed[16]=2
  530.   bagspeed[17]=3
  531.   bagspeed[18]=4
  532.   bagspeed[19]=4
  533.   
  534.   baghurt[20]=2
  535.   baghurt[21]=2.5
  536.   baghurt[22]=4
  537.   baghurt[23]=4.5
  538.   baghurt[24]=5
  539.   baghurt[25]=6
  540.   
  541.   bagblood[7]=1
  542.   baghunger[7]=0
  543.   bagblood[8]=3
  544.   baghunger[8]=3
  545.   bagblood[26]=2
  546.   baghunger[26]=3
  547.   bagblood[27]=3
  548.   baghunger[27]=3
  549.   bagblood[28]=3
  550.   baghunger[28]=3
  551.   bagblood[29]=3
  552.   baghunger[29]=4
  553.   bagblood[30]=0
  554.   baghunger[30]=1
  555.   bagblood[33]=4
  556.   baghunger[33]=5
  557. EndSub


  558. ',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,nothing
  559. Sub typerinformation
  560.   exchangerblood[1]= "❤"
  561.   exchangerblood[2]= "❤❤"
  562.   exchangerblood[3]= "❤❤❤"
  563.   exchangerblood[4]= "❤❤❤❤"
  564.   exchangerblood[5]= "❤❤❤❤❤"
  565.   exchangerblood[6]= "❤❤❤❤❤❤"
  566.   exchangerblood[7]= "❤❤❤❤❤❤❤"
  567.   exchangerblood[8]= "❤❤❤❤❤❤❤❤"
  568.   exchangerblood[9]= "❤❤❤❤❤❤❤❤❤"
  569.   exchangerblood[10]="❤❤❤❤❤❤❤❤❤❤"
  570.   
  571.   exchangerhung[1]= "★"
  572.   exchangerhung[2]= "★★"
  573.   exchangerhung[3]= "★★★"
  574.   exchangerhung[4]= "★★★★"
  575.   exchangerhung[5]= "★★★★★"
  576.   exchangerhung[6]= "★★★★★★"
  577.   exchangerhung[7]= "★★★★★★★"
  578.   exchangerhung[8]= "★★★★★★★★"
  579.   exchangerhung[9]= "★★★★★★★★★"
  580.   exchangerhung[10]="★★★★★★★★★★"
  581.   
  582.   haveblood[46]=6
  583.   haveblood[47]=8
  584.   haveblood[48]=6
  585.   haveblood[49]=15
  586.   
  587.   '其它变量
  588.   animalplace=49
  589.   hasescaped=0
  590.   sleeping=0
  591.   changeshowmessage=0
  592. EndSub


  593. '地图分配
  594. '1-18              水
  595. '19-28           树木
  596. '29                 南瓜
  597. '30                 蘑菇
  598. '31-35           石头
  599. '36-38          铁
  600. '39-40         黄金
  601. '41                钻石
  602. '42                黑曜石
  603. '43-45          煤
  604. '46                猪
  605. '47                 牛
  606. '48                羊
  607. '49                野人

复制代码

回复

使用道具 举报

发表于 2018-1-19 21:16:42 | 显示全部楼层
6666666666666666666666666666
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|手机版|Small Basic中文站-快乐编程 ( 闽ICP备09051788号 |

GMT+8, 2018-8-15 00:05 , Processed in 0.159140 second(s), 7 queries , File On.

Powered by Discuz! X3.3

快速回复 返回顶部 返回列表