经过若干修改,终于基本成型

演示见本站http://www.9232.org/pet.php

下拉菜单装的是小F的下拉菜单,我的坛子有,大家可以下,压缩包里我就不改了,注:压缩包里的下拉菜单无效,大家不要用

图片包下载地址:http://www.hotcz.com/images.rar(借泓村的空间放的,感谢昏鸦)

文件包是我论坛文件打压而成,是最新版的,有问题请提出,我将力能所及的解答.


关于下一个版本的说明,由于我论坛的宠物被我修改的太多,与我论坛的其它插件(俱乐部,广告中心,打工等)结合起来了,因为考虑到了论坛负载能力又增加了杀怪体力值的消耗,所以无法放出,不然大家安装会出错的,等我有时间的话,重新整理一下,把结合的部分代码去除再说吧.


重要更新

引用:

在weaponshop.php文件中找

复制内容到剪贴板

代码:

if ($petmoney<$totalmoney) {showmessage('你没有那么多钱购买这些物品

在上面有这么两行：

复制内容到剪贴板

代码:

$petmoney=$usermoney;
               
$totalmoney=intval($totalmoney*$discount);

改为

复制内容到剪贴板

代码:

$petmoney=floor($usermoney);
               
$totalmoney=floor($totalmoney*$discount);

在itemshop.php文件中找

复制内容到剪贴板

代码:

if ($petmoney<$totalmoney) {showmessage('你没有那么多钱购买这些物品

在上面有这么两行：

复制内容到剪贴板

代码:

$petmoney=$usermoney;
               
$totalmoney=intval($totalmoney*$discount);

改为

复制内容到剪贴板

代码:

$petmoney=floor($usermoney);
               
$totalmoney=floor($totalmoney*$discount);

这个问题主要是PHP函数问题,当时未考虑到这个问题,

装备能当药吃的BUG
itemuse.php
找

复制内容到剪贴板

代码:

$query = $db->query("SELECT A.id,A.itemtype,A.itemnum,A.itemplus,B.itemname,B.itemtext,B.itemlevel FROM {$tablepre}mypetpacket A,{$tablepre}mypetitemdata B  WHERE A.username='$discuz_user' And A.id ='$itemid' And A.itemtype =B.itemtype AND A.deleted<>1 order by A.itemtype,A.id ;");

替换成

复制内容到剪贴板

代码:

$query = $db->query("SELECT A.id,A.itemtype,A.itemnum,A.itemplus,B.itemname,B.itemtext,B.itemlevel,B.trade FROM {$tablepre}mypetpacket A,{$tablepre}mypetitemdata B  WHERE A.username='$discuz_user' And A.id ='$itemid' And A.itemtype =B.itemtype AND A.deleted<>1 order by A.itemtype,A.id ;");

在

复制内容到剪贴板

代码:

if(!$itemdata=$db->fetch_array($query)){ showmessage("道具使用失败!!","pet.php?index=$returl");        }

下加：

复制内容到剪贴板

代码:

if(strpos($itemdata['trade'],"useable")===false) showmessage("此物品不可使用!!","pet.php?index=$returl");

在首面显示运作

在actions.lang.php里面适当位置加上

    221 => '社区宠物',

就行了,注意排序

在个人资料中显示宠物数据forD4

演示:本站
经本人测试通过,如有问题请大家指正
修改viewthread.php:
查找:

复制内容到剪贴板

代码:

m.email, m.gender, m.showemail

在后面添加:

复制内容到剪贴板

代码:

,b.mypetname,b.mypet,b.mypetname,b.mypetlevel,b.mypetdead,b.openpk,b.mypethp,b.mypetsp,b.mypetexp,b.mypetsex,b.mypetsx

查找:

复制内容到剪贴板

代码:

LEFT JOIN {$tablepre}memberfields mf ON mf.uid=m.uid

在下面添加:

复制内容到剪贴板

代码:

LEFT JOIN $tablepre"."mypetdata b ON b.username=p.author

查找:

复制内容到剪贴板

代码:

$post['dateline'] = gmdate("$dateformat $timeformat", $post['dateline'] + $timeoffset * 3600);

在下面添加:

复制内容到剪贴板

代码:

$post[petpic]=$post[mypetname];
$petnowexp=$post[mypetexp];
$post[mypetlevel] = floor(sqrt(sqrt($petnowexp)));
$petlevel = $post[mypetlevel] ;
$post[picdisplay] = intval($post[mypetlevel]/10);
if ($post[picdisplay]>10){$post[picdisplay]=11;}
$petnextlvexp = pow($petlevel+1,4);

修改 templates/viewthread.htm
查找:

复制内容到剪贴板

代码:

{lang online_status} {lang offline}
                <!--{/if}-->
        <!--{/if}-->

在下面添加:

复制内容到剪贴板

代码:

<!--{if $post[mypet]}-->
<br><br>
<div align="center">
<table width='120'>
<b>宠物资料：</b><br>
</table>
<table width='150' border="1" cellpadding="9">
<tr rowspan="2"><td><div align="center"><!--{if $post[mypetdead]==1 or $post[mypetdead]==2}--><img src='images/pet/$post[petpic]/$post[petpic].$post[picdisplay].gif' style=filter:GRAY><!--{else}--><img src='images/pet/$post[petpic]/$post[petpic].$post[picdisplay].gif'><!--{/if}--></div></td></tr>
<td>
<span class="smalltxt">
名称：$post[mypet]<br>
性别：<!--{if $post[mypetsex]==1}-->雄<!--{else}-->雌<!--{/if}--><br>
级别：$post[mypetlevel]<br>
属性：$post['mypetsx']<br>
状态：<!--{if $post[mypetdead]==0}-->生存<!--{elseif $post[mypetdead]==1}-->死亡<!--{else}-->封印<!--{/if}--><br>
战斗：<!--{if $post['openpk']<2 && $post['mypethp']>0 && $post['mypetsp']>0}--><a href="pet.php?index=petbattle&atkname=$post[username]&action=atkpet" target="_blank"><b>等待挑战</b></a><!--{else}-->拒绝挑战<!--{/if}--><br>
<div align="left">
</span></td></table></div>
<!--{/if}-->

关于发贴回贴加经验

发新贴加宠物经验
在include/newthread.inc.php中末尾

复制内容到剪贴板

代码:

showmessage('post_newthread_succeed', "viewthread.php?tid=$tid&extra=$extra");

的上面加入

复制内容到剪贴板

代码:

$db->query("UPDATE {$tablepre}mypetdata SET mypetexp= mypetexp+300 WHERE username='$discuz_user' and mypetdead <1 ");

本例是发新贴+300经验 具体数值可自行修改，本例死亡的状态下不加经验，要想去掉这个条件去掉  mypetdead <1

回贴加经验需要修改include/newreply.php

在include/newthread.inc.php中末尾

复制内容到剪贴板

代码:

!$allowuseblog || empty($isblog) ? showmessage('post_reply_succeed', "viewthread.php?tid=$tid&pid=$pid&page=".(@ceil(($thread['replies'] + 2) / $ppp))."&extra=$extra#pid$pid") :

的上面加入

复制内容到剪贴板

代码:

$db->query("UPDATE {$tablepre}mypetdata SET mypetexp= mypetexp+200 WHERE username='$discuz_user' and mypetdead <1 ");

本例是回贴+200经验 具体数值可自行修改，本例死亡的状态下不加经验，要想去掉这个条件去掉  mypetdead <1

修正会员利用反复发贴删贴刷宠物经验的BUG[2006.01.08更新]
在editpost.inc.php
中找到

复制内容到剪贴板

代码:

$db->query("DELETE FROM {$tablepre}polls WHERE tid='$tid'", 'UNBUFFERED');

在下面加

复制内容到剪贴板

代码:

$db->query("UPDATE {$tablepre}mypetdata SET mypetexp= mypetexp-300 WHERE username='$discuz_user'");

找到

复制内容到剪贴板

代码:

(!empty($delete) && $isfirstpost) ? showmessage('post_edit_delete_succeed', "forumdisplay.php?fid=$fid") :

在下面加

复制内容到剪贴板

代码:

$db->query("UPDATE {$tablepre}mypetdata SET mypetexp= mypetexp-200 WHERE username='$discuz_user'");

删贴减少宠物经验

修改topicadmin.php文件
找

复制内容到剪贴板

代码:

                        if($uidarray) {
                                updatepostcredits('-', $uidarray, array());

                        }
                        if($tuidarray) {
                                updatepostcredits('-', $tuidarray, $postcredits);

在后面加

复制内容到剪贴板

代码:

$db->query("UPDATE {$tablepre}mypetdata SET mypetexp= mypetexp-300 WHERE username='$discuz_user'");

找

复制内容到剪贴板

代码:

                if($uidarray) {
                        updatepostcredits('-', $uidarray, array());
                }
                if($puidarray) {
                        updatepostcredits('-', $puidarray, $replycredits);

在后面加

复制内容到剪贴板

代码:

$db->query("UPDATE {$tablepre}mypetdata SET mypetexp= mypetexp-200 WHERE username='$discuz_user'");

在帖子里显示失败啊！

我怎么总安装错啊

我没有搞错啊？怎么不让下？？？

修正会员利用反复发贴删贴刷宠物经验的BUG[2006.01.08更新]
在editpost.inc.php
中找到

$db->query("DELETE FROM {$tablepre}polls WHERE tid='$tid'", 'UNBUFFERED');

找到了两个，要加在那个上面？？

第二个

最高等級 , 打怪經驗..如何增加