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->"$OU_USERNAME | "
mes->"$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 |
"
mes->"\n"
$temp - 1
go->Kasikari_Map
Kasikari_Map_Myself
mes->"$OU_USERNAME * | "
mes->"$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 |
"
mes->"\n"
$temp - 1
go->Kasikari_Map
Kasikari_Map_Last
mes->"
"
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