【真】パチスロタウン renewal【黒】

公式
ttp://www.777town.net/
まとめサイト
http://333town.xxxxxxxx.jp/

過去スレ関連==============================================
777town真黒スレ
http://game10.2ch.net/test/read.cgi/mmosaloon/1158851934/
DAT行き
http://game10.2ch.net/test/read.cgi/mmosaloon/1156950641/
http://game10.2ch.net/test/read.cgi/mmosaloon/1154190714/
http://game10.2ch.net/test/read.cgi/mmosaloon/1155100189/
http://game10.2ch.net/test/read.cgi/mmosaloon/1155608103/
=========================================================

【禁止事項】
・チート・回避・設定看破・アプリバグ公開・クレクレ君・スクランブルマクロ

●超初心者は、下記スレへ
http://news18.2ch.net/test/read.cgi/slot/1162858083/
●偽り晒し、マクロ使用者への叩き行為は、下記スレへ
http://news18.2ch.net/test/read.cgi/slot/1161873462/
●うんこ厨は、下記スレへ
http://game10.2ch.net/test/read.cgi/mmosaloon/1163171831/

※ネトゲ板では晒し叩き行為は禁止です。晒しスレへどうぞ。（晒しスレ系のAAやテンプレも禁止）
※飽く迄も、マクロ製作する過程・工程を楽しむスレです。
※同じような質問も止めましょう。過去スレ読みましょう。
※アンチスレ誘導・糞ゲー発言・荒らし・コテ・厨・病人に構う奴・新スレ毎に特定AAをコピペするキティは完全無視か放置プレイ。
※乱立スレ、荒らし、煽り、駄コテはあぼーん＆スルーする。sage推奨。

ID表示になったのね

これでうんこどももおしまいだ

unkokue

ガンガレ　おいらのマクロ〜後千枚だ〜〜。

ところでみなさんはラボ時に作るタイプ？
おいらは、テスト期間はインスコするだけで正式版に
なってからこそこそいつもつくってます＾＾；

そんなおいらは、おいしいものは後で食べるタイプです。

>>5
プレゼントしてください

マッハのマクロ作ろうと思ってんだが、なかなか当たんねぇ〜。

みんな７セグの判定どうやってしてる？

あっちで発言できなくなった。なんだようごうごって・・・・

うんこ厨がいないとスレが伸びないし盛りあがらないね^^

>>5
漏れも正式版しか打たないからなぁ。
必要に応じてマクロ作ってまふ。

>>8
真ん中7ｾｸﾞ真ん中横点灯でボヌス
かつ真ん中7ｾｸﾞ右上縦消灯でJAC中
左7ｾｸﾞ真ん中横消灯で残りJACIN1
真ん中7ｾｸﾞ左上縦消灯で残り子役GAME10以上

こんな感じ？

質問なんですけど
AT中のボーナスに目押し機能が働かない機種がありますよね
マッハの場合はBR告知するので大丈夫なのですが、
他の機種でBRを交互に処理したい場合は
どのようにすればよいのでしょうか？　　　　　　　
獣は完成したのですが、超獣のこの部分でてこずっています
どなたかアドバイスお願いします

>>12
PUBLIC BRFLAG=0
を宣言しておく。

ifb BRFLAG then
ビジ目押し()
else
レジ目押し()
endif
BRFLAG = !BRFLAG

こんな感じでやれば交互に目押しする。

さらに、

ifb (BRFLAG MOD X) then
ビジ目押し()
else
レジ目押し()
endif
BRFLAG = BRFLAG + 1

こんな感じにすると、ビジレジの狙う比率を変えられる。

>>422氏
助言ありがとうございます。
では作ってみます

>>442氏
マッハで悩んでいます。
GT中の押し順判別ですがリールのどの変の色を取得すれば
効率がいいでしょうか？処理の流れは大体できていると思うのですが
肝心の色取得がうまくいきません。
ご教授願えないでしょうか？

>>16
マッハは作ってないんだが押し順ナビの時にリールが消灯するタイプなのかな?

ごめん途中で書いてしまった。
消灯の判別は絵柄が引っかからない各リールの左端or右端で
また明暗の落差の大きいと思われる中段付近がいいのでは。

>>18
早速ありがとうございます。
私もそう思ったのですがリールの消灯というより
絵柄が透過する感じなのでリールの明暗で判別と
言うのが難しそうなんです。
そのため各リールの全絵柄つまり9ポイントを一斉に
取得して判別するしかないのかと悩んでいます。
他に方法は無いのでしょうか？

>>19
液晶直でみればいいじゃん。

>>19
液晶でみれば簡単に作れるよ＾＾
GTとウイニングラン時のナビも液晶でみておｋです。
マッハは簡単でしたよ＾＾

>>20-21
皆様ありがとうございます。
ということはボヌス、GT、ウイニングと処理を
分けないといけないということですね。
処理の流れは大体できているなどと…失礼しました。
まずはもう一度その辺から作り直してみますです。

422氏が輝いてる！ よかったな ここならうんこ厨はやってこないよ

誰もやってこなくなった件について。

結局うんこと同居でよかったんじゃね？

スレのびないですね〜〜＾＾；
GXR氏は多分もう来ないと思うし100氏はロムってんのかどうか？だし
となりのも・・・・
422氏天下ジャン＾＾V
今なら神になれるよ＾＾；

となりの・・・っ？
誰だいそりゃーｗ

晩御飯

>>27
隣の晩御飯。
それ以外に誰かいたっけ？ｗ

GXR氏は来なくて良いと言われた時が引き際だと思っていて、
来なくて良いと言われたから行かなくなったって書き込みをBLスレで見たな。
余計な事を書いた奴が居るせいで消えてしまったんだよ。

余計なことを書いた奴は糞だが
ずっと頼ってるわけにもいくまい。くれくれスレじゃないんだし
本気でマクロ作りたかったらわからない部分だけここへ書けば
結構アドバイスしてくれる人は居ると思うぞ。

GXR氏はもうマクロは作っていないのだろうか？

>>31
422氏以外はまともに答えられないような気がする

>>32
GXR氏はオープンに活動していないだけで影で色々とやっているよ。
俺の知っているだけで
　・リアルタイムでの差枚検出部品
　・1時間単位での差枚記録部品
　・自動シャットダウン部品
　・自動座り直し部品
などを作って機能の充実化をさせている。
BR交互狙いも1ヶ月以上前に教えて貰った。

422氏
BR交互狙いって
PUBLIC BRFLAG=0
ifb BRFLAG then
ビジ目押し()
else
レジ目押し()
endif
BRFLAG = !BRFLAG

どこに挿入すればおｋですか？？
Procedure　マッハ（）
PUBLIC BRFLAG=0
ifb BRFLAG then 　
ビジ目押し()
else
レジ目押し()
endif
BRFLAG = !BRFLAG
fend
Procedure ビジ目押し()
ビジ目押し処理
fend
Procedure レジ目押し()
レジ目押し処理
fend
こんな感じでおｋ？？
BRFLAGってどこで判断してるの？？
peekcolor(x,y)はいらないの？？　
教えてください。

>>34
BRFLAGは単に０と１を交互にとるようになってるだけ。
BRFLAG = !BRFLAG
ってところで、０なら１、１なら０に変わる。
ちなみに「！」は論理否定の演算子。

余り詳しく書かなかったが、
ビジ、レジの目押し処理の中で３リールとも停止する必要がある。

まあ、マッハの場合はボヌス確定後も
いつでも揃えられる訳じゃないから、
（ウイニングラン演出中でも告知の出てないGでは狙っても揃えられないでしょ）
ウイニングラン演出に入った後のボヌス種別告知を
peekcolorで判別してそれを狙う方がいいと思う。

交互に狙うのが有効なのは、
鳥獣とかアラAとかかな。

422氏　ありがとう＾＾
マッハはGT確定の際、ウイニングラン時にて表示される
ビジ・レジにて目押しするようにしてるのでおｋです。
カキコしてるマッハは例なんで関係ないです・・・＾＾；
紛らわしくして申し訳ない。
超獣orアラAor金太郎とかには有効ですね＾＾；
あとマクロ言語の勉強としてC型とかP型があると思うんですが
どれを参考にした方がよいですか？？　
ちなみにUWSC使用者です。

>>37
俺は元々ＢＡＳＩＣ→ＦＯＲＴＬＡＮ→Ｃ→Ｃ＋＋（修行中）
って感じで、マクロはＵＷＳＣしかやってない。
なもんで、Ｃ型とかＰ型とかはわからん。

というわけで、誰か分かる人回答よろ。

やはり、GT中ﾎﾞﾇｽ目押し入れないと
いけないか・・・
４２２氏は通常、GT、ウイニングラン処理+BR判定も入れてるのでしょうか？
それとも、GT＆目押しは別処理させてるのでしょうか？

マッハは素直に液晶見る方が楽だったんですね・・・
でも液晶は拡大したりしたかったんだもんorz

>>40
俺液晶最大にて作成したよ＾＾
どれでも出来るよ＾＾Ｖ

>>39
GTのみBR判定or目押し機能追加でおｋです。
GT以外はサミタ目押ししてくれます＾＾V
ナビはウイニングランのみ俺はナビ取れるように設定してるけど・・・・＾＾；

>>39
if　ビジ中　then
　ビジ処理
elseif　JAC中　then
　オヤジ
elseif　リール消灯　then
　押し順ナビ判定処理
elseif　GT点灯　then
　ビジレジナビ判定処理
else
　オヤジ
endif
って感じです。
演出時にリール消灯することもあるけど、
変速押しにペナがないから気にしてない。
GT中ナビ無し時にビジレジ判定して目押しに入ると思うが、
そんなに頻度は高くないと思うので気にしない。

最後のオヤジは理想ではDDT処理にすべきだがめんどくさくてやってない。

人柱になりますのでここまでのまとめおねげします

[email protected]

マッハのﾏｸﾗおねがいします

>>43-44
プロバメール晒せば送ってあげる

>>43
これにメールくれたらおしえますよ

>>41-42氏
ありです。
液晶で見ると他の色とご認識しまくるので、苦戦してます。
目押し捨てるかな・・・

過去スレのdatください。
お願いします。

ブラスレが次スレ立たずに終わっちゃったんで
ブラスレはこちらと融合します。

以後よろしゅうmm

>>49
それは非常に迷惑！
やりたいなら・・・こっちでやれ。ＩＤ非表示でちょうどいいだろ？unkoスレなってるしな。

●偽り晒し、マクロ使用者への叩き行為は、下記スレへ
http://game10.2ch.net/test/read.cgi/mmosaloon/1163171831/

>>50
優しい人が新ブラスレを立ててくれたんで
そっちにいきます
どうもでした〜ﾉｼ

スレが伸びんねーここは

うんこスレよりはいい

だれかマクロあぷしてよ。

誰も質問してないし、くれくれだけでは伸びる訳が無いｗ

ロッシが言っていた「UWSC2.9も規制してね〜」ってどーゆー意味？

マクロ作れる人はすごいねー。俺なんて馬鹿だからそっち関係全然わかんねーよ
がんばって作ってみようかな１からさっ！すみませんねマジスレで・・・
それでは仕事行ってきます。

昨日獣王を作ってみたんだが右リールを象基準にするとどうしても目押しスピードが
遅れるんだが作った人、どうやってます？
右リール中段の象の耳あたりを取得してるんだが・・・・・

>>58
青チェリーでも止まるようにするといいよ

>>59
青チェリーも拾った場合、赤７対応できます？
１周弱SLEEPかけるしかないかなぁ・・・・

>>60
リールの上の方で検出（y座標351）
R < 30
G < 150
B > 70
これで象付近が止まってますよ
中段だと出来るかどうかやったことないんで、わかりません

あ、ごめ・・・・目押しスピードが遅れるというのは狙ったところに押せないのではなく、
３〜５周掛かるという意味です。

左中は赤７基準で遅くても３周で止めてくれるんだけど、右を象基準にした場合
色取得しにくいようで・・・・・・

という意味で書きました。
>>60氏ｽﾏｿ

色の範囲を広げると、目押しスピードが上がる場合がある。
また、象のお尻でも試してみる。

像ナビです。
elseif (peekcolor(476,444) and $ff) > 160 then//像ナビ点灯
sleep (0.01)
　　　repeat
g=peekcolor(430,433)　//右リール　像　目押し位置
　　 sleep(0.01)
until ((g and $ff) < 10) and_
((g and $ff00) /$100 < 200) and_
((g and $ff0000)/$10000 > 240)
sleep(0.6)
endif
kbd(VK_right, DOWN,50)　　　　　
Kbd(VK_right, UP,50)
sleep(0.2)
獣王は色習得後直押ししない方が良いかもね！！
直押しだと取りこぼす事があるんでね。
sleep(0.65) ←リール1周分ぐらいsleepかけた方がとりこぼさんと思う。
色習得後直押ししたら2コマぐらいずれるからね＾＾

ありがとうございます

>>63
横２縦３ドットの６ドットで取ってるんですが・・・・マシンがしょぼいのかしらｗ

>>64
一応左中は赤７基準（７ナビ時は一周後）の処理はできてます
家に帰ったら座標参考に色々試してみますね。

あと、RGBで取得してる人多いですが、直値と何か差があるんでしょうか？
マシンやVGAによって微妙に色が違う時の対応とかですかね？

>>65
直値だから何周もかかるのではないかな？
色の範囲を広げるのは、マシンの差に対応する意味もあるだろうけど
処理を早くするメリットがあるのでお試しあれ。

>>66
なるほど。試してみます。




これで効果があったら今まで作った機種全部作りなおしか・・・・orz

>>67
あと
elseif (peekcolor(476,444) and $ff) > 160 then//像ナビ点灯
sleep (0.01) ←これはGXR氏にて教えてもらった方法です。
SLEEPを入れることによってCPUにかかってる負担を
軽減出来るそうですのでお試しあれ！！

Sleep()はWindowsに他の処理をさせてあげる為の時間作ってあげる関数
それをいれないとWindowsは他のアプリの処理消化に時間が掛かってしまい
CPU付加率があがってしまうので、Sleep()はいれとかないと危険だよ

象の色（例えば耳部分とか）といっても、一色ではないです。
ＲＧＢ：0-150-239の場合もあれば、0-138-255の場合もあります。
一点の色に全く一致するのは、その点だけかもしれません。
ここで、色範囲を広げると、耳部分の適当な範囲で、「象だ」と認識できるようになります。
と言う事から、リール上の図柄探しは、直値を避けて、Ｒ＞ｘｘ などと余裕を持たせます。

>>64
色取得後直押しでこぼしているのは、おそらく直後に押せてないからだと思う。

なぜなら、repeat〜untilの中のsleepが色取得と判定の間にあるため、
その時点で１０ｍｓ遅れる。このsleepはrepeatと色取得の間に入れるべき。

そして、kbd(VK_right, DOWN,50)の時点で５０ｍｓ遅れる。
停止ボタン押下の場所はkbd(VK_right, DOWN,0)にするべき。
このように時間指定を０にしないと、指定時間分だけ停止が遅れる。
ただし、Kbd(VK_right, UP,50) はそのままでおｋ。
でないと、キーを押下してる時間がなくなって、アプリが反応しなくなってしまう。

あと俺は、判定の所は
until (((C AND $FF) = 0) AND (C > $800000))
みたいにして、なるべく計算量を減らしてる。
（わり算は使わない、青の値はマスクをかけない、判定にいらない色は見ない）
実際効果があるかわからんが、少しでも早くなれば目押しミスは防げると思う。

>>422氏　指摘あり
追加
目押し順は　中・右・左の方が良いよ！！
中ラインに役が成立するから♪
順押し処理の場合取りこぼすことがあるからね＾＾；
普通に手押ししてても取りこぼしてたからね！

もちろん実機などでね＾＾；

ＧＸＲ氏って本当にプログラム経験無いのかな？
一番最初の押し順無関係公開時にエラー処理を入れていたり、
二番目の北斗のアバウトな判定処理方法、
そしてCPU負荷を下げる為に敢えてSleep()を入れる方法、
これ全部素人が気が付く着眼点とは思えないのだよな…
俺IT系の仕事しているけれど未経験者はエラー処理を厳かにするし、
他のPCを考慮する考えも持たない。
負荷を抑える事もマシンパワーに物を言わせ無視をする。
未経験者でこの水準ならうちの会社に来て欲しいよ。

そんな疎かな会社行きたくないです

インデント理解しているし、北斗の押し順処理を関数化していじりやすいようにしたのも素人技じゃない。
あれは金太郎とかアラAも視野に入れていたからやったのだろ？
でも押し順を1個ずつifbにした所を見ると素人なんだな…って思う。
経験者ならあれはやらないと思う。
素質は有ると思うので望めばプログラマにはなれるだろうね。
俺的にはこの業界はろくなもんじゃないから薦めないけれどｗ

GXRはサミタに入ればいいよ。
インテリオート開発要員。

それだ

まさに転職だなｗ
入社する前にジョンにぬッ殺されそうだがｗｗ

今回のportal更新でスパイウェアが入ってるらしいが
皆さんの見解は？

>>79
その辺はおなまっくす氏の領域だな。
彼ならまともな見解をしてくれるはず

>>79
マクロ使うとサミタにバレるの？
それって以前やって、散々バッシングあったんじゃなかったっけ？

テスト

>>80
正直ウェブ系のＰＧはあんま強くないのでわからんです・・・

ただ経営上のポリシーで考えれば、アイテムを作りユーザに追加料金を
払ってもらってオートゲームを行うという形になったので、公平になるよう
キーボードのみでプレイしてるかのセキュリティを高めたのでしょう

セキュリティソフトがおっきするという事は、おそらくプロセスを監視され
プレイ状態をログに残せるようにしたのではないかと・・・

キーボード監視かぁ・・・
じゃぁ

×マクロ
×JoyPad
×スクリーンキーボード

ってこと？

>>84
わからんです

ただ、のーとん先生が個人情報がらみでおっきするのは、ローカルＰＣ上の
何かを見られてる恐れがあるってコトだと思うし、サミタ側に履歴が
残る可能性もあるので、めったな事はしない方がいいかもしれませんね^^

まぁ、ほんとにそこまでやってるとしたら
それは個人のＰＣに無断でアクセスしてるようなモンだし、
犯罪じゃねぇの？とも思いますけど

他人のパソコンに無断で侵入して、その情報を持っていくのは間違いなく犯罪
出る所に出たら困るのはサミー

追加
あくまでウェブ知識に乏しいヤツの仮説なんで
テキトーに流してくださいな


さて、ビール飲んで寝るべ

>>87
�dクス
おやすみなさい

俺の勘違いかもしれないが毎日飲んでいないかい？
酒飲んで寝ると寝入りは早いが疲れは抜けにくいよ。

おはようございます！

>>89
毎日なんて飲んでないですよー
ビールは一日一本までと決めてますし、飲まない日がほとんどです

ついにぱち導入ですねー
ユーザのＰＣに優しい環境かがすごく心配です・・・

玉の動きをリアルに再現する為に、バカみたいな物理計算したりしてないかとか
ユーザのマシンスペック考えず、ｚ軸を加えた3Dの物理計算なんかしてたら
かなりのスペックを要求されるでしょうな

サミタクォリティのぱちがどんなモンかむっちゃ楽しみです
期間会員だからできないけど・・・

いまさら南国なんて作ってるんだが
これってJAC中はINSERTランプの点灯タイミング変だな。
普通メダル払い出し終了で点灯するはずなのに点灯しない。
で、BETすると点灯する。

おかげでJAC１Gしていきなり止まってあせったじゃねぇか。

旧北斗のＢＥＴﾎﾞﾀﾝもおかしくない？点いたり点かなかったり

>>92
ホントだ。南国作ってないんで知らなかった・・・
BETボタンで見ないといけませんね

>>93
INSERTランプ見ればいいですね
旧北斗って重いし作りも荒いですよね・・・打つ気になれない
サミタの北斗なら、SEのほうがまだ打てます（＾＾；

おいらの獣マより、インテリの方が早い件について・・・　orz

>>95
時速どのくらい回るの？

俺は時速750〜850回転くらいで、鯖1G増やしが半々で出来る程度　
まだまだ改良の余地あるけどめんどくさい。

422質問
万枚達成後→精算→退席→再着席というものを
作ろうと思っているんですが・・・・・・
精算する際万枚に行ってるかどうかの（関数計算）のやり方など
出来れば教えていただきたいと・・・・

また命令文はどういった物を使用すれば良いんですか？

よろしくお願いします。

>>96
大体そのくらいです。ま、あまり早くしすぎると獣はかたまるからね。

>>97
おいらは単純に枚数横の大箱２つ目を認識させて、
清算押→清算→閉じる→座るをダブクリ→メダルを買うをsleepで
調節してふたたび開始ってのを個別にあたまにいれてますよ。
もし、不安なら大箱２＋小箱１で。
　

>>それは作ってんですが・・・・・
巨人とか疾風とか結構厳しくないです？？
現在のコイン枚数（箱等で計算する）-コイン購入ボタン押した際にカウントする関数
で差枚は出ると思うのですが・・・・・命令文等がわかんないんで？？

出来るなら精算する時にでる差枚数の数値を認識出来れば良いのですが；；
とりあえずありがとう！！

1) 毎回50枚購入して、なくなったら買い足さずに座り直し。→所持枚数で1万の位に数字が出たら精算。
2) 毎回450枚購入して、なくなったら買い足さずに座り直し。→大きいドル箱2つ目の絵が出現したら精算。
とかいうのもある。

（買い足し買い足しでいくと、すごいマイナスからスタートするので避けたい。）

ＶＢかー・・・
ＶＢはＣで配列のテーブル作る時にエクセルやテキストから
数値だけ吸い出してテーブルに変換するのにしか使った事ないなー・・・
ヒマな時に勉強してみようかな・・・

昨日初めてマクロを組んでみた。
ヒャクマントンのBIG中だけ逆押しって簡単なやつ。
途中でこれ逆押しオートでいいような気がしたけど途中までつくっちゃったから完成させた。
漏れマクロ組むとかそれ以前の問題じゃね？ｗｗｗｗｗｗｗ

>>102
晒して指摘されて初めて気づいた漏れが来ましたよorz
でもまぁ、作ってみることが大事なことだとおも

>>102
マジレスすると豚は通常時に逆押しすると、
ベルとリプレイをこぼす可能性がある。
リプはこぼしても内部カウンタは上がるからリプ連には影響しないが、
コイン持ちに影響して万枚狙いには結構影響する。
お前の努力は無駄ではない。

なお、余談だが旋風はスイカとかこぼすと小役7連のカウンタはリセットされる。

>>97
基本的に休日は２ｃｈにいないので、
遅くなってすいません。

自分はまだその処理は作ってないんですが、
処理方法については皆さんが書かれてる方法でいいと思います。

>>現在のコイン枚数（箱等で計算する）-コイン購入ボタン押した際にカウントする関数
たとえば、現在のコイン枚数は

For i = 0 To 3
　C=PEEKCOLOR(805,472-10*i)
　ifb C < $D00000 then　　// 千枚箱じゃない
　　break
　endif
next

For ｊ = 0 To 3
　C=PEEKCOLOR(837,471-10*i)
　ifb C > $600000 then　　// 五千枚箱じゃない
　　break
　endif
next

ってやれば、コイン枚数は箱が増えた瞬間は
５０００＊ｊ＋１０００＊ｉ＋５５０＋α
ってなる。
後は、コイン購入をカウントするか、最初に５５５０枚買うか
>>100のようにするかすれば万枚の検出はできるでしょう。

BIG中だけ逆押しって書いてあるのに通常時のマジレスされても

ごめん、今のやつ左の窓出した状態で座標取ってた。
Ｘ座標は２２４引いてやってね。
すまぬよ。

>>106
お前国語１だったろ？日本語読解能力無さ過ぎる。

てことは俺も国語１ってことか
がっかりだな

BIG中だけ逆押しのマクロ作ったが、
逆押しオートでも良いんじゃないか？と思った。
マクロ作る以前の問題だぜひゃっはーｗ
　　　　　　　　　　↓
常に逆押しでは通常時に小役こぼすから無駄ではない

逆押しオートって、押し順を逆押しでフリーオートか、
押し順を逆押しの連打だろ？
んな事したら通常時も逆押しだろｗ

って事じゃないのか？
全体の動きを読めない奴には理解できないだろ。
国語１と言うよりはマクロ１だねｗ

ここは馬鹿ばかりだなｗ

>>94
ちなみに南国はBET光らないよ
それよりもっとひどいのが旋風
第２、第３停止時は停止ボタンが有効になる前から青になるので空振りするし、
INSERTは払い出し中はおろかリプレイ時も点灯する。
７セグは同じ場所のセグなのに数字によって光り方が違う。
もう嫌がらせのレベルだよw

俺は旋風諦めたｗ
ＩＡ出るまで待つｗ

同じ島に昇天腐れカエルｷﾀ寝るかな

真黒スーパー初心者だけど、パチの自動化くらいは出来るかと思いトライ。

Case "オートストップ"
Clkitem(NEW_ID,"続行")

時短後の続行確認完成。
素手だがスライムは倒せた。

ifb (PEEKCOLOR(330,257) and $FF) > 200 then
Kbd(VK_DOWN , DOWN,50)
sleep(3)
Kbd(VK_DOWN , UP,50)
endif

保留点滅で3秒スリープ完成。
ドラキーもなんとか。

だがボヌス中の例外処理なんてまだむりぽだし、
他窓に行ったときの処理と時短後「続行」ｸﾘﾂｸもうまくいかない orz

漏れ「保留点滅」って　　
んなもんねーよ・・・OTZ
保留４つ点燈　ね

ｽﾚ汚しｽﾏｿ

ゲームのぱちなんてしろもんを手動でやらせようなんて・・・
そこまでしてガチャらせたいんかなー・・・
余計なメッセージボックスだすってとこがセコすぎるわ

☆のアバター追加ですよおまいら。
☆2マクロまだ〜？

☆２勲章、マクロ使ってもきついぞ。
２０時間営業やメンテあけスーパーロングに切り札使用して
５回目くらいでやっと取れた。

手打ちで勲章取った人は正直すごいと思う。

★３より★２の方がまだ楽だと思う

>>422氏
禿同だが
なんとなく座って朝見たら勲章1個増えてたのは内緒

あと、★２、★３は最初にバグを併用させて特訓抽選＆やりおったやっておいた方が
出足が早い

>>122
kwsk教えてくだされ。

>>122
ああ、そんな手ありましたね。
しかも☆２は確定後も特訓抽選有りだし、
押し順無しになるからリプ成立も見抜きやすい。
これで、スーパーロケットスタート完成？



ここからチラ裏
そんなこと言ってるってる間に
濡れのマクロが☆３でビジ後５G目にやりおった。
えらいぞ。

ちなみにホールでビジ後リプ４連したこともあるぞ。

>>124
この前、バグやりおった（３連目スベリリプ抽選）
ビジ後１０Ｇほどでマクロがやりおった
さらにビジ後３０Ｇほどでマクロがやりおった
と奇跡の引きを見せ歌付きビジになったｗ
２０時間で１万６千枚出たよｗ

☆３の特訓高確ってG数上乗せなの？
だったらバグリプ３連やりまくれば特訓連しまくりじゃね？

実際やってみれば分かるが、かなりだるい。
しかも、☆３の方は滑りリプじゃないと抽選すらしないし。
まあ、マクロを作れば少しはましかもしれんが、
俺は３連する前に挫折したｏｒｚ

つまり、３連やりまくるのにもそれなりの時間と労力がいるってこってすよ。

http://up2.viploader.net/mini/src/viploader90310.txt.html

獣作ってるけどうまくいきません
鯖入ると右連打になってしまいます
おかしいところ指摘してください
パスはメ欄で

>>126
>>127にも書いてるが、かなり根気がいるｗ
２連するまで普通に打って、３連目をスベリリプがくるまでやり続けなくてはいけない
最高３２回タスク落とした事があるｗ
それを考えると複数回やるより、最高券使って３連スベリリプ→やりおったから
マクロ開始した方が時間効率は断然上
１０回以上やってる俺が言うんだから間違いないｗ

２つ３つ前スレで張られてるコピペですね。
その質問の答えはそのあとのレスででてるはずですよ。

たぶん、２度ほどあるかと。

>>128
今の処理の流れは

ｉｆ　青停止ランプ 3つ点灯
　　左処理
　　中処理
　　右処理
ｅｌｓｅ
　　　　 Kbd(VK_RIGHT,DOWN,50)　　//
Kbd(VK_RIGHT,UP,50)　　//
Sleep(0.7)
ｅｎｄｉｆ

ってなってるから、ｉｆ〜elseif〜endifの対応をよく見直すといいよ。

http://up2.viploader.net/mini/src/viploader90315.txt.html
上げるのまちがえました
こちらでおねがいします

>>130
まじかよorz

>>128
単純に
　ifb (( (LL AND $FF0000)/$10000 > 250)) AND_
　　　(( (LM AND $FF0000)/$10000 > 250)) AND_
　　　(( (LR AND $FF0000)/$10000 > 250)) THEN

この判定文に入ってないですね。
200以上にしてみるとか、R値200以下にしてみるとか、
LL、LM、LRの取得位置再確認してみるとか。
とりあえず

　else
　　Kbd(VK_RIGHT,DOWN,50)　　//
　　Kbd(VK_RIGHT,UP,50)　　//
　　Sleep(0.7)
　endif

ここになにかPrintしとけば入ったかどうかわかりますんで。
あと、else以下はワンキーに変更したほうがいいかな？

たぶん、４２２氏が回答してたはずです。

>>132
まじかよｏ......ｒｚ
って、問題点は一緒じゃねぇかよ

なんか同じの上げたみたいですorz
すいません

もう一度過去ログ見ながら修正してみます

Kbd(VK_RIGHT,DOWN,50)はどこがおかしいかのために変えただけです

777town真黒ｽﾚ
http://game10.2ch.net/test/read.cgi/mmosaloon/1158851934/14

ってやつだな。

すっかり忘れてたが、この時のが修正されたような感じだね。
もしかして、同一人物？

ちがいますよ
昨日から作り始めたんで前に出たのいじりながらやってるんです

漏れそのときの33だったｗ
前回のは完成したんだろうか・・・139さんはがんがってくらはい
if構文は理解されてると思うんで、大丈夫だと思います

>>137
おそらくあなたがやりたいことをやるには、
各処理を
ｉｆ　ライオンナビ　then
　ライオン目押し
elseif　ゾウナビ　ｔｈｅｎ
　ゾウ目押し
ｅｌｓｅｉｆ　ダチョナビ　ｔｈｅｎ
　ダチョ目押し
ｅｌｓｅ　　　　// 今は入ってない
　おやじ　　// 今は入ってない
ｅｎｄｉｆ

のようにすればよいかと。

真黒スレとスーパーブラックスレに同じのがありますね。
スーパーブラックの時、質問したのが私だったりします・・・
おかげさまで、２〜３週間なやみになやんで完成しましたよ。

その節は多数の職人様のご回答ありがとうございました。

　

くれくれだけじゃあれだし、作りたくなってきたんだがさっぱりわからん。
ちょっと書籍買ってきて勉強するかな。マクロ作成とかはまれたら時間つぶしによさそうだ

>>143
とりあえず、UWSCのヘルプ見ながら、
今あるマクロが何やってるのかを
理解するところから始めるのが言いと思うよ。

422氏さんに質問です。万枚で自動清算するマクロを作ったのですが、勲章２倍を
使って清算するるようにするにはどうしたらいいのでしょう。箱の数をみて清算
するようにしたのですが

見て〜俺のIDエロいｗ

それは俺も知りたいｗ

っていうか、いつもマクロ放置→閉店で清算。
なもんで、その時どんな画面が出るのか知らないｗ

別窓が出るにしろ、清算画面にボタンが増えるにしろ、
GXR師のマクロの頭の所のコイン補給とかと同じ様にして、
勲章２倍使わせればいいんじゃない？

ちなみに
一回ダブチャレ放置して、朝起きたらなぜか２枚GETしてた。
ってのは内緒だｗ

勝手に勲章２倍使ったぽいのは後にも先にもない。

今初めて来てみた。

こことか過去ログにうｐされているマクロってUWSC用ってことでおｋ？

作ってみようかな・・・。

マッハのマクロに初挑戦しようと思うのですが、参考になる機種とかありますか？

おう！漏れも昨日からマッハ作りはじめたよ！
ボタンの位置とか色は☆のがそのまま使える。
昨日はBIG中順押ししかしないバカマクロだったけどな！

>>150
☆２持ってないや。
どんな感じで作ればいいんですか？

漏れのは右リールのナビが出たときだけナビに従うだけのショボいマクロだよ。

スーパーブラックスレの４１１です＾＾；
>>145さんへ
俺の方法です＾＾
精算マクロ２倍券使用＾＾
ifb (peekcolor(625,464) and $FF) > 200 and_ 　 //大箱2段目
　　　 (peekcolor(580,467) and $FF0000)/$10000 > 240 then //小箱2段目 //だいたい皆同じ位置かと思うけど自分で箱【小の位置】の位置調整してね！！
sleep(2) 　 //
BTN(LEFT,CLICK,640,561,40) //精算ボタン　 　//
sleep(5) //
　　　ACW(GETID("コインの精算","#32770"),430,155,381,410,0)
MOUSEORG(GETID("コインの精算","#32770"))
BTN(LEFT,CLICK,178,297,300) //2倍券使用位置
sleep(5)　　　　　　　　　//時間好きに変更してね！！
BTN(LEFT,CLICK,127,352,300)　　　　　　　　　　　　　 //レ点チェック位置
sleep(5)　　　　　　　　　//時間好きに変更してね！！
Clkitem(GETID("コインの精算" ),"精算する")　　　　　　 // 閉じる
　　　　　　　 sleep(0.1)
　 　 Clkitem(GETID("おめでとうございます" ),"閉じる")
sleep(0.1)　　
　 exitexit //マクロ停止！！
　　　　endif
fend

挿入場所は自分で考えてね！！
あと万枚検知【差枚計算】してないので、そのつもりで＾＾；
さいなら(^o^)/~~~

>>153
試しに使わせてもらいました。
完璧でしたよ。

>>153
先日４１１さんの星３マクロで勲章取れました。
ありがとうございました。

>>154
Clkitem(GETID("おめでとうございます" ),"閉じる")
sleep(0.1)
exitexit // 再着席を挿入する場合はexitexit　これは削除してね＾＾マクロ停止するのでね！　　
↓因みにこれ入れると再着席しますよ！！
BTN(LEFT,CLICK,609,568,40) 　　//再着席する
endif
fend

注意！！再着席指定する際は、自分が座ってる所にポイント（赤枠）を合わせててね！！

>>155
粗末な出来でしたが、役に立ってなによりでした。

因みに自分は★３の勲章持ってません(T-T)

俺空、とりあえず基本部分だけは作ってみたんだが
リプ外しする気力がなくなるBBだなこりゃ
外しても減る減る減るｗ

あー鬼武者マクロでまんま動作するなー
オート目押しにお願いしちゃおかなー
作り甲斐無いね今度のは･･･

作り始めたけど多重定義がわからない俺乙　吊ってくる

多重定義ってなんだかわからない漏れでも組めたよ？

俺空、押し順無関係で十分じゃね。
おれの枕と相性いいみたいでリプ4連、5連しまくり。
4時間で万枚でたよ。

なんか・・・もうひとつのマクロスレが荒れてるね＾＾；
俺が貼り付けたやつでうまく作動しないとかだめだこりゃって
ってなってる人・・・・・・・
迷惑かけて御免ねm(_ _)m

ソースを書けない身からしたらありがたいさ。
まぁ組み立てが上手くいかないがねｗ

ま、あまりペタペタ貼り付けない方がいいかもですね
それと、自動清算などの小窓出てくる系は移動できるから
少しでもずれると押す位置ぜんぜん変わって来るからね。
それを知らない人が組み込むと・・・・・・・
祭りになつちゃうね。
ヒント程度ならいいと思いますが、そもものはなるべく張らないほうがいいかもですね。

>>162
411なにも貼ってねーじゃん( ´,_ゝ｀)ﾌﾟｯ

今後自重しますね！！
何か祭りになってるとか・・・・ジェット高速スクワットとか？？
それ俺のですかねΣ(￣□￣;)

>>165
ごめんね・・・・意味がわかんないです。。。。。

たぶん、↑のを貼り付けて清算＝ずれてる＝閉じるは反応＝再着席を押す
ってのを繰り返してたと・・・
外から見れば、休憩→座るをエンドレス・・・・に・・・

>>167
そうですか・・・・大変失礼しました。
・・・・けどね！！再着席後箱座標に反応品しないとボタン押さないと
思うのですが・・・・・・・・・・？？？
それに再着席後→普通にマクロ始動するとおもうだけど・・・・？？

なんもしろ　もうよけいな物は貼り付けませんね！
ごめんね・・・ジェッ○さん！！

>>168
なんで謝る必要があるのか・・・
unaunaもジェット神も以前からマクロ使ってましたよ。
自前で出来そこないの離着席を組み込んだんじゃないっすかね？

>>169
ありがとうです。
少しはすくわれます。
ところでunaunaさんもスクワットしてたの？？

誤る必要は無いかと。
まったく別物かもしれないし、そもそも自己責任ですからね。
漂白されようが、ＢＡＮされようが・・・ね。

ただ、最近の流れ的に↑のかなっとおもっただけですので・・

まったく同じ症状でしたよ　　ﾆﾔﾆﾔ

あらら(☆_☆)
時期的に同じですからもしかしてと思ったんですが・・・
自分が作ったやつを仲間に使ってもらったときは、スクワット現象は
出てないので何でかと思いまして・・・・・unaunaさん作成→ジェット神
が人柱ですかね？？　
ロッシ氏のフロチャ事件を思い出しました。。。。

>>173
townの着席ボタンの動作が変わったようですね
着席を連打している分が、以前は最初の一回だけ受け入れられていたのに
今では押した分ほぼすべてを受け入れているようです
私のは着席ボタンの状態を見て押してるからループには陥らないですが
一旦精算時に食事中が出てしまうようになってしまいました・・・

422氏に質問です
以前422氏がボヌス成立後の目押しを交互（ビジ・レジ）に
実行する命令文よカキコしたと思うのですが・・・自分なりに
採り入れてみたんですけど・・・なんか変なんですよ＾＾；
【１】Procedure　***（）
ifb ボヌス確定ランプ位置　then
***1()
　　↓
【２】Procedure　***1()
PUBLIC BRFLAG=0
を宣言しておく。
ifb BRFLAG then
ビジ目押し()
else
レジ目押し()
endif
BRFLAG = !BRFLAG
fend

【３】Procedure ビジ目押し()
左リールビジ絵柄停止処理//�@
中リールビジ絵柄停止処理//�A
右リールビジ絵柄停止処理//�B
endif
fend

続き
【�C】Procedure レジ目押し()
左リールレジ絵柄停止処理//�C
中リールレジ絵柄停止処理//�D
右リールレジ絵柄停止処理//�E
endif
fend
↑の内容で作りましたが・・・・・
実際停止する順番が�@�D�B→�C�A�Eの交互に停止しちゃいます(T-T)
処理的に【１】→【２】→【３】�@→【１】→【２】→【３】�D
　　　　→【１】→【２】→【３】�Bと処理してるんですが・・・・
どこを変更すれば良いですか？？宜しくお願いします。

>>175-176
422氏じゃないけど・・・・
考えられるのはビジ目押しの処理で各リール判定をするのにIf〜ElseIf〜EndIfとかしてない？
全リールIfで切るか、!BRFLAGを全リール停止時にするとかしないと各リール目押しするたびに
関数抜けてBRFLAGが反転してるんじゃない？

>>175
【２】Procedure　***1()
PUBLIC BRFLAG=0
を宣言しておく。
ifb 全ボタン有効　then ←コレ追加
BRFLAG = !BRFLAG 　←コレ移動
ifb BRFLAG then
ビジ目押し()
else
レジ目押し()
endif
fend

456123と目押しするとおもう

>>176
基本は>>177氏の書いてるとおりだと思われ。

自分の書いた処理の流れは
ビジ目押し()のなかで３リールとも止める必要があります。

１７６さんの流れに合うようにするには
BRFLAG = !BRFLAG
を今のところから削除し、代わりに
右リールビジ絵柄停止処理//�B　　の最後と
右リールレジ絵柄停止処理//�E　　の最後に入れればよいかと。

つまり、右停止をするたびにフラグが変わるようにすればいいと思う。

あー、全停止時じゃだめかｗ
>>178氏のが正解だねｗ

>>177　そうです！！
各リール判定をするのにIfｂ〜ElseIf〜EndIf　にしてます＾＾；
関数抜けして　BRFLAGが反転してるみたいです・・・・

ちなみに全リールIfで区切る場合どの様にすれば良いのですか？？

>>422氏
なるほど。そっちのほうが断然イイですね
毎回参考にさせて頂いておりますｍｍ

もしかしなくても、みんな今仕事中か？ｗ

>>177_178_179 ありがとう＾＾
やっと解決しました。

仕事中＆さっきプロバ規制解除されたばっかｗ

普段あんまり進行しなくても、
少し質問とか出るとすぐレスつくよね。

みんな、仕事しながらとりあえずはチェック入れてるのかなと。

今度金曜日のテスト機種は何でしょうね？？
モザイクの色的にはサミー系だと分かるのですが・・・

>>175
もし差し支えなかったら教えてください。
ＢＩＧ用とＲＥＧ用に関数を分けた機種って何でしょうか。

>>188
ボヌス告知されてすぐにBIGorREGが告知されない機種に有効
全ての台にあてはまるんじゃないかな

>>188さんが何を知りたいのかわからん（＾＾；

聞いた理由ですが、私がマクロ作っている機種で、ＢＩＧとＲＥＧを分けてないといけない
と言う機種がなかったためです。
サラ金、アラＡ、アラエボ、ダブチャレ、星２＆３、ガメラ、旧北斗、豚だったら、どれも、
１ゲームでＢＩＧ／ＲＥＧ判別して揃える事が可能なので、その他の機種なのかな？
と思ったわけです。

もっと言うと、もし上記の機種だったら、ＢＲ分けなくても良いようにアドバイスできるかも、
なんて思ったからです。
大きなお世話だったようですね。失礼しました。

>>190
なるほど。停止目みてBIGorREG判別してるわけですね。
失礼いたしましたｍｍ

まあ、どこまでロジックを入れるかだよね。

たしかに、自分も最近は停止目見て処理を分岐させたりしてるけど、
ボヌス確定時処理はそこまで作り込んでないってところかな。

でも、ＢＲ判別とかはものによってはビタ押ししないといけなかったりしない？
自分のマシンスペックでは上段ビタはたぶん無理ｗ

>>192
アラエボ、星などは、通常時ＤＤＴの一部になってます。
ビタ押し必要なのは、今のところ旧北斗の右下段［北斗］ビタだけでした。

>>188
自分が作成してる機種は鬼とかサミタ目押し機能が付いてない機種ですね＾＾
通常時ＤＤＴ処理は入れてないので、出目での判断は出来ないので・・・・
確定ランプ等で判別しBIGorREG目押し処理に飛ぶようにしてます。。。

因みに鬼作成してるんですが・・・・目押し処理うまくいってません(☆_☆)
目押し処理ですけど・・・・作成してる人でリール2・3回転で停止
してる人は目押しポイントどの位置取ってますか？？
その他獣王とかではうまくいってるんですけど・・・・・？？
print挿入してちゃんと処理が通過してるのは確認してるんですが・・・？
停止する前に処理抜けてるんですよね？？なんでだろう？？

続きです。
左リールの処理です。。。。
ifb (PEEKCOLOR(213,595) and $FF0000) / $10000 > 200 then//左ボタン有効判定
print "青点灯"
　　　sleep(0.01)
repeat
SLEEP(0.01)
　　 if (peekcolor(213,595) and $FF) > 200 then break
　　 C=peekcolor(138,355)　//左リール　白７　目押し位置 X=137／Y=356／赤=24／緑=24／青=156
print "目押しポイント確認"
　　 until ((C AND $FF) > 160) AND_
((C AND $FF00)/$100 < 70 ) AND_
((C AND $FF0000)/$10000 < 70)
sleep(0.60)
Kbd(VK_left, DOWN,10)　　
Kbd(VK_left, UP,10)　　
print "左停止"
sleep(0.1)
こんな感じなんですけど・・・・

目押し位置 X=137／Y=356／赤=24／緑=24／青=156 これは関係ないです。
　
誰か宜しくお願いします。

>>194
鬼武者ですか。私はマクロ化してないですが、確かにB／R処理分かれそうですね。

> 停止する前に処理抜けてるんですよね？？なんでだろう？？
と言う言葉通りに受け止めると、Kbd（VK_left〜 が働いていないんでしょうか。

>>197
そうですね・・・・けどコメントが　青点灯→ 目押しポイント確認（連続で出ます）
→左停止→青点灯→ 目押しポイント確認（連続で出ます）と再度出てくるので。。。
認識してると思うのですが・・？？
Kbd（VK_left〜が働いてないのに・・・コメント左停止が出るのは何でだろうか？？

停止ボタンを押している時間が短すぎてアプリ側が認識できていないだけでしょ
Kbd(VK_left, UP,10)
を
Kbd(VK_left, UP,200)
にしてみ？

>>199
１００氏試してみます。
ありがとう！！

sleep(0.60)
Kbd(VK_left, DOWN,10)　　
と
Kbd(VK_left, DOWN,610)　　
って結果的に動作は同じになると思うんだけど
どっちのほうが処理負荷が軽いとかって調べた方おられます？

コマンドが少ない分後者の方が軽いのではないかと思ってるのですが、
まさか、sleepは文字通りsleepするけど
ｋｂｄの中で待たせるとCPUパワーを食うなんてことないよねぇ。

>>193
確かに、☆は確定するの遅いときがあるから、
通常時DDTに組み込む効果は大きいよね。

画面のX.Y軸 RGB値 を簡単に調べる方法って無いのですか？

>>203
私は、[Alt]+[PrntScrn]でアプリウインドウの画面コピーをとって、
Windowsアクセサリのペイントに貼り付け、[スポイト]アイコンの色選択コマンド実行する方法を使ってます。
座標は、ステータスバー右下に出ます。
色は、[色]-[色の編集...]で、吸い取った色の数値が見えます。

>>203 uwscだったらこれ使って！！
OLD_X = 0
OLD_Y = 0
OLD_COLOR = 0
while TRUE
　　WIN_ID = GetID(GET_ACTIVE_WIN)
　　MOUSEORG(WIN_ID)
　　BASE_X = STATUS(WIN_ID, ST_X)
　　BASE_Y = STATUS(WIN_ID, ST_Y)
　　ifb GETKEYSTATE(VK_LBUTTON) then
　　　　NEW_X = G_MOUSE_X; NEW_Y = G_MOUSE_Y
　　　　OFF_X = NEW_X - BASE_X; OFF_Y = NEW_Y - BASE_Y
　　　　c=PeekColor(OFF_X, OFF_Y)
　　　　ifb NEW_X <> OLD_X OR NEW_Y <> OLD_Y OR c <> OLD_COLOR then
　　　　　　PRINT　"X="+(OFF_X)+"／Y="+(OFF_Y)+"／赤="+(c　and　$FF)+"／緑="+((c　and　$FF00)/$100)+"／青="+((c　and　$FF0000)/$10000)+"／BGR値=$"+FORMAT( c,6,-1 )
　　　　endif
　　　　OLD_X = NEW_X; OLD_Y = NEW_Y; OLD_COLOR = c
　　endif
　　sleep(0.05)
wend

ぅは 204 205 さん ありがとう(人´∀`)

段々ＵＷＳＣが楽しくなってｷﾀ━━━━

>>422氏　【777town】マックロくろすけ出ておいで〜【ｻﾐｰ】で公開してた金太郎DDTﾏｸﾛ
// 全ナビ消灯時
else
Kbd(VK_SPACE, DOWN,50)// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
Kbd(VK_SPACE , UP,50)// 上を変更時は同様にここも変更
Sleep(0.3)// 押し順ナビを無視する対策の待機時間(環境により調整が必要？)
endif

fend
ここの　どこに組み込んだらｲｲのですか？　ご指導お願いいたします。m(__)m

>>207
それもわからないレベルじゃ厳しいですね
もうちょっと勉強してみたらいかがでしょう？

うがああぁ！ハイパーBIGはいらねー！

HbのハイパーBIG中ってAR中と同じで大丈夫？

>>209
大丈夫。リプ外し処理加えるだけ

ああ！そっか。ハズシしなきゃだ。thx

>>207
よくそんなの覚えたね。
作り始めの頃で超出来悪いから、俺的には忘れて欲しいソースだね(^^;
まぁ若気の至りってやつで許して。
自分で言うのもなんだが、そのまま入れる位なら入れない方がいいよ。
だってKC中にレジ入ったら永久に揃わないしね。
どうしても入れたいなら明日教えるよ。
今携帯でソース見れないから。

>>208　すいません。。。　ＵＷＳＣ始めて、まだ3日目なので　
今、本見て必死に勉強中なんで生暖かい目で見守ってやって下さい。

>>422氏　出来云々よりも　今は、ＤＤＴの構造を知りたくて

出来の良い簡潔なＤＤＴﾏｸﾛが有ればそちらでもｗ

>>213
どこで詰まっているのかを書かないと
アドバイスのしようがないと思いますよ？

勉強中でしたら、まず自分のできる範囲で作ってみては？

>>199
１００氏　うまくいきました。。
ありがとう＾＾
鬼のアプリは３D処理なんでまた〜〜りした流れですね・・・・・・＾＾；
回線の状態でも目押しずれる事皆さんありませんか？？
鬼２・３回ずれて？？？ってなりました＾＾；

>>213
最初から目押し処理ではなくIF〜THENの命令文勉強した方が良いかも＾＾；
人に言えたもんではないけど・・・・最初は簡単な機種でチャレンジ
した方が良いですよ！！

>>207
こうしてね

　　// 全ナビ消灯時
　　else
　　　　Kintaro_DDT()
　　　　Kbd(VK_SPACE, DOWN,0)　　// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
　　　　Kbd(VK_SPACE , UP,50)　　// 上を変更時は同様にここも変更
　　endif
fend

>>207
一番すっきりしてるのを選んでみた
New島唄のボヌス確定時用処理

Procedure N_shimauta_bonus()
　　DIM KEY[3]=VK_LEFT,VK_DOWN,VK_RIGHT
　　For i = 2 To 0 step -1　　　// 逆押し
　　　　N_shimauta_stop(i)
　　　　N_shimauta_kuro(i)
　　　　Kbd(KEY[i], DOWN,0)　　// キーを押す
　　　　Kbd(KEY[i], UP,50)　　// キーを離す
　　next
fend

Procedure N_shimauta_kuro(pos)　　// 島唄目押し
　　DIM P[3]=139,238,337
　　repeat
　　　　sleep(0.01)
　　　　C=peekcolor(P[pos],324)　　// 各リール
　　until C < $B00000
fend

Procedure N_shimauta_stop(pos)　　// 停止可判別
　　DIM P[3]=200,266,332
　　repeat
　　　　sleep(0.01)
　　　　C=peekcolor(P[pos],595)　　// 各停止ボタン
　　until (C and $FF00) > $D000
fend

Procedure N_shimauta_free()
　　DIM KEY[3]=VK_LEFT,VK_DOWN,VK_RIGHT
　　For i = 0 To 2
　　　　N_shimauta_stop(i)
　　　　Kbd(KEY[i], DOWN,0)　　// キーを押す
　　　　Kbd(KEY[i], UP,50)　　// キーを離す
　　next
fend

Procedure N_shimauta()
　PUBLIC START = 0
　ifb スタート点灯
　　ﾚﾊﾞｵﾝ
　　START=1
　elseif START=1 (前回点灯→消灯)
　　ifb ボヌス告知点灯
　　　N_shimauta_bonus()
　　else
　　　N_shimauta_free()
　　endif
　　START=0
　elseif インサート点灯
　　ベット押下
　endif
fend

217だけでもいいかと思いましたが、
どういう風に使うかを説明するのがめんどくさかったので
218を追加しました。
N_shimauta()をKishu()の中に追加する形で動かすつくりになってます。

最後の所は自分で完成してください。

ちなみに、目押しお願いに入ると、STARTフラグが立ったまま各リール停止することになるので、
目押しお願いをした後にＳＴＡＲＴ＝０としてフラグを落とさないといけないのですが、
島唄で目押しお願いが出ることはまあ無いから、とりあえず大丈夫でしょう。

>>215
目押しがずれるって事ですね。
>>195-196
196でコメントが関係ないって書いてますが・・・
until ((C AND $FF) > 160) AND ((C AND $FF00)/$100 < 70 ) AND ((C AND $FF0000)/$10000 < 70)
だと、赤＞160　緑＜70　青＜70　ですけどこれでいいんですか？
全体で見ると、赤７を見つけてから610ms(約15コマ通過)後に停止ボタンが押されるわけですが・・・
#SLEEPで600ms待ち＋KBDのDOWNで10ms待ち

使ったことない命令がいくつもあるな・・・。
ちと横から参考にさせてもらいます。

>>220
赤7から遅らせての青７目押しだと思うんですけど、赤7は2個あるからどっちを拾うかでずれてるのかな？　と。
それより、1個しかない青7を探して、そこを基準にしてタイミング目押しする方がきっと良い結果になりそう。

>>222
青７を狙ってるのなら思い切り行き過ぎてますよ
赤７から青７なら５or７コマですからねぇ
しかも青７の上にはチェリーがあるから、早い目に押さないと枠外に流れてしまいます。

と言うより、青７を目押しする意味が分かりません・・・

>>220
100氏どもども＾＾；
X=137／Y=356／赤=24／緑=24／青=156 　この件ですが・・・・・＾＾
青７基準の座標位置をただ単にメモってただけなんで・・・全然関係無いです。
あとSLEPP（0.51）に設定しなおしましたので、現在はおｋになりました。
回線のことなんですが。。。。全然関係無かったです＾＾；
>>222
青７基準の座標で取ればばっちり出来ると思いますが・・・・
まだ変更してません。。
あとで変更する予定です。

最近アプリのマクロよりも機能を追加することが楽しくなってきたｗ
自動精算、勲章2倍使用、再着席、時間ごとのログ、トレード対策などなど
ただアプリごとにファイルを分けてしまってるから大変だけど・・・

>>223
すみません。リール配列勘違いしてました。
100さんに対して文句をつけたのではないのですが、気分を害されたのでしたら申し訳ないです。

１００氏　に質問です。
別件ですが・・・リール速度測定するマクロなどありましたらご教授下さい。
マッハ・巨人２のJACゲームの際、ビタ押しすると思うのですが、
マッハの場合　カップ・ＧＯ・カップ　下の白７中段ビタ狙い
ですが・・・JＡＣゲーム　８回中１回しかビタ出来ません・・・・
ま〜〜１回で十分なんですが・・・・・よろしくです。

あと基本的なことなんですが！！
リール１回転＝？？ｍ/ｓなんでしょうか？？
また１コマ＝？？ｍ/ｓですか？？
アプリによって違うと思うのですが・・教えて下さい。。。

>>227
リールの１周の時間は 「780ms」
標準的な１周２１コマのスロでは１コマ「37.14285714ms」
これが実際のスロでの時間です
当然の事ながらサミタの全機種がこの時間になっているわけではありませんし
ＰＣの性能によっても変わってきます
また、マクロでリールの色を監視する間隔が短ければ短いほどCPUの負荷が
増大し、速度も遅くなります
ビタを要求するような正確な時間を知りたければ、目押しのマクロを作成した上で
目押し目標が何ms毎に通過するかを調べる他ありません

ちょいと質問です。
最近フルウェイトで回してると思われる獣マクロが出回ってるようなんですけど
ウェイトかけてフリーズするバグは修正されたのでしょうか？
それとも何らかのフリーズを回避する対策をされたモノでしょうか？
バグが改善されていたら、自分のを修正しようと思いまして。

>>229
単純な連打でなく、
ＳＴＡＲＴの点灯、ＩＮＳＥＲＴの点灯をチェックしてればフリーズしないと思う。

ていうか、俺なんて手打ちでフリーズしたことあっても
マクロでフリーズしたこと無いｗ

>>229 >>230
漏れはINSERT見てなくて、スタートランプと停止ボタンだけ見てるけど、
フリーズしたことないですよ。
連打マクロはソース的には短くて素敵だと思うんだけど、
実際動かすと、非連打マクロの方が素敵。

>>231
なるほど、連打がフリーズの原因だったんですね。
てっきりウェイトが原因だと勘違いしてました。
わざわざベットとレバONを時間調整するへんな獣マクロ作ってましたｗ
ありがとうございました。

>>230
アンカ抜けてしまったorz
ありです。

獣のダチョウの目押しがうまくいきません
どこからの色をとればいいですか？

>>234
色が取れてるところからSLEEP調整
俺は赤７基準で象が２２０、ダチョウが５００
ただしマシンによって変わるので微調整が必要

>>234
獣王はダチョウの白色が一番色取りやすかったんじゃなかろうか・・・
が、やっぱりダチョウ取りにくいなら >>235 の方法でSleep入れたほうが安定する罠

　repeat
　　Sleep(0.01)
　　C = PEEKCOLOR(209,354)
　until ((C and $FF) > 150) and ((C and $FF00) /$100 > 150) and ((C and $FF0000) /$10000 > 150)

参考までに、検証も適当で作りこんでもいない漏れの獣王マクロのダチョウ目押し

●獣王目押し（座標はtown親ウインドウを基準）
・左リール
X136/Y352　(赤 > 150) AND (緑 < 50) AND (青 < 50)→ライオン
X208/Y355　(赤 < 10) AND (青 > 160)→ゾウ
X209/Y354　(赤 > 150) AND (緑 > 150) AND (青 > 150)→ダチョウ
X177/Y353　(赤 < 30) And (緑 > 140) And (青 < 81)→チェリー
・中リール
X252/Y360　(赤 > 180) AND (緑 < 70) AND (青 < 70)→ライオン
X315/Y349　(赤 < 10) AND (青 > 130)→ゾウ
・右リール
X365/Y352　(赤 > 120) AND (緑 < 50) AND (青 < 50)→ライオン
X431/Y355　(赤 < 10) And (青 > 130)→ゾウ

>>227
マッハうまくいきましたか？
漏れはどうもうまくいきません。
左リール中段でGoを基準に時間を調節してるんだけど・・・。

わかる人はやってると思いますが
トレード申請あってから、きずかずにトレ中止された時に
止まらなくする命令です。メイン処理に追加しといてね。

Case "確認"
　　　　　　Clkitem(NEW_ID,"閉じる")

ifb (PEEKCOLOR(375,469) and $D9C7FF) > 200 then //スタート点灯

助言通り島唄30これでスタート点灯を判別してるのですが。。。動きません

>>240
ifb (PEEKCOLOR(375,470) and $FF) > 180 then //スタート点灯

星２のナビ処理がうまくいきません。
ナビに従わなかったり、全リール停止後もナビ通りにボタン連打になったりします
参考にしたいので、どなたかナビ処理のソースを見せていただけないでしょうか？

是非宜しくお願いします

>>242
まず最初に自分で作った物でどこがいけないか聞いたほうが良いですよ。。。
ソースを見せてと言ってもね〜〜ただのクレクレ君と変わらないような気がしますが・・・

くわしく書き込んだらエロイ人が降臨すると思いますよ＾＾；

空なんだけど、コイン買うところで止まっちゃう
俺だけか？

あれ、大丈夫っぽい・・・
おかしいな・・

鯖猫？？　こいつ馬鹿ですか？？
「オートプレイプログラム開発しました。金太郎、サイバードラゴン、
押し順関係ない機種に対応！その他順次対応予定。」
コメント書いてるし・・・・・{{(>_<)}}

コピペする奴も馬鹿だけどな

>>247
馬鹿はおまえだよ！！
鯖猫？？
どうせココ見てるとからコピペしたんだよ！！


BANそいつだけで済めば良いけどツール使ってるやつまで
被害が出るぞ！！

じゃあ直接ミニメで教えてやればいいだろ
マルチコピペ馬鹿

>>248
コピペする前に通報しとけよ！

BLスレ逝け/iebw/kiのβακα..._φ(-ω-*)
マクロ使えなくなる対策は有りうるが、BANはね〜よ
出来る対策なんぞUWSCとかのスクリプト再生言語の禁止だけなんだがな
勉強始めたばっかりの人はUWSCなんぞ使わないでVB勉強したほうがいいよ
VBなら他にも色々使えるからね

100氏　返答ありがとうございます。

ifb (PEEKCOLOR(375,470)←画面上のXY座標 and $FF←何色？) > 180←これは何になるのですか？ then //スタート点灯
自分なりに解釈すると　XYに$FFが来た時に 何かをする　で　いいんですか？

>>252
分解して説明が必要ですかね・・・
�@ PEEKCOLOR(375,470)→座標X375/Y470の色を取得
BGR値で各色16進数2桁（UWSCでは16進数は$を付加して表記する）
$123456ならB値=$12/G値=$34/R値=$56
�A �@ AND $FF→�@の色からR値だけを取り出す
�B IFB �A > 180 Then→�Aで得たR値が180より大きければ次行の処理を行う
180以下ならelse以下の処理へ、elseがなければendif以降の処理を行う

100 ◆NrzNAFPLAQのβακα..._φ(-ω-*)
書く事が低レベルですな！！


>>250
通報したよ！！

ま〜〜知ったこっちゃね〜〜けどな！！
UWSCなんてよ！！
俺はVBなんでね！！

>>254
VB使ってるんならアンタに被害はないだろ？
ナニ熱くなってんだ？
顔文字までコピペの低脳だからVBってのはハッタリなのかもなｗ

100もそれ以外も落ち着け。
煽りレスで返すんじゃ同Lvということに気づけ

100は人格で損をしているよな…
もう少しまともな人格ならスレは荒れないのに。

100は以前マクロスレ来ないとか言ってなかったっけ？？
？？？
もう来なくて良い様な気がするのは漏れだけ？？

>>258
おまいだけかどうかは知らんが、
少なくとも俺は来て欲しいぞ。

100氏や422氏が来なくなるとマクロ製作が進まなくなるがな
(´・ω・`) ・・・

やっと7セグでﾎﾞﾇｽ処理出来かけてきたのにアドバイス無しじゃ無理ぽ

馬鹿な話題はウルトラブラックでやって欲しいよなｗ

旋風ですけど
ＫＣ中のナビ対応は完成しました。
でも突然のナビ発生は無視するしかないのでしょうか？
ナビの赤い三角マークが出る前に、停止ボタンを押しちゃって対応できませんorz
みなさんどうしてますか？

>>262
無視でいいんじゃね。
ていうか、通常時のいきなりナビなんて
たいてい何かはいってるし、ナビ無視した方がベル揃う可能性があるｗ

風のナビって赤い三角だけでもミスしませんか？
座標がずれてるのかもしれないけどミスするんですよ

>>264
ナビに従うと弾をよけるが
そのよけた場所に白い効果がでてるので、
それは拾わないようにしないといけない。

>>263
�dです。気にしないことにしますｗ
突然ナビに対応するには、超スローマクロにするしか思いつかないので。

>>264
赤い三角はかなり色が変化してるので、色の範囲を広げればいいかも。
R>140 G<110 B<110　こんな感じでやってます。

>>265
>>266
ありがとです
ＫＣ入ったら確認しながらやってみます
なかなかＫＣ入らないけど

旋風のナビ処理は、液晶の赤▼チェックの他に、リール点灯消灯チェックと言う方法も使えるよ。

>>264 >>266

うちでは「旋風マーク点灯 かつ　赤三角 R > 200」　で動いてる
常に赤いところは幅1ドットの線だった気がするので座標がとても微妙

>>268　が出来るならそっちのほうが素敵だったかもしれない

>>268
リールの明るさが変化してることに気付きませんでした。
赤三角の色を取ることに必死でしたｗ
リールチェックにチャレンジしてみます。

やっぱり色のとり方が分かりません・・・　；

てすと

>>207
これで解んないの？
普通ココまで説明してくれないよ・・・・・・

分解して説明が必要ですかね・・・
�@ PEEKCOLOR(375,470)→座標X375/Y470の色を取得
BGR値で各色16進数2桁（UWSCでは16進数は$を付加して表記する）
$123456ならB値=$12/G値=$34/R値=$56
�A �@ AND $FF→�@の色からR値だけを取り出す
�B IFB �A > 180 Then→�Aで得たR値が180より大きければ次行の処理を行う
180以下ならelse以下の処理へ、elseがなければendif以降の処理を行う

取り方が判らないとは・・・・？
�@色識別マクロの使用がわからない
�A命令文がわかんない
�B関数（X,Y)がわかんない
�CRGB値の色指定の取り方がわかんない

どれですか？？

↑
分解して説明が必要ですかね・・・

これは１００氏が前レスで説明したヤツね・・・・・！？

�@なら>>205を使う事！！
これで色及び位置を習得出来ます。
まさかこれの使い方は・・・・分かるよね？

俺空、マクロ使うと・・・・これ以上書けない・・・

sageとこう

sageと入れても下がらんがなｗ
放置しておけば下がるってマジレスしておく。

スレ違いですが・・・・・
ちょいと教えて下さい。
アラエボのSLOTファイルのナンバーって何でしたか？

液晶がおかしいのでインスコ　し直したいと思いましたので・・・・・

誰か教えてエロイ人。

>>278
マルチは死ね

>>278
なんでも聞かずにちょっとは頭使え
とあるファイルに記述されているが、特定できなきゃSLOT以下のフォルダを全部どっかに移(ry

>>279
教えるつもりがね〜〜なら
いちいちカキコしてんじゃね〜〜〜〜〜〜〜〜〜よ！？
ボケが！？

一生ロムってろ！？

おまい気を付けないと！？辺りで頭の悪さがばれるぞ。

〜〜　←このあたりでも推し量れるな

　　　　　　　　　　　　　人
　　　　　　　　　　　（;;:::.:.__.;）
　　　　　　　　　　（;;:_:.___:_:_ :）
　　　　　　　　　（;;;::_.:_. .:; _:_ :.）
　　　　　（ ＼／　　　　 　 　 　::|''i,　）
　　　　　.| ﾞ-..;;＿'' ο　''''',, ''＿,,..-'ﾞ.|
　　　　　 l,　　　　￣￣￣￣　　　　.|
　　　　 　 'l,　　　　　　　　　　　 　,/
　　　　　　　＼　　　　　　　　　 ／
　　　　　　　　 ﾞl'-､..,,,,,,,,,,,,..,､-'lﾞ
　　　　　　　　　ﾞ'-､..,,,,,,,,,,,..､-'ﾞ

　l三三三三三三三三三三三三三三三三三|

縦横のスタート メダルイン のランプ点灯が取れない

X93 Y526 赤> 250
X80 Y525 赤> 210 緑> 230 青> 210

>>281
0015

落ちた？

すいません座標の調べ方ですが・・初心者ですのでお許しください（ＵＷＳ）

While True
　　x = G_MOUSE_X;　y = G_MOUSE_Y　　　
　　id = GETID(GET_ACTIVE_WIN)　　　　　
　　ofx = x - STATUS(id, ST_X)　　　　　　
　　ofy = y - STATUS(id, ST_Y)
　　moji = "x="+ofx + ", y="+ofy
　　Fukidasi(moji, x, y, 3)
　　Sleep(0.5)
Wend

これでよろしいですか。
それから超獣は何を頼りに目押しすればよろしいですか？
ご教授願います。

>>288
あってますよ。
後、よければ>>205も参考になるかと思います。
昔、１００氏のを参考に作ったものです。

超獣は
左リールと中リールは赤７（ライオン）の左端の縦線の黒検知を基準に、
右リールはダチョウの羽の右の方の白検知を基準にしてる。

超獣は各絵柄を直接狙うより、
各リールで取りやすい絵柄を基準にスリープ入れる方が早いと思う。

４２２さん、ありがとうございます。
ＵＷＳってとっても楽しいですね
「WINDOWSマクロテクニック」を毎日眺めてますｗ

ＵＷＳではＲＧＢではなくＢＧＲになるのでしょうか？

あと・・・
（PEEKCOLOR(213,607) AND $FF0000) / $10000
$FF0000) / $10000が青だと思いますが

$10000がどうして（）の外のはじき出されるか考え込んでいます。・・・
紫はそうすると
（PEEKCOLOR(213,607) AND $FF00ｆｆ) / $10000
ってことになるのでしょうか？？？？

ＵＷＳの/ってどういう意味なのでしょうか？
//だと無関係の注釈入れるための引用符だと思いますが

すいません・・全くの初心者なので

すいません初心者がしゃしゃり出てわけのわからん質問ばかりしています。
なんせスクリプト書く経験が全くない経理をやっている人間なので・・・ｗ

ifb (PEEKCOLOR(429,149) and $FF) > 200
これは
ifb (PEEKCOLOR(429,149) and $FF) > $CC
とかどうして書かないのでしょうか？１６進法のあとは１０進法と比較しているのが
とても気持ち悪いですｗ

あとcreateoleobjのoleってどんな言葉の略語なんでしょうか？？
気になります？

初心者が勢いにのって質問しまくりました。ご容赦ください。

聞くことばかりじゃなくてググるなり本読むなりしたらどうだ

やったけど・・ここまで細かいことは出てないんですよ

何故所々で笑う？

熟練者にはあまりに基礎的だと思いますので恥ずかしくて
照れ笑いです・・すいません

429.149のRの値が200以上なら、っていう文であって、$FFと200の絶対値を比較してる訳じゃない。

ちなみになぜ16進法を使わないかはわかりません。
その方が混乱しないからじゃね？

>>291
BGRになってます。
AND と 四則演算では後者の方が優先度が高いのでカッコがいります。
マスクは16進で書かないと意味不明になるし、
比較や演算は直感的にわかりやすい10進ってよくあると思うよ。
そもそも200以上ってのがキリのいい数字を選んでるだけだから、
よほど判定がシビアじゃないかぎり、16進なら$C0とか$D0とかにするね。

>>298
どうもです。ＵＷＳをがんばります！

皆さんパチンコはもう組みました？
作ろうにも当たらないから、どんなときにタブが出るのかわからない／(＾o＾)＼

時短終了時のみだよ

時間ごとのログを残したいのですが、よく分かりません
アドバイスください。よろしくお願いします

GETTIMEとSAVEIMGを使う

今更ですがVBで超獣自作しております。
既に作成されている皆様にアドバイスを頂きたいのですが
ナビ中のヒョウ/ダチョウ/7判別はどのように行われているのでしょうか
右のドットで判別するしかないとは思っていますが
ナビ中は点滅しているためうまくいきません。

正常に稼動されている方、ヒントを教えてください。
宜しくお願いいたします。

ヒント
点滅じゃなくて反転です。
光ってるところは消える
消えてるところは光る。

>>304
中→左→右

>>305
そうです。反転なので上手く抽出出来なかったのですが・・・

>>306
シビれました。
これから中押しロジック考えます。

>>307を書き終えて思ったのですが、2点同時抽出って出来るのでしょうか？
任意の点(ヒョウ/ダチョウ/7のいずれでも点灯しない点)：点灯　and
ヒョウ/ダチョウ/7固有の点灯する点：消灯

このやり方もちょっと試してみます。
アドバイス頂いた方、ありがとうございました。

ヒョウ、ダチョウ、7それぞれ個々にか光らない所を中から拾って出来ましたよ〜
それぞれ一箇所しか光らない所はあります。
7だったら真ん中の一番下は7以外では光らないし
ダチョウだったら胸辺り
ヒョウだったら後ろ足

全機種真（自作？）があるから、絶対ＷＡＴなんて
買わないぞ〜って思ってたのですが・・・・
５０００枚勲章に釣られて３０００ＷＡＴも買ってしまった・・・

もちろん、出るはずもなく・・・・・

きっと同じような方がいるはず・・・と信じたい・・・・。

>>310
ほぼ全機種作ってるけど、5000枚勲章が出る前から
ガチャガチャに嵌ってますよ。
5000勲章に釣られてさらに・・
大量のインテリ在庫をどう処分したらいいのかｗ

ところでマクロとは簡単に言うとどういう意味ですか？
勉強しろとか言われてもおバカさんなのでわかりましぇん(´･ω･｀)
自分で作るんですか？

>>312
نشmخختعه جط عج افهشضصخه
سعaهربةثعهئهبتهظ طجىةزظ
ضشdسصيثقبفلاغعتهنخمحج
نهaعائىعغليغ هغلبف خ فقث ة
هائىعغليغ هغلبف خ ف?قث

>>313 の日本語訳

ダウンロードしてなかったのに入ってきて、何か入っちゃったんだよね。
それが広がっちゃった。
ハードディスクは抜いてあるのでほとんど出てない。

超獣の豹とダチョウ目押しできてるかたはどの辺りを認識させていますか？
今のところ赤七通過でスリープさせてとっていますが
消化効率が若干悪いのです
どなたかご教授ください　お願いします

>>315
参考にどうぞ
core2duo E6600 7600GT(VRAM256) ダチョウも豹もサクサク直撃できます。
pen4 3GHz radeon9000(VRAM64) 赤７からsleepでリールが止まるまで２〜３周。直撃なんてムリ。

超獣で効率を求めるなら、そのＰＣに合った最適な目押し処理を探す以外ないかも。

>>315
それって左リールの話ですよね。
どういう流れで組んでおられるかわからないので的確には申せませんが、
もし、>>217-218みたいに状態を持つ作りになっているなら、
必ず停止ボタンが青になるのを待つルーチンを通ると思います。

でも、変則押しで左リールダチョウやヒョウ目押しの場合、
赤７からのsleepの間に充分な時間が経過するため、
左停止ボタンが青になるのを待つ必要がありません。
そのため、その待ちを省略すると若干効率が上がると思います。

>>316
自分はノートPC　　AMD SempronTM プロセッサ 3000＋
で、赤７からsleepでリールが止まるまで０〜２周くらいにもっていってます。

>>422氏
今のところ中ボタン青→目押し→左ボタン青〜の処理をしていましたので、
中停止後はボタン認識なしでやってみます
大変参考になりました。ありがとうございます

今現在インテリオートで同じくらいの速さでしか鯖消化できてなかったので
これで少しは速くなりそうです。

一時間おきにスクショを保存したいのですが
どうやればいいのかわかりません
どなたかご教授願います

>>319
>>303

【777town】真っ黒【Ver3】 で拾ってきた物なんだが
これは422氏が作ったものですか？

>>321
何の話かと思ったが、そこにあるやつってGXR氏がベースを作ったやつだよね。
メインループ＆北斗はGXR氏、その他はいろんな人が作ってます。
そこではうｐされてないけど、もともとは以下のコメントが入ってましたので
参考にしてください。

// 礎を築いたGXR ◆TJRJ/pZTVY氏、100氏、追随した人達に感謝
//
// Version history:
// ver.1.0 (2006/07/31): -TZR- release.
// 2006/07/31 PM12時時点で公開されているマクロを１本化
// ver.1.1 (2006/07/31): -TZR- release.
// 100氏のアドバイスにより機種選択GUI搭載

というわけで、そのころは自分もそれを参考にいろいろ勉強していた時代ですね。

超獣についてなんですが、
皆さんはドットナビの取得をどうやっているのですか？
超獣のナビは点滅するのである程度リピートかけてるのかなぁ？
それと3種（ﾋｮｳ・ﾗｲｵﾝ・ﾀﾞﾁｮｳ）につき1点ではなく何点かとってるのですか？

>>324
>>306
少しは過去ログ読もうな。

>>422氏
ありがとうございます
これからかなり読みます。
m( _"_ )m

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

マクロ島唄を組みましたが、ビジ中の処理を100氏や422氏といった神様に
見てもらいたいのですが、クレクレ厨カス共がウゼーからUPしたくありません。

100氏、422氏BIG中で・・・
Procedure　BIG_shimauta30()
ifb (peekcolor(270,468) AND $ff00)/$100 > 230 THEN
sleep(0.01)
JYUN_shimauta30()

ELSEIF (peekcolor(274,473) AND $ff00)/$100 > 230 AND_
(peekcolor(278,473) and $ff00)/$100 > 230 then //デジタル表示　１　０　９〜順押し
sleep(0.01)
JYUN_shimauta30()
　　
　　　　
　 ELSEIF (peekcolor(274,473) AND $ff00)/$100 > 230 AND_
(peekcolor(279,473) and $ff00)/$100 < 230 then　//デジタル表示　１　２　８　〜　１　１　０まで中押し処理へ飛ぶ　
sleep(0.01)
naka_shimauta30()
　　elseif (PEEKCOLOR(372,470) and $FF) < 200 and_
(PEEKCOLOR(372,484) and $FF) > 200 then//BET判定
sleep(0.01)
Kbd(VK_3, DOWN,50)　　// MAXBETが3以外の場合は変更
Kbd(VK_3 , UP,50)　　// 上を変更時は同様にここも変更
sleep(0.1)

ここまで違っていればご指摘ください。

中押し処理はこれでいいのでしょうか？座標から色を取ってみましたが、
REG処理はできるものの、BIG揃えた後BET後、動きません(>_<)ドコが悪いのでしょうね。
【続き】
Procedure naka_shimauta30()
ifb (PEEKCOLOR(266,600) and $FF0000) / $10000 > 240 then//中ボタン有効判定
sleep(0.01)
Kbd(VK_down, DOWN,50)　　// レバーONが↑以外の場合は変更
Kbd(VK_down , UP,50)　　// 上を変更時は同様にここも変更
sleep(0.01)

elseif (PEEKCOLOR(328,600) and $FF0000) / $10000 > 240 then//右ボタン有効判定
sleep(0.01)
Kbd(VK_right, DOWN,50)　　// レバーONが↑以外の場合は変更
Kbd(VK_right, UP,50)　　// 上を変更時は同様にここも変更
sleep(0.01)

elseif (PEEKCOLOR(200,600) and $FF0000) / $10000 > 240 then//左ボタン有効判定
sleep(0.01)
repeat
a=peekcolor(144,405)　//左リール　赤７　目押し位置
　　 sleep(0.01)
　　　　　　until ((a and $ff) > 250) and_
　　　　　　((a and $ff00) /$100 > 10) and_
　　　　　 ((a and $ff0000)/$10000 > 40)
　　　　　　　　sleep(0.60)
Kbd(VK_left, DOWN,50)　　// レバーONが↑以外の場合は変更
Kbd(VK_left, UP,50)　　// 上を変更時は同様にここも変更
sleep(0.01)
endif
fend

【さらに・・・】さっきの間に入るモノです。

　　elseif (PEEKCOLOR(372,470) and $FF) > 200 and_
(PEEKCOLOR(372,484) and $FF) > 200 then//リール回転判定　
sleep(0.01)
Kbd(VK_UP, DOWN,50)　　// レバーONが↑以外の場合は変更
Kbd(VK_UP , UP,50)　　// 上を変更時は同様にここも変更
sleep(0.3)
repeat
a=peekcolor(200,600)　//左リール　チェリー　目押し位置
　　 sleep(0.01)
if (peekcolor(200,600) and $FF) > 200 then break
　　　　　　until ((a and $ff) < 250) and_
　　　　　　((a and $ff00) /$100 < 10) and_
　　　　　 ((a and $ff0000)/$10000 > 40)
sleep(0.3)
endif
fend
Procedure reg_shimauta30()
Kbd(VK_space, DOWN,50)　　// レバーONが↑以外の場合は変更
Kbd(VK_space, UP,50)　　// 上を変更時は同様にここも変更
sleep(0.01)
fend

>>329
(266,600)の位置だと、B-G-Rの順で
無効ボタン：140-101-255
有効ボタン：148-255-148
青色で判定してたら、失敗だよね

マクロ全ての事ですが、
ラグ等が発生した場合処理中断する事が多々あります。
一つの作業（各ボタン押し等）をメイン処理から
毎回ループさせているのですが、なぜか止まってしまいます。

簡単に例えると

while true
メイン（）
wend

Procedure メイン（）
　ifb ﾍﾞｯﾄ判定 then
　　ﾍﾞｯﾄ押す
　elseif ﾚﾊﾞｰ判定　then
　　ﾚﾊﾞｰ押す
　elseif ﾎﾞﾀﾝ有効判定　then
　　ﾎﾞﾀﾝ押す（ﾜﾝｷー）
　endif
　sleep(0.1)
fend

この様な処理でもラグがあると Procedure の中で
中断する事があります。何か記述がまずいのでしょうか？

質問が抽象的ですみません。
とりあえず Procedure のスリープを削除して
while 〜 wend 間でスリープ調整してみます。

331lTTrldzW氏、遅くなりました。昨日の>>328-330です。
まだ組み方がヘタクソなので、また書き換えてみます。
惜しいと思うんだけど・・・
クレクレ厨には譲りたくないですね。苦労知らずデスので！

自分も少しずつですが、頑張って完成させたいですね。
用途に応じた関数を用いるのがなかなか自分の理解している中では、出てきません。

サポートお願いいたします<m(__)m>

超獣の告知ランプ点灯のしにくさにいらいらしてます
ランプ点灯→交互目押しをしてるのですが、
ボーナス成立でコインがどんどん減る・・・＞＜
みなさんはどうされてますか？

>>334
100氏や422氏ではないけど>>329のとこで
ifb　中ボタン有効　then
　処理
elseif　中ボタン無効　and　右ボタン有効　then
　処理
elseif　中ボタン無効　and　右ボタン無効　and　左ボタン有効　then
　処理
endif

にしないと押し順がおかしくなるんでは？
ボタンすら押さないのは>>331さんの言ってることだと思うけど・・・

あと
Procedure naka_shimauta30()のあとに
　print "中押し"
いれて中押し処理を行っているかとか確認してみてはどうでしょう？

>>332
ベット判定をINSERTのランプで見ているのなら
レバーの後にしないとうまくいかないと思うよ。
なぜかというと、BETしたあともINSERTが点灯し続けるから。

　ifb ﾚﾊﾞｰ判定 then
　　ﾚﾊﾞｰ押す
　elseif ﾍﾞｯﾄ判定　then
　　ﾍﾞｯﾄ押す

にした方がいい。

なるほど！
アラＡで確認したらリールが回るまで点灯してますね。
勉強させてもらいました　<( _ _ )>

422氏のアドバイスで作った島唄です。

ifb スタート点灯
レバーオン
ifb ボーナス告知点灯
目押し処理
elseif JACランプ中点灯
フリー
elseif jacランプ左点灯中消灯7セグ点灯
逆押し
elseif ランプ左点灯中消灯7セグ消灯
順押しフリー
else
順押しフリー
endif

elseif インサート点灯
ＢＥＴオン

>>336 339さん
>>328-330です。最初から順を追って確認してみます。
peint用いて、確認も大事ですね。

ありがとうございます<m(__)m>
また組んでみますので、添削とご指導を重ねてお願いいたします。

ﾖｯｼｬ(^^)今日は寝れないわ〜

マクロ　譲ります
交換しましょう☆
メールください！

>>341
どうせ2chで流れたマクロしか持ってねえんだろ？

>>341
交換しましょうって　笑わせるなカスが
自分で組むのが楽しいのだろうが！！

あっ　自分で組めない方ですか？ｻｰｾﾝｗｗｗ

>>341
俺もだまされたｺﾔﾂにメール送ったら、送れないし
適当な香具師や！
決まってイジられてほしいんとちゃうか？

これ以上突っ込んでもでゃーないしな。

ここ1週間、金太郎を手探りでつくって、アラジン、ダブチャ、獣王と一気に作成した。
今では、サミタにログインしてない時間の方がが少ないぐらい＼(*^▽^*)ノ

ところで獣王なんだけど、ボーナス中ナビランプが点滅してるせいで、目押し
してるみたいで、消化が遅い。超獣なら、順押しランプ消灯＆ドットでナビ処理
できるらしいけど、獣ではナビランプみるしかないですよね。
サバランプ消灯で目押ししない処理にしたけど、サバ中のボーナスは対応
出来ないし‥

>>346
ヒント：中リール下のセグ

>>346
if　ビジ中（左の７セグの右上点灯）
　　ビジ処理
elseif　レジ中（中の７セグの中点灯）
　　レジ処理
elseif　ナビ判定
　　鯖処理
else
　　DDT
endif

って感じにすればいいよ。

獣王だったら、変則押しDDTで第一停止絵柄判別すれば
毎Gフルウェイトでいけると思うよ。

>>347
なるほど！
色んなところに目を光らせないと、効率良い物はつくれないですね。

>>348
422氏
詳細な解説ありがとうございます。

422氏
某スレより、ﾓｰﾄﾞ用変数の切替で全機種ｶﾊﾞｰは厳しいのではとの事ですが

全機種の依存ﾊﾟﾗﾒｰﾀ
・ﾚﾊﾞｰとかﾎﾞﾀﾝの位置
・目押し判定を行う時の色や座標値
などなどを配列のテーブルデータにし、それをﾓｰﾄﾞ値で参照すれば
大概の処理は共有化され、1つのﾌｧｲﾙで全ての機種を
ｶﾊﾞｰできる作りになると考えているのですが甘いですかね？

当然機種依存となる部分は
if-else、select-case
で分け個別に処理しますし、ほとんどのﾊﾟﾗﾒｰﾀを外に出しとけば
画面構成が変更されても修正に要する工数が減らせると考えていますが
いかがでしょか？

>>351
あくまで「単純なグローバル変数の変更だけで」やるのが難しいのであって、
そこまでやればもちろん、可能だと思いますよ。

ただ、
＞当然機種依存となる部分は
＞if-else、select-case
＞で分け個別に処理します
ってところが結局くせものなんですよね。

>>352
ですねー
機種依存以降の処理ってのはどうしても個別になってしまうので
なるったけ共有できるトコはまとめて、外に出すようにしてます

理想としてはオブジェクト思考のように、修正の入るトコを
可能な限り減らすコトですねー

パチンコの方はスロットに比べて、放置防止のダイアログを
監視するだけでいいんで楽なモンですね^^

では、失礼します〜

マクロを何機種作成するとそういう思考に繋がるんだろうか

>>353
まあ、ぱちの方は他にやるとすれば保留玉の数によって止めうち、
アタッカー周りの色取得で大当たりのラウン消化中は止めうちしないようにする。

てな所ですかね。

役物があって、タイミング打ちするといいような機種が出てくると
おもしろいことになるかもしれませんね。

>>355
大当り中アタッカーが閉じてる時は玉を打ち出さないとか
そんな細かい所まで考えてるんですねー、参考になります

そうですね、パチンコの機種によってぶっこみの位置が違ったり
大当りとか確変とか内部状態で狙う位置が変わってくる機種もあるでしょうから
そういった所は個別メソッドに分けといた方が後々楽かも・・・


>>354
作る前に必ず設計から入るってのがしみついちまってるもんで・・
基本的にPGってのは、汎用性と再利用が一番重要だと考えています
その分設計が大変になりますが、減らせた工数は純利益になりますしね^^

＞減らせた工数は純利益になりますしね^^

機種依存処理ばかりで「工数」なんて減らないよ
頼むから何機種か作成してから設計してくれ、な？

422氏の公開した島唄なんですが

ifb スタート点灯
レバーオン

ifb ボーナス告知点灯
ボーナス目押し

else
おやじ打ち

endif

elseif インサート点灯
BETオン

endif
にすると レバーオンの所で次の処理に飛ば無い時が出てきます
プリントで確認してもレバーは押してんでリールが回ら無いだけなんですが どーもレバーを一回しか叩いてないみたいなのです。

どこがおかしのか全く分かりませ。(´・ω・｀)

>>358
おそらく、リールが回転してないのに、
オヤジ打ち処理に入って、
停止ボタンが有効になるのを待っているため止まっているのだと思います。
なので、レバオンの所を

　　repeat
　　　　レバーオン
　　　　sleep(0.2)
　　until　スタート消灯

にするといいと思います。

422氏 返答ﾄﾝです。

やはり消えるまでレバー叩く処理にしないといけなかったんですね(・ω・;)

一台のPCで２垢とも動かしたいのですが可能でしょうか？
多重起動については把握しております。

インサート点灯andスタート消灯then
ベット
　スリープ
スタート点灯then
レバオン
スリープ1.0以上

にすりゃなんの問題もないのにね

マッハのビジ絵柄が押せません（´・ω・｀）
各座標と数値を教えてくれるやさしい方はいらっしゃいませんか？

どうか宜しくお願いします

>>363

つ sleep

☆２マクロを過去スレを参考に作ってみたのですが、
押し順を無視したり、中ボタンが連打になったりしています。

Procedure kyojin()
// 左ナビ点灯時
ifb (PEEKCOLOR(472,363) and $FF0000) / $10000 > 230 and _
(PEEKCOLOR(472,363) and $FF) > 230 then
Kbd(VK_LEFT, DOWN,50)// 「←」キーを押す
Kbd(VK_LEFT, UP,50)// 「←」キーを離す
Sleep(0.2)// 押し順ナビを無視する対策の待機時間(環境により調整が必要？)
endif

// 中ナビ点灯時
ifb (PEEKCOLOR(482,398) and $FF0000) / $10000 > 230 and _
(PEEKCOLOR(482,398) and $FF) > 230 then
Kbd(VK_DOWN, DOWN,50)// 「↓」キーを押す
Kbd(VK_DOWN, UP,50)// 「↓」キーを離す
Sleep(0.5)// 押し順ナビを無視する対策の待機時間(環境により調整が必要？)
endif

　続き

// 右ナビ点灯時
ifb (PEEKCOLOR(492,436) and $FF0000) / $10000 > 230 and _
(PEEKCOLOR(492,436) and $FF) > 230 then
Kbd(VK_RIGHT, DOWN,50)// 「→」キーを押す
Kbd(VK_RIGHT, UP,50)// 「→」キーを離す
Sleep(0.2)// 押し順ナビを無視する対策の待機時間(環境により調整が必要？)
endif

// 全ナビ消灯時
ifb (PEEKCOLOR(472,363) and $FF0000) / $10000 < 255 and _
(PEEKCOLOR(472,363) and $FF) < 255 and _
(PEEKCOLOR(482,398) and $FF0000) / $10000 < 255 and _
(PEEKCOLOR(482,398) and $FF) < 255 and _
(PEEKCOLOR(492,436) and $FF0000) / $10000 < 255 and _
(PEEKCOLOR(492,436) and $FF) < 255 then
Kbd(VK_SPACE, DOWN,50)// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
Kbd(VK_SPACE , UP,50)// 上を変更時は同様にここも変更
Sleep(0.4)// 押し順ナビを無視する対策の待機時間(環境により調整が必要？)
endif

fend

どこが悪いかご指導頂けませんか

星２はナビ点灯が遅い（ボタン有効が先で全ナビ消灯と認識）するので
間に停止ボタンの判定を入れたほうがいい

あと中ナビは白ちゃぶ台と区別しないと中連打になる
以上。

なんか前半の文分かり難いな・・・ｽﾏﾝ

座標・色数値共判りませんが

Procedure Navi()
ifb 左点灯 then
左押下

　elseif 中点灯 then
中押下

elseif 右点灯 then
右押下

else
おやじ

endif
fend

でいいと思いますが
押し順無視、連打等は色数値がアバウト過ぎるかもしれません。

>>367-369さん　ありがとうございます

白ちゃぶ台と区別するようにやってみます

停止ボタンの判定は、どこですればいいんでしょうか

>>370
停止ボタンの判定は停止ボタンでしょｗ

>>371
すいません　自己解決しました
バカな質問をしてしまいました

もう一つ問題が発生していまして、ナビが中ボタンで終了した場合
球が点灯したままになっているために、動かなくなってしまいます。
どうしたらいいんでしょうか

>>372
ボタンランプをナビに追加すれば良いのでは？

ボタン点灯（青）時のみ押すみたいな感じで・・・・・
ボタン消灯（赤）はスルー

>>373
ありがとうございました

まだナビを無視するときがありますが、なんとか動くようになりました。

一つ質問させてください。
差枚数検知についでです。
大箱2＋小箱1で清算、座り直しを考えましたが、
この方法では投資枚数関係で清算時に差枚万枚いかない場合があります

検知する箱の数を増やせばいいのですが、効率よく勲章を稼ぎたいです。
何か別の方法はありませんでしょうか？

コイン購入回数をカウントしとけば投資枚数わかるでしょ
んでそれに応じた箱の数のとき清算すれば良いのでは

というか座り直し機能があるなら大当たり時にコイン購入回数を
チェックして座りなおせばおｋ

一定量コイン購入の度に座りなおすBLスレ有名人が居るが
あれは目立ち過ぎだと思う

>>376
即レスありがとうございます
参考になりました。購入回数カウントにチャレンジしてみます

あ、目立ち過ぎって言ったのはコイン50枚毎に清算してる人ね
購入回数10回〜11回で清算だと大箱2個で万枚以上なので丁度良いです

ﾀﾞﾌﾞﾁｬの真黒を4日かけてやっとつくった。。orz
右の液晶でナビを取得すると、微妙にドットナビの位置が違ってるし
左のナビガイドは点滅してるし。

点滅を見るために for i x to y で数回見ても、漏れのボロパソコンの
CPUのせいでどうも正しく見れない。

でもとりあえず動いた。。。

お疲れ！
リールの隅を見て明るいのから押せば済むけど
やっぱ苦労して作った方が愛着があるよね！

超獣なんとか作成した。結構苦戦して途中で気が狂いそうになった。
この過去ログでも報告されてるけど、不安定だね。
PCスペックに依存するみたいだし。
ノートPCだけど、なんとか動く。各リール赤スリープで対応したから、
速度はでないけど。
次は、ハードボイルドかな。難度が高そうだけど…

>>381
スペック依存でFAなんですかね。
俺も自力で超獣作ったけど、左リールのヒョウ、ダチョウがHit率5割程度
7だけは100％同じトコで押してくれるんで、検知ミスでもなさそう
(7/ダチョウ/ヒョウ全てダチョウ検知でスリープ調整してる)

ヒョウだけ色範囲狭くしてみたり、スリープ間隔微調整してもダメ。
ナビ判別が悪いのかとブレーク入れて確認しても問題なし。
正直お手上げ状態です。

7/ダチョウ/ヒョウ全て不安定ならスペックかとも思うんですが
7だけはキッチリ押してくれるあたりに違和感が・・・

同じ症状の方いらっしゃいますか？
これで克服したぜ！って方いらっしゃったら是非アドバイスください。

>>381-382
スペック依存の点もあると思うが、
赤七が押せてる以上、作りが荒いだけと思ってしまうがどうなのかな？。

実際俺のPCもスペックしょぼいが、
全リール赤七とダチョウは1周で取れてる（豹だけは直撃無理だったが）　
特にダチョウは取りやすい気もするんだが

>>382
スリープの微調整が重要だと思います。
ダチョウで取ってるのなら、左リールの場合上か下のダチョウを検出するかで、
最大3コマ違ってくるから、どの位置で検出しても安定するスリープの調整を、
すればいいと思う。超獣はリール速度が早めだからダチョウでも直撃で止めず
1周させて止めれば安定すると思うのですがどうでしょうか？
自分もその辺で悩んだけど、目押し成功率は100%で止まるようになりました。

自分は左中はライオン、右はダチョウでやってる。
各リールとも自分の環境で一番確実に取れる物を基準にsleep処理がいいと思う。

422氏に質問。
目押しお願いを無視することってないですか？
小窓は出てるのに、その処理に入っていきません

何かを入れるといいよって方法があればお願いします
SLEEPを多めに取るしかないですかね？

>>380
そうか、そういう手があったか。。。。納得
でも、初めて放置して、仕事から帰ったら
勲章とってやがった、すっごく感動。。。。。

次はｱﾗA,ｹﾝｼﾛｳいってきます。（ﾀﾞﾌﾞﾁｬの苦労のおかげで1時間で
つくれました。）

最近漏れのｻﾐﾀの楽しみ方が分かってきた。

真黒を作成→放置→ドルバ→アバ交換→最高券トレード→次真黒作成

なんかもう、やめられない

んでマクロ開発レベルによって
　→１億貯めて金アバ
　→全機種マクロ制覇
に分かれるんだよな

>>389
全機種作ってるけど全機種制覇目指さず1億目指してる俺のレベルは？

UWSCの編集で使うソフトでK2Editorや秀丸がいいみたいですが
キーワード強調表示をしたまま印刷ってできるのでしょうか？
ご存知の方、よかったら教えてください。

☆２の真黒を数行でかいてみた、
通常ゲームで変則うちをするのですが、
☆２の場合、通常時変則打ちになってもOKですよね。

あ、書くの忘れてましたが
でもBIG中のナビと特訓中のナビはちゃんと動きす。

>>386
目押しお願いの直後に長めのsleep
自分は念の為4秒入れてる。
後はアクティブウィンドウが無くなったりした時に
目押しウィンドウの有無を調べ、あればそれをアクティブに、
無ければサミタをアクティブにする。

>>392
変則OK
ビジの二回目の小役ゲーム開始時のナビが遅いから注意。

>>389
漏れの目標

１．全アバ制覇　<----今ここ　あと飲み物２つ＋☆系＋竜太
２．全機種勲章
３．一億

あとどんだけかかるやら

422氏ありがとうございます。

安心して変則打ち無視できます。ｗ

>ビジの二回目の小役ゲーム開始時のナビが遅いから注意。
そうなんですよね、ちょっとだけ苦労しました。気がつくまでに
なにがいけないんだろうと、プログラムをいじりましたが、
幸いなことに、ビジのナビは中から始まらないので
左と右のナビはボタン開始を無視してます。
そのせいもあって、通常時にたまに中打ちからはじまることがあるのです。

せっせと直せばいいのかと思いましたが、変則打ちでも関係ないのなら
無視を決め込んでます。

>>397
ちゃぶ台の淵も取ればいいよ
そこを認識して中押ししてるはずだから

>>398
ちゃぶ台の足を取っているんですけど、
全く右のナビリールに何もないときに、中押ししちゃうんです。

せっかくだからソース乗せてもいいですか？

>>399
ソースは貼るのは控えたほうがいい気がする
こっちにクレクレ厨が来てもいやだしな
まああくまで俺の意見だが

Procedure Kyojin2()
//GetColorは指定X,Y座標のRGB値をかえす (R=1, G=2, B=3)
//hit_stopは 0=Free, 1=左, 2=中, 3=右, 4=BET, 5=レバー
Hit_Key = 0
ifb (GetColor(435, 598, 3) > 200) Then
Hit_Key = 1
endif
//中ナビ、ボタン点灯且つちゃぶ台の足がない
ifb (GetColor(498, 597, 3) > 200) and (GetColor(706, 397, 1) > 150) and (GetColor(706, 414, 1) > 100) Then
Hit_Key = 2
endif
ifb (GetColor(717, 436, 1) > 150) Then
Hit_Key = 3
Counti = 1
endif
ifb GetColor(649, 514, 1) > 200 Then
Hit_Key = 4
sleep(0.3)
endif
ifb GetColor(312, 514, 1) > 200 Then
Hit_Key = 5
sleep(0.5)
endif

//続きです。

hit_stop(Hit_Key)
//特訓中　左、右と来た場合、なぜか右のボールがついたままになるので、いつまでたっても中リールが押されない
//この状態を回避するため、中リールが押されたらPUBLIC変数でそのことを記録して、2回目の右ボタンの場合は
//中リールをとめる。
//そうすると、422氏指摘のボタン点灯遅れの場合、右ナビから始まる場合、中が押される
//これをまた回避するため、ビッグ中はこの条件を無視する。
ifb (getColor(291, 448, 1) <> 0 ) and (Counti > 0) and (GetColor(717, 436, 1) > 150) and (GetColor(498, 597, 3) < 200) Then
hit_stop(0)
Counti = 0
endif
fend

>>399
どうしても詰まってしまったらのせてみては？
試行錯誤するのも楽しみの一つだと思うし

解説があまりなくてすみません。
4行目のHit_Key=0は、いずれの条件にも当てはまらないときに
ワンキーを押すためのデフォルト値です。

次に左、中、右とナビをみてます。
ナビに当てはまれば、ナビとおりボタンをおします。

その次にインサートコインと、レバーオンライトをみてます。

インサート、レバーオン、ナビ．．．．としなかったのは
インサートしてから、レバーオン後、ナビの誤動作を防ぐためです。

最後にちょっとだけ苦肉策をいれてます。

一応、勲章とれるレベルのものではあると思うのですが
修正可能な箇所があればお願いします。

すみません、乗せないほうがいいという意見を見ないまま、乗せてしまいました。
でも、クレクレ君には簡単に動かせないような仕様になってます。

>>402
中ナビのはずなのに、右球がついたままになると言うのは、
第3停止だからナビ不要と言うことだと思う。
私の場合は、最後にワンキーで残ボタン処理させています。
左押し else 中押し else 右押し else ワンキー と言うように。

>>406
それも考えたのですが、うまく動くのか心配でした。

///
※A
ifb 左ナビ判定 then
　　左押
elseif 中ナビ判定　tehn
　　中押
elseif 右ナビ判定　tehn
　　右押
endif
※B
ワンキー処理
///
この場合※AとBにfor で3回繰り返し処理しないと
最後のワンキーで誤動作するはずだと思いました。
for で3回処理すると、コイン処理とレバー処理を追加する
文もいれるとして、どっかの機種で誤動作した記憶があったのです。
レバーONライトもコインライトもつかず、リールも回らない状態に
おちいってしまって。
それ以来この処理はしてません。
これで皆さんはうごいているのでしょうか？

if 左停止可 then
if 右ナビand右停止可 then
右押し
elseif 中ナビand中停止可 then
中押し
else
左押し
endif
elseif 中停止可 then
if 右ナビand右停止可 then
右押し
else
中押し
endif
else
右押し
endif

半角スペースが･･･　orz

>>407
私は、巨人２の場合、停止ボタンを3回押すという考えは入れてません。
停止ボタンのどれかが有効になっている場合にナビ判定させるようにします。
止めないといけないボタンがあるのにナビされていなかったらワンキーなのです。

それと、ナビ球の色取り位置を５ドットくらい下にずらす方が良いです。
球と文字でひとつのナビ図柄ですから。５リールの多少のぶれにも対応できます。

ifb スタート点灯 then
　 レバー押下
　　リピート
　　スタート消灯

ifb 停止ボタン有効 then

elseif 左ナビ点灯
左押下
リピート
停止ボタン消灯

elseif 中ナビ点灯
中押下
リピート
停止ボタン消灯

ifb スタート点灯 then
　　レバー押下
　　リピート
　　スタート消灯

　　ifb 左停止ボタン有効 then
　　　リピート
　　　左ナビ点灯
　　　左押下

…ナビ無し時の処理が思い付かないｗ

ifb　インサート点灯　and　スタート消灯　then
　　ベット
　　Sleep(0.1)
elseif　スタート点灯　then
　　レバオン
　　sleep(1.5)
elseif　左ボタン有効　and　左ナビ　then
　　左押下
　　Sleep(0.12)
elseif　中ボタン有効　and　中ナビ　then
　　中押下
　　Sleep(0.12)
elseif　右ボタン有効　and　右ナビ　then
　　右押下
　　Sleep(0.12)
else
　　ワンキー
　　Sleep(0.12)

ちと遅いが問題なく動く
ちゃぶ台の時は中押しするけどね

ペタペタ張るな！

>>414差枚検知張ってやろうか？

>>415
頼む

誰か親切な人、鳥獣のアルゴリズムを簡単に書いてくれないか？

今から作ろうと思ってるんだけど、注意点とかあったらおすえて保水。

仕事からかえって、試し打ちしてるけど、一向に鯖ちゃんが入らない。
最高使うのももったいない気がするし。

親切＋エロイ人おすえて。保水、保水

超獣で、過去レスにあったように
中左右押しをしているのでが、

中と左の目押し率は完璧なのですが
右の目押し率だけが、50%前後でどうも実用に耐えません。
PCの性能のせいなのでしょうか？
同じような経験をされたかたいますか？

それと、超獣でボーナス確定になっても、目押しウィンドウが
でないのですが、使用なのでしょうか？
その場合どのような処理をされていますか？

よろしくお願いします。

自己レスです。

いま、右リールは下段の赤七のはじをみてます。
もしかしたらこれがいけないのかもしれません。
最初はダチョウの黒をみていたのですが、ダチョウは
3連あるので、誤差がでてました。

皆さんは右のリールはどの段の何をみているのか
教えていただけますでしょうか？

もう、わからない、わぁぁぁぁ！

サミタを再起動するたびに、Sleepの値を変えないと
目押しがずれるぅぅぅ。うぉぉぉおおおお。

そもそも Let's Note で超獣目押しを作ろうとする
俺がいけないのか？

誰か、一言でいいからいってくれ。
「無謀」たと。。

ちなみに、Let's Noteは4年落ちです。

わかったぞ、俺のPCの癖がわかった。
まとめるとこういうことだ。

１．起動しているアプリによって、Wait数に影響がでる。
２．中リールの目押しが正確なのは、全リールが回転しているので
　　回転スピードが遅い
３．左リールもほぼ正確なのは、まだ回転速度がおそいから。
４．右の目押しができないのは、右リール単独回転の場合
　　回転がはやくて、俺のPCの目がまわっている。

かく、リール目押時に
repeat
c = 基準図柄の色
print c
for i = 1 + 1
print i+"回目"
　sleep(0.02) <--そもそもここにスリープを入れないと値が変わらない。orz
untile cの色 = xxx
中リールは10回以内で色が取れるが
左は妬く50回
右は150〜200回　ひどいときはタイムオーバー

中リールの目押しSleepは sleep(0.n)
左は sleep(0.xn)
右は sleep(0.xxn) と　 nの値を調整しないとだめ
でも、俺のPCでは 0.00nの調整が意味をなさない。

てことで、Let's Note での超獣はあきらめました。

あんまり興味ない話ですが、一応。。。

>>413 それだとﾚﾊﾞｰONから停止ﾎﾞﾀﾝ有効までの間にelseのﾜﾝｷｰ連打が入ってしまいませんか？ どーもﾘｰﾙが回りだしてから直ぐに左ﾎﾞﾀﾝを押してるんですが

>>423
レバーＯＮのあとにスリープ入れて、ボタン色確認

やっぱり、諦めないことにした。
営業マンの俺の中のPG魂が燃えてきたぞ。

PUBLIC変数でそれぞれ最適な値を自動認識させる
仮に、７を目押ししたくて、7が出なかった場合、
PUBLIC変数を一旦　NULL(uwsってNULLがあったっけ？)
次の回は長くなるが、リールの回転周期を図る

日曜日がんがる。今日はねる。

真黒組んでみたいんですけど、おすすめのソフトありますか？

何の機種でも良いから、１つだけマジソース公開して欲しい。
その後は他の機種に応用するので

>>427
上のほうに出てるだろ？
それで分らなきゃ、やめとけ。

>>426
・UWSC（無料）
・Visual Basic Express Edition（無料）
・Excel マクロ（VBA）

>>424 ﾘﾌﾟﾚｲ後ﾜﾝｷｰ連打になりますね

ｲﾝｻｰﾄ点灯しないので、処理が抜けてしまってますよ

>>429
さんくす！
落としてみますわ

さぁ、今日はエイりやんでもつくろかな
↓
ボーナス当選後の一枚がけさえ取得すればOKだな
↓
見事ボーナス引く、あれ左の一枚がけ告知が点滅だ
まんどくせ、ま、とりあえずループ処理で何回か見るか
↓
右にもドットで一枚がけ告知があるぞ
↓
ちゃかちゃかっと、一枚がけ告知認識プログラム作成
↓
あれ、うまく認識しないな？
↓
目押しウィンドウ現る、勝手に目押し選択
↓
なんだよ、これって馬鹿押しマクロでOKじゃん。
↓
マクロ作ろうと思った俺の気合はどうなる？
↓
目押しウィンドウの目押しをしないを選択
↓
ゲーム数をカウント
↓
ゲーム数8000回転でボーナス放出プログラム作成

見事勲章獲得プログラム完成

なんか意味あるのかな、このマクロ。。。。。orz

清算→座りなおしのマクロが失敗したら泣けちゃうな

マッハ作ってるんだけど、液晶の動きをみろと過去レスにのってたので
そのとおりにしたんですが、液晶上で色をとるためクリックすると
液晶が大きくなってビックリ。色取りも大変な思いをしました。
そんなこんなで、　Color.UWSを改造して、OnMouseOverイベントに
対応したものにしました。　今までのはクリックしないといけないですが
改造バージョンは　0.5秒後とにマウスがいる位置の色を取ります。

OLD_X = 0
OLD_Y = 0
OLD_COLOR = 0
while TRUE
　　WIN_ID = GetID(GET_ACTIVE_WIN)
　　MOUSEORG(WIN_ID)
　　BASE_X = STATUS(WIN_ID, ST_X)
　　BASE_Y = STATUS(WIN_ID, ST_Y)
　　　　NEW_X = G_MOUSE_X; NEW_Y = G_MOUSE_Y
　　　　OFF_X = NEW_X - BASE_X; OFF_Y = NEW_Y - BASE_Y
　　　　c=PeekColor(OFF_X, OFF_Y)
　　　　ifb NEW_X <> OLD_X OR NEW_Y <> OLD_Y OR c <> OLD_COLOR then
　　　　　　PRINT　"X="+(OFF_X)+"／Y="+(OFF_Y)+"／赤="+(c　and　$FF)+"／緑="+((c　and　$FF00)/$100)+"／青="+((c　and　$FF0000)/$10000)+"／BGR値=$"+c
　　　　endif
　　　　OLD_X = NEW_X; OLD_Y = NEW_Y; OLD_COLOR = c
　　sleep(0.5)
wend


改造というか、2行はずしただけなんだよね。ごめんえらそうなこと言ってｗｗ

ついでにこんなもんもいかがですか？

print されるのは　
「X=294／Y=438／赤=222／緑=231／青=107／BGR値=$6BE7DE」　でなくて
「ifb (PeekColor(127, 208) and $FF) = [R255, G255, B255]) then」
ずばり構文が帰ってきます。ちょっと修正を加えるとすぐにつかえますよ

OLD_X = 0
OLD_Y = 0
OLD_COLOR = 0
while TRUE
　　WIN_ID = GetID(GET_ACTIVE_WIN)
　　MOUSEORG(WIN_ID)
　　BASE_X = STATUS(WIN_ID, ST_X)
　　BASE_Y = STATUS(WIN_ID, ST_Y)
　　ifb GETKEYSTATE(VK_LBUTTON) then
　　　　NEW_X = G_MOUSE_X; NEW_Y = G_MOUSE_Y
　　　　OFF_X = NEW_X - BASE_X; OFF_Y = NEW_Y - BASE_Y
　　　　c=PeekColor(OFF_X, OFF_Y)
　　　　ifb NEW_X <> OLD_X OR NEW_Y <> OLD_Y OR c <> OLD_COLOR then
　　　　　　PRINT　"ifb ((PeekColor("+(OFF_X)+", "+(OFF_Y)+") and $FF) = [R"+(c　and　$FF)+", G"+((c　and　$FF00)/$100)+", B"+((c　and　$FF0000)/$10000)+"]) then"
　　　　endif
　　　　OLD_X = NEW_X; OLD_Y = NEW_Y; OLD_COLOR = c
　　endif
　　sleep(0.5)
wend

422氏
VBAでBasp21っていうDLLあるんですが
これを使うとVBAでメールがおくれるんですが、
UWSでメールと連携できるものはありませんか？

実はVBAの方が得意なのですが、いままで書いたマクロをVBAに
移植するのも面倒かなとおもいまして。。。。

メール連携できれば、30分おきに現在の状況を携帯メールに送れる
かなとおもって、便利ですよね。僕はほしいし。。。

なにかいいアイデアがあったらお願いします。

>>436
そこら辺は使ってないから知らないです。
他の方かヘルプを頼って下さい。
最悪、メーラーを立ち上げとけばベタベタでマクロに組み込むことはできるでしょうが、
できればスマートに行きたいですもんね。
力になれなくてすまぬ。

みつけてきました、コマンドラインでメールが送れそうなのが。。。

でも、一人でつくると結構時間がかかりますね。
プログラム本体は簡単だからいいのですが、
数字のドッドを取得して、それをもう一度数字化する作業や

メールのテストだったり、、だれか一緒にプロジェクトやってくれないっすかね。。。。

マクロ＋メール送信プロジェクト発足させませんか？

【用途】マクロ放置中に30分(時間指定可能)おきに
　　　　放置中の台状況をメールで知らせる。

【言語】UWCSのみ

【アルゴリズム】
　グローバル変数にスタート時間を記録させ、1回転ごとに
　GetTime(UWSC関数)関数で経過時間を測定し、指定時間の経過毎に
　現在の状況を取得して、ファイルに書き出す。
　結果をDosコマンド[DOSCMD]を実行して、ファイルもしくは平文
　を送信。

【実行形式】
　今回のプログラムはCALLされる形式で作成する。
　既にあるUWSCのマクロから Call Mail　形式で使用できるように
　する。その他、メールサーバーの設定は ini ファイルで初期設定する

・・・・つづき

【通知内容】回転数・BB・RB・AT数（できれば大当の波も）
　　　　　　　現在のコイン数、（オプションで差枚）

【使用プログラム】UWSC＋コマンドラインメーラー4候補あり

【開発期間】予定1週間（僕が一日2時間くらいしかできませんので）

【必要人員】　3人から5人
　１．プログラム本体　僕が担当します。（言いだしっぺなので）
　２．データ取得→数値化人員　1〜2人
　　必要技能：かくデータ表示の特徴をつかみ、それを数値化するだけ
　　なので、プログラムの技能は必要ありません。
　３．メーラーのテスト　１人　
　　メールの知識がある人がいいですが、サポートできます。
　　DOSプロンプトを使い慣れている人。


皆さん、どうでしょうか？興味ありませんか？
是非一緒にかいはつしましょう。。。。。。。

人が集まりそうでしたら、メルアド公開します

422氏, 100氏
くだらないかもしれませんが、一応理論的にはできますよね。。
行き詰ったらご支援いただけますか。

よろしくお願いします。

どうぞ使ってください。エクセルマクロ用ですけど。
Function 所持枚数() As Long
　　Dim num As Long, X As Long, baseX As Long, baseY As Long, incX As Long
　　Dim vv As Long, i As Long, j As Long, AA As Variant
　　Dim hdc As Long, BCo As Long
　　AA = Array(16, 6, 3, 8, 28, 5, 29, 1, 24, 2)
　　baseX = 722
　　baseY = 468
　　incX = 7
　　num = 0
　　hdc = GetWindowDC(MOW)
　　BCo = GetPixel(hdc, baseX, baseY) '所持枚数欄の背景色
　　For i = 0 To 6
　　　　If (i <> 3) Then
　　　　　　vv = 0
　　　　　　num = num * 10
　　　　　　X = baseX + i * incX
　　　　　　If GetPixel(hdc, X + 1, baseY + 7) <> BCo Then vv = vv Or 16
　　　　　　If GetPixel(hdc, X + 2, baseY + 5) <> BCo Then vv = vv Or 8
　　　　　　If GetPixel(hdc, X + 3, baseY + 4) <> BCo Then vv = vv Or 4
　　　　　　If GetPixel(hdc, X + 3, baseY + 6) <> BCo Then vv = vv Or 2
　　　　　　If GetPixel(hdc, X + 4, baseY + 4) <> BCo Then vv = vv Or 1
　　　　　　For j = 0 To 9
　　　　　　　　If vv = AA(j) Then Exit For
　　　　　　Next j
　　　　　　If (j < 10) Then num = num + j
　　　　End If
　　Next i

　　所持枚数 = num
　　ReleaseDC MOW, hdc
End Function

みんな何でプログラム作ってるの？
VBS？JavaScript？

UWSCって聞いたことがないな・・・。本屋にいっても本ないし。

まぁちょっと作ってみよかな？
なんかお勧めあります？

早速ありがとうございます。
で、質問ですが

　　AA = Array(16, 6, 3, 8, 28, 5, 29, 1, 24, 2) <<--この配列は何の為？
　　baseX = 722 <<--相対座標でOK
　　baseY = 468 <<--相対座標でOK
　　incX = 7 <<左にずれるドット数ですね
　　num = 0
　　hdc = GetWindowDC(MOW)
　　BCo = GetPixel(hdc, baseX, baseY) '所持枚数欄の背景色
　　For i = 0 To 6
　　　　If (i <> 3) Then <<--コンマ以外てことですね。
　　　　　　vv = 0
　　　　　　num = num * 10
　　　　　　X = baseX + i * incX
　　　　　　If GetPixel(hdc, X + 1, baseY + 7) <> BCo Then vv = vv Or 16
//指定座標が背景そのままの場合は数字無し、以外の場合は　vv or 16 って何だろう

　　　　　　For j = 0 To 9
　　　　　　　　If vv = AA(j) Then Exit For
//もし、vvに16が格納されていれば AA(0)にヒットしますよね。
　　　　　　Next j
　　　　　　If (j < 10) Then num = num + j
//上のループで0 to 9　ですから、必ず j < 10 になりますが、
//num + j (ループされた回数) ってことですね。
//やっぱり、AA配列の意味がわかりませんので、教えてくれますか？
　　　　End If
　　Next i

　　所持枚数 = num
　　ReleaseDC MOW, hdc
End Function

>>443
自分で回答。
UWSCはフリーのツールで、一般的な言語じゃない。だから本もあまり無い。
UWSCはEXCELの「マクロの記録」で自分が操作した内容を記録できるように、
キーボードやマウス操作が記録できるみたい。

ということで、ボタン位置等でマウスをクリックするのをマクロの関数化し、
プログラムの中で呼び出すことで、ボタンを押す操作が出来るというわけ。

後はスレにあるように、色でリールのタイミングを判定し、記録した関数を
実行することで完成ー。

よし、コツコツ作ってみるか。

あ、ごめん。

数字は右から左に取得しているんじゃなくて、
左から右をみているのですね。

>>445
僕も2週間まえに初めて、つかってみたけど、結構面白い。

そうですね、それに一応組み込み関数もある程度そろっているし、
自作関数もOK。
なりより、外部ファイル操作ができる、外部コマンドが使用できる
クラス化もできるし、最低限のオブジェクト思考の原理が使用できるのは
魅力ですね。

僕は今は営業ですが、若いとき数年だけデータベース＆サーバー管理
をしてました。だからGUI等のユーザーインターフェイスなどは全くといって
いいほど素人なのですが、UWSCに結構はまってますよ、最近。

>>447

僕はSEです。でも主に上流の設計でプログラミングは
EXCELマクロぐらい。
プログラミング用のエディタ何使ってますか？お勧めありますか？

VBAはACCESSやEXCEL標準のVBエディタですが
ASPを書く場合は昔からつかっていた Visual Studio です。
いまはもう入手できないようですが。。。

PHPやPerl、このUWSCも EmEditorをつかってます。
軽いプログラムは全部EmEditorです。

>>444

やっぱり　AA配列にあのプログラムの鍵がありますね。
わからない、僕が馬鹿なだけなのか。。。。。

とりあえず、UWSCに移植して動かしてみますか。。。。

データ料は多くなるけど、見たい情報が多いなら
スクショ取る
右側の情報部分だけ抜き出す(最初からここだけ取得でもOK)
圧縮(最悪なくてもOK)
メールに添付して送信
って方が簡単じゃないかなぁ。

まぁ自分は今忙しくて動けないので
やりやすい方法でやって下さい。

UWSCって、大文字小文字意識するのかな？
関数全部大文字はちょっと慣れなくてイヤ

>>451　それも考えたのですが、スクリンショットの場合携帯に送る際に
また、画像を加工する必要があるのかなと思いまして。。また携帯には機種依存が
あるので、画像も結構制限があったような。

ちまちま、時間が空いたときにやりますんでｗｗ

>>352　大文字/小文字は無視です。　UWSC

time = GETTIME()
ifb time mod 3600 = 0 then //1時間毎
SAVEIMG("777タウン.net")　　//スクショ

時間ごとにログは取ってるからこんな感じ
スクショじゃなくて差枚だけどね
これでメール送ればいいんでは？

>>442さん　とりあえず　AA配列の意味は良くわからなかったけど、UWSCに移植しました。
GetColorという自作関数つかってますが、一応ほしておきます（やべぇ、過去レスでばれちゃう誰だか。。。）
AA配列の原理は理解しないままやりましたが、一応程よく枚数表示されました。
一歩ぜんしんです。今度AA配列の原理を教えていただければ、感謝感激です。お願いします。

///////////////////獲得枚数取得関数///////////////[ GetCurrentMedal() ]
TOWN_ID=GETID("777タウン.net")
ACW(TOWN_ID)
MOUSEORG(TOWN_ID)

Public AA[9] = 16, 6, 3, 8, 28, 5, 29, 1, 24, 2

print GetCurrentMedal()

function GetColor(x, y, z)
c = 0
c = PeekColor(x, y)
ifb z = 1 then
result = (c and $FF)
elseif z = 2 then
result = ((c and $FF00) / $100)
else
result = ((c and $FF0000) / $10000)
endif
fend

//////続き

Function GetCurrentMedal()
baseX = 946
BaseY = 468
getNum = 0
incX = 7
num = 0
vv = 0
j = 0
BCo = getColor(baseX, BaseY, 1)

for i = 0 to 6
ifb (i<>3) then
vv = 0
num = num * 10
X = baseX + (i * incX)

////更に続き
Ifb (getColor((X + 1), (baseY + 7), 1)) <> BCo Then
vv = vv Or 16
endif

Ifb (getColor((X + 2), (baseY + 5), 1)) <> BCo Then
vv = vv Or 8
endif

Ifb (getColor((X + 3), (baseY + 4), 1)) <> BCo Then
vv = vv Or 4
endif

Ifb (getColor((X + 3), (baseY + 6), 1)) <> BCo Then
vv = vv Or 2
endif

Ifb (getColor((X + 4), (baseY + 4), 1)) <> BCo Then
vv = vv Or 1
endif
For j = 0 To 9
Ifb vv = AA[j] Then
getNum = j
endif
Next
Ifb (getNum < 10) Then
num = num + getNum
endif
EndIf
Next
Result = num
Fend

皆さん、良ければ動作確認お願いします。

数回しかテストしてませんが、感動的に動いています。

メダルを199,999枚までかいたしててすとしました。
(周りのやつだんだったと思ってんだろうなｗｗｗ)

メダル購入のマクロまで作っちゃいました。。ｗｗｗ

とりあえず、今日はこの辺でやめておきます。
明日も朝から営業マンやらないといけないので。。。

あしたは、誰か回転数、そう回転数、BB,RB,ATを取得できるような
プログラムを干してくれると、たすかるなｗｗｗｗ

>>450
AA配列は、2進表現で点灯している点を示しています。
if ( 明 & 暗 & 暗 & 暗 & 暗 ) then num=0
if ( 暗 & 暗 & 明 & 明 & 暗 ) then num=1
　　　：
if ( 暗 & 暗 & 暗 & 明 & 暗 ) then num=9
のように10行書いても同じです。

各数字をどの点で識別させるかに時間をとられました。

背景色と同じかどうかで判別しているのは、
枚数チェックしたときに払い出されていると、白黒反転するからです。
UWSCの場合は、白黒反転している最中にPeekColor使うとぐちゃぐちゃになりそうなので、
払い出し時を避ける処理が必要と思います。

>>AA配列は、2進表現で点灯している点を示しています。
>>if ( 明 & 暗 & 暗 & 暗 & 暗 ) then num=0

この辺りはなんとなくわかりまりました。

>>If GetPixel(hdc, X + 1, baseY + 7) <> BCo Then vv = vv Or 16
>>If GetPixel(hdc, X + 2, baseY + 5) <> BCo Then vv = vv Or 8
以下省略
ここで、2進法の原理を使っているので、多分そうだろうとは思いましたが、


>>各数字をどの点で識別させるかに時間をとられました。
問題はここですよね、ここがプログラムの根幹をなしてます。
更に、これを2進法に換えられるという所が尊敬です。本当に
僕みたいな、上っ面のPGではなせない業です。


>>UWSCの場合は、白黒反転している最中にPeekColor使うとぐちゃぐちゃになりそうなので、
>>払い出し時を避ける処理が必要と思います。
はい了解です、明日にでも改善バージョンにします。

>>436さん
もしよろしければ解説をいれていただけないでしょうか？
参考にさせてください

　For j = 0 To 9
　　　If vv = AA(j) Then Exit For
　Next j
　If (j < 10) Then num = num + j
についてですが、点の色をうまく取得できなかったとき（０〜９でヒットしない場合）
For文は j = 10 で抜けてきます。j = 10 だと色取り失敗と言う意味でした。

>>442氏　
>>463　了解です。

一応要望がありましたので、解説をしますが、間違いがあればご訂正願います。

また、解説のプログラムは見やすくするために、全角スペースをいれてますので、そのままコピペしても
動きません。

数回に分けて解説します。


TOWN_ID=GETID("777タウン.net")
ACW(TOWN_ID)
MOUSEORG(TOWN_ID)

//このプログラムの真髄で魔法の配列です。>>442さんのノウハウです。
//この配列は　0, 1, 2, ......, 9 に相当します。
//>>442さんがそれぞれの数字の特徴を2進法で取得して　数値化しています。
//その結果　ドット数字は 16 に置き換えられ、 ドット数字 1は6に置き換えられます。
Public AA[9] = 16, 6, 3, 8, 28, 5, 29, 1, 24, 2


//テスト結果を印字
print GetCurrentMedal()

//カラー取得の自作関数です。
//指定座標X,Yと取得したい色 1=R, 2=G, 3=B　です。
//使用例は getColor(232, 453, 1) すると　X232, Y453の赤色数値を返してきます
function GetColor(x, y, z)
　　　　c = 0
　　　　c = PeekColor(x, y)
　　　　ifb z = 1 then
　　　　　　　　result = (c and $FF)
　　　　elseif z = 2 then
　　　　　　　　result = ((c and $FF00) / $100)
else
　　　　　　　　result = ((c and $FF0000) / $10000)
　　　　endif
fend

Function GetCurrentMedal()
　　　　baseX = 946　//メダル枚数表示の左端X座標
　　　　BaseY = 468　//メダル枚数表示の上端Y座標
　　　　getNum = 0
　　　　incX = 7　　//数字ドットの一桁分ドット数
　　　　num = 0
　　　　vv = 0
　　　　j = 0
　　　　BCo = getColor(baseX, BaseY, 1)　//枚数表示の左上の色を取得これが基本色になります。

　　　　for i = 0 to 6//数字は7桁ありますので、0から6まで7回繰り返し処理
　　　　　　　　ifb (i<>3) then　//0から始まって、3は4回目です、コンマの部分です。これを無視
　　　　　　　　　　　　vv = 0
　　　　　　　　　　　　num = num * 10　//前のループで取得した数値を10倍
　　　　　　　　　　　　X = baseX + (i * incX)　//検索数字X座標を一つ分ずらす
//以下検索XY座標が基本色で無い場合の処理（数字が書かれている）
//それを2進法で処理しているが、僕にはわからない。
//>>442氏のノウハウです。
　　　　　　　　　　　　Ifb (getColor((X + 1), (baseY + 7), 1)) <> BCo Then
　　　　　　　　　　　　　　vv = vv Or 16
　　　　　　　　　　　　endif

　　　　　　　　　　　　Ifb (getColor((X + 2), (baseY + 5), 1)) <> BCo Then
　　　　　　　　　　　　　　vv = vv Or 8
　　　　　　　　　　　　endif

　　　　　　　　　　　　Ifb (getColor((X + 3), (baseY + 4), 1)) <> BCo Then
　　　　　　　　　　　　　　vv = vv Or 4
　　　　　　　　　　　　endif

　　　　　　　　　　　　Ifb (getColor((X + 3), (baseY + 6), 1)) <> BCo Then
　　　　　　　　　　　　　　vv = vv Or 2
　　　　　　　　　　　　endif

　　　　　　　　　　　　Ifb (getColor((X + 4), (baseY + 4), 1)) <> BCo Then
　　　　　　　　　　　　　　vv = vv Or 1
　　　　　　　　　　　　endif

//以上の処理で　ドット数字の特徴を2進法で数値かした値が
//vvに格納されています。
　　　　　　　　　　　　For j = 0 To 9
　　//もしvv結果が16の場合、下のifbで 魔法配列AAから0が取得できます。
　　　　　　　　　　　　　　Ifb vv = AA[j] Then
　　　　　　　　　　　　　　　　getNum = j
　　　　　　　　　　　　　　endif
　　　　　　　　　　　　Next

　　　　　　　　　　　　Ifb (getNum < 10) Then
　　//あとは数字を足していくだけです。
　　　　　　　　　　　　　　num = num + getNum
　　　　　　　　　　　　endif
　　　　　　　　EndIf
　　　　Next

　　　　Result = num //呼び出し元に関数の結果を返します。
Fend

この結果

927,453枚のメダルがあったとします。（そんなことは多分無いが。。。ｗｗ）

for i = 0 to 6 で最初のループは、僕も勘違いしたのですが、　
3からでなくて、　9から始まってます。　そうです、右から出なく左です。

で>>442氏の原理を使っていくと、このときvvには　2という値が格納されてます。
なんで、9が2なんだと聞かないでください。わかりません。

それで、一度目のループで9が取得できました。

次にXY座標を7ドット（一文字分）ずらして、見ます。
その前に、前回取得した、数字が　num = num * 10 とされてますので、
この時点で num = 90 です。

同じように処理して、2回目のの処理で　2が取得できました

num = num + getNum で、　90 + 2 で92です。

三回目の処理に入る前にまた10倍してます。

num　=　num　*　10　いま、numには 920が入っていることになります。

以上くりかえすと、ちゃんと 927,453 になるんです。

すごいですね、僕も感動しました　>>442氏に

やばい、本当に寝ます。
お疲れ様です。

質問です。
UWSCを使っているのですが、目押しの処理のところでときどき、整数のオーバーフローというエラーが出てとまってしまいます。
毎回ではないので原因がよくわかりません。
どなたかわかる方お願いします。

目押しのところででる？

Repeat

......

Until の部分のソースと

各種宣言をしているのであれば、宣言部分のプログラムをを見せてもらえますか？

あ、失礼しました。
目押しっていっても目押しお願いのウインドウが出てからの処理のことです。

それと今出先で携帯からなので確認できませんが、止まるのはGETID〜の文です。

>>473
そこでオーバーフローが出ますか。。。予想外の反応です。
整数オーバーフローはそもそも、宣言型の範囲を超えたときに出る
エラーですが、よく考えたらUWSCの変数は全部バリアントですから
関係はいはずです。
それでそのエラーが出るということは、多分ハード特にCPUの演算処理
関係でオーバーフローしている可能性があります。

その場合は処理速度を落とすことです。

多分、皆が使っているメインプログラムをしようしていると思いますが、
そのエラーが出るときは、順押し関係ないマクロではないですか？

すなわち、目押しウィンドウが出て、目押しが完了していないのに
次のルーチン（馬鹿押しルーチン）にいっている可能性があります。

その場合

Case "目押し"
Clkitem(GETID("目押し" ),"自動でドル箱を下皿へ戻す",CLK_BTN)
Clkitem(GETID("目押し" ),"コイン購入")
Clkitem(GETID("目押し"),"お願い")
　　　Sleep(5) <<--------------------ここにスリープをいれて処理を中断させる
　　　もしくは、目押しウィンドウがでている、間は次の処理に行かせないルーチンを
　　　追加する。

とりあえずSleep(5)を入れて動作確認してみてはどうでしょうか？

鳥獣マクロ誰かうｐしてくれよ
なんかもう疲れたよ
旋風もほしいな

うん

レスありがとうございます。
確かにただ連打するだけのマクロです。

連打の間にSleep(0.5)を入れているのですが、そこにも入れてみます。

ありがとうございました。

あとその文の前に、パチンコの玉をチャージする窓の処理とチャンスタイムが終わった後の窓の処理を追加してあるのですが、それも関係あるのでしょうか？

>>477

プログラムの最低限のマナーとして、無駄な処理はさせない必要があります。
僕らの時代は、CPUの速度もメモリーも限られた資源で開発していたので（年がばれる）
少しでも余計な動きをさせるとエラーが頻発していた時代です。
いまは、CPU処理速度も、メモリーも大きく向上しましたが、それでも限界があります。

ですので、お使いのハードの環境にもよりますが、極力最小限のプログラムルーチンに
抑えるべきです。

パチンコとスロットは最低限わけたらいいと思いますよ。
もし、なんでしたら、そこのルーチンをUPしてもらえれば修正しますよ。

途中報告です。

現在の差枚をメールで送信するプログラムは完成しました。
あとは、設定環境をUWSCで設定するユーザーインターフェイスを
作ってます。

また、回転数やBB/RB/ATは未だ取得してません。

楽しみにして待ってください。ｗ
（僕が一番楽しみにしてます）

完成時には動作確認に参加していただきたく思います。

【ゲーム開始時間】1月30日17時32分
【報告時間】18時02分
【購入コイン数】500枚
【現在のコイン数】1,982枚
【現在の差枚】1,482枚
【総回転数】不明
【現回転数】不明
【総BB数】不明
【総RB数】不明
【総AT数】不明

てな感じでメールが飛びます

>>477

>>連打の間にSleep(0.5)を入れているのですが、そこにも入れてみます。
妥当な数値です。ここに新たにSleepを入れる必要はありません。

問題は目押しウィンドウが出ている間に次の処理をさせないということです。
ですから、目押しルーチンに Sleep(5)　５秒程度いれるだけでOKなはずです。

詳しく解説するとこういうことです。

多分お使いのPCはノートや古いマシンではないですか？（失礼ですが）僕もノートです。

目押しウィンドウが出て、目押しを選択すると
内部処理は多分こういうことをします。
１．目押しのための内部処理
２．その間の排他的制御（目押し中に他のキーを受け付けない処理）

しかし、ルーチンをそのままは知らせると、
連打＋Sleep(0.5)が繰り返されますよね。
目押し排他処理中に、連打コマンドを送ると、排他制御処理に回ります。
次にSleep(0,5)コマンドを送ると、目押し処理完了までそのコマンドはタイマータスクとして保留されるはずです。

目押し中にこれを繰り返すと、排他制御→制御解除→ウェイトタスク保留
繰り返せば繰り返すほど、CPUの処理がたまり、メモリー内もタスク保留がたまります。
CPUの処理が遅い、又はメモリー（７７７アプリの内部で設定されている上限値）が足りない場合に
オーバーフローを起こしていると考えられます。
CPUの処理速度がはやければ、こんなことはおきないはずです。
ですから、最善の策は目押し中には、その他のルーチンに行かせないということになります。
Sleep(5)をいれれば、5秒で処理が終わる間は寝てろということなので、タイマーは一個だけになります。

分かれば教えてください。
島唄でハズしを作ってます。
中押しにしたいときのフローがわかりません。
ご教示いただけるかたお願いします<m(__)m>

-中略-
eiseif　() AND_　//　JACランプ（左1個点灯）
　　　　() THEN_ // ７セグの10の位で「２」と「１」が共通して表示している位置
SLEEP(0.01)
中押しへ・・・
中押し命令は作れましたが、私が表現したいのは
JACが残り１回で、かつＧ数が１０を超えてるときには「中押し」を選択させる。
というものなのですが・・・（間違っていたらスイマセン）
宜しくお願いします。

左のJACランプではなくて、真ん中のJACランプを見る
真ん中のJACランプが消えてる時はJACが残り1回

7セグはおそらく理解されてるとおりだと思います

>>481
マルチよくない

色のとり方教えて下さい

　C = PEEKCOLOR(209,354)
　until ((C and $FF) > 150) and ((C and $FF00) /$100 > 150) and ((C and $FF0000) /$10000 > 150)

⇒
�@X座標(209)、Y座標(354)の色を取得
�AC and $FF　　　　　　　：取得した色のR値
　C and $FF00) /$100　　　：取得した色のG値
　C and $FF0000) /$10000　：取得した色のB値

であってますか？

>>482様　ご教示ありがとうございます。
JAC中ランプですと残りJAC２回で中押しということになってしまいますが、
また組み方が変わってしまうのでしょうか・・・？

>>483様　マルチ・・？というのは良く分かりませんが、いろんな箇所を見て、判断
させるというのが負荷をかけてしまうということなのでしょうか・・・？

マジメに聞いてしまい申し訳ないです<m(__)m>

>>485
○点灯　●消灯

残り3回○○○
残り2回○○●
残り1回○●●

真ん中が消灯の時はJAC残り1回という意味なんだけど
どうでしょう？
うーん　求められてることと違うこと答えてるかな？

僕は島唄のマクロ作ったことないし、打ったことも無いのでなんともいえないのですが
僕のマクロを作るときの基本は　ノーマル連打をしないことです。（無駄な動きがあるので）
希望の要求は
１．通常時＆REGはオヤジ打ち
２．BIG時はJAC INゲーム１・2回目まではオヤジ打ち
３．JAC INゲームが残り一回になったら中押し準備状態
４．ゲーム数のカウントをして残り１０Gから中押し
ていうことは、ゲーム数を正しく把握する必要があります。
ドットのゲーム数を取得する方法もありますが、僕だったらまんどくさい
僕であればこういうフローにします。

>>486様　残り1回○●● これで「ピンッ」ときました。すいません・・・
いろいろお聞きしてすいません・・・
真ん中消灯時の組み方はこれでOKでしょうか？
-中略-
elseif ((位置)and $FF00) / $100 < 240 AND_ //　JACランプ　○●●の位置
() > THEN
中押し
-中略-

Public GameCount
Procedure Shimauta()
if BONUS then //ifb は面倒なのでif で書きます。
　　Btn = 0
　　Btn = Btn + 1 //左点灯（押せる）　PeekColorで拾ってください。
　　Btn = Btn + 2 //中点灯
　　Btn = Btn + 4 //右点灯
　　//そうするとBtn状態が 1, 2, 4, 3, 5, 6, 7 or 0 になりますよね。
　　//Btn = 0 のとき　押せるボタンが一つも無い = Bet and レバーオンがまだ終わってない
　　//Btn = 1 左のみ押せる状態　//Btn = 2 中のみ　//Btn = 3 左・中のみ　//Btn = 4 右のみ　//Btn = 5 左・右のみ
　　//Btn = 6 中・右のみ　　//Btn = 7 全部押せる
　　if Btn = 0 then
　　　　//コイン投入　Sleep(0.5)
　　　　//レバーオン　Sleep(0.5)
　　else
　　　　if //JACIN残り一回 and GameCount > 20 then //Jac In の残り回数　>>482を参考　僕は知らないので。。
　　　　　　　//中押し処理
　　　　　　　//左・右処理　Sleepを入れてね　
　　　　　　　GameCount = GameCount + 1
　　　　else
　　　　　　　左＋中＋右処理　Sleepを入れてね。
　　　　　　　GameCount = GameCount + 1
　　　　end if
　　end if
//ここにGameCount = GameCount + 1を入れるとカウントが狂います。
Else
　　GameCOunt=0
　　//ボーナスが終わったら必ずGameCountを初期化すること
オヤジ打ち
End if
fend

>>436様　そうなんです。Aタイプですと特に基本が大事なんです。
１つ作り上げれば、自信が付くと思い頑張っております。
ムダな動きはprintで上手くフローしているかで分かるのでしょうか？
連打はやはり負荷が大きいのですか？

>>484

そうです。

でも質問するときは、構文をしっかり書かないと答える側もやる気なくすよ。

until 文だから　Repeat からかかないと
それと�A以降の省略も、省略せずかいてね。
後から読む人のこと考えると、丁寧に書かないとだめだよ。
君の投稿を参考にする人がいるかもしれないでしょ。

>>484

これあげるよ

function GetColor(x, y, z)
　　　　c = 0
　　　　c = PeekColor(x, y)
　　　　ifb z = 1 then
　　　　　　　　result = (c and $FF)
　　　　elseif z = 2 then
　　　　　　　　result = ((c and $FF00) / $100)
　　　　else
　　　　　　　　result = ((c and $FF0000) / $10000)
　　　　endif
fend


使い方は

X=490, Y350の座標の色がほしい時

赤だったら　GetColor(490, 350, 1)
緑だったら　GetColor(490, 350, 2)
青だったら　GetColor(490, 350, 3)

で一発回答だよ。

>>436様　ご参考にさせていただきます。
今、彗星のごとく現れた436様の過去スレ読んでました。
会社勤めなので、今の枚数とか今まではサミタInしていたヒトにわざわざ
「今何枚？」とか聞いておりました。
面白い企画ですね!!!

>>489訂正です。
最初の行で
if BONUS Then は

if Bounus and (not Jacin Game) then //JACINゲームもゲームカウントしちゃうから


ここも>>if //JACIN残り一回 and GameCount > 20 and Btn = 7 then //Jac In の残り回数　>>482を参考　僕は知らないので。。
　　　　　　　//中押し処理
　　　　　　　//左・右処理　Sleepを入れてね　
　　　　　　　GameCount = GameCount + 1
　　　　else
//ここのルーチンにはいるのは　Gameカウントが20回以内と　Btnの中が消えている状態
　　　　　　　左＋中＋右処理　Sleepを入れてね。
　　　　　
　　　　　　　GameCount = GameCount + 1
　　　　end if

>>493
どうもです。面白いでしょ。
もう完成しました。今さっき。
で、使い方を説明しようとしたら、　>>485さんの質問が来たので答えてましたｗｗｗ
使い方の説明が長くなるので、明日にしようと思ってます。
明日も早いので。

*************************************
Return-Path: <xxxx@xxxx>
Received: from xxxxxx ( [xxx.xxx.xxx.xxx])
by mx.google.com with ESMTP id n80sm3139480pyh.2007.01.30.07.22.43;
Tue, 30 Jan 2007 07:22:47 -0800 (PST)
To: [email protected]
Subject: =?ISO-2022-JP?B?Nzc3TWFjcm8bJEIlYSE8JWsbKEo=?=
X-Mailer: SMAIL 4.06
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit
Date: Wed, 31 Jan 2007 00:22:01 +0900
From: [email protected]
Sender: =?UTF-8?B?5aSn5Y6f6Kqg5aSr?= <[email protected]>
Message-ID: <[email protected]>

【ゲーム開始時間】2007年1月31 0時21分33秒【報告時間】2007年1月31 0時22分0秒【購入コイン数】0【現在のコイン数】480【現在の差枚】480【総回転数】不明【現回転数】不明【総BB数】不明【総RB数】不明【総AT数】不明
*************************************
こんな感じでメールが送れました。
でも、改行がはいると、コマンドラインメールでエラーがでるので、見にくいのです。はぁぁどうしよう。いいっかべつに。。

>>436様をはじめいろいろこのスレでご教示していただき、
ようやく今更ですけど、島唄完成っす。
ありがとうございました<m(__)m>感謝多謝です。
調子にのって南国いっちゃいます(^^)
436さん、このメーラー機能はご教示いただけるのでしょうか・・・？

777タウン、【現在獲得枚数お知らせメール】組み込みマクロ

使い方
１．「smail」というDOSのコマンドラインで送れるメールをダウンロードしてください。
　　　ttp://dip.picolix.jp/cgi-bin/dl/download.cgi?name=dl&file=http://dip.picolix.jp/free/soft/smail-v4.06.lzh
２．解凍先は　C:\smail-v4.06　というフォルダーを作ってその中においてください。
　　＊注意　UWSCでこのフォルダー指定でコマンドラインを実行していますので、必ずこのフォルダーにおいてください。
３．C:\smail-v4.06\smail.exeを実行してメール環境を設定
　　Pop Before SMTP/SSLSメールにも対応してます。
　　わからない場合は、OUTLOOKなどの設定を参考にすれば、簡単です。
４．次のレスにのせる　777Mail.uws　をコピーして、自分の実行したいマクロと同じフォルダにおいてください。
５．自分のマクロを次のレスのように修正してください。

まだ、バグなどがあると思いますので、動作確認のお手伝いをお願いします。
自分で【使用言語】UWSCと限定したため、苦しみました。正規表現や日付関数など外部モジュールを
使えばもっとスリムで、簡単なものをつくれました。。。はぁぁ

//************現在使用中のあなたのマクロ
TOWN_ID=GETID("777タウン.net")
ACW(TOWN_ID)
MOUSEORG(TOWN_ID)
CONST mailHost = "smtp.gmail.com" <<---自分の普段使っている　送信サーバーを記入
call 777Mail　　<<--このとおりに書いてください。
While True
if GETKEYSTATE(VK_BACK) then exit
Select Status(GetID(GET_ACTIVE_WIN), St_Title)
Case "コインをチャージする"
Clkitem(GETID("コインをチャージする"),"はい")
Sleep(1)
addCoins()　　<<−−−差枚カウントのために記入してください。
Case "目押し"
Clkitem(GETID("目押し" ),"自動でドル箱を下皿へ戻す",CLK_BTN)
Clkitem(GETID("目押し" ),"コイン購入")
Clkitem(GETID("目押し"),"お願い")
Seep(4)
Case "ドル箱を下皿に戻す"
Clkitem(GETID("ドル箱を下皿に戻す"),"はい")
Case "777タウン.net"
Kintaro()
Sleep(0.3)
Case "エラー"
SAVEIMG("Error")
sound("BEEP")
break
Selend
send777mail()　<<----この一行を最後に書いてください。
Wend

以下、１つのファイルにしてください。　

***************[777mail.uws]********************

Public AA[9] = 16, 6, 3, 8, 28, 5, 29, 1, 24, 2
Public CountBoughtCoins = 0
Public ErrTxt = ""
Public GameStartTimeTxt
Public GameStartTime
Public SendToAddress = ""
Public SendItv = 0
Public BoughtCoins = 0
Public CurrentCoins = 0
Public LastSend = 0
Public MailFLG = true
GameStartTimeTxt = FormatDate(2)
GameStartTime = FormatDate(3)
ret = 0
MailFLG = True

//続く

NeedSend = SLCTBOX(SLCT_RDO,　0,　"メール送信を有効にしますか？",　"無効",　"有効")
// 1=無効 2=有効 -1(×で閉じた場合) = abs(-1) = 1 で無効
NeedSend = abs(NeedSend)

ifb NeedSend = 2 then
while ret <> 4 //最後のメールアドレス確認でYESを選択するまで
SendToAddress = INPUT("メールアドレスを入力してください。")　
SendToAddress = trim(SendToAddress) //入力アドレスの前後空白を除去
ifb SendToAddress = "" then
ErrTxt = "メールアドレスが入力されていません。"
MailFLG = false
Else
MailFLG = ChkMail(SendToAddress)
endif

ifb MailFLG = false then
ifb MSGBOX(ErrTxt+"<#CR>もう一度入力しますか？" ,BTN_YES or BTN_NO) = 8 then
NeedSend = 1
break
endif
endif

Ifb MailFLG = true then
ret = msgbox("送信先メールあどれすは[ "+SendToAddress+" ]でよろしいですか", BTN_YES or BTN_NO)
endif


////続く

wend
Ifb MailFLG = true then
ret = SLCTBOX(SLCT_RDO,　0,　"送信間隔を選択してください。",　"15分間隔",　"30分間隔", "60分間隔", "120分間隔")
Select ret
case 1
SendItv = 15
case 2
SendItv = 30
case 3
SendItv = 60
case 4
SendItv = 120
case -1
SendItv = 0
selend
///Test
SendItv = 1 ////テストの為一分おきに出してます。この行を削除すると設定とおりおくります。
endif
endif


////続く

ぺたぺた張るな
どこかにうｐしろカス

procedure send777mail()

ifb (MailFLG = true) and (SendItv <> 0) then
ifb LastSend = 0 then
LastSend = GameStartTime
endif
ifb (FormatDate(3) - LastSend) >= SendItv then
Message ="【ゲーム開始時間】GameStartTime"+ _
"【報告時間】ReportTime"+ _
"【購入コイン数】BoughtCoin"+ _
"【現在のコイン数】CurrentCoin"+ _
"【現在の差枚】CoinDiff"+ _
"【総回転数】TotalGames"+ _
"【現回転数】CurrentGames"+ _
"【総BB数】TotalBB"+ _
"【総RB数】TotalRB"+ _
"【総AT数】TotalAT"

////続く

//ファイルにログを書き出し　<<--そのうちやろう、まんどくさいから
CurrentCoins = GetCurrentMedal()
//総回転数の取得//現回転数の取得　//BB/RB/ATの取得
Message = CHGMOJ(Message, "GameStartTime", GameStartTimeTxt)
Message = CHGMOJ(Message, "ReportTime", FormatDate(2))
Message = CHGMOJ(Message, "BoughtCoin", BoughtCoins)
Message = CHGMOJ(Message, "CurrentCoin", CurrentCoins)
Message = CHGMOJ(Message, "CoinDiff", (CurrentCoins-BoughtCoins))
Message = CHGMOJ(Message, "TotalGames", "不明")
Message = CHGMOJ(Message, "CurrentGames", "不明")
Message = CHGMOJ(Message, "TotalBB", "不明")
Message = CHGMOJ(Message, "TotalRB", "不明")
Message = CHGMOJ(Message, "TotalAT", "不明")
LastSend = FormatDate(3)
CMD = "C:\smail-v4.06\smail -h"+mailHost+" -s777Macroメール "+SendToAddress+" [email protected] -T<#DBL>"+Message+"<#DBL>"
DosCmd(CMD)
endif
endif
fend

///続く

function ChkMail(ml)
Dim mk[1] = "@", "."
FLG = True
i = 0
j = 0
Len = length(ml)
cr = ""
as = 0

//@.はちゃんとはいっているか
ifb (POS(mk[0], ml) = 0) or (POS(mk[1], ml) = 0) then
FLG = false
ErrTxt = "<#DBL>@<#DBL> または <#DBL>.<#DBL> は必須文字です"
Else

//先頭と最後は@.でないか
for i = 0 to 1
ifb copy(ml, 1, 1) = mk[i] then
FLG = False
ErrTxt = "先頭文字が正しくありません。"
break
endif
ifb copy(ml, Len, 1) = mk[i] then
FLG = False
ErrTxt = "最終文字が正しくありません。"
break
endif
Next
//続く

ifb FLG = true then
Dim ErrAry[14] = 47, 48, 58, 59, 60, 61, 62, 63, 91, 92, 93, 94, 95, 123, 124
for i = 1 to Len
//各文字はASCII 45 to 126 であるか
cr = copy(ml, 1, i)
as = asc(cr)
ifb (as < 45) or (as > 126) then
FLG = false
ErrTxt = "指定文字範囲外の文字が含まれています。"
break
else
for jj = 0 to 14
ifb as = ErrAry[jj] then
FLG = false
ErrTxt = "使用不可文字が含まれています。"
break
endif
next
endif
Next
Endif
Endif
result = FLG
fend
///続く

function GetColor(x, y, z)
c = 0
c = PeekColor(x, y)
ifb z = 1 then
result = (c and $FF)
elseif z = 2 then
result = ((c and $FF00) / $100)
else
result = ((c and $FF0000) / $10000)
endif
fend

//続く

function FormatDate(dtype)
GetTime()
yr = G_Time_YY
mt = G_Time_MM
dy = G_Time_DD
hr = G_Time_HH
mi = G_Time_NN
sc = G_Time_SS

SELECT dtype
case 1
result = yr+"/"+mt+"/"+dy+" "+hr+":"+mi+":"+sc
case 2
result = yr+"年"+mt+"月"+dy+" "+hr+"時"+mi+"分"+sc+"秒"
case 3
result = int(GetTime() / 60)
Selend
fend
procedure addCoins()
BoughtCoins = BoughtCoins + 50
fend

//続く

>>502
もうちょっとだ、我慢しろ

Function GetCurrentMedal()
baseX = 946
BaseY = 468
getNum = 0
incX = 7
num = 0
vv = 0
j = 0
BCo = getColor(baseX, BaseY, 1)
for i = 0 to 6
ifb (i<>3) then
vv = 0
num = num * 10
X = baseX + (i * incX)
Ifb (getColor((X + 1), (baseY + 7), 1)) <> BCo Then
vv = vv Or 16
endif
Ifb (getColor((X + 2), (baseY + 5), 1)) <> BCo Then
vv = vv Or 8
endif
Ifb (getColor((X + 3), (baseY + 4), 1)) <> BCo Then
vv = vv Or 4
endif


//後2回ぐらい

Ifb (getColor((X + 3), (baseY + 6), 1)) <> BCo Then
vv = vv Or 2
endif
Ifb (getColor((X + 4), (baseY + 4), 1)) <> BCo Then
vv = vv Or 1
endif
For j = 0 To 9
Ifb vv = AA[j] Then
getNum = j
endif
Next
Ifb (getNum < 10) Then
num = num + getNum
endif
EndIf
Next
Result = num
Fend

///終わり

後は皆さんにお任します。

777mail.uwsの59行あたりに注意してください。

SendItv = 1 ////テストの為一分おきに出してます。この行を削除すると設定とおりおくります。

この行を消さないと、設定が15分でも60分でも1分おきに送ります。
//テスト用ですので、そうしてます。
動作確認中もそのほうがいいと思います。

では、お疲れ様でした。

１つのファイルにまとめてアップする作業は　>>502さんがやってくれるそうです。

このソースが欲しい人は

サミタのHN　kappa3334 までミニメいれてくれれば、メールでお送りします。

乙！

>>436さん
ミニメ送りました。ご対応よろしくお願いします<m(__)m>

ちょっとやりすぎだろ

まとめてうｐしてくれ

今日は寝つきがわるい。もう寝れないや。。。
朝までコースだな。

うｐするのはいいけど、どこかいいうｐ場所あったら教えて
うｐしたこと無いから。
２ｃｈの素人なもんだから。

>>516

やっぱ、やりすぎかな？
今度はこれを拡張させて、外からコマンドメールを送って、
それを読み取って操作させようと思ったけど、やりすぎだな。

そこまでしてやるこたぁないよなやっぱり。

436さんのソース。
うttp://www.uploda.org/uporg674782.txt.html
PASS：mail

一応外部ツール扱いになると思うので
そういうものをミニメでやり取りしたり配布したりするのは
物凄くマズイ行為ですよと提言しておきますよと

『やりすぎ』ってのはそういう意味かと

>>436
２ｃｈ素人かは知らんが何をどこまでやったらまずいかわからんようじゃ
世間で通用しない。ミニメはログに残るとだけ教えといてやる

僕の作ったのは連打ツールでもなく、悪用ツールでもないよ
ｲﾝﾃﾘを使っても同じように、メールでゲーム内容が知れるんだから。
FAでもメールで内容飛ばせるんだよ。

あのソースになんの悪意があるの？だからHNさらしたんだよ。
そりゃミニメにログが残ることくらい分かってるよ、もとDBエンジニアだからね、
あのミニメはDBで作られてるし。。

だからなに？ログに残されたらまずいわけ？

それはいいが、僕はマクロ使ってますって宣言してるようなもんだぞｗ

マクロつかってるよ。はい、使ってます。
今の僕はサミタがおもしろいんじゃなくて、UWSCっていう新しいツールを
開発ツールとして純粋に楽しみを覚えてます。
UWSCの使う楽しさは、初めてロータスのマクロを覚えたときと同じくらいたのしい。

その機会は確かにサミタにのおかげかもしれないが、仮に今回の件で僕がBANされても
ぜんぜんOK、サミタに未練ないよ。
僕のサミタの利用法はちょっと変わってて、一年中殆ど海外勤務で、日本の自宅にある
サーバーにリモートアクセスして遊んでる。一日サミタ画面に接するのは2、3分程度
今も実際海外からだよ。だからMailプログラムが欲しかったんだよね。
あのMailプログラムは香港と上海で書いたし、いまは杭州ていう町にいる。
だから、別にサミタからBANされても何も影響ないよ、普段の生活には
日本に帰ったときは打ち込めなくなるのは痛いかも。

それよりもUWSCから使用禁止っていわれるほうがつらい。
世間に通用しないとかいわれているけど、はいそうですかって感じです。
わざわざ心配してくれなくてもいいですよ。
てなわけで、僕もここへの書き込みは最後にします。

そのうち、閉店時間に自動シャットダウンのマクロや、面白いツールを作ったら、
名無しで乗せますよ。

昨日遅くまでやったもんで、今日ずるやしてる。ホテルの布団の中で2ch見てるよ。
やっぱり、世間じゃ通用しないかも、こんなことじゃ。

これが本当の最後のレスだよ。

>>436
気にするなよｗあんたはある意味「神」だよ！

HNを名乗るとここが荒れる可能性があると思う
晒しスレ、本スレ、トレスレにも話がでたわけだし。

ここは自分が作ったマクロをただ貼っていくとこなのか？
ある機種のマクロを作っていてどうにも進まないときに一部を貼り付け、
それに対する助言などのレス
そういうスレになったんだと思ったていたが

>>436
じゃあ最後に全マクロ貼ってくれー

最後のつもりだったけど、いまミニメが一杯きてて、大変なことになってる。ｗｗｗ
誰か悪戯したな。

>>528さんの指摘は分かります。
でも、機種のマクロを載せたつもりは無いのですが、
ま責任をとって、２・３日中に自己BANします。

じゃあさいごにマクロ載せて
全てをさらしてしまえ

頼む

>>531
流れから見て、そんなことすると思うか？
勘弁してくれよ。

>>436
まあそう言うなよ
こうなったのもあなたにも責任あるんだから
だからってマクロさらす意味わかんないって？
大丈夫だ
ただのクレクレだから細かいことは気にするな
さらに混乱したら面白いと思わないか？

>>436
あなたはここの住人を怒らせたんだ
いや、いい提案だとは思ったがね
だからこんなスレいらないんだよ
あなたはここの住人に拒絶されたんだよ
じゃあ、ばらまいちゃえってな具合にならないか
なんか楽しくなってきたじゃないか
マクロなんてどうでもいいから
まず帰って来い　ここに

先ほど無事退会が完了しました。
ドルバを全部アバに換えて、皆様にお配りしようと思いましたが、
僕のHNをいたるところに晒した人にも必ず行くと重い、やめました。

このスレに出会って約2週間、そこからUWSCに出会って
>>422氏、>>100氏を始め、UWSCの諸先輩方の過去レスを辿り
自分でマクロをつくり始めたのが1週間まえです。

その間>>422氏を始め、いろいろお世話になりました。

僕的には悪意は無かったのですが、結果的にこのスレを始め多くのスレを荒らすことなり
大変心ぐるしい思いです。
本当に申し訳ございませんでした。

大会後もUWSCを業務を初め、色んなシーンで活用していきます。
たまにはこのスレも除いてみますし、僭越ながら助言もできれば名無しで助言も
していきます。

退会後も今月末までアカウントは残るようですが、ログインはいたしません。
ミニメを送られてもお返事できませんので、ご了承ください。

再度、度重なるご迷惑とご心労を皆様におかけした事を深くお詫びしつつ
これにて失礼いたします。

じゃあなー
>>436乙

別垢に移行完了か

>>436
じゃあねー　乙
くれぐれも機種別マクロうｐなんてしないよーに

ID:ruaNR/Cu
クレクレ必死だなｗｗｗｗ

436氏、まだいましたら教えてください。
メールはくるようになったのですが、数値が枚数など全て0です。
何か設定が悪いのでしょうか？

>>539
自分のところは数値が全部８でした・・・・・

>>539
左にユーザ情報が必要です。
左Window を出したくないなら、>>442の数値を使ってください。

>>436の母です。
昨日から、当方の愚息が寝込んでいると聞きつけ、急遽日本から駆けつけてきました。
案の定本人はホテルの一室に閉じこもり寝込みながらうなされておりました。
「や、や、やりすぎ、たぁ、ぁあ、かも。」と
母の私には何のことかさっぱり分かりませんが、2chのいたるところに愚息の
HNが晒されていることに気づき、それを辿りつつ、ここに根源があったことを
しりました。

あ、すみません、ご挨拶がおくれました。
平素皆様方に、私どもの愚息が格別なるご高配を賜り、厚く厚くご御礼を申し上げます。
あ、すみません横で、本人がうなされています。
え？「そ、そ、そんなことはどうでもいい？>>539の質問に答えてくれ？？」
何のことか分かりませんが、本人曰くこういうことです。

た、多分枚数表示のXY座標が正しく取れていない。>>442氏の初期設定は
　　baseX = 722
　　baseY = 468
ですが、Y座標は同じですが、なぜか愚息の環境ですとX座標は946らしいです。
>>434愚息の座標取得のマクロがあるので、それを使って、座標を確認してくれと
いっております。
いや、はや時が経つのは早いもので私も更年期障害をどうにか乗り越えたところで
愚息のこのような失態を目の辺りにするとは思いもよりませんでした。
え、本人が何かを言ってます「ど、ど、どうでもいいから、か・え・れ」
失礼しました。

うまくいきました。ありがとうございました。
また新たにアカウント取って始めてくださいねー。

>>436の父です。

本人が泣いております、「みんな使ってくれるのか」、
「少しでもお役にたててうれしい」といっております。

はて？何のことか？

メンテ中で暇なので、広告を消す方法を。
1) Program Files\777town に置いてある webindex.ini を見つけます。
2) webindex.ini のプロパティを開いて、作成日時、更新日時を控えておきます。
3) webindex.ini をエディタで開きます。
4) BANNER_〜 =http〜 の行を探して、URL（http〜の部分）を削除します。
　　（ = でその行が終わるようにします）
5) BANNER_〜で始まる行（1/18版で6行あります）を全てURLを削ったら、編集終了。
6) 編集したwebindex,ini の日時を、2)で控えておいた日時に置き換えたら完成です。

今日のメンテ以降も、上記手法が使えますように・・・。

436氏ファミリーでいろいろ質問に回答してください。
トモダチとしてコレからも、回答お願いします<m(__)m>

クレクレ厨はウゼぇから出て行けボケ。
いろいろみんなで手がけて、１つのモノを作り上げる企画を
潰すのはよせ。邪魔や消えろ。

どうせうｐしたって、感謝の意も無いし、「ラッキー☆」って思っているくらい
なので、煽られても無視。

なぁ、ココを荒らしているウ●コ厨共よ。
もう邪魔すんのやめろ、まじで。

436氏、復帰願う部屋から出てきてくれ〜!!!!!!!!

>>546
おまえも一人では何も生み出せない、何も作れないやつだろ
何が436氏帰ってこいだ
ここはそういう場所じゃねーんだよ

おまえも結局クレクレ厨と同じことしてることに気づかないのか
436氏はやりすぎたんだ

>>547　悪いが俺は作れるんやわ。
「おまえ」と言われるほど仲良くねーよな。
気安く「おまえ」など呼ぶな！

残念だな。マクロは自分で作った。うｐ予定ナシ。
勲章なんて興味はない。アバターも興味ナシ。
マイペースで遊んでるだけや。

547氏はスレ荒らしの根源か？

いろいろ研究した成果をみんなで試すとても良い場やし、
そう思わねーのか？

ネットでつまんね〜ケンカする気はないで。
打つの面倒だから俺も436氏が登場しないなら、これで終了。
じゃな。

ネットって面みえねーから、好き勝手に書いてるが、中傷はヤメろや。
まず547氏のリアル見たときには、シバき倒したいわ。

とにかく547氏には関係のナイ話だよな！！
「おまえ」なんてこれ以上使うんやないで。

またいつもみたいに「unkokue」スレになってしまうんちゃうか？
547氏みてーなネットマナーも守れねーのがいるとな。
表現にきをつけろや。

unkokue

>>548
言いたいことはわかるんですが、普通はスルーした方がいいんじゃないですか？
変なのがまたいっぱいきますよ

おやおや怒らせてしまいましたね
どうもすいません
それでは『436のトモダチ。氏』とでも呼ばせていただきますか

まあ口だけでは何とでも言えますからね
いえいえ何も証拠を見せろとは言いません

でも少しざんねんだと思いましてね
こんなとこでしか強気になれないんですね

少々わたしも口が過ぎたみたいですね
『436のトモダチ。氏』あなたは非常に残念な方ですね

エラーで落ちた時にどうにか自動復帰できないですかね？

あ

>>558
できるんじゃない？
メールを出せるくらないなら、あいつだったら朝飯前だよ

>>436　より遺書をお預かりしてきました。

「せっかく作り始めたメール通知機能も回転数や当りデータが死んだままではしのびないので
機能ついかしました。
また、左の個人情報ウィンドウある・なしにも対応しました。（自動じゃないよ、手動だよ）
無料会員での動作確認なので、ニューパルでしかテストしてませんが
多分機種依存がないはずです。

>>497と同じですが

send777mail() を　send777mail(1)に代えてください。

左の個人情報Windowsのあるひとは　send777mail(1)
ないひとは send777mail(0)　です。
また、批判もたくさんあるので、今回はスクランブルをかけました。
http://wktk.vip2ch.com/upload.cgi?mode=dl&file=20111　　Pass: mail 　」

修正バージョンの表示
【ゲーム開始時間】2007年2月2 8時16分56秒
【報告時間】2007年2月2 8時17分22秒
【購入コイン数】0
【現在のコイン数】1883
【現在の差枚】1883
【現回転数】0088
【総回転数】8471
【総BB数】021
【総RB数】016
【総AT数】051


以上

>>560　も朝飯前だって言った以上、そのうち作りますが、期待しないでください。

>>436
>>1スクランブル禁止
うざいからもうでてくんな

ソースplz

>>436
一様知らないと思うので伝えておきますが
２ｃｈではその手の書き込みは禁止事項にあたりますよ

ここにぺたぺた張るのじゃなくて個人の趣味の範囲で
ご自分だけで楽しんでくださいよ・・・

>>565
がんがれ

>>565
一様がんがれ一様。

>>561
スクランブルって中身を読めないってことでしょ。
そんなの怖くって使えないよ。

>>568
スクランブル有り・無し関係ないでしょｗ
スク無しで中身見ても・・・・・・　
どうせ分かんないでしょｗ
>>436もどうせならジェット仕込めば良かったのにね！

>>436氏
メール発射マクロ使わせていただきました。（コイン差枚数表示までのやつ）
いつも仕事中、気になったので大変助かりました。
ただメールを６０分おきに出すように設定したのですが2時間おきに来ました。
なぜそうなったか理由はわかりませんが　case　の後に　SLCT_　いれたら1時間ごとになりました。
参考までに。

>>569
いや、ジェットなら可愛いもんだが、DOSCMD 埋め込まれていたらと。

相対座標に対して、マウスでクリックしたところの
座標がわかる関数ないかな？
誰かオシエテー

超獣のATって
みんなどこで判定しているの？

>>572
つヒント
SetCursorPosでマウスポインタの絶対位置を調べる
GetForegroundWindowでアクティブウインドウを調べる
GetWindowRectでアクティブウインドウの位置を調べる

>>574
×SetCursorPosでマウスポインタの絶対位置を調べる
○GetCursorPosでマウスポインタの絶対位置を調べる

>>574,575

なんとなく閃きました。
ありがとうございましたー。

押し順を制御するの難しいのぅ

http://wktk.vip2ch.com/upload.cgi?mode=dl&file=20196
pass mail

いまさらだけど、左のアバター画面閉じれるんだね。
俺は閉じれる事自体知らなかったので、開いたままで作っていた。
どうりで貼られているスクリプト、いつもY座標はいいんだけど、X座標が
全然合致しないじゃん！！　とずっと思っていた。
あと左を閉じてないと、キーボードでレバーオンとボタン停止効かないんだね。
俺はマウス操作で作成してた…
その他に、左を閉じていないと都合が悪いことってなんかあるのかなぁ？

いまさらだけど、左の閉じ方しらない。教えてくれ

上の>>

>>579
左開いてても受け付けるけどなぁ
１回間違えてガメラだけ左開いた状態で作っちゃってガメラの時だけ開かないと動かないorz

>>582
そうなの？
BETは作動するんだけど、レバーとボタン停止が受け付けない…
ワンキー、カーソルキー双方不可。
PC自体の設定が関係しているのか？
左閉じた状態で作成してる人が多いみたいだけど、何かメリットがあるのかな？
俺は閉じたら、キー操作可能になったから、てっきりそれかと思ったんだが…

>>583
ひんと
押し順関係あり機種となし機種

旋風作ってみたんだが
なんだこの機種は？
もう無理旋風は諦めた　一番好きな機種なのに

諦めるな、風はいろいろ癖があって、マジでむかつくけど
やれば何とかなる。

>>585
おまいは美雪を見捨てるのか？後少しで手が届くというのに…

寝落ち対策マクロ作成中。

現在、時間、店舗、席を指定後自動で


1.開店時間の35分前に自動ログイン(既に開店中または、並べる状態の場合回避、添付時間は手動入力）
2.自動777タウン起動、設定したIDとパスワードを自動入力
3.時間に並ぶ（既に開店中は自動スキップ）
4.開店時に指定階、指定席につく
5.アイテム自動使用（事前に使うアイテムのY座標指定＋カーソルダウン回数の指定）
6.機種別幕路発射
7.寝落ちで1へ戻る　<<-----いまここを作成中　あと数日まってくれ

それと、載せるなっていう文句は載せる前に言ってくれ
載せた後に文句をいうなよ。

>>589
Uploader使ってね　

>>590
了解。。。。です。

現在
・寝落ち、回線落ち等の検証中です。
　寝落ち（放置）現象を再現させるのに時間が掛かります。　
　寝落ち後1時間して、ちゃんと戻っているかどうかの確認。
　
・それと、ソースがあまりにも長いので、ソースの整理中。
（解説はつけません、解説をつけるとプログラム書く以上に時間が掛かりそうです。）

・前に作った幕路との連携で多少問題があるので、修正中

一日数時間しか出来ませんので、多分今週末にはUPできます。

それまでに載せるなという意見が多数を占めたら、載せません。

ソースを載せます
今回はパスワードやIDの操作もありますので、
ソースを見て判断して使ってください。勿論何も仕組んでいません。
分かる人が見れば分かります。

LANケーブルをブッコ抜く→数秒後に切断される→LANケーブル接続

このスレはkappaのマクロうｐスレになりました

クレクレの神頑張ってくれ

>>593
誰にも作れるものはうｐしないよ。
過去レスや、本スレにもこういう要望が多いので作ってる。
それに、僕の幕路はボタンやレバーに指一本触れてない。
連携の仕方は提示するが、自分の自己責任で使ってくれ

ていうことで

現時点で
反対　１：　賛成　０

それと、僕の幕路は本当のクレクレ君には使いこなせないよ。
自分である程度加工したり、連携したり、そのた環境の整備もしなければいけない。
メール発射の幕路もそうだけど、全くの素人は使えないだろうし、素人が使えるようになる
にはそれなりの努力が必要だろ。

今回もある程度の予備知識が無ければ使えないよ。
機種別幕路を自作した人もいれば、もらった人もいるだろうが、それには感知しない。

僕が最初にメール発射の幕路をつくろうといった時、誰が反対した？
公開することも事前に宣言してるんだぞ？
にもかかわらず載せたら叩く、スクランブルかけると叩く、ソースを載せても叩く
おまいら一体なんなんだ？

ｺｿｰﾘ賛成ﾉｼ

勉強中のｵｲﾗﾓｺｿｰﾘ賛成ﾉｼ

　害虫が偉そうにすると崇め奉られるスレはここですか？

なんでこいつは作ってる途中でいつも書き込むの？
完成品だけうｐってれば神扱いされるかもしれないのに

座標とかは、非常に手間が省けるから助かるんだけど。
アップだけは、辞めて欲しいかな。
ということで、超獣のドットの位置情報のみ・・・
SSとにらめっこして、過去ログ読んできますorz

うｐする必要は無い。
広まりすぎて本格的な規制が入ったらウザい。
アイデアさえあれば知識と努力でなんとかなる。

>>588
俺は閉店時に自動シャットダウン使ってるが、
これだけ動作が多いとエラーが出たり動作が不安定にならないのか？
3.〜7.で十分だと思うが・・・

>>588
本スレで話してたのは寝落ちじゃないんだが

>>602
1〜2はそんなに重くないです。
ソース自体はそんなに多くないです。

1.〜2は目的があります。
開店数時間前からログインすると、当然「入力が・・・・」で落ちますよね
その繰り返しをすると、並び開始時間を逃して、並んでも指定台に座れないかもしれなくなります。

だから、ログインは開店時間-30分前(並び開始時間)-5分位を狙ってます。
5分前から「並ぶ」のマークが点等するのを待つためです。

>>598　僕がいつ偉そうなことを言いました？少なくても貴方よりは言葉使いを気をつけてます。
>>599　こういうアイデアの交換をするためです。

>>600->>601ご意見はありがたく頂戴いたします。

>>586>>587
超低速のならでけた
でも不具合だらけ　通常時の押し順無視　これはいい許せる
風チャンス中のナビなし時止まる　これも自動で止まってくれるからいい
風チャンス中にチャンス目かなんか引いて追加風チャンスにいくとき止まる　これは許せん
一応動くからいいけどどうして美雪は俺を嫌うんだ
いいよ　ムカついたから高速で動くまで何度も作ってやる

後、風チャンスに入るとcpu使用率が常に100%　
俺のパソコンから『フワァー』という音が出て悲鳴を上げてる

>>605

面白そう、一回使ってみたい気もする。
がんばれば何とかなりそうなレベルの予感

>>585
Sleep入ってるよな？PCスペックの問題か？愚問だが…一応

>>606
解像度を下げたり、色数を落としたり、告知表示、島の移動表示等も
全て調整してますか？

それと、通常時のCPU稼働率と幕路時の稼働率に大きな差があるのであれば
問題ですね。

>>605->>606
それと、ヒントになるかどうか分かりませんが、
僕の場合、最も長くいる状態のモードを最優先して作ります。

当然ノーマル時です。
その状態で、軽く・正確なものをまず組むことだと思います。
この時点で小さな問題でもあれば、後々に影響しますので
まずはこの点を最優先に作るべきだと思います。

次に、移行状態が何個あるか整理して
分岐条件を画面の中から注意深く探ってください。
当然、いつでもどこからでも通常状態に戻れるように考慮しなければ
なりません。

とりあえず個人的意見です。

>>587
大丈夫だsleepは入れてる
>>586
解像度はそのまま　告知や島の移動表示はoff
通常時は10〜20％
風に入ると『フワァー』なんか楽しくなってきた

>>611
Print CpuUserRate() を入れて
どこで稼働率が上がっているか調べたほうがいいと思いますよ。

Print をするときには　行番号をいれると確認が楽になります。
Print "[123行]"+CpuUserRate()


********[ UWSC ヘルプより ]***********
随所に　//　CPU使用率
戻値　=　CPUUSERATE( )
戻値
　　CPU使用率　　（分解能１秒）
*************************************

>>586
ありがとう
今からヘルプ見てやってくる
改善できたら報告します

どうでもいいけどレス番おかしくね？

なんかよくわからんかったから
ついさっき帰ってきた妹に「おまえuwscな」といって回させてる

>>601に同意
もともとスクリプトは自分で試行錯誤して作る事が楽しい。
VBで作ったものをうｐするならいいが、UWSCのソースうｐには反対。

UWSCに規制掛かるとサミタ楽しくない

kappaは>>1が読めないの？
ｶﾜｲｿｽ

>>615 そ、そ、それは禁じ手。。ｗ
>>616　了解です。
>>617　最近本当老眼かもしれない。

この前視力検査に行ったら、遠くのものが良く見えるから何も問題も無いと思ってたら
いきなり先生（女性）に「老眼かもしれませんよ」っていわれて、
大声「ええ、老眼？そんなはずありませんよ、だってすっごくよく見えてますよ」って
有り得ないって顔して答えたら、
「じゃあ、試しにこのメガネをかけてください」と言われて、
先生に「どうですかって聞かれて。」
「メガネかけた瞬間視界がシャキーンと開けました。」って言ったら
周りのおばちゃん、子供、リーマン、姉ちゃん、看護婦、先生皆に笑われた。

旋風、今作ったけど・・・
載せた方がいいのかな？

機種別はのせたらだめだよ。
僕もそれはしないことにしてる。

>>619
載せなくていい

>>620　>>621
了解しましたm(__)m

みんなの旋風は普通に動くの？

旋風ナビ時のみ対応版だけど、普通に動いてます。
色判別処理を通過する回数が多いのではと？

じゃあ俺も頑張るか
さっき妹に打たせてたら、旋風中ずっと順押ししてた
さっき教えたのに

マクロはいいから妹うｐ

>>626
できるわけない
というかする価値無い
小6だぞ　今年から中学生だが

>>627
妹の話はやめておいたほうがいいぞ、
小６だろうがなんだろうがお構いなしな輩がいっぱいいる。

ﾏｼﾞﾚｽが返ってきてﾋﾞｯｸﾘｗ

>>627
俺の外し込みの旋風マクロやるからその妹くれ

おまいら、漂白オメ！

今回漂白されなかった香具師も、近く漂白されるよ。。ｗｗｗｗ

誰か、本スレに　金太郎マクロのせてるぞ
でも、最後の一行貼り忘れてｗｗｗｗ動かないらしい。　セーフ

>>632
俺も見たけど、UWSCの使い方を知らなければ全くチンプンカンプンだろ。
マクロっていう言葉だけで釣られてUWSCをダウンロードしたはいいが、
全く使えなきゃ意味無いからな。

マクロは使うことより自分で試行錯誤して組んだほうが楽しいだろうに。。。

初心者だけどどなたかマクロ譲ってください。
使い方を教えてくれて、上質なマクロ1機種1K〜2K程度ならマジで買います
売る気のある方メール下さい

>>635
死ね

>>635
おまえ、人間的に死んでる

>>635 上等かは分からんが一応オリジナルのマクロならあるよ リプ外し ＤＤＴが入ってるやつ。

　∧＿∧　　腹ボテにしてやんよ
　(　･ω･)
　(っ　　っ　　｡　　ﾋﾟｭﾋﾟｭﾋﾟｭﾋﾟｭﾋﾟｭ
　/　　二つ ゜｡ﾟ　° 。
　( /￣∪　　　｡゜　｡　｡

まゆみたんどこ〜(´･ω･`)

パケット代以外無料の携帯専用のネトゲ
チーム作って戦う奴
2CHのチームもある
http://breaker-game.net/br3_invite_mail2.php?id=370343

さぁ、VBにでも移植するか

こっちは過疎ってるなｗ

あー！もう無理だ！どうにかしてuwscを検知するのを回避させようと模索してたが、
俺の知識と技術じゃわからん！
プロセス名を変更すればいいかと思ったが、変更させようとすると起動しなくなるし…
もらい物のマクロだから、ＶＢで作り直す事も難しいし…
手打ちで出来るほど、時間的余裕なぞ無い…
あと勲章が数個で昇天できる時に、なんという仕打ち…
退会しよっかな…はぁ。

まぁまぁ、あわてるな、月会費1kだろ
1ヶ月の会費以内で何とかなるさ

過去のスレでうｐられてた、ＶＢ対応のマクロ詰め合わせが奇跡的にもＤＬされてたから、早速ＶＢを導入して使ってみたが…
対応キーが何が何やらでさっぱり動かねぇ…ワンキーだけは分かったが、その他のキーの割り振りが全くわからん…

どのにあった？

>>647
どこだっけなぁ…いつＤＬしたのか、どこのスレに張られたのか覚えてないな…
ＶＢ難しいね。

なんだぁ、ケチ。VBはサラ金が動いてるし
UWSCようやく回避できた。今回はてこずったなぁ
やっとぐっすり寝られるよ、明日からはまた普段の一日に戻れる。

みんなも早く寝ろよ！

今回はてこずったなぁ、って、検出方法は変わって無いと思うが・・・
必死さが伝わるなかなか良い文章ですねｗ

さて明日のメンテでどうでるかな？
まぁなんもないやろうけど

回避を自分なりに試行錯誤したが駄目だった…
知ってる人でも回避方法はここでは書けないだろうからあきらめてVBに移植するか。
せっかく一月前からUWSCで、マクロを数機種作成したのに…
作成する前に、以前も規制されたと聞いていたから、UWSCかVBどっちで作るか
迷ったんだが、サンプルが多く貼られてるUWSCを選んでしまい少し後悔している。

VBの規制って可能ですか？

でも今日のメンテでVB規制されたらどうしよう
マクロのアプリから自分で作るしかないのか？

普通に打てよｗ

規制されて、久々にサミタのAUTO+手打ちで消化したんだが、ダメだね。
もう後戻りできない。インテリは金がかかるし速度もでないからイライラする！！

VBは規制のしようが無いと思うけどな。

VBで作られたほかのアプリ全部駄目になっちゃうじゃん。
だから、VBが一番無難

JTKまで巻き込めば規制も可能だろう。
でもそれは運営的に厳しいかもね。

>>659
Joy to Keyまで規制されたらかなりのユーザーが減るでしょうね。キーボードだけなんてやってられんし。
ソフト的な入力を禁止してしまえば良いわけだけど、それやるにはかなりの勇気が必要でしょう。
ジョンにできるかな？

やられた

ぬるぽ

ぬるぽ

ぬるぽっぽ

>>662
　 　 　　 　 , 　-‐-　､__　　　　　　o
　　　　　／　 　 　 　 　 ＼　　 /ヽ −｀／
　　 　 /　　/　 ,ｲ　　/　,､　ヽ
　　　/　 r'/ /l/ !-／レ'　ヽ　',　 |　|　|
　 　.!　　{/ /　　Ｃ'　 　 ﾞｰ‐ｌ　|　 ｌ　ｌ　l＿_
　　 !　　/ /　　　　＿ 　Ｃ' ｌ /'"ノ ノノ　 　 ｀ ‐ 、
　　.! 　 !　lヽ、　　/､/　　// ／/_/,ｲ_∠ ／| .,、ヽ、
　　ｌ　　|　!´ｌiiﾞｌ＞＝-､-‐'/´＿fノL_ﾚ＝o　 ﾚ､_!ｌ !l
　　| ∠| .l/,＞fjとli￣｀i /!　｀ヽ 　／　　ﾉ､　�_｡ﾙ'j　>>635ｶﾞｯ
　　|　　V /'´　jﾉ ｀ー‐|′　 ノ-‐i､r┐/ヽ/　　/ 　
　　|　 /＼＿_＿＿＿_|　　 ／,-ﾑrl='｀ヽ/__,／　　
　　|　/ / /　/　ｌ　l　 |　　/　 ￣｢} ＼　|

エイリやんの右矢印点滅ってどうすれば拾えますか？

>>660
最初からソフト的な外部入力は一切禁止！としておけば良かったんでしょうね。
JｔK使用ユーザーは結構いるらしいから、今からは難しいんじゃないでしょうかね。
と、思いたい。

クライアントをPAD対応にすれば出来るだろうけど、その気はなさそうだな
連射を禁止するなら専用パッドを作って、それしか使えない仕様にしたらいい

実践パチスロコントローラの出番だな。

>>664
10ms間隔で色取得
前回値と違えば点滅中
5回連続で同じなら非点滅
くらいでいけると思う。

>>668
なるほど。ありがとうございます
前回値との比較はどのようにするといいですか？
よろしければご教授ください

>>669
そんなのほっときゃ自動目押ししてくれる。
ほっとけ

既に作られてたらスマンですが、パチンコの方のチャンスタイム窓や
玉買い足しの窓で止められないように監視マクロ作りますた。

とは言ってもうｐも今じゃあれだろうし、とりあえず報告だったんですけど、
どうすれば良いですか？

っていうかそもそもパチンコの需要なかったりして＾＾；

>>671
自慢したいんですね。でも報告だけにしておく方が吉です。

ご忠告どうもです。
とりあえず自分の心の中で留めて置きます。

スレ汚しすみませんでした。

自動栗鶴で充分

>>671
というか窓で止められないようにすることくらい
ここの住人ならものの数分で作れると思うが？
既成のメイン処理を少し書き換えるだけだし

機種別の保留留めとかも簡単なんで、パチはすることあまりないね

窓のハンドル名が取得できないんですが、どなたか教えてください。
お願いします。

パチで止められないようにするには
メイン処理に玉をチャージするとオートストップを
たすだけでいいですか？

今なんか下のフロチャに赤字で制御中ってでた。
久々ログインして使ったら警告かよ・・・。
これやばいの？漂白？

>>678
いちいちマルチすんな

だれも返事くれないから・・・

パチンコに行く際は『完全無料パチスロ攻略』と言う名の
ブログを見てから行った方が良いですよ！
とても参考になります。Google等で検索できます。

>>678
連休明けには漂白だ。おめでとう

そうか俺もついに漂白か
俺以外のマクラーで漂白されてない奴
１００名は名前わかるし調査依頼でもだそ

>>683
ｗｗｗ、なんだおまえ。
自分で勝手にへまして、漂白される時にはみんな道連れかｗｗｗ
いい性格してるよな。
安物の映画に必ずでてくる雑魚だよ。ｗｗｗ

漂白される前に自首して、司法取引をサミタとすればいいよ。
「100人の枕の名前教える代わりに、俺を見逃してくれって！」