fortran程序整合

完成了整合，就差概率调整和文字描述，格式优化

program random_ex

implicit none

integer::hp=100

integer::xz

integer::round

integer::round2

integer::zxd=3  !止血带数量

integer::sx=0   !失血程度

integer::xl=100 !失血最大量

integer::move !冲锋阶段选择

integer::mover=0 !冲锋阶段计数

integer::act=1

integer::exp=1

integer::aidkit=2

integer::trangle=2

integer::bandage=2

integer::jijiu

integer::e

integer::hujiu

integer::jiuren=0

integer::ss=0

integer::gjxz

integer::zd=0

integer::xunlian

integer::xlxz

integer::cf

integer::cf2

integer::lxcd !判断流血，伤势程度

integer::fbzd=0 !腹部受伤情况，防止止血带把腹部流血也一并清零

integer::zqxz !炸碉堡前的准备

integer::js=0 !因失血过多而减速

integer::jd=0 !最后的两个阶段

integer::lxbs=0 !因流血程度而进入的濒死状态

integer::hpbs=0 !因hp清零而进入的濒死状态

integer::o=0

integer::p=0

integer::q=0

real::randNum

real::lbound,ubound

real::my_random

call random_seed()

900 do round=1,10,1

print*,'你坚定的冲在最前方，为战友们开辟着道路'

randNum=my_random(0.0,200.0+o)

if(0.0<randNum.and.randNum<=1.0) then

print 100

hp=(hp-50+q)

act=(act+1)

exp=(exp+1)

ss=(ss+1)

 if(ss>10) then

  goto 3001

 end if

print*,'剩余耐力值：',hp

exit

else if(1.0<randNum.and.randNum<=5.0) then

print 200

hp=(hp-40+q)

act=(act+1)

exp=(exp+1)

ss=(ss+1)

if(ss>10) then

  goto 3001

 end if

print*,'剩余耐力值：',hp

 if(bandage>=1.or.trangle>=1)then

   goto 903

   end if

exit

else if(5.0<randNum.and.randNum<=9.0) then

print 300

hp=(hp-45+q)

act=(act+1)

exp=(exp+1)

ss=(ss+1)

if(ss>10) then

  goto 3001

 end if

print*,'剩余耐力值：',hp

   if(bandage>=1.or.trangle>=1)then

   goto 902

   end if

exit

else if(9.0<randNum.and.randNum<=12.0) then

print 400

hp=(hp-30+q)

act=(act+1)

exp=(exp+1)

ss=(ss+1)

if(ss>10) then

  goto 3001

 end if

print*,'剩余耐力值：',hp

exit

else if(12.0<randNum.and.randNum<=15.0) then

print 500

hp=(hp-25+q)

act=(act+1)

exp=(exp+1)

ss=(ss+1)

if(ss>10) then

  goto 3001

 end if

print*,'剩余耐力值：',hp

exit

else if(15.0<randNum.and.randNum<=150.0) then

print 600

act=(act+1)

exp=(exp+1)

else if(150.0<randNum.and.randNum<=180.0+o/2) then

print 700

act=(act+1)

exp=(exp+1)

e=(e+1)

else if(180.0+o/2<randNum.and.randNum<=200.0+o/2) then

print 710

act=(act+1)

exp=(exp+1)

   if(bandage>=1.or.trangle>=1) then

   goto 711

  

   else if(bandage+trangle<=0) then

   print*,'你身上的急救用品已经用完了，你爱莫能助'

   print*,'只能尽量安顿好伤员，掩护卫生员将受伤的战友送至后方包扎'

  

end if

end if

100 format(1x,'一发弹片击中了你的头部，你猛地摔倒在地')

200 format(1x,'一颗子弹击中了你的胸部，你只觉得嘴里传来一股苦涩的味道，呼吸也变得极度困难起来')

300 format(1x,'你的腹部中弹数发，子弹的冲力让腹腔内的脏器都将将流出，你猛地后退几步，倒在了堑壕里')

400 format(1x,'你猛地一震，腿部中弹了，子弹齐着大腿根射入，碗大的创口几乎将整条腿截断。')

500 format(1x,'子弹打中了你的胳膊，你头昏脑胀，艰难的举枪还击')

600 format(1x,'子弹擦过你的身侧，没有打中你,你喘了口气，继续和同志们一起发起冲锋')

700 format(1x,'你举枪瞄准，帮助战友排除了一个威胁')

710 format(1x,'你的余光看到一位战友在你的身边中弹了')

if(act>=90) then

goto 999

elseif(act>80.and.zd>0)then

goto 8999

end if

end do

if (0<hp.and.hp<20) then

print*,'你失血过多，昏厥过去，最后的意识里只记得周围同志关切焦急的神情,'

print*,'不知过了多久，你被战友晃醒'

hp=(hp-10)

goto 901

else if(hp<=0) then

print *,'你的伤实在是太重了，中弹数发，严重失血的你一头栽倒在地，再也没能站起来'

 print*,'在这场重要的战斗中，你英勇作战，毙敌',e,'名，','负伤',ss,'次'

                 print*,'不顾安危，抢救战友',jiuren,'名，英勇无畏，追记一等功'

goto 0721

end if

901 call random_seed()

  

    print*,'你躲在掩体后方检查自己伤势如何，很多战士在战场上太过紧张，'

    print*,'无法及时发现伤情，你是知道的'

       if(ss>=2) then

       print*,'到了这个时候，你已经',ss,'处中弹，每一处创口都在渗血，身负重伤的你'

       end if

       print*,'剩余耐力值：',hp

    print*,'咬紧牙关，1：坚持战斗！，2：呼叫卫生员，3：简单包扎一下'

read*,xz

   if (xz<=1.5) then

   goto 900

   else if(xz>1.5.and.xz<=2.4) then

  

   randNum=my_random(0.0,100.0)

      if(randNum>=0.and.randNum<=75.0) then

      print*,'卫生员冒着弹雨赶来，悉心地为你用绷带包扎伤口，'

          print*,'强忍剧痛的你还是忍不住嘶哑的呻吟出声'

           print*,'卫生员替你解开领口，让你喘气更顺畅一些'

               print*,'血渐渐的止住了，卫生员也欣慰的叹了口气'

               act=(act+1)

      hp=(hp+20+p)

      print*,hp

         if(0.0<hp.and.hp<=25.0) then

         print*,'卫生员焦急的对你说：“你受的伤太重了！必须撤下去！”'

         print*,'卫生员将你背到了包扎站，安顿好你之后又返回了岗位上。'

         goto 120

         end if

       print*,'卫生员关切地想将你背到后方，你。。。'

       goto 901

            else if(randNum>75.0.and.randNum<=100.0) then

            print*,'一颗子弹射来，卫生员不幸中弹，你只能忍住伤痛，开火掩护'

               print*,'但卫生员看到身负重伤还强忍剧痛掩护自己的你，不禁红了眼眶'

               print*,'咬紧牙关，左手抓住草棵，右手按住药箱，艰难的继续向你匍匐前进'

               print*,'冒着二次负伤的风险，卫生员终于艰难的为你包扎好了伤口'

            hp=(hp+30+p)

               print*,'剩余耐力值：',hp

               act=(act+1)

            goto 910

            end if

     else if(xz>2.5) then

    print*,'你掏出随身携带的毛巾，胡乱给自己包扎了一下，'

    print*,'你咬咬牙：“还能，坚持一下。。。”'

    hp=(hp+5+p)

       act=(act+1)

    print*,'剩余耐力值：',hp

    aidkit=(aidkit-1)

        if(aidkit<0)then

        print*,'你一手按住伤口，一边想找出急救药品。。。。'

        print*,'却发现手头没有能够止血的东西，血，没能止住。。。。'

        hp=(hp-10)

        print*,'剩余耐力值：',hp

      

                 if(hp<=0) then

                 print*,'正在摁住伤口的手突然没了力气，你的伤实在是太重了，'

                 print*,'中弹数发，严重失血的你一头栽倒在地，再也没能站起来'

                  print*,'在这场重要的战斗中，你英勇作战，毙敌',e,'名，','负伤',ss,'次'

                 print*,'不顾安危，抢救战友',jiuren,'名，英勇无畏，追记一等功'

                 goto 0721

                 end if

               goto 901

    end if

    goto 901

    end if

910 randNum=my_random(0.0,100.0)

    print*,randNum

       if(randNum>=0.0.and.randNum<45.0) then

       print*,'你从剧烈的疼痛中清醒过来，强忍着不适微微睁开眼睛'

    print*,'却发现正在给你包扎伤口的卫生员腹部中弹'

       print*,'伤口正“呼呼”地冒着鲜血，染红了军衣'

       print*,'你艰难的开口，说：'

       print*,'你受伤了，快包扎一下...'

        if(bandage>=1.or.trangle>=1) then

     goto 921

     else if(bandage+trangle<=0) then

     print*,'你不顾卫生员的劝阻，费力地伸手去够自己的药包'

     print*,'却发现因为抢救其他战友，急救品已经用完了'

        print*,'卫生员忍着疼，虚弱的笑了笑'

        print*,'“我可是卫生员，会有办法的，我自己处理就好”'

        print*,'说罢，又捂着下腹部，机警地观望着前线的情况'

        print*,'而后，艰难的爬出弹坑，继续抢救伤员去了'

     print*,'你的眼眶不禁湿润了'

        print*,'虚弱的他只来得及在你坚持返回战斗之前'

        print*,'看到你的药品已经用完，递给你自己药箱里的急救用品'

        print*,'目送着你回到战斗的第一线'

     trangle=(trangle+2)

        bandage=(bandage+2)

     print*,'剩余耐力值：',hp

        goto 901

     end if

       elseif(randNum>=45.0.and.randNum<90.0)then

       print*,'你从剧烈的疼痛中清醒过来，强忍着不适微微睁开眼睛'

    print*,'却发现正在给你包扎伤口的卫生员左胸口中弹'

       print*,'伤口正“呼呼”地冒着鲜血和气泡，染红了军衣'

       print*,'你艰难的开口，说：'

       print*,'你受伤了，快包扎一下...'

        if(bandage>=1.or.trangle>=1) then

     goto 921

     else if(bandage+trangle<=0) then

     print*,'你不顾卫生员的劝阻，费力地伸手去够自己的药包'

     print*,'却发现因为抢救其他战友，急救品已经用完了'

        print*,'卫生员忍着疼，虚弱的笑了笑'

        print*,'“我可是卫生员，会有办法的，我自己处理就好”'

        print*,'说罢，又捂着胸口，机警地观望着前线的情况'

        print*,'而后，艰难的爬出弹坑，继续抢救伤员去了'

     print*,'你的眼眶不禁湿润了'

        print*,'虚弱的他只来得及在你坚持返回战斗之前'

        print*,'看到你的药品已经用完，递给你自己药箱里的急救用品'

        print*,'目送着你回到战斗的第一线'

     trangle=(trangle+2)

        bandage=(bandage+2)

     print*,'剩余耐力值：',hp

        goto 901

     end if

     elseif(randNum>=90.0.and.randNum<=100.0)then

       print*,'你刚想给身负重伤还坚持抢救的卫生员包扎'

       print*,'却发现卫生员的伤口严重到难以着手'

       print*,'鲜血从腹部的创口不断涌出，已经在身后拖染出了殷红的一片！'

       print*,'卫生员艰难的推开你想给他包扎的手'

       print*,'虚弱的开口说：'

       print*,'“好同志，我的肠子都被打出来啦...'

       print*,'一动就...疼...这个，给你，去...帮其他同志...”'

       print*,'说罢，解下急救箱塞到你怀里，就再也没能睁开眼睛'

       bandage=(bandage+4)

       trangle=(trangle+4)

       goto 901

       end if

921 print*,'你翻找着自己的急救包，想要找出能够包扎的用品'

    print*,'你不禁庆幸在战斗前大家 都准备了一些急救药品，你看着急救包里的物品，有：'

       print*,bandage,'卷绷带',trangle,'块三角巾'

       print*,'你掏出,1：三角巾。2：绷带。为战友包扎伤口3：掩护他撤退'

       read*,jijiu

       if(jijiu>0.5.and.jijiu<1.5) then

        if(trangle>=1) then

     print*,'你不顾劝阻，掏出三角巾为医务员包扎'

        print*,'你先给伤口按压止血，之后又将三角巾绕过躯干'

        print*,'紧紧的包扎妥当，系好绷带结'

        print*,'过程中，因为包扎动作幅度不小，自己身上的伤口一直在疼'

        print*,'渗出的血更是浸湿了伤口周围的军衣和纱布'

        print*,'但你想到此时受伤战友的伤情，还有卫生员身负重伤'

        print*,'还坚持给你包扎的毅力，你咬牙挺住了'

        print*,'你认真的系好了伤员身后的结，不禁松了一口气'

        trangle=(trangle-1)

        print*,'你让卫生员呆在掩蔽处休息，自己观察着战斗的情况'

        print*,'你发现远处也有几个处在危险中的同志，就想接过卫生员的急救箱'

        print*,'卫生员看着你忍住创痛，还要坚持战斗，眼角微微发红'

        print*,'但还是递给你了几卷绷带和三角巾，之后便也匍匐上前'

        bandage=(bandage+3)

        trangle=(trangle+3)

     goto 901

        elseif(trangle<1)then

        print*,'随身准备的急救用品已经用完了，你只能继续按压伤口'

     print*,'你按住负伤战友的伤口，正在焦急之间，卫生员艰难的伸出手来'

     print*,'递给你了一卷新的纱布，'

        print*,'但你却没有给自己包扎，而是缠好了卫生员的伤口'

        print*,'卫生员的血止住了，你为了避免他二次负伤'

        print*,'就要将他背到掩蔽处，卫生员连忙开口'

        print*,'“那...那怎么行...我是卫生员，哪有让伤员照顾的道理！”'

        print*,'但也许是之前的耽搁，他已经失血过多，虚弱的没有一丝力气'

      print*,'你把他背在背上，然后一步一步爬回堑壕。'

        print*,'伤处紧贴着地面，再加上卫生员的体重，'

        print*,'你的伤口疼痛难忍，血向外流得更多更快'

        print*,'但你咬牙挺住，呻吟着匍匐进了掩蔽'

        print*,'卫生员感激的看着你，但虚弱的他只来得及在你坚持返回战斗之前'

        print*,'看到你的药品已经用完，递给你自己药箱里的急救用品'

        print*,'目送着你回到战斗的第一线'

     trangle=(trangle+2)

        goto 901

        end if

       elseif(jijiu>1.5.and.jijiu<2.5) then

        if(bandage>=1)then

        print*,'你不顾劝阻，掏出绷带为医务员包扎'

        print*,'你先给伤口按压止血，之后又将绷带绕过躯干'

        print*,'紧紧的包扎妥当，系好绷带结'

        print*,'过程中，因为包扎动作幅度不小，自己身上的伤口一直在疼'

        print*,'渗出的血更是浸湿了伤口周围的军衣和纱布'

        print*,'但你想到此时受伤战友的伤情，还有卫生员身负重伤'

        print*,'还坚持给你包扎的毅力，你咬牙挺住了'

        print*,'你认真的系好了伤员身后的结，不禁松了一口气'

        bandage=(bandage-1)

        print*,'你让卫生员呆在掩蔽处休息，自己观察着战斗的情况'

        print*,'你发现远处也有几个处在危险中的同志，就想接过卫生员的急救箱'

        print*,'卫生员看着你忍住创痛，还要坚持战斗，眼角微微发红'

        print*,'但还是递给你了几卷绷带和三角巾，之后便也匍匐上前'

        goto 901

        elseif(bandage<1)then

        print*,'随身准备的急救用品已经用完了，你只能继续按压伤口'

     print*,'你按住负伤战友的伤口，正在焦急之间，卫生员艰难的伸出手来'

     print*,'递给你了一卷新的纱布，'

        print*,'但你却没有给自己包扎，而是缠好了卫生员的伤口'

        print*,'卫生员的血止住了，你为了避免他二次负伤'

        print*,'就要将他背到掩蔽处，卫生员连忙开口'

        print*,'“那...那怎么行...我是卫生员，哪有让伤员照顾的道理！”'

        print*,'但也许是之前的耽搁，他已经失血过多，虚弱的没有一丝力气'

      print*,'你把他背在背上，然后一步一步爬回堑壕。'

        print*,'伤处紧贴着地面，再加上卫生员的体重，'

        print*,'你的伤口疼痛难忍，血向外流得更多更快'

        print*,'但你咬牙挺住，呻吟着匍匐进了掩蔽'

        print*,'卫生员感激的看着你，但虚弱的他只来得及在你坚持返回战斗之前'

        print*,'看到你的药品已经用完，递给你自己药箱里的急救用品'

        print*,'目送着你回到战斗的第一线'

     bandage=(bandage+2)

        goto 901

        endif

       elseif(jijiu>2.5.and.jijiu<3.5) then

     print*,'你和卫生员身边的药品都不多了，'

        print*,'你为了避免他二次负伤'

        print*,'就要将他背到掩蔽处，卫生员连忙开口'

        print*,'“那...那怎么行...我是卫生员，哪有让伤员照顾的道理！”'

        print*,'但也许是之前的耽搁，他已经失血过多，虚弱的没有一丝力气'

      print*,'你把他背在背上，然后一步一步爬回堑壕。'

        print*,'伤处紧贴着地面，再加上卫生员的体重，'

        print*,'你的伤口疼痛难忍，血向外流得更多更快'

        print*,'但你咬牙挺住，呻吟着匍匐进了掩蔽'

        print*,'卫生员感激的看着你，但虚弱的他只来得及在你坚持返回战斗之前'

        print*,'看到你的药品已经用完，递给你自己药箱里的急救用品'

        print*,'目送着你回到战斗的第一线'

     bandage=(bandage+2)

        goto 901

       end if

0721 hp=100

     trangle=2

        bandage=2

        jiuren=0

        e=0

        exp=0

        aidkit=2

        act=0

        ss=0

        print*,'                   按任意键重新开始'

     pause

     goto 900

120 print*,'躺在包扎站的担架上，你强忍着剧烈的痛楚，尽量不呻吟出声，影响到其他受伤的战友。'

    print*,'从痛楚中恢复过来，你强忍着不适，坚持返回战场作战'

       hp=80

       goto 900

902 print*,'剧痛中，你不禁庆幸在战斗前大家 都准备了一些急救药品，你看着急救包里的物品，有：'

    print*,bandage,'卷绷带',trangle,'块三角巾'

    print*,'你掏出,1：三角巾。2：绷带。为自己包扎伤口3：暂时不包扎'

    read*,jijiu

       if(hp<=0) then

       print *,'你的伤实在是太重，连动手给自己包扎的力气都逐渐失去。。。'

        print *,'中弹数发，严重失血的你一头栽倒在地，再也没能站起来。。。'

          print*,'在这场重要的战斗中，你英勇作战，毙敌',e,'名，','负伤',ss,'次'

                 print*,'不顾安危，抢救战友',jiuren,'名，英勇无畏，追记一等功'

       goto 0721

        end if

          if(jijiu<1.5)then

            if(trangle<1) then

               print*,'战斗中的药品永远紧缺，大家的急救药品很快就都要用完了，你也如此'

               print*,'你的三角巾已经用完了'

               goto 903

            end if

          print*,'三角巾妥当的包扎住了腹部的伤口，血止住了'

          trangle=(trangle-1)

          hp=(hp+15+p)

          print*,'剩余耐力值：',hp

          goto 901

        

          else if(jijiu>1.5.and.jijiu<2.4) then

          if(bandage<1) then

               print*,'战斗中的药品永远紧缺，大家的急救药品很快就都要用完了，你也如此'

               print*,'你的绷带已经用完了'

               goto 903

            end if

          print*,'腹部的伤口太大了，绷带根本无法有效止血'

          print*,'你牙一咬，心一横，用力勒紧绷带，硬生生地把流出来的肠子堵了回去！'

          print*,'但你也痛的差点昏厥过去，不一会，绷带就被鲜血再次浸湿'

          print*,'"糟了，根本止不住啊。。。"'

          bandage=(bandage-1)

          hp=(hp+5+p)

       print*,'剩余耐力值：',hp

          goto 901

          else if(jijiu>2.4) then

          print*,'你想到了其他处在危险中的负伤同志，咬了咬牙，把药品装了回去，放弃了自救的念头'

          goto 7301

         end if

7301  print*,'可是... ... 你的伤实在是太重了，只要一挪动，浑身的',ss,'处弹孔就在渗血'

      print*,'回头，可能还有生还的机会，前进，就有牺牲的可能！'

         print*,'你...1，将生的希望留给其他同志！，2，保存自己，不能冲动'

         read*,gjxz

         if(gjxz<1.5) then

          print*,'你咬紧牙关，抱定决心，握紧手中的武器继续战斗'

          goto 900

         elseif(gjxz>1.5) then

          goto 901

          end if

903  print*,'剧痛中，你不禁庆幸在战斗前大家 都准备了一些急救药品，你看着急救包里的物品，有：'

    print*,bandage,'卷绷带',trangle,'块三角巾'

    print*,'你掏出,1：三角巾。2：绷带。为自己包扎伤口3：暂时不包扎'

    read*,jijiu

       if(hp<=0) then

       print *,'你的伤实在是太重，连自救的意识都在逐渐涣散。。。'

        print *,'中弹数发，严重失血的你一头栽倒在地，再也没能站起来。。。'

          print*,'在这场重要的战斗中，你英勇作战，毙敌',e,'名，','负伤',ss,'次'

                 print*,'不顾安危，抢救战友',jiuren,'名，英勇无畏，追记一等功'

       goto 0721

        end if

          if(jijiu<1.5)then

           if(trangle<1) then

               print*,'战斗中的药品永远紧缺，大家的急救药品很快就都要用完了，你也如此'

               print*,'你的三角巾已经用完了'

               goto 903

            end if

          print*,'三角巾妥当的包扎住了胸部的伤口，血止住了'

          trangle=(trangle-1)

          hp=(hp+15+p)

          print*,'剩余耐力值：',hp

          goto 901

        

          else if(jijiu>1.5.and.jijiu<2.4) then

          if(bandage<1) then

               print*,'战斗中的药品永远紧缺，大家的急救药品很快就都要用完了，你也如此'

               print*,'你的绷带已经用完了'

               goto 903

            end if

          print*,'胸部的伤口太大了，绷带根本无法有效止血'

          print*,'只能把绷带叠起来，作为敷料死死压在伤口上，才勉强能够重新喘气'

          print*,'但你也痛的差点昏厥过去，不一会，绷带就被鲜血再次浸湿'

          print*,'"糟了。。。根本。。。止不住啊。。。"'

          bandage=(bandage-1)

          hp=(hp+5+p)

       print*,'剩余耐力值：',hp

          goto 901

          else if(jijiu>2.4) then

          print*,'你想到了其他处在危险中的负伤同志，咬了咬牙，把药品装了回去，放弃了自救的念头'

          goto 7301

        end if

        

711 print*,'你意识到自己身上还有急救用品，赶忙匍匐前进，用身子护住负伤的同志给他包扎伤口'

    print*,'你身上还有',bandage,'卷绷带',trangle,'块三角巾'

    print*,'急救用品很快就会不够用，你决定1：用三角巾急救2：用绷带急救3：得交给卫生员，节省体力和药物'

       read*,hujiu

         if(hujiu>0.5.and.hujiu<1.5) then

           if(trangle>=1) then

               goto 1000

              elseif(trangle<1) then

              goto 1001

           end if

         elseif(hujiu>=1.5.and.hujiu<2.5) then

           if(bandage>=1) then

              goto 2000

              elseif(bandage<1) then

              goto 1001

              end if

         elseif(hujiu>=2.5.and.hujiu<3.5) then

         print*,'你赶忙掩护卫生员进入掩体实施急救，然后继续和同志们继续冲锋'

              goto 900

         end if

1000    print*,'三角巾适合包扎所有情况的伤口，但你也不禁担心起来：'

           print*,'如此重要的包扎用品，用尽了就糟糕了'

        print*,'不过你还是果断地为战友包扎好了伤口，战友惊讶的睁开眼睛，投来了感激的目光'

           print*,'你安慰的笑了笑："没关系的，我这点不算什么，还坚持得住，你没事就好"'

           trangle=(trangle-1)

              jiuren=(jiuren+1)

              act=(act+1)

           print*,'剩余耐力值：',hp

              randNum=my_random(0.0,200.0)

        write(*,*) randNum

        if (randNum>=0.and.randNum<100) then

           goto 901

           elseif(randNum>=100.and.randNum<=200) then

              goto 1002

              end if

1001 print*,'随身准备的急救用品已经用完了，你只能继续按压伤口'

     print*,'你按住负伤战友的伤口，焦急的寻找其他替代品，可惜，时间已经不够用了'

         print*,'重伤的同志虚弱的闭上了眼睛，满是遗憾和不舍，再也没有睁开。'

         print*,'剩余耐力值：',hp

         goto 900

1002    print*,'可是没有想到，也许是忙于包扎，一时走神，一发射来的子弹狠狠的击中了你的腹部'

           print*,'中弹的冲击力把肠子都打了出来'

           hp=(hp-40+q)

              ss=(ss+1)

              if(ss>10) then

         goto 3001

         end if

           print*,'剩余耐力值：',hp

             if(hp<=0) then

          print *,'你的伤实在是太重了，中弹数发，严重失血的你拼命的用身体护住战友'

                print*,'长出一口气，永远的闭上了眼睛'

          print*,'在这场重要的战斗中，你英勇作战，毙敌',e,'名，','负伤',ss,'次'

          print*,'不顾安危，抢救战友',jiuren,'名，英勇无畏，追记一等功'

          goto 0721

             

                else if(hp<=20.and.hp>0) then

                print*,'你已经身负重伤，大量失血使你的眼前金星直冒'

                print*,'你咬紧牙关，一把将流出的肠子塞了回去，拼命的坚持着，'

                print*,'给受伤同志包扎的动作显得愈加惊心动魄，但仍然一丝不苟'

                print*,'终于处理好了伤员的创口，你下定决心，用身体护住战友'

                print*,'之后便昏迷过去'

                print*,'等你再次醒来，已经躺在包扎站的担架上'

                print*,'身旁是脱离危险的战友，还有面露感激与钦佩之情的卫生员'

                goto 120

       

             else if(hp<100.and.hp>20)then

             print*,'你连忙忍着剧烈的创痛掩护伤员撤下战场，然后回过神来处理自己的伤口'

             jiuren=(jiuren+1)

             print*,'剩余耐力值：',hp

             goto 902

                end if

2000  print*,'对于严重的伤情，绷带包扎并不方便'

      print*,'你费了很大力气，才止住同志身上流血的弹孔，战友惊讶的睁开眼睛，投来了感激的目光'

         print*,'你安慰的笑了笑："没关系的，我这点不算什么，还坚持得住，你没事就好"'

         bandage=(bandage-1)

         jiuren=(jiuren+1)

         act=(act+1)

         randNum=my_random(0.0,200.0)

      write(*,*) randNum

      if (randNum>=0.and.randNum<=50) then

         goto 900

         elseif(randNum>=50.and.randNum<=200) then

         goto 2001

         end if

2001 print*,'可是没有想到，也许是忙于包扎，一时走神，一发射来的子弹狠狠的击中了你的腹部'

         print*,'中弹的冲击力把肠子都打了出来'

         hp=(hp-40+q)

         ss=(ss+1)

         if(ss>10) then

     goto 3001

      end if

         print*,'剩余耐力值：',hp

           if(hp<=0) then

        print *,'你的伤实在是太重了，中弹数发，严重失血的你拼命的用身体护住战友'

              print*,'长出一口气，永远的闭上了眼睛'

         print*,'在这场重要的战斗中，你英勇作战，毙敌',e,'名，','负伤',ss,'次'

        print*,'不顾安危，抢救战友',jiuren,'名，英勇无畏，追记一等功'

        goto 0721

              else if(hp<=20.and.hp>0) then

              print*,'你已经身负重伤，大量失血使你的眼前金星直冒'

              print*,'你咬紧牙关，一把将流出的肠子塞了回去，拼命的坚持着，'

              print*,'给受伤同志包扎的动作显得愈加惊心动魄，但仍然一丝不苟'

              print*,'终于处理好了伤员的创口，你下定决心，用身体护住战友'

              print*,'之后便昏迷过去'

              print*,'等你再次醒来，已经躺在包扎站的担架上'

              print*,'身旁是脱离危险的战友，还有面露感激与钦佩之情的卫生员'

              goto 120

          else if(hp>20.and.hp<100) then

       print*,'你连忙忍着剧烈的创痛掩护伤员撤下战场，然后回过神来处理自己的伤口'

         print*,'剩余耐力值：',hp

         goto 902

         end if

3001 print*,'你受的伤实在是太多了，严重失血的你一头栽倒在地，再也没能站起来'

                  print*,'在这场重要的战斗中，你英勇作战，毙敌',e,'名，','负伤',ss,'次'

                 print*,'不顾安危，抢救战友',jiuren,'名，英勇无畏，追记一等功'

                 goto 0721

          

999 print*,'你熬过了这场战斗，积累了宝贵的战斗经验，'

    print*,'你确信，自己很快就能像那些战斗骨干一样，为同志们做出更多的贡献'

       hp=100

       act=1

       aidkit=2

       bandage=2

       trangle=2

       e=0

       jiuren=0

       ss=0

       zd=(zd+1)

       if (50<exp.and.exp<=75) then

   print*,'你成为了一名合格的战斗骨干///'

    else if(exp>75) then

   print*,'///你成为了新组建的战斗班的班长///'

    end if

       print*,'在这之后，你又经历了很多场战斗'

       print*,'每场战斗后，你顽强的毅力都能使你更加坚定'

       print*,'你抱定不怕困难与牺牲的决心，艰苦的磨练着自己的意志和素养'

       do xunlian=1,5,1

       print*,'又经历了一场紧张的战斗，你决定：'

       print*,'1，苦练战斗本领2，练习包扎动作3，坚定战斗意志'

    read*,xlxz

     if(xlxz<1.5) then

        print*,'你现在能够更加沉着的判断局势，合理运用条件，勇猛战斗'

        o=(o+20)

        elseif(xlxz>1.5.and.xlxz<2.5)then

        print*,'你现在能够更加熟练的包扎自己和战友的伤口，为救治争取宝贵的时间'

        p=(p+3)

        

        elseif(xlxz>2.5)then

      print*,'你在战友的激励下更加坚定，你下定决心，再重的伤情也能够坚持战斗'

        q=(q+3)

        

        end if

       end do

  

    goto 900

8999 print*,'战斗已经进行到了最后的阶段'

     print*,'同志们正一鼓作气，对敌人的阵地发起冲锋'

        print*,'可一个掩藏的很好的暗堡突然开火，前方的同志纷纷中弹倒地'

        print*,'可这些勇敢的战友依然挣扎着爬起身来互相掩护，勇敢向前'

        print*,'你看到了这副情景，眼里全是对敌人的悲愤'

        print*,'你下定决心，从负伤的爆破手手里接过炸药包，决定除掉这个“眼中钉”'

        print*,'在腰间缠好了三条止血带，你整理好身上的装备，握紧武器，冒着弹雨迎了上去'

        print*,'             “止血带”现在可以使用了        '

        print*,'        “止血带”可以回复的耐力值足有60点       '

        print*,'                为所有急救用品中最高        '

        print*,'            并可以防止伤处由于大出血而恶化     '

        print*,'           但有数量限制，并只能包扎腿部枪伤'

        print*,'    即使处理伤口，也照样有失去意识乃至牺牲的风险，   '

        print*,'        腹部，胸部中弹仍只能用绷带，三角巾处理  '

        print*,'    但由于要摧毁的暗堡位置较低，腿部中弹的几率更大'

        print*,'    机枪子弹也会对命中的部位造成动脉贯穿导致的大出血'

        print*,'          所以要随时注意自己的伤势和失血情况   '

     print*,'剩余耐力值：',hp

        print*,'身上有',zxd,'条止血带',bandage,'卷绷带',trangle,'块三角巾'

        print*,'时间紧迫，你心急如焚，只有一点准备时间，你选择：'

        print*,'1：处理旧伤，2：补充绷带，3：补充三角巾'

        read*,zqxz

         if(zqxz<1.5) then

         print*,'你重新将身上包扎起来的伤口检查了一下，做了最后的止血处理'

         hp=90

         goto 9000

         elseif(zqxz>1.5.and.zqxz<2.5) then

         print*,'你从卫生员手里接过了几卷新的纱布，以防万一'

         bandage=(bandage+2)

         goto 9000

         elseif(zqxz>2.5.and.zqxz<3.5) then

         print*,'你从卫生员手里接过了几卷新的纱布，以防万一'

         trangle=(trangle+2)

         goto 9000

         end if

9000  do cf=1,20,1

     if(mover>=10)then

        goto 9010

        end if

     if(fbzd+lxcd==0) then

        print*,'目前失血状况：尚可'

        js=0

        elseif(fbzd+lxcd==1) then

        print*,'目前失血状况：轻微'

        js=0

        elseif(fbzd+lxcd==2) then

        print*,'目前失血状况：严重'

        js=1

     lxbs=(lxbs+1)

        elseif(fbzd+lxcd>=2) then

        print*,'目前失血状况：危急'

        js=1

        lxbs=(lxbs+1)

        endif

            

     call random_seed()

       randNum=my_random(0.0,200.0)

       print*,'你背着爆破筒，紧紧端着武器，机警地观察着前方的情况'

       if(randNum>=0.0.and.randNum<=100.0) then

       print*,'你发现暗堡中的机枪正向右边瞄准'

       print*,'你心中一沉，决定：'

       print*,'1，向右翻身，寻找掩蔽，2，合身向左边扑去'

        read*,move

        if(move>1.5) then !这么做是对的

         if(randNum>0.0.and.randNum<=170) then

         print*,'你躲闪过了射来的子弹'

         mover=(mover+2-js)

         print*,mover

         elseif(randNum>170.and.randNum<=200.0) then

         print*,'纵使你果断地做出了反应，子弹还是'

         goto 9001

         end if

        elseif(move<1.5) then !这么做是错的

        if(randNum>0.0.and.randNum<=170) then

         print*,'敌人的射击封锁了你前进的路线'

         goto 9001

         elseif(randNum>170.and.randNum<=200.0) then

         print*,'你心中一紧，本以为自己会中弹'

         mover=(mover+2-js)

         print*,mover

         end if

        end if

       elseif(randNum>100.0.and.randNum<=200.0) then

       print*,'你发现暗堡中的机枪正向左边瞄准'

       print*,'你心中一沉，决定：'

       print*,'1，向右翻身，寻找掩蔽，2，合身向左边扑去'

       read*,move

        if(move<1.5) then !这么做是对的

        if(randNum>0.0.and.randNum<=170) then

         print*,'你躲闪过了射来的子弹'

         mover=(mover+2-js)

      print*,mover

         elseif(randNum>170.and.randNum<=200.0) then

         print*,'纵使你果断地做出了反应，子弹还是'

         goto 9001

         end if

        elseif(move>1.5) then !这么做是错的

         if(randNum>0.0.and.randNum<=170) then

         print*,'敌人的射击封锁了你前进的路线'

         goto 9001

         elseif(randNum>170.and.randNum<=200.0) then

         print*,'你心中一紧，本以为自己会中弹'

         mover=(mover+2-js)

         print*,mover

         end if

        end if

       end if

       end do

9010 print*,'历经千辛万苦，你终于抵达了暗堡所在高地的坡下'

     print*,'你不禁暗暗松了一口气，这下，敌人想要命中你就很难了'

        print*,'没有想到，背后暗藏许久的一个倒打火力点突然向你开火'

        print*,'不断线的子弹泼水般打来，几发子弹结结实实的钉进了你的右大腿'

        print*,'你一下子趴在了泥泞的土坡上'

        print*,'翻过身来，你看到那个倒打火力点离你隔得很远'

        print*,'你发了狠，坡顶上的暗堡离你最近，不行...一定要先拿下它！'

        print*,'下定决心，准备做最后的努力——但你先要处理右腿新出现的伤口'

        print*,'                  注意：'

        print*,'          由于倒打火力点的存在     '

        print*,'         你中弹的概率将会大大增加     '

        hp=(hp-70)

        goto 9500

    

9001 call random_seed()

        randNum=my_random(0.0,200.0)

        if(randNum<=90.0.and.randNum>=0) then

        print*,'数发子弹呼啸着钻进了你的左大腿'

        hp=(hp-70)

        goto 9002

        elseif(randNum>90.0.and.randNum<=180.0) then

        print*,'好几发子弹呼啸着钻进了你的右大腿'

        hp=(hp-70)

        goto 9002

        elseif(randNum>180.0.and.randNum<=200.0) then

        print*,'几发流弹打中了你的肚子，你捂着肚子倒了下去'

        hp=(hp-70)

        goto 9004

        end if

9002 print*,'没有时间了，你在腰间摸索着止血带，一边望向自己的大腿处的伤口，却突然愣住了'

        print*,'数个弹孔赫然使血肉模糊的伤口连成了一片，整条裤腿都被染红了'

        print*,'剧痛中的你意识到，这恐怕是大出血，只能用止血带暂时处理'

        if(zxd<=0) then

        print*,'可是，用来救命的止血带已经用完了，你受伤的频率和严重程度已经超出了想象'

        print*,'但是，选择了这项可能有去无回的任务，你就已经下定了决心'

        print*,'你只能用一只手按着伤口，拖着失去知觉的伤腿继续向前'

        lxcd=(lxcd+1)

        goto 9000

        elseif(zxd>0)then

        print*,'你咬紧牙关，把止血带捆在伤口上沿绕了一圈'

        print*,'然后在地上摸索到了一根木棍，把它卡在了止血带下随时能够到的地方'

        print*,'不顾伤腿那令人麻木的剧痛，狠狠的转了几圈，把止血带勒紧'

        print*,'然后又将橡皮管子绕了一圈，系在了木棍把手上'

     print*,'弹孔中涌出的血逐渐变少，你咬咬牙，翻身又开始了前进'

        hp=(hp+60)

        zxd=(zxd-1)

        lxcd=0

        goto 9000

        endif

      

9004 print*,'你没有想到，腹部被暗堡中的机枪打中居然会产生如此的痛楚'

     print*,'你已经不敢再去检查被鲜血染的通红的腹部伤口，但你知道'

        print*,'你的时间，恐怕不多了，'

        print*,'你叹了口气，腹部的大出血根本不能用止血带处理'

        print*,'没时间犹豫，你掏出急救包，强忍着眼前发黑的剧痛翻找着'

        print*,'你的身上有',zxd,'条止血带',bandage,'卷绷带',trangle,'块三角巾'

        print*,'开放的大伤口让你无从着手，但必须冷静下来，否则，真的会倒在这里'

        print*,'你下定决心，1：用绷带包扎，2，用三角巾包扎'

        read*,jijiu

        if(jijiu>1.5)then

          if(trangle>=1) then

          print*,'你按照战前的训练，以标准的动作包扎着这“不标准”的伤口'

          print*,'白色的纱布瞬间被涌出的鲜血和脏器染红，勒紧绷带结的时候'

          hp=(hp+25)

          trangle=(trangle-1)

          print*,'眼前一阵一阵的发黑，但你几乎已经没有呻吟的力气了'

          print*,'默不吭声，你翻过身来，任由鲜血在身后、身下晕出一片血泊'

          fbzd=(fbzd+1)

          print*,'你咬咬牙，坚定意志，又开始了匍匐前进'

          goto 9000

          elseif(trangle<1) then

          print*,'你费力地在急救包里翻找着，却没有找到适合包扎的纱布'

          print*,'由于之前用手按压伤口，你的手上满是血渍，你抽出手来在旁边抹了一下'

          print*,'继续全神贯注的在溅上鲜血，绣着红十字的药箱里寻找着替代品'

       if(bandage>=1) then

              print*,'你发现还有几条绷带能用，虽然这点根本无法应付腹部的重伤'

              print*,'你麻木的撕开绷带，然后开始往自己的腹部伤口上缠，'

              print*,'绕了几圈后，你苦笑了一下——半截绷带连肚子上的弹孔都无法覆盖'

        print*,'没有做过多尝试，你右手抓住武器，左手拉紧另一端没法系好的绷带头'

              bandage=(bandage-1)

              hp=(hp+15)

              print*,'用右臂承受着全身的力气，翻身继续艰难的朝着目标挪动'

              fbzd=(fbzd+1)

              goto 9000

              elseif(bandage<1)then

              print*,'你摸了个空，染满血渍的手停住了，医疗箱里一卷绷带都没有'

              print*,'“连这个... ...都用完了吗... ...”'

              print*,'但你想起之前救下来的战友，丝毫没有后悔'

              print*,'或者说，当你选择了这个任务，就没有后悔的可能了。'

              print*,'你咬咬牙，用颤抖的手虚弱的摁住伤口，艰难的向前继续挪动'

              fbzd=(fbzd+1)

           goto 9000

              end if

          end if

        

         elseif(jijiu<1.5) then !计算绷带包扎情况

           if(bandage>=1) then

              print*,'你想都没想，撕开一卷绷带就往肚子上缠'

              print*,'可是没能注意，绷带并不适合包扎腹部伤口，何况还这么严重'

          print*,'白色的纱布瞬间被涌出的鲜血和脏器染红'

          print*,'不过，你没有纠结包扎的是否有效，不断威胁着大部队的暗堡，'

          print*,'才是你眼中最重要的事情，你左手扯紧最后无法打结的那段绷带'

          hp=(hp+35)

          bandage=(bandage-1)

          print*,'默不吭声，翻过身来，任由鲜血在身后、身下晕出一片血泊'

          fbzd=(fbzd+1)

          print*,'你咬咬牙，坚定意志，又开始了匍匐前进'

          goto 9000

              elseif(bandage<1)then

              print*,'你费力地在急救包里翻找着，却没有找到适合包扎的纱布'

          print*,'由于之前用手按压伤口，你的手上满是血渍，你抽出手来在旁边抹了一下'

          print*,'继续全神贯注的在溅上鲜血，绣着红十字的药箱里寻找着替代品'

       if(trangle>=1) then

              print*,'你发现还有几条三角巾能用，虽然这点应付腹部的重伤也很勉强'

              print*,'你麻木的展开三角，然后开始往自己的腹部伤口上缠，'

              print*,'你叹了口气——三角巾很难扎紧，特别是在重伤虚弱的情况下'

        print*,'没有做过多尝试，你右手抓住武器，左手拉紧另一端的绷带头'

              trangle=(trangle-1)

              hp=(hp+45)

              print*,'用右臂承受着全身的力气，翻身继续艰难的朝着目标挪动'

              fbzd=(fbzd+1)

              goto 9000

              elseif(trangle<1)then

              print*,'你摸了个空，染满血渍的手停住了，医疗箱里一卷三角巾都没有'

              print*,'三角巾本应是包扎的首要选择'

              print*,'“都... ...都用完了吗... ...”'

              print*,'但你想起之前救下来的战友，丝毫没有后悔'

              print*,'或者说，当你选择了这个任务，就没有后悔的可能了。'

              print*,'你咬咬牙，用颤抖的手虚弱的摁住伤口，艰难的向前继续挪动'

              fbzd=(fbzd+1)

              goto 9000

              end if

              end if

              end if

!//接下来是第二阶段///

    

9500 print*,'没有时间了，你在腰间摸索着止血带，一边望向自己的大腿处的伤口，却突然愣住了'

        print*,'数个弹孔赫然使血肉模糊的伤口连成了一片，整条裤腿都被染红了'

        print*,'剧痛中的你意识到，这恐怕是大出血，只能用止血带暂时处理'

        if(zxd<=0) then

        print*,'可是，用来救命的止血带已经用完了，你受伤的频率和严重程度已经超出了想象'

        print*,'但是，选择了这项可能有去无回的任务，你就已经下定了决心'

        print*,'你只能用一只手按着伤口，拖着失去知觉的伤腿继续向前'

        lxcd=(lxcd+1)

        goto 9501

        elseif(zxd>0)then

         if(hp<0) then

         print*,'你本应该翻过身来，用止血带绑好你的伤腿'

         print*,'但是就在你从腰间解下止血带的时候，你就已经知道'

         print*,'这已经是不可能的事情，虚弱而痉挛的手只有堪堪抓住止血带的力气'

         print*,'流的血实在是太多，而腹部的伤口则是疼的惊心动魄'

         print*,'这时，继续向前爬似乎是唯一的选择了'

         print*,'你抓住一旁的草棵，不顾流尽鲜血的腿部伤口，继续向前爬去'

         goto 9501

         end if

        print*,'你咬紧牙关，把止血带捆在伤口上沿绕了一圈'

        print*,'然后在地上摸索到了一根木棍，把它卡在了止血带下随时能够到的地方'

        print*,'不顾伤腿那令人麻木的剧痛，狠狠的转了几圈，把止血带勒紧'

        print*,'然后又将橡皮管子绕了一圈，系在了木棍把手上'

     print*,'弹孔中涌出的血逐渐变少，你咬咬牙，翻身又开始了前进'

        hp=(hp+60)

        zxd=(zxd-1)

        lxcd=0

        goto 9501

        endif

9501 do cf2=1,20,1

     if(mover>=25)then

        goto 9510

        end if

     if(fbzd+lxcd==0) then

        print*,'目前失血状况：尚可'

        js=0

        elseif(fbzd+lxcd==1) then

        print*,'目前失血状况：轻微'

        js=0

        elseif(fbzd+lxcd==2) then

        print*,'目前失血状况：严重'

        js=1

        lxbs=(lxbs+1)

        elseif(fbzd+lxcd>=2) then

        print*,'目前失血状况：危急'

        js=1

        lxbs=(lxbs+1)

        endif

        if (hp<0)then

        hpbs=(hpbs+1)

        print*,'你本以为，这短短的一段路程，凭借着坚定的意志和娴熟的急救技术'

        print*,'自己就能完全应对，为大部队争取最多的机会'

        print*,'但此刻腹部不断涌出鲜血的伤口提醒了你残酷的事实'

        print*,'每挪动一点，浑身大大小小的伤口就会传来撕心裂肺的剧痛'

        print*,'绷带勒住，隐隐外露的肚肠使你觉得一阵阵的恶心与晕眩'

        print*,'你还能前进多少距离，5米，还是10米？'

        print*,'你的时间，真的不多了，你甚至怀疑，你还有没有从背上解下爆破筒的力气'

        print*,'连怀疑思考的力气都在渐渐失去... ...'

        print*,'你的眼里，就只剩下那个喷吐着火舌的暗堡，还有后方同志关切的目光'

        print*,'“为了... ...大家的... ...胜利... ...'

        print*,'那个目标，近了，更近了'

        print*,25-mover,'米，还有',25-mover,'米... ...'

          if(hpbs>=5) then

          goto 9509

          end if

        endif    

     call random_seed()

       randNum=my_random(0.0,200.0)

       print*,'你背着爆破筒，紧紧端着武器，机警地观察着前方的情况'

       if(randNum>=0.0.and.randNum<=100.0) then

       print*,'你发现暗堡中的机枪正向右边瞄准'

       print*,'你心中一沉，决定：'

       print*,'1，向右翻身，寻找掩蔽，2，合身向左边扑去'

        read*,move

        if(move>1.5) then !这么做是对的

         if(randNum>0.0.and.randNum<=120) then

         print*,'你躲闪过了射来的子弹'

         mover=(mover+2-js)

         print*,mover

         elseif(randNum>120.and.randNum<=200.0) then

         print*,'纵使你果断地做出了反应，子弹还是'

         goto 9502

         end if

        elseif(move<1.5) then !这么做是错的

        if(randNum>0.0.and.randNum<=180) then

         print*,'敌人的射击封锁了你前进的路线'

         goto 9502

         elseif(randNum>180.and.randNum<=200.0) then

         print*,'你心中一紧，本以为自己会中弹'

         mover=(mover+2-js)

         print*,mover

         end if

        end if

       elseif(randNum>100.0.and.randNum<=200.0) then

       print*,'你发现暗堡中的机枪正向左边瞄准'

       print*,'你心中一沉，决定：'

       print*,'1，向右翻身，寻找掩蔽，2，合身向左边扑去'

       read*,move

        if(move<1.5) then !这么做是对的

        if(randNum>0.0.and.randNum<=120) then

         print*,'你躲闪过了射来的子弹'

         mover=(mover+2-js)

      print*,mover

         elseif(randNum>120.and.randNum<=200.0) then

         print*,'纵使你果断地做出了反应，子弹还是'

         goto 9502

         end if

        elseif(move>1.5) then !这么做是错的

         if(randNum>0.0.and.randNum<=180) then

         print*,'敌人的射击封锁了你前进的路线'

         goto 9502

         elseif(randNum>180.and.randNum<=200.0) then

         print*,'你心中一紧，本以为自己会中弹'

         mover=(mover+2-js)

         print*,mover

         end if

        end if

       end if

       end do

9502 call random_seed()

        randNum=my_random(0.0,200.0)

        if(randNum<=60.0.and.randNum>=0) then

        print*,'数发子弹呼啸着钻进了你的左大腿'

        hp=(hp-70)

        goto 9500

        elseif(randNum>60.0.and.randNum<=120.0) then

        print*,'好几发子弹呼啸着钻进了你的右大腿'

        hp=(hp-70)

        goto 9500

        elseif(randNum>120.0.and.randNum<=200.0) then

        print*,'几发流弹打中了你的肚子，你捂着肚子倒了下去'

        hp=(hp-70)

        goto 9503

        end if

9503 print*,'你没有想到，腹部被暗堡中的机枪打中居然会产生如此的痛楚'

     print*,'你已经不敢再去检查被鲜血染的通红的腹部伤口，但你知道'

        print*,'你的时间，恐怕不多了，'

        print*,'你叹了口气，腹部的大出血根本不能用止血带处理'

        print*,'没时间犹豫，你掏出急救包，强忍着眼前发黑的剧痛翻找着'

        print*,'你的身上有',zxd,'条止血带',bandage,'卷绷带',trangle,'块三角巾'

        print*,'开放的大伤口让你无从着手，但必须冷静下来，否则，真的会倒在这里'

        print*,'你下定决心，1：用绷带包扎，2，用三角巾包扎'

        read*,jijiu

        if(jijiu>1.5)then

          if(trangle>=1) then

          print*,'你按照战前的训练，以标准的动作包扎着这“不标准”的伤口'

          print*,'白色的纱布瞬间被涌出的鲜血和脏器染红，勒紧绷带结的时候'

          hp=(hp+45)

          trangle=(trangle-1)

          print*,'眼前一阵一阵的发黑，但你几乎已经没有呻吟的力气了'

          print*,'默不吭声，你翻过身来，任由鲜血在身后、身下晕出一片血泊'

          fbzd=(fbzd+1)

          print*,'你咬咬牙，坚定意志，又开始了匍匐前进'

          goto 9501

          elseif(trangle<1) then

          print*,'你费力地在急救包里翻找着，却没有找到适合包扎的纱布'

          print*,'由于之前用手按压伤口，你的手上满是血渍，你抽出手来在旁边抹了一下'

          print*,'继续全神贯注的在溅上鲜血，绣着红十字的药箱里寻找着替代品'

       if(bandage>=1) then

              print*,'你发现还有几条绷带能用，虽然这点根本无法应付腹部的重伤'

              print*,'你麻木的撕开绷带，然后开始往自己的腹部伤口上缠，'

              print*,'绕了几圈后，你苦笑了一下——半截绷带连肚子上的弹孔都无法覆盖'

        print*,'没有做过多尝试，你右手抓住武器，左手拉紧另一端没法系好的绷带头'

              bandage=(bandage-1)

              hp=(hp+35)

              print*,'用右臂承受着全身的力气，翻身继续艰难的朝着目标挪动'

              fbzd=(fbzd+1)

              goto 9501

              elseif(bandage<1)then

              print*,'你摸了个空，染满血渍的手停住了，医疗箱里一卷绷带都没有'

              print*,'“连这个... ...都用完了吗... ...”'

              print*,'但你想起之前救下来的战友，丝毫没有后悔'

              print*,'或者说，当你选择了这个任务，就没有后悔的可能了。'

              print*,'你咬咬牙，用颤抖的手虚弱的摁住伤口，艰难的向前继续挪动'

              fbzd=(fbzd+1)

           goto 9501

              end if

          end if

        

         elseif(jijiu<1.5) then !计算绷带包扎情况

           if(bandage>=1) then

              print*,'你想都没想，撕开一卷绷带就往肚子上缠'

              print*,'可是没能注意，绷带并不适合包扎腹部伤口，何况还这么严重'

          print*,'白色的纱布瞬间被涌出的鲜血和脏器染红'

          print*,'不过，你没有纠结包扎的是否有效，不断威胁着大部队的暗堡，'

          print*,'才是你眼中最重要的事情，你左手扯紧最后无法打结的那段绷带'

          hp=(hp+35)

          bandage=(bandage-1)

          print*,'默不吭声，翻过身来，任由鲜血在身后、身下晕出一片血泊'

          fbzd=(fbzd+1)

          print*,'你咬咬牙，坚定意志，又开始了匍匐前进'

          goto 9501

              elseif(bandage<1)then

              print*,'你费力地在急救包里翻找着，却没有找到适合包扎的纱布'

          print*,'由于之前用手按压伤口，你的手上满是血渍，你抽出手来在旁边抹了一下'

          print*,'继续全神贯注的在溅上鲜血，绣着红十字的药箱里寻找着替代品'

       if(trangle>=1) then

              print*,'你发现还有几条三角巾能用，虽然这点应付腹部的重伤也很勉强'

              print*,'你麻木的展开三角，然后开始往自己的腹部伤口上缠，'

              print*,'你叹了口气——三角巾很难扎紧，特别是在重伤虚弱的情况下'

        print*,'没有做过多尝试，你右手抓住武器，左手拉紧另一端的绷带头'

              trangle=(trangle-1)

              hp=(hp+45)

              print*,'用右臂承受着全身的力气，翻身继续艰难的朝着目标挪动'

              fbzd=(fbzd+1)

              goto 9501

              elseif(trangle<1)then

              print*,'你摸了个空，染满血渍的手停住了，医疗箱里一卷三角巾都没有'

              print*,'三角巾本应是包扎的首要选择'

              print*,'“都... ...都用完了吗... ...”'

              print*,'但你想起之前救下来的战友，丝毫没有后悔'

              print*,'或者说，当你选择了这个任务，就没有后悔的可能了。'

              print*,'你咬咬牙，用颤抖的手虚弱的摁住伤口，艰难的向前继续挪动'

              fbzd=(fbzd+1)

              goto 9501

              end if

              end if

              end if

9509  print*,'由于耐力值清零而牺牲在半路上'

      goto 0721

9510  if(lxbs<=3)then

      print*,'你摧毁了那个暗堡，幸存'

         else if(hp<=0)then

      print*,'你摧毁了那个暗堡，牺牲'

         goto 0721

         elseif(lxbs>3) then

         print*,'你摧毁了那个暗堡，牺牲'

         goto 0721

         endif

    end

function my_random (lbound,ubound)

implicit none

 real :: lbound,ubound

 real :: len

 real :: my_random

 real :: t

 len=ubound-lbound 

 call random_number(t) 

 my_random=lbound+len*t

 return

  read(*,*)

  end