777town.net　ｳﾙﾄﾗﾌﾞﾗｯｸ

おはようございます
今、UWSCのファイルを開いたら
KBD(VK_3,UP,50)
KBD(VK_3,DOWN,50)
KBD(VK_UP,UP,50)
KBD(VK_UP,DOWN,50)
になってました・・・orz

こんなミスに気がつかなかったなんて・・・あるんですねwww
いえ、逆に勉強になりました

少しずつ前進していきたいと思います
よろしくお願いします

>>924
それでいいと思うよ
あと左停止出目でリプ判定入れた方がいいよ
ナビなし時に毎回目押ししてたら効率悪いし

777townは無料であそべるの？

>928
あっちいけシッシ

>>928
乞食は死ね

簡易的なものですがUWSCで南国と島唄ができました
島唄をそのまま南国に流用したらウェイトタイミングなどが
全然違うんですね

一応ボーナス時(パトランプが回ってるか判定)と通常時で速度を分けました
ただ、キュインしてから揃えるのは目押し機能に頼ってます
キュインランプの判定から目押し制御〜ハズシを目指します

あと質問なのですがAT機のリール消灯の座標取得は
リールのど真ん中でやるのでしょうか？
>>899をみるとリールで判定しているようなのですが
どうもうまくいきません
それともリール下の色の点等で判別してるのでしょうか？

>>931
島唄と南国は色が違うだけで処理は全く同じで作れるよ。
ベットやボタン停止等は全てランプで判定できるので作っておくといい
（停止ボタンやベットランプ色判定等）

島唄と南国
キュイン判定はベットランプ上の告知ランプで。
ボーナス判定は中央セグ下の３つのランプで。
ボーナスゲーム判定はベットランプで。
やってるかもしれないけど参考まで

消灯処理は俺もまだやってないから解りませんｗ

>>931
>>899はダブチャレのナビ取得だね。
色判定の指定が２００だと環境によってはうまく動かなかったみたい。
効率が悪かったところも併せて修正したのを書いとくよ。


// ダブルチャレンジのナビ対応-------------------------------------------------------------
Procedure Double()
　　// 左リール消灯時
　　ifb (PEEKCOLOR(223,407) and $FF00) < $C000 then
　　　　// 中リール点灯時
　　　　ifb (PEEKCOLOR(335,407) and $FF00) > $C000 then
　　　　　　Kbd(VK_DOWN, DOWN,50)　　// 「↓」キーを押す
　　　　　　Kbd(VK_DOWN, UP,50)　　　　// 「↓」キーを押す
　　　　　　exit
　　　　// 右リール点灯時
　　　　elseif (PEEKCOLOR(449,407) and $FF00) > $C000 then
　　　　　　Kbd(VK_RIGHT, DOWN,50)　　// 「→」キーを押す
　　　　　　Kbd(VK_RIGHT, UP,50)　　// 「→」キーを押す
　　　　　　exit
　　　　endif
　　endif

　　Kbd(VK_SPACE, DOWN,50)　　// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
　　Kbd(VK_SPACE , UP,50)　　// 上を変更時は同様にここも変更
fend
// ダブルチャレンジのナビ対応処理ここまで-------------------------------------------------

あと、目押しはリールの真ん中ではなく、
目押ししたい絵柄の特徴的な色が通るところ、
そして他の絵柄と区別が付きやすいところで色取得する。

たとえばボヌスならたいてい絵柄が大きいので
左右の端の方でやればリールの地の色との区別をつけるだけですむ。

。

マクロ譲ります。
メールください。

>>935
対応機種とスペックを教えてください。

>>935
unkokue

１PC２アカで動かす場合、お互いのハンドルにKeySendすれば出来ると思われるのですが
peekcolorの扱いはどうしたらいいのでしょうか？

１・座標をずらして２つのアプリが画面に表示されるようにしなくてはいけない。
　　また、色取得する座標も当然ずらさなければならない
２・Windowが違うんだから同じ座標に２つアプリを重ねて普通に走らせればいい

どっちでしょうか？

>>938
前者

>>939
ありがとうございます。
それならフラグ持たせてPEEKCOLOR内で座標ずらす方法で試してみます

ダブルチャレンジのＡＴ２倍でＢＥＴする方法ないでしょうか？

>>941
×２のところでBETを押す
このくらいもわからんのか？ばかじゃねーの？

>>940
相対座標使えば、Windowの表示位置に左右されないし、
GETIDするときの情報を増やせば
同じアプリだけど２つのWindowを弁別できるんじゃない？

>>943
確かに。ただ全機種すでにWindow座標で指定しちゃってるのでどうするか・・・・
ちょっと色々検討してみます。
前々からやろうやろうと思ってたけど作り直しがめんどくさくて手を付けなかった
ついに重い腰を上げる日が来たかなｗ

リール全消灯の時にスリープで調整してＢＥＴしかないのかな

>>932氏　422氏ありがとうございます
プログラミング経験はまったく無いのですが
組めば組むほど面白いですね　ものすごく楽しいです
始めに入門用として買ったのが超○!!ウイン○ウズマクロテクニックという
本だったのですが、Procedureのこととかまったく書いてなくてググって勉強してます
Procedureは使えるようになればかなり便利なようなのでがんばってみます
今は普通に*.uwsをcallで呼び出してます

座標系が解像度やマウスの速度で違うというのも初めて知りました
(あたりまえといえばあたりまえですが気がつかなかったです)
MOUSEORGを使うんですね　使いこなせてませんが…
最初にMOUSEORGと宣言するだけでいいのでしょうか？
あとよく使われているretが何なのかわかりません
質問ばかりで申し訳ありませんがよろしくお願いします

出だしが遅かった分、速くみなさんのレベルに追いつくようがんばります
他のマクロスレも参考にしてみます

>>946
ここのマクロのベースを作った人は素人なんで大丈夫。
やれば誰でもできる。

>>946
ググるのもいいけど、UWSCのヘルプ見るだけでも結構役に立つよ。

それから「ret」ってのは「return」の略。
戻り値を代入する変数名によく使う。
戻り値ってのは関数を呼んだ後、関数から帰ってくる結果みたいなもんだ。


関数呼んでその戻り値を代入、
その後で戻り値によって処理分岐、ってのがよくあるパターン。

こんな感じで使います。


ret = Juoh_navi()　　　　// ナビ取得処理
ifb (ret = 1) then
　　Juoh_Lion(1)　　　　// ライオン目押し処理
else
　　Juoh_Zo(1)　　　　// 象目押し処理
endif

Function Juoh_navi()

　　// ライナビ時
　　ifb (PEEKCOLOR(77,419) AND $FF) > 200 then
　　　　Result = 1
　　// 象ナビ時
　　elseif PEEKCOLOR(77,453) > $C00000 then
　　　　Result = 2
　　// ダチョウナビ時
　　elseif PEEKCOLOR(77,493) > $C00000 then
　　　　Result = 3
　　else
　　　　Result = 0
　　endif
fend

それから、UWSCでは戻り値があるものとないものとで
関数の宣言が違うので注意。

戻り値なし　：　Procedure
戻り値あり　：　Function

(PEEKCOLOR(77,419) AND $FF) > 200 then

の中で、$FFと200はどういう意味なのでしょうか？
初歩的な質問ですが、教えてください。

PEEKCOLORを使用した際に戻ってくる値は１６進数で最大FFFFFの値が返ってきます
この６桁の１６進数の頭２桁が青の色、真ん中２桁が緑の色、右２桁が赤の色となります。
（色は青・緑・赤の色の三原則で構成されているのは知ってますよね？）

例えば赤の色を判定したい場合下２桁を使えば取得できますが、頭４桁の数値があると
判定がしづらいのです。そのため、下２桁（赤）だけで色を判定したいので【AND $FF】と
します。これをマスクすると言います。

例としてF0F1F2という数値が返ってきたとします。
ここから赤の数値を取り出す場合は
AND $FFでマスク=0000F2
同様に緑
AND $FF00でマスク=00F100
同様に青
AND $FF0000でマスク=F00000
となります

200というのは赤の値が200以上の時という条件です

ifb (PEEKCOLOR(77,419) AND $FF) > 200 then
因みにこの処理は77,419の色を取得し、赤の値が200以上だったら　となります

詳しくはマスク・論理演算・１６進数等でググりましょう

>>952
わかりました。親切にありがとうございました。
がんばってみます。

422氏丁寧な説明ありがとうございます

ダブチャレがほぼ完成しました
Procedureは使わないでWHILE　IF　IFB CALL処理でなんとかやってます
今のところメイン処理・AT中処理・ビッグ中連打処理・目押しお願い処理の4つです

流れはメイン(目押しお願い含む)←→AT処理(目押しお願い含む)
ボーナスで連打処理です

改善する点としては
・AT中のナビ無し時にストップが遅い
・ビッグを連打で終わらすのではなくDDT
・もちろん通常時もDDT
といったところでしょうか

AT動作確認、通常時目押しお願い確認は取れましたが
AT中の目押しお願いがまだ確認が取れてません
(おそらく大丈夫だと思いますが…)

ダブチャレはひとまず動くので次の機種にチャレンジして
スキルアップしていきたいと思います
個人的には順番として
アラA→金→獣or超獣or星系といってみたいと思います　あとガメラですね
つまったら他の機種にチャレンジしてみたりするとまた新しい発見があったり
躓いていたところが克服できたりするときもありますからね

次スレ

【どうして？】777town.net ﾊｲﾊﾟｰﾌﾞﾗｯｸ【閉じる】
http://game11.2ch.net/test/read.cgi/mmosaloon/1168954481/

>>954
ダブチャレができたならｱﾗA、サラ金、北斗が流用できます
獣・超は全リール目押しになるのでまずは南国や島唄のリプハズシや
ダブチャレ等のリプハズシから作ってリールから色を取得して目押しを
するという処理から入っていった方がいいですよ。

まぁ個人の自由なので強制はしませんが、ちょっとしたアドバイスです

COMコンポーネントやる必要ないからまだ楽だよね
オブジェクトとプロパティが難しい

戻り値と引き数は覚えようね

★2ﾏｸﾛ組んでみたんですがどーも上手くいきません。
どこがおかしいか助言お願いいたします　m(__)m
//左ナビ点灯
ifb ((PEEKCOLOR(471,359) and $FF) > 200) and ((PEEKCOLOR(471,359) and $FF00)/$100 < 220) and ((PEEKCOLOR(471,359) and $FF0000)/$10000 < 220) then
Sleep(0.01)
repeat
C=PEEKCOLOR(223,607)
until (C and $FF0000)/$10000 > 220
Kbd(VK_LEFT, DOWN,50)// 「←」キーを押す
Kbd(VK_LEFT, UP,50)// 「←」キーを離す
Sleep(0.3)
//中ナビ点灯
elseif ((PEEKCOLOR(482,397) and $FF) > 240) and ((PEEKCOLOR(482,397) and $FF00) /$100 < 260) and ((PEEKCOLOR(482,397) and $FF0000) /$10000 < 260)
Sleep(0.01)
repeat
C=PEEKCOLOR(288,607)
until (C and $FF0000)/$10000 > 220
Kbd(VK_DOWN, DOWN,50)// 「↓」キーを押す
Kbd(VK_DOWN, UP,50)// 「↓」キーを離す
Sleep(0.3)
//右ナビ点灯
elseif ((PEEKCOLOR(493,435) and $FF) > 240) and ((PEEKCOLOR(493,435) and $FF00) /$100 < 260) and ((PEEKCOLOR(493,435) and $FF0000) /$10000 < 260)
Sleep(0.01)
repeat
C=PEEKCOLOR(353,607)
until (C and $FF0000)/$10000 > 220
Kbd(VK_RIGHT, DOWN,50)// 「→」キーを押す
Kbd(VK_RIGHT, UP,50)// 「→」キーを離す
Sleep(0.3)

私がやっている方法（エクセルマクロ用）
　 B1Col_R = PEEKCOLOR(224, 606) And &HFF&
　 B2Col_R = PEEKCOLOR(288, 606) And &HFF&
　 B3Col_R = PEEKCOLOR(352, 606) And &HFF&
　 If (B1Col_R < 250) Or (B2Col_R < 250) Or (B3Col_R < 250) Then
　 'ナビ球の白色を取得 取得位置を球の真ん中下に変更
　 n1 = PEEKCOLOR(472, 365) And &HFF&
　 n2 = PEEKCOLOR(482, 402) And &HFF&
　 n3 = PEEKCOLOR(493, 441) And &HFF&
　 n25 = PEEKCOLOR(482, 409) And &HFF& 'ちゃぶだいチェック
　 n26 = PEEKCOLOR(505, 405) And &HFF& '５リール７チェック'
　 If (B1Col_R < 250) And (n1 > n2) And (n1 > n3) Then
　 '左ボタンが有効で、左ナビ球が他の球より白っぽい
　 ←キーを押す
　 ElseIf (B2Col_R < 250) And (n2 > n1) And (n2 > n3) And (n25 > 100) And (n26 > 50) Then
　 ↓キーを押す
　 ElseIf (B3Col_R < 250) And (n3 > n1) And (n3 > n2) Then
　 →キーを押す
　 Else
　 ワンキーを押す
　 End If
　 Else
　 ワンキーを押す
　 End If

unkokue

unkokue

UWSCのSAVEIMGと同等の機能をVBAで作るには
どのようにすればいいのでしょうか。

旧北斗で目押し処理をいれるとき北斗と7を交互に目押しさせるにはどうしたらいいでしょう？また黒がうまく認識できません。ボーナスは画面から認識させればいいですよね？

>>963
旧北斗だったら、実機と同じように処理すると良いと思います。
右下段に［北斗］をビタ押し（中段でチェックして半コマSleep）します。
で、右下に[北斗]がそのまま止まったら、中・左も[北斗]狙い。
右下に[北斗]が無かったら、中･左は赤７狙い。

[北斗]認識は､赤7の縁の黒が邪魔するので､
（357, 395）､（390, 376）の2点が同時に［RGB三つとも80未満］を満たすとき､でやってます｡

中・左で押すとチェで蹴られる事があるから右・左・中の方がいいよ

質問です
uwsでビット演算ってできます？

$00000000 & $000000FF とか

unkokue

unkokue

unkokue

日本国またはアメリカ合衆国、もしくはその両方の著作権法に触れる内容であると疑われることから表示できません。

教えてください><

uwsで C の #define もしくは enum のような列挙定義を
行うコトは可能でしょうか？

publicでグローバル変数を用意すれば同じコトはできますが
それ以外に定数を定義する手段がありましたらご教授お願いします<(_ _)>

>>971
たぶん、ないんじゃないかと。

おっしゃるとおり、publicで自分はやってます。
所詮UWSCではそれで充分ではないかと。

>>972
コンパイルするものじゃないんで、ないとは思っていたのですが
やっぱりないんですね・・・

レス感謝です^^

何気なくuwsのヘルプ見てたら CONST識別子 で定数宣言できるって
書いてありました^^

・・・にしても、クラスからスレッド生成等、結構高度な処理行うコトが
出来るんですねー
こりゃ楽しいわ

危険なヤツがマクロに目覚めちゃいましたね・・・