水客版宠物forD4正式版

宠物FOR D5V1.3版http://www.9232.org/thread-17319-1-1.html



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

首先申明本人水平比较差,如有问题大家商量解决,版权也归以前作者所有,本人只是将它改成能在D4上运行

宠物下拉菜单装的是小F的下拉菜单,不想安装下拉菜单的看35楼

图片包下载地址:https://discuz.dismall.com/viewthread.php?tid=216848贴子的一楼

经过多日修改,终于出正式版了,有问题请提出,我将力能所及的解答.

建议大家采用全新安装,因为本人测试也是全新安装

这个版本是在2006.01.08版本的基本上加入后台设定,后台并加入可选积分字段,大家可以自行选择启用extcredits1-8任意字段,感谢大家的支持

在首面显示运作

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

    221 => '社区宠物',

就行了,注意排序


注:装了以前的版本,首先下载压缩包,上传覆盖,另外后台插件中心删除原来配置,重新导入压缩包里的插件设置


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


重要更新

在weaponshop.php文件中找

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

复制代码

在上面有这么两行：

1. $petmoney=$usermoney;
   
2.                
   
3. $totalmoney=intval($totalmoney*$discount);
   

复制代码

改为

1. $petmoney=floor($usermoney);
   
2.                
   
3. $totalmoney=floor($totalmoney*$discount);
   

复制代码

在itemshop.php文件中找

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

复制代码

在上面有这么两行：

1. $petmoney=$usermoney;
   
2.                
   
3. $totalmoney=intval($totalmoney*$discount);
   

复制代码

改为

1. $petmoney=floor($usermoney);
   
2.                
   
3. $totalmoney=floor($totalmoney*$discount);
   

复制代码

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

[ 本帖最后由 lj80117 于 2007-2-3 21:24 编辑 ]

2006.01.10日更新,昨天发布的时候,一个模板文件忘了更新了,大家覆盖就行了,1楼的我就不重新发了,大家用把这个模板文件覆盖原来那个就行了,解决不显示银行存款的问题

[ 本帖最后由 lj80117 于 2006-1-10 12:14 编辑 ]

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

演示:http://www.9232.org/viewthread.php?tid=11763
经本人测试通过,如有问题请大家指正
修改viewthread.php:
查找:

1. 
   
2. m.email, m.gender, m.showemail
   

复制代码

在后面添加:

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

复制代码

查找:

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

复制代码

在下面添加:

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

复制代码

查找:

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

复制代码

在下面添加:

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

复制代码

修改 templates/viewthread.htm
查找:

1. 
   
2. {lang online_status} {lang offline}
   
3.                 <!--{/if}-->
   
4.         <!--{/if}-->
   

复制代码

在下面添加:

1. 
   
2. <!--{if $post[mypet]}-->
   
3. <br><br>
   
4. <div align="center">
   
5. <table width='120'>
   
6. <b>宠物资料：</b><br>
   
7. </table>
   
8. <table width='150' border="1" cellpadding="9">
   
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>
   
10. <td>
    
11. <span class="smalltxt">
    
12. 名称：$post[mypet]<br>
    
13. 性别：<!--{if $post[mypetsex]==1}-->雄<!--{else}-->雌<!--{/if}--><br>
    
14. 级别：$post[mypetlevel]<br>
    
15. 属性：$post['mypetsx']<br>
    
16. 状态：<!--{if $post[mypetdead]==0}-->生存<!--{elseif $post[mypetdead]==1}-->死亡<!--{else}-->封印<!--{/if}--><br>
    
17. 战斗：<!--{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>
    
18. <div align="left">
    
19. </span></td></table></div>
    
20. <!--{/if}-->
    

复制代码

[ 本帖最后由 lj80117 于 2006-1-12 15:40 编辑 ]

关于发贴回贴加经验

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

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

复制代码

的上面加入

1. 
   
2. $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中末尾

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

复制代码

的上面加入

1. 
   
2. $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
中找到

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

复制代码

在下面加

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

复制代码

找到

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

复制代码

在下面加

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

复制代码

删贴减少宠物经验(本人只是简单测试,未经严格测试,请慎用)

修改topicadmin.php文件
找

1.                         if($uidarray) {
   
2.                                 updatepostcredits('-', $uidarray, array());
   
3. 
   
4.                         }
   
5.                         if($tuidarray) {
   
6.                                 updatepostcredits('-', $tuidarray, $postcredits);
   

复制代码

在后面加

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

复制代码

找

1.                 if($uidarray) {
   
2.                         updatepostcredits('-', $uidarray, array());
   
3.                 }
   
4.                 if($puidarray) {
   
5.                         updatepostcredits('-', $puidarray, $replycredits);
   

复制代码

在后面加

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

复制代码

[ 本帖最后由 lj80117 于 2006-1-10 00:57 编辑 ]

支持一个

借宝地招文字链接

只换文字链接

无恙岛
http://www.51anti.com

愿意交换，麻烦先做好链接，pm我

[ 本帖最后由 amoshuang 于 2006-6-25 18:19 编辑 ]

支持，占位

装了你以前的怎么办?该怎样做啊

[ 本帖最后由 szqyn 于 2006-1-10 00:37 编辑 ]

占位。。

我按照楼主的说法修改了有关文件，还是无法在会员资料里显示宠物信息哦~~~

[ 本帖最后由 浙江MPA 于 2006-1-12 18:23 编辑 ]

用户现金: 13190
用户存款:  
用户总金额:
用户发贴数:296  
用户消费折扣: 0.9704


总金额没有显示。。