(@buy )
%100
[@main]
　　呵呵，現在中州城完全沉浸在狗年的喜慶中！每個人手\
氣一定都帶有幸運！這個時候買彩票試試手氣怎么樣？\\
　　<有意思，詳細說說彩票的事情！/@maincaipi>

[@maincaipi]
　　有人在我這里發過大財！不過，也有人用光了所有財產\
　　隨便你了，試著買幾張彩票吧！祝你發財，錢都多的\
掉到地上，哈哈！\\
<報名參加騎兵競技/@競技>　　<買騎兵競技入場牌/@buy>\
<買騎兵競技彩票/@競技彩票>　　　<了解騎兵競技活動/@競技活動>\
<買彩票/@buy>　　　　　　　<了解彩票/@Bingo>\
<關閉/@exit>

[@競技]
先在我這里購買:騎兵競技入場牌.\
然后到時間每天上午10點到11點在老兵處入場.\
<買騎兵競技入場牌/@buy>\
<關閉/@exit>

[@競技彩票]
#SAY
沒有騎兵競技買了競技彩票也沒用啊\
等騎兵競技開始了再來吧。\\
<返 回/@Main>\
\
[@競技活動]
#SAY
騎兵競技入場牌和競技彩票可都是和騎兵競技活動有莫\
大關系的哦。\\
<了解騎兵競技入場牌/@了解入場牌>\
<了解競技彩票/@了解彩票>\
<返  回/@Main>\
\
[@了解入場牌]
#SAY
如果你想參與騎兵競技,就先要在我這買些騎兵競技入場牌\
回去,在活動開始以后,你可以到王城老兵那里報名,他會收\
取1個騎兵競技入場牌做為報名費,然后把你送到比賽場地。\\
<返  回/@Main>\
\
[@了解彩票]
#SAY
騎兵競技開始了可以試試你的運氣,每張競技彩票要2000金幣。\
要是競技彩票號碼和那場冠軍的跑道號碼對應的話你就中獎啦,\
雙擊競技彩票馬上會得到大筆的金錢。不過提醒你一聲：競技彩票\
必須在下次騎兵競技活動開始前使用哦，過期不用可就自動作廢拉。\\
<返  回/@Main>\
\
[@buy]
#SAY
  1等獎      500元寶\
  2等獎      100元寶\
  3等獎       50元寶\
  4等獎       10元寶\
  5等獎        5元寶\
  6等獎        1元寶\ \
點擊這里<購買元寶彩票/@元寶彩票>　單價:2元寶/張\\

[@Bingo]
  1等獎      500元寶\
  2等獎      100元寶\
  3等獎       50元寶\
  4等獎       10元寶\
  5等獎        5元寶\
  6等獎        1元寶\ \
<返 回/@Main>\
\
[goods]
騎兵競技入場牌    50    10

[@元寶彩票]
#IF
EQUAL G74 1
#ACT
queryvalue 請輸入你需要購買的數量:[單位(張)] 2 2 8816
break
#ELSEACT
MessageBox 對不起，目前元寶彩票功能尚未開放！
break
close

[@getstring8816]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 2
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 對不起，你輸入數量錯誤！請重新輸入數字，不能為0或帶字符
break
#IF
LARGE P1 55
#ACT
MessageBox 對不起，你輸入數量大于了55個！請重新輸入數字，數量不能超過55個
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 對不起，您身上背包的位置不夠！請清理出空位！
break
#IF
CHECKGAMEGOLD > $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
GAMEGOLD - $human(SCL)
give 元寶彩票 $STR(s1)
CALCVAR HUMAN 消費 + $human(SCL)
SAVEVAR HUMAN 消費 ..\QuestDiary\數據文件\消費.txt
SENDMSG 5 您花費了:[<$human(SCL)>元寶]購買了:[<$STR(S1)>張]元寶彩票
SENDMSG 7 元寶彩票雙擊即可查看是否中獎
#ELSEACT
MessageBox 對不起，您的金幣不足，購買失敗。

;===========================================================