背景：
阅读新闻

隐身挑拨和平混乱通灵音乐6合1脚本

[日期：2006-12-15] 来源：  作者：作者: Skyttl3 汉化: Crystal(复兴世纪) [字体：大 中 小]

;==================================
; 脚本名称: 新人必备多功能脚本
; 作者: Skyttl3
; 汉化: Crystal(复兴世纪)
; 版本: 2.0
; 支持客户端: 4.0.6a
; EasyUO版本支持: 1.42.009D
; Shard OSI / FS: Both
; 修正日期: 01/03/04
; 发行日期: 09/16/04
; Global Variables Used:
; 脚本目标: 训练 隐身, 挑拨, 和平, 混乱, 通灵, 以及 音乐。
; Script contributed in Anti - UMP
;==================================
;==================================
; 更新日志:
; Vr. 1.0
; 脚本创建
; Vr. 1.1
; * Fixed bug with Explosion (Hotkey "4") in ChainSawMassacre.Skyttl3" -> "Where's my protection?"
; * Added hotkey for "OpenDoor" (ESC) in "ChainSawMassacre.Skyttl3" -> "Where's my protection?"
; Vr 1.2
; * Added hotkey for "Refresh Menu" (9) in "ChainSawMassacre.Skyttl3" -> "Where's my protection?"
; Vr 1.4
;  Added 8x8 method to mostly every skill supported.
; Vr. 2.0
; * 重新改写代码. 体积更小，运行速度更快，效率更高。
; * 现在可以支持更多.
; * 脚本改进完毕.
; * 将"Wheres My Protection?"从脚本中移去.
;   - Please visit my E-ZProtect.Skyttl3 for
;   + character protection.
;==================================
;===== 下面内容不要修改 ======
menu hideeuo
gosub showeuomenu1

loop:
gosub bloop
goto loop

sub closed
   menu Hide
halt

sub bloop
if ! %menubloop 2
set #menubutton n/a
set %menubutton #true
bloop:
if #menubutton <> n/a
{
gosub #menubutton
set #menubutton n/a
return
}
goto bloop

sub trainhiding
menu get box
if #menuRes = -1
{
 set %8x8 #true
}
else
{
set  %8x8 #false
}
set %skillname Hiding
chooseskill hiding
set %startskill #skill
set %skillvalue #skill
set %gain 0
set %attempts 0
gosub skillsub
display ok 您选择训练隐身.$8x8: %8x8 $$**提示**$$0 为 否$-1 为 是$
if %8x8 = #true
{
msg #smc Slow Forward$
}
LoopHide1:
event Macro 13 21 
set %Attempts %Attempts + 1
 menu Delete attemptlabel
 menu Text attemptlabel 208 68 %Attempts
wait 1s
if %skillvalue < #skill
{
 set %gain %gain + 1
 menu delete gainlabel
 menu Text gainlabel 208 44 %gain
 Menu Delete currentskilllabel
 menu Text currentskilllabel 88 68 #skill
  set %skillvalue #skill
  if %8x8 = #true
   {
        msg #smc Stop$
        for %i 1 8
    {
      msg #smc Forward One$
      wait 1s
    }
   }
  wait 11s
  goto LoopHide1
}
wait 11s
goto LoopHide1
return

sub trainmusic
chooseskill musicianship
set %skillname Musicianship
set %skillvalue #skill
set %startskill #skill
set %gain 0
set %attempts 0
gosub skillsub
display ok 您选择训练音乐 ,$对于音乐技能训练,8x8模式无效.$
LoopMusic1:
findItem MQF_PRF_QRF_LQF C_ ,
if #findKind = -1
{
 display ok 背包中没有乐器!$ 脚本停止!
 menu Hide
 halt
}
set #lobjectid #findid
event Macro 17 0
set %Attempts %Attempts + 1
 menu Delete attemptlabel
 menu Text attemptlabel 208 68 %Attempts
if %skillvalue < #skill
{
 set %skillvalue #skill
 set %gain %gain + 1
 menu delete gainlabel
 menu Text gainlabel 208 44 %gain
 Menu Delete currentskilllabel
 menu Text currentskilllabel 88 68 #skill
}
wait 6s
goto LoopMusic1
return

sub trainprovo
set %skillname Provocation
chooseskill provocation
set %startskill #skill
set %skillvalue #skill
set %gain 0
set %attempts 0
gosub skillsub
LoopProvo1:
display ok 您选择训练挑拨 .$$**注意**$$Ricky DISABLED 8x8 for Provocation!$
display ok 请指定目标动物1.$
set #targcurs 1
loopsetup1:
if #targcurs = 1
{
 goto loopsetup1
}
set %Animal1 #ltargetid
display ok 请指定目标动物2.$
set #targcurs 1
loopsetup2:
if #targcurs = 1
{
 goto loopsetup2
}
set %Animal2 #ltargetid
msg #smc Slow Forward$
loopProvo1:
findItem MQF_PRF_QRF_LQF C_ ,
if #findKind = -1
{
 display ok 背包中没有乐器.$ 脚本停止.$
 halt
}
set #ltargetkind 1
event Macro 13 22
target
set #ltargetid %animal1
event Macro 22 0
target
set #ltargetid %animal2
event Macro 22 0
set %Attempts %Attempts + 1
 menu Delete attemptlabel
 menu Text attemptlabel 208 68 %Attempts
if %skillvalue < #skill
{
 set %skillvalue #skill
 set %gain %gain + 1
 menu delete gainlabel
 menu Text gainlabel 208 44 %gain
 Menu Delete currentskilllabel
 menu Text currentskilllabel 88 68 #skill
 goto LoopProvo2
}
goto loopProvo2

LoopProvo2:
findItem MQF_PRF_QRF_LQF C_ ,
if #findKind = -1
{
 display ok 背包中没有乐器. 教本停止.$
 halt
}
set #ltargetkind 1
event macro 13 22
target
set #ltargetid %animal2
event Macro 22 0
wait 2s
target
set #ltargetid %animal1
event Macro 22 0
set %Attempts %Attempts + 1
 menu Delete attemptlabel
 menu Text attemptlabel 208 68 %Attempts
if %skillvalue < #skill
{
 set %skillvalue #skill
 set %gain %gain + 1
 menu delete gainlabel
 menu Text gainlabel 208 44 %gain
 Menu Delete currentskilllabel
 menu Text currentskilllabel 88 68 #skill
 goto LoopProvo1
}
goto LoopProvo1
return

sub trainPeace
menu get box
if #menuRes = -1
{
 set %8x8 #true
}
else
{
set  %8x8 #false
}
set %skillname PeaceMaking
chooseskill PeaceMaking
set %startskill #skill
set %skillvalue #skill
set %gain 0
set %attempts 0
gosub skillsub
display ok 您选择训练和平 .$8x8: %8x8$$**提示**$$0 为 否$-1 为 是$
if %8x8 = #true
{
msg #smc Slow Forward$
}
LoopPeace1:
findItem MQF_PRF_QRF_LQF C_ ,
if #findKind = -1
{
 display ok 背包中没有乐器.
 menu Hide
 halt
}
set #lobjectid #findid
event Macro 13 9
wait 1s
set #ltargetid #charid
event Macro 22 0
set %Attempts %Attempts + 1
 menu Delete attemptlabel
 menu Text attemptlabel 208 68 %Attempts
if %skillvalue < #skill
{
 set %skillvalue #skill
 set %gain %gain + 1
 menu delete gainlabel
 menu Text gainlabel 208 44 %gain
 Menu Delete currentskilllabel
 menu Text currentskilllabel 88 68 #skill
 if %8x8 = #true
 {
  msg #smc Stop$
  for %i 1 8
  {
   wait 1s
   msg #smc Forward One$
  }
 }
 wait 6s
 goto LoopPeace1
}
wait 6s
goto LoopPeace1
return
sub trainDisc
menu get box
if #menuRes = -1
{
 set %8x8 #true
}
else
{
set  %8x8 #false
}
set %skillname Discordance
chooseskill Discordance
set %startskill #skill
set #skillvalue #skill
set %gain 0
set %attempts 0
gosub skillsub
display ok 请指定您要混乱的目标.$8x8: %8x8 $**Key**$$0 为 否$-1 为 是$
set #targcurs 1
loopDiscSetup:
if #targcurs = 1
{
 goto loopDiscSetup
}
set %Enemy #Ltargetid
wait 1s
goto loopDisc1
loopDisc1:
findItem MQF_PRF_QRF_LQF C_ ,
set #lobjectid #findid
if #findKind = -1
{
 display ok 背包中没有乐器.
 menu Hide
 halt
}
event Macro 13 15
wait 1s
set #ltargetid %Enemy
event Macro 22 0
set %Attempts %Attempts + 1
 menu Delete attemptlabel
 menu Text attemptlabel 208 68 %Attempts
if %skillvalue < #skill
{
 set %skillvalue #skill
 set %gain %gain + 1
 menu delete gainlabel
 menu Text gainlabel 208 44 %gain
 Menu Delete currentskilllabel
 menu Text currentskilllabel 88 68 #skill
 if %8x8 = #true
 {
  msg #smc Stop$
  for %i 1 8
  {
   msg #smc One Forward$
   Wait 1s
  }
 }
 wait 2s
 goto loopDisc1
}
wait 2s
goto loopDisc1

sub trainSpirit
menu get box
if #menuRes = -1
{
 set %8x8 #true
}
else
{
set  %8x8 #false
}
set %skillname SpiritSpeak
chooseskill spiritspeak
set %startskill #skill
set %skillvalue #skill
set %gain 0
set %attempts 0
gosub skillsub
display ok 您选择训练通灵 .$8x8: %8x8 $$**K提示**$$0 为 否$-1 为 是$
display yesno 该部分脚本要使用冥想技能.$使用冥想吗?$
if %8x8 = #true
{
 msg #smc Slow Forward$
}
if #dispRes = NO
{
 set %meditate #false
}
else
{
 set %meditate #true
}
loopSpirit1:
if #mana < 10
{
 if %meditate = #true
 {
  goto meditate
 }
 goto loopSpirit1
}
event Macro 13 32
set %Attempts %Attempts + 1
 menu Delete attemptlabel
 menu Text attemptlabel 208 68 %Attempts
wait 2s
if %skillvalue < #skill
{
 set %gain %gain + 1
 menu delete gainlabel
 menu Text gainlabel 208 44 %gain
 Menu Delete currentskilllabel
 menu Text currentskilllabel 88 68 #skill
 set %skillvalue #skill
 if %8x8 =  #true
 {
  msg #smc Stop$
  for %i 1 8
  {
   msg #smc One Forward$
   wait 1s
  }
 wait 5s
 goto loopSpirit1
 }
}
wait 5s
goto loopSpirit1

meditate:
Event ExMsg #CHARID 3 0 Meditating.
wait 1s
event Macro 13 46
loopmed1:
if #mana < #maxmana
{
 goto loopmed1
}
goto loopSpirit1
return


;--------- EasyUO Menu Designer Code Begin ---------
sub skillsub
 menu Clear
 menu Window Title %skillname - 多功能教本
 menu Window Color WindowText
 menu Window Size 289 105
 menu Font Transparent #true
 menu Font Align Right
 menu Font Name System
 menu Font Size 9
 menu Font Style e
 menu Font Color Lime
 menu Font Transparent #false
 menu Font Align Left
 menu Font BGColor WindowText
 menu Text EUOLabel1 40 6 隐身 音乐 挑拨 和平 混乱 通灵
 menu Font Name 宋体
 menu Font Size 8
 menu Font Style e
 menu Font Color Yellow
 menu Font Transparent #false
 menu Font Align Left
 menu Font BGColor WindowText
 menu Text EUOLabel1 80 28 脚本汉化:Crystal(复兴世纪)
 menu Font Name MS Sans Serif
 menu Font Size 8
 menu Font Style
 menu Font Color Yellow
 menu Text EUOLabel2 20 44 开始:
 menu Text EUOLabel3 20 68 当前:
 menu Font Color White
 menu Text startlabel 88 44 %startskill
 menu Shape EUOShape2 20 60 249 5 3 7 1 Black 7 White
 menu Shape EUOShape3 132 40 5 49 3 7 1 Black 7 Lime
 menu Font Color Yellow
 menu Text EUOLabel4 144 44 提升:
 menu Text EUOLabel5 144 72 尝试:
 menu Shape EUOShape4 192 40 5 49 3 7 1 Black 7 Lime
 menu Shape EUOShape5 64 40 5 49 3 7 1 Black 7 Lime
 menu Font Color White
 menu Show 421 270
return
sub showEUOMenu3
 menu Clear
 menu Window Title %skillname - 多功能教本
 menu Window Color WindowText
 menu Window Size 289 95
 menu Font Transparent #true
 menu Font Align Right
 menu Font Name System
 menu Font Size 9
 menu Font Style e
 menu Font Color Lime
 menu Font Transparent #false
 menu Font Align Left
 menu Font BGColor WindowText
 menu Text EUOLabel1 40 6 隐身 音乐 挑拨 和平 混乱 通灵
 menu Font Name 宋体
 menu Font Size 8
 menu Font Style e
 menu Font Color Yellow
 menu Font Transparent #false
 menu Font Align Left
 menu Font BGColor WindowText
 menu Text EUOLabel1 80 28 脚本汉化:Crystal(复兴世纪)
 menu Font Name MS Sans Serif
 menu Font Size 8
 menu Font Style
 menu Font Color Yellow
 menu Text EUOLabel2 20 44 开始:
 menu Text EUOLabel3 20 68 当前:
 menu Font Color White
 menu Text startlabel 80 44 %startskill
 menu Shape EUOShape2 20 60 249 5 3 7 1 Black 7 White
 menu Text currentskilllabel 88 68 #skill
 menu Shape EUOShape3 132 40 5 49 3 7 1 Black 7 Lime
 menu Font Color Yellow
 menu Text EUOLabel4 144 44 提升:
 menu Text EUOLabel5 144 72 尝试:
 menu Shape EUOShape4 192 40 5 49 3 7 1 Black 7 Lime
 menu Shape EUOShape5 64 40 5 49 3 7 1 Black 7 Lime
 menu Font Color White
 menu Text gainlabel 208 44 %gain
 menu Text attemptlabel 208 68 %Attempts
 menu Show 421 270
return
sub showEUOMenu1
 menu Clear
 menu Window Title 多功能脚本
 menu Window Color WindowText
 menu Window Size 215 97
 menu Font Transparent #true
 menu Font Align Right
 menu Font Name System
 menu Font Size 9
 menu Font Style e
 menu Font Color Lime
 menu Font Transparent #false
 menu Font Align Left
 menu Font BGColor WindowText
 menu Text EUOLabel1 2 15 隐身 音乐 挑拨 和平 混乱 通灵
 menu Font Name 宋体
 menu Font Size 8
 menu Font Style e
 menu Font Color Yellow
 menu Font Transparent #false
 menu Font Align Left
 menu Font BGColor WindowText
 menu Text EUOLabel1 30 40 脚本汉化:Crystal(复兴世纪)
 menu Font Name MS Sans Serif
 menu Font Size 8
 menu Font Style
 menu Font Color White
 menu Button showeuomenu2 36 56 139 21 训练选项
 menu Show 421 270
return
sub showEUOMenu2
 menu Clear
 menu Window Title 多功能脚本
 menu Window Color WindowText
 menu Window Size 277 178
 menu Font Transparent #true
 menu Font Align Right
 menu Font Name System
 menu Font Size 9
 menu Font Style e
 menu Font Color Lime
 menu Font Transparent #false
 menu Font Align Left
 menu Font BGColor WindowText
 menu Text EUOLabel1 30 16 隐身 音乐 挑拨 和平 混乱 通灵
 menu Font Name 宋体
 menu Font Size 8
 menu Font Style e
 menu Font Color Yellow
 menu Font Transparent #false
 menu Font Align Left
 menu Font BGColor WindowText
 menu Text EUOLabel1 60 40 脚本汉化:Crystal(复兴世纪)
 menu Font Name 宋体
 menu Font Size 9
 menu Font Style a
 menu Font Color White
 menu Text EUOLabel2 10 60 请选择一项技能进行训练.
 menu Font Color White
 menu Button trainHiding 32 88 75 21 隐身
 menu Button trainmusic 32 116 75 21 音乐
 menu Button trainprovo 32 144 75 21 挑拨
 menu Button trainpeace 160 88 75 21 和平
 menu Button traindisc 160 116 75 21 混乱
 menu Button trainSpirit 160 144 75 21 通灵
 menu Font Size 9
 menu Font Align Right
 menu Check box 164 56 73 17 #false 使用 8x8
 menu Show 421 270
return
;--------- EasyUO Menu Designer Code End ---------


 

收藏 推荐 打印 | 录入：樊鹏华 | 阅读： 次
动物园挂训兽
知秋脚本_设点驯兽_不用魔法杀动物
相关新闻