|
//加入六扇门,从原来ASP程序转换//Modify:2002-11-13
CString JoinLSM(CString Cookie){
CDatabase db;
CDBVariant N6, D1;
CRecordset rs(&db);
CString r, ID, Name, Rnd, Style;
try{
ID = GetCookie(Cookie, "ID");
Name = GetCookie(Cookie, "Name");
Style = GetCookie(Cookie, "Style");
/* GetDBS();
if(db.OpenEx(DBS, 0)){
rs.Open(AFX_DB_USE_DEFAULT_TYPE, "select C3,C7,D1,N5,N6,D1,T from Y where id=" + ID);
if(!rs.IsEOF()){
rs.GetFieldValue("C3", Rnd);
if(Rnd == Name){
rs.GetFieldValue("C7", Rnd);
if(Rnd == GetCookie(Cookie, "Rnd")){
rs.GetFieldValue("D1", D1);
CTime T1(D1.m_pdate->year, D1.m_pdate->month, D1.m_pdate->day, 0, 0, 0);
if(CTime::GetCurrentTime() - T1 > 29 * 60*60*24){
rs.GetFieldValue("N5", N6);
if(N6.m_lVal >= 10000){
rs.GetFieldValue("N6", N6);
if(N6.m_lVal >= 300000){
rs.Close();
db.ExecuteSQL("update Y Set C8='六扇门',C9='捕快',N6=N6-300000 where id=" + ID);
r = MsgBox("J", "提示", "加入成功,请重新登录!", Style);
//以下发送到所有聊天室,如果不需要,则不必设置
Rnd = MakeSay("blue", "传闻", "", "", Name, "%2加入六扇门。", "msg.gif", "");
pSendToAllRoomMsg = Rnd.GetBuffer(Rnd.GetLength());
*bSendMsgToAllRoom = true;
//以上发送到所有聊天室,如果不需要,则不必设置
}else{
r = MsgBox("L", "提示", "你的银两不够300000,不能加入六扇门。", Style);
}
}else{
r = MsgBox("L", "提示", "你的经验值不够10000点。", Style);
}
}else{
r = MsgBox("L", "提示", "你的年龄不够30周岁,不能报名。", Style);
}
}else{
r = MsgBox("L", "提示", "你是否未登录?", Style);
}
}else
r = MsgBox("L", "提示", "你是否未登录?", Style);
}else
r = MsgBox("L", "提示", "你是否未登录?", Style);
rs.Close();
}else
r = MsgBox("L", "错误", "连接数据库出错。", Style);
db.Close();*/
r = MsgBox("J", "提示", "衙门不再招收六扇门!", Style);
}catch(...){
if(rs.IsOpen())
rs.Close();
if(db.IsOpen())
db.Close();
r = MsgBox("L", "错误", "调用入六扇门程序时出错。", Style);
}
return r;
}
//---------------------------------------------------------------------------
这是扩展源里面的。里面写着满足条件就可以加入六扇门 但是 我不管怎么弄都是 MsgBox("J", "提示", "衙门不再招收六扇门!",
究竟如何打开这个功能呢? |
|