ランダムお題ジェネレータ ver.1.07x1000

　と、ゆー訳で単語数を１０００に増やしてexe化しました。ダウンロード出来るか実験。

　RIGFv107.exeダウンロード！

;----------------------------------------------------------

title "ランダムお題ジェネレータＦ　ver.1.07"

*START
x=1000 ;単語（tng）総数
x2=41 ;助詞（wo）総数　其々数えて入力せよ
sdim tng,10,x
gosub *TANGO_GET
sdim wo,5,x2
gosub *WO_GET
randomize
rrpt=3
ox=200
width 285,155
ra=1:rb=5
tng2=""
objmode 2
*MAIN
font "ＭＳ ゴシック",15
mesbox tng2,ox-10,150:tng2=""
rpt=rrpt
pos ox,0:input rpt
font "century",9
pos ox,25:button "実行",*FIRST
pos ox,50:button "ランダム",*RNDM
font "ＭＳ ゴシック",15
pos ox,75:mes "ランダム幅"
pos ox,100:input ra
pos ox,125:mes "〜"
pos ox+20,125:input rb
stop
*RNDM
if rb-ra<0:rr=ra-rb:rra=rb:else:rr=rb-ra:rra=ra
rpt=rnd(rr+1)+rra
*FIRST
rrpt=rpt
cls
if rpt<=0:rpt=1
r=rnd(x)
tng2+= tng.r
if rpt=1:goto *MAIN
rpt--
*SECOND
repeat rpt
if W=0{
r=rnd(40)
if r<=10{
r=rnd(x):tng2+= tng.r:w=0
}else{
r=rnd(x2):tng2+= wo.r:w=1
}
}else{
r=rnd(x):tng2+= tng.r:w=0
}
loop
goto *MAIN

*TANGO_GET
tng="木","火","土","金","水","風","日","月","光","闇"
tng.10="宝石","水晶","クリスタル","鉱石","金属","大地","石","欠片","塊","鉱脈"
tng.20="伝説","物語","民話","昔話","神話","話","都市伝説","ネットロア","笑い話","伝統"
tng.30="鼠","牛","虎","兎","龍","蛇","馬","羊","猿","鳥"
tng.40="犬","猪","猫","鼬","鎌鼬","トカゲ","蜘蛛","虫","動物","植物"
tng.50="青","赤","黄","黄色","白","黒","緑","茶","茶色","緑色"
tng.60="金色","青色","赤色","白色","黒色","色","灰色","灰","紅","蒼"
tng.70="翠","碧","水鳥","白鳥","鶴","恩返し","復讐","復習","予習","返す"
tng.80="雛","雛人形","ぼんぼり","道頓堀","ビル","ヒル","煙草","煙管","キセル","死せる"
tng.90="知っている","知らない","知れない","人","々","人々","街","暗い","薄暗い","明るい"
tng.100="ドラゴン","ガーゴイル","グリフォン","ヒポグリフ","バッファロー","ヒュドラ","獅子","カーバンクル","ゴブリン","コボルド"
tng.110="妖精","妖怪","悪魔","悪霊","死霊","霊","精霊","魔","魔人","魔神"
tng.120="ワーム","ウォーム","バシリスク","コカトリス","ペガサス","ドラグーン","ジャイアント","巨人","神","紙"
tng.130="髪","長い","短い","一","二","三","四","五","六","七"
tng.140="八","九","十","座","十一","十二","十三","百","千","万"
tng.150="億","兆","京","垓","美人","ブサイク","かっこいい","かっこ悪い","普通","異常"
tng.160="極","西遊記","中国","繭","不可思議","無量大数","不思議","無数","無限","無限大"
tng.170="無限小","マクロ","ミクロ","喧嘩","戦争","大戦","対戦","先生","先制","専制"
tng.180="宣誓","戦線","宣戦","仮面","変身","返信","変心","パンチ","キック","チョップ"
tng.190="男","女","どっちつかず","子供","少年","少女","老人","妙齢","ストライクゾーン","両性具有"
tng.200="剣","刀","銃刀法","違反","者","槍","弓","術","魔法","魔術"
tng.210="奇術","記述","騎士","岸","棋士","既視","デジャブ","ジュネーブ","魔王","チンピラ"
tng.220="ちょっと","いっぱい","武器","弾薬","特に","みだらな","嬉々として","より良い","天涯孤独","地蔵"
tng.230="プロ","アマ","常勝","不敗","腐敗","腐った","死体","肢体","姿態","したい"
tng.240="やっぱり","やばい","ファイター","ナイト","マジシャン","ウィッチ","ソーサラー","ウィザード","パラディン","アサシン"
tng.250="忍者","侍","暗殺者","戦士","戦死","先史","文明","序章","始まり","終わり"
tng.260="終章","シーソー","ゲーム","ＲＰＧ","ファンタジー","リアル","フィクション","乞食","金持ち","小金持ち"
tng.270="餅","Ａ","Ｂ","Ｃ","Ｄ","Ｅ","Ｆ","Ｇ","Ｈ","Ｉ"
tng.280="Ｊ","Ｋ","Ｌ","Ｍ","Ｎ","Ｏ","Ｐ","Ｑ","Ｒ","Ｓ"
tng.290="Ｔ","Ｕ","Ｖ","Ｗ","Ｘ","Ｙ","Ｚ","ギリシャ","ドイツ","日本"
tng.300="アノマロカリス","ユーステノプテロン","イクチオステガ","ハルキゲニア","三葉虫","コップ","ロボ","マシーン","メカニック","ビス"
tng.310="恐竜","爬虫類","魚類","魚","両生類","蛙","イモリ","ヤモリ","サンショウウオ","特別"
tng.320="天然記念物","国宝","人間国宝","無形","有形","重要","文化財","文化","財","財政"
tng.330="破綻","サタン","デビル","ゴッド","エレメンタル","信仰","イワシ","サバ","マグロ","ミトコンドリア"
tng.340="テリア","テリウム","ium","ist","rogy","er","on","the","アミュレット","タリスマン"
tng.350="ヒーロー","ダーク","光の","闇の","炎","大陸","陸","半島","島","縞々の"
tng.360="パンツ","スカート","長靴","ニー","ドリル","スパッツ","レギンス","スク−ル","水着","体操服"
tng.370="ブルーマー","婦人","男爵","伯爵","子爵","大公","太閤","閣下","下賎な","下々の"
tng.380="趣味","白々しい","ようこそ！","！","？","＊","＃","＆","＝","／"
tng.390="円","楕円","細長い","長い","戦艦","軍艦","巻き","魔界","界","会"
tng.400="貝","海","川","湖","村","超","蝶","夢","枕","営業"
tng.410="努力","根性","死んだ","そろそろ","そのうち","コーヒー","ブレイク","工業","紅茶","アヘン"
tng.420="ポエニ","大惨事","天国","地獄","放火","放水","車","列車","電車","改造"
tng.430="人造","人口","人工","天蓋","孤独","孤高の","一匹","狼","魚","帰ってきた"
tng.440="さらば","食べちゃダメ","食べよう","パーティー","インド","野原","平原","城","代わりに","代わって"
tng.450="天誅","中心","忠臣","地震","熱風","アレクサンドロ","ヨハン","ジョアン","ジョン","トラボルタ"
tng.460="カーメン","マルコ","ミハエル","ミサイル","マジック","総帥","マジカル","桜","梅","桃"
tng.470="花","実","ミッキー","マイク","ブリジストン","ブリュンヒルデ","エスペラント","エスパー","一撃必殺","必殺"
tng.480="知らぬが","人形","ドール","スーツ","モビル","機械仕掛け","ウィンドウズ","積み木","する","千年王国"
tng.490="議員","税","蟹","光線","ビーム","レーザー","ブレード","ソード","伝説","勇者"
tng.500="魔法使い","魔女","女帝","帝王","仕組まれた","仕組んだ","帰れ","帰って来い","技術","革命"
tng.510="クーデター","喰う","喰われた","喰った","寝る","ネタ","寝た","寝ている","眠れ","草"
tng.520="茎","釘","五寸","一寸","寸","理","王朝","王家","王","大臣"
tng.530="悪い","良い","善玉","悪玉","ニュートラル","ギア","コマンド","コマンダー","アナコンダ","穴"
tng.540="大穴","穴馬","赤丸急上昇","急上昇","急降下","上昇","降下","効果","硬貨","硬化"
tng.550="学科","学","学院","学園","幼稚園","小学校","中学校","高校","聖","邪"
tng.560="大学","大学院","家庭","過程","仮定","課程","硬い","柔らかい","柔道","家"
tng.570="氏","市","詩","士","師","史","私","使","真","新"
tng.580="芯","心","臣","親","紳士","淑女","レディ","ジェントル","インテリ","マニア"
tng.590="アニマ","アニメ","マニアック","的","電波","電磁波","磁力","電磁力","伝道","殿堂"
tng.600="電動","伝導","電導","パソコン","パーソナル","コンピュータ","マイ","マイコン","コス","コスチューム"
tng.610="レジスター","レジ打ち","打ち","アルバイト","店員","店長","熱血","冷血","冷静","コンビニ"
tng.620="新商品","商品","奴隷","市民","自由","不自由","在宅","不在","不良","ちょっと"
tng.630="我が","君こそ","君","君主","主君","ウェイター","ウェイトレス","マスター","ボール","スイッチ"
tng.640="ボーイ","ガール","モダン","焼き","抵触","定職","定食","停職","端","橋"
tng.650="箸","ブリッジ","スティック","ポテト","マヨネーズ","ケチャップ","卵","醤油","故障","呼称"
tng.660="湖沼","急性","旧制","急逝","旧姓","世","誰","損","ソン","リー"
tng.670="ブルース","ジョセフ","ヨセフ","ヨハン","パブロ","スキー","スカンジナビア","連合","連邦","ロシア"
tng.680="アジア","かつて","勝手","勝利","敗北","遁走","逃走","闘争","政党","正当"
tng.690="正統","砂糖","砂","砂漠","天空","都市","装備","装飾","アクセサリー","アビリティ"
tng.700="ジョブ","ジョン","ジャック","ハマー","オキシゲン","デストロイヤー","デス","レベル","ハイ","ロー"
tng.710="レーベル","ラベル","ラバ","ラッパ","トロンボーン","トランペット","ファゴット","ユーフォニウム","シンバル","チューバ"
tng.720="楽器","サックス","アルト","ソプラノ","テナー","テノール","歌手","バス","コントラバス","コンバス"
tng.730="コンパス","コンマス","マスコン","マスドライバー","ドライバー","マス","ドライブ","ライダー","ライド","ラック"
tng.740="チャック","フルート","ピアニカ","ピアノ","フォルテ","アレグロ","オーボエ","タクト","マリンバ","鍵盤"
tng.750="鍵","キー","キース","キス","キル","バーン","ホルン","ホーン","バトル","ヘル"
tng.760="バトラー","モルフォ","バタフライ","フライ","ピッコロ","時事","執事","恐怖","空手","剣道"
tng.770="道","明かり","本","書","巻物","干物","物干し竿","竿","ザオガー","ガー"
tng.780="オン","ダイ","モン","ー","…","＋","・","「","」","http://"
tng.790=".com",".co.jp","（Ｃ）","（Ｒ）","（ＴＭ）","株式会社","会社","社","盛","並"
tng.800="波","ジョンソン","ソン","マック","マク","トラボルタ","アーム","ストロング","船長","艦長"
tng.810="館長","みさお","ケイ","チップ","コイン","イコン","遺憾","意","感","題"
tng.820="代","第","台","大","声","声優","俳優","役者","作者","登場"
tng.830="篭城","兵糧","兵庫","群馬","芝","群","軍","郡","不","府"
tng.840="村","群れ","罰","閥","計","刑","軽","系","形","地方"
tng.850="地区","自治","事情","自重","耐えられる","耐える","不詳","負傷","死にかけ","消えた"
tng.860="蘇る","蘇った","蘇れ","蘇り","アンデッド","モンスター","ゾンビ","スケルトン","クロス","ワード"
tng.870="スペル","コレクター","コレクト","法","砲","国","時間","切れ","切れた","ギリギリ"
tng.880="バイク","バイシクル","ナックル","アップル","ゼリー","こんにゃく","ジェリー","ジュエリー","ジュエル","セント"
tng.890="ドル","マルク","ゲー","ゲイ","芸","飼い","下位","下級","上級","上位"
tng.900="譲位","攘夷","尊王","天皇","天王","天命","天才","委細","異彩","異才"
tng.910="盆栽","凡才","非凡","ヘリボーン","作戦","任務","認知","任地","赴任","単身"
tng.920="タンジェント","サイン","コサイン","ログ","エロ","ローグ","ロック","ラグナ","ライトニング","ライジング"
tng.930="シャイニング","アタック","フィンガー","イエス","ノー","脳","腕","脚","足","拳"
tng.940="右","左","中央","突破","西","東","北","南","上","下"
tng.950="修行","話によると","電池","池","流れ","威圧","激怒","地図","津","港"
tng.960="底","あそこ","あれ","それ","とことん","因みに","熊","氷","サガ","サーガ"
tng.970="リミット","リミテッド","アン","泉","鏡","世界","世代","静止","衛星","衛兵"
tng.980="近衛兵","記事","生地","雉","娘","息子","ムスカ","ムサイ","ムサい","麺"
tng.990="面","メン","元祖","クール","ストーン","パードン？","釘","地下","地上","星"
return
*WO_GET
wo="を","の","と","から","は","へ","こそ","と言えば","に","には"
wo.10="迄に","より","よりも","こそは","こそが","とは","と言うより","とか","とかの","っぽい"
wo.20="な","して下さい","すべきでない","時々","ばかりか","のような","かも","かも知れない","とは思えない","特に"
wo.30="そして","それより","その上","以上に","未満の","要するに","だ","だろう","だが","だとしても"
wo.40="に乗った"
return