发帖际遇插件1.3 For dz5.0 or dz4.1 [2006-10-28 06:00更新]

如果想单独去掉某个事件是不是需要把case *改下

1. <?php
   
2. /********************************************
   
3. 发帖际遇插件 by 梦游龙 - 2006-10-18  
   
4. http://www.ylpc.com.cn       QQ：225854
   
5. 演示及错误提交：http://www.my-soul.com/wow/forumdisplay.php?fid=39
   
6. 适用版本：DZ5.0 4.X
   
7. *********************************************/
   
8. if(!defined('IN_DISCUZ')) {
   
9.         exit('Access Denied');
   
10. }
    
11. require './forumdata/cache/plugin_random.php';
    
12. require './forumdata/cache/cache_settings.php';
    
13. $setting = $_DPLUGIN['random']['vars'];
    
14. $openrandom = $setting['openrandom'];
    
15. $openmessage = $setting['openmessage'];
    
16. $openpm = $setting['openpm'];
    
17. $set_integral1 = extcredits.$setting['money1'];
    
18. $set_integral = extcredits.$setting['money'];
    
19. $myrand = $setting['myrand'];
    
20. $myfid = $setting['myfid'];
    
21. $mygroup=$setting['mygroup'];
    
22. $openfid=$setting['openfid'];
    
23. $charm=0;
    
24. $prize=0;
    
25. if(!$openrandom == 0){
    
26.         if(in_array($forum['fid'], explode(",", $myfid))&&$discuz_uid != 0){
    
27.         if(rand(1,100) <=$myrand)
    
28.                 {  
    
29.                 $myshowa = "";
    
30. switch ($numbers=rand(1,4)){
    
31. case 1:
    
32.                 $prize=rand(-85,-100);
    
33.                 $myshow = "你到处乱逛被管理员扣去".-$prize." 的金钱! ";break;
    
34. case 2:
    
35.                $prize=rand(40,80);
    
36.                $myshow = "管理员今天高兴的发疯了,你得到 ".$prize." 金钱 一边偷笑去吧! ";break;
    
37. case 3:
    
38.                 $prize=rand(30,90);
    
39.                 $charm=rand(2,4);
    
40.                 $myshow = "你举报违例贴，获得 ".$prize." 金钱， ".$charm." 威望的奖励! ";break;
    
41. 
    
42. case 4:
    
43.                 $myshow = "你老老实实，一切太平! ";break;
    
44.          }
    
45. $myquery= $db->query("SELECT $set_integral FROM {$tablepre}members WHERE uid=$discuz_uid");
    
46. $myextcredits=mysql_fetch_row($myquery);
    
47.         $set_prize=$myextcredits[0]+$prize;
    
48. if($set_prize>=0) {
    
49. if($openmessage == 1) {
    
50. $message ="[quote]" .$myshow."\n\n".$myshowa."[/quote]".$message;  
    
51. }
    
52. $mymessage="".$myshow."".$myshowa."";;
    
53. if($openpm == 1) {
    
54. $db->query("INSERT INTO {$tablepre}pms (msgfrom, msgfromid, msgtoid, folder, new, subject, dateline, message) VALUES ('System Message', '0', '$discuz_uid', 'inbox', '1', '你在论坛发贴时遇到了…', '$timestamp','$mymessage')");
    
55. $db->query("UPDATE {$tablepre}members SET newpm='1' WHERE uid=$discuz_uid");
    
56. }
    
57. $db->query("update {$tablepre}members set $set_integral=$set_integral+$prize,$set_integral1=$set_integral1+$charm where uid=$discuz_uid");
    
58. }
    
59. }
    
60. }
    
61. }
    
62. 
    
63. /********************************************
    
64. 发帖际遇插件 by 梦游龙 - 2006-10-18  
    
65. http://www.ylpc.com.cn       QQ：225854
    
66. 演示及错误提交：http://www.my-soul.com/wow/forumdisplay.php?fid=39
    
67. 适用版本：DZ5.0 4.X
    
68. *********************************************/
    
69. ?>

复制代码

[ 本帖最后由 loveatj 于 2006-11-20 18:41 编辑 ]

为什么我照你说的改了 帖子内的奖励信息还是可以编辑啊!!!

肯定没改对

顶一下，先装上试试，有问题请教楼主

挺不错的,支持了..

能否自己修改 处罚和奖励的扩展积分？

知道怎么修改了。已经改了。

请看图片，当我点击发的短消息 System Message时，网页无法显示，http://bbs.book80.com/profile-username-.html：无法显示，怎么回事呢？

好!!!!顶一个  好东西拿下了