|
[传奇脚本]GOM引擎传奇开区时福利夺宝脚本一条龙记录总抽奖次数实例教程 使用说明：使用变量G387记录总抽奖次数，U20记录玩家抽奖次数。 A371-A385 G370-G385分别为抽奖物品名称及数量 G386为读取控制
[@main]
#if
#act
delaygoto 200 @福利夺宝
break
[@福利夺宝]
#if
EQUAL G386 0
#act
MOV G386 1
MOV G387 0
OPENMERCHANTBIGDLG 111 20 1 4 0 -80 0 745 0
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 0 A370 G370
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 1 A371 G371
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 2 A372 G372
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 3 A373 G373
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 4 A374 G374
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 5 A375 G375
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 6 A376 G376
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 7 A377 G377
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 8 A378 G378
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 9 A379 G379
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 10 A380 G380
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 11 A381 G381
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 12 A382 G382
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 13 A383 G383
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 14 A384 G384
GetListString ..\QuestDiary\福利夺宝\夺宝物品.txt 15 A385 G385
#if
#act
OPENMERCHANTBIGDLG 111 20 1 4 0 -80 0 745 0
MOV S$福利1 <$STR(G370)>
MOV S$福利2 <$STR(G371)>
MOV S$福利3 <$STR(G372)>
MOV S$福利4 <$STR(G373)>
MOV S$福利5 <$STR(G374)>
MOV S$福利6 <$STR(G375)>
MOV S$福利7 <$STR(G376)>
MOV S$福利8 <$STR(G377)>
MOV S$福利9 <$STR(G378)>
MOV S$福利10 <$STR(G379)>
MOV S$福利11 <$STR(G380)>
MOV S$福利12 <$STR(G381)>
MOV S$福利13 <$STR(G382)>
MOV S$福利14 <$STR(G383)>
MOV S$福利15 <$STR(G384)>
MOV S$福利16 <$STR(G385)>
SetStringBlank <$STR(S$福利1)> 7 1
SetStringBlank <$STR(S$福利2)> 8 1
SetStringBlank <$STR(S$福利3)> 8 1
SetStringBlank <$STR(S$福利4)> 8 1
SetStringBlank <$STR(S$福利5)> 8 1
SetStringBlank <$STR(S$福利6)> 8 1
SetStringBlank <$STR(S$福利7)> 8 1
SetStringBlank <$STR(S$福利8)> 8 1
SetStringBlank <$STR(S$福利9)> 9 1
SetStringBlank <$STR(S$福利10)> 9 1
SetStringBlank <$STR(S$福利11)> 9 1
SetStringBlank <$STR(S$福利12)> 9 1
SetStringBlank <$STR(S$福利13)> 9 1
SetStringBlank <$STR(S$福利14)> 9 1
SetStringBlank <$STR(S$福利15)> 9 1
SetStringBlank <$STR(S$福利16)> 9 1
#say
\ \ \
<ImgEx:111:25:26:26:755:-22/@exit> \ \
<> <幸运夺宝4880次以内必出一下全部物品奖励，全靠拼运气一切看脸，每次夺宝都可以获得50至尊币/SCOLOR=253>\
<> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <【夺宝地图说明】/SCOLOR=119>\
<> <100/SCOLOR=250>|{<$STR(S$福利1)>/SCOLOR=250}<80/SCOLOR=250>|{<$STR(S$福利2)>/SCOLOR=250}<40/SCOLOR=250>|{<$STR(S$福利3)>/SCOLOR=250}<30/SCOLOR=250>|{<$STR(S$福利4)>/SCOLOR=250}<20/SCOLOR=250>|{<$STR(S$福利5)>/SCOLOR=250}<20/SCOLOR=250>|{<$STR(S$福利6)>/SCOLOR=250}<15/SCOLOR=250>|{<$STR(S$福利7)>/SCOLOR=250}<10/SCOLOR=250>|{<$STR(S$福利8)>/SCOLOR=250}\
<> <itemshow:40:0:7:20:0> <itemshow:710:0:10:20:0> <itemshow:711:0:22:23:0> <itemshow:704:0:37:17:0> <itemshow:705:0:48:20:0> <itemshow:706:0:47:15:0> <itemshow:712:0:44:8:0> <itemshow:713:0:35:8:0>\
<> <《夺宝奇兵专属地图》/SCOLOR=250> \ \
<> <条件:个人夺宝次数达到100次/SCOLOR=250> \
<> <进入夺宝奇兵专属/@夺宝奇兵地图> \
<> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251> <总数/SCOLOR=251>|<剩余/SCOLOR=251>\
<> <8/SCOLOR=250>|{<$STR(S$福利9)>/SCOLOR=250}<15/SCOLOR=250>|{<$STR(S$福利10)>/SCOLOR=250}<10/SCOLOR=250>|{<$STR(S$福利11)>/SCOLOR=250}<2/SCOLOR=250>|{<$STR(S$福利12)>/SCOLOR=250}<5/SCOLOR=250>|{<$STR(S$福利13)>/SCOLOR=250}<3/SCOLOR=250>|{<$STR(S$福利14)>/SCOLOR=250}<2/SCOLOR=250>|{<$STR(S$福利15)>/SCOLOR=250}<1/SCOLOR=250>|{<$STR(S$福利16)>/SCOLOR=250}\
<> <itemshow:3:0:0:13:0> <itemshow:707:0:-13:6:0> <itemshow:708:0:-39:6:0> <itemshow:709:0:-67:5:0> <itemshow:670:0:-82:13:0> <itemshow:671:0:-83:13:0> <itemshow:672:0:-87:15:0> <itemshow:663:0:-90:6:0>\
<> <《夺宝先锋专属地图》/SCOLOR=254> \ \
<> <条件:个人夺宝次数达到300次/SCOLOR=254> \
<> <进入夺宝先锋专属/@夺宝先锋地图> \
<> {本区夺宝箱总共已抽奖次数:【<$STR(G387)>】/SCOLOR=250} \
\ \
<> {你当前的抽奖次数:【<$STR(U20)>】/SCOLOR=253} <《夺宝圣手专属地图》/SCOLOR=253>\
<> {你当前拥有夺宝点:【<$CREDITPOINT>】/SCOLOR=254} \
<> <ImgEx:111:22:21:21:0:-33/@夺宝一次><全区抽到4880次，全部剩余奖品全部归他/AUTOCOLOR=254,251,168,191,250,242,245,249,253><ImgEx:111:24:23:23:0:-33/@夺宝十次> <条件:个人夺宝次数达到500次/SCOLOR=253> \
<> {【夺宝说明】每次夺宝需要消耗/SCOLOR=249} 1<夺宝点/SCOLOR=249> <进入夺宝圣手专属/@夺宝圣手地图> \
\ \
<> <抽奖达到100次 可以获得/SCOLOR=161><夺宝奇兵/SCOLOR=250><称号附带 50%爆率加成/SCOLOR=161><天魔终结【万能石】*100/SCOLOR=250> <点我领取夺宝奇兵/@领取奇兵>\
<> <抽奖达到300次 可以获得/SCOLOR=161><夺宝先锋/SCOLOR=250><称号附带100%爆率加成/SCOLOR=161><天魔终结【万能石】*200/SCOLOR=250> <点我领取夺宝先锋/@领取先锋> <《天下第一专属地图》/SCOLOR=58> \
<> <抽奖达到500次 可以获得/SCOLOR=161><夺宝圣手/SCOLOR=250><称号附带150%爆率加成/SCOLOR=161><天魔终结【万能石】*300/SCOLOR=250> <点我领取夺宝圣手/@领取圣手>\
<> <抽奖达到800次 可以获得/SCOLOR=161><天下第一/SCOLOR=250><称号附带200%爆率加成/SCOLOR=161><天魔终结【万能石】*400/SCOLOR=250> <点我领取天下第一/@天下第一> <条件:个人夺宝次数达到800次/SCOLOR=58> \
<> <若是本区抽奖超过4880次 依旧可以继续抽奖 虽无奖品 但仍可获得夺宝称号及爆率,和夺宝地图/SCOLOR=239> <进入天下第一专属/@天下第一地图>\
<> <本区夺宝总次数达到一定次数后,全区爆率会永久提升!!/SCOLOR=239> <详细爆率加成规则点我|^ ^215#全区夺宝次数达到500次---全区爆率提升0.2倍^ ^254#全区夺宝次数达到1000次---全区爆率提升0.4倍^ ^151#全区夺宝次数达到1500次---全区爆率提升0.6倍^ ^242#全区夺宝次数达到2000次---全区爆率提升0.8倍^ ^253#全区夺宝次数达到3000次---全区爆率提升1.0倍^ ^253#全区夺宝次数达到4000次---全区爆率提升1.5倍^ ^70# 该爆率加成可与夺宝系列称号叠加!>\
<PlayImg:118:395:10:100:-36:-443:0:><PlayImg:118:395:12:100:-196:-443:0:><PlayImg:118:395:12:100:-350:-443:0:><PlayImg:118:395:12:100:-504:-443:0:><PlayImg:118:395:12:100:-655:-443:0:><PlayImg:118:395:12:100:-812:-443:0:><PlayImg:118:395:12:100:-964:-443:0:><PlayImg:118:395:12:100:-1114:-443:0:>\ \ \ \ \ \ \
<PlayImg:118:395:12:100:-36:-443:0:><PlayImg:118:395:12:100:-196:-443:0:><PlayImg:118:395:12:100:-350:-443:0:><PlayImg:118:395:12:100:-504:-443:0:><PlayImg:118:395:12:100:-655:-443:0:><PlayImg:118:395:12:100:-808:-443:0:><PlayImg:118:395:12:100:-964:-443:0:><PlayImg:118:395:12:100:-1114:-443:0:>\
;-----------------------------------------------------------
[@领取奇兵]
#if
LARGE U20 99
EQUAL U21 0
#ACT
MOV U21 1
CONFERTITLE 夺宝奇兵
GIVE 天魔终结【万能石】 100
;#CALL [\福利夺宝\夺宝爆率.txt] @爆率加成
MESSAGEBOX 恭喜您获得夺宝奇兵称号，请在人物-称号面板查看！
#elseact
MESSAGEBOX 1、您的抽奖次数没有达到100次；\\2、请从上到下依次领取称号！
break
[@领取先锋]
#if
LARGE U20 299
EQUAL U21 1
#ACT
MOV U21 2
CONFERTITLE 夺宝先锋
DEPRIVETITLE 天下第一
DEPRIVETITLE 夺宝圣手
DEPRIVETITLE 夺宝奇兵
GIVE 天魔终结【万能石】 200
;#CALL [\福利夺宝\夺宝爆率.txt] @爆率加成
MESSAGEBOX 恭喜您获得夺宝先锋称号，请在人物-称号面板查看！
#elseact
MESSAGEBOX 1、您的抽奖次数没有达到300次；\\2、请从上到下依次领取称号！
break
[@领取圣手]
#if
LARGE U20 499
EQUAL U21 2
#ACT
MOV U21 3
CONFERTITLE 夺宝圣手
DEPRIVETITLE 天下第一
DEPRIVETITLE 夺宝先锋
DEPRIVETITLE 夺宝奇兵
GIVE 天魔终结【万能石】 300
;#CALL [\福利夺宝\夺宝爆率.txt] @爆率加成
MESSAGEBOX 恭喜您获得夺宝圣手称号，请在人物-称号面板查看！
#elseact
MESSAGEBOX 1、您的抽奖次数没有达到500次；\\2、请从上到下依次领取称号！
break
[@天下第一]
#if
LARGE U20 799
EQUAL U21 3
#ACT
MOV U21 4
CONFERTITLE 天下第一
DEPRIVETITLE 夺宝圣手
DEPRIVETITLE 夺宝先锋
DEPRIVETITLE 夺宝奇兵
GIVE 天魔终结【万能石】 400
;#CALL [\福利夺宝\夺宝爆率.txt] @爆率加成
MESSAGEBOX 恭喜您获得天下第一称号，请在人物-称号面板查看！
#elseact
MESSAGEBOX 1、您的抽奖次数没有达到800次；\\2、请从上到下依次领取称号！
break
;-----------------------------------------------------------
[@夺宝奇兵地图]
#if
LARGE U20 99
#ACT
MAP DBQB
GuildNoticeMsg 222 0 》∶{玩家『<$USERNAME>』进入了【<$mapname>】地图|254:0}{∶|249:0}{『此地图爆率是其他地图数倍，刷新各种BOSS』.....|70:0}
#elseact
MESSAGEBOX 您的抽奖次数没有达到100次无法进入。
break
[@夺宝先锋地图]
#if
LARGE U20 299
#ACT
MAP DBXF
GuildNoticeMsg 222 0 》∶{玩家『<$USERNAME>』进入了【<$mapname>】地图|254:0}{∶|249:0}{『此地图爆率是其他地图数倍，刷新各种BOSS』.....|70:0}
#elseact
MESSAGEBOX 您的抽奖次数没有达到300次无法进入。
break
[@夺宝圣手地图]
#if
LARGE U20 499
#ACT
MAP DBSS
GuildNoticeMsg 222 0 》∶{玩家『<$USERNAME>』进入了【<$mapname>】地图|254:0}{∶|249:0}{『此地图爆率是其他地图数倍，刷新各种BOSS』.....|70:0}
#elseact
MESSAGEBOX 您的抽奖次数没有达到500次无法进入。
break
[@天下第一地图]
#if
LARGE U20 799
#ACT
mapmove TXDY
GuildNoticeMsg 222 0 》∶{玩家『<$USERNAME>』进入了【<$mapname>】地图|254:0}{∶|249:0}{『此地图爆率是其他地图数倍，刷新各种BOSS』.....|70:0}
#elseact
MESSAGEBOX 您的抽奖次数没有达到800次无法进入。
break
;-----------------------------------------------------------
[@夺宝一次]
#IF
CHECKBAGSIZE 1
#elseact
messagebox 对不起!您的身上背包的空格不够1格，请清理后再来！！
break
#IF
CHECKCREDITPOINT > 0
#ACT
CREDITPOINT - 1
INC G387 1
INC U20 1
#CALL [\福利夺宝\夺宝抽奖.txt] @抽奖夺宝
goto @main
break
#elseact
messagebox 对不起!您的夺宝点不够1点，请充值后再来！！
break
[@夺宝十次]
#IF
CHECKCREDITPOINT > 9
#ACT
CREDITPOINT - 10
INC G387 10
INC U20 10
MOV N$次数 10
goto @抽奖10次
goto @main
break
#elseact
messagebox 对不起!您的夺宝点不够10点，请充值后再来！！
break
[@抽奖10次]
#IF
CHECKBAGSIZE 10
#elseact
messagebox 对不起!您的身上背包的空格不够10格，请清理后再来！！
break
#if
LARGE N$次数 0
#ACT
DEC N$次数 1
#CALL [\福利夺宝\夺宝抽奖.txt] @抽奖夺宝
GOTO @抽奖10次
BREAK
[@123123]
#IF
CHECKBAGSIZE 16
#ELSEACT
messagebox 对不起!您的身上背包的空格不够16格，请清理后再来！！
BREAK
#IF
CHECKGAMEPOINT > 887
#ACT
GAMEPOINT - 888
GAMEDIAMOND + 7000
GAMEGIRD + 30000
gamegold + 50000000
GAMEGLORY +3000
INC G387 800
INC U20 800
#ELSEACT
messagebox 对不起!您的游戏点不足888点!!!
break
#IF
#ACT
GIVE <$STR(A370)> 1
#IF
#ACT
GIVE <$STR(A371)> 1
#IF
#ACT
GIVE <$STR(A372)> 1
#IF
#ACT
GIVE <$STR(A373)> 1
#IF
#ACT
GIVE <$STR(A374)> 1
#IF
#ACT
GIVE <$STR(A375)> 1
#IF
LARGE G376 0
#ACT
GIVE <$STR(A376)> 1
DEC G376 1
#IF
#ACT
GIVE <$STR(A377)> 1
#IF
#ACT
GIVE <$STR(A378)> 1
#IF
#ACT
GIVE <$STR(A379)> 1
#IF
#ACT
GIVE <$STR(A380)> 1
#IF
#ACT
GIVE <$STR(A381)> 1
#IF
#ACT
GIVE <$STR(A382)> 1
#IF
#ACT
GIVE <$STR(A383)> 1
#IF
#ACT
GIVE <$STR(A384)> 1
#IF
#ACT
GiveStateItem <$STR(A385)> 1 1 1 1 1 1 1 1
SET [101] 1
ChangeHumAbility 11 + 200000000
#if
#act
goto @main
#IF
LARGE G387 4887
#ACT
mapmove 20 60 44
#ELSEACT
break
#IF
#ACT
GiveStateItem <$STR(A385)> 1 1 1 1 1 1 1 <$STR(G385)>
SET [101] 1
ChangeHumAbility 11 + 200000000
#IF
LARGE G370 0
#ACT
MOV N$元宝 100000
MUL <$STR(N$元宝)> <$STR(G370)>
GAMEGOLD + <$STR(N$元宝)>
MOV N$元宝
MOV G370 0
#IF
LARGE G371 0
#ACT
MOV N$元宝 200000
MUL <$STR(N$元宝)> <$STR(G371)>
GAMEGOLD + <$STR(N$元宝)>
MOV N$元宝
MOV G371 0
#IF
LARGE G372 0
#ACT
MOV N$元宝 500000
MUL <$STR(N$元宝)> <$STR(G372)>
GAMEGOLD + <$STR(N$元宝)>
MOV N$元宝
MOV G372 0
#IF
LARGE G373 0
#ACT
ThrowItem 20 66 44 5 <$STR(A373)> <$STR(G373)>|65535 0 1
MOV G373 0
#IF
LARGE G374 0
#ACT
ThrowItem 20 66 44 5 <$STR(A374)> <$STR(G374)>|65535 0 1
MOV G374 0
#IF
LARGE G375 0
#ACT
ThrowItem 20 66 44 5 <$STR(A375)> <$STR(G375)>|65535 0 1
MOV G375 0
#IF
LARGE G376 0
#ACT
ThrowItem 20 66 44 5 <$STR(A376)> <$STR(G376)>|65535 0 1
MOV G376 0
#IF
LARGE G377 0
#ACT
ThrowItem 20 66 44 8 <$STR(A377)> <$STR(G377)>|65535 0 1
MOV G377 0
#IF
LARGE G378 0
#ACT
ThrowItem 20 66 44 8 <$STR(A378)> <$STR(G378)>|65535 0 1
MOV G378 0
#IF
LARGE G379 0
#ACT
ThrowItem 20 66 44 8 <$STR(A379)> <$STR(G379)>|65535 0 1
MOV G379 0
#IF
LARGE G380 0
#ACT
ThrowItem 20 66 44 8 <$STR(A380)> <$STR(G380)>|65535 0 1
MOV G380 0
#IF
LARGE G381 0
#ACT
ThrowItem 20 66 44 8 <$STR(A381)> <$STR(G381)>|65535 0 1
MOV G381 0
#IF
LARGE G382 0
#ACT
ThrowItem 20 66 44 8 <$STR(A382)> <$STR(G382)>|65535 0 1
MOV G382 0
#IF
LARGE G383 0
#ACT
ThrowItem 20 66 44 8 <$STR(A383)> <$STR(G383)>|65535 0 1
MOV G383 0
#IF
LARGE G384 0
#ACT
ThrowItem 20 66 44 8 <$STR(A384)> <$STR(G384)>|65535 0 1
MOV G384 0
| 
|小黑屋|三下五除二-传奇技术教程-传奇工具-传奇版本库-传奇服务端
( 湘ICP备16009605号-1 )
发表于 2024-8-12 07:36:53