水色論壇-WOG

[外掛](ALL)工會提存會款

跳到內容

[外掛](ALL)工會提存會款

版主: 涅魂, 簫哥

發表回覆

涅魂
 
文章: 4463
註冊時間: 2004-01-04 11:17 am
來自: Taiwan
性別: 男生

[外掛](ALL)工會提存會款

文章由 涅魂 » 2005-05-30 11:49 pm

功能：讓原本的工會捐獻功能再追加上提款功能 :wink:
而裝了此外掛之後，工會的提取款的格式亦有所改變
以下是輸入時所需使用的格式
代碼: 選擇全部
動作,數量


EXAMPLE
要提出50000元時，輸入
代碼: 選擇全部
[color=red]借款[/color],50000


要貢獻25500元時，輸入
代碼: 選擇全部
[color=red]捐款[/color],25500

上面的動作指令可以透過$donate跟$borrow來作更改
另外，還可以透過$must_lv來使等級低於限制的玩家無法提款 :wink:

開啟檔案wog/class/wog_act_group.php
尋找
代碼: 選擇全部
function group_money($user_id)
{
..........
..........
..........
}

覆蓋為
代碼: 選擇全部
   function group_money($user_id)
   {
      global $DB_site,$_POST,$lang;
      $donate="捐款";   //使用"捐款"時所需輸入的文字
      $borrow="借款";   //使用"借款"時所需輸入的文字
      $must_lv=100;   //使用最低等級限制
      if(empty($_POST["temp_id"]))
      {
         alertWindowMsg($lang['wog_act_nomoney']);
      }
      if(!eregi("[,]", $_POST["temp_id"])){alertWindowMsg('錯誤格式');}
      $temp_id=split(",", $_POST["temp_id"]);
      if(!is_numeric($temp_id[1]) || (int)$temp_id[1] < 1)
      {
         alertWindowMsg($lang['wog_act_errmoney']);
      }
      $temp_id[1]=(int)$temp_id[1];
      $group_main=$DB_site->query_first("select a.p_money,a.p_g_id,a.p_lv,b.g_money from wog_player a,wog_group_main b where a.p_id=".$user_id." and b.g_id=a.p_g_id");
      if($group_main["p_g_id"]==0)
      {
         alertWindowMsg($lang['wog_act_group_nogroup']);
      }
      if($group_main["p_money"]<$temp_id[1] && $temp_id[0]==$donate)
      {
         alertWindowMsg($lang['wog_act_nomoney']);
      }
      if($group_main["g_money"]<$temp_id[1] && $temp_id[0]==$borrow)
      {
         alertWindowMsg($lang['wog_act_nomoney']);
      }
      if($temp_id[0]==$borrow && $group_main["p_lv"]<=$must_lv)
      {
         alertWindowMsg('等級低於'.$must_lv.'不得借款');
      }
      if($temp_id[0]!=$donate && $temp_id[0]!=$borrow){alertWindowMsg('指令錯誤');}
      if($temp_id[0]==$donate){$g_m="+";$p_m="-";}else{$g_m="-";$p_m="+";}
      $DB_site->query("update wog_group_main set g_money=g_money".$g_m."".$temp_id[1]." where g_id=".$group_main["p_g_id"]);
      $DB_site->query("update wog_player set p_money=p_money".$p_m."".$temp_id[1]." where p_id=".$user_id);
      showscript("parent.job_end(15)");
      unset($group);
   }

儲存，關閉所有檔案。
有任何問題儘管提出，完畢。 :wink:


最後由 涅魂 於 2006-06-04 9:55 am 編輯，總共編輯了 3 次。
回頂端
maxjbl
 
文章: 178
註冊時間: 2005-05-03 4:20 am

文章由 maxjbl » 2005-06-23 11:41 am

大大 請問 如果說 要使用
1. 會員提出申請 由會長撥款 的方式要怎樣修改
2. 我有裝 補士氣 或 增兵由工會支出 又要怎樣改
麻煩大大了!!!


回頂端
ＦLＯKＹ﹏。
 

文章由 ＦLＯKＹ﹏。 » 2005-06-23 4:14 pm

請善用搜尋，，，此問題以有人問過。


回頂端
maxjbl
 
文章: 178
註冊時間: 2005-05-03 4:20 am

文章由 maxjbl » 2005-06-23 6:22 pm

真的嗎 我今天翻遍了所有的文章 根本沒看有人發過類似的文章 請問大哥您是在哪看到的 指點一下!!!!


回頂端

涅魂
 
文章: 4463
註冊時間: 2004-01-04 11:17 am
來自: Taiwan
性別: 男生

文章由 涅魂 » 2005-06-23 6:43 pm

maxjbl 寫:大大 請問 如果說 要使用
1. 會員提出申請 由會長撥款 的方式要怎樣修改
2. 我有裝 補士氣 或 增兵由工會支出 又要怎樣改
麻煩大大了!!!

1.這種方式還頗不錯的，但是詳細的修改方法還是先等我考完試再說吧.... :oops:
不然您也可以試著研究看看 :wink:

2.不會衝突，安心的裝吧 :lol:


最後由 涅魂 於 2005-06-23 6:48 pm 編輯，總共編輯了 1 次。
回頂端
maxjbl
 
文章: 178
註冊時間: 2005-05-03 4:20 am

文章由 maxjbl » 2005-06-23 6:46 pm

好 那先祝您考試順利!!! 在此之前先來研究看看 ~ ~

期待您將這個工會系統 改善完成 感激不盡!!!!


回頂端
maxjbl
 
文章: 178
註冊時間: 2005-05-03 4:20 am

文章由 maxjbl » 2005-06-26 2:39 am

大大我還想到了一點 就是 萬一申請人 借錢不還 那怎麼辦阿??
其他人不是欲哭無淚 是否能追加 借款訊息紀錄 以便查核 的外掛系統
謝謝大大!!


回頂端
maxjbl
 
文章: 178
註冊時間: 2005-05-03 4:20 am

文章由 maxjbl » 2005-06-30 6:26 pm

會員提出申請 由會長撥款
借款訊息紀錄 以便查核 的外掛系統
大大這個研究了如何 很期待耶!!


回頂端

涅魂
 
文章: 4463
註冊時間: 2004-01-04 11:17 am
來自: Taiwan
性別: 男生

文章由 涅魂 » 2005-06-30 6:35 pm

嗯....今天剛考完試，回到家之後又忙著處理暑假的行程，所以........
還沒動工^^|||
而且除了這個之外還有其他的外掛也正在研究(雖然有部分胎死腹中= =)，總不能同時製作數個外掛吧? :shock:
還是只能在等等囉.... :roll:


回頂端
maxjbl
 
文章: 178
註冊時間: 2005-05-03 4:20 am

文章由 maxjbl » 2005-06-30 6:37 pm

好 沒問題!!!


回頂端

涅魂
 
文章: 4463
註冊時間: 2004-01-04 11:17 am
來自: Taiwan
性別: 男生

文章由 涅魂 » 2005-07-05 10:31 am

嗯，寫好囉~~~~ :wink:

除了加上會長確認跟紀錄之外，還將之前的提款方式改成用按鈕的方式來提款 :wink:
而只有提款的時候才會紀錄在[匯款動態]中，捐款的話則是直接捐款，不必經由會長予許。

※為了傳值的方便性，沒有安裝過工會頭銜外掛的朋友請先安裝此步驟
開啟檔案wog/wog.js 寫:尋找
代碼: 選擇全部
function act_click(f,a,b)
{
..........
..........
..........
}

改成
代碼: 選擇全部
function act_click(f,a,b,c)
{
   var thisfrom="";
   thisfrom=parent.foot.document.f1;
   thisfrom.act.value=a;
   thisfrom.f.value=f;
   thisfrom.temp_id.value=b;
   thisfrom.temp_id2.value=c;
   thisfrom.action="wog_act.php";
   thisfrom.submit();
}


##########----------分格線----------##########

在您的資料庫中輸入下列語法 寫:CREATE TABLE `wog_mrecord` (
`r_id` int(11) NOT NULL auto_increment,
`r_gid` int(11) NOT NULL default '0',
`r_pid` int(11) NOT NULL default '0',
`r_money` int(11) NOT NULL default '0',
`r_text` varchar(50) NOT NULL default '',
`r_st` tinyint(1) unsigned NOT NULL default '0',
`r_time` int(10) unsigned NOT NULL default '0',
PRIMARY KEY (`r_id`)
) TYPE=MyISAM AUTO_INCREMENT=1 ;

開啟檔案wog/wog.js 寫:尋找
代碼: 選擇全部
view_name.write('<tr><td><input type="button" value="領地狀態" onClick="parent.act_click(\'group\',\'center\')"> </td><td class=b1><--觀看領地狀態,領地管理<會員專用>');

改成
代碼: 選擇全部
   view_name.write('<tr><td><input type="button" value="領地狀態" onClick="parent.act_click(\'group\',\'center\')"> </td><td class=b1><--觀看領地狀態,領地管理<會員專用><input type="button" value="匯款動態" onClick="parent.act_click(\'group\',\'mr_view\')"></td></tr>');


尋找
代碼: 選擇全部
function system_view

前面，加上
代碼: 選擇全部
function mr_view(s,adm)
{
   message_cls();
   var view_name=parent.wog_view;
   var adm_mode="";
   var border_w="70%";
   if(adm==1){adm_mode="<td>選項</td>";border_w="60%";}
   view_name.document.write(temp_table1);
   view_name.document.write('<tr><td width='+border_w+'>會款紀錄</td><td width=30%>時間</td>'+adm_mode+'</tr>');
   if(s)
   {
      var s1=s.split(";");
      for(var i=0;i<s1.length;i++)
      {
         var s2=s1[i].split(",");
         if(adm==1){view_name.document.write('<tr><td  width='+border_w+'>'+s2[1]+'</td><td>'+s2[2]+'</td><td width=10%><input type=button value="予許" onClick="parent.act_click(\'group\',\'mr_end\','+s2[0]+',1)"><input type=button value="刪除" onClick="parent.act_click(\'group\',\'mr_end\','+s2[0]+',0)"></td></tr>');}
         else{view_name.document.write('<tr><td  width='+border_w+'>'+s2[1]+'</td><td>'+s2[2]+'</td></tr>');}
      }
   }else
   {
      if(adm==1){view_name.document.write('<tr><td  width='+border_w+' colspan=2>無任何紀錄</td></tr>');}
      else{view_name.document.write('<tr><td  width='+border_w+'>無任何紀錄</td></tr>');}
   }
   view_name.document.write(temp_table2);
}


開啟檔案wog/wog_act.php 寫:尋找
代碼: 選擇全部
case "fire_list_peo":

前面，加上
代碼: 選擇全部
         ##########mrecord_start##########
         case "mr_view":
            group_mr_view($HTTP_COOKIE_VARS["wog_cookie"]);
         break;
         case "mr_end":
            group_mr_end($HTTP_COOKIE_VARS["wog_cookie"]);
         break;
         ##########mrecord_end##########

尋找
代碼: 選擇全部
//################# group_hp begin ###############

前面，加上
代碼: 選擇全部
#~#~#~~~~~~~~~~mrecord_start~~~~~~~~~~#~#~#
//################# group_mr_view begin ###############
function group_mr_view($user_id)
{
   $wog_act_class = new wog_act_group;
   $wog_act_class->group_mr_view($user_id);
}
//################# group_mr_end begin ###############
function group_mr_end($user_id)
{
   $wog_act_class = new wog_act_group;
   $wog_act_class->group_mr_end($user_id);
}
#~#~#~~~~~~~~~~mrecord_end~~~~~~~~~~#~#~#


開啟檔案wog/class/wog_act_group.php 寫:尋找
代碼: 選擇全部
function group_money($user_id)
{
..........
..........
..........
}

改成
代碼: 選擇全部
   function group_money($user_id)
   {
      global $DB_site,$_POST,$lang;
      if(empty($_POST["temp_id"]))
      {alertWindowMsg($lang['wog_act_nomoney']);}
      if(!is_numeric($_POST["temp_id"]) || (int)$_POST["temp_id"] < 1){alertWindowMsg($lang['wog_act_errmoney']);}
      $_POST["temp_id"]=(int)$_POST["temp_id"];
      $group_main=$DB_site->query_first("select a.p_money,a.p_g_id,b.g_money from wog_player a,wog_group_main b where a.p_id=".$user_id." and b.g_id=a.p_g_id");
      if($group_main["p_g_id"]==0)
      {alertWindowMsg($lang['wog_act_group_nogroup']);}
      if(($group_main["p_money"]<$_POST["temp_id"] && $_POST["temp_id2"]==1) || ($group_main["g_money"]<$_POST["temp_id"] && $_POST["temp_id2"]==2))
      {alertWindowMsg($lang['wog_act_nomoney']);}
      if($_POST["temp_id2"]==1)
      {
         $DB_site->query("update wog_group_main set g_money=g_money+".$_POST["temp_id"]." where g_id=".$group_main["p_g_id"]);
         $DB_site->query("update wog_player set p_money=p_money-".$_POST["temp_id"]." where p_id=".$user_id);
      }elseif($_POST["temp_id2"]==2)
      {
         $peo=$DB_site->query_first("select p_name from wog_player where p_id=".$user_id."");
         $DB_site->query("insert into wog_mrecord(r_id,r_gid,r_pid,r_money,r_text,r_time)values('',".$group_main[p_g_id].",".$user_id.",".$_POST["temp_id"].",'[等待]".$peo[p_name]." 向 會長 提出領款 ".$_POST["temp_id"]." 元的要求',".time().")");
      }
      showscript("parent.job_end(15)");
      
      unset($group);
   }
   ##########mrecord_start##########
   function group_mr_view($user_id)
   {
      global $DB_site,$_POST,$wog_arry,$lang;
      $DB_site->query("delete from wog_mrecord where r_time < ".(time()-(60*60*24*15)));
      $group=$DB_site->query_first("select a.p_g_id,b.g_adm_id1 as adm_id from wog_player a,wog_group_main b where a.p_id=".$user_id." and b.g_id=a.p_g_id");
      if($group[p_g_id]==0){alertWindowMsg("沒有所屬公會");}
      ($group[adm_id]==$user_id)?$adm=1:$adm=0;
      $sql="select r_id,r_text,r_time from wog_mrecord where r_gid=".$group[p_g_id]." order by r_id desc LIMIT 20";
      $pack=$DB_site->query($sql);
      $s="";
      while($packs=$DB_site->fetch_array($pack))
      {
         $s=$s.";".$packs[r_id].",".$packs[r_text].",".date("Y/m/d  g:i a",$packs[r_time]);
      }
      $s=substr($s,1,strlen($s));
      showscript("parent.mr_view('$s',$adm)");
      unset($s);
   }
   function group_mr_end($user_id)
   {
      global $DB_site,$_POST,$wog_arry,$lang;
      $group=$DB_site->query_first("select a.p_g_id,b.g_adm_id1 as adm_id,b.g_money from wog_player a,wog_group_main b where a.p_id=".$user_id." and b.g_id=a.p_g_id");
      if($group[p_g_id]==0){alertWindowMsg("沒有所屬公會");}
      ($group[adm_id]==$user_id)?$adm=1:$adm=0;
      if($adm==0){alertWindowMsg('非會長無法使用此功能！');}
      if($_POST["temp_id2"]==1)
      {
         $mr=$DB_site->query_first("select a.r_pid,a.r_money,a.r_st,b.p_name from wog_mrecord a,wog_player b where a.r_id=".$_POST["temp_id"]." and b.p_id=a.r_pid");
         if($mr[r_st]==1){alertWindowMsg('此項要求已經予許過了！');}
         if($group[g_money]<$mr[r_money]){alertWindowMsg('金錢不足');}
         $DB_site->query("update wog_mrecord set r_text='[予許] 會長 撥出 ".$mr[r_money]." 元的會款給 ".$mr[p_name]."',r_st=1 where r_id=".$_POST["temp_id"]);
         $DB_site->query("update wog_group_main set g_money=g_money-".$mr[r_money]." where g_id=".$group[p_g_id]);
         $DB_site->query("update wog_player set p_money=p_money+".$mr[r_money]." where p_id=".$mr[r_pid]);
      }elseif($_POST["temp_id2"]==0)
      {
         $DB_site->query('delete from wog_mrecord where r_id='.$_POST["temp_id"]);
      }
      $this->group_mr_view($user_id);
      unset($group);
   }
   ##########mrecord_end##########

儲存，關閉所有檔案
完畢。 :wink:


回頂端
maxjbl
 
文章: 178
註冊時間: 2005-05-03 4:20 am

文章由 maxjbl » 2005-07-06 6:28 pm

大大我改好了 要怎樣申請借錢阿

借款,50000 捐獻公款 這欄 按下之後出現 錯誤金額!!


回頂端
頭像
~木林森~
 
文章: 446
註冊時間: 2005-01-20 12:28 pm
來自: 澎湖的某一處

文章由 ~木林森~ » 2005-07-07 2:00 am

我也試著改過,若利用 "動作,數量" 這個格式來輸入的話,會出現 "錯誤金額" .
而指輸入數字的話雖然會出現 "手續完成!!" 的訊息,但事實上完全沒動靜...
(捐款的那個人錢沒扣,工會公款也沒有增加)


龜速吸收PHP知識中...
"新"[團結就是力量論壇]登場！歡迎大家加入～
WOG Only v2.08 + else Mod　(簡單的架設結合許多優秀外掛的WOG)
回頂端

涅魂
 
文章: 4463
註冊時間: 2004-01-04 11:17 am
來自: Taiwan
性別: 男生

文章由 涅魂 » 2005-07-07 8:16 am

maxjbl 寫:大大我改好了 要怎樣申請借錢阿

借款,50000 捐獻公款 這欄 按下之後出現 錯誤金額!!

借款方式已經改由按鈕的方式來運作了，輸入數字之後按下右方的[提領]鈕即可提出領款申請
接著會長必須到[會款動態]中進行每筆提領要求的處理，判斷可以給他前的話舊按下[予許]，若無法信任或有其他問題無法給錢的話就按[刪除]。 :wink:


回頂端

涅魂
 
文章: 4463
註冊時間: 2004-01-04 11:17 am
來自: Taiwan
性別: 男生

文章由 涅魂 » 2005-07-07 8:21 am

~木林森~ 寫:我也試著改過,若利用 "動作,數量" 這個格式來輸入的話,會出現 "錯誤金額" .
而指輸入數字的話雖然會出現 "手續完成!!" 的訊息,但事實上完全沒動靜...
(捐款的那個人錢沒扣,工會公款也沒有增加)

您可以試著安裝新的版本看看 :wink:

不過舊的版本因該不會有這種問題存在.... :?


回頂端
下一頁
發表回覆

回到 外掛區

誰在線上

正在瀏覽這個版面的使用者：沒有註冊會員 和 5 位訪客

Powered by phpBB® Forum Software © phpBB Group
正體中文語系由 竹貓星球 維護製作
phpBB SEO
Time : 0.310s | 18 Queries | GZIP : On