宝石镶嵌-GOM引擎脚本

22pk论坛

()
%100
[@main]
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
ReturnBoxItem 2
ReturnBoxItem 3
ReturnBoxItem 4
ReturnBoxItem 5
ReturnBoxItem 6
ReturnBoxItem 7
OPENMERCHANTBIGDLG 9 654 0 0 0 0 1 263 41
#say
\ \
\ \
\ \
\  <装备打孔>    <镶嵌宝石/@镶嵌宝石>    <摘除宝石/@摘除宝石>\ \ \ \
\       <放入所需/FCOLOR=69>     <放入所需/FCOLOR=69> \
\       <打孔装备/FCOLOR=69>       <材料/FCOLOR=69>\
\          <↓/FCOLOR=116>           <↓/FCOLOR=116> \
\   <ITEMBOX:3:9:655:25:2:45:45:*:254#请放入需要开孔的装备> <ITEMBOX:4:9:655:50:2:45:45:*:254#请放入打孔石> \
\ \ \ \ \ \
\            <开始打孔/@开始打孔>\
[@镶嵌宝石]
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
ReturnBoxItem 2
ReturnBoxItem 3
ReturnBoxItem 4
ReturnBoxItem 5
ReturnBoxItem 6
ReturnBoxItem 7
OPENMERCHANTBIGDLG 9 654 0 0 0 0 1 263 41
#say
\ \
\ \
\ \
\  <装备打孔[url=]/@MAIN[/url]>    <镶嵌宝石>    <摘除宝石/@摘除宝石>\ \ \ \
\       <放入所需/FCOLOR=69>     <放入所需/FCOLOR=69>\
\       <镶嵌装备/FCOLOR=69>       <材料/FCOLOR=69>\
\          <↓/FCOLOR=116>           <↓/FCOLOR=116> \
\   <ITEMBOX:0:9:655:25:2:45:45:*:254#请放入需要镶嵌的装备> <ITEMBOX:1:9:655:50:2:45:45:*:254#请放入所需材料> \
\ \ \ \ \ \
\            <开始镶嵌/@开始镶嵌>\
\ 第一个孔80%成功率  第二个孔70%成功率 \
\ 第三个孔40%成功率  第四个孔15%成功率 \
\ 第五个孔5%成功率\
\<每次镶嵌200W金币> \
[@摘除宝石]
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
ReturnBoxItem 2
ReturnBoxItem 3
ReturnBoxItem 4
ReturnBoxItem 5
ReturnBoxItem 6
ReturnBoxItem 7
OPENMERCHANTBIGDLG 9 654 0 0 0 0 1 263 41
#say
\ \
\ \
\ \
\  <装备打孔[url=]/@MAIN[/url]>    <镶嵌宝石/@镶嵌宝石>    <摘除宝石>\ \
\      <ITEMBOX:2:9:655:25:2:90:90:*:254#请放入需要摘除宝石的装备> \ \ \ \ \
\                 <↑/FCOLOR=116>             \
\           <放入所需摘除装备/FCOLOR=69>\
\ \
\            <摘除第①颗/@摘除81>          \
\            <摘除第②颗/@摘除82>          \
\            <摘除第③颗/@摘除83>          \
\            <摘除第④颗/@摘除84>          \
\            <摘除第⑤颗/@摘除85>          \
\<第一个孔20元宝/FCOLOR=222>\
\<第二个孔50元宝/FCOLOR=222>\
\<第三个孔100元宝/FCOLOR=222>  <打孔成功率100%>\  
\<第四个孔200元宝/FCOLOR=222>\
\<第五个孔300元宝/FCOLOR=222>\
;宝石摘除===============================================
[@摘除81]
#ACT
SetUpgradeItem 2  \\关联OK框
#IF
CHECKGAMEGOLD > 19
CHECKSOCKETABLEITEM -1 0 S1  S2
#ACT
GAMEGOLD - 20
SOCKETABLEITEM * * * * -1 0 * * 0 *
UpDateBoxItem 2
give <$STR(S$2)> 1
#ELSEACT
SendMsg 5 你的元宝不足20个！
break
[@摘除82]
#ACT
SetUpgradeItem 2  \\关联OK框
#IF
CHECKGAMEGOLD > 49
CHECKSOCKETABLEITEM -1 1 S1  S2
#ACT
GAMEGOLD - 50
SOCKETABLEITEM * * * * -1 1 * * 0 *
UpDateBoxItem 2
give <$STR(S$2)> 1
#ELSEACT
SendMsg 5 你的元宝不足50个！
break
[@摘除83]
#ACT
SetUpgradeItem 2  \\关联OK框
#IF
CHECKGAMEGOLD > 99
CHECKSOCKETABLEITEM -1 2 S1  S2
#ACT
GAMEGOLD - 100
SOCKETABLEITEM * * * * -1 2 * * 0 *
UpDateBoxItem 2
give <$STR(S$2)> 1
#ELSEACT
SendMsg 5 你的元宝不足100个！
break
[@摘除84]
#ACT
SetUpgradeItem 2  \\关联OK框
#IF
CHECKGAMEGOLD > 199
CHECKSOCKETABLEITEM -1 3 S1  S2
#ACT
GAMEGOLD - 200
SOCKETABLEITEM * * * * -1 3 * * 0 *
UpDateBoxItem 2
give <$STR(S$2)> 1
#ELSEACT
SendMsg 5 你的元宝不足200个！
break
[@摘除85]
#ACT
SetUpgradeItem 2  \\关联OK框
#IF
CHECKGAMEGOLD > 299
CHECKSOCKETABLEITEM -1 4 S1  S2
#ACT
GAMEGOLD - 300
SOCKETABLEITEM * * * * -1 4 * * 0 *
UpDateBoxItem 2
give <$STR(S$2)> 1
#ELSEACT
SendMsg 5 你的元宝不足300个！
break
;开始制作打孔=============================================================
[@ItemIntoBox4]
#IF
NOT EQUAL <$BOXITEM[4].NAME> 开孔石
#ACT
MESSAGEBOX 提示:该物品不是开孔宝石,无法进行开孔。
ReturnBoxItem 4

[@开始打孔]
#IF
Equal <$BOXITEM[4].NAME>
#ACT
SENDMSG 6 条件不符合
break
#elseact
GOTO @检测OK3
[@检测OK3]
#IF
Equal <$BOXITEM[3].NAME>
#ACT
SENDMSG 6 条件不符合
break
#elseact
GOTO @开始打孔111
[@开始打孔111]
#ACT
SetUpgradeItem 3  \\关联OK
#IF
CHECKDRILLHOLE -1 4
#ACT
MESSAGEBOX 您的孔已经打满了,无法继续打孔

#IF
NOT CHECKDRILLHOLE -1 0
#ACT
Mov <$STR(N$开孔位置)> 0
GOTO @打孔了
break
#elseact
GOTO @打孔2
[@打孔2]
#IF
NOT CHECKDRILLHOLE -1 1
#ACT
Mov <$STR(N$开孔位置)> 1
GOTO @打孔了
break
#elseact
GOTO @打孔3
[@打孔3]
#IF
NOT CHECKDRILLHOLE -1 2
#ACT
Mov <$STR(N$开孔位置)> 2
GOTO @打孔了
break
#elseact
GOTO @打孔4
[@打孔4]
#IF
NOT CHECKDRILLHOLE -1 3
#ACT
Mov <$STR(N$开孔位置)> 3
GOTO @打孔了
break
#elseact
GOTO @打孔5
[@打孔5]
#IF
NOT CHECKDRILLHOLE -1 4
#ACT
Mov <$STR(N$开孔位置)> 4
GOTO @打孔了
break
[@打孔了]
#ACT
DRILLHOLE * * -1 * * <$STR(N$开孔位置)> * 1 * *
DELBOXITEM 4
UpDateBoxItem 3
UpDateBoxItem 4
break
;=========================================================================================

;开始制作镶嵌系统=================================================================


[@ItemIntoBox0]
#ACT
SetUpgradeItem 0
#if
CHECKDRILLHOLE -1 0
#ACT
#elseact
MESSAGEBOX 条件不足:您的装备还未打孔,无法进行镶嵌
ReturnBoxItem 0

[@ItemIntoBox1]
#IF
EQUAL <$BOXITEM[1].NAME> 魔魂石一级
#ACT
MOV <$STR(N$宝石序号)> 536
#IF
EQUAL <$BOXITEM[1].NAME> 魔魂石二级
#ACT
MOV <$STR(N$宝石序号)> 537
#IF
EQUAL <$BOXITEM[1].NAME> 魔魂石三级
#ACT
MOV <$STR(N$宝石序号)> 538
#IF
EQUAL <$BOXITEM[1].NAME> 魔魂石四级
#ACT
MOV <$STR(N$宝石序号)> 539
#IF
EQUAL <$BOXITEM[1].NAME> 武魂石一级
#ACT
MOV <$STR(N$宝石序号)> 540
#IF
EQUAL <$BOXITEM[1].NAME> 武魂石二级
#ACT
MOV <$STR(N$宝石序号)> 541
#IF
EQUAL <$BOXITEM[1].NAME> 武魂石三级
#ACT
MOV <$STR(N$宝石序号)> 542
#IF
EQUAL <$BOXITEM[1].NAME> 武魂石四级
#ACT
MOV <$STR(N$宝石序号)> 543
#IF
EQUAL <$BOXITEM[1].NAME> 道魂石一级
#ACT
MOV <$STR(N$宝石序号)> 544
#IF
EQUAL <$BOXITEM[1].NAME> 道魂石二级
#ACT
MOV <$STR(N$宝石序号)> 545
#IF
EQUAL <$BOXITEM[1].NAME> 道魂石三级
#ACT
MOV <$STR(N$宝石序号)> 546
#IF
EQUAL <$BOXITEM[1].NAME> 道魂石四级
#ACT
MOV <$STR(N$宝石序号)> 547
#IF
NOT CheckTextList ..\QuestDiary\林鸿制作\装备锻造\宝石镶嵌.txt <$BOXITEM[1].NAME>
#ACT
MESSAGEBOX 提示:该物品不是镶嵌宝石,无法镶嵌。
ReturnBoxItem 1
break
[@开始镶嵌]
#ACT
MOVR N$镶嵌几率 0 10
SetUpgradeItem 0
#IF
EQUAL <$BOXITEM[1].NAME>
#ACT
MESSAGEBOX 你没有放入镶嵌石.
break
#IF
EQUAL <$BOXITEM[0].NAME>
#ACT
MESSAGEBOX 你没有放入镶嵌的装备，镶嵌失败。
break
#IF
CHECKSOCKETABLEITEMCOUNT -1 > 4
#ACT
MESSAGEBOX 此装备可容纳宝石的孔槽已满。
break
#IF
NOT CheckGold 2000000
#ACT
MESSAGEBOX 金币不足\每次镶嵌需要200万的金币。
break
#IF
NOT CHECKDRILLHOLE -1 1
CHECKSOCKETABLEITEMCOUNT -1 = 1
#ACT
ReturnBoxItem 0
MESSAGEBOX 此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
NOT CHECKDRILLHOLE -1 2
CHECKSOCKETABLEITEMCOUNT -1 = 2
#ACT
ReturnBoxItem 0
MESSAGEBOX 此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
NOT CHECKDRILLHOLE -1 3
CHECKSOCKETABLEITEMCOUNT -1 = 3
#ACT
ReturnBoxItem 0
MESSAGEBOX 此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
NOT CHECKDRILLHOLE -1 4
CHECKSOCKETABLEITEMCOUNT -1 = 4
#ACT
ReturnBoxItem 5
MESSAGEBOX 此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
CHECKDRILLHOLE -1 0
CHECKSOCKETABLEITEMCOUNT -1 = 0
#ACT
Take 金币 2000000
goto @镶嵌进行1
break
#IF
CHECKDRILLHOLE -1 1
CHECKSOCKETABLEITEMCOUNT -1 = 1
#ACT
Take 金币 2000000
goto @镶嵌进行2
break
#IF
CHECKDRILLHOLE -1 2
CHECKSOCKETABLEITEMCOUNT -1 = 2
#ACT
Take 金币 2000000
goto @镶嵌进行3
break
#IF
CHECKDRILLHOLE -1 3
CHECKSOCKETABLEITEMCOUNT -1 = 3
#ACT
Take 金币 2000000
goto @镶嵌进行4
break
#IF
CHECKDRILLHOLE -1 4
CHECKSOCKETABLEITEMCOUNT -1 = 4
#ACT
Take 金币 2000000
goto @镶嵌进行5
break

[@镶嵌进行1]
#ACT
SetUpgradeItem 0
#IF
Small N$镶嵌几率 6
#ACT
take <$BOXITEM[1].NAME> 1
SOCKETABLEITEM * * * * -1 0 * * <$STR(N$宝石序号)> *
MESSAGEBOX 恭喜镶嵌成功！\镶嵌第一个宝石的几率为80%\“<$BOXITEM[1].NAME>”已融合到“<$BOXITEM[0].NAME>”\的第一个孔槽内。
UpDateBoxItem 0
break
#IF
Large N$镶嵌几率 5
#ACT
take <$BOXITEM[1].NAME> 1
MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第一个宝石的几率为80%\很遗憾，这20%的几率居然让你给碰到了。
break
[@镶嵌进行2]
#ACT
SetUpgradeItem 0
#IF
Small N$镶嵌几率 5
#ACT
take <$BOXITEM[1].NAME> 1
SOCKETABLEITEM * * * * -1 1 * * <$STR(N$宝石序号)> *
MESSAGEBOX 恭喜镶嵌成功！\镶嵌第二个宝石的几率为70%\“<$BOXITEM[1].NAME>”已融合到“<$BOXITEM[0].NAME>”\的第二个孔槽内。
UpDateBoxItem 0
break
#IF
Large N$镶嵌几率 4
#ACT
take <$BOXITEM[1].NAME> 1
MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第二个宝石的几率为70%\很遗憾，这30%的几率居然让你给碰到了。
break
[@镶嵌进行3]
#ACT
SetUpgradeItem 0
#IF
Small N$镶嵌几率 4
#ACT
take <$BOXITEM[1].NAME> 1
SOCKETABLEITEM * * * * -1 2 * * <$STR(N$宝石序号)> *
MESSAGEBOX 恭喜镶嵌成功！\镶嵌第三个宝石的几率为40%\“<$BOXITEM[1].NAME>”已融合到“<$BOXITEM[0].NAME>”\的第三个孔槽内。
UpDateBoxItem 0
break
#IF
Large N$镶嵌几率 3
#ACT
take <$BOXITEM[1].NAME> 1
MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第三个宝石的几率为40%\很遗憾，继续努力吧。
break
[@镶嵌进行4]
#ACT
SetUpgradeItem 0
#IF
Small N$镶嵌几率 2
#ACT
take <$BOXITEM[1].NAME> 1
SOCKETABLEITEM * * * * -1 3 * * <$STR(N$宝石序号)> *
MESSAGEBOX 恭喜镶嵌成功！\镶嵌第四个宝石的几率为15%\“<$BOXITEM[1].NAME>”已融合到“<$BOXITEM[0].NAME>”\的第四个孔槽内。
UpDateBoxItem 0
break
#IF
Large N$镶嵌几率 1
#ACT
take <$BOXITEM[1].NAME> 1
MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第四个宝石的几率为15%\很遗憾，继续努力吧。
break
[@镶嵌进行5]
#ACT
SetUpgradeItem 0
#IF
Small N$镶嵌几率 1
#ACT
take <$BOXITEM[1].NAME> 1
SOCKETABLEITEM * * * * -1 4 * * <$STR(N$宝石序号)> *
MESSAGEBOX 恭喜镶嵌成功！\镶嵌第五个宝石的几率为5%\“<$BOXITEM[1].NAME>”已融合到“<$BOXITEM[0].NAME>”\的第五个孔槽内。
UpDateBoxItem 0
break
#IF
Large N$镶嵌几率 0
#ACT
take <$BOXITEM[1].NAME> 1
MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第五个宝石的几率为5%\很遗憾，还有机会的，继续努力吧。
break
;========================================================================================
[@自定义窗口]
#IF
#ACT
ADDBUTTON 4 1 0 2 1 10 200 1 -1 自定义按钮1\测试增加按钮


[@首饰盒]
#IF
#ACT
SetSndaItemBox * * 8888 * * * * * 6666 * *

jj斗地主

从baidu基本不能来人了

青帝

怎么回事!!!!

廉政英雄

有空一起交流一下

完美世界

支持一下吧，确实是不错的贴子。

美眉校探

楼主强呀，正如老子所云：大音希声，大象无形。

法外风云

谁都不容易啊 ~~

绝代双骄

支持~~

天气预报

楼主出门来财，儿孙满堂！

野猪大改造

为她学一首歌，如果可能，结婚时当着大家的面唱给她听。