Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
ctrl.lua
Package: 4fcom-20090616-13.rar [view]
Upload User: bjtaixing
Upload Date: 2021-01-15
Package Size: 24749k
Code Size: 3k
Category:
E-Books
Development Platform:
DOS
- --此文件中,凡是可能被多次执行的函数,函数名都要加上地图名前缀
- function config(map)
- MapCanSavePos(map, 0) --设置地图是否保存角色位置(地图,坐标,方向),此设置影响该地图的所有副本
- MapCanPK(map, 1) --设置地图是否可以PK,此设置影响该地图的所有副本
- MapCopyNum(map, 1) --设置地图的副本数目,如果不调用该语句,则使用默认值1
- MapCopyStartType(map, 1) --设置地图立即开始
- SingleMapCopyPlyNum(map, 300) --设置一个副本的玩家数
- MapCanTeam(map , 1)
- MapType ( map , 4 )
- end
- function get_map_entry_pos_hell4() --设置入口的位置的坐标(坐标(米))
- local POS_X=191
- local POS_Y=180
- return POS_X , POS_Y
- end
- function init_entry(map)
- SetMapEntryMapName(map, "hell3") --设置入口的位置(地图名,坐标(米))
- SetMapEntryTime(map, "2007/1/20/0/0", "1/0/0", "0/1/0", "0/3/0") --设置入口的时间,地图对象,首次开启时间(年/月/日/时/分),以后再次开启的间隔(日/时/分,全0表示只有首次开启),每次开启到入口消失的间隔(日/时/分,全0表示永不消失),每次开启到地图关闭的间隔(日/时/分,全0表示永不关闭)。。
- end
- function after_enter_hell4( role , map_copy )
- local cha_name=GetChaDefaultName(role)
- SystemNotice ( role, "神秘的声音:<"..cha_name..">啊,今天让你见识一下真正的黑色死神的威力!" )
- end
- function before_leave_hell4 ( role )
- end
- function map_copy_first_run_hell4( map_copy )
- end
- function map_copy_run_hell4( map_copy )
- if CheckMonsterDead ( AZRAEL[18] ) == 1 then
- if CRY[18]==0 then
- local Notice_all = "五楼守卫:愚蠢的人类啊,死神已经赐予我们不死的力量,我们还会再见面的,哇哈哈哈哈哈!!!"
- MapCopyNotice ( map_copy , Notice_all )
- CRY[18]=1
- BOSSXYSJ[987] = 4
- BOSSSJSJ[987] = 4
- BOSSTJSJ[987] = 4
- BOSSXZSJ[987] = 4
- BOSSAYSJ[987] = 4
- end
- end
- if CRY[18]==1 then
- if HELLCLOSETIME==300 then
- local week = GetNowWeek()
- if week ~= 7 then
- Notice("神秘的声音:没想到,人类居然成长到这个地步,连黑色的死神都成了废物,在我封印的时间内继续努力修练吧,下次见到你们的时候希望你们能更强大,哈哈哈哈哈哈!!")
- else
- Notice("神秘的声音:哈哈哈哈哈,终于,终于有人可以让我解放所有的力量了,来吧,来用你们的双眼见证真正的死亡游戏,见证真正的黑暗历史!")
- end
- HELLCLOSETIME = HELLCLOSETIME - 180
- end
- local closetime = HELLCLOSETIME
- for i = 1 , MAXNOTICE , 1 do
- if closetime ==NOTICETIME[i] then
- local Notice_all = "警告,距离地狱18层崩溃还有"..closetime.."秒!!请各位勇士赶快做好避难准备"
- MapCopyNotice ( map_copy , Notice_all )
- end
- end
- HELLCLOSETIME = HELLCLOSETIME-1
- if HELLCLOSETIME == 0 then
- HELLCLOSETIME = 300
- CRY[18]=0
- CloseMapEntry ( "hell4" )
- CloseMapCopy ( "hell4" )
- end
- end
- end
- --每5秒执行一次的
- function map_run_hell4( map )
- end
- --地图关闭时执行
- function map_copy_close_hell4 ( map_copy )
- HELLCLOSETIME = 300
- CRY[18]=0
- SPECIALSKILL[19]=0
- end
- --地图开关判断——————————————————————————————————————————
- function can_open_entry_hell4( map )
- -- local time = GetTickCount ( )
- local Now_Week = GetNowWeek()
- if Now_Week >1 and Now_Week < 7 then
- return 1
- end
- if Now_Week == 0 then
- return 1
- end
- return 0
- end