适用所有引擎的装备加星脚本

pxf375108238

	[@加星] {     如果你拥有足够的金钱，我可以为你用金钱来提升<COLOR=green ☆>装备，\ 每提升一个<COLOR=green ☆>级，属性也相应加强。你需要提升星级吗？\\ <COLOR=green 武器最多升级5点>武器升级属性+1 需200万金币.400.600.800.\ 　　　　　　　　1000)\ <COLOR=green 首饰最多升级3点>首饰升级属性+1 需300万金币. 600.900.)\\ <COLOR=green 独创金币加星><装备加星/@极品加星> <color=red Nwe~~>　　　　　　<离开[url=]/@exit>\\[/url]　　　          　　　 　　 ;----------------------------极品加星 [@极品加星] #ACT checkitembox 放入你想升级的物品 1 118 [@getboxitem118] #IF CHECKVARLIST $CHECKBOXITEM.STDMODE ..\武器类型.txt #ACT MOV S1 $CHECKBOXITEM.ItemExD MOV P0 0 INC P0 $ItemEx.$STR(S1).9 GOTO @检查星级1 break #IF CHECKVARLIST $CHECKBOXITEM.STDMODE ..\防具类型.txt #ACT MOV S1 $CHECKBOXITEM.ItemExD MOV P0 0 INC P0 $ItemEx.$STR(S1).9 GOTO @检查星级2 break #ELSEACT messagebox 你所放入的物品不能进行极品升级！ break ;----------------------------武器部分 [@检查星级1] #IF SMALL p0 5 #ACT MOV P1 <$STR(P0)> INC P1 1 MUL P1 2000000 goto @检查金币值1 #ELSEACT messagebox 极品加星已经达到最高上限，当前武器星级为：<$STR(P0)> break [@检查金币值1] #IF checkgold $str(p1) #ACT goto @检查职业1 #ELSEACT messagebox 你的金币不足，升级当前武器所需要的金币为：<$STR(P1)> break [@检查职业1] #IF checkjob warrior #ACT take 金币 $str(p1) UpgradeUserItemEx $CHECKBOXITEM.ItemExD 0 + 1 UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1 SENDMSG 5 金币加星成功，攻击+1，金币减少<$STR(P1)> break #IF checkjob wizard #ACT take 金币 $str(p1) UpgradeUserItemEx $CHECKBOXITEM.ItemExD 1 + 1 UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1 SENDMSG 5 金币加星成功，魔法+1，金币减少<$STR(P1)> break #IF checkjob taoist #ACT take 金币 $str(p1) UpgradeUserItemEx $CHECKBOXITEM.ItemExD 2 + 1 UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1 SENDMSG 5 金币加星成功，道术+1，金币减少<$STR(P1)> break ;----------------------------防具部分 [@检查星级2] #IF SMALL p0 3 #ACT MOV P1 <$STR(P0)> INC p1 1 MUL P1 3000000 goto @检查金币值2 #ELSEACT messagebox 极品加星已经达到最高上限，当前首饰星级为：<$STR(P0)> break [@检查金币值2] #IF checkgold $str(p1) #ACT goto @检查职业2 #ELSEACT messagebox 你的金币不足，升级当前首饰所需要的金币为：<$STR(P1)> break [@检查职业2] #IF checkjob warrior #ACT take 金币 $str(p1) UpgradeUserItemEx $CHECKBOXITEM.ItemExD 2 + 1 UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1 SENDMSG 5 金币加星成功，攻击+1，金币减少<$STR(P1)> break #IF checkjob wizard #ACT take 金币 $str(p1) UpgradeUserItemEx $CHECKBOXITEM.ItemExD 3 + 1 UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1 SENDMSG 5 金币加星成功，魔法+1，金币减少<$STR(P1)> break #IF checkjob taoist #ACT take 金币 $str(p1) UpgradeUserItemEx $CHECKBOXITEM.ItemExD 4 + 1 UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1 SENDMSG 5 金币加星成功，道术+1，金币减少<$STR(P1)> break }

tiao9009

	有爱共分享，分享共成长{:soso_e100:}

psman

	有爱共分享，分享共成长。{:soso_e128:}

52540348

	有爱共分享，分享共成长。

没有

	不错可以参考用来仿盛大里面

coolshuiq8

	恶意灌水，哼，我才不会那么傻那。

hzz111

	顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

oan2010

	很给力的，收藏了

hzz111

	传世单机，传世单机社区就是给力。

zhouyuanbi

	脚本牛逼~