smbx吧 关注:1,409贴子:85,446
  • 24回复贴,共1

【脚本】本人自制的一些AI发布帖

只看楼主收藏回复

这是我在本吧发的第三个贴子...经过@661625726abc @Yave_Yu TC520等大佬的帮助下,我学会了一点脚本(虽然很渣
这儿会不定时发布一些我自制的烂AI
希望大佬们别喷死我


1楼2017-08-11 15:40回复
    1.
    脚本:
    With npc(sysval(Param1))
    .facing = Char(1).facing
    Select Case Char(1).x - .x
    Case < 0
    If .facing = 0 then
    .xsp = -3
    Else
    .xsp = 1
    end if
    Case > 0
    If .facing = 1 then
    .xsp = 3
    Else
    .xsp = -1
    end if
    end select
    .ivala = .ivala + 1
    Select Case .ivala
    Case 40
    Select Case Char(1).x - .X
    Case < 0
    If .facing = 0 then
    Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,-6,0,0,0)
    elseif .facing = 1 then
    Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,-3,0,0,0)
    end if
    Case > 0
    If .facing = 1 then
    Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,6,0,0,0)
    elseif .facing = 0 then
    Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,3,0,0,0)
    end if
    end select
    .ivala = 0
    Case else
    end select
    end with


    2楼2017-08-11 15:53
    回复
      2.
      某发癫的快乐云
      脚本:
      With npc(sysval(Param1))
      .ivala = .ivala + 1
      Select Case .ivala
      Case 1
      .xsp = 4
      Case 20
      .facing = 0
      Call Ncreate(336,.X,.Y,-1,-2,0,0)
      Case 40
      .facing = 1
      Call Ncreate(336,.X,.Y,1,-2,0,0)
      Case 60
      .facing = 0
      Call Ncreate(336,.X,.Y,-1,-2,0,0)
      Case 80
      .facing = 1
      Call Ncreate(336,.X,.Y,1,-2,0,0)
      Case 100
      .facing = 0
      Call Ncreate(36,.X,.Y,0,0,0,0)
      .ysp = 8
      .xsp = 5
      Case 140
      .facing = 1
      .ysp = -8
      .xsp = -5
      Case 180
      .ysp = 0
      .xsp = -4
      .curframe = 1
      Case 220
      Call Ncreate(336,.X,.Y,-1,-2,0,0)
      Case 240
      Call Ncreate(336,.X,.Y,1,-2,0,0)
      Case 260
      Call Ncreate(336,.X,.Y,-1,-2,0,0)
      Case 280
      Call Ncreate(336,.X,.Y,1,-2,0,0)
      Case 300
      Call Ncreate(36,.X,.Y,0,0,0,0)
      .ysp = 8
      .xsp = -5
      Case 340
      .facing = 1
      .ysp = -8
      .xsp = 5
      Case 380
      .ysp = 0
      .ivala = 0
      .xsp = 4
      end select
      end with


      3楼2017-08-11 15:55
      回复
        3.
        MJ龟
        脚本:
        With npc(sysval(Param1))
        .ivala = .ivala + 1
        .Ysp = .Ysp + 0.26
        If .Ysp >= 8 Then
        .Ysp = 8
        End if
        If Char(1).x - .x < 0 then
        .facing = 1
        Else
        .facing = 0
        end if
        If abs(Char(1).X - .X) < 200 and .ivala >= 80 then
        Select Case .facing
        Case 0
        .xsp = 1
        Call Ncreate(85,.X,(.Y - 3),4,0,0,0)
        .ivala = 0
        Case 1
        .xsp = -1
        Call Ncreate(85,.X,(.Y - 3),-4,0,0,0)
        .ivala = 0
        end select
        Else
        .ivalb = .ivalb + 1
        Select Case .ivalb
        Case 30
        .facing = 1
        .xsp = -2
        Case 260
        .facing = 0
        .xsp = 2
        .ysp = -5
        Select Case .facing
        Case 0
        Call Ncreate(85,.X,(.Y - 3),4,0,0,0)
        .ivala = 0
        Case 1
        Call Ncreate(85,.X,(.Y - 3),-4,0,0,0)
        end select
        Case 280
        .ysp = 6
        Select Case .facing
        Case 0
        Call Ncreate(85,.X,(.Y - 3),4,0,0,0)
        .ivala = 0
        Case 1
        Call Ncreate(85,.X,(.Y - 3),-4,0,0,0)
        end select
        Case 300
        .ysp = 0
        Case 490
        .ivalb = 0
        end select
        end if
        end with


        4楼2017-08-11 15:56
        收起回复
          4.
          脚本:
          With npc(sysval(Param1))
          .ivala = .ivala + 1
          .Ysp = .Ysp + 0.26
          If .Ysp >= 8 Then
          .Ysp = 8
          End if
          If Char(1).x - .x < 0 then
          .facing = 1
          Else
          .facing = 0
          end if
          Select case .ivala
          Case 20
          If .facing = 0 then
          .xsp = 1
          Elseif .facing = 1 then
          .xsp = -1
          end if
          Case 30
          if .facing = 0 then
          .xsp = 0
          .ysp = -8
          Elseif .facing = 1 then
          .xsp = 0
          .ysp = -8
          end if
          Case 34
          Call Ncreate(133,.X,.Y,5,2.5,0,0)
          Call Ncreate(133,.X,.Y,-5,-2.5,0,0)
          Call Ncreate(133,.X,.Y,-2.5,0,0,0)
          Call Ncreate(133,.X,.Y,5,-2.5,0,0)
          Call Ncreate(133,.X,.Y,-5,2.5,0,0)
          Call Ncreate(133,.X,.Y,-5,0,0,0)
          Call Ncreate(133,.X,.Y,2.5,5,0,0)
          Call Ncreate(133,.X,.Y,-2.5,0,0,0)
          Call Ncreate(133,.X,.Y,2.5,0,0,0)
          Call Ncreate(133,.X,.Y,2.5,-5,0,0)
          Case 50
          If .facing = 0 then
          .xsp = 0
          .ysp = 8
          Elseif .facing = 1 then
          .xsp = 0
          .ysp = 8
          end if
          Case 70
          .ysp = 0
          If .facing = 0 then
          .xsp = -2
          Elseif .facing = 1 then
          .xsp = 2
          end if
          Case 120
          If .facing = 0 then
          .xsp = 1
          Elseif .facing = 1 then
          .xsp = -1
          end if
          Case 140
          if .facing = 0 then
          .xsp = 0
          .ysp = -7
          Elseif .facing = 1 then
          .xsp = 0
          .ysp = -7
          end if
          Call Ncreate(133,.X,.Y,7,2.5,0,0)
          Call Ncreate(133,.X,.Y,-7,-2.5,0,0)
          Call Ncreate(133,.X,.Y,8,-2.5,0,0)
          Call Ncreate(133,.X,.Y,-7,2.5,0,0)
          Call Ncreate(133,.X,.Y,-8,0,0,0)
          Call Ncreate(133,.X,.Y,6,5,0,0)
          Call Ncreate(133,.X,.Y,7,0,0,0)
          Call Ncreate(133,.X,.Y,6,-5,0,0)
          Case 150
          If .facing = 0 then
          .xsp = 0
          .ysp = 7
          Elseif .facing = 1 then
          .xsp = 0
          .ysp = 7
          end if
          Case 170
          if .facing = 0 then
          .xsp = 0
          .ysp = -7
          Elseif .facing = 1 then
          .xsp = 0
          .ysp = -7
          end if
          Call Ncreate(133,.X,.Y,-6,-2.5,0,0)
          Call Ncreate(133,.X,.Y,-6,5,0,0)
          Call Ncreate(133,.X,.Y,2.5,0,0,0)
          Call Ncreate(133,.X,.Y,-6,-5,0,0)
          Case 190
          If .facing = 0 then
          .xsp = 0
          .ysp = 7
          Elseif .facing = 1 then
          .xsp = 0
          .ysp = 7
          end if
          Case 210
          .ysp = 0
          If .facing = 0 then
          .xsp = -3
          Elseif .facing = 1 then
          .xsp = 3
          end if
          Case 240
          .ivala = 0
          end select
          end with


          6楼2017-08-11 16:02
          回复
            膜拜脚本大佬,我能问几个问题吗?param1和ivala是什么变量?npc的hp是用什么变量表示的?char(1)的状态和hp又是用什么变量表示的?感激不尽!


            IP属地:北京来自iPhone客户端7楼2017-08-11 16:07
            收起回复
              5.
              喝了
              脚本:
              With npc(sysval(Param1))
              .ivala = .ivala + 1
              Select Case .ivala
              Case 20
              .ysp = 0
              Call Ncreate(133,.X,.Y,-3,0,0,0)
              Call Ncreate(133,.X,.Y,3,0,0,0)
              Call Ncreate(133,.X,.Y,0,3,0,0)
              Call Ncreate(133,.X,.Y,0,-3,0,0)
              Case 35
              Call Ncreate(133,.X,.Y,-3,1,0,0)
              Call Ncreate(133,.X,.Y,3,-1,0,0)
              Call Ncreate(133,.X,.Y,1,3,0,0)
              Call Ncreate(133,.X,.Y,-1,-3,0,0)
              Call Ncreate(133,.X,.Y,-3,0,0,0)
              Call Ncreate(133,.X,.Y,3,0,0,0)
              Call Ncreate(133,.X,.Y,0,3,0,0)
              Call Ncreate(133,.X,.Y,0,-3,0,0)
              Case 50
              Call Ncreate(133,.X,.Y,-3,2,0,0)
              Call Ncreate(133,.X,.Y,3,-2,0,0)
              Call Ncreate(133,.X,.Y,2,3,0,0)
              Call Ncreate(133,.X,.Y,-2,-3,0,0)
              Call Ncreate(133,.X,.Y,-3,1,0,0)
              Call Ncreate(133,.X,.Y,3,-1,0,0)
              Call Ncreate(133,.X,.Y,1,3,0,0)
              Call Ncreate(133,.X,.Y,-1,-3,0,0)
              Call Ncreate(133,.X,.Y,-3,0,0,0)
              Call Ncreate(133,.X,.Y,3,0,0,0)
              Call Ncreate(133,.X,.Y,0,3,0,0)
              Call Ncreate(133,.X,.Y,0,-3,0,0)
              Case 65
              Call Ncreate(133,.X,.Y,-3,3,0,0)
              Call Ncreate(133,.X,.Y,3,-3,0,0)
              Call Ncreate(133,.X,.Y,3,3,0,0)
              Call Ncreate(133,.X,.Y,-3,-3,0,0)
              Call Ncreate(133,.X,.Y,-3,2,0,0)
              Call Ncreate(133,.X,.Y,3,-2,0,0)
              Call Ncreate(133,.X,.Y,2,3,0,0)
              Call Ncreate(133,.X,.Y,-2,-3,0,0)
              Call Ncreate(133,.X,.Y,-3,1,0,0)
              Call Ncreate(133,.X,.Y,3,-1,0,0)
              Call Ncreate(133,.X,.Y,1,3,0,0)
              Call Ncreate(133,.X,.Y,-1,-3,0,0)
              Call Ncreate(133,.X,.Y,-3,0,0,0)
              Call Ncreate(133,.X,.Y,3,0,0,0)
              Call Ncreate(133,.X,.Y,0,3,0,0)
              Call Ncreate(133,.X,.Y,0,-3,0,0)
              Case 80
              Call Ncreate(133,.X,.Y,-3,4,0,0)
              Call Ncreate(133,.X,.Y,3,-4,0,0)
              Call Ncreate(133,.X,.Y,4,3,0,0)
              Call Ncreate(133,.X,.Y,-4,-3,0,0)
              Case 90
              Call Ncreate(133,.X,.Y,-3,5,0,0)
              Call Ncreate(133,.X,.Y,3,-5,0,0)
              Call Ncreate(133,.X,.Y,5,3,0,0)
              Call Ncreate(133,.X,.Y,-5,-3,0,0)
              Case 105
              Call Ncreate(133,.X,.Y,-3,6,0,0)
              Call Ncreate(133,.X,.Y,3,-6,0,0)
              Call Ncreate(133,.X,.Y,6,3,0,0)
              Call Ncreate(133,.X,.Y,-6,-3,0,0)
              Case 130
              Call Ncreate(133,.X,.Y,-3,4,0,0)
              Call Ncreate(133,.X,.Y,3,-4,0,0)
              Call Ncreate(133,.X,.Y,4,3,0,0)
              Call Ncreate(133,.X,.Y,-4,-3,0,0)
              Case 145
              Call Ncreate(133,.X,.Y,-3,2,0,0)
              Call Ncreate(133,.X,.Y,3,-2,0,0)
              Call Ncreate(133,.X,.Y,2,3,0,0)
              Call Ncreate(133,.X,.Y,-2,-3,0,0)
              Case 160
              Call Ncreate(133,.X,.Y,-3,0,0,0)
              Call Ncreate(133,.X,.Y,3,0,0,0)
              Call Ncreate(133,.X,.Y,0,3,0,0)
              Call Ncreate(133,.X,.Y,0,-3,0,0)
              Case 180
              Call Ncreate(133,.X,.Y,-3,-2,0,0)
              Call Ncreate(133,.X,.Y,3,2,0,0)
              Call Ncreate(133,.X,.Y,-2,3,0,0)
              Call Ncreate(133,.X,.Y,2,-3,0,0)
              Case 195
              Call Ncreate(133,.X,.Y,-3,-4,0,0)
              Call Ncreate(133,.X,.Y,3,4,0,0)
              Call Ncreate(133,.X,.Y,-4,3,0,0)
              Call Ncreate(133,.X,.Y,4,-3,0,0)
              .ivala = 0
              end select
              end with


              8楼2017-08-11 16:08
              收起回复
                喝了这些脚本。


                IP属地:重庆来自Android客户端10楼2017-08-12 09:35
                收起回复
                  菊苣!!!


                  IP属地:浙江14楼2017-08-23 17:09
                  收起回复
                    喝了弹幕敌人


                    15楼2017-08-24 19:30
                    回复
                      啊♂真可怕


                      IP属地:黑龙江来自Android客户端16楼2017-08-29 11:44
                      回复
                        才发现是动图,喝了弹幕。


                        IP属地:广东来自Android客户端18楼2017-08-30 00:35
                        回复