このゲームの概要 †
自由にかいぞうしてもいいです。 改造したのができたらここにもってきてください
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542// 戦っては強くするゲームです//ver : 0.63#include "user32.as"#const winw 360#const winh 250#const mescenx winw/2#const mesceny 15#const objpx 10#const objpy 40#const batesx 20#const batpsx 220#const batsy 30#const sitemx 80#const sitemy 40#module#deffunc align str string, int t1, int t2, local cx, local cycx=ginfo_cx : cy=ginfo_cy : tcx=cx : tcy=cyif t1=1{cx-=ginfo_mesx/2} // 中央揃えelse : if t1=2{cx-=ginfo_mesx} // 右揃えelse{cx=cx} // 左揃えif t2=1{cy-=ginfo_mesy/2} // 中央揃えelse : if t2=2{cy-=ginfo_mesy} // 右揃えelse{cy=cy} // 左揃えpos tcx,tcy+ginfo_mesyreturn#globalsdim textsdim hsdim whobj,32;ウィンドウ、画像の設定buffer 1mes"111\n222\n333"screen ,winw,winhpos objpx,objpycombox level,120,"0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23\n24\n25\n26\n27\n28\n29\n30\n31\n32\n33\n34\n35\n36\n37\n38\n39\n40\n41\n42\n43\n44\n45\n46\n47\n48\n49\n50"whobj.7 = objinfo(stat, 2)pos objpx,objpypos objpx,objpypos objpx,objpygosub *scenechange_beginonexit gosub *money_checkingHP=50+rnd(101)AT=4+rnd(4)money=500px=40 : py=30 : text="BATTLE GAME"repeat strlen(text)px+=24wait 8loopsysfont 0Showwindow whobj.0, 5stop*scene_maindim battlefinishgosub *scenechange_beginShowwindow whobj.1, 5Showwindow whobj.2, 5Showwindow whobj.3, 5Showwindow whobj.4, 5if shopopen=1 : Showwindow whobj.5, 5repeatstick check1if check1=1120 : gosub *supermodeawait 1loopstop*scene_enemyselectgosub *scenechange_beginif enemyMAXLV=0{ShowWindow whobj.6, 5}else : if enemyMAXLV=1{ShowWindow whobj.7, 5}Showwindow whobj.8, 5Showwindow whobj.9, 5stop*scenechange_beginrepeat length(whobj)Showwindow whobj.cnt, 0loopreturn*boss_1enemyHP=200enemyAT=20enemyMODE=1goto *battle_1b*boss_2enemyHP=500enemyAt=30enemyMODE=2goto *battle_1b*boss_3enemyHP=1000enemyAt=0enemyMODE=3goto *battle_1b*boss_4enemyHP=1500enemyAt=40enemyMODE=4goto *battle_1b*battle_1AenemyHP=level*10+rnd(10)+rnd(101)+50enemyAT=level*2+rnd(6)+1gosub *scenechange_begin*battle_1ByourHP=HPyourAT=ATrepeatredraw 0enemydamage=yourAT+rnd(3)-rnd(3)if enemyMODE=1 : enemydamage=enemydamage/2if yourMODE=2{check=rnd(21)if check<=10{drainHP=enemydamage/2yourHP+=drainHP}}enemyHP-=enemydamageredraw 1wait 20if enemyHP<0{battlefinish=1 : break}redraw 0yourdamage=enemyAT+rnd(3)-rnd(3)if enemyMODE=3{check=rnd(101)if check<33 : yourdamage=33}if yourMODE=1{check=rnd(21)if check<10 : yourdamage=0 : kaihi=1}if enemymode=4 {check=rnd(21)if check<10 : yourdamage=50 : koori=1}yourHP-=yourdamageif enemyMODE=2{check=rnd(21)if check<=5{drainHP=yourdamage/2enemyHP+=drainHP}}if yourdamage<0 : yourdamage=0color 255redraw 1wait 20if yourHP<0{battlefinish=-1 : break}loopif battlefinish=1{goto *youwin}else : if battlefinish=-1{goto *youlose}*youwingetmoney=level*rnd(30)+level*30+50if enemyMODE=1 : enemyMODE=0 : getmoney=1000if enemyMODE=2 : enemyMODE=0 : getmoney=3000money+=getmoneyitemdrop_1=level*2itemdrop_2=rnd(101)if itemdrop_1<itemdrop_2 {getitem=rnd(2)if getitem=0 {upHP=5+rnd(6)HP+=uphp}if getitem=1 {upAT=1+rnd(2)AT+=upAT}}goto *scene_main*youlosedialog"あなたの負け..."if enemyMODE!0 : enemyMODE=0goto *scene_main*scene_shop1gosub *scenechange_beginpy=sitemy : iy=23if grade>=1 {}if grade>=2 {}Showwindow whobj.10, 5Showwindow whobj.11, 5Showwindow whobj.12, 5if grade>=1 {Showwindow whobj.13, 5Showwindow whobj.14, 5}if grade>=2 {Showwindow whobj.15, 5Showwindow whobj.16, 5}Showwindow whobj.17, 5stop*item_1if stat=7 : stopmoney-=200upHP=5+rnd(6)HP+=uphpgoto *scene_shop1*item_2if stat=7 : stopmoney-=200upAT=1+rnd(2)AT+=upATgoto *scene_shop1*item_3if grade=0 : goto *item_31if grade=1 : goto *item_32if grade=2 : goto *item_33stop*item_31if stat=7 : stopmoney-=1000grade=1goto *scene_shop1*item_32if stat=7 : stopmoney-=3000grade=2goto *scene_shop1*item_33if stat=7 : stopmoney-=5000shopopen=1goto *scene_shop1*item_4if stat=7 : stopmoney-=2500sword=1goto *scene_shop1*item_5if stat=7 : stopmoney-=2500shield=1goto *scene_shop1*item_6if stat=7 : stopmoney-=2000korosiamu=1goto *scene_shop1*item_7if stat=7 : stopmoney-=2000enemyMAXLV=1goto *scene_shop1*scene_colosseumgosub *scenechange_beginShowwindow whobj.18, 5Showwindow whobj.19, 5Showwindow whobj.20, 5Showwindow whobj.21, 5Showwindow whobj.22, 5stop*scene_shop2gosub *scenechange_beginpy=sitemy : iy=23Showwindow whobj.23, 5Showwindow whobj.24, 5Showwindow whobj.25, 5stop*itemB_1if MODE_1=1 : goto *itemB_1_2if stat=7 : stopmoney-=15000yourMODE=1MODE_1=1goto *scene_shop2*itemB_2if MODE_2=1 : goto *itemB_2_2if stat=7 : stopmoney-=30000yourMODE=2MODE_2=1goto *scene_shop2*itemB_1_2if stat=7 : stopyourMODE=1goto *scene_shop2*itemB_2_2if stat=7 : stopyourMODE=2goto *scene_shop2*supermodehp=500at=15sword=1shield=1korosiamu=1enemyMAXLV=1grade=2money=100000return*slotgamegosub *scenechange_begin;その他の設定title "スロット・ゲーム";ボタン等オブジェクトの配置Showwindow whobj.26, 5Showwindow whobj.27, 5Showwindow whobj.28, 5Showwindow whobj.29, 5Showwindow whobj.30, 5Showwindow whobj.31, 5;ゲーム初期設定sstat = 0 ;ゲーム状態 0 : スタートok、1 : ストップok、2 : 判定gosub *tokuten_disp ;得点表示coin = 0gosub *coin_disp ;賭点表示suu1 = rnd(5) * 2 ;数字初期設定suu2 = rnd(5) * 2suu3 = rnd(5) * 2kaiten1 = 0 ;回転停止kaiten2 = 0kaiten3 = 0repeatredraw 0;回転アニメーションif kaiten1 = 1 {suu1 = suu1 + 1if suu1 = 10 : suu1 = 0}if kaiten2 = 1 {suu2 = suu2 + 1if suu2 = 10 : suu2 = 0}if kaiten3 = 1 {suu3 = suu3 + 1if suu3 = 10 : suu3 = 0}redraw 1if sstat = 2 : gosub *hanteiawait 50loop;--------------------; サブルーチン -----;並び判定・得点計算 -----*hanteiif suu1 = suu2 & suu2 = suu3 { ;3つ同じ数字plusmoney = coin * 4money = money + plusmoney ;3倍+賭点 加算gosub *tokuten_disp ;得点表示}coin = 0 ;賭点初期化gosub *coin_disp ;賭点表示sstat = 0 ;0 : スタートokreturn;回転停止 -----*teishiif sstat ! 1 : return ;sstat=1以外は戻るif stat = 26 { ;ボタンID0kaiten1 = 0 ;回転停止if suu1 \ 2 = 1 : suu1 = suu1 + 1 ;数字補正if suu1 = 10 : suu1 = 0}if stat = 27 { ;ボタンID1kaiten2 = 0if suu2 \ 2 = 1 : suu2 = suu2 + 1if suu2 = 10 : suu2 = 0}if stat = 28 { ;ボタンID2kaiten3 = 0if suu3 \ 2 = 1 : suu3 = suu3 + 1if suu3 = 10 : suu3 = 0}if kaiten1 + kaiten2 + kaiten3 = 0 : sstat = 2 ;2 : 判定return;回転開始 -----*kaishiif sstat ! 0 : return ;sstat=0以外は戻るkaiten1 = 1 ;回転開始kaiten2 = 1kaiten3 = 1sstat = 1 ;1 : ストップokreturn;賭点入力 -----*coininif sstat ! 0 : return ;sstat=0以外は戻るif money >= 10 { ;得点チェックcoin = coin + 10 ;賭点加算money = money - 10 ;得点減算gosub *tokuten_disp ;得点表示gosub *coin_disp ;賭点表示} else {dialog "これ以上、持ち点がありません。"}return;得点表示 -----*tokuten_dispreturn;賭点表示 -----*coin_dispreturn*money_checkingend
Last-modified: 2013-05-13 (月) 23:24:16 (208d)