【图片】【脚本】本人自制的一些AI发布帖【smbx吧】

12月25日漏签0天

smbx吧关注：1,451贴子：85,396

5回复贴，共1页

<返回smbx吧

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

取消只看楼主收藏回复

这是我在本吧发的第三个贴子...经过@661625726abc @Yave_Yu TC520等大佬的帮助下，我学会了一点脚本（虽然很渣

）
这儿会不定时发布一些我自制的烂AI
希望大佬们别喷死我

送TA礼物

1楼2017-08-11 15:40回复

脚本：
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

不感兴趣

开通SVIP免广告

某发癫的快乐云

脚本：
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

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

收起回复

脚本：
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

喝了
脚本：
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

收起回复

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧热议榜

5回复贴，共1页

<返回smbx吧

发表回复

发贴请遵守贴吧协议及“七条底线”贴吧投诉

内容:

使用签名档查看全部

发表

保存至快速回贴

日	一	二	三	四	五	六

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

登录百度账号

扫二维码下载贴吧客户端