# # # # # # # # # # # # Golgorth # # v 2.0 # # # # # # # # # # # # # # # # # # # # # # # # #
################################################################################
##1.-您需要在主目錄下創建壹個名為“彩票”的目錄。
##2.-您應該檢查每個配置的內容以滿足您的需求。
# #您可以自定義NPC說的話，以及獎勵物品將使用多長時間。
# #帶有中獎號碼的彩票
##3.-妳需要加上這些:[抽簽系統::贏號$ player]: thischeck # #
# #放在startup.tcl的OnPlayerDeath # #
# #檢查是否該運行winnernumber過程# #
# #請小心地將其放在正確的名稱空間中。名稱空間指的是放置代碼的目標腳本位置，而不是文件名。
################################################################################
################################################################################
#這是creatures.scp中的樂透玩家，復制修改id，陣營，型號，針對大部分玩家。
################################################################################
[生物900101]
攻擊=2000 2000
名稱=彩票發行商
型號=7311
派系=12
行會=發行國有彩票
類型=7
家庭=7人
questscript=lotterynpc
npcflags=07
派系=12
精英=3
等級=60
maxhealth=10370
損壞=1037 1659
maxmana=0
Sell=30033 #必須與items.scp中添加的彩票ID壹致。
###################################################################
#這是items.scp #中的項目
###################################################################
[項目30033]
名稱=彩票
買入價=10000
Startquest=123002 #必須與quest.scp中添加的quest ID壹致，實際上是後面要激活的任務。
questscript =彩票
可堆疊=1
class=12
classes=07FFF
flags=0800
材料=-1
maxcount=1
型號=31744
質量=1
races=01FF
銷售價格=0
子類=0
#########################################################
# quest . scp增加了什麽(不要問妳為什麽需要它)#
#########################################################
[任務123002]
名稱=彩票
目標=獲得您的彩票號碼。
Desc=妳準備好測試妳的幸運指數了嗎？
交付=30033 1
src_item=30033
###########################################################
#在tcl目錄下創建文件lotsystem.tcl，並將以下內容復制到文件中#
###########################################################
命名空間eval lotsystem {
彩票號碼{ player } {
設置pname [GetName $player]
set n 1 _ list " 1 2 3 4 5 6 7 8 9 0 "
set n2_list "1 2 3 4 5 6 7 8 9 0 "
set n3_list "1 2 3 4 5 6 7 8 9 0 "
set num 1[lindex $ n 1 _ list[expr { int(rand()*[l length $ n 1 _ list]}]]
set num 2[lindex $ N2 _ list[expr { int(rand()*[length $ N2 _ list])}]]
set num 3[lindex $ n3 _ list[expr { int(rand()*[length $ n3 _ list])}]]
集合編號" $num1$num2$num3 "
設置文件“彩票/$number”
如果{[文件存在“彩票/$ number”]！= 1} {
設置id[打開$file a+]
將$id "$pname "
關閉$id
返回“妳的彩票號碼是$number”
}
設置id[打開$file a+]
將$id "$pname "
關閉$id
返回“妳的彩票號碼是$number”
}
#您應該更改小時和日期，檢查是否到了運行樂透和刪除文件夾的時間
中獎號碼{ player } {
set hour time[時鐘格式[時鐘秒]-格式{%H}]
設置日間[時鐘格式[時鐘秒]-格式{%u}]
設置檢查文件“彩票/檢查文件”
如果{[文件存在“彩票/支票文件”]！= 1 } {
if {($ hour time = = 16)& amp；& amp($daytime == 1) } {
set n 1 _ list " 1 2 3 4 5 6 7 8 9 0 "
set n2_list "1 2 3 4 5 6 7 8 9 0 "
set n3_list "1 2 3 4 5 6 7 8 9 0 "
set num 1[lindex $ n 1 _ list[expr { int(rand()*[l length $ n 1 _ list]}]]
set num 2[lindex $ N2 _ list[expr { int(rand()*[length $ N2 _ list])}]]
set num 3[lindex $ n3 _ list[expr { int(rand()*[length $ n3 _ list])}]]
集合編號" $num1$num2$num3 "
設置文件“彩票/中獎號碼”
如果{[文件存在“彩票/中獎號碼”]！= 1 } {
設置id[打開$file w+]
放置$ id“$ number”
關閉$id
設置cf [open $checkfile w+]
將$cf " "
關閉$cf
}
設置id[打開$file w+]
放置$ id“$ number”
關閉$id
設置cf [open $checkfile w+]
將$cf " "
關閉$cf
}
}
if {($ daytime = = 7)& amp；& amp($hourtime == 23) } {
文件刪除-強制“抽獎”
文件mkdir“彩票”
}
返回
}
過程讀取贏家{ player } {
設置pname [GetName $player]
設置是“彩票/$pname”
設置winner is“winner number”
設置文件“彩票/$thewinneris”
如果{[文件存在" lottery/$thewinneris"]！= 1} {return“中獎號碼尚未生成”}
設置id[打開$file r]
獲取$id數據
關閉$id
設置第二個文件“彩票/$數據”
如果{[文件存在"彩票/$數據"]！= 1} {return“本期無人中獎。”}
set secondid [open $secondfile r]
獲取$secondid seconddata
關閉$secondid
設置行[split＄second data \ n]
set you win[l search＄second data＄pname]
如果{ $youwin！= -1 } {
如果{[文件存在"彩票/$pname"]！= 1 } {
#您可以在這裏輸入獎勵，使用物品id。
AddItem $player 7
set cut [open $yes w+]
puts $cut "1 "
關閉$cut
說$player 0“我中獎了！!"
}
}
返回“中獎號碼為$data，中獎玩家為:$lines”
}
}
############################################################
#在tcl目錄中創建文件lottery.tcl，並將以下代碼復制到該文件中#
############################################################
命名空間評估彩票{
過程查詢任務{對象玩家任務id } {
if {[GetQuestStatus $ player $ questid]！= 4 } {
sendquestreward $ player $ obj $ questid“最佳獎勵！”“妳真的要賭嗎？”
SendGossipComplete $player
# SendQuestRequestItems $ player $ obj $ questid " " "激活您的賭註。"
}否則{
SendQuestDetails $ player $ obj $ questid
}
}
繼續任務接受{ obj玩家任務id } {
sendquestreward $ player $ obj $ questid“最佳獎勵！”“妳真的要賭嗎？”
SendGossipComplete $player
}
過程請求獎勵{ npc玩家任務id } {
}
proc quest choose reward { obj player questid choose } {
lotsystem::lotterynum $player
}
proc OnOpen { obj player lootid } {
}
}
###########################################################
#在tcl目錄下創建文件lotterynpc.tcl，將以下內容復制到文件中#
###########################################################
# -
命名空間eval lotterynpc {
}
# -
proc lottery NPC::GossipHello { NPC player } {
SendGossip $player $npc {text 0 "我想買彩票" } \
{text 0“我中彩票了嗎？”}\
{text 1 "我需要壹些相關信息" }
}
# -
#這裏的lotsystem::winnumber $player不是很好，所以最好把它放在startup tcl中，比如放在playerdeath proc上。
proc lottery NPC::GossipSelect { NPC玩家選項} {
開關$option {
0 { VendorList $player $npc }
1 { SendGossipComplete $ player
lotsystem::winnumber $player
set win[lot system::read winner $ player]
設置resp "$win "
設置新聞" text 0 \ " $ resp \ n \ n \ " "
設置頁腳“text 2”更多信息，請訪問http://orangevirus.de
信息\ " "
發送流言$player $npc $news \
$footer }
2 {SendGossip $player $npc {text 0 "您需要購買壹張彩票(我正在出售)然後激活它。當彩票生效時，中獎號碼將被通知並張貼在此處。如果妳是贏家，那麽妳將自動獲得獎品。開獎時間為每周日16:00。祝妳中彩票！!"} }
}
}
# -
proc lottery NPC::query quest { NPC player questid } {
}
# -
proc lottery NPC::quest status { NPC player } {
}
# -
proc lotterynpc::QuestHello { npc玩家} {
}
# -
proc lottery NPC::quest select { NPC玩家questid } {
}
# -
proc lottery NPC::quest accept { NPC玩家questid } {
}
# -
proc lottery NPC::QuestChooseReward { NPC玩家questid choose } {
}
# -
proc lottery NPC::request reward { NPC player questid } {
}