|
|
|
|
业务咨询 售后服务 汇款确认↓
7*24服务热线:15107819338
|
|
|
|
|
|
SKY留言本脚本 |
发布:领风网络 查看:97063 次 时间:2007年12月22日 返回文章中心 |
(@@InPutString)   [@MAIN]   <$STR(A2)>\   <$STR(A3)>\   <$STR(A4)>\   <$STR(A5)>\   <$STR(A6)>\   <$STR(A7)>\   <$STR(A8)>\   <$STR(A9)>\   每发表一次留言需要80万金币,<确定发表留言/@@InPutString20>,只显示8条留言。\  
[@InPutString20]   #IF   EQUAL S20   #ACT   Messagebox [失败]:请输入所要发表的文字。不能发空消息。   GOTO @MAIN   BREAK  
#IF   Checkgold 800000   #ACT   take 金币 800000   MOV S3 <   INC S3 <$USERNAME>   INC S3 /AUTOCOLOR=   GetRandomName ..\QuestDiary\变量\颜色.txt S30   INC S3 <$STR(S30)>   INC S3 >说:<   INC S3 <$STR(S20)>   INC S3 /AUTOCOLOR=   GetRandomName ..\QuestDiary\变量\颜色.txt S30   INC S3 <$STR(S30)>   INC S3 >   MOV A9 <$STR(A8)>   MOV A8 <$STR(A7)>   MOV A7 <$STR(A6)>   MOV A6 <$STR(A5)>   MOV A5 <$STR(A4)>   MOV A4 <$STR(A3)>   MOV A3 <$STR(A2)>   MOV A2 <$STR(S3)>   MOV S3   MOV S20   MOV S20   GOTO @MAIN   BREAK   #ELSEACT   Messagebox [失败]:发表留言需要80万金币。   GOTO @MAIN   BREAK       
|
|