▼スレッド
│
└◇48:CasinoとColosseum [えあ] 09/16 11:17

　└◇49:Re:CasinoとColosseum [moon] 09/16 14:04
　　└◇50:Re[2]:CasinoとColosseum [えあ] 09/17 13:37<-last

はじめまして。
カジノとコロシアムをダウンロードさせていただきました。
ましまろさんの分割バージョンを使用しているのですが、
カジノとコロシアムの両方を設置すると、どうしても画面が
上手く表示されません。
何かご教授いただければ幸いです。

sub play_form {
&find_item_sub_ori if $Fm{'mode'} eq 'find_item';
&find_item_sub_ori if $Fm{'mode'} eq 'find_item2';
&find_item_sub_ori if $Fm{'mode'} eq 'find_item3';
&find_item_sub_ori if $Fm{'mode'} eq 'find_item4';
&find_item_sub_ori if $Fm{'mode'} eq 'find_item5';
&find_item_sub_ori if $Fm{'mode'} eq 'find_item6';
&find_item_sub_ori if $Fm{'mode'} eq 'find_item7';
&find_item_sub_ori if $Fm{'mode'} eq 'find_item8';
&find_item_sub_ori if $Fm{'mode'} eq 'find_item9';
&find_item_sub_ori if $Fm{'mode'} eq 'find_itema';
&find_item_sub_ori if $Fm{'mode'} eq 'find_itemb';
&find_item_sub_ori if $Fm{'mode'} eq 'find_itemc';
&find_item_sub_ori if $Fm{'mode'} eq 'find_itemd';
&find_item_sub_ori if $Fm{'mode'} eq 'find_iteme';
&find_item_sub_ori if $Fm{'mode'} eq 'find_itemf';
&find_item_sub_ori if $Fm{'mode'} eq 'find_itemg';
&find_item_sub_ori if $Fm{'mode'} eq 'find_itemh';
&find_item_sub_ori if $Fm{'mode'} eq 'find_itemi';
　　　　&fishing if $Fm{'mode'} eq 'fishing';
&dump_after if $Fm{'mode'} eq 'dump_after';
&goods_after if $Fm{'mode'} eq 'goods_after';
&use_after if $Fm{'mode'} eq 'use_after';
&gousei_after if $Fm{'mode'} eq 'gousei_after';
&yuugou_after if $Fm{'mode'} eq 'yuugou_after';
&stell_after if $Fm{'mode'} eq 'stell_after';
&stell_comp if $Fm{'mode'} eq 'stell_comp';
&fee_after if $Fm{'mode'} eq 'fee_after';
&com_after if $Fm{'mode'} eq 'com_after';
&bbs_after if $Fm{'mode'} eq 'bbs_after';
&note_after if $Fm{'mode'} eq 'note_after';
&poem_after if $Fm{'mode'} eq 'poem_after';
&judge_after if $Fm{'mode'} eq 'judge_after';
&name_after if $Fm{'mode'} eq 'name_after';
#　　　　&petname_after if $Fm{'mode'} eq 'petname_after';
&reward if $Fm{'mode'} eq 'reward';
&back_up if $Fm{'mode'} eq 'back_up';
&header;
&table_top;
&fee_before if $Fm{'mode'} eq 'fee_before';
&com_before if $Fm{'mode'} eq 'com_before';
&bbs_before if $Fm{'mode'} eq 'bbs_before';
&note_before if $Fm{'mode'} eq 'note_before';
&poem_before if $Fm{'mode'} eq 'poem_before';
&del_before if $Fm{'mode'} eq 'del_before';
&dump_before if $Fm{'mode'} eq 'dump_before';
&name_before if $Fm{'mode'} eq 'name_before';
#街移動システム
&town_walk if $Fm{'mode'} eq 'town_walk';
&town_walk_regist if $Fm{'mode'} eq 'town_walk_regist';
&jouhou_on if $Fm{'mode'} eq 'jouhou_on';
&jouhou2_on if $Fm{'mode'} eq 'jouhou2_on';
#組織
&sosiki_after if $Fm{'mode'} eq 'sosiki_after';
　　　　&petname_after if $Fm{'mode'} eq 'petname_after';
　　　　&lv_after if $Fm{'mode'} eq 'lv_after';
#カードファイル・コレクション
　　　　&make_file if $Fm{'mode'} eq 'make_file';
　　　　&up_after if $Fm{'mode'} eq 'up_after';
　　　　&down_after if $Fm{'mode'} eq 'down_after';
　　　　&coll_file if $Fm{'mode'} eq 'coll_file';
　　　　&file_in_after if $Fm{'mode'} eq 'file_in_after';
　　　　&caed_after if $Fm{'mode'} eq 'caed_after';
　　　　&catd_after if $Fm{'mode'} eq 'catd_after';
#倉庫
　　　　&azuke_after if $Fm{'mode'} eq 'azuke_after';
　　　　&hikidasi_after if $Fm{'mode'} eq 'hikidasi_after';
　　　　&make_after if $Fm{'mode'} eq 'make_after';
　　　　&souko_del_after if $Fm{'mode'} eq 'souko_del_after';
　　　　&sk_after if $Fm{'mode'} eq 'sk_after';
　　　　&abl_bbs_after if $Fm{'mode'} eq 'abl_bbs_after';
　　　　&abl_bbs_before if $Fm{'mode'} eq 'abl_bbs_before';
　　　　&find_metal if $Fm{'mode'} eq 'find_metal';
　　　　&mi_melt_form if $fm{'mode'} eq 'mi_melt_form';
　　　　if ($Fm{'mode'} eq 'makeitem_after_ori'){ require 'makeitem_after_ori.pl'; &makeitem_after_ori;}
　　　　if ($Fm{'mode'} eq 'makeitem_after_ori2'){ require 'makeitem_after_ori2.pl'; &makeitem_after_ori2;}
　　　　&pet_after if $Fm{'mode'} eq 'pet_after';
&petatk if $Fm{'mode'} eq 'petatk';
&petdef if $Fm{'mode'} eq 'petdef';
　　　　&onsen if $Fm{'mode'} eq 'onsen';
　　　　&farm_form if $fm{'mode'} eq 'farm_form';
　　　　&create_farm if $fm{'mode'} eq 'create_farm';
　　　　&farm_exec if $fm{'mode'} eq 'farm_exec';
　　　　&farm_item_buy if $fm{'mode'} eq 'farm_item_buy';
　　　　&farm_ev if $fm{'mode'} eq 'farm_ev';
　　　　&farm_ample if $fm{'mode'} eq 'farm_ample';
　　　　&sidejob_after if $Fm{'mode'} eq 'sidejob_after';
&msg;
　　　　&sidejob_before if $Fm{'mode'} eq 'sidejob_before';
　　　　if($Fm{'mode'} ne 'casino'){&normal_action;}else{&casino_action;}
　　　　{&colo_action;}else{&normal_action;}
#　　　　&normal_action;
&player_data;
&table_bottom;
}

ダウンロードありがとうございました。

if($Fm{'mode'} ne 'casino'){&normal_action;}else{&casino_action;}
{&colo_action;}else{&normal_action;}

とりあえず、上は文法的に間違っていますのでおそらくこれが原因です。
カジノとコロシアムを併用する場合は、以下のようになります。

if($Fm{'mode'} eq 'casino'){&casino_action;}
elsif($Fm{'mode'} eq 'colosseum'){&colo_action;}
else{&normal_action;}

初歩的なミスでした（＾＾；
無事解決しました、ありがとうございます。
これを気に、もう少しＰｅｒｌを勉強しようと思います。
お世話になりました（＾＾）