Translate application to Korean and convert encodings to UTF-8
This commit is contained in:
sanjeok77
Regular → Executable
+149
-149
@@ -1,149 +1,149 @@
|
||||
#-----------------------------------------------------------#
|
||||
# 罪と罰++ 二律背反 #
|
||||
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
||||
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
||||
# BLANK BOARD [ http://pom.to/ ] #
|
||||
#-----------------------------------------------------------#
|
||||
# 宝くじ Version 1.0
|
||||
#--- [注意事項] --------------------------------------------#
|
||||
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
||||
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
||||
#-----------------------------------------------------------#
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
# 宝くじ処理
|
||||
sub lotto{
|
||||
|
||||
if($tm==90){
|
||||
if($cmd<=0){
|
||||
$log .= "またお越しください…<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($cmd==1){
|
||||
$S = 500;
|
||||
if($S < $gold){
|
||||
$gold -= $S;
|
||||
$log .= "五百Ｇを支払った…<br>さぁ当たったかな～？<br>\n";
|
||||
$tm=95;
|
||||
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
|
||||
}else{
|
||||
$log .= "お金が足りないよ! ﾀﾀﾞじゃ夢も買えないこの現実･･･<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}
|
||||
}
|
||||
}elsif($tm==95){ # 宝くじ処理
|
||||
|
||||
my $dh =int(rand(450)) ;
|
||||
if($dh == 0){
|
||||
$gold += 100000;
|
||||
$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>壱等賞が当たった!!!<br>$nm は \十\万\Ｇを獲得した!<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh > 0 && $dh <= 2){
|
||||
$gold += 50000;
|
||||
$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>弐等賞が当たった!!!<br>$nm は 五万Ｇを獲得した!<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh > 10 && $dh <= 20){
|
||||
$gold += 10000;
|
||||
$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>参等賞が当たった!!!<br>$nm は 壱万Ｇを獲得した!<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh > 20 && $dh <= 60){
|
||||
$gold += 1000;
|
||||
$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>四等賞が当たった!!!<br>$nm は 壱千Ｇを獲得した!<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh == 447){
|
||||
$dh =int(rand(2)) ;
|
||||
if($dh){
|
||||
$hp = $max_hp;
|
||||
$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>幸運賞が当たった!!!<br>$nm は HP が全回復した!<br>\n";
|
||||
}else{
|
||||
$mp = $max_mp;
|
||||
$log .="ﾄﾞﾝﾄﾞﾝﾋｭｰﾋｭｰﾊﾟﾌﾊﾟﾌ♪<br>幸運賞が当たった!!!<br>$nm は MP が全回復した!<br>\n";
|
||||
}
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh == 448){
|
||||
$dh =int(rand(2)) ;
|
||||
if($dh){
|
||||
$hp = int($hp/2);
|
||||
$log .="ｶﾞｰｰﾝ!! 不幸賞が当たってしまった･･･。<br>$nm は HP が半分になった･･･。<br>\n";
|
||||
}else{
|
||||
$mp = int($mp/2);
|
||||
$log .="ｶﾞｰｰﾝ!! 不幸賞が当たってしまった･･･。<br>$nm は MP が半分になった･･･。<br>\n";
|
||||
}
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh == 449){#$dh == 449
|
||||
$dh =int(rand(5)) ;
|
||||
if($dh==0){
|
||||
$log .="おーっと!! 滅多に当たらない$dg_data[1][1]が当たった!!<br><br>装備する場合、現在所持している武具は破棄されます。<br>どうしますか？<br>\n";
|
||||
$tm = 100;
|
||||
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
$log2 .=qq|<select name=cmd size=1>\n|;
|
||||
$log2 .=qq|<option value="1">受け取る</option><option value="0">いらない</option>\n|;
|
||||
$log2 .=qq|</select><br>\n|;
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
|
||||
}elsif($dh==1){
|
||||
$log .="おーっと!! 滅多に当たらない$df_data[1][1]が当たった!!<br><br>装備する場合、現在所持している防具は破棄されます。<br>どうしますか？<br>\n";
|
||||
$tm = 115;
|
||||
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
$log2 .=qq|<select name=cmd size=1>\n|;
|
||||
$log2 .=qq|<option value="1">受け取る</option><option value="0">いらない</option>\n|;
|
||||
$log2 .=qq|</select><br>\n|;
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
|
||||
}else{
|
||||
$log .= "外れた･･･ また挑戦してくださいネェ♪<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}
|
||||
}else{
|
||||
$log .= "外れた･･･ また挑戦してくださいネェ♪<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}
|
||||
|
||||
}elsif($tm==100){#宝くじ 罪罰賞処理
|
||||
if($cmd){
|
||||
$log .="$nm は <b>$dg_data[1][1]</b>を手に入れた!!<br>\n";
|
||||
$dg_a = 1;
|
||||
$dg_cnt = $dg_data[1][3];
|
||||
}else{
|
||||
$log .="$nm は 涙をしのんで諦めた･･････\n";
|
||||
}
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($tm==115){#宝くじ 罪罰賞処理
|
||||
if($cmd){
|
||||
$log .="$nm は <b>$df_data[1][1]</b>を手に入れた!!<br>\n";
|
||||
$df_a = 1;
|
||||
$df_cnt = $df_data[1][3];
|
||||
}else{
|
||||
$log .="$nm は 涙をしのんで諦めた･･････\n";
|
||||
}
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
#-----------------------------------------------------------#
|
||||
# 죄와 벌++ 이율배반 #
|
||||
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
||||
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
||||
# BLANK BOARD [ http://pom.to/ ] #
|
||||
#-----------------------------------------------------------#
|
||||
# 복권 Version 1.0
|
||||
#--- [주의사항] --------------------------------------------#
|
||||
# 1.이 스크립트는 이하의 이용규정에 따라 배포되고 있습니다. #
|
||||
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
||||
#-----------------------------------------------------------#
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
# 복권 처리
|
||||
sub lotto{
|
||||
|
||||
if($tm==90){
|
||||
if($cmd<=0){
|
||||
$log .= "또 오세요…<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($cmd==1){
|
||||
$S = 500;
|
||||
if($S < $gold){
|
||||
$gold -= $S;
|
||||
$log .= "500 G를 지불했습니다…<br>자, 당첨되었으려나~?<br>\n";
|
||||
$tm=95;
|
||||
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
|
||||
}else{
|
||||
$log .= "돈이 부족해요! 공짜로는 꿈도 살 수 없는 이 현실…<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}
|
||||
}
|
||||
}elsif($tm==95){ # 복권 처리
|
||||
|
||||
my $dh =int(rand(450)) ;
|
||||
if($dh == 0){
|
||||
$gold += 100000;
|
||||
$log .="둥둥둥둥 빰빰빰빠♪<br>1등상에 당첨되었다!!!<br>$nm 님은 10만 G를 획득했다!<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh > 0 && $dh <= 2){
|
||||
$gold += 50000;
|
||||
$log .="둥둥둥둥 빰빰빰빠♪<br>2등상에 당첨되었다!!!<br>$nm 님은 5만 G를 획득했다!<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh > 10 && $dh <= 20){
|
||||
$gold += 10000;
|
||||
$log .="둥둥둥둥 빰빰빰빠♪<br>3등상에 당첨되었다!!!<br>$nm 님은 1만 G를 획득했다!<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh > 20 && $dh <= 60){
|
||||
$gold += 1000;
|
||||
$log .="둥둥둥둥 빰빰빰빠♪<br>4등상에 당첨되었다!!!<br>$nm 님은 1천 G를 획득했다!<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh == 447){
|
||||
$dh =int(rand(2)) ;
|
||||
if($dh){
|
||||
$hp = $max_hp;
|
||||
$log .="둥둥둥둥 빰빰빰빠♪<br>행운상에 당첨되었다!!!<br>$nm 님은 HP가 모두 회복되었다!<br>\n";
|
||||
}else{
|
||||
$mp = $max_mp;
|
||||
$log .="둥둥둥둥 빰빰빰빠♪<br>행운상에 당첨되었다!!!<br>$nm 님은 MP가 모두 회복되었다!<br>\n";
|
||||
}
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh == 448){
|
||||
$dh =int(rand(2)) ;
|
||||
if($dh){
|
||||
$hp = int($hp/2);
|
||||
$log .="쾅~!! 불행상에 당첨되어 버렸다…<br>$nm 님은 HP가 절반이 되었다…<br>\n";
|
||||
}else{
|
||||
$mp = int($mp/2);
|
||||
$log .="쾅~!! 불행상에 당첨되어 버렸다…<br>$nm 님은 MP가 절반이 되었다…<br>\n";
|
||||
}
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($dh == 449){#$dh == 449
|
||||
$dh =int(rand(5)) ;
|
||||
if($dh==0){
|
||||
$log .="오옷!! 좀처럼 당첨되지 않는 $dg_data[1][1]이(가) 당첨되었다!!<br><br>장착할 경우, 현재 소지하고 있는 무기는 파기됩니다.<br>어떻게 하시겠습니까?<br>\n";
|
||||
$tm = 100;
|
||||
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
$log2 .=qq|<select name=cmd size=1>\n|;
|
||||
$log2 .=qq|<option value="1">받는다</option><option value="0">필요 없다</option>\n|;
|
||||
$log2 .=qq|</select><br>\n|;
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
|
||||
}elsif($dh==1){
|
||||
$log .="오옷!! 좀처럼 당첨되지 않는 $df_data[1][1]이(가) 당첨되었다!!<br><br>장착할 경우, 현재 소지하고 있는 방어구는 파기됩니다.<br>어떻게 하시겠습니까?<br>\n";
|
||||
$tm = 115;
|
||||
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
$log2 .=qq|<select name=cmd size=1>\n|;
|
||||
$log2 .=qq|<option value="1">받는다</option><option value="0">필요 없다</option>\n|;
|
||||
$log2 .=qq|</select><br>\n|;
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
|
||||
}else{
|
||||
$log .= "꽝… 다음 기회에 또 도전해 주세요♪<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}
|
||||
}else{
|
||||
$log .= "꽝… 다음 기회에 또 도전해 주세요♪<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}
|
||||
|
||||
}elsif($tm==100){#복권 죄벌상 처리
|
||||
if($cmd){
|
||||
$log .="$nm 님은 <b>$dg_data[1][1]</b>을(를) 손에 넣었다!!<br>\n";
|
||||
$dg_a = 1;
|
||||
$dg_cnt = $dg_data[1][3];
|
||||
}else{
|
||||
$log .="$nm 님은 눈물을 머금고 포기했다……\n";
|
||||
}
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}elsif($tm==115){#복권 죄벌상 처리
|
||||
if($cmd){
|
||||
$log .="$nm 님은 <b>$df_data[1][1]</b>을(를) 손에 넣었다!!<br>\n";
|
||||
$df_a = 1;
|
||||
$df_cnt = $df_data[1][3];
|
||||
}else{
|
||||
$log .="$nm 님은 눈물을 머금고 포기했다……\n";
|
||||
}
|
||||
$tm = $cmd = 0;
|
||||
&shop_menu;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
Reference in New Issue
Block a user