option explicit

PUBLIC ulevel, self_id, sel_uid, pgul, pgtx, pgtxpv, pgix, pgdx, selfnick, allnick, scrollOn, room_name, userPM, selfhead,UlrStatu,tempAreaID
PUBLIC regProduct, regUrl, inRoom, reEnter, roomID, server_ID, reconnect_roomname, liantanga, liantangb
PUBLIC sw_voc, sw_pubt, sw_prvt, ULStat, spwin
PUBLIC namelistColor, sysclr, errclr, vpmclr, vpm1clr, vpm2clr, chatpvColor,chatmainColor
PUBLIC userlev(15), catename

PUBLIC CurrentFace     '当前表情
PUBLIC strAutoTalk      '自动回复留言
CONST AUTOANSWER = "【自动回复】"
CurrentFace = 0
strAutoTalk = ""

UlrStatu = 1

PUBLIC newpass, newicon, agree_enter, roomtitle
PUBLIC CONST DIRROWS = "*,0,0"
PUBLIC CONST CHATTOPROWS = "0,*,0"
PUBLIC gLock, reconnect_roomid, rmaxuser
PUBLIC ul0,ul1
PUBLIC nowmarqueeid              '动态分配marquee的id
nowmarqueeid = 0

reconnect_roomid = 0
gLock=FALSE

PUBLIC ugid_, upass_
ugid_=0
upass_=""

PUBLIC d_rid, d_cid
d_rid=0
d_cid=0

PUBLIC selhis(20)
PUBLIC selcur, seltail
selcur=0
seltail=0

PUBLIC CONST V_DENYU = "屏蔽", V_ALLOWU = "撤销"

CONST MAX_ANS = 3
PUBLIC LASTANSWER_UID(2)
LASTANSWER_UID(0) = 0
LASTANSWER_UID(1) = 0

PUBLIC loginRoom
loginRoom=TRUE

CONST headbase=1000

PUBLIC UserExp(20), UGD(20)
UserExp(0)=0 '本级用户的最低经验值
UserExp(1)=1
UserExp(2)=500
UserExp(3)=1000
UserExp(4)=2000
UserExp(5)=4000
UserExp(6)=8000
UserExp(7)=16000
UserExp(8)=32000
UserExp(9)=48000
UserExp(10)=64000
UserExp(11)=78000
UserExp(12)=90000
UserExp(13)=100000
UserExp(14)=150000
UserExp(15)=200000
UserExp(16)=400000
UserExp(17)=600000
UserExp(18)=800000
UserExp(19)=1200000
UserExp(20)=20000000
UGD(0)="过客"
UGD(1)="一级新手"
UGD(2)="二级学徒"
UGD(3)="三级常客"
UGD(4)="四级战士"
UGD(5)="五级英雄"
UGD(6)="六级游侠"
UGD(7)="七级铁剑客"
UGD(8)="八级铜剑客"
UGD(9)="九级银剑客"
UGD(10)="十级金剑客"
UGD(11)="十一级圣剑客"
UGD(12)="十二级王者"
UGD(13)="十三级法王"
UGD(14)="十四级天神"
UGD(15)="十五级烈火天王"
UGD(16)="十六级青木天王"
UGD(17)="十七级智慧天王"
UGD(18)="十八级极限天王"
UGD(19)="十九级终极天王"
UGD(20)="Say聊总站长"
CONST EXPCNT = 20


userlev(0) = "游客"
userlev(1) = "1级用户"
userlev(2) = "2级用户"
userlev(3) = "3级用户"
userlev(4) = "4级用户"
userlev(5) = "5级"
userlev(6) = "6级"
userlev(7) = "7级"
userlev(8) = "8级"
userlev(9) = "9级"
userlev(10) = "10级"
userlev(11) = "11级"
userlev(12) = "12级"
userlev(13) = "13级"
userlev(14) = "站长"
userlev(15) = "站长"
namelistColor="#F6FCB2"		' 名单列表颜色
chatmainColor="#FFFFFF"		' 文字区域颜色
sysclr = "#990000"	        ' 系统消息颜色
errclr = "#ff0000"			' 错误颜色
vpmclr = "#990000"			' 语音私聊消息颜色
vpm1clr= "#0000CC"			' 语音私聊消息颜色1
vpm2clr= "#006600"			' 语音私聊消息颜色2
selfhead = 2001
ulevel = -1 ' 还没有登录
self_id = 0
sel_uid = 0
selfnick = "未设置"
allnick = "所有人"
room_name = ""
reconnect_roomname = ""
catename = "" '地区或分类名称
inRoom = FALSE
newpass = ""
newicon = 0
reEnter = 0
roomID = 0
rmaxuser=0 '当前房间人数上限
sw_voc = 1
sw_pubt = 1
sw_prvt = 1
server_ID = 0
ULStat = 0	' 用户列表显示状态 0/1/2 用户列表/分类列表/房间列表
scrollOn=TRUE
userPM=FALSE
spwin=FALSE '缺省没有分屏

CONST TIETU = "开"  ' 如果希望关掉贴图功能，把"开"改为"关"
CONST PICPATH0 = "<IMG BORDER=0 SRC='/tu/"
CONST PICPATH1 = ".gif'>"

CONST STRMICREQUEST = "999"        '要麦请求
CONST MAXMIC = 50               '最长队列
PUBLIC MicOrder(50,1)          '麦序队列
PUBLIC CurrentMic               '当前麦序

PUBLIC CurrentColor           '当前字体颜色
PUBLIC CurrentBColor		  '当前文字底色	
PUBLIC CurrentFont			  '当前字体	

CurrentColor = ""
CurrentBColor = ""
CurrentFont = ""



CONST BIAOQING = "开"  ' 如果希望关掉表情功能，把"开"改为"关"

CurrentMic = -1               '当前要麦指针 
MicOrder(MAXMIC,0) = 0        '等待人数为0

PUBLIC CurrentBGSet        '当前配色方案
CurrentBGSet = 1

PUBLIC lastcate
lastcate = 0

PUBLIC cate_name(255), cate_text(255), cate_id(255)
DIM cate_loop
FOR cate_loop = 0 TO 255 
cate_id(cate_loop)=cate_loop
cate_text(cate_loop)=""
cate_name(cate_loop)="未定义"
NEXT

PUBLIC cates(255)
cate_name(1)="音乐频道"
cate_name(3)="娱乐在线"
cate_name(4)="网络情缘"
cate_name(6)="情感频道"
cate_name(7)="浪漫情怀"
cate_name(8)="同龄频道"
cate_name(9)="成人频道"
cate_name(10)="绿色乐园"
cate_name(11)="缘分天空"
cate_name(12)="贵宾私房"
cate_name(13)="都市生活"
cate_name(18)="梦想舞台"
cate_name(20)="风雨同舟"
cate_name(21)="心灵驿站"
cate_name(25)="谈天说地"
cate_name(26)="Say避风港"
cate_name(27)="男生女生"
cate_name(28)="同城相约"
cate_name(29)="策划中心"
cate_name(30)="舞夜聆听"




PUBLIC laystat
laystat=0

PUBLIC CONST PUB_FROM_SID = 100    '公房开始序号号

PUBLIC CONST PRV_AREA_OFFSET = 120       '私房地区与公房的偏移量

'Index.htm 文件分页格式
CONST LIST_COLS=2
CONST CATE_ROWS=2
CONST ROOM_COLS=2
CONST TATALCATE = 120              '其实应该与偏移量相等


FOR cate_loop = 0 TO TATALCATE 
cate_text(cate_loop + PRV_AREA_OFFSET)=cate_text(cate_loop)
cate_name(cate_loop + PRV_AREA_OFFSET)=cate_name(cate_loop)
NEXT