【クレクレ】777town真っ黒〜VIP【厳禁】

公式
ttp://www.777town.net/
まとめサイト
http://www.usamimi.info/~333town/
http://www.geocities.jp/arakinhoku/index.html

過去スレ関連==============================================
【777town】マックロくろすけ出ておいで〜【ｻﾐｰ】
http://game11.2ch.net/test/read.cgi/mmosaloon/1154190714/l50
777townマックロくろすけ出ておいでPart2
http://game11.2ch.net/test/read.cgi/mmosaloon/1155100189/l50
【777town】真っ黒【Ver3】
http://game11.2ch.net/test/read.cgi/mmosaloon/1155608103/l50
【真】パチスロタウン Vol.4【黒】
http://game11.2ch.net/test/read.cgi/mmosaloon/1156950641/l50
【真】 パチスロタウン FINAL 【紅】
http://game11.2ch.net/test/read.cgi/mmosaloon/1158021012/l50
777town真黒ｽﾚ
http://game11.2ch.net/test/read.cgi/mmosaloon/1158851934/l50
777town.net　ｳﾙﾄﾗﾌﾞﾗｯｸ
http://game11.2ch.net/test/read.cgi/mmosaloon/1163171831/l50
【真】パチスロタウン renewal【黒】
http://game11.2ch.net/test/read.cgi/netgame/1163232587/l50
【どうして？】777town.net ﾊｲﾊﾟｰﾌﾞﾗｯｸ【閉じる】
http://game11.2ch.net/test/read.cgi/mmosaloon/1168954481/l50
【どうして？】777town.net ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ【閉じる】
http://game11.2ch.net/test/read.cgi/mmosaloon/1
サミタ真っ黒初心者質問スレ　その1
http://game11.2ch.net/test/read.cgi/mmosaloon/1177652183/l50
=========================================================

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

●うんこ厨は、下記スレへ
【真黒】サミー777タウン無糖ブラック【社員哀れ】
http://live25.2ch.net/test/read.cgi/ogame2/1181207816/
【真っ黒】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ6【本スレ】
http://game11.2ch.net/test/read.cgi/mmosaloon/1181460915/

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

本スレはこちらです。

【真っ黒】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ6【本スレ】
http://game11.2ch.net/test/read.cgi/mmosaloon/1181460915/

うっ！ここは？

>>3
クレクレ君の本スレは

【真っ黒】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ6【本スレ】
http://game11.2ch.net/test/read.cgi/mmosaloon/1181460915/　でどうぞ。

こちらはマクロ制作を楽しみたい方向けです。
上手く使い分けましょう。

【777town】マックロくろすけ出ておいで〜【ｻﾐｰ】
http://game11.2ch.net/test/read.cgi/mmosaloon/1154190714/l50
777townマックロくろすけ出ておいでPart2
http://game11.2ch.net/test/read.cgi/mmosaloon/1155100189/l50
【777town】真っ黒【Ver3】
http://game11.2ch.net/test/read.cgi/mmosaloon/1155608103/l50
【真】パチスロタウン Vol.4【黒】
http://game11.2ch.net/test/read.cgi/mmosaloon/1156950641/l50
【真】 パチスロタウン FINAL 【紅】
http://game11.2ch.net/test/read.cgi/mmosaloon/1158021012/l50
777town真黒ｽﾚ
http://game11.2ch.net/test/read.cgi/mmosaloon/1158851934/l50
777town.net　ｳﾙﾄﾗﾌﾞﾗｯｸ
http://game11.2ch.net/test/read.cgi/mmosaloon/1163171831/l50
【真】パチスロタウン renewal【黒】
http://game11.2ch.net/test/read.cgi/netgame/1163232587/l50
【どうして？】777town.net ﾊｲﾊﾟｰﾌﾞﾗｯｸ【閉じる】
http://game11.2ch.net/test/read.cgi/mmosaloon/1168954481/l50
【どうして？】777town.net ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ【閉じる】
http://game11.2ch.net/test/read.cgi/mmosaloon/1
サミタ真っ黒初心者質問スレ　その1
http://game11.2ch.net/test/read.cgi/mmosaloon/1177652183/l50
【真っ黒】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ5【本スレ】
http://game11.2ch.net/test/read.cgi/mmosaloon/1180965121/l50

ID表示復活記念にプレゼントだ

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Town_hWnd As Long '777town.net親ウインドウのハンドル

Private Function 打ち出し強度取得() As Long
Dim li As Long, c As Long, ret As Long, nRect As RECT
　ret = GetWindowDC(Town_hWnd)
　GetPosition (Town_hWnd)
　Call SetCursorPos(436 + nRect.Left, 607 + nRect.Top)
　DoEvents
　Sleep 400
　For l1 = 0 To 135
　　c = GetPixel(ret, 424 + l1, 490)
　　If (c And &HFF) < 50) Or ((c \ &H10000) > 10) Then Exit For
　Next
　打ち出し強度取得 = l1
　ret = ReleaseDC(Town_hWnd, ret)
End Function

Private UPkey As Long　　　　'パチンコのハンドルを強くするキー（標準は→）
Private DOWNkey As Long　　　'パチンコのハンドルを弱くするキー（標準は←）

Private Sub 打ち出し強度変更(強度 As Long)
　Dim i As Long, 現在位置 As Long, nRect As RECT
　GetPosition (Town_hWnd)
　Call SetCursorPos(436 + nRect.Left, 607 + nRect.Top) :　DoEvents
　If 強度 = 135 Then
　　Call keybd_event(UPkey, 0, 0, 0) : Sleep 2000 : Call keybd_event(UPkey, 0, &H2, 0) DoEvents
　Else
　　For i = 0 To 40
　　　DoEvents
　　　現在位置 = 打ち出し強度取得()
　　　If 現在位置 = 強度 Then
　　　　Exit For
　　　ElseIf 現在位置 < 強度 Then
　　　　If 現在位置 + 10 < 強度 Then
　　　　　Call keybd_event(UPkey, 0, 0, 0) : Sleep ((強度 - 現在位置) * 12) : Call keybd_event(UPkey, 0, &H2, 0) DoEvents
　　　　Else
　　　　　Call keybd_event(UPkey, 0, 0, 0) : Sleep 40 : Call keybd_event(UPkey, 0, &H2, 0) DoEvents
　　　　End If
　　　Else
　　　　If 現在位置 - 10 > 強度 Then
　　　　　Call keybd_event( DOWNkey, 0, 0, 0) : Sleep ((現在位置 - 強度) * 14) : Call keybd_event( DOWNkey, 0, &H2, 0) DoEvents
　　　　Else
　　　　　Call keybd_event( DOWNkey, 0, 0, 0) : 40 : Call keybd_event( DOWNkey, 0, &H2, 0) DoEvents
　　　　End If
　　　End If
　　Next
　End If
End Sub

こんにちは

本スレは

【真っ黒】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ6【本スレ】
http://game11.2ch.net/test/read.cgi/mmosaloon/1181460915/　でどうぞ。

本スレは

【真っ黒】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ6【本スレ】
http://game11.2ch.net/test/read.cgi/mmosaloon/1181460915/　でどうぞ。

本スレは

【真っ黒】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ6【本スレ】
http://game11.2ch.net/test/read.cgi/mmosaloon/1181460915/　でどうぞ。

×　　　　　Call keybd_event( DOWNkey, 0, 0, 0) : 40 : Call keybd_event( DOWNkey, 0, &H2, 0) DoEvents
○　　　　　Call keybd_event( DOWNkey, 0, 0, 0) : 70 : Call keybd_event( DOWNkey, 0, &H2, 0) DoEvents

あ、珍しくVBのソースだね
uwscはお腹いっぱいだからここはVB専用ってことでどうかな？

う〜ん。巨人3ってマクロの精度ひたすらあげても
ボーナス回数の割に伸びないな〜…orz

なんか乱立してるけど
まじめに行くのはこのスレでいいのか？

422氏には是非とも初心者スレにも降臨してほしい。

ここのところ外出が多くて、携帯からってのが多いから、
ソースが貼られてるようなのに対してのレスはきついですね。

でも、一応見てはいますよ。

レスできそうなときには是非。
しがない初心者の希望です。

最近は猛獣王でNAVIハズレを検出するために
ナビ有り時も変則押ししてるんだが、
液晶からだと、砂埃とかのせいでいまいちナビ判定がうまくいかない。

あとは、ナビ有りの次GのINSERT点灯時にWINの７セグをチェックするくらいだが、
これだと７７７ナビとかでないと成立時に揃えられないんだよな。

なんかいい方法無いかな。

【出】全機種対応マクロ
【求】1500ＷＡＴ

開発室長万次郎で検索してください

>>16
ID非表示のほうは見る気すらしませんね。
自演クレクレ多すぎてとんでもないです。

また、ここで422氏をはじめとする神レベルの人のアドバイスを
よろしくお願いします。

黄金神のボナス確定判別はどこで取っていますか？
あとそれができれば完成なんだけど、確定画面でうまく拾えません。
どなたかご教授を。

>>22
取らなくてもｲﾝｼﾞｬﾈ？
俺はﾎﾞﾇｽとATの処理を共通化させてるよ

>>22
きいてる趣旨が違ったかな？ｗ
確定判別が欲しいなら液晶の何カ所かをサンプリングすれば
いいんじゃない？
北斗とかはそれで取れてるよ。

ふと見たときにボナス確定画面時に延々と「お願い」出るまでﾍﾟｼﾍﾟｼ
してたのが気に食わなかっただけなので問題ないのですが、
やっている方はどこを取っているのかなと。

一撃数千枚のＡＴ機は細かいこと気にしないｗ
俺は余計な負荷が掛かる方がイヤかな

ですよね。
気にしないことにします。
この前4時間ちょいで万枚でしたし。
ありがとうございました。

Procedure neko-koban()
// BET
ifb (PEEKCOLOR(98,515) and $FF) < 100 and (PEEKCOLOR(418,515) and $FF) > 200 then //BET判定
Kbd(VK_3,down,50)
Kbd(VK_3,up,50)
Sleep(0.3)

　　// レバオン
elseif (PEEKCOLOR(98,515) and $FF) > 200 and (PEEKCOLOR(418,515) and $FF) < 60 then　//リール回転判定
Kbd(VK_UP,DOWN,50)
Kbd(VK_UP,UP,50)
Sleep(1.0)

　　// 招福チャンスですか？
　　 elseif (PEEKCOLOR(93,344) and $FF) > 250 //招福チャンスが点灯しているか
syouhuku_chance()
　　 else
　　　　 Kbd(VK_Ctrl, DOWN,50)　　// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
　　　　 Kbd(VK_Ctrl , UP,50)　　// 上を変更時は同様にここも変更
Sleep(0.2)
endif
fend

Procedure syouhuku_chance()

>>28
の続き きぼん

今更だが、☆３の左３連７の目押しは何処で色をとればいいでしょうか？
白７の真っ白部分でかなり厳しく色を取っているんだけど
なぜか赤７が止まります。
もちろん赤だけで250以上とかの判断はしてません。
うーん、うまく遺憾

>>30
ＢＡＲ狙ってＳＬＥＥＰかけてる

>>30
毎回赤７で止まるならsleep調整でうまくいくと思うよ。

時々赤７時々白７三連になるようなら、色をとる場所の問題になってくる。
自分は中段付近で取って、通常時上段or枠上に止まるようにsleepかけてます。
これでＢＩＧ中はほぼこもしなしで消化してますよ。

>>30
たまに失敗するなら
白7検出から一周押しにする。
その待ちの間に右中を止めればタイムロスはほとんど無い。
毎回ずれるなら、検出から停止までに余計なWAITが入ってない?
KBD関数で引数にWAIT入れてたり。

色々レスthx
サミタ以外にもいろんなアプリ起動してるので
そのせいで微妙に動作が狂うのかもしれません。
一周させてみたりも試してみます。
ちなみにＶＢで作ってて、検出から止めるまではsleep(1)
入れてるけど、ほぼタイムラグはないですよね？

>>30
確実なターゲット拾ってSleep使うのが手っ取り早いが、1でもPCでのその他の
ソフトは限りなく作動させない方法でやらないと、スペックギリギリ迄
行くと誤作動も多々あるから。

ネコde小判の7セグ判定が上手くいきません。
どういう感じで判定すればいいですか？
点滅処理など詳しくアドバイスお願いします。

>>36
クレクレは巣に帰れｗ

>>36
マルチはいかんよｗ

888 ：ネトゲ廃人＠名無し ：sage ：2007/06/17(日) 11:47:24 ID:???
>>885
点滅してるからﾏﾝﾄﾞｸｻ

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

>>39
削除依頼中。

このスレはID表示のためにサミタがID収集して訴訟に持っていかれるかもしれませんので
下記のほうへ。
【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

なお削除依頼だしても中々通りません。

>>41
頭大丈夫か？

>>41
あほか？
サミタの規約には違反していても、日本の法律は犯してないし、このスレに書き込んだ事によってサミネに損害与えてる事実はない。

ま、ここが本スレで無いってことには賛成だけど。

なんかおもろいことないかの〜。
だれか何かうｐして〜。

>>41
残念だったな。諦めろ。

ベタベタURL張ってる奴は、自演が出来ないとお困りのようだｗ

ID表示でええやん。昔に戻っただけだろ。
ID非表示は自演がウザすぎて教える気にならん

なにここは？
マクロファイルくれるところですか？

>>48
>>2

クレクレ君　禁止なんだ。
なら
ttp://picopico.dip.jp/ragnarok/data/1073724070984_log.jpg
これでもどうぞ。

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

気をつけましょう。関係者がID表示スレへ誘導させています。完全に狙い撃ちにされるため下記の
スレが本スレとなりました。

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

また涌いたか・・・
関係者ってﾜﾛｽ
訴訟云々言うんだろうが、それだったらID非表示でも同じ事だと判れ！

ID:JMGsSh/v
いい加減諦めろって。

ベタベタとスレ張ってんのは、IDが何かも解ってないドアホのクレクレが適当な事を言って
自演できるスレに誘導したいだけだろう。騙される奴なんざいないってｗ

気をつけましょう。関係者がID表示スレへ誘導させています。完全に狙い撃ちにされるため下記の
スレが本スレとなりました。

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

>>57
JMGsSh/v 荒らしとして通報しといたよ

クレクレしか言わない奴はどうぞあっちに行って下さい。

ここのクレクレは、アイテムクレクレよりたちが悪いな

422氏
>>白7検出から一周押しにする。
>>その待ちの間に右中を止めればタイムロスはほとんど無い。

そんなことどうやってやるんだ？
Sleepかけたら、なんにも処理できなくなるんじゃないの？
もしかして、Waitタイマーが複数作れるの？
素人の俺にも分かるように教えてくれマイか？

>>61
あくまで☆３のビジ中の話なんだけど、
仮に１周押しのsleepが600msだったら、
白７検出→右停止→sleep 300ms→中停止→sleep 300ms→左停止
みたいな感じにするだけ。

☆３のビジ中は中、右目押しいらないからね。
ただぼんやり待つよりいいでしょ。

なるほど。

422氏の思考には驚かされる…。。

ここはスレ違いです。移動してください。

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

>>64
どうぞ一人で行って下さい。

>>62
すげー・・・・　そこまで考えますか・・。
後でソース見たら判んなくなりそうですけど・・

効率的では有りますね。

ここはスレ違いです。移動してください。

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

>>64 >>67
なんでそんなに必死なの？
ほっといてくれよ？

ここはスレ違いです。移動してください。

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

黄金神のナビ取得なんですが、皆さん何を契機に
ナビ処理に入ってますか？
今はナビボタンどれかが緑>200以上だったらナビ処理に
入ってますが、たま〜にナビ演出時に押し順が変に
なってしまいます。（変則押し現金でしたよね）

もうちょっと条件を厳しくすればいいだけなのかなぁ…。

と思ったら過去ログにナビ処理貼ってあった…orz
帰ったら試してみます。

もう一点。サラ金中のREGはどうやって処理しています？
SC中のナビ無し時はBIGとREGの交互狙いとか？

私は中段BAR狙いでBARならREG狙い
上段青7まで滑ったらBIG狙いにしていますよ。

なるほど。参考にさせて頂きます。
有り難う御座いました。

大体は過去スレで拾って貼ったんだけど...

Private Sub ClkItem(ByVal hwnd As Integer, ByVal BTN As String)

Const BM_CLICK = &HF5
Const WM_ACTIVATE = &H6

hWnd2 = FindWindowEx(hwnd, 0, vbNullString, BTN)
If hWnd2 = 0 Then Exit Sub
SendMessage(hwnd, WM_ACTIVATE, 0, 0)
SendMessage(hwnd2, BM_CLICK, 0, 0)
Application.DoEvents()
End Sub

If FindWindow(vbNullString, "コインをチャージする") Then
ClkItem(FindWindow(vbNullString, "コインをチャージする"), "はい")
Sleep(1000)

これでエラーが出る。
超初心者質問で申し訳ないが教えてください。
誰も教えてクレない(´･ω･`)

それで分かったらエスパーなわけだが、どういった
エラーが出るのか位は貼ってくれまいか。

エラー内容を透視してみる
・Declare Function 〜 をやってない
・End If がない

こうして見たら？

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
　　↓
　end if

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

>>79
そこから出てこないでくれｗ

黄金神って、やたらエラーで終了させられるんですが、
これってゆっくり打てば出ないのでしょうか？
連続演出のアクション中にBETすると落とされてるような感じなんですけど。

>>81
君がいろいろ試してみるといいのでは？
それでも、解決しないなら再度聞いてみたほうが・・


てか、あほぅでないならその位自分で解決できるだろ・・・

>>82
一応、ＢＥＴはＩＮＳＥＲＴが点灯してから押下するようにしたりはしてるんですが、
それでもエラーが出ることがあるのでどれほど待てばいいのかなと思って。

あんまり待つと通常時のロスが大きくなるし、
何かいい方法はないかと思って聞いてみました。

ＢＥＴを適当にもう少し待つようにしてみます。

前回のPortalうｐされてから、よく止まるようになった・・・。
みなさんはどうですか？

>>81
単発IDの煽りっぽい回答はどうでもいいとして、うちでは
精算ランプをみながらBETとレバオン連打してるけど
20時間ぶん回して1万5千枚位でたよ。

以前回したときは確かに落ちたけど、黄金だけは運かもしれないね。

>>81
うちはinsert見てBetして、レバー叩いてボタン有効になったらボタン押してる
落ちたことないです、参考までにどうぞ

いつのまにかクンニ無しで黄金勲章6個取ってた
出るときは短時間で出るから、メンテ前の時間ないときとかにいいよね

寿司だニャンのアタリセグは何種類あるか分かる人いますか？

>>87
セグじゃなくてランプ見ればいいって問題じゃなくて？

寿司出来たけど、CPU使用率が凄いことになってる
ナゼだろう？

エスパーとしては、色取得のDoループ中とかにSleep入れてない
んじゃないかと予想する。

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/







【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

>>91
ここは乞食用のスレじゃないから、そんな誘導貼るだけ無駄。

寿司って
if 液晶右のランプが２個とも消えてて、
　保４点灯で、打ち出し中
　　→止める
elseif 保４消灯で停止中
　　→打ち出し
elseif 液晶右のランプのどちらかが点灯してて、
　　　　保４点灯で停止中
　　→打ち出し
endif

で良いのでしょうか？

>>91
そんな荒廃したスレ行きたくないよ。。

if 大当たり中時短中確変中
　非打ち出し中→打ち出し
else
　if 保4
　　打ち出し中→止め
　else
　　非打ち出し中→打ち出し
　endif
endif

寿司に限らず、まとめると基本こんな感じでいいかと

大当たり中とか打ち出し中とかってどこを見て判断してるのでしょうか？
パチンコは初めてなので教えてください。

こっちで聞けと言われたので
UWSCを使ってる人いますか？
勉強してＶＢに移行すべき？

アゲてしまった。
ごめんなさい。

>>96
当たり中判別は機種によって違うだろ
打ち出し中か否かはハンドルのSTOPとかいうボタンでいいかと思う
玉見るのもありかな

うちは負担かけたくないんで2秒おきにSTOPとかスタートとかボタン見てる

>>97
VB使ってる人のほうが少ないんじゃないかな？
特にVBを覚えたいとかいうのが無ければ別に
UWSCで問題ないと思いますよ。422氏もUWSみたいだし。

寿司は保３でいいと思う。それと確変中の確率が1/45なので確変中も止め打ちしないと
玉減りがひどいよ

>>101
作りはそっちの方が楽ですね？
確変や時短を拾うのメンドイし。そんなことないかなー？

>>102
確変、時短拾うのはシマの大当たりランプ見ればいいだけなので難しくはないよ
ただ、座る位置が限定されるけどｗ
俺はVBなんでシマの上下、左端右端を指定できるように画面を作ってあるけど

セグでみれば、当り中以外止め打ちするでしょ？

寿司はセグより役物右側の緑と赤のランプを見ればいい

ハンドル出しておくのがｳｻﾞｲのでフラグ立ててる

【こちらが】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ7【本家】
http://game11.2ch.net/test/read.cgi/mmosaloon/1182071781/

なんとか寿司完成！で、ついでにオークスも作ってみた
オークスの当り取るの座ってｍから取らないとダメなのね　（´・ω・`）
でも初心者でも出来るてコトがわかったのでおｋでし。




マジで疲れたYO　
こんなの簡単に作れる御人、尊敬します。ハイ。
でわ、おやすみ〜

麻雀のルールが分からないので、自動で打ってくれるマクロ下さい

>>109
クレクレは>>107へどうぞ。

>>106
取るポイントが１個減るからそっちのほうが良いかもね。
俺もそうしようかな

埋め

今更ながらアラA作り直してるんですが、AC中の
ボーナス処理はどうしてますか？

変速押しだと揃いそうもなかったんですけど
いい方法があればご教示下さい。

新マクロスレ登場
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

>>114
クレクレスレのくせにテンプレにクレクレ禁止って書いてるのに笑えるな。
無能が作ったスレらしいｗ

新マクロスレ登場
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

>>113
おいらのは、ACランプ点灯andalso３G連続でナビなし→目押し発動
です。

>>117
あ、それはうちもACランプ点灯andナビ無しで目押しに
してるんですが、BIGとREGをどうやって打ち分けてるのかな〜
と思いまして（汗

埋め

>>118

Public BRFLG=true //BIG/REGのフラグを格納するパブリック変数デフォ、true=BIG

///ボーナス処理したいところで
Hit_BONUS(BRFLG)　
BRFLG=!BRFLG　　//BRFLGを反転させてる　ていうことは一回打つたびにBIG→REG　REG→BIGになる。



Procedure Hit_BONUS(FLG)
　　ifb FLG then //フラグが真の場合BIG処理
　　　　//BIG処理
　　else
　　　　//REG処理
　　endif
fEnd

あっちなみに、僕あっちのスレの釣り氏ですので・・ｗｗ

たまにはこちらでもよろしくお願いします。

おまえ空回りしてね？

>>120みたいな処理にした場合、ループ処理させていると
目押し処理の部分で、↓のようにしているので
1ボタン押す毎にフラグが変わってしまうんですが
何か良い方法ないでしょうか。

if 左ボタン > 200 then
左リール目押し処理
elseif 左ボタン < 200 and 中ボタン > 200 then
中リール目押し処理
elseif 中ボタン < 200 and 右ボタン > 200 then
右リール目押し処理
endif

>>123
BRFLG=!BRFLG

の部分を右リール目押し処理の最後に持っていく。

おぉぉ。
422氏…有り難う御座います…。。

帰ったら試してみます〜。

このせいでAC中のREGを引けないまま8000枚程
投入してしまいました…orz

８０００枚恐ろしす。
それって３２００Ｇくらいだよねぇ。

枕ーってバレバレじゃんｗ

ですよねぇ…。
家に帰ってやっちまった感でいっぱいでした…ｗ

エイリヤンなら3200G回しても後で報われますが・・・ｗ

俺もあったよ。
旋風作ってるとき、できたと思って放置したら
ナビ処理が完全でなくて、
弾のはじけるっていうか白いやつをたまに拾ってミスってたみたいで
ＡＴ５６回で勲章取れてなかったorz

【本家本元スレ】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ8【偽ｽﾚ注意】
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

【本家本元スレ】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ8【偽ｽﾚ注意】
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

【本家本元スレ】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ8【偽ｽﾚ注意】
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/


【本家本元スレ】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ8【偽ｽﾚ注意】
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/


【本家本元スレ】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ8【偽ｽﾚ注意】
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

ID:1lDqMBe0　ここでは自演出来ないから必死だな。

本家本元スレ】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ8【偽ｽﾚ注意】
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

【本家本元スレ】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ8【偽ｽﾚ注意】
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/


【本家本元スレ】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ8【偽ｽﾚ注意】
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/


【本家本元スレ】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ8【偽ｽﾚ注意】
http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

お前らの事常に監視してるからな。不眠で目の周り真っ黒になっても監視してるからな。


http://dokuo30.kuronowish.com/cgi-bin/cook/img/4032.jpg

>>134

パンチラ画像

>>422氏
遅くなりましたが、ばっちり動作するようになりました。
思ってたより難しくないんですね（汗
色んな機種に応用出来そうです。有り難う御座いました。

黒王イベの時3000Ｇ以上回ってたよｗ
即席で作った糞だから仕方ないけど。流石に晒しスレ確認したねｗ
俺だけでなくて良かった。

マクロ使用したらこんなに出ました

羽賀逮捕の瞬間キタ！
http://www.imgup.org/iup409495.jpg

パチンコマクロ欲しいです。頂ける方居られましたらメールお願いします

１機種で最高１０枚　アレジン、浜ちゃん、オークス、じゃぽん、伝承、強敵

スロットではＵＷＳＣ使ってるのですが、パチンコでも使えますか？もし使えるなら

これで使えるのが欲しいです。心優しい方お願いします。

[email protected]

>>139　訂正

[email protected]

スロマクロを使ってて、ある程度の調整が出来るレベルなら、パチンコマクロなんて、数行で書けるのに。

釣りか？

あっちのスレから出てこないでくれ…。

>>141さん

スロットも頂いた物ですので・・・釣りではありません。

ここは低脳クレクレ乞食が物乞いする為のスレじゃねえんだよバカ
それともクレクレ乞食はスレタイも読めないくらい低脳なのか？

>>144さん　気分を悪くされたみたいで申し訳ございません

ではＵＷＳＣでの書き方や作り方を教えて頂けませんでしょうか？

どうしても欲しいのですが、やり方がさっぱりわかりません。

779 名前： [sage] 投稿日：2007/04/09(月) 03:50:59 ID:
>>778
>>お金なんて一切かけずに俺よりもずっと勲章もアイテムも多い
ていうのは君の誤解だと思う。
プログラムを作れるようになるまでにはそれはそれで大変なんだよ。
僕は今ではプログラムの世界にはいないけど、それでも毎月ＰＣ関係の本を数千円から多い時には数万円も購入したりしてる
でないと時代について行けないからね。僕の今のスキルまで到達したのに費やした金額は多分相当あると思う。
それと同じぐらい時間も費やした。
それにサミタ用のスロット操作プログラムを書きたいと思えば誰だってかけるんだよ、その気があれば。
プログラムは何でもそうだけど、言語っていうように、英語とか外国語と一緒で最初は本当に根気が要る作業なんだよ。
分からなくてもとにかく読む、暗記するそうすると少しずつだけど分かるようになる。そこまでに大抵のひとは挫折するけど
頑張れば頑張るほどみにつくんだよ。別にサミタのマクロを書けっていってるわけじゃないけど、何をするにもそれくらいの努力を
しないと駄目なんだよ。
本当にほしいのであれば、このページを見れるんだからググってヒントを探すことだって出来る。
そうやってみんなやってると思うよ。
兎に角僕はいま、サミタ用のマクロ持ってないしつくろうとも思わない。
君の価値観には同調した頃もあったけど、いまはそれを後悔してるんだから僕はもうスロット用のマクロを作らない。
だから君がマクロをほしいなら、君と同じ価値観の人にもらうか、自分で作るかだよ。
ゴメンよお役に立てなくて

780 名前：(　´∀｀)ノ７７７７さん[sage] 投稿日：2007/04/09(月) 03:58:28 ID:
そうですよね・・無理言ってごめんなさい・・・今日のことは聞かなかったことにして下さい
色々あって気が滅入ってたみたいです・・愚痴みたいになっちゃって本当に申し訳ないです・・・頭冷やしてきます

>>145
馬鹿はあっちいけよ。
おまえの来るところではない。

>>145
とりあえずその何でも脊髄反射で書き込んで質問する低脳根性を何とかしろよ
グーグルで調べればそんなん丁寧に教えてるページ幾らでも出てくるだろうが

>>147 >>148 さん

低脳ですいません。もう二度と聞きません。失礼しました

いいんだよ

流れ的には質問し難いのだが、寿司猫の盤面右の当たりﾗﾝﾌﾟが
通常時点灯してることがあるのだが、条件はなんなんだ？
これで組みなおしだよorz

>>148
過去ログ読み漁りつつ拾ったスロマクロのソース参考にしながら
一通り自分で努力して糞スクリプトのひとつでも書けるようになったはいいが
どうしても思い通りに動かなくて途方に暮れたらまた来い

自分にレスしちゃったよタハー
>>152は>>149宛てな

>>151
そんな事あるのか。つか当たり判定はデータグラフと
アタッカーの開閉で打ち出し条件取れば問題ナシじゃね？

あ、悪い。寿司猫は上も開くんだったね・・・
盤面右の当たりランプって上か下が開いてる時それぞれ付く奴？

>>151
どこか忘れたが点灯してるのが大当たり中と確変中
時短中はどこかが点滅

一通り打って注目してればすぐ分かると思う

それとも、通常時に点灯状態になることあるのかな？
だとすれば表示がおかしくなってるんじゃないかと思う
確信はないけど

あ。右の盤面ランプ？
てっきり左のだと思ってた orz
ｽﾙｰしてください

俺は

大当たり中：
データグラフ０Ｇで液晶右の緑と赤の縦二つのランプが
灯ってない時→ストップ
どちらかが灯ってる時→打ち出し

確変・時短中：
液晶の「中」の文字の白い部分(255,255,255)数箇所で判定
電チュー開→ストップ
電チュー閉→打ち出し

で取って問題なく動いてるよ

確変時短の「中」はリーチ発展すると消えちゃうから
通常時の処理にも電チュー開→ストップの処理を入れとけば
無駄打ちはほとんどないぜ

そうか・・・みんな気づいてなかったのか。
通常時に右ﾗﾝﾌﾟ上が点灯してることがあるんですよ。稀なんですが。
7ｾｸﾞで当たり判定し直しました。

↑の方で保留3点灯時と時短中も止めうちしたほうがいいらしいこと
書いてあるんで当たり中だけは止めてるのを打ち出ししたかったので。

UWSCの質問なんですが
ｺｲﾝをﾁｬｰｼﾞするが10回出たら、11回目に一旦精算再度着席させるには、どの様な構文を書けば良いですか？

何度も書き込んですまん

大当たり中：
データグラフ０Ｇで液晶右の緑と赤の縦二つのランプが
灯ってない時→ストップ
それ以外→打ち出し

確変・時短中：
液晶の「中」の文字の白い部分(255,255,255)数箇所と
カウンターの奥の方の絵柄が重ならない黒い所で判定
電チュー開→ストップ
電チュー閉→打ち出し

それ以外：
保留４点灯→ストップ
保留４消灯→打ち出し

です。カウンターの黒い所を判定に入れないと
画面白くなる演出で誤作動起こすんだよな

保留は通常時は４止めで十分だと思うよ
確変・時短中は電チュー見た方が絶対いいと思います

>>157 >>160
いろいろありがとうございます。
保留４止めでいいのですね。座標取ってあるんで修正してみます。

上下のランプで大当たり判定取ってるけど、チャンスタイム終了窓で誤動作起こすときがあるんだよな、ウゼ

鬼武者を作ってます。
BIG処理で質問します。
逆押し処理と順押しが出たときの処理はできます。
しかしJACの処理が分かりません。
教えてください。


目押しまで作ったのですが、最近気づきましたが芽目押ししてくれるんですね。
アラエボもしてくれますか？

>>163
何がわからないのかわからないけど、１BETだったらJACゲームでワンキー

落武者ってJACゲーム時は、上部の青いランプ点灯してたような

UWSCマクロの（たぶん）オーソドックスな流れ


ifb BETを受け付けるかどうか

↓　←elseif ３BETが灯らない then ワンキー（JAC）

elseif レバーオンを受け付けるかどうか

↓

elseif ボーナス確定→目押し処理()
elseif ボーナス中→ボーナス中小役狙いとか押し順とかJAC外しとかの処理()
elseif AT→AT処理()


↓

else
ワンキー

endif
fend

//-----------
Procedure 必要な処理()
・
・
・


の流れで作ればJAC処理なんて悩む必要なし

163です。
164さま、165様、166様アドバイスありがとうございます。
流れを描いて作りたいのですが、ランプって結構重要なんですね。

もっと簡単に
elseif コイン投入ランプ一枚目点灯 and 三枚目消灯 then
ＲＥＧ処理 (ワンキー連打)
もしＲＥＧとＢＩＧ中のＪＡＣを区別したければ 自分のスランプグラフを見て
緑ならＲＥＧと追加すれば良いよ

　　　　　　　　 l;;llllll||lll从从WWWl||ll,,ﾂ从ﾂﾂﾉlｲノ'彡ヽ
　　　　　　 　 ｲ从､从从从从从ll|| |ﾘ从//／／ノノ彡;j
　　　　　　　 jl从从从从;;;;;;;;;;;;从;;;;;/;;;;;;;;;､､､;;-ｰ､イ彡:}
　　　　　　　（ミﾐ;;ｯ''"ﾞ￣ '､::::ﾞ｀ﾞ''ｰ､／"´:::　　::::　|;;;;;彡|
　　　　　　　 }ﾐミ;;;}　:::　　{:: ﾞ:::::､:::　　　 :::ｨ　,,::::　};;;;イ;;l
　　　　　　　 jミﾐ;;;;}　:::　　ヽ::::ﾐヽ::　 |　 ﾉ　 W::　 |;;;;彡:|
　　　 　 　 　 }ミ;;;;;;} :::　ヾ　{:::::ﾐ ヽ　j　ｲ|从　":::: };;;;;;彡{
　　　　　　 　 iミﾞ;;;ﾉ::::::　　＼'､ }}: l||ｲ /,ｨ;;､､-ｰｰヽﾞ'ｧ;;イ､
　　　　　　　　{;;;;ﾘ:ﾚ彡"三三ミヽ,,ﾘ{{,,ノ;;;;ｨ≦==ミ'"　|;;〉l.|
　　　　　　　 l"';;;l　ﾞ'''＜<~(::) >>::）-ら::ｨ'ｰﾞ-ﾞ,,彡ﾞ　 .:|;l"lﾘ
　　　 　 　 　 |l ';;',　:::　ｰ｀￣:::::::ミ}ﾞ'~}彡ｨ""´　　　.:::lﾘﾉ/
　　　　　　 　 l'､〈;', :::　　　　:::::::t､,j　iﾉ:::､::..　　　 ..::::lｰ'/
　　　,､,,,/|　　ヽヽ,,', ::.､　　　 :::::(ﾞﾞ(　 ),､)､ヽ::.　 ｲ ::::l_ノ
）ヽ"´　　 ''''"ﾚl_ヽ,,,', ヽﾞ'ｰ､:::;r'"｀' ﾞ'';;""　 ﾞl|　 ::j ::: |: l,,,,
　　　　　　　　　ﾞ''（,l ',　l| ﾘ {"ｨr''''' ｰｰ''ijﾂヽ　 l| :" l　 |',｀ヽ,
　　　き　利　　　　(l :'､ ｀',. 'l| |;;ﾞﾞﾞﾞ"""´ｰ､;;|　ﾉ:　 /　/ﾘヽ　＼
.　 　 く　 い　　　　Z::::ヽ　'､ ﾞ't;ヽ　｀ ´　ﾉ;;ﾘ 　　,r'　//　 |
　　　な.　た　　　　 >; :::ヽ　　::ヽﾐニﾆﾆ彡'" 　, '::::://　　|
　　　┃　ふ　　　　 ﾌヽ　::＼　: ﾐｰ―― "ノ , ':::: //:　　 |
　　　┃　う　　　 　 }ヽヽ　:::::＼::（￣￣￣　/::::／/:　 　 |
　　　┃　な　　　　 }|　ヽヽ　:::::｀'-､竺;;ニｨ':::／／　　　 |　 　 l
　　　//　口　　　 （: |　 ヽ ヽ ::::　::::::...　　::／／　　　　 |　 　 |
)　　・・.　 を　　　 (　 |　　ヽ ヽ::　 ::::::...　／／　　　 　 ﾘ.　 　 |
つ､　　　　　　　r､{　　|　　 ヽ　ヽ　　　／／　　　　　 /　　 　 |
　 ヽ　　　　　　'´　　　 |　　　ヽ　 ヽ ／／　　　　　　/　　　　 |

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■梅■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

埋める場合は↓これでよろ容量OVERでそのうち落ちる

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

>168様
163です。グラフでBRを判別して、処理の流れを作るんですね。
ありがとうございます。

クレクレメールばかりで勉強会やってないのかと思いました。

鬼作ったら、アラエボにチャレンジします！

ちなみに鬼万枚は設定�Dが取りやすいですか？�Eが取りやすいですか？
昨日久々に千鬼入りましたが閉店になってしまいました。

埋める場合は↓これでよろ容量OVERでそのうち落ちる

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

乞食どもは、このスレがあると飢え死にするみたいで
必死だね。

たぶん、向こうに張りついてる一人の仕業なんだろうが・・・。

ID:To0u/1sH　荒らしとして通報しておきました。

ID:j2Pe5UqP 荒らしとして通報しておきました。

乞食どもは、このスレがあると飢え死にするみたいで
必死だね。

たぶん、向こうに張りついてる一人の仕業なんだろうが・・・。

埋める場合は↓これでよろ容量OVERでそのうち落ちる

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

このスレは削除される事で承認されたみたいなので下記の本スレへどうぞ

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

>>179
適当なこと言うなよ。
そんなにマクロが欲しいのか？ｗ

このスレは削除される事で承認されたみたいなので下記の本スレへどうぞ

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

匠台公園で日向ぼっこでもしてた方が良いじゃまいか？

>>172
マッハみたいにＲＥＧ中だけにＡＴの抽選規約が有る場合は有効

クレクレの低脳が、あっちで餌貰えなくなったから
必死で誘導していますな。

>>184
もう全てが君の自演と思うことにしている。

ID出るから専ブラならNG指定でスッキリ。無能のクレクレが何しようと無駄だわｗ

>>186
おまえ・・・
そういう発言は痛いぞ
専ブラらでもアボーン出来ない時は出来ない

あっそ、んじゃお前も消すわｗ

>>187
ｸﾚｸﾚ君は帰れ
己の無能さをさらけ出して恥ずかしくないか？
普通にあぼーんできますが何か？

専ブラら(笑)じゃあぼーんはできないな

>>188
馬鹿だねお前

>>188
馬鹿だねお前

>>188
いやちょっとネジが外れているというか・・・・

人のやさしい忠告を・・・・

>>188

アホだね

早くｸﾚｸﾚ

>>188　逝ったら？

>>188　お前早くうｐしろよｗｗｗ

いきなり鬼武者の目押しループが抜けなくなた；
何故？

おお、レス番飛ぶ飛ぶｗｗ 何もIDや酉でなくても幾らでも消せるんだよ。
顔真っ赤にして荒らしてなはれ。

ＩＤも顔も真っ赤な>>188が↓

>>199

お前の強がり面白い、もっと言ってくれｗｗｗ

ID:TGqpyOCN　を観察するスレに変わりましたｗｗ

どうぞ　ID:TGqpyOCN　の燃料投下があります。


↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

池沼観察はらいてーｗｗｗｗｗｗｗｗｗｗｗ

いっけねぇ、俺こっちの住人じゃなかった

あっちに戻るわ

>>198
俺もこれで抜けなくなってる

Procedure Oni3_DDT()
L=PeekColor(225,595)
M=PeekColor(287,595)
R=PeekColor(348,595)

ifb ((L and $FF) < 240)
sleep(0.1)
repeat
A=PeekColor(134,357)
sleep(0.01)
until ((A and $FF) > 180) and ((A and $FF00)/$100 < 50) and ((A and $FF0000)/$10000 < 50)
sleep(0.01)
Kbd(VK_LEFT, DOWN,0)
Kbd(VK_LEFT, UP,50)
print " DDT　左 "

elseif ((L and $FF) > 100) and ((M and $FF) < 100)
Kbd(VK_DOWN, DOWN,50)
Kbd(VK_DOWN, UP,50)

elseif ((M and $FF) > 100) and ((R and $FF) < 100)
Kbd(VK_RIGHT, DOWN,50)
Kbd(VK_RIGHT, UP,50)

endif

fend

>>190-197
>>200-205
これ全部自演だろ？ID変えて大変だな…。
ある意味乙。だがあっちにいてくれｗ

>>207
お前遅いっつうのｗｗ

目押しループが抜けない・・・ﾘｰﾙ回転中に抜けないなら色指定甘くしてみれば？
突然抜けなくなるっての、なんだか釈然としないけどなぁ・・・

ﾘｰﾙ止まってるのに目押しループ入ってて延々・・・ってのも、
原因は色々考えられるんだろうな。
漏れには「これだ！！」と指摘できるものはない。

どちらにせよ、一定回数で目押し失敗Break張ればとりあえず
応急処置として止まることはないから、漏れはそれで誤魔化してる

a = 0
repeat
　Sleep(0.01)
　a = (a + 1)
　ifb (a > 600) then
　　Print "通常時目押し失敗break"
　　break
　endif
　C = PEEKCOLOR(213,356)
until ((C and $FF) < 55)

１　ライコネン
２　マッサ
３　ハミルトン
４　クビサ
５　ハイドフェルド
６　フィジケラ
７　アロンソ
８　バトン
９　ロズベルク
１０ラルフ　　　　　１６たくま

このスレは削除される事で承認されたみたいなので下記の本スレへどうぞ

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

マクロ起動してアラジンＡで使うと押し順無視する・・・

>>212
ヘボいマクロですね。

どんだけ〜

あんまりマクロについて知らないんで･･

>>214
>>211のスレにくれば教えてやる

>>212
ただの連打マクロなんでは？
聞いてもわからんか・・・

>>212
>>211のスレはクレクレ専用スレです。貰い物であれば
あちらへどうぞ。

もし勉強したいのであれば、UWSなのかVBなのか
どの部分がおかしいと思うのかここで具体的に挙げてみて下さい。

216>>
あ、すこし変えてみたらできました

UWSCを勉強しようと思うんですが、
どこかお勧めのサイトとかありますか？
あと、exe化はフリーソフトでは、できないのでしょうか？

>>219
巣に帰れ

>>219
一通りヘルプ読んで「UWSC」「解説」とかでぐぐって自分で探せよ。
拾ったマクロに使われてる単語で意味や使い方を知りたいのがあれば
「UWSC」「（単語）」でぐぐったりとか、やり方幾らでもあるだろ？
そんなしてこんな所で叩かれ覚悟で聞かなくてもすぐ思いつくよな？
うみうみ屋のページのPro版機能の特色でexe化が紹介されている、って事は
それがフリー版ならどうなのか、とか、ここで一々聞かなければわからんのか？
何でも人に聞いて近道しようとするなよ。一人で始める事が一番の近道だぞ。
頼むからもう少し頭使って生きろ。

221 名も無き冒険者[sage] 2007/07/02(月) 20:41:08 ID:Qy6WO3op
>>219
一通りヘルプ読んで「UWSC」「解説」とかでぐぐって自分で探せよ。
拾ったマクロに使われてる単語で意味や使い方を知りたいのがあれば
「UWSC」「（単語）」でぐぐったりとか、やり方幾らでもあるだろ？
そんなしてこんな所で叩かれ覚悟で聞かなくてもすぐ思いつくよな？
うみうみ屋のページのPro版機能の特色でexe化が紹介されている、って事は
それがフリー版ならどうなのか、とか、ここで一々聞かなければわからんのか？
何でも人に聞いて近道しようとするなよ。一人で始める事が一番の近道だぞ。
頼むからもう少し頭使って生きろ。

222 ：名も無き冒険者：2007/07/02(月) 20:43:09 ID:q/GX98ux
221 名も無き冒険者[sage] 2007/07/02(月) 20:41:08 ID:Qy6WO3op
>>219
一通りヘルプ読んで「UWSC」「解説」とかでぐぐって自分で探せよ。
拾ったマクロに使われてる単語で意味や使い方を知りたいのがあれば
「UWSC」「（単語）」でぐぐったりとか、やり方幾らでもあるだろ？
そんなしてこんな所で叩かれ覚悟で聞かなくてもすぐ思いつくよな？
うみうみ屋のページのPro版機能の特色でexe化が紹介されている、って事は
それがフリー版ならどうなのか、とか、ここで一々聞かなければわからんのか？
何でも人に聞いて近道しようとするなよ。一人で始める事が一番の近道だぞ。
頼むからもう少し頭使って生きろ。

>>219
俺は真っ黒関係の過去ログを読み漁って組めるように
なりましたよ。（途中からVBに走りましたけど）

DAT落ちしてても見れるサイトはあるので、色々探して
見て下さい。とにかく真似することが近道だと思います。
やる気があるなら頑張ってみて下さい。

>>220-222
調べ不足でスンマソ。
１からのスタートなんで調べても、ちんぷんかんぷんで、
皆がどうやって勉強したのかなと、思って。
やめろと言われそうだけど
もっと勉強してきます。失礼しました

このスレは削除される事で承認されたみたいなので下記の本スレへどうぞ

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

このスレは削除される事で承認されたみたいなので下記の本スレへどうぞ

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

このスレは削除される事で承認されたみたいなので下記の本スレへどうぞ

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

このスレは削除される事で承認されたみたいなので下記の本スレへどうぞ

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

削除されるまでこのスレはクレクレ乞食スレにしましょう。

下記のスレは有益なマクロを書き込むスレです。非表示IDなので法措置が困難なので
どんどん書いてもかまいませんよ。

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

削除されるまでこのスレはクレクレ乞食スレにしましょう。

下記のスレは有益なマクロを書き込むスレです。非表示IDなので法措置が困難なので
どんどん書いてもかまいませんよ。

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

削除されるまでこのスレはクレクレ乞食スレにしましょう。

下記のスレは有益なマクロを書き込むスレです。非表示IDなので法措置が困難なので
どんどん書いてもかまいませんよ。

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

削除されるまでこのスレはクレクレ乞食スレにしましょう。

下記のスレは有益なマクロを書き込むスレです。非表示IDなので法措置が困難なので
どんどん書いてもかまいませんよ。

http://game11.2ch.net/test/read.cgi/mmosaloon/1183025476/

規制通報するぞ

>>225
漏れは最初は他人の書いたマクロの解読から始めたよ
分からない構文はググってググってググｯたよ
まぁ、経験者からみれば大体はUWSCのヘルプみれば
分かりそうだけど、分かりやすく解説してるサイトが
あったんでそれに頼ったなぁ

最初の壁は((PEEKCOLOR(x,y) and $FF00) /$100 >200)だな
過去スレにも何度も詳しく書かれてるんでがむばれ
検索ヒントはビットマスク、論理演算、RGB値、16進法あたり？

ID:/u38Fu4O
必死すぎてキモイ。
勝手にあっちのスレいってろってｗ

PEEKCOLORは俺も悩んだ。

PEEKCOLORが返す値は、青で１バイト、緑で１バイト、赤で１バイトの計３バイト。
この３バイトから、目的の１バイトを取り出すには・・・って考えれば判るかな。

VBで、通常の精算ボタンで精算したいのですが
（Esc押下した場合のダイアログではない）
SendMessage等で出来ますか？
精算ボタンのハンドルがあればそれを調べれば
行けそうですけど、どうやって調べればいいのか…。

>>238
Windowsハンドルや、ボタンの定義名はうさみハリケーン使うと判ります。
ちなみに清算ボタンは「ボタン」では無いようなので、マウスクリックさせないと駄目っぽいですね。

>>239
回答有り難うございます。あれからVB付属のSpy++で調べて
みたんですが、見つからなくて困ってました。
まぁボタンじゃないとの事なので当然ですけど…（汗

うさみみハリケーンはそんなことも出来たんですね。今度やってみます。

で、マウスクリックですが、UWSなら簡単に出来そうですけど
VBだと相対座標でのクリックが自身のコントロールやフォームでは
簡単そうだったんでうが、違うハンドルでの相対座標は思ったより難しくて
困ってます…orz
今更UWSに乗り換えたくはないですが、悔しい所ですね。。

>>240
GetWindowRect(hWnd, lpRect)
SetCursorPos(lpRect.Left + X, lpRect.Top + Y)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
でどう？

>>241
完璧です。悩み続けていたので、あっさり解決されて
びっくりしています…orz

自分まだまだですね。有り難う御座いました。

Procedure kyojin3()
　
ifb (peekcolor(88,526) and $FF) < 200 and_
(peekcolor(423,526) and $FF) > 200 then //BET判定
　　　sleep(0.01)
Kbd(VK_3, DOWN,50)　　// MAXBETが3以外の場合は変更
Kbd(VK_3 , UP,50)　　// 上を変更時は同様にここも変更
sleep(0.3)

　elseif (peekcolor(88,526) and $FF) > 200 then
sleep(0.01)
Kbd(VK_UP, DOWN,50)　　// レバーONが↑以外の場合は変更
Kbd(VK_UP , UP,50)　　// 上を変更時は同様にここも変更
sleep(1.3)

elseif (peekcolor(328,533) and $FF0000)/$10000 > 230 and_
(peekcolor(117,516) and $FF) > 200 then
sleep(0.01)
BIG_kyojin3()//BIGですか？

else
Kbd(VK_space, DOWN,50)
Kbd(VK_space, UP,50)
sleep(0.2)
endif
fend


BIG中、3連７目押ししてくれません
どうすればよういでしょうか・・・

BIG_kyojin3()はどうした？

クレクレ丸出しﾜﾗﾀ

>>244
あれですか？

ちょっと面白いなこれｗ

凄い初歩的質問で申し訳ないんですが
マクロってエクエル必須ですか？

ﾇﾙﾎﾟですか？

ｶﾞｯてんだ親方!!ヽ(`Д´)ﾉ

クレクレ君のマクロはトレードＸにしてないと
トレードキャンセルで止まるよね！
さて・・。複垢でトレキャンしまくるか！

今更かもしれませんが、サイドラはナビの処理だけでＯＫですか・・？
サラ金みたいに、ＡＴ中ナビ無しで目押し処理必要ですか？

ナビ処理だけで良いと思いますよ。
ナビ無し処理が必要なのはサラ金、アラA、マッハって所かな？

>>253
では、簡単な部類ですね。
有難う御座いました。

黄金も確かそうだけど、リプ外しは入れた方がいいかもね。頑張って。

クレオ４階でarami○★ていうのとmiyab○1017が１時間おきにただいまマクロで○時間放置中！通報しました
てフロチャに垂れ流してるんだが

旋風下さい

ネオ様、猛獣マクロ放置で６時間経過

ご苦労様ですｗ

【出】氏が復活したね・・・・・
出てきた当初からメール送信マクロをペタペタはったりして、
非難されてたけど、相変わらずだね・・・・

>>259
そりゃ結構毛だらけ猫灰だらけ、おけつの周りは糞だらけ

age

こっちは過疎ってて元気ないなぁ・・・新スレたてようぜｗ

UWSCのVer4.3.2.1に変えたらヘルプが開かないんですが。

>>262
それだけクレクレ君しかいないって事だろう。
こっちはこっちでまったり進行してます。

>>263
HELPファイルのプロパティ開いてブロック解除汁

>>265
ありがとう。無事開けました。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

100氏は引退したのかなぁ？
422氏も最近顔出さないな、猛獣exeの修正で忙しいのかw

そんな事より見てくれよ

この美女、めちゃくちゃかわいい顔しているのに
歯に青のりが付いているんだよｗｗｗ
http://atashi.com/imgbbs/flash/img-box/img20060123160113.swf

>>268
まじで市ねくそが！

サイドラのＢＩＧ中処理を考えてるのですが、７セグ無いのでちょっと悩んでます。
自分でカウンター作って処理するしか無いですか？

ランプも点滅しているし、少なくとも自分は諦めました。
7セグあると簡単なんですけどね。無いのはサイドラだけかな…？

カウンター使って作ってるんですが、ＢＩＧ中の判断も微妙・・^^;
ゲーム数が表示される赤いところ取ろうと思ったんですが、グラデーションしてて安定しないし・・
どこを取れば良いでしょうか・・？

待望の新スレです。サミタの皆様にはまたお世話になりますが、お引き立てのほど宜しくお願い致します。

http://money6.2ch.net/test/read.cgi/pachik/1183972298/

カウンターってこんな感じ？

順押し１回ごとに　変数+1
JACIN（リプ）１回ごとに　変数+100
変数＜２００　は普通に順押し
２００≦変数≦２１９　はリプハズシ
変数≧２２０は順押し

色とるより楽かも

ループで回してたらめんどくさそうだけどな。

>>270
おいらは、液晶の”BIG　BONUS IN”を2点で判断して、
カウンター始動させてます。

いい方法かどうかはわかんない。

ネオプラ出たらマクロ組めるんだろうか・・・・・・
ハズシが絶望的な悪寒

パチインテリ、狙いどころが完璧じゃない機種があるな
俺のマクロの方が３０％くらい回転数稼いでるｗ

>>278
マクロ使いなのにWAT買ってんのかYO！

パチ勲章２倍と対応バッジ、それと各機種IA（どこを狙ってるのか見るため）に買ったんだYO!

マクロで万枚みたいにＲＢ狙って外れたら次のゲームはＢＢってどうやるんだろう？
昨日見よう見まねで作ってみたが全く駄目だったｏｒｚ

ifb ＲＢボーナス目押し

elseif 全ボタン無効
ifb　コイン投入

elseif レバーオン

elseif ＢＢ目押し

このスレ位読もうね。

>>281
フラグを１個用意

ifb フラグ=0 then
RB目押し
フラグ=1
else
BB目押し
フラグ=0
endif

フラグは当然、パブリックね。

>>281
発想が面白いと思った
RBとBBの目押しをワンセットにするわけだな

BONUS確定察知、RB目押し試行後
ifb RB揃った？
　JAC処理()
elseif
　BB目押し
endif

まぁ、>>283がスマートだけどね

パチンコマクロでとめ打ちさせる場合

DL=peekcolor(183,224) //保留４
DM=peekcolor(437,603) //打ち出し状態
DC=peekcolor(605,286) //大当たり判定用

ifb (DL and $FF) > 240 and_
(DM and $FF) > 100 and_
(DC and $FF00) / $100 > 70 then
Kbd(VK_DOWN)

連打してしまって玉が止まりません
どうしたら良いのか御教授お願いします。。

>>285
ｸﾚｸﾚなおいらは、常にハンドルを表示させた状態にしてます。

>>286
ハンドルは表示させています
保留を消化するまで処理をとめる事は出来ないのでしょうか

参考になるか分からないけど、おいらの寿司猫
elseif (PeekColor(706, 492) and $FF0000) / $10000 > 11 then
　　　　Kbd(VK_RIGHT, DOWN,10)
　　　　Kbd(VK_RIGHT, UP,90)
elseif (PeekColor(708, 493) and $FF0000) / $10000 < 10 then
Kbd(VK_LEFT, DOWN,50)
　　　　Kbd(VK_LEFT, UP,50)
elseif (PEEKCOLOR(663, 321) and $FF) < 200 and _
(PEEKCOLOR(663, 341) and $FF) < 200 then
chousei()
else
atari()
endif
fend
Procedure chousei()
elseif (PEEKCOLOR(360, 309) and $FF) > 200 and _ //点いてる保４
(PEEKCOLOR(660, 611) and $FF) > 170 then //打っていれば
Kbd(VK_DOWN, DOWN,50)
　　　　Kbd(VK_DOWN, UP,50)
elseif (PEEKCOLOR(360, 309) and $FF) < 120 and _ //消えてる保４
　 (PEEKCOLOR(660, 611) and $FF) < 120 then //止まっていれば
Kbd(VK_DOWN, DOWN,50)
　　　　Kbd(VK_DOWN, UP,50)
endif
fend
Procedure atari()
ifb (PEEKCOLOR(660, 611) and $FF) < 120 then //止まっていれば
Kbd(VK_DOWN, DOWN,50)
　　　　Kbd(VK_DOWN, UP,50)
endif
fend

あぁ〜　ここ、スレ違ったぁぁぁ

先生方、大変申し訳ありませんでした。おいら達のｸﾚｸﾚスレと勘違いしてました・・・

いいんだよ

>>287
左の窓（アイテムとか有る窓）が出てるんじゃない？

待望の新スレです。サミタの皆様にはまたお世話になりますが、お引き立てのほど宜しくお願い致します。

http://money6.2ch.net/test/read.cgi/pachik/1183972298/

ﾏﾀﾞｰ?

そろそろ、クレクレ卒業しようと思ってソース覗いてたんだが・・・。
sleep(Random(2))←みたいのって0.1秒単位でランダムにしてくれるの？
それとも0or1or2秒みたいな感じ？
どうかお教えください・・・。

何のソース除いたのかしらんけど、UWSのヘルプに書いてある。
Randomで探すと良い。クレクレ卒業したいならそういう所から
始めましょう。

ifb インサート点灯
　　コイン投入ボタン押し下
elseif スタート点灯
　　レバー押し下
elseif ナビあり
　　ナビ処理

　　
このような流れでマクロ組むとCPUの使用率が跳ね上がるのはどーしてですか？
　

問題が抽象的過ぎて分かりません。
違う流れで組めば跳ね上がらないんでしょうか？

よくあるのが色取得の為のループ中にSleep入れてないと
CPU使用率が上がりますが。

どういう流れであれ、たかがスロのマクロでCPU使用率が著しく上がるのは
uwscにおいて無駄な処理が大量に発生しているから

特にPeekcolorとPrintは連続で大量に処理させると重く感じるので
CPUに負荷をかける処理なんだろうと思います
ただ、Printは動作確認後消せばいいので、作成段階では要所要所に入れるべき

ifb インサート点灯
　Print "insert"
　コイン投入ボタン押下
　Sleep(0.01)
elseif

と、いちいちPrintすれば理由が判るかもしれないですよ

例えばレバー押下からボタン有効になるまでの
ウェイト中、何回ループしてるのかとか見れば、
レバー押下後どれくらいSleep入れればいいのか分かります

誰かアイテム袋連続開封マクロいる？
今のところ開けるだけだが、本当は５０００枚勲章出た時点で止めたいが
５０００枚勲章券を見た事もないので手の打ちようがない。
誰か５０００枚勲章の絵うっｐ頼む

ここでマクロ論議してる人が、アイテム買ってるとも思えないけど。

確かに。マクロまかせで動かすだけなので
アイテム買おうとは思わないですね〜。

っていうか、ガチャなんて開ける瞬間が楽しくてみんな買ってるんじゃないのか？
もはや、行き着くところに行くと
開封結果だけ見て満足すると言うことなのか？

しかし、これってスロのマクロも同じだな・・・。

だがしかし、スロの結果はマクロの性能が関係する部分があるが
ガチャの開封結果にはマクロは一切関係しない。

よって、同様の議論は成り立たない。

糸冬

ガチャ開封マクロ・・・・
とうとうそんなもんにでもマクロを使うか・・・・
どんだけ低脳化しつつあるんだよ・・・・

第一そんなもん画像が無くたって作れるのに・・・・・・
文字情報拾って来れば・・・・
低脳マクロで少しは頭を使えばいいものを・・・・・
どんだけ・・・・

>>302=303
意味が分からん。
そもそも議論なんかしていないしｗ
マクロは作るのが目的＆楽しいのであって、結果はおまけ。

マクロ作る側の人間じゃないでしょ。

もちろん、マクロを作る楽しさは否定しないが、一般的に
ガチャ開封マクロを作って動かす楽しみ＜ガチャを自分で開封する楽しみ
ではないかと。
その理由は、マクロの性能が反映される物がないから。
よって、マクロ作成の意欲に結びつかない。

だから、ガチャ開封マクロ作って動かして、楽しいのかなと思ったわけ。

で、スロのマクロはどうかというと、長時間稼働という条件を付けた場合
スロマクロを作って動かす楽しみ＞スロを自分で回す楽しみ
ではないかと。

その理由は、自分の作ったマクロの性能が結果（出玉等）に結びつくから。
よって、作成意欲に結びつく。
だから、作って楽しい。

そろそろスレ違いだからこれで最後。

そう思うことはあなたの自由であり、開封マクロを
作るのは>>299の自由。>>誰か５０００枚勲章の絵うっｐ頼む
というのが気にくわないならスルーすればいいだけ。

>>303はツンデレ

>>300
アイテムに価値観を抱かないからマクロに走るのでは、経済的余裕無しとも
取れてしまうが、たかだか数千円から数万円、きっと買っているさ。
第一マクロを書ける物が、サミタごときのお金にならない物だけに使っている
わけないと思うが。

俺はアイテム購入にかれこれ４０万以上使っていますが？
何か問題でも？？？
マクラーレンでもありますが？
何か？

別に何も。

ここも過疎ったな

一先ずageとく

VBで自動ログイン処理を作成しているのですが
ログインIDとパスワード入力のところで悩んでます

UWSCのSENDSTR関数みたいにそれぞれのテキストボックスを指定して
文字列を入力するにはどのような関数を使用すればよいでしょうか？

>>313
１．入力欄のハンドルを取る
・GetWindowPos
・WindowFromPoint
２．文字を入れる
SendMesseage　or　SetWindowText

俺は入力欄のハンドルが取りようがなかったから
GetWindowNext（NextWindowだっけ)使って取得したよ。

位置は変わらないみたい。

>>314
１．入力欄のハンドルを取る
・FindWindowEx→ログインウインドウのハンドルを取る
・GetWindowPos →ログインウインドウの位置を調べる
・WindowFromPoint →入力欄（GetWindowPosからの相対位置を指定）のハンドルを取る
２．文字を入れる
SendMesseage　or　SetWindowText→指定したハンドルに文字を入れる

>>314>>316さん
今、途中まで試して見ましたがID入力の方はログイン画面の(113,48）辺り
を指定という感じですね

>>315さん
GetNextWindowですね
FindWindowExとは別に利用するのですか？

どうもありがとうございます
また夜の作業時に戻ってきます...

>>317

hwnd = FindWindowEx(0, 0, vbNullString, "ログイン")
hwnd2 = FindWindowEx(hwnd, 0, vbNullString, "ログイン") 'ログインボタン
hwnd3 = GetNextWindow(hwnd2, 3) 'Password欄
hwnd4 = GetNextWindow(hwnd3, 3) 'ID欄

SendMessage(hwnd, WM_ACTIVATE, 0, 0)

SendMessage(hwnd4, EM_SETSEL, 0, -1)
SendMessageStr(hwnd4, EM_REPLACESEL, 0, id)
Sleep(150)

SendMessage(hwnd3, EM_SETSEL, 0, -1)
SendMessageStr(hwnd3, EM_REPLACESEL, 0, pass)
Sleep(150)

SendMessage(hwnd2, BM_CLICK, 0, 0)
System.Windows.Forms.Application.DoEvents()

答えになってしまって申し訳ないけど、うちはこうしてます。
Spy++で見れば分かると思いますが、ID、Passの入力欄は
EditControlの為、キャプションが無くFindWindowで探せないため
最初にログインダイアログのハンドルを取得後、ログインボタンの
ハンドルを取得し、そこから順番にGetNextWindowを使ってID欄
Pass欄のハンドルを捕まえてます。
ちなみに、3で指定したハンドルの前のウィンドウハンドル、2で
次のウィンドウハンドルを取得できるようです。

参考にさせていただきました。
これまで、keybd_event でしこしこ入力させてたのですが、早速書き換えました。
本当にありがとうございました。

アレジンのハンドル調整がスムーズに出来なくなったのは私だけですかね？
それ浜、エキサイトは問題ないんだけどなぁ

>>320
猫もそうだった。私だけかも？
ｱﾚｼﾞﾝは最近やってないのでわかりません。

北斗２インスコして起動しても、
「ARB_texture_compression extension was not found」
ていうエラー出てプレイできません。
誰か解決策わかりませんか？

お前のクソPCではできませんよｗｗｗ

っていわれているんですよ。

クレクレだけど質問してもいいですか？

>>324
いいよ

どうしたらクレクレ成功しますとか？

お言葉に甘えまして質問します
獣王で目押しを無視してしまう場合は下の3点の調整で改善されると思いますか？
�@座標
�A色
�BSLEEP
よろしくお願いします

>>326
目押しを無視っていうと
獣王の場合はNaviも全部純押しだから
単に色が正しく取れてないと思われる

色が正しく取れてない理由は
�@座標のずれ（ほぼ有り得ない）
�A色の指定範囲にずれ（意図しない図柄を取っちゃった）
�BSleepはほぼ関係ないと思われる　
あまり短すぎるといけないのでSleep(0.3)であれば確実にSleepの問題じゃない

>>327
色の指定範囲をもう一度見直してみます
獣王のスクショを撮ってきたので、色が正しく取れてない理由の�Aに注意してやってみます
分かり易い解説有難うございました
スレ汚しすいませんでした。

そういう質問自体、人からのもらい物のような気がするけど
もし人からのもらい物だったら、Sleepである絵柄からの調整している
場合もあるので、要注意。

せめて、ナビを無視するのか目押し位置がずれるのかくらい自分で調べて欲しい所だな。

皆さん
助言ありがとうございます
お察しの通り頂き物のTHSDです
細かく調べてから相談しないと駄目ですね
メンテ明けにサバンナチャンス引いて試します

質問なんですが、

for i=0 to 50
sleep (0.01)
if (PEEKCOLOR(X,Y) and $FF) < 200 then Break
next
ifb (i = 51) and_
(Peekcolor(X2,Y2) and $FF) > 200 then
はずし()

とした場合、0から50数える間に（X,Y）の赤が200以下の場合処理抜け
数えきって（X2,Y2）の赤が200以上の場合は、はずし（）へ
という解釈であっていますか？
またfor i=0 to 50はどれぐらいの時間でカウントしているんでしょうか？
直下のSleep(0.01)内でカウントしているんでしょうか？
すいませんが、お教え願えませんでしょうか。

>>332
for i = 0 to 50
　　Sleep(0.01)　//待機
　　if　　・・　　then　　break　　for〜iを抜ける
next

待機以外の処理時間はほぼ無いものだと思ってもいい
時間は　breakがかからなければ　0.01 x 50 回　+　0.0x秒ぐらいとでも

処理が抜けきらなくても、Breakで抜けるけど

ifb (i=51) then
に行くんだけど、どうやってもこのif文の中の処理には入らない

i は50まで加算されるけど、それ以上は加算されない
もし書くのであれば　i = 50 が正しい

本来の書き方は　

OKFLG = false
for i = 1 to 50
　　ifb (PeekColor(X,Y) and $FF) <200 then
　　　　OKFLG=true
　　　　break
　　endif
next

if (OKFLG) then
　　次の処理
endif
endif

>>333さん
ありがとうございました。
For i = 0 to 50はてっきり0から数えはじめ、50まで
0.1.2.3.......50になるもんだと思っていました。
大変わかりやすく解説いただきありがとうございました。
これで前に進めそうです。

連続してPeekcolorするときはSleep推奨　とか
>>332で言う「はずし()」が「次の処理」と逆の条件になってるとか
endifが2つ・・・・とか、なんか細かいところが気になってしょうがない睡眠不足です

>>334
For i = 0 to 50は0から50まで数えるもんです・・・よ
変数iは初期値0から1ループごとに1ずつ、50まで加算されていきます
stepはデフォで1

>>332で間違っているところがあるとすれば、ifb (i=51)の部分
For-Next構文抜けきった?という条件は(i=50)です。
For i = 0 to 50で、iは50以上にはなりません
For i = 1 to 50でも50以上にはなりません

睡眠不足の素人なんで間違ってたら指摘ﾖﾛ

VBの場合、i=51 になり、そのためループ条件からはずれて、ループから抜けるのですが、
UWSCは特別なんですね。

>>336
本当にそうか？
今試してみる

Private Sub test()
　　Dim i As Integer
　　For i = 0 To 50
　　　　Debug.Print("i=" & i)
　　Next
　　Debug.Print("forを抜けました")
　　Debug.Print("i=" & i)
End Sub

i=0
i=1
・・・・
i=50
forを抜けました
i=51

本当だな

UWSC
for i = 0 to 50
　　print "i=" + i
next
print "forを抜けました"
print "i=" + i

i=0
i=1
・・・・
i=50
forを抜けました
i=51

同じ結果だｗｗ　俺が間違ってた
でもさぁ、これ邪道じゃねぇ？強がりじゃなくてｗｗ

forループのカウンタの値で途中でブレークしたか
最後までループしたかを見るのは普通だと思ってたが、
確かに>>333の様にフラグを１つ追加する方法もあるんだ。

余計なフラグは作らないとかってのは
自分を含め、リソースに制限があった世代の古い考え方かもしれませんね。

>>340
失礼しました

あれからコンピュータの中の人の立場に
なって考えたけど、それでいいのかと思うようになってきた

for i = 0 to 50 を人間の文法でよんで
iが0から50まで数えて・・・・処理
だからiは51にはならないとばかり思ってた

でもPCの中の人は、0や50はビットでみてるから
50まで行って処理をして次にもう一回ビットを足して
それが指定ビットの範囲にないことを比較して初めて
理解するんだろうね

僕らは高級言語ばかりやってるから
高級言語は低級言語の関数の寄せ集めだから
中の人はやっぱり低級言語で動いてるんだから
こういうことなんだね

1 i = 0
2 処理A
3 処理中　if x > y then goto 処理B (Break)
4 i = i + 1
5 if i <=50 then goto 1
6 if i = 51 then goto 処理C

昔はフラグなんて無かったといえばそうだった、
余計なフラグは立てない基本なんだろうけど
いまじゃフラグあちこちに立ててるよｗ

↑↑↑↑
やっちゃいました、

無限ループが生まれてしまいましたｗｗ
goto 2 でした

皆さんありがとうございます。

高度すぎて眩暈がしそうですが、結局>>332のような
書き方でも通りそうってことですよね・・・・・・・・・・・・？
通らなければ、終了値を増やしたり、試行錯誤してみます。

過去スレ読みから始まってなんとかここまでたどり着けました。
もうちょっとでハイシオ完成しそうです。
皆様に感謝です。

それと、ハイシオの白７から上って結構なコマ数ベル無いんですが、
取りこぼししないんですかね？スイカと同一フラグなんですかね。
謎の多い台ですが、頑張ってみます。

ハイシオのＤＤＴ作る場合、ベルとスイカは同一なので、
注意点としては、チェリーだけだったと思います。
チェリーを左中段に押すとビタ止まりして２枚損するので、
角チェになるように調整します。

>>341

for は　前判定なので、ちょっと違う

1 i=0
2 処理Ａ
3 if i>50 then 終わり
4 if x > y then goto 処理B (Break)
5 goto 2

>>345
2と3逆だね　すまん

>>345
それじゃぁ無限ループだぞ

>>347
確かに
4と5の間に i=i+1 も忘れてた

>>344
細かなPOINTご指南ありがとうございます。
角チェになるように調整してみます。

こんばんは、>>326のクレクレです
SLEEPはいじらずに中リールと右リールの
色の指定範囲を変えて、座標を少し調整したらうまくいきました
アドバイス有難うございました。

>>350

それあっちの質問箱に修正した箇所載せてあげてよ
みんな喜ぶよ

君がクレクレから　アゲアゲに変身するときが来たんだよ

>>351
分かりました。

>>351
これ本物？
引退したんじゃなかったけ

RhinoPillowって本当に構ってチャンだなｗ
あれだけ一人で空回りしてスレ荒らして場を引っ掻き回しておいて
皆が落ち着いてきたら何事もなかったかのようにのうのうと顔出すなんて
（しかも未だトリップ付コテハンという異常な自己顕示欲ｗ）
どれだけ厚顔無恥なんだよｗもう完全にキチガイｗ

そんなに目立ちたいなら信者が立てた自分のスレで教祖様ごっこしてなさいよｗ
もうあんな騒ぎはごめんだからこっちには顔出さないでおくれｗわかったかなｗ

ﾜﾗいながら注意する人もある意味キチガイっぽいｗ

枕ってランキング載らないってマジですか？

>>356
載るんじゃない？
ただ、載らないようにしてるんじゃない？少なくとも俺はそうしてる
だってあまり目立つと、本当に漂白される恐れがあるからな。もう１回垢作るのは面倒

>>357
なるほど　そういう事か。レスthx!!

>>355
思わず笑った。あわれだよな

Rhino教のクレクレ共はここまで出張して擁護ですか。
こっちはID出るから気をつけろな。

>>360
IDがでるって、おまえに言われなくても
わかるって

1

ume

保守

オークスですけど、大当たり判定は右側のアバターが表示
されているとこのランプで判別するしかないのでしょうか？
電チューが大当たり中のみ点滅するのでそこを１回の処理の
中で３回ほどループさせて色を取得すると、ほぼ100%大当たり
を判定できるのですが、処理が重いのか通常時のデジタル回転が
少しちらつきます。
もう１点、デジタルが回転していない状態では保留ランプが点滅
してしまい、止め打ちがうまくいきません。
どなたかアドバイスお願いします。

>>365
俺はアバで見てる。金カバ使うと簡単に大当たり判定できるよ。
保留に関しては、保３点灯+保４消灯で打ち止め、保３消灯で打ち出しだったかな
オークスに関しては過去スレで色々やったので見てみるといいよ

台枠ランプで取るとリーチでも反応するので、アバで取ってるな。
デジタル無回転時の誤反応は、釘が甘いから無視
それでも勲章は取れてるからｗ

>>366
>>367
座る位置で調整が必要なのが面倒ですが
やはりアバの方がよさそうですね。
たしかにオークスだとデジタル無回転状態はまれ
なので無視してもよいかもしれません。
ありがとうございました。
次はエキサイトにとりかかります。

ウチの環境だと、アバで大当たり判定して23秒ウェイトかけると
インテリと同じ打ち出しになる。
大当たり後の無駄打ちもバカにならんからなぁ

>>366
保３点灯+保４消灯だと、タイミングによってうまくいかないんだよね。
（２箇所とるから）

オレは、オークスは諦めた。

50msタイマで回してるけど誤動作しない
まぁずっと見てるわけじゃないけどｗ

伝承と強敵の大当たり判定はどこで取ればいいのでしょうか？
当たり引けないので分かりません。

アタッカー

>>372
アタッカーの端っこ
玉が良く通る所だと誤動作するから気をつけて。

>>373さん
>>374さん
どうもありがとうございました。
ランプ系にばかり目が行っててアタッカーって頭にもありませんでした。
樹海に入ってしまう所でした。助かりました。
どうも有難うございました。

ガメラのマクロを作ってるんですが、
左側の順押しランプと逆押しランプが点灯してない時は順押し命令。
順押しランプが点灯してる時は順押し命令。
逆押しランプが点灯してる時は逆押し命令。
って感じで作ればいいのでしょうか？

uwsc超初心者なもんでorz
熟練者の方にとっては馬鹿みたいな質問かもしれませんが、
何卒よろしくお願いします

>>376
基本はそれで良いと思うけど、ＪＡＣゲーム中は点滅してたきがするので、
回避処理が必要かと。

超初心者ならその方法では無理だと思う。点滅処理できる？
まずはボーナス中であることを判別できる点を探してボーナスへ飛ばす。
BIG中の背景は逆押し時は夜、順押し時は日中なのでそれ相応の処理をする。

てか過去スレ探せばガメラなんていくらでも出てくると思うけど。
それを参考に組み直しがいいんじゃないかな。

作ってから上手く行かないところを質問した方がいいと思うけど
BIGかどうかは、7セグが付いているかどうか、JAC中かどうかは
2BET目が点いているか点いてないか、BIG中のボーナスゲーム中は
点灯している方だけを拾う。（消灯は無視）って感じで行けるんじゃない？

自分のは過去ログから拾った奴を参考にしたからボーナスゲーム中の判定は
液晶が朝か夜かで判定しているけど、作り直すなら違うアプローチにするかも。

376です
>>377
>>378
回避処理、点滅処理分かりませんorz
過去スレ探して一から作り直します
レスありがとうございました！

>>379
過去スレを参考に作って、うまくいかない所はまた質問させていただきます。
その時ももしよろしければ助言お願いしますm(_ _)m

がんばってね。

>>381
ありがとう、がんばってみるよ












えっ？俺にじゃじゃないの？

いや、お前にだよ。

>>380
点滅処理っていうと難しく聞こえるけど、処理の流れを良く考えて
わざわざ点滅をチェックするような必要が無いフローにすれば
いいと思いますよ。頑張って。

>>383
だって俺初心者じゃないよ
俺、真っ黒介

いや、就職活動か夏休みの宿題を

初めてマクロ組みました。
伝承です。
でも上手く動きません。
自分ではどこが悪いのか分かりません。
観ていただけませんか？
よろしくお願いします

elseif (PeekColor(718, 492) and $FF0000) / $10000 > 11 then
　　　　Kbd(VK_RIGHT, DOWN,10)
　　　　Kbd(VK_RIGHT, UP,90)
elseif (PeekColor(720, 493) and $FF0000) / $10000 < 10 then
Kbd(VK_LEFT, DOWN,50)
　　　　Kbd(VK_LEFT, UP,50)
elseif (PEEKCOLOR(522, 594) and $FF) > 200 then 　 //アタッカーの端っこ--X座標(560)Y座標(594) 総合色(3352308) 赤(244) 緑(38) 青(51)
tsuujou()
else
atari()
endif
fend

Procedure tsuujou()
elseif (PEEKCOLOR(414, 228) and $FF) > 200 and _ //保留4個点灯-------X座標(414)Y座標(228) 総合色(6119167) 赤(255) 緑(94) 青(93)
(PEEKCOLOR(660, 611) and $FF) > 170 then //打ち出し中の時
Kbd(VK_DOWN, DOWN,50)
　　　　Kbd(VK_DOWN, UP,50)
elseif (PEEKCOLOR(414, 228) and $FF) < 120 and _ //保留3個点灯（4個目消灯）-----X座標(414)Y座標(228) 総合色(1711959) 赤(87) 緑(31) 青(26)
　 (PEEKCOLOR(660, 611) and $FF) < 120 then //打ち出ししていない時
Kbd(VK_DOWN, DOWN,50)
　　　　Kbd(VK_DOWN, UP,50)
endif
fend

//大当たり中処理
Procedure atari()
ifb (PEEKCOLOR(660, 611) and $FF) < 120 then //打ち出ししていない時
Kbd(VK_DOWN, DOWN,50)
　　　　Kbd(VK_DOWN, UP,50)
endif
fend

elseif (PEEKCOLOR(522, 594) and $FF) > 200 then 　
//アタッカーの端っこ--X座標(560)Y座標(594) 総合色(3352308) 赤(244) 緑(38) 青(51)
座標あってる？コメントと実際の座標違うけど。

>>390
すみません＾＾；
書き込んでから気づき、修正して試しましたがやはり動きません。

打ち出しはしてくれますが、保留4で止め打ちしません。

北斗で右打ったり左打ったりしてるのは何故？

Procedure tsuujou()
elseif 〜

をifbにしてみるとか

>>392　ホントダｗ

たぶんProcedure Tsuujou()に飛んでないんでしょ。
拾ったものを改良しようという根性は素敵なんで、
もう一回頭から見直して、どこの座標がどうなったときに
何をしているのか理解してそれから組んでみたら？
まずは落ち着いて。

>>392-393
ifbにしてもダメでした＾＾；

ひとつずつひも解き。

elseif (PeekColor(718, 492) and $FF0000) / $10000 > 11 then
Kbd(VK_RIGHT, DOWN,10)
Kbd(VK_RIGHT, UP,90)
elseif (PeekColor(720, 493) and $FF0000) / $10000 < 10 then
Kbd(VK_LEFT, DOWN,50)
Kbd(VK_LEFT, UP,50)

これは何をしたいの？

>>394
右打ったり左打ったりしてますか？
私のPCでは1箇所を打ってるのですが。。。

初めてなんで、1から組むのは絶対無理なんで、拾ったやつを元にすれば
私でもできるかな・・・
っていう安易な気持ちではじめましたが、難しいですね＾＾；

kbdの→や←は触る必要ないから削除して


ifb　　保4点灯　and　打ち出し中　and　アタッカー閉　then　↓押下
elseiｆ　保4消灯　and　打ち出しストップ中　then　↓押下
elseif　保4点灯　and　打ち出しストップ中　and　アタッカー開　ｔｈｅｎ　↓押下

北斗なんてこれで充分だろ？
　　　

パチ知らんので流れってこんな感じ？

�@当たり判定
ifb 当たり then
Atari()
endif

else
Tsuujou()
endif
Fend

�AProcedure Atari()
ifb アタッカーがあいている then
打ち出し
endif

else
打ち出しストップ
endif
Fend

�AProcedure Tsuujou()
ifb 保留4消灯 then
打ち出し
endif

else
打ち出しストップ
endif
Fend

>>398
ああ、それでいいのか。
>>398がすべて。これにて一件落着かな。

パチンコの　↓押下　は何の意味があるの？

皆さん有難う御座いました。
要領がなんとなく分かったのでやってみます。
有難う御座いました。

>>401
ストップボタン押下

ﾊﾟﾁﾎｸﾄ
Procedure pati()
ifb (peekcolor(846,230) and $ff) > 200 THEN
pati1()
else
pati2()
endif
fend
Procedure pati1()
ifb (peekcolor(409,225) and $ff) > 220 THEN
pati4()
elseif (peekcolor(409,225) and $ff) < 150 THEN
pati3()
else
sleep(0.1)
endif
fend
Procedure pati4()
MMV(663,536,50)
MMV(663,536,50)
ifb (peekcolor(661,609) and $ff) > 100 THEN
BTN(DOWN,CLICK,50)
sleep(0.1)
else
sleep(0.1)
endif
fend

ﾂﾂﾞｷ
Procedure pati3()
MMV(663,536,50)
MMV(663,536,50)
ifb (peekcolor(661,609) and $ff0000) / $10000 > 100 THEN
BTN(DOWN,CLICK,50)
sleep(0.1)
else
sleep(0.1)
endif
fend
Procedure pati2()
ifb (peekcolor(541,612) and $ff) < 100 THEN
pati3()
elseif (peekcolor(380,225) and $ff) < 200 THEN
pati3()
else
pati4()
endif
fend

なげーよ

ﾎﾝﾀｲ
TOWN_ID=GETID("777タウン.net")
ACW(TOWN_ID)
MOUSEORG(TOWN_ID)
While True
　　　if GETKEYSTATE(VK_BACK) then exit
　　　Select Status(GetID(GET_ACTIVE_WIN), St_Title)
Case "確認"
Clkitem(GETID("確認"),"閉じる")
Case "オートストップ"
Clkitem(GETID("オートストップ"),"続行")
Case "玉をチャージする"
Clkitem(GETID("玉をチャージする"),"はい")
　　　　Case "ドル箱を下皿に戻す"
　　　　　Clkitem(GETID("ドル箱を下皿に戻す"),"はい")
　　　　Case "777タウン.net"
　　　　　pati()
　　　Selend
Wend

ｸｳｷﾉﾖﾒﾅｲｵﾚｶﾞｷﾏｽﾀﾖ

>>396
その部分は、おいらが書いたものだと思う。　なに用か分からないけど
一応、打ちだしポイントの固定が目的。強弱のゲージがＸ軸の719に合わせてるみたい。
ハンドルが見えてるのが条件ね。隠れると問答無用で右打ちする。

>>409
エキサイトじゃないか？
Procedure tsuujou()使いもｵﾏｲだろ？

>>410
ゴメソ・・・間違いない。

>>411
いや、貼られたモノから座標を頂いて、ハンドル固定と止め打ちを削除したモノを
作ったから覚えてたのさｗ

>>412
少しでも役にたったのなら、良かったよ♪いつもは貰ってばっかりだから・・・（汗
じゃ、おいらは巣にカエルお。

404のって動くの？

>>409さん、ご迷惑をお掛けしてすみませんでした。

>>398さんのご意見を基に書き直したのですが、どうしても
「Uスクリプト：ELSE：Ｓｙｎｔａｘｅｒｒｏｒ　35行目：IFB」
と、エラーが出てしまいます。どこがおかしいのでしょうか？

//１．通常時で保留４点灯　→はい（止め打ち実行）　→いいえ（２へ）
ifb
(PEEKCOLOR(409, 226) and $FF) > 230 and _ //保留4点灯
(PEEKCOLOR(660, 611) and $FF) > 170 and _ //打ち出し中
(PEEKCOLOR(514, 592) and $FF) < 200 then //アタッカー閉
Kbd(VK_RIGHT, DOWN,10)
Kbd(VK_RIGHT, UP,90)

//２．通常時で保留４消灯で止め打ち中　→はい（打ち出し開始）　→いいえ（３へ）
iｆb
(PEEKCOLOR(409, 226) and $FF) < 120 and _ //保4消灯
(PEEKCOLOR(660, 611) and $FF) < 120 then //打ち止め中
Kbd(VK_RIGHT, DOWN,10)
Kbd(VK_RIGHT, UP,90)

//３．大当たり中に止め打ちしている　→はい（打ち出し開始）　→いいえ（１へ）
elseif
(PEEKCOLOR(409, 226) and $FF) > 230 and _ //保4点灯
(PEEKCOLOR(660, 611) and $FF) < 120 and _ //打ち出しストップ中
(PEEKCOLOR(514, 592) and $FF) > 200 then //アタッカー開
Kbd(VK_RIGHT, DOWN,10)
Kbd(VK_RIGHT, UP,90)
endif
fend

//２．通常時で保留４消灯で止め打ち中　→はい（打ち出し開始）　→いいえ（３へ）
のiｆbをelseifへ変更しましたが、まだ同じエラーが出ます。

>>416
35行目がどの部分かがわからんよ
後、RIGHTって→キーを押してるの？
北斗なら下DOWNでは？
それと
ifb
(PEEKCOLOR(409, 226) and $FF) > 230 and _ //保留4点
てあるけど、
ifb 改行はもちろんエラーでるよ
正確には　ifb (PEEKCOLOR(409, 226) and $FF) > 230 and _ //保
↑スペース１こ

それと
ifb (ほにゃらら
ifb (ほにゃらら
はエラーでるよ
ifb (・・・・・・・・
つぎはelseifにしないと
endif付けるならおｋだけどね

なんだかif文の流れを勘違いしているような。
ifb　A　then
　Aだったときの処理
　ifb　a　then
　　Aかつaだったときの処理
　else
　　Aだけどaでなかったときの処理
　endif
elseif　B　then
　AではなくBだったときの処理
elseif　C　then
　AでもBでもなくCだったときの処理
else
　AでもBでもCでもなかったときの処理
endif

ここで大事なのは判定してる順番。
AかつCだった場合、Aで引っかかってしまうので
Cだったときの処理には入ってきません。
４２２氏がよく言ってたこの処理を理解しましょう。

きっとID:Q7SzVepeは動かない＆エラー出まくりで
とっくに投げ出して寝てるよ

激しく>>420さんお節介乙だなｗｗｗｗ
ID:Q7SzVepeも作ろうとせずにクレクレ言ってればいいのにｗ

>>372
頑張って動くの作れば、保４判定座標と大当たり判定座標変えるだけで
寿司以外全デジパチ対応になる

つか北斗は過去スレに動くの貼ってある

色判定について教えて下さい。

例）
(PEEKCOLOR(409, 226) and $FF) > 230

上記によくある「230」の箇所はどういう意味の数字なんですか？
ここさえ分かればマクロを組めると思うんですが・・・

>>423
色数値16進法の　0〜FＦ　10進法にすると　1〜255

$FFでビットシフトしてる、16進法を10進法に直してる。
ビットシフトなんぞ別に理解しなくてもいいから

色数値とおもってればOK

訂正　1〜２５５じゃないや、　0〜255

>>424
ってことは230（E6）がどういう色かってのを理解しておかないとだめなんですね？
ありがとうございました。

(PEEKCOLOR(409, 226) and $FF) > 230
まず分解して覚えよう
(PEEKCOLOR(409, 226)　＝　座標（409,226）
and $FF　＝　$FF（赤）が
>230　＝　230以上

同じ位置の緑の場合
(PEEKCOLOR(409, 226) and $FF00)/$100 > 230
同じ位置の青の場合
(PEEKCOLOR(409, 226) and $FF0000)/$10000 > 230

これがわかって、>>420のifb〜elseifがわかれば基礎はできた。
あとは過去スレのソースとかを見てわからない構文（？）はヘルプを見れば
ある程度のことはできるようになる。

はず。

>>427
(PEEKCOLOR(409, 226) and $FF) > 230の
230って色取りした色ですよね？
なんで「>230(230より大きい」って聞いているのか謎ですが、
なんとなーく分かってきました。もうちょっと勉強します。

>>428

(PEEKCOLOR(409, 226) and $FF) > 230　//　$FF　で赤

((PEEKCOLOR(409, 226) and $FF00)　/ $100 ) > 230　//　$FF00/$100　で緑

((PEEKCOLOR(409, 226) and $FF00)　/ $10000 ) > 230　//　$FF0000/$10000　で青

だからそこは　赤が230以上だったらっていう意味、多分ライトが光ったらでしょ

あーなーるほど
230ってのは消灯時の色なんですね？きっと。
で、光るってのは230より大きくなるからこういう書き方なんですね。

>>430
解釈は任せるよｗｗ
やればわかるから

>>430
明るさの度合いが
消灯　0　〜　255　点灯ってことだろ

>>230
読めてきました。
いろいろ実験してみます。
みなさん、ありがとうございました。

>>431 >>432です。
思わず230って書いちゃいましたｗ

過去スレに色と座標の取得マクロあるから探してきたら
おれはアレがないと組めない

>>435
ペイントのスポイト機能で十分じゃない？

MeGaZoom使ってるのは俺だけか

教えてください
家のパソのスペックが低くてスロットができません
ネットカフェとかでも一時的にダウンロードして
遊ぶことはできますか？

>>428
230以上としているのは直接の値で指定すると空振りする可能性があるから。
若干の幅を持たせた方が色を取得しやすい。

>>438
殆どのネカフェは再起動したときクリーンになるから無理。
ＵＳＢにセットアップしておいて持ち込めば或いは可能かも。
ポート閉じてる可能性も強いけど

>>440
なんだかよく理解できないんですが
あきらめます・・ありがと

猛獣王完全.exe
って基本設定どうすればいいのでしょうか？
動きません。

金パルexeあげてくれたら教えよう

UWSC使ってまずファイナルジャグラーのマクロ作成しようと思うのですが
作者のページ見てもなんの言語使っていいのかわからず…
過去スレ参照したほうが早いのでしょうか？

なんの言語て…。uwscでしょｗ
練習するならダブチャレとかのが楽だよ。
ナビ順押し処理の方が簡単。

ここにも夏の熱波が押し寄せてるようだな

>>446
簡単に厨扱いしないでください
こっちも努力しているので
過去ログも見たいので●でも買うかあ

ぼくは努力してるんだぁー！

努力しててあの質問が出るんじゃ、厨以下か。

>>447
何がわかんないか、俺もわかんない

サンプルのマクロはあるのか？

書式・構文は全部UWSCのヘルプにあるぞ
具体的に何が分からんのか言わんと

アラデス、アラチャンLEDがハンドルの陰になって色取得が難しいな
液晶で取るしかないか

>>451
ハンドル画面を閉じればいいジャマイカ？

１　ハミルトン
２　ライコネン
３　ハイドフェルド
４　アロンソ
５　クビサ

>>447
漏れは素人だったから、おまいさんの気持ちなんとなく分かるな
言語って意味分からんチンだもんな
uwscはuwscの用意したルールでスクリプトを書く

ttp://park14.wakwak.com/~simizu/

ここお世話になったからお勧めしてる

みんな旋風のBIG中の時のリプレーはどこで取ってるんですか？

いま液晶のリプレー画像の色を見てるけど
そうすると丈二の攻撃の時に背景が青くなって
リプレイと間違えるんですが・・・

どこかいい方法ありますか？

液晶で取れなきゃ、変速押しとか

普通に7セグで1-9まで判定すればいいですよ。

>>457

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

旋風は、スーハナと同じで、BIG小役G中 １G〜３０Gまですべて中押しです。
でないと、全ゲームスイカ目押しすると言う愚行になります。
で、リプの時だけ、７セグからリプはずすか否かを判定します。

>>459
ありがとう

中・中段にベルが停止でオヤジ
中・中段にスイカで残りスイカ目押し
中・リプ　で　7セグ判断

それ以外（あるかどうか分かりませんが）はオヤジで　FAですか？

>>459
その愚行をやってるんですけどｗｗ

どっかのサイト見たら↓みたいに書いてましたよ。

【BIG中打ち方】
▼ﾘﾌﾟﾚｲ非表示
●中ﾘｰﾙ上段にｽｲｶ狙い
1.上段にｽｲｶ停止時はｽｲｶ確定。左･右ﾘｰﾙにｽｲｶ狙い(青7狙いでOK)
2.中段ﾍﾞﾙ停止時はﾍﾞﾙ確定。左･右ﾘｰﾙ適当打ち。
3.中段ｽｲｶ停止時はﾁｪﾘｰ確定。左ﾘｰﾙにﾁｪﾘｰ狙い。
※中段ﾘﾌﾟﾚｲ停止はﾊｽﾞﾚと思われます。念のためﾁｪﾘｰ狙い。

うちもまんどいので愚行をやってますが、作り込むなら
停止絵柄判定後、7セグ判定で↓みたいにすると面白そうですね。
If GetGreen(272, 504) > 150 Then '7セグ判定２or３（一番左の上）
Return False
ElseIf GetGreen(282, 508) < 150 And GetGreen(277, 508) > 150 Then 'デジタル表示１２８〜１１０まで中押し処理
Return True
ElseIf GetGreen(282, 508) > 150 And GetGreen(277, 508) > 150 Then 'デジタル表示１０９〜順押し
Return False
End If

>>462
たびたび、ありがとうございます。

>>462
N先生に質問なのですが、VBで

'北斗の拳2　チェリー予告時左リール処理
Private Sub Slot_Hokuto2_CheryGet()のように（）から（）に飛ばす処理が上手くいきません。

また、サミタ用の基礎関数など可能でしたら教えて頂けないでしょうか？

>>464
それだと丁寧にクレクレしているだけのような気がします（汗
本当に勉強したいのなら、初歩的なことから勉強した方が…。
私はVisualBasic2005逆引き大全500の極意という本や
VisualBasic2005入門という本を購入しましたが、そのほかにも
下記サイト等を良く利用しています。

ttp://homepage1.nifty.com/rucio/main/main.htm
ttp://www.winapi-database.com/
ttp://dobon.net/vb/dotnet/index.html

と、それだけでは何なので、UWSでよく使われている
アクティブウィンドウのタイトルを取得する関数のVB2005版を。
Win32APIは適時宣言して下さい。

'アクティブウィンドウのタイトル取得 UWSCのSTATUS(GETID(GET_ACTIVE_WIN),ST_TITLE )と同じ
Private Function GetActiveWindowTitle() As String

'アクティブウインドウのハンドルを取得
Dim AWhwnd As Integer = GetForegroundWindow

'アクティブウインドウのキャプションサイズを取得
Dim Length As Integer = GetWindowTextLength(AWhwnd)

'アクティブウインドウのキャプション文字列を取得
Dim lpStringBuf As System.Text.StringBuilder
lpStringBuf = New System.Text.StringBuilder("", Length + 1)
GetWindowTextX(AWhwnd, lpStringBuf, lpStringBuf.Capacity)

'取得した文字列を返す
GetActiveWindowTitle = lpStringBuf.ToString

End Function

uwscで押順ナビ系のものやパチはどうにか完成しました。次は目押しや外しに挑戦したいのですが色の取得がわかりません。狙う絵柄が表示されている瞬間にプリントスクリーンでよいのでしょうか？サミタやりすぎて嫁に禁止令を出されたので携帯からかいてます。

>>467
スクリーンショットなんか取ったら、取り終えるまでにリールが2回転以上してますよｗ

UWSCのヘルプに　PeekColorという関数がありますから調べてください。

それが分かったことが前提に次進んだらいいです

色の取得が分からないのに、ナビ系やパチが完成するとは
思えないんだけど…。

すいませんかなり説明不足でした。一回ビットマップ出力してそこから色の取得をするのかと思ったのです。
でも考えてみたらキーを押したらカーソル位置の色を取得するマクロを作って目押しする感じで取得すればいいんですかね。とりあえずやってみます、ありがとうございました。

フツーに取得したい図柄を取得したい位置に止めて
ペイントでやればいいじゃん。
どうしてもっていうなら色取得マクロなら過去スレにもあるよ。

リール回転中にスクショ取っても結局静止画と同じ

>>472
ウソはいかんよ
停止時と回転時で色の違う機種がいっぱい有る

回転時にバックライト消えたりする機種も有るので、基本は回ってる所を取らないと駄目でしょ。

>>474
停止してもバックライトが消えた状態になればいいんでしょ
別に回さなくても、バックライト消せるし

夏だねぇ〜

とりあえずやってみると言ってるので、頑張ってと答えてみる。

>>475
だ・か・らーーー
ま、それでいいなら何も言わん

>>478
お前まさか取った色をそのまま使ってるんじゃないだろうな

獣系3機種とHB、★３の色は全部停止させて作ったぞ
とった色を理論加工してだけど、わざわざリール回して取るって
お疲れさん

おつかれちゃ〜ん

ふう、なんとかアラデスのマクロできたよ＼(^o^)／　
まだＡＣだけ確認してないんだけどね、奇数であたらん（´・ω:;.:...

>>479
しかし、停止時は図柄AとBが色的に判別できるはずが
回転させたら判別できないなんて機種もあったから、
いつかそういう機種にぶち当たると思うよ。

ああ、もちろん直値なんて馬鹿な事しないで
幅を持たせた指定をしての話だよ。

>>482
回転させたら判別できないなんて機種は今はないよね
いつかそういう機種にぶち当たってから対応すりゃいい話でしょ

今のところ23機種作って回転中じゃないと色取れないなんて機種ないなぁ。
もちろん色取るのに苦労したのはあるけどｗ

あっちでは仲良いのに…

オイラも停止させて取る派ですよ

>>486
調整しないと、そのまま目押しに使えなくない？

で、結局調整するなら回転中のを取った方が正確
ってわけで回転中のを直で取ってるんですが・・・。

>>487
たまに確認の為に回転させて取ることもあるけど
サミタの公式の機種情報にある、リール配列の図柄
をみるとだいたい、この位置にはこの色以外ないと判断すると
実際にリールを回すどころか、色取りをしなくても有る程度できちゃうもんですよ

例えば獣王の　中リール。たしかゾウのお知りあたりの座標をとったら
あのそこの座標には、ゾウのお尻（青）とライオンの（赤）と無し（白）しかないですよね

で白のRGBの最大色をとれば　たしか　赤は　220　青も220前後
ゾウのお尻の青は230以上、　ライオンの赤は250以上なんで

青が230以上でゾウ、　赤が230以上でライオンとしてるんです。で実際に回して
うまくいったんで、それで終わりです。

獣王は　左、中、右ともに　一点だけで、全部判別できちゃってますよ
ソースを見てもらえれば分かりますが

プログラミングは、技術じゃなくてセンスですねー

クリアバって、どうしようもない出来だけど当たり判定にはよさげ・・

俺もそう思ったｗ

最近始めたんですが、
全画面表示にはできませんか？

>>492
http://news21.2ch.net/test/read.cgi/slot/1186750740/

>>490
ビー玉でオークス座ってる奴は一確って事で

>>494

　　　　　　　 ,,ィ≦ﾃ三三テ≧ｭ- ､
　　　　　 ィ州iｉ} |!{ヾ((（ヾ（((ハ三ミミ ､
　　 　 〃/ﾉﾉﾘ　|ヽ..＿ノヽ　　　}}ミミミﾐh､
　　　 〃//〃　 |　　　　 　ヽ＝ﾉ ;'⌒ヽ}}ﾐl､
　　　,}}| 川|{ 　 ﾉ　　　　　（(⌒ ノ　　 　 }}}li
　　 /川||}!}ｉ|　　　　　　　 　 ￣　　　 　 }州
　　 ﾚ　{!州!|　　 　 ,x‐ ￣ ヽ　　 ,.z=＝〃/
　　 l!（ ﾘﾉ川　 　 　 <( ハ〉 ﾉ 　 { ,ィTヽ /
　　 ﾄｖｿﾉ}}ﾊ)､ 　 　 　 ￣ ノ　 　 ｌ ｀￣　{
　　　)）ﾄ〃 }|::ヽ　　　　　 　 　 　 i 　 　 ′
　　　 /ﾉ》州}}｝ｨ::､　　　　 ｲ　　　 l　　 ′
　 　 （(∧　 州}ｿ,ﾉ　　 ／　｀ = _ノ 　 ′
　　 　 }　 ＼　 ヾｨ　　　 ﾉｰ- __ -　 ,'
　　　 ′　　 ＼　 ｀　、　 　 -‐-　 ｲ
　 　 ′ 　 　 　 ＼ 　 ｀ 　 ＿_ ,／ l
　　 ′　　　　　 　 ＼　ヽ　　 　 　 |

　　モーネ・アホカト[Maulnen Ahoccato]
　　　　　（1666〜1738　フランス）

i

test

ギンギン丸の逆押し判定どこでしてる？

>>498
Jacゲーム残り1回で小役ゲーム10ゲーム以上だったら、全開逆押し右上赤7狙い、左リチェリでフォロー。
ナビ見る必要なし。

最初の小役ゲーム、はどうすんの？
あれ逆押ししないと小役とれないし、順押ししないとJACINしないし、
ナビ判別がいると思うんだが、かなり拾いにくそうなんだよね。

寿司マクロ使ってるんですがハンドル部分にカーソル置いて打ち出しの強さを
表示させた状態で止めうち等させているのですがたまに勝手にこのハンドル部分が
消えてマクロが停止してしまうのですが同じ症状になる人いませんか。
マクロのつくりとしてはボクの使ってるものと同じ人が多いと思うので。

>>501
チャンスタイム終了か、玉補給のウィンドウが出た後に、メインウィンドウがアクティブ戻らないのが原因だと思うけど・・・

おいらの場合は、あまり構文とか詳しくないないんで、とりあえず、メインのループ処理に無駄なsleepを入れる事と、ハンドルがある位置で
玉の強弱に影響しない場所を、定期的に無意味にクリックするようにしてるよ。

正解かどうかは判らないけど、ハンドルが消えることはなくなった。
おいらの場合、ハンドルが消える＝即強制右打ちになってしまうから、これは結構致命的だった（汗

>>498
バックライトオンで逆押し、オフで順押しで作ってみたけど問題なさそうだよ。

>>501
打ち出し開始、停止をする前に、マウスカーソルをハンドル位置に移動させれば問題ないかと。
俺も同じ症状だったけど、それで治った。

>>503
同様な仕様ですが、問題なく動いている。
ビジ中は毎回目押し組んだほうがいいのかな？

>>505
そりゃいれた方がいいだろうけど面倒だからいれてない。
どうしても勲章取れないようならそのとき考えるかなぁ。

やっぱりｗ
めんどいよね？
入れて無くても枚数出るからね
勲章は６で20時間なら取れるんじゃないかな？

おまえら、もうあっちではBonus中の目押し入りの
やつがでてるぞ

>>508
ホントだ
おれUWSじゃないし

>>508
URLプリーズ

>>510
http://love6.2ch.net/test/read.cgi/kyoto/1181050412/

ギンギンは、結構チェリーくるから、BIG中のDDT入れたほうがいいよ。
通常時も逆押しDDTならさくさくまわせるし。

でも、ボーナス目押しはいれてないや。
目押し発動まで結構引っ張るからどうしようかな・・・
ってか逆押しでリチ目は色々あるんだが、チャンス目ORボーナス(揃わないチェリーだったかな？）も
でまくるし判別ルーチンいれるのは、面倒だからいいか

すいません初心者な質問で申し訳ないんですが、
目押し時は回転中のリールの座標にPEEKCOLOR＋SLEEPで1週押しって感じでいいんでしょうか？
だとしたらサンプリング周期はどれぐらいでやってますか？あんまり短いと負荷でかそうだし長いと目押しにならなそうだし…

>>513
sleep(0.01)　が普通かな？

>>514
あざーっす！
こんなに早く回答もらえるとは思ってませんでしたｗ
sleepの最小時間ですね…とりあえずやってみて負荷見てみます

1ms間隔で色チェックしても全く負担にならないと思うよ

>>516
のようですね、特に重くなることもありませんでした。

とりあえず一番簡単そうな島唄から挑戦中で、
通常時とボーナス目押しまではできたんですがはずしの条件付けとかが中々…

目押しもサンプリングの永久ループが怖くてストップボタン有効になってからサンプリング始めるようにしたんで効率悪い('A`)

サミタのレイアウトデザインが変わったら、座標も当然変わるんだけど、
皆はすぐ対応できる？今まで作った物全部修正かけるの大変だよね？

サイ氏のｃｈｋｌｅｆｔとかいう関数みてふと思いついたんだけど、例えば
PUBLIC NEWX=0ってかんじで初期値0の変数用意して

PEEKCOLOR((612+NEWX),(568+NEWY))

このようにしとけば、いざってとき変数の値変えれば、即時対応できるけど
今までの全部修正かけるの面倒だな・・・

何か一括で変えられる、機能搭載したエディターってあるのかな？

>>518
自分はマクロ使ってないけど
変換プログラム作れば修正はすぐできると思う

PEEKCOLOR2とか関数作って、そこで座標いじってPEEKCOLOR呼べば
PEEKCOLOR→PEEKCOLOR2の全置換処理で済むのでは

そんなの
PEEKCOLOR→MY_PEEKCOLOR
で、一括全置換して、

Function MY_PEEKCOLOR(x, y)

　　result = PEEKCOLOR((x + NEWX),(y + NEWY))

fend

ってのを定義して終了だよ。

おもいっきりかぶったorz

>>520
>>521
なるほどっていうか、そんなことも気づかない俺ってorz

座標系がランダムにずれること考えてないのか？

ランダムw
ワイドだとたまにずれるみたいね。

サイって自演が得意なんだよな

>>526
ていうかお前サイだろ

>>525
ワイドでずれるってドライバ不良じゃないのか？

>>528
俺もそう思ってたけど、ホントにたまにあるみたい。
何か作ったの適当に公開してみりゃ分かる。

たまにどころか　ワイドは常に起きてる

俺の顔もワイドだ

>>531
全俺が泣いた

サラ金でボーナス成立の判定どうやってますか？
通常時は確定ランプ光る→目押しor目押しウィンドウ開く→お願いでやってるんですが、
金チャン中って何もでないですよね？

連続ナビなし

あ、金チャン中のナビなしはボーナス目押しするようにすればいいのかな？

>>533
�d！

>>534
ビジ　レジ交互狙いでもいいんだが、青7の次の赤7を、枠内に狙うと全役フォロー出来ると思う

>>536
なるほど…
しかしサラ金とかになるとハズシ入れるのもはやめんどくさいな('A`)
DDTとボーナス目押しとナビだけ組んで試しに放置したら3時間で万枚突破だしｗｗ

ＡＴ中のボヌス成立で目押しが必要な機種は、サラ金、アラＡ、マッハでＯＫですか？
他は目押し機能使えますよね？

ギンギンのJACイン時の順押しはどこを見て判定するのがベストでしょうか？

投入枚数

>>539
ベストかどうか知らないけれど、
順押しと逆押しでリールの色が若干異なる。同様にリール脇の赤い縦線も若干異なる。
これらを利用するのが手っ取り早いらしい。

>>541
なるほどぉー。リール脇の赤い縦線も若干異なるんですね。
あとでやってみます。
どうもありがとうございました。

ギンギンのビック中のチェリは何を基準に色とってますか？
一番取り易いのは2連の赤７？
ＢＡＲは狭いし、ギンは2箇所あるんで悩んでます。

ご教授お願いします。

まず自分で試してから聞こうぜ

>>544
2連から拾えました。

サイマクロスレでギンギン丸の２回目のJacIｎが残り10G以上の時でも
順押しナビが出る時があるって話あがってるけど、そんなに出現するものなのか？

自分が見てる限りまだ一度も発生してないけどな

>>546
残り １０Ｇ からＪａｃＩｎ 優先すると言う処理になっているから、
タイミングが合っちゃえば毎ＢＩＧで出る可能性もありますよ。

>>547
なるほど『残り１０G』で順押しってことか
１６Gとか残して順押しナビが出る現象があるのかと勘違いした
それなら納得です。どうもありがとう

超獣だけは組めそうもないんだが組んだ人いる？ドット点滅しすぎで色取れん…

あ、点滅は座標間の色差で判別すればいいのかな？
座標Aが点灯かつ座標Bが消灯　なら　ダチョウ　とか…左押しランプ消灯時をナビあり判断にして。

い

>>549
既出だが、中　左　右でいいんでない？
二点でも取れるだろうが、UWSCのPEEKCOLORでは、運悪く点滅が切り替わって
誤作動する気がするんだが、どうなんだろうね。
VBならまとめて取れるからいいんだろうが・・

>>552
なんか激しく勘違いしているぞ。

>>553
そんなもんだって、ｸﾚｸﾚから卒業してここに来ただけでも
褒めてやらないと

>>553
PEEKCOLORってAPIの
GetWindowDC GetPixel ReleaseDCを合わせた物だと思うんだが、そうだった場合

座標Aかつ座標Bを条件にした時、運が悪くとAを判定後、タウンアプリがの色が反転した場合、ナビミスになるのでは？

それは別にVBだろうがUWSだろうが座標(xA,yA)and(xB,yB)という条件で
反転してしまえば、結果は一緒でしょ。VBだとどうできるのか聞いてみたい。

まぁタウンアプリの色が反転ってのがうちでは発生しないから、更によく分からないけど。

>>556
VBの様にGetWindowDCを一回しか行わない場合でも
ミスる可能性があるってのは以前議論済み。

【どうして？】777town.net ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ【閉じる】
http://game11.2ch.net/test/read.cgi/mmosaloon/1171985995/465-470

↑ごめん、アンカミス
>>555です。

>GetWindowDCを一回しか行わない
う〜ん。そういう話だったのなら申し訳ない。
自分がそういうロジックになってないので思い違いしてた。
ということは、逆にマクロ開始した時点でDC取得すれば
もっと軽量化出来るのか。

処理時間のイメージとして
GetWindowDC = ReleaseDC ＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞ GetPixel
なので、GetWindowDC まで含めて何回も実行するUWSCのPEEKCOLORはとてつもなく不利だということはわかる。

>>559
私も>>557の議論以降、気になってたのですが
VBマクロ等でGetWindowDC〜ReleaseDCを毎回セットでやっていますよね。
別にGetWindowDCのタイミングで描画データが全取得されるわけでもなさそうなので
最初に一回やればいいんじゃないのでしょうか？

GetWindowDCしたままでReleaseDCしないと何か問題が起こるのでしょうか？

もちろん、最後にはReleaseDCします。

自分はVBで色取得のたびにDC取ってるけど別にCPU使用率が
異常にあがるとかそういう事はない。
で、逆にUWSで書かれた（過去ログ等）色取得を参考にして
同じ座標をVBで取得するとVBでは使い物にならない（上手く色が取れない）
とか陥ったことがある。UWSCは本当にAPIを呼んでいるのかなぁ。
まぁ独自実装という事はないだろうけど…。

>>562は>>560宛です。念のため。

>>561
今度試してみます。

ギンギン丸、残り２Gで逆押しナビで右中段赤７
左チョリ狙うもハズレだったんだが
これってビジ中ハズレってこと？
３３３ｔｏｗｎによれば、ＢＩＧ中ハズレ確率は1/65536 なんだが。

打ってる感じだと、右中段赤７ってリプ（逆押しで強制はずし）じゃないかと思うんだが、
これって、噂のバグ（残JAC１回、残G１０G以上時に順押しナビが出る）の逆パターンか？

激しく萎えてるんだが。

>>561
ちょっと調べてみたんですが、GetDCやGetWindowDCはデバイスコンテキストへの
ハンドルを取得しているだけみたいなので、極端な話、マクロ開始、終了の時点で
Get、Releaseすればいいだけみたいですね。

http://www.geocities.jp/chiakifujimon/makesoft2/proc2.html
http://yokohama.cool.ne.jp/chokuto/urawaza/dispcopy.html

逆に言えば、DCのハンドルを取得するだけなので、そんなに重い
処理ではないとも言えますが。まぁ参考になりました。

EXEファイルから、どんなAPIを使っているかを調べる方法があったと思うんだけど忘れてしまいました。
ご存知の方、教えてください。

猫de小判の外しをuwscで作成しているのですが
３回目の子役ゲームの判定がうまくいきません。
３桁デジタルの左側の色を取得しているのですが
点滅しているため、完璧には判定できません。
なにか良い方法はないでしょうか？

>>568
点滅している時、あなたはその場所をジーっと見るでしょ？
同じ事をプログラムでジーっと見させれば良いのです。
やり方としては、FORループやWhileループでPEEKCOLORを繰り返し実行して、
ある程度繰り返してみても点かなかったら、とか、繰り返しているうちに点いたら、とか、やります。

点滅してないときは何もしないように組めばいいだけでは。

>>569
>>570
ありがとうございます。
やっぱりその方法ですよね。
今for〜nextでやってみました。
そこで７セグの
右上＝点灯、右下＝点灯、中央＝消灯で
あれば「１」（３回目の小役ゲーム）と判定できる
と思います。

ためしに、「１」が点滅している時に
for
a = peekcolor〜　（７セグ右上）
b = peekcolor〜　（７セグ右下）
c = peekcolor〜　（７セグ中央）
print a
print b
print c
next
とやってみました。その結果
a=点灯、b=点灯、c=消灯
a=消灯、b=消灯、c=消灯
この２種類の組み合わせしか無いと思ったら
それ以外の時も出てきてしまいました。
peekcolorから次のpeekcolorに移る時にロスが
あって、１回のループの中で点灯時と消灯時に
またがっている感じです。
アドバイスよろしくお願いします。

うちはこれで判定出来てるよ。
メイン処理の中でBIG時は以下のように判定を行い、
ElseIf GetGreen(306, 509) > 200 OrElse GetGreen(305, 516) > 200 Then 'BIG中

Bonus_DDT()

Bonus_DDT()の中の判定は以下のようにしてる。

If GetGreen(271, 505) > 100 Then '7セグ判定２or３（一番左の上）
Onekey()
ElseIf GetGreen(282, 508) < 100 And GetGreen(275, 509) > 100 Then '7セグ判定１２８〜１１０までハズシ処理
Slot_Neko_BIG_DDT()
ElseIf GetGreen(282, 508) > 100 And GetGreen(275, 509) > 100 Then '7セグ判定１０９〜順押し
Onekey()
End If

あとは、実際に取得しているポイントを色取ってみて
どう判定しているか参考にして下さい。
ちにみに、これだけだとREG時に誤判定するので、先に
1BETかどうか判定して1BETだったらOnekey()するようにしてます。

>>571
右上→中央→右下 の順に色取すると、高速点滅にも耐えられると思います。
その上で、「１」、「２」、「３」に合致するパターンだけを拾い上げ、その他のパターンを捨てれば、いかが？
それと、３点（１セット）取った後は、１ｍｓでも良いのでSleepさせて。

>>572
　やはり人によって組み方が全然違いますね。
　参考になります、ありがとうございます。
>>573
　それもやったのですがうまくいきませんでした。

結局のところ、最初にＪＡＣ中、ＡＴ中、通常時を
判定しワンキー。
そのあとは小役ゲームになるので、for〜next
の中で、１回でも７セグの上段、中段、下段の
横棒が点灯すれば「1」以外としました。
後はfor〜nextの回数とその中に入れるsleepを
調整しています。
ありがとうございました。

ﾏﾀﾞｰﾏﾀﾞｰ?

浜の当たり判定？ってどこで取ればいいんですか？

>>576
当ると
121.470 R > 200

セグね、ここだけでいいはず

ありがとうございます
まだ当たりが来ないいからうまく出来てるかわからないですけど

VBでリプレイ外しを作りたいんですけど、7セグの点滅処理が上手くいきません。
どのように書くのがいいのでしょうか？
詳しい方いらっしゃいましたら、教えてください。

＊＊＊＊＊＊恋のおまもり＊＊＊＊＊＊

　　これを見た人は，超超超超幸せもの☆☆

　　�@週間以内に好きな人に告白されるか、
■■■■■■■■■■■■■■■■■■
■■■■□□□■■■■□□□■■■■
■■■□□□□□■■□□□□□■■■
■■■□□□□□□□□□□□□■■■
■■■□□□□□□□□□□□□■■■
■■■□□□□□□□□□□□□■■■
■■■■□□□□□□□□□□■■■■
■■■■□□□□□□□□□□■■■■
■■■■■□□□□□□□□■■■■■
■■■■■■□□□□□□■■■■■■
■■■■■■■□□□□■■■■■■■
■■■■■■■■□□■■■■■■■■
■■■■■■■■■■■■■■■■■■

　　好きな人とイイ事があるよ・・・・☆★

　 コレを読んだら、1時間以内にどこかに貼る★★

数ゎあなたが好きな人への思いを込めて

どこでもいいんだろ？ここに貼るよ

＊＊＊＊＊＊恋のおまもり＊＊＊＊＊＊

　　これを見た人は，超超超超幸せもの☆☆

　　�@週間以内に好きな人に告白されるか、
■■■■■■■■■■■■■■■■■■
■■■■□□□■■■■□□□■■■■
■■■□□□□□■■□□□□□■■■
■■■□□□□□□□□□□□□■■■
■■■□□□□□□□□□□□□■■■
■■■□□□□□□□□□□□□■■■
■■■■□□□□□□□□□□■■■■
■■■■□□□□□□□□□□■■■■
■■■■■□□□□□□□□■■■■■
■■■■■■□□□□□□■■■■■■
■■■■■■■□□□□■■■■■■■
■■■■■■■■□□■■■■■■■■
■■■■■■■■■■■■■■■■■■

　　好きな人とイイ事があるよ・・・・☆★

　 コレを読んだら、1時間以内にどこかに貼る★★

数ゎあなたが好きな人への思いを込めて

参考までに・・・お願いだから目を通してから言ってくれ

http://money6.2ch.net/test/read.cgi/pachik/1183972298

ﾏﾀﾞｰ?

どこでもいいんだろ？ここに貼るよ

＊＊＊＊＊＊恋のおまもり＊＊＊＊＊＊

　　これを見た人は，超超超超幸せもの☆☆

　　�@週間以内に好きな人に告白されるか、
■■■■■■■■■■■■■■■■■■
■■■■□□□■■■■□□□■■■■
■■■□□□□□■■□□□□□■■■
■■■□□□□□□□□□□□□■■■
■■■□□□□□□□□□□□□■■■
■■■□□□□□□□□□□□□■■■
■■■■□□□□□□□□□□■■■■
■■■■□□□□□□□□□□■■■■
■■■■■□□□□□□□□■■■■■
■■■■■■□□□□□□■■■■■■
■■■■■■■□□□□■■■■■■■
■■■■■■■■□□■■■■■■■■
■■■■■■■■■■■■■■■■■■

　　好きな人とイイ事があるよ・・・・☆★

　 コレを読んだら、1時間以内にどこかに貼る★★

数ゎあなたが好きな人への思いを込めて

逆ナビ時のいい逆押しの仕方ってありますか？
KBD右押し
スリープ
KBD中押し
スリープ
KBDワンキー
という風にやってるんですが、誤動作多いです。

怒られたからｷﾏｽﾀ
ジャグガのハズシマクロって難しい？

Hazuse情報ね

【ﾊｽﾞｼ手順】
<1、2回目>
順押し適当打ちでOK
----------------
<3回目>
中→右ﾘｰﾙ適当

▼ﾌﾞﾄﾞｳの場合
↓
左ﾘｰﾙ枠下付近に下ﾁｪﾘｰ付きの7

▼ﾘﾌﾟﾚｲ上段or中段ﾃﾝﾊﾟｲの場合
↓
左ﾘｰﾙ枠内に上ﾁｪﾘｰ付きの7でﾊｽﾞｼ

▼ﾘﾌﾟﾚｲ下段受けﾃﾝﾊﾟｲの場合
↓
左ﾘｰﾙ枠上付近に下ﾁｪﾘｰ付きの7でﾊｽﾞｼ

残り11Gになったら順押しで消化する
(ﾊｽﾞｼ効果は約+10枚）

ｱﾘｶﾞﾄ-感激（ＴДＴ）

>>585
ボタン押して良い状態かどうかを見るのが確実なんじゃない？

このスレ進行遅いね
マクロ関連スレが、クレクレ主流になってるからしょうがないか・・（ ´･ω･)

何か斬新なアイデアでマクロ作成してる人いる？
そういう話題少ないよね・・

>>858

逆押しなら まず右の停止ボタンが有効の時にKeyを押す様にする

ifb 右ボタンが有効 then
右
sleep ここのsleepの時間は機種により反応が違うから自分で試して 大体0,2 ぐらいで
中
sleep
左

endif

これで逆押し

SAVEIMG("Error")
ＳＳを撮って保存しますよね、この次にまた同じのが
出てＳＳ撮って保存しても１回目のが消されて２回目のが
残りますよね？１回目も２回目も３，４・・・も保存してもＳＳ残る方法は
どの用にすればいいですか？

>>592
SaveIMG("fileName") だから　fileNameを日付と時間をファイル名にする

はい、おしまい

>>593
回答ありがとうございます。
日付と時間をファイル名にするには
どのような文章をいれればいいでしょうか？

>>594
ヘルプを読んだら直ぐわかるがな
getTimeと打ち込んでみんしゃい

>>595
ありがとうございます。
ヘルプみながら試してみます。

理解するのに２時間かかった orz
GetTime()
SAVEIMG("エラー_"+G_TIME_MM2+"_"+G_TIME_DD2+"_"+G_TIME_HH2+"_"+G_TIME_NN2+".DAT")
と言うことですね。>>593さん　ありがとうございました。

UWSCのSAVEIMGと同じ事をVBで実現させたいのですが、
使用するAPIとか処理の流れとか、ご存知の方いましたら教えてください。

>>598
'VB6
Private Sub SaveWindowPic(Optional ActWind As Boolean = True)
 Dim MyFileName As String, PicData As Picture, OsVer As Single
 Form1.Visible = False
 Clipboard.Clear
 If ActWind Then
  Call keybd_event(VK_LMENU, &H56, &H1 Or 0, 0)
  Call keybd_event(VK_SnapShot, &H79, &H1 Or 0, 0)
  Sleep 100
  Call keybd_event(VK_SnapShot, &H79, &H1 Or up, 0)
  Call keybd_event(VK_LMENU, &H56, &H1 Or up, 0)
 Else
  Call keybd_event(VK_SnapShot, 0, &H1, 0)
  Sleep 100
  Call keybd_event(VK_SnapShot, 0, &H1 Or up, 0)
 End If
 DoEvents
 If Clipboard.GetFormat(vbCFBitmap) Then
  MyFileName = App.Path & "\ERR" & Format$(Now, "yymmdd") & "_" & Format$(Now, "hhmmss") & ".BMP"
  Set PicData = Clipboard.GetData
  Call SavePicture(PicData, MyFileName)
 End If
 Form1.Visible = True
End Sub

Call SaveWindowPic(True) で呼び出すとアクティブウインドウのみのSS
Call SaveWindowPic(False) で呼び出すと画面全体のSS
これを組み込んだプログラムの置いてあるフォルダにERRyymmdd_hhmmss.BMP（小文字は年月日時分秒）
のファイル名でSSを保存する


Trueの場合は省略可→Call SaveWindowPic()

>>590
ガメラのレジ絵柄は単純に取ろうとすると、
ガメラの輪郭も拾ってしまうことがあるが、
以下のようにするとレジのみを拾える。

Procedure Gamera_Bar(pos)
　　DIM P[3]=132,245,358
　　DIM i=0

　　for j=0 to 400
　　　　C=PEEKCOLOR(P[pos],343)
　　　　ifb ((C AND $FF) < $10) AND ((C AND $FF00) < $1000) AND ((C AND $FF0000) < $100000) then
　　　　　　if i = 2 then break
　　　　　　i = i+1
　　　　else
　　　　　　i = 0
　　　　endif
　　　　sleep(0.01)
　　next
fend

こんな話でよろしいか？

>>599
先の質問、実はVBA環境だったので、Clipboard と言うのが使えず、
クリップボードから取り出す方法に手間取って返事遅れました。
クリップボードへの入れ方や SavePicture の事など教えていただいたおかげで、
どうにか欲しい物ができました。
ありがとうございました。

422氏 ボーナス中のゲーム数とJACin回数カウントしたいのですが
良い方法ありませんか？

後第三停止出目にもカウンター付を・・・

今月はカイジか・・・
演出を楽しむ為、主要な連続演出時のみsleepかけるマクロを作りたいな。
いままで鬼武者とかでやろうとしたけど、色取がなかなか上手くいかないんだよねぇ
判定甘くすると、意図しないとこでsleepかかったりして
バニーの玉乗り演出だけでも堪能したいんだが・・

>>603
それを実現する為には、プログラム側で何を判別すれば
実現出来ると思いますか？

という所から思考が広がると思う。

それを実現する為に、こう書いたけど上手く行かない。どうすれば
という方が、回答する方もしやすいと思う。

>>603,605
まぁ大体想像つくよ。
基本的にｸﾞﾙｸﾞﾙﾙｰﾌﾟして停止可能なボタンやナビを見て停止リールやBETを決定。
だから1G中に何回ﾙｰﾌﾟするかが不定だから、困ってるんじゃない?
まずﾋﾞｼﾞ中ﾌﾗｸﾞとJAC中ﾌﾗｸﾞとﾌﾟﾚｲ中ﾌﾗｸﾞを作る。
ﾋﾞｼﾞ中ﾌﾗｸﾞはﾋﾞｼﾞ処理でON
JAC中ﾌﾗｸﾞはJAC処理でON
通常処理で両ﾌﾗｸﾞOFF
精算ボタンを見て
if 精算可能時
　　if ﾌﾟﾚｲ中ﾌﾗｸﾞ=ON
　　　　ﾌﾟﾚｲ中ﾌﾗｸﾞ=OFF 　　　if JAC中ﾌﾗｸﾞ=ON
　　　　　　JACｶｳﾝﾄ+1
　　　elseif ﾋﾞｼﾞ中ﾌﾗｸﾞ=ON
　　　　　　小役Gｶｳﾝﾄ+1
　　　else
　　　　　　ﾌﾟﾚｲｶｳﾝﾄ+1 　　　endif
　　endif
else
　　ﾌﾟﾚｲ中ﾌﾗｸﾞ=ON
endif

こんな感じのを自分の処理にあった形で入れ込めばいいと思う。
　

一カ所改行ミス。
携帯だから許して。

どなたかアラデスマクロ教えてくださいお願いします

>>605　422氏　レスサンクスです
すいません　やりたい事が上手くここに書けなくて
422氏が書いてる通り何回ループこれがネックだったんですが

自己解決しました　やっぱりプログラムって何でも書いてみないといけないですね

こんな感じで書いてみました

ifb ＢＥＴレバーオン　

elseif ボーナス
　　　　ボーナス処理

　　　　ifb　ボーナスカウント<　21　ＪＡＣカウント>　16
　　　　　　　外し処理

　　　　elseif JAC
　　　　　　　ＪＡＣ
　　　　　　　ＪＡＣ処理
　　　　　　　ＪＡＣカウント　＋　1

　　　　else
　　　　　　　ボーナスＤＤＴ処理
　　　　　　　ボーナスカウント　＋　1
　　　　endif

else
　　　通常DDT
　　　ボーナスカウント　0
　　　ＪＡＣカウント　0

よく聞くんだけど、７セグって何ですか？

＿
|　｜
--
|　｜
￣

Bカップ

麻雀物語の当り判定を取りたいのですが、5時間で1度も当たりが引けません。

どなたか当り判定の座標と当り中の色と通常の色を教えていただけないでしょうか？

//ｱﾀｯｶｰopen X=305／Y=537／赤=162／緑=162／青=162／BGR値=$A2A2A2
//ｱﾀｯｶｰclose X=305／Y=537／赤=158／緑=29／青=34／BGR値=$221D9E

ｸﾚｸﾚスレで久々に本物の100氏降臨してる。

>>614
ありがとうございます

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

こんな話でよろしいか？

ﾆｭｰﾊﾟﾙのリプ外しムズイorz
皆どこで色取ってるんですか？
左BARで見てるんだけど、他の所を間違えて拾うし…

２点位見ても半分位の確立でしかビタしないしorz
どなたか、上手い事いってる人アドバイスお願いします。

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

201,000 前日比-8,000 (-3.83%)

クレクレスレはどこですか？

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

VerUP！VerUP！VerUP！VerUP！VerUP！VerUP！VerUP！VerUP！VerUP！VerUP！

今月からのサイは本気

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

ピンクフラミンゴのキンパル57は最高札付けてやめたんであげます

カエルの目押し質問してた人 まだ上手くいってないかなぁ？

僕の環境だとこんな感じでBARは取れてます。

for i = 0 to 400
　　　A = peekcolor(141,373)
　　　R = A and $FF
　　　G = (A and $FF00)/$100
　　　B = (A and $FF0000)/$10000
　　if R > 230 and G < 190 and B > 230 then break
　　next
　　sleep(0.01) //ここで聴牌ラインの調整
Kbd(VK_LEFT, DOWN,0)
Kbd(VK_LEFT, UP,50)

ヌーパルの外しってそこまでシビアじゃなかった希ガス
リプ聴牌ラインでの打ち分けがメンドクサイだけで
上段受け　中段受け　下段受け　これを知らなかったから
初めビタで押せてるのになんで、外さないの？？？　ってなってたｗ

>>628
かえるの人です
ありがとうございます。

目押しの部分以外のソースが出来上がってるんですが、
どうも間違って拾う頻度が多くて困ってたんです

早速試してみます

>>628
BARの赤い部分で見てたんですよね？
どうも、私の環境では拾えないらしく

いろいろ変えてたら、BARの（132,380）と（132,410）を
見たら今のところ、間違えなく拾えてるみたいです。

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

>>630
628は昔に組んだやつだから色とったのBARだったか 7だったか 正直忘れたんだよねｗｗ
でも多分 BARの赤色じゃないと思うよ Rが>230 Gが<190 Bが>230だから
BARの白っぽい所見てる気がする

今違う機種打って手離せないから 後で確認してみるけど

>>631
ID変わりましたが>>630です
お手数おかけします。
書き込んだ後、ビジ引いて見てたんだけど、
どうもリプ外しになると上手く拾えなくなる(Forの構文をbreak未経由で抜ける)
そんなこんなしてる内に仕事の時間でタイムアップ…

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

名前：名も無き冒険者[sage] 投稿日：2007/09/07(金) 06:35:18 ID:firDGBZa
>>628
かえるの人です
ありがとうございます。

目押しの部分以外のソースが出来上がってるんですが、
どうも間違って拾う頻度が多くて困ってたんです

早速試してみます

630 名前：名も無き冒険者[sage] 投稿日：2007/09/07(金) 07:46:11 ID:firDGBZa
>>628
BARの赤い部分で見てたんですよね？
どうも、私の環境では拾えないらしく

いろいろ変えてたら、BARの（132,380）と（132,410）を
見たら今のところ、間違えなく拾えてるみたいです。

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

>>626
不正者にあたえんな

>>632
BARの文字ピンクを見てました。

旋風チャンス中のナビですが、液晶見るしかなさそうだけどよさげな座標
見つかりません。弾丸のフラッシュ邪魔だし、、
みんなどこらでとってますか

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

>>637
機種別座標参考にしたいのなら
サイの参考にすればいいんだよ

いいんだよ

グ

>>637
ちょっと強引だけど僕のはこんな感じで処理してます。

L = (Peekcolor(144,392) and $FF)
M = (Peekcolor(251,392) and $FF)
R = (Peekcolor(358,392) and $FF)
L2 = (PeekColor(225,600) and $FF) < 240
M2 = (PeekColor(287,600) and $FF) < 240
R2 = (PeekColor(349,600) and $FF) < 240

　ifb L2 and (L > 160) and (L < 175) then
　　　Kbd(VK_LEFT, DOWN,0)
　　　Kbd(VK_LEFT, UP,50)
　　　sleep(0.18)

　elseif M2 and (M > 160) and (M < 175) then
　　　Kbd(VK_DOWN, DOWN,0)
　　　Kbd(VK_DOWN, UP,50)
　　　sleep(0.18)

　elseif R2 and (R > 160) and (R < 175) then
　　　Kbd(VK_RIGHT, DOWN,0)
　　　Kbd(VK_RIGHT, UP,50)
　　　sleep(0.18)

　endif
fend

L = (Peekcolor(144,391) and $FF)
M = (Peekcolor(251,392) and $FF)
R = (Peekcolor(358,392) and $FF)
L2 = (PeekColor(221,600) and $FF) < 240
M2 = (PeekColor(287,600) and $FF) < 240
R2 = (PeekColor(349,600) and $FF) < 240

　ifb L2 and (L > 160) and (L < 175) then
　　　Kbd(VK_LEFT, DOWN,0)
　　　Kbd(VK_LEFT, UP,50)
　　　sleep(0.18)

　elseif M2 and (M > 130) and (M < 175) then
　　　Kbd(VK_DOWN, DOWN,0)
　　　Kbd(VK_DOWN, UP,50)
　　　sleep(0.18)

　elseif R2 and (R > 160) and (R < 175) then
　　　Kbd(VK_RIGHT, DOWN,0)
　　　Kbd(VK_RIGHT, UP,50)
　　　sleep(0.1)

　endif
fend

for i=0 to 50
sleep (0.18)
if (PEEKCOLOR(X,Y) and $=FF) < 300 then Break
next
ifb (i = 43) and_
(Peekcolor(X2,Y2) and $FF) > 1580 then
はずし()
if（bot「くれくれ」send

ID:qs5HKNm7←本日の池沼

ID:qs5HKNm7 こ、こ、これは醜い

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

>>645
いや、お前と同じだから

何が？
病院行って来い

>>649に一票

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

おまえらがいけよ。不正者

病院いって治るのか？頭悪いなｗｗｗ

じゃあ、俺は一般常識を学ぶために小学校へいきないっていえばいいのか？ｗｗｗｗ

もっとセンスのある煽りしてみろ
やり直せ

ざっと見たところ【qs5HKNm7】が一番のアフォですな。

アフォと、不正者どっちがすきですか？ｗｗｗｗ

両方ｗｗｗ

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

ID:qs5HKNm7 ⇒　ID:aREnHFmp

もうさ、いい加減にしたら？

いくらくのｽﾚの進行が遅いからっていっても

なにしようがかってだｗｗｗ

おまえらが、好き勝手に不正してるんだから俺も好き勝手にする

どうせやるんだったらもっとぱーっとやってくれよ

ちまちま貼るんじゃなくてさ

荒らしなのか、ただのチンカスなのか分からんよ

>>661
おいアフォ！
どうせなら、1000まで連呼しろよｗ
お前ほどの高レベルアフォならできるだろｗｗ

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

不正者、漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

不正者、漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

エナって悪いと決まっていることじゃないけど、嫌がられるよな。
気遣いとか思いやりがなくて周りの人から嫌われて、「俺悪いことしてねーもん」と言うタイプかね。

俺は文句言われるのとか嫌な小市民だから、エナとかできんｗｗｗ

不正者はどうおもうか？

ID:aREnHFmp
死ねよキチガイ

>>666
らびちき乙

不正者、漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

お鶴

プログラマーも、よくこういう地に落ちるな。哀れはかけてやるが、同情できたもんじ
ゃねぇ。

きっと、何十時間もこきつかわれてとっくに精神異常おこしてるんだろうな。

サミタなんてやってないで、まずは

つ「精神病院」

神経症までが、境界線ですよ？

>>671
お前のほうがよっぽど壊れてると思うんだが

今時プログラマーって・・　あなたいくつよ？

ボインでグラマーな女子高生ですぅ♪

早漏で短小ではげてて脂ぎっている中年オヤジです♪

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気

漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！漂白！

今月からのジョンは本気（-人

今までのファイルを全再構成しました。

THSDVer5.4.2（内容はVer5.4.1と同じです）

スーハナ＋魔法ハイビ＋HB＋ギンギンをデフォ装備
マッハ＋風　調整済み装備

Ver2改＋Ver4＋Ver5+関数マニュアル装備

その他構成ファイル付

http://wktk.vip2ch.com/dl.php?f=vipper44797.zip

お前何したいんだ？

引き出し成功ｖｖｖｖｖ

あおってたかいがあったぜうふふ

>>678
ここではサイマクロなんか使う低脳はいないぞｗ
クレクレスレに貼ってこい！

馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！


先月までもそうだけど、今月から【ID:Wu+vIeVC】は本当に馬鹿です

馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！


先月までもそうだけど、今月から【ID:Wu+vIeVC】は本当に馬鹿です

馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！


先月までもそうだけど、今月から【ID:Wu+vIeVC】は本当に馬鹿です

馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！


先月までもそうだけど、今月から【ID:Wu+vIeVC】は本当に馬鹿です

馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！馬鹿！


先月までもそうだけど、今月から【ID:Wu+vIeVC】は本当に馬鹿です

せめて連投してくれよ暇人

ポログラマーのうｐまだ？

マクロ作ったけどどこかいいうｐろだない？

みなさんレッドセブンどうしてます？
ドットのナビも右側の１〜３のランプも点滅
だからやっぱり７セグで判断してますか？
２桁Ｇで１０連以上もあるようなので結構
爆発力ある機種のようですね。
ボーナス中で放置されてる台も多いから
テスト中に完成させたいと思います。

>>689
ない。
だからオマエの糞マクロは
オマエだけで使ってろカス

レッドセブンの何をどうしたいの？
何を迷っているのかわかりません。

>>692
ボーナス中の順押しと逆押しの判断です。
ナビにリプレイ表示で順押し
（２０Ｇ、１９Ｇ、１Ｇ）
ナビにベルで逆押し
（１８Ｇ〜２Ｇ）
一番簡単な方法がどれかと思ったのです。

>>693

Procedure Red7_Bonus()

ifb BB < 18 then
Red7_RB()

elseif BB > 34 then
Red7_RB()

else
Red7_N()

endif
fend

これで分かるかな？

そりゃ液晶見るのが間違いないでしょ。
ベルのときには光っているのにリプの時には光ってない点がいっぱいあるでしょ。
そこをfor-nextで判別。
簡単簡単。

レッドセブン作ってて気付いたのだが
パネルの『CREDIT』と『GAMECOUNT』って
明らかに逆だよな。ラスターしっかりしろ。

逆？

>>694
俺7セグで作っちまった。
よくわかんないけどそれ簡単そうだなぁ。

>>696
それ俺も思った。
やっぱ実機もそうなのかな？

>>694
確かに簡単そうだけど、ジャック外れって無いのかなぁ？
あっても、獲得枚数はベル一回分程度だろうけど

赤7のボーナス告知って赤七と三連赤七とGOGOの他ってあるの？
実機打ったこと無いんで分からん

マクロでき悪くて糞過ぎ。

同時作業ができないのが、一番糞。

>>701は、
最近マクロというものがあると知り、
必死で使おうとガンバってやっと使えるようになりました。
。。。と、言っているようなものだねｗ

いや、あれに必死もなんもないでしょ。ミジンコだってつかえるｗ
だが、ミジンコゆえその先にすすめないわなｗｗｗ

あっちにいけよカス

うっせぇクズ






























ｗ

つ　http://game11.2ch.net/test/read.cgi/mmosaloon/1189151364/

お前はこっちで遊んでろ
どこ行っても鼻つまみ者だと思うけどなｗｗｗ

>>706

おまえの遊び場なんかだれがいくかｗｗｗ

臭い、臭すぎ

お前がいるから誰も近寄らないんだよ多分、
スレ伸びないだろ？

俺もこの臭さから逃げるよ、ここで一生懸命ウンコしてなって

ｗ

なんだと　このやろう　やんのか！

ｗ

働け

パネルの『CREDIT』と『GAMECOUNT』がひっそり修正されてる件

ラスターじゃなくてサミタしっかりしろ

ハローサンタも修正されてるでしょ。
実機の恥をここまで持ち込むのを嫌ったんだよ。

そうなんだ。
じゃあ関候がリリースされたら『BIG　CNANCE』も直されちゃうのかな？

サミタじゃなくて提供メーカー側から
「実機の方は直せないけど、ゲームの方は自由だから直しといてね」
って依頼されたのかも。

VB2005でレッドセブンを作ろうと思うのですが、ドットの点滅処理の構文は
どのように書けばいいですか？
初歩的質問ですいませんが、よろしくおねがいします。

>>717
>VB2005でレッドセブンを作ろうと思うのですが
って作りもしてないのに聞くなよｗ
作ってみてどこが分からんか書けよ　話はそれからだｗ

VB単体でコンピューターが点滅を理解する文なんて作れるのか？

パチスロのサラリーマン金太郎を遊びたく思い、会員登録したんですが
無料会員なるものがあると分かりました
金太郎だけで十分なのですが、結論から言って可能でしょうか？
1000円払わないといけないのでしょうか？

無料の機種は毎月替わり、今はダブチャ
今すぐまたは継続的にサラ金が打ちたければ1000円払うかPS2

>>720
PS2がいいと思うよ。
中古だとかなり安いでしょ？

>>720
ゲーセンとか探せば実機あるよ

そもそも、ここでする話題か・・・・・

ゲーセンでお金使うくらいなら
1ヶ月だけでも有料会員なった方が得

レッド7で１７Ｇを逆押し、１８Ｇから順押ししたいのですが、VB2005ではどのように書くのでしょうか？

UWSで書ければVBで書けないわけないんだけど
取りあえずゲーム数をカウントするしかないと思うよ。

思ったをだけどさぁ
パチンコっていう単語から

パ

をとったら何になるんだろう？
気になって夜も眠れない

何処の小学生？早く寝なきゃだめだよ？

国際パチンコ当たった当たった　−　（こ　＆　パ　＆　あ）　＝　？？？

夜も眠れない

ポラリス全く当たらないので作れない

ポルァリス2、あれ今の仕様全く勝てそうに無いんだけど大丈夫なのか？
電動チューリップは羽根がテレポート方式なのか、
閉まるときに玉が羽根の内側に触れていても飲み込んでくれない気がする。

デジタル変動中は打ち出し停止、揃ったときもチューリップが
開くときだけ狙い打ちするとか技術が必須だったりする台なんだろうか。
あと打ち出しの強弱の段階が少なすぎて、ピンポイントに自分が狙いたいところを狙えない。

にゃんにゃん♪

そうそう、おまえらに言いたい。





ジュウザの笑顔エロすぎ

このスレはもういらないな

1 1 sage 2007/06/10(日) 17:30:11 ID:MQFbjNzd　　


もう100日なのに　まだ埋まらないってどういうこと？

別のスレがたくさんあるから仕方ないがな

永遠に準押しするUWSファイル教えてください
そこから勉強を始めようと思うので

UWSCダウンロードしてみたのですが、マウスの動きが777townの上では記録できなくて困ってます

>>737
つhttp://wktk.vip2ch.com/dl.php?f=vipper47108.uws

思えばこれをVBに移植したいという所から全てが始まった…。

>>738
ありがとうございます〜感謝・・・・

早速、これを直接UWSファイルに上書きしてプログラム再生してみたんですが順押しフルオートが始まりません・・・
もしかすると今回のメンテで使えなくなったんでしょうか？
エラーは出ないのでプログラム自体動いてるようなのですが・・・・

>>739
キーボードの設定が違うじゃないか？
ワンキー＝Spaceになってる？

>>740
はい
スペースになってます
なんでだろ・・・・

OSがＶＩＳＴＡじゃなかろうな？

>>742
Vistaでつが・・・・
Vistaじゃ無理ぽ？？？

>>743
権限の問題。
権限を解除するか、xp互換モードにする

>>744
どうやって解除するんでしょうか・・・・
聞いてばかりですみません
叩かれても文句は言いません・・・

プロパティで互換モードにしてやってみましたが、ダメみたいです・・・
長々とすみませんでしたorz

ノリでキャプりました。
いろいろ反省してますが、肩に背負った期待に
背くわけにいかないので（勘違いしとるけど）、うｐです。

編集下手過ぎてぜんぜんおもろくない。
ttp://tnpt.net/uploader/src/up13603.jpg

4mbあるので、注意してくだされ。
（たぶん携帯不可）

削除コードつけてないので、名前出しマズい人いたら、
自分で消してください。

・・・・・

アラデスの完全版マクロロください。

マクロロはありません

リールの期待する絵柄（色）をすばやく捕らえる事ができません
スーハナの第3リールの白７では早くて3回転目、通常8回転目位かかります

CreateDCAとGetPixelを使ってますが処理の高速化は可能でしょうか

〜以下概略プログラム〜
*目押し
;【1ポイント目の色取得位置セット;基本座標
tx=x座標　:ty=y座標
：
;【nポイント目の色取得位置セット;基本座標より少しずれた前後
txｎ=tx　:tyn=ty座標+5
gosub *getcolor ;色取得
色判定
１〜ｎポイントどれかが期待の色ならばキー操作。NGなら*目押しから繰り返す。

*getcolor ;色取得ルーチン
wait 1
;【デバイスコンテキストを取得】
CreateDCA "DISPLAY", 0, 0, 0 : dDC= stat
;【色取得】
;1ポイント目
GetPixel dDC, tx, ty
：
;ｎポイント目
GetPixel dDC, txn, tyn

;【デバイスコンテキスト破棄】
DeleteDC dDC
return

アラデスのマクロ欲しい人はもういないですね？

>>752
ｸﾚｸﾚ

くれくれ

ください＞＜マクロでしたｗ

あっち行けよ専用スレあんだろ
ここはクレクレ厳禁ってスレタイにもかいてあるやろ

http://wktk.vip2ch.com/dl.php?f=vipper47784.zip

南国ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!

愚痴らせてくれ


リーチかけてるやついるのに明カンするのやめてくれ
なんでわざわざリーチかけてるやつの裏ドラチャンス増やすんだ？


麻雀知ってんのかよ・・・

四槓子狙ってますから

・・・・・

何この過疎スレ(*≧ｍ≦*)ププッ

ポラリスマクロいる？
13時間店でなんとか勲章とれるくらいだけど。

>>762
くれくれ

ﾏﾀﾞｰ?

>>762
デジタル揃った後、どのタイミングで狙ってますか？

自分はデジタル始動→止める→デジタル揃う→
→再発射した１個目の玉がちょうど羽根にかかるくらいで狙う

デジタル揃ってなかったらはじめに戻る。ですが、
２５００〜３０００個/h位が限界です。

１３時間で取れるコツが知りたいです。

>>765

台の調子によるけど、13時間くらいでとれるよ。
無理なときもあるけどねｗ

打ち出しを、デジタル、羽狙い、大当たりで３段階に分けて
デジタル揃う→打ち出し→羽狙い→1.5秒後打ち出し終了
って感じにすると、羽の拾いが格段によくなります。

>>766
なるほど。

デジタル揃った途端から打ち始めて、1.5ｓ後に
止めるということですね。

自分はデジタル揃ってから羽根が開くタイミング見て
発射、ちょうど開いている間だけ、玉を出していました。
でも、思ったように羽根が拾ってくれなくて
参考にします。

>>766
うｐしてくれるんじゃないの？

自慢したかっただけだろ

ここはクレクレ厳禁だぜ
自分で作れよパチマクロ位w

ｱﾗDの継続率みんなどれぐらい？
おいらの糞マクロは60〜70%ぐらい
継続率100%なんて作れるのかな？

うん

http://i-bbs.sijex.net/imageDisp.jsp?id=negai&file=1191323147367o.jpg

http://zep.s3.x-beat.com/up/img-box/img20071002202542.jpg

綱取物語の大当り判定の座標と大当り時の色と通常の色を知っている方おられましたら教えてください。
当方、あたりひけずに困っております。
よろしく願いたします。

　　　, - ,----､　
　　（Ｕ（　　　　） お断りいたします
　　｜　|∨Ｔ∨
　　（＿_）＿）

座標ぐらい教えてやれよ
お前が教えろよ言われそうだが、俺はパチ会員じゃないので知らん

デザインが・・・

座標変わった？

>>779
自動補正してるから変わっても気がつかね

ＶＢ２００５で質問です。
ScreenToClientで取得したクライアント座標を
タイトルバーを含めたウィンドウ全体の座標に変換することは出来ますか？

ってこんな簡単に書いた質問じゃ意味分かんないですか？

うん

http://zep.s3.x-beat.com/up/img-box/img20071003191746.jpg

レイアウト変わったのって、右のボタン郡だけ？

>>784
そうみたい

ギンギンＢＩＧ中ＤＤＴ時、右リール止める時どこの色拾ってる？
上段に赤７スリープほとんどなしで止めてるんだけど、
なんかベル取りこぼしてる気がする、、

>>786
拾ってる？
拾ってますか？
だろ！

>>787
いいから教えてくださいカス

>>786
赤７二箇所あるからね。上のやつ拾っちゃてるとか。
ＢＡＲは一箇所だから、こいつを拾ってsleep調整がいいかも

久しぶりにカキコあったと思ったら
意味不明な質問に
意味不明な回答
このスレ最高

>>790
理解できないおまえが最高

>>786
右中オヤジ左チェリーで十分だ

>>792
禿同

>>793
禿親父

うん。ギンギンはボヌス中右中オヤジで左チェリ狙いで十分だな。
万枚もそれで達成したし。

>>780
自動補正ってどういう手法でしてるんですか？

>>796
人工知能

昔UWSでうｐされてた座標マクロのような物を、
VB２００５のソースで、気が向いた人がいれば貼って下さい。
よろしくお願いします。

ここはクレクレ厳禁です。

tes

ネオプラ連打放置で当たりまくってるけど増えねえ。結構外し効果高いんだね。作成済の人に質問だけど作るの簡単ですか？

簡単 右のナビランプ見れば楽勝よ

ボヌス()
　ifb レジ
　　レジ()
　else
　　ビジ()
　endif

ビジ()
　ifb リプ以外点灯
　　ビジDDT()
　elseif リプ点灯
　　ifb 残りゲーム数が8以上 JACゲーム数が2以上
　　　外し()
　　else
　　　順押し()
　　endif
　endif

ネオプラの外しってリール何処を狙えばいいのやらorz
逆押しでいいんですよね？
リールのどこを狙えばいいでしょうか…実機打った事ないのでワケワカメ

>>805
実機触ってなくても、それぐらい配列見れば判るだろ。
こんな所で質問して答え待ってるぐらいなら自分でググレよ HAZUSEとかで

111

>>806　あんまり相手にしないほうがいいぞ　805はメダカで沸いたクレクレに毛が生えたような輩だし

>806 左のBAR辺りを狙えばいいのかな　　取り合えず�dクス

>808　氏ね　

左にBARは2つ在るのには気付かないのかな？

バーも7も絵柄一つじゃないから約ｸﾚｸﾚじゃ、どうせ無理だろw

ネオプラの左目押しはちと苦労した
ELビジョンが邪魔する

ﾊﾟﾁｽﾚの>>155へ
たぶんこうすれば動く
if _
(左点灯 and 右消灯)　or _
(左消灯 and 右点灯)　and _
打ってれば　then
下押し
elseif _
・
・
・

ごめ、嘘ｗ
if _
((左点灯 and 右消灯)　or　(左消灯 and 右点灯))　and _
打ってれば　then
下押し
elseif _
・
・
・

あぁぁぁ・・・・完成したのか・・・・
スレ汚しスマソ
しかもageてたorz

いえいえ、ありがとうｗ
結局色の数値が少しおかしかったのと
左消灯 and 右点灯　and _
打ってれば then
下押し
でいけました
よくわかりませんが、逆のパターンは入れなくてもいけました

SetForegroundWindow　と　AppActivateはどちらを使うのが望ましいんですか？

AppActivateはアクティブにしてフォーカスを移すだけで、確実にZオーダーの
TOPに持ってくるわけじゃないので、SetForegroundWindowを使ってた。

まぁようはMSDNなり嫁ってこった。

http://msdn2.microsoft.com/ja-jp/library/dyz95fhy(VS.80).aspx
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpwinui/html/_win32_setforegroundwindow.asp

>>818
レスどうもです
でもそれもうだめみたいですねｗｗ

　　PostMessage TOWN_ID, WM_KEYDOWN, VK_SPACE, 0
Sleep (50)
PostMessage TOWN_ID, WM_KEYUP, VK_SPACE, 0

とりあえず連打すら出来ない　
PostMessageがうまく使えない自分にガッカリ　orz

ＶＢの仮想キー入力全滅らしいが、100氏は動かせてるのかなぁ？

今回は、俺空祭りのあとの赤字祭りとはちよっと違うみたいだね。

ツールを使ってなくても、普通にプレイしてるユーザーにも影響あるみたいだね。