传奇抢红包脚本代码设置方法

 

(@@InPutString @@InPutInteger )

 

[@开始抢红包]

{

#IF

CheckLevelEx 0

#SAY

\ \ \ \ \ \ \ \

 

$STR(A19)\ \ \ \ \ \

$STR(G22)\ \ \ \ \ \ \

{$STR(A18)/FCOLOR=150}\

{$STR(G23)元宝/FCOLOR=150}\

{$STR(G24)人/FCOLOR=150}\

{$STR(G25)元宝/FCOLOR=150}\

Img:10:1:0:0/@万人领包\ \ \ \

 

 

【我要发红包/@@InPutInteger22(请输入你要发放的红包数目：（一次性最少发放100元宝红包）)】 $STR(U13)\

#ACT

OPENMERCHANTBIGDLG 1 1 1 4 0 0 1 385 6

BREAK

 

 

 

[@万人领包]

#IF

NOT Large G25 0

#ACT

MESSAGEBOX $STR(A18)发放的红包没有了，等待下一个发红包的人吧。

BREAK

 

#IF

CHECKNAMELIST ..\TxData\限制\已领红包.txt

#ACT

MESSAGEBOX 你刚刚领取过$STR(A18)发放的红包了。

BREAK

 

#IF

Random 30

Large G25 20

#ACT

INC G24 1

MOV N$红包中转 $STR(G25)

INC N$红包中转 1

Addnamelist ..\TxData\限制\已领红包.txt

MOVR N$红包金额 1 $STR(N$红包中转)

DEC G25 $STR(N$红包金额)

GAMEGOLD + $STR(N$红包金额)

MESSAGEBOX 恭喜你领取了【$STR(N$红包金额)】个元宝的红包！

GOTO @开始抢红包

BREAK

 

#IF

Random 20

Large G25 20

#ACT

INC G24 1

MOV N$红包中转 $STR(G25)

INC N$红包中转 1

Addnamelist ..\TxData\限制\已领红包.txt

DIV N$红包中转 2

MOVR N$红包金额 1 $STR(N$红包中转)

DEC G25 $STR(N$红包金额)

GAMEGOLD + $STR(N$红包金额)

MESSAGEBOX 恭喜你领取了【$STR(N$红包金额)】个元宝的红包！

GOTO @开始抢红包

BREAK

 

#IF

Random 10

Large G25 20

#ACT

INC G24 1

MOV N$红包中转 $STR(G25)

INC N$红包中转 1

Addnamelist ..\TxData\限制\已领红包.txt

DIV N$红包中转 4

MOVR N$红包金额 1 $STR(N$红包中转)

DEC G25 $STR(N$红包金额)

GAMEGOLD + $STR(N$红包金额)

MESSAGEBOX 恭喜你领取了【$STR(N$红包金额)】个元宝的红包！

GOTO @开始抢红包

BREAK

 

#IF

Random 5

Large G25 20

#ACT

INC G24 1

MOV N$红包中转 $STR(G25)

INC N$红包中转 1

Addnamelist ..\TxData\限制\已领红包.txt

DIV N$红包中转 5

MOVR N$红包金额 1 $STR(N$红包中转)

DEC G25 $STR(N$红包金额)

GAMEGOLD + $STR(N$红包金额)

MESSAGEBOX 恭喜你领取了【$STR(N$红包金额)】个元宝的红包！

GOTO @开始抢红包

BREAK

 

#IF

Large G25 20

#ACT

INC G24 1

MOV N$红包中转 $STR(G25)

INC N$红包中转 1

Addnamelist ..\TxData\限制\已领红包.txt

MOVR N$红包金额 1 20

DEC G25 $STR(N$红包金额)

GAMEGOLD + $STR(N$红包金额)

MESSAGEBOX 恭喜你领取了【$STR(N$红包金额)】个元宝的红包！

GOTO @开始抢红包

BREAK

 

#IF

Large G25 0

#ACT

INC G24 1

MOV N$红包中转 $STR(G25)

INC N$红包中转 1

Addnamelist ..\TxData\限制\已领红包.txt

MOVR N$红包金额 1 $STR(N$红包中转)

DEC G25 $STR(N$红包金额)

GAMEGOLD + $STR(N$红包金额)

MESSAGEBOX 恭喜你领取了【$STR(N$红包金额)】个元宝的红包！

GOTO @开始抢红包

BREAK

 

 

 

[@InPutInteger22]

#IF

Large G25 0

#ACT

MESSAGEBOX $STR(A18)刚刚发放的红包还没被领完，领完你再发吧！\\5分钟内没被领取完的红包将被系统领取哟^_^

MOV N22 0

GOTO @开始抢红包

BREAK

 

#IF

Small N22 100

#ACT

MESSAGEBOX 发放红包太少了，一次性最少发放100元宝的红包！

MOV N22 0

GOTO @开始抢红包

BREAK

 

#IF

CHECKGAMEGOLD $STR(N22)

#ACT

MESSAGEBOX 发放红包太少了，一次性最少发放100以上的元宝红包！

MOV N22 0

GOTO @开始抢红包

BREAK

 

#IF

CHECKNAMELIST ..\TxData\限制\万人敬仰.txt

#ACT

GAMEGOLD - $STR(N22)

INC U13 $STR(N22)

#ELSEACT

Addnamelist ..\TxData\限制\万人敬仰.txt

GAMEGOLD - $STR(N22)

MOV U13 $STR(N22)

 

#IF

CheckLevelEx 0

#ACT

MOV A18 $USERNAME

MOV G23 $STR(N22)

MOV G24 0

MOV G25 $STR(N22)

 

#IF

Large U13 $STR(G22)

#ACT

SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s249:0:1}造福大家，成为了万人敬仰！站在万人敬仰者的周围，每分钟可以获得经验值！

#ELSEACT

ClearNameList ..\TxData\限制\已领红包.txt

SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s249:0:1}发放了{$STR(N22)249:0:1}个元宝，大家快去{万人敬仰NPC249:0:1}处(盟重省:335:344)领取呀^_^

MESSAGEBOX 你发放了大量的红包，造福大家，努力成为万人敬仰者吧！

GOTO @开始抢红包

BREAK

 

#IF

CHECKONLINE $STR(A19)

#ACT

$STR(A19).ChangeHumAbility 1 = 0

$STR(A19).ChangeHumAbility 2 = 0

$STR(A19).ChangeHumAbility 3 = 0

$STR(A19).ChangeHumAbility 4 = 0

$STR(A19).ChangeHumAbility 11 = 0

$STR(A19).ChangeHumAbility 12 = 0

$STR(A19).CloseClientBuff 20

$STR(A19).SETICON 2 -1

$STR(A19).SETICON 3 -1

 

#IF

NOT EQUAL A19 $USERNAME

CHECKONLINE $STR(A19)

#ACT

$STR(A19).SENDMSG 5 你的万人敬仰者头衔被别人抢去了...

 

#IF

CheckLevelEx 0

#ACT

ChangeHumAbility 1 = 10

ChangeHumAbility 2 = 30

ChangeHumAbility 3 = 10

ChangeHumAbility 4 = 30

ChangeHumAbility 11 = 1000

ChangeHumAbility 12 = 1000

SetClientBuff 12 20 157 -1 778 615

SetIcon 3 12 240 -5 -76 1 0 1 200

SetIcon 2 24 1 -5 -76 15 1 0 200

MOV A19 $USERNAME

MOV G22 $STR(U13)

SetNpcImage 99 0 0

ClearNameList ..\TxData\限制\已领红包.txt

MESSAGEBOX 你成为【万人敬仰】，世界因你而精彩！

GOTO @开始抢红包

BREAK

}