200 $flag = 5 call->Header call->Menu call->Status call->Mokugyo mes->"

 金の貸し借りを管理している場所だよ。" # mes->"諸般の事情で「金の貸し借り」機能は廃止された。やはり無理があったようだ。" mes->"

\n" if{$karita_kane > 0} mes->"

 $PETNAMEから$karita_kane\Mocu借金。返済期限まで$hensai_kigen。

\n" if{$kasita_user > 0} getuser(0)->"$Strings9" if{$kasita_user > 0} $temp = $OU_USERNAME if{$kasita_user > 0} call->Kasi_ck if{$kasita_user > 0} strck($OU_PETNAME)->"$USERNAME" mes->"

 $OU_USERNAMEが君から金を借りている。

\n" if{$kasita_user > 0} if{$Strings_ck == 0} mes->"

 ああ、君から金を借りた人物は消滅した…債権放棄を選択したまえ。

\n" if{$karita_kane > 0} mes->"
\n・" if{$karita_kane > 0} menu(230)->"借金返済" mes->"
\n・" menu(210)->"金貸し許可" mes->"
\n・" menu(220)->"金を借りる" if{$kasita_user > 0} mes->"
\n・" if{$kasita_user > 0} menu(240)->"債権放棄" mes->"
\n・" menu(100)->"戻る" go->Footer 210 $flag = 5 call->Header call->Menu call->Status call->Mokugyo if{$kanekasi_ok > 0}go-> 210_a mes->"

 他のユーザーに金を貸してもいいのか?

\n" mes->"
\n・" menu(212)->"よい" mes->"
\n・" menu(211)->"やめる" go->Footer 210_a mes->"

 $kanekasi_ok\Mocu金を貸すことを許可しているな。さらに追加するか?

\n" mes->"
\n・" menu(212)->"追加する" mes->"
\n・" menu(214)->"金貸しの不許可" mes->"
\n・" menu(211)->"やめる" go->Footer 211 $flag = 5 call->Header call->Menu call->Status call->Mokugyo save mes->"

 まあ、そのほうがいいだろう。

\n" $go = 200 go->Click_go 212 $flag = 5 call->Header call->Menu call->Status call->Mokugyo case{$mocu} (-100) go->212_NG (100-500) $temp = 50 (501-2000) $temp = 100 (2001-3000)$temp = 200 (3001-5000)$temp = 400 (5001-) $temp =1000 mes->"

 いくら貸してもいいのだ?

\n" mes->"
\n・" menu(213)->"$temp" mes->" Mocu" mes->"
\n・" menu(211)->"やめる" go->Footer 212_NG mes->"

 人に金を貸す前に自分の心配をしたらどうだね?

\n" $go = 100 go->Click_go 213 $flag = 5 call->Header call->Menu call->Status call->Mokugyo case{$mocu} (100-500) $temp = 50 (501-2000) $temp = 100 (2001-3000)$temp = 200 (3001-5000)$temp = 400 (5001-) $temp =1000 $kanekasi_ok + $temp if{$kanekasi_ok >= $mocu} go->213_NG mes->"

 $kanekasi_okまで金を貸すことができるな。追加するか?

\n" mes->"
\n・" menu(213)->"$temp" mes->" Mocu追加" mes->"
\n・" menu(211)->"これでよし" go->Footer 213_NG mes->"

 所持金を超えてしまうぞ。やめておいた方がいい。

\n" $kanekasi_ok - $temp $go = 200 go->Click_go 214 $flag = 5 call->Header call->Menu call->Status call->Mokugyo $kanekasi_ok = 0 mes->"

 金貸しを不許可にしたぞ。

\n" $go = 200 go->Click_go 220 tvar->temp2 $flag = 5 call->Header call->Menu call->Status call->Mokugyo if{$karita_kane > 0} go->220_NG str(-1)->"" mes->"

 誰から借りる?(利子1割) " menu(200)->"やめる" mes->"

\n" getuser(0)->"$Strings9" $temp = $OU_USERNAME mes->"\n" mes->"" go->Kasikari_Map 220_NG mes->"

 これ以上借りられないぞ。" $go = 200 go->Click_go 222 tvar->risi $flag = 5 call->Header call->Menu call->Status call->Mokugyo getuser(0)->"$Strings9" $temp = $OU_USERNAME call->Kari_ck #誰から借りたか記憶 $karita_user = $k_flag str(-1)->"$OU_USERNAME" #貸した側に自分のID $OU_VAR4 = $id #利子の計算をして $risi = $OU_VAR7 $risi / 10 #相手の金を引いて…(利子分は予め戻す) $OU_VAR3 - $OU_VAR7 $OU_VAR3 + $risi #自分の方に加える(利子分予め引いておく) $mocu + $OU_VAR7 $mocu - $risi $karita_kane = $OU_VAR7 #返済期限 $hensai_kigen = 40 setuser($temp)->"$Strings9" save getuser(0)->"$Strings7" $temp = $OU_USERNAME go->222_temp_ck 222_temp_ck if{$temp == 0} go->222_ok getuser($temp)->"$Strings7" if{$OU_VAR1 == $k_flag} go->222_temp_on $temp - 1 go->222_temp_ck 222_temp_on $OU_VAR4 = $id #貸した側に自分のID $OU_VAR3 - $OU_VAR7 $OU_VAR3 + $risi #相手の金を引いて… setuser($temp)->"$Strings7" go->222_ok 222_ok mes->"

 $OU_USERNAMEから$karita_kane\Mocu借りたぞ

" $go = 200 go->Click_go 230 $flag = 5 call->Header call->Menu call->Status call->Mokugyo getuser(0)->"$Strings9" $temp = $OU_USERNAME $k_flag = $karita_user call->Kari_ck if{$temp == 0} go->230_b strck($OU_USERNAME)->"$PETNAME" go->230_a go->230_b 230_a mes->"

 $OU_USERNAMEから$karita_kane\Mocu借りているな。

\n" mes->"
\n・" menu(231)->"返す" mes->"
\n・" menu(200)->"やめる" go->Footer 230_b mes->"

 うん?債権人が木魚空間から消失したな。返さなくてすむぞ。

" $karita_kane = 0 $hensai_kigen = 0 $go = 200 go->Click_go 231 $flag = 5 call->Header call->Menu call->Status call->Mokugyo mes->"

 $karita_kane\Mocu中、いくら返す?

\n" mes->"
\n・" menu(232)->"全部返す" mes->"
\n・" menu()->"返す" mes->"
\n・" menu(200)->"やめる" go->Footer 232 $flag = 5 call->Header call->Menu call->Status call->Mokugyo getuser(0)->"$Strings9" $temp = $OU_USERNAME $k_flag = $karita_user call->Kari_ck $mocu - $karita_kane $OU_VAR3 + $karita_kane $OU_VAR4 = 0 setuser($temp)->"$Strings9" $karita_user = 0 $karita_kane = 0 $hensai_kigen = 0 str(-1)->"" mes->"

 $OU_USERNAME氏に全額返済したぞ。

\n" $go = 200 go->Click_go 240 $flag = 5 call->Header call->Menu call->Status call->Mokugyo getuser(0)->"$Strings9" $temp = $OU_USERNAME call->Kasi_ck strck($OU_PETNAME)->"$USERNAME" mes->"

 $OU_USERNAMEに金を貸しているが、債権を放棄して返してもらわなくてもよいようにするか?

\n" if{$Strings_ck == 0} go->240_NG mes->"
\n・" menu(241)->"債権放棄" mes->"
\n・" menu(200)->"やめる" go->Footer 240_NG $kasita_user = 0 mes->"

 債務者消滅により、債権は放棄された。

\n" $go = 200 go->Click_go 241 $flag = 5 call->Header call->Menu call->Status call->Mokugyo getuser(0)->"$Strings9" $temp = $OU_USERNAME call->Kasi_ck str(-2)->"" $OU_VAR5 = 0 $OU_VAR6 = 0 $OU_VAR8 = 0 setuser($temp)->"$Strings9" $kasita_user = 0 mes->"

 債権を放棄したぞ。

\n" $go = 200 go->Click_go go->Footer Kasikari_Map if{$temp == 0} go->Kasikari_Map_Last getuser($temp)->"$Strings9" $temp2 = $OU_VAR1 $temp2 + 2000 if{$OU_VAR1 == $id} go->Kasikari_Map_Myself mes->"" mes->"" mes->"\n" $temp - 1 go->Kasikari_Map Kasikari_Map_Myself mes->"" mes->"" mes->"\n" $temp - 1 go->Kasikari_Map Kasikari_Map_Last mes->"
名前モキュ金貸し借金相手返済期限
$OU_USERNAME$OU_VAR3" case{$OU_VAR7} (0) mes->"×" (1-) if{$OU_VAR4 == 0} menu($temp2)->"○$OU_VAR7" case{$OU_VAR7} (1-) if{$OU_VAR4 != 0} mes->"△$OU_VAR7" mes->"" case{$OU_VAR8} (0) mes->"なし" (1-)mes->"$OU_VAR8" mes->"$OU_PETNAME$OU_VAR6
$OU_USERNAME *$mocu" case{$kanekasi_ok} (0) mes->"×" (1-) if{$kasita_user == 0} mes->"○$kanekasi_ok" case{$kanekasi_ok} (1-) if{$kasita_user > 0} mes->"△$kanekasi_ok" mes->"" case{$karita_kane} (0) mes->"なし" (1-)mes->"$karita_kane" mes->"$PETNAME$hensai_kigen
" go->Footer Kanekari $flag = 5 call->Header call->Menu call->Status call->Mokugyo $temp = $SELECT_NUM $temp - 2000 $k_flag = $temp getuser(0)->"$Strings9" $temp = $OU_USERNAME call->Kari_ck mes->"

 $OU_USERNAMEから借りてよいか? 

" mes->"
\n・" menu(200)->"やめとく" mes->"
\n" mes->"
\n・" menu(222)->"OK" go->Footer Kari_ck if{$temp == 0} go->Kari_ck_Last getuser($temp)->"$Strings9" if{$OU_VAR1 == $k_flag} go->Kari_ck_on $temp - 1 go->Kari_ck Kari_ck_on # getuser($temp)->"$Strings9" return Kari_ck_Last return Kasi_ck if{$temp == 0} go->Kasi_ck_Last getuser($temp)->"$Strings9" if{$kasita_user == $OU_VAR1} go->Kasi_ck_on $temp - 1 go->Kasi_ck Kasi_ck_on return Kasi_ck_Last return