探魔球脚本

admin

1. [@StdModeFunc77]
   
2. #IF
   
3. CHECKLEVELEX > 0
   
4. #ACT
   
5. MOV P6 0
   
6. MOV P7 0
   
7. SHOWHUMEFFECT 45
   
8. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 0
   
9. GOTO @检测怪物开始
   
10. break
    
11. [@检测怪物开始]
    
12. #IF
    
13. EQUAL S30
    
14. EQUAL P7 0
    
15. #ACT
    
16. SENDMSG 5 方圆百里之内暂时没有魔王的踪影。
    
17. break
    
18. #IF
    
19. EQUAL S30
    
20. #ACT
    
21. break
    
22. #IF
    
23. CHECKMONPOS $STR(S30) $M
    
24. #ACT
    
25. MOV P8 $PARAM(31)
    
26. MOV P9 $PARAM(32)
    
27. INC P6 1
    
28. MOV P7 1
    
29. #ELSEACT
    
30. INC P6 1
    
31. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
    
32. GOTO @检测怪物开始
    
33. break
    
34. #IF
    
35. SMALL P8 $X
    
36. EQUAL P9 $Y
    
37. #ACT
    
38. SENDMSG 5 发现魔王：<$STR(S30)>
    
39. SENDMSG 5 方向：←
    
40. SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
    
41. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
    
42. GOTO @检测怪物开始
    
43. break
    
44. #IF
    
45. LARGE P8 $X
    
46. EQUAL P9 $Y
    
47. #ACT
    
48. SENDMSG 5 发现魔王：<$STR(S30)>
    
49. SENDMSG 5 方向：→
    
50. SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
    
51. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
    
52. GOTO @检测怪物开始
    
53. break
    
54. #IF
    
55. EQUAL P8 $X
    
56. SMALL P9 $Y
    
57. #ACT
    
58. SENDMSG 5 发现魔王：<$STR(S30)>
    
59. SENDMSG 5 方向：↑
    
60. SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
    
61. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
    
62. GOTO @检测怪物开始
    
63. break
    
64. #IF
    
65. EQUAL P8 $X
    
66. LARGE P9 $Y
    
67. #ACT
    
68. SENDMSG 5 发现魔王：<$STR(S30)>
    
69. SENDMSG 5 方向：↓
    
70. SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
    
71. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
    
72. GOTO @检测怪物开始
    
73. break
    
74. #IF
    
75. LARGE P8 $X
    
76. SMALL P9 $Y
    
77. #ACT
    
78. SENDMSG 5 发现魔王：<$STR(S30)>
    
79. SENDMSG 5 方向：↗
    
80. SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
    
81. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
    
82. GOTO @检测怪物开始
    
83. break
    
84. #IF
    
85. LARGE P8 $X
    
86. LARGE P9 $Y
    
87. #ACT
    
88. SENDMSG 5 发现魔王：<$STR(S30)>
    
89. SENDMSG 5 方向：↘
    
90. SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
    
91. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
    
92. GOTO @检测怪物开始
    
93. break
    
94. #IF
    
95. SMALL P8 $X
    
96. LARGE P9 $Y
    
97. #ACT
    
98. SENDMSG 5 发现魔王：<$STR(S30)>
    
99. SENDMSG 5 方向：↙
    
100. SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
     
101. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
     
102. GOTO @检测怪物开始
     
103. break
     
104. #IF
     
105. SMALL P8 $X
     
106. SMALL P9 $Y
     
107. #ACT
     
108. SENDMSG 5 发现魔王：<$STR(S30)>
     
109. SENDMSG 5 方向：↖
     
110. SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
     
111. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
     
112. GOTO @检测怪物开始
     
113. break
     
114. #ELSEACT
     
115. SENDMSG 5 发现魔王：<$STR(S30)>
     
116. SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
     
117. ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
     
118. GOTO @检测怪物开始
     
119. break

复制代码