herom2引擎自动上号说话走动的智能假人脚本

增加人气脚本，大家按照目录对应的文本把内容复制到你传奇的对应文本就可
[@执行跟随1]
#act
GetRandomText .QuestDiary固定数据行动.txt S5
GMEXECUTE 追杀 <$STR(S5)>
DelayGoto 1000 @回城
goto @随机飞啊
break

[@回城]
#IF
#act
GetRandomText .QuestDiary固定数据传送数据.txt S6
mapmove <$STR(S6)>
break


[@执行跟随]
#IF
IsOnMap 3
#act
goto @随机飞啊
break
#IF
IsOnMap 001
#act
goto @随机飞啊
break
#IF
IsOnMap GA0
#act
goto @随机飞啊
break

[@随机飞啊]

#IF
random 7
#ACT
GetRandomText .QuestDiary固定数据试炼表情.txt S10
MOVR P8 3
INC P8 333
MOVR P7 3
INC P7 266
mapmove 0 <$STR(P8)> <$STR(P7)>
GMEXECUTE 表情 <$STR(S10)>
DelayCall 6000 @267320059
BREAK

#IF
random 6
#ACT
MOVR P8 3
INC P8 649
MOVR P7 3
INC P7 629
mapmove 0 <$STR(P8)> <$STR(P7)>
GetRandomText .QuestDiary固定数据试炼表情.txt S10
GetRandomText .QuestDiary固定数据喊话系统二.txt S99
GMEXECUTE 表情 <$STR(S10)>
GuildNoticeMsg 0 151 (!)%s:<$STR(S99)> MAP
DelayCall 7000 @267320059
BREAK

#IF
random 5
#ACT
GetRandomText .QuestDiary固定数据试炼表情.txt S10
MOVR P8 3
INC P8 288
MOVR P7 3
INC P7 615
mapmove 0 <$STR(P8)> <$STR(P7)>
GMEXECUTE 表情 <$STR(S10)>
DelayCall 8000 @267320059
BREAK

#IF
random 4
#ACT
GetRandomText .QuestDiary固定数据试炼表情.txt S10
MOVR P8 3
INC P8 147
MOVR P7 3
INC P7 337
mapmove 5 <$STR(P8)> <$STR(P7)>
GetRandomText .QuestDiary固定数据喊话系统二.txt S99
GMEXECUTE 表情 <$STR(S10)>
GuildNoticeMsg 0 151 (!)%s:<$STR(S99)> MAP
DelayCall 9000 @267320059
BREAK


#IF
random 3
#ACT
GetRandomText .QuestDiary固定数据试炼表情.txt S10
MOVR P8 3
INC P8 177
MOVR P7 3
INC P7 324
mapmove 11 <$STR(P8)> <$STR(P7)>
GetRandomText .QuestDiary固定数据喊话系统一.txt S99
GMEXECUTE 表情 <$STR(S10)>
GuildNoticeMsg 0 151 (!)%s:<$STR(S99)> MAP
DelayCall 4000 @267320059
BREAK


#IF
random 2
#ACT
GetRandomText .QuestDiary固定数据试炼表情.txt S10
MOVR P8 3
INC P8 242
MOVR P7 3
INC P7 202
mapmove 4 <$STR(P8)> <$STR(P7)>
GetRandomText .QuestDiary固定数据喊话系统一.txt S99
GMEXECUTE 表情 <$STR(S10)>
GuildNoticeMsg 0 151 (!)%s:<$STR(S99)> MAP
DelayCall 3000 @267320059
BREAK
#IF


random 1
#ACT
GetRandomText .QuestDiary固定数据试炼表情.txt S10
MOVR P8 3
INC P8 130
MOVR P7 3
INC P7 150
mapmove 6 <$STR(P8)> <$STR(P7)>
GetRandomText .QuestDiary固定数据喊话系统二.txt S99
GMEXECUTE 表情 <$STR(S10)>
GuildNoticeMsg 0 151 (!)%s:<$STR(S99)> MAP
DelayCall 2000 @267320059
BREAK


[@267320059]
#IF
random 8
#ACT
GetRandomText .QuestDiary固定数据试炼表情.txt S10
CHANGEEXP + 1000
MOVR P8 18
INC P8 321
MOVR P7 17
INC P7 323传奇服务端
mapmove 3 <$STR(P8)> <$STR(P7)>
GetRandomText .QuestDiary固定数据喊话系统.txt S99
GMEXECUTE 表情 <$STR(S10)>
GuildNoticeMsg 0 151 (!)%s:<$STR(S99)> MAP
DelayCall 286000 @随机飞啊
BREAK

#IF
random 7
#ACT
CHANGEEXP + 1000
MOVR P8 18
INC P8 321
MOVR P7 17
INC P7 323
mapmove 3 <$STR(P8)> <$STR(P7)>
DelayCall 196000 @随机飞啊
BREAK

#IF
random 6
#ACT
CHANGEEXP + 1000
MOVR P8 18
INC P8 321
MOVR P7 17
INC P7 323
mapmove 3 <$STR(P8)> <$STR(P7)>
DelayCall 176000 @随机飞啊
BREAK

#IF
random 5
#ACT
CHANGEEXP + 1000
MOVR P8 18
INC P8 321
MOVR P7 17
INC P7 323
mapmove 3 <$STR(P8)> <$STR(P7)>
DelayCall 156000 @随机飞啊
BREAK

激动人心，无法言表！

淡定，淡定，淡定……

真是被感动的痛哭流涕……

激动人心，无法言表！

感恩无私的分享与奉献 :)

无回帖，不论坛，这才是人道。

激动人心，无法言表！

真是被感动的痛哭流涕……

真是被感动的痛哭流涕……