GWHBOB 发表于 2010-9-18 11:23:51

【.G1M】【CRPG】三国杀简版，只支持杀，闪，桃

空虚的时候玩玩吧！

GWHBOB 发表于 2010-9-18 11:27:31

源码贴上来：（没有去除乱码）Filename:CRPG
{2,3}鉊im Mat C?
{2,3}鉊im Mat E?
5鉓at C?
5鉓at E?
For 1鉞 To 4?
@7F871,3)鉟?
Mat C+1鉓at C?
@7F871,3)鉟?
Mat E+1鉓at E?
Next?
While 1?
"Your Turn"?
1鉑?
"You got 2 CARDS"?
@7F871,3)鉟?
Mat C+1鉓at C?
@7F871,3)鉟?
Mat C+1鉓at C?
Lbl 0?
Prog "罝ISPLAY"?
@F79E"END?","No",1,"Yes",2?
Lbl 1?
Prog "罶CARD"?
Prog "罸CARD"?
Goto 0?
Lbl 2?
0鉟?
For 1鉞 To 3?
Y+Mat C鉟?
Next?
If Y>Mat C?
Then ?
"Opps,You should throwsome CARDS"?
Prog "罶CARD"?
C=0譍oto 2?
If (Mat C>0)?
Then ?
Mat C-1鉓at C?
IfEnd?
IfEnd?
0鉟?
For 1鉞 To 3?
Y+Mat C鉟?
Next?
Y>Mat C譍oto 2?
?
?
?
?
"ZZM's Turn"?
"ZZM got 2 CARDS"?
@7F871,3)鉟?
Mat E+1鉓at E?
@7F871,3)鉟?
Mat E+1鉓at E?
If (Mat E>0) And (@7F871,2)=1)?
Then ?
"ZZM used a KILL"?
Mat E-1鉓at E?
If Mat C>0?
Then "You used a MISS"?
Mat C-1鉓at C?
Else Prog "罜HURT"?
IfEnd?
IfEnd?
Lbl 3?
0鉟?
For 1鉞 To 3?
Y+Mat E鉟?
Next?
If Y>Mat E?
Then ?
For 1鉠 To 3?
If (Mat E>0) And (@7F871,2)=1)?
Then ?
Mat E-1鉓at E?
"ZZM threw a CARD"?
Goto 3?
IfEnd?
Next?
IfEnd?
0鉟?
For 1鉞 To 3?
Y+Mat E鉟?
Next?
Y>Mat E譍oto 3?
WhileEnd Filename:罜HURT
"You lost a HP"?
Mat C-1鉓at C?
If Mat C??
Then ?
If Mat C>0?
Then ?
Mat C-1鉓at C?
Mat C+1鉓at C?
"You used a HEAL"?
Else ?
"You LOST???"?
Stop?
IfEnd?
IfEndFilename:罝ISPLAY
ClrText?
"+Kill of 3 Kingdoms=+#E6D7Your HP:         #E6D7#E6D7ZZM's HP:          #E6D7+===================+"?
Locate 10,2,Mat C?
Locate 11,3,Mat E?
""?
Filename:罞HURT
"ZZM lost a HP"?
Mat E-1鉓at E?
If Mat E??
Then ?
If Mat E>0?
Then ?
Mat E-1鉓at E?
Mat E+1鉓at E?
"ZZM used a HEAL"?
Else ?
"You W.I.N!"?
Stop?
IfEnd?
IfEnd Filename:罶CARD
Lbl 0?
0鉉?
"Kill?+@F936"0123456789",Mat C+1,1)鉆F93F1?
"Miss?+@F936"0123456789",Mat C+1,1)鉆F93F2?
"Heal?+@F936"0123456789",Mat C+1,1)鉆F93F3?
@F79E"Select Your Card",@F93F1,1,@F93F2,2,@F93F3,3,"Return",9?
Lbl 1?
1鉉?
Goto 9?
Lbl 2?
2鉉?
Goto 9?
Lbl 3?
3鉉?
Goto 9?
Lbl 9?
C=0識eturn?
Mat C?譍oto 0?
C Filename:罸CARD
C=1譍oto 1?
C=2譍oto 2?
C=3譍oto 3?
Return?
Lbl 1?
Mat C<1識eturn?
'KILL?
If K=0?
Then ?
"You can't kill again"?
Return?
IfEnd?
"You used a KILL"?
Mat C-1鉓at C?
0鉑?
If Mat E>0?
Then "ZZM used a MISS"?
Mat E-1鉓at E?
Else Prog "罞HURT"?
IfEnd?
Return?
Lbl 2?
Mat C<1識eturn?
'MISS?
Return?
Return?
Lbl 3?
Mat C<1識eturn?
If Mat C??
Then ?
"Your HP is full"?
Return?
IfEnd?
'HEAL?
"You used a HEAL"?
"You get a HP"?
Mat C-1鉓at C?
Mat C+1鉓at C?
Return


好吧，好多乱码。。。

Cichol 发表于 2010-9-18 14:28:49

LZ寂寞了。
杀闪桃。。
页: [1]
查看完整版本: 【.G1M】【CRPG】三国杀简版，只支持杀，闪，桃