サミタ真っ黒初心者質問スレ　その1

サミー777タウンマクロ初心者スレです。

クレクレ禁止です。

基本的なことはここで勉強してください。
Ｖisual　Basic 中学校
http://homepage1.nifty.com/rucio/main/main.htm

教えてもらうときは低姿勢でお願いします
エスパーの機嫌を損ねないように！！！

843:ネトゲ廃人＠名無し :2007/04/27(金) 12:48:57 ID:??? [sage]
【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

マクロスレ過去スレ一覧

ありがとうございます
これからはここで質問します。

スルー推奨：ソースをＤＬしたんですが、どうやって動かすんですか？

俺も今ＶＢ2005勉強中です
教えてくれる人がいると良いですね！

VB'猛獣目押し　　　

MAXBET
　　　　　　　　ElseIf _
PeekRGB(StaX, StaY, R) > 150 Then

　　　　　　　　　Sleep(100)

　　　　　　　　　　If GetForegroundWindow() <> FindWindow(vbNullString, "目押し") Then
　　　　　　　　　　Dim InsX As Integer = 422 : Dim InsY As Integer = 516
　　　　　　　　　　Dim Seg2X As Integer = 306 : Dim Seg2Y As Integer = 522
　　　　　　　　　　Dim LefX As Integer = 226 : Dim LefY As Integer = 615

　　　　　　　　End While

もうね、ソース貼ってあるだけじゃ解らないのですよ
本とか買ってきて読んでもなんとなく理解はできるのですが
別にね俺は電卓やら家計簿なんか必要ないんですよ
問題集はそんなのばっかりなんです・・・・・

だから↑のようなソースのみ貼られてもまったく動かし方すら解らんのですよ！！
例え↑のが猛獣の完全なるソースだとしてもどこに入れていいのかすら

わからない・・・・・・orz

>>7
おまえには無理
UWでさえ無理

>>7
死んだらいいのに

ちょっと調べればわかるだろ

初心者スレなのにひでーな

>>7
あのなー、おまえみたいなのがいるから独学で学んで
質問してもクレクレだの言われんだよ
迷惑だからマクロは諦めろ

検索しても其らしきサイトがヒットしないのです。
>>1のサイトのゲームのうごかし方も解らないのですが・・・・

Ｖisual　Basic 中学校ゲームか？
むずいぜｗｗｗｗ

ダウンロードして実行しても何も変わらないのです。
サイトにも手順が載っていないのです。

クレクレしてるわけじゃないのです
本当に自分で作りたいのです。
誰か助けて下さい。

本屋行ってきます。

過去スレぐらい嫁よ
推薦本もあるだろｗ

>>17さん有り難う御座いました。
一旦、家に帰って過去スレ読んでみます。

推薦本が見つかりません・・・・・
どこのスレにあるのでしょうか？

過去スレで気になるものを見つけたのですが

379 名前： 292 ◆NrzNAFPLAQ [sage] 投稿日： 2006/08/22(火) 19:13:49 ID:???
Private MOW As Long 　'相対座標対象ウインドウのハンドル
Private TOWN_ID As Long　　'タウンのウインドウハンドル
Const TOWN_NAME As String = "777タウン.net"

Private Sub Form_Load()
MOW=0　　　　'デスクトップのハンドル設定
End Sub

'色取得関数
Private Function PEEKCOLOR(x As Long, y As Long) As Long
ret = GetWindowDC(MOW)
PEEKCOLOR = GetPixel(ret, x, y)
ret = ReleaseDC(MOW, ret)
End Function

'相対座標化
Private Sub MOUSEORG(hwnd As Long)
MOW = hwnd
End Sub

Private Sub Command1_Click()
TOWN_ID = FindWindowEX(0, 0, vbNullString, TOWN_NAME)　'UWSCでのGETID相当
MOUSEORG(TOWN_ID)
調べたい位置の色 = PEEKCOLOR(X座標, Y座標)
End Sub

無駄な事してたんで修正＆少し詳しくしてみた

↑はとても重要なことなのですか？

520 名前： 292 ◆NrzNAFPLAQ [sage] 投稿日： 2006/08/23(水) 17:41:13 ID:???
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const click = 0
Const down = 1
Const up = 2

'キーコード送信 UWSCのKBDと同じ使い方
Private Sub KBD(KEY_CODE As Byte, 状態 As Long, ms As Long)
Sleep ms
Select Case 状態
Case 0 'クリック
Call keybd_event(KEY_CODE, 0, 0, 0)
Call keybd_event(KEY_CODE, 0, &H2, 0)
DoEvents
Case 1 'DOWN
Call keybd_event(KEY_CODE, 0, 0, 0)
DoEvents
Case 2 'UP
Call keybd_event(KEY_CODE, 0, &H2, 0)
DoEvents
Case Else
End Select
End Sub

524 名前： 292 ◆NrzNAFPLAQ [sage] 投稿日： 2006/08/23(水) 17:45:39 ID:???
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const BM_CLICK = &HF5
Const WM_ACTIVATE = &H6
Private hWnd2 As Long

'ウインドウ内のボタンクリック　 UWSCのClkItemと同じ
Private Sub ClkItem(hwnd As Long, BTN As String)
hWnd2 = FindWindowEx(hwnd, 0, vbNullString, BTN)
If hWnd2 = 0 Then Exit Sub
SendMessage hwnd, WM_ACTIVATE, 0, 0
SendMessage hWnd2, BM_CLICK, 0, 0
DoEvents
End Sub

うひょ

525 名前： 292 ◆NrzNAFPLAQ [sage] 投稿日： 2006/08/23(水) 17:49:40 ID:???
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

'アクティブウインドウのタイトル取得 UWSCのSTATUS(GETID(GET_ACTIVE_WIN),ST_TITLE )と同じ
Private Function GetActiveWindowTitle() As String
Dim lpString As String * 255
Dim lngResult As Long
Dim AWhwnd As Long
AWhwnd = GetForegroundWindow 'アクティブウインドウハンドルを取得
lngResult = GetWindowText(AWhwnd, lpString, 255) 'アクティブウインドウのタイトルを取得
GetActiveWindowTitle = left$(lpString, InStr(lpString, vbNullChar) - 1)
End Function

528 名前： 292 ◆NrzNAFPLAQ [sage] 投稿日： 2006/08/23(水) 17:52:07 ID:???
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private ret As long

'ウインドウアクティブ化　UWSCのACW(TOWN_ID)と同じ
ret = SetForegroundWindow(TOWN_ID)

530 名前： 292 ◆NrzNAFPLAQ [sage] 投稿日： 2006/08/23(水) 17:53:55 ID:???
これだけあれば最低限のモノは出来るだろ？

指定ウインドウでのマウスクリックも要るか？

とりあえずそれらしき物を抜き出したのですが
これはマクロを作る為のベースなのでしょうか？

マクロを作る為のベースというより部品だな
親切な奴がいるもんだｗ
普通はこれも自分で調べて作るもんだけど
こんだけあればあとはテキトーに切り張りして
並べるだけでマクロ組めるよ

VB2005起動して新規プロジェクトからどうやると
上にある物が活用できるのですか？

本を見てもボタンを貼って入力する見本だらけなのですが・・・・

自分も､中学見たり､本読んだりして勉強中です｡
まだ､質問すら出来ませんが､このｽﾚも教材としてがんばっていきます｡
優しい人が出てきてくれればいいですね｡

>>27
あと100回くらい本を読み直せ
それでもわからなければ買った本を間違っている

sub とか function　てのは基本的に部品だよ
原則的にはどこに貼ってもおｋ
ボタンを貼って入力する部分にその部品の呼び出し方
とかを書くんだけど、、
うまく説明できねーなｗ　スマソ

>>29
私の買った本は

【作って覚えるVisualBasic2005　Express Edition入門】

という本なのですが、電卓と家計簿の作り方しか載ってません
買った本が間違っているのですかね・・・・

また、本屋に行って探してみます。
ありがとうございました。

いや、本が間違っているというか、
ＶＢは本来マクロを作るためのものじゃないから…
マクロってちょっと特殊な使い方だから基礎を覚える本には
具体的に参考になることは書いてない希ガス
だからといって応用編とかいきなりみてもわかんないだろうし…

まあ、あせらずガンバレ

>>31ダメ元で応用編買ってみました。
頑張ります。

ありがとう(o^∀^o)

>>30
まずは電卓作ってみてもいい気がするよ。
自分で作ってみることが大切。
電卓が出来たら、次はその電卓のボタンを押すと
ｻﾐﾀのスロットのボタンが押せるように改造する。
はぁ？　と思うかもしれないけど、そんな改造をするには
どうしたら良いか、何が必要か順序立ててを自分で考えることが重要。
必要なものが何かと、自分のわからないのがどこなのかがわかれば
ググレカスですぐ解決するよ。ガンバレ！

>>20に有る相対座標対象ウインドウのハンドル は
ListView to CSVのようなソフトが必要なのですか？

もしかしたら>>24を使えばいいのかな・・・・

>>33とりあえず電卓作ったのでちょっとだけ前に進めそうな
気がしてきました。

気がはやいかｗ

VBなんですが、７からSleepをいれて他の絵柄を押す場合
１コマあたり、どれぐらいのsleepになるんでしょうか

1PCで2垢起動させ、それをVBで両方とも動かす事は出来ますか？
出来るなら、どうやってやるんですか？

頑張ってやる

やり方あるなら教えてあげろよーｗ






俺も知りたいです（ﾟДﾟ)y─┛~~

元気があれば何でもできる

UWでいいのでAタイプのリプはずし付いてるの下さい
自分で作ったけどサミタのオートより遅い気がする＞＜

ここは質問スレなのでクレクレ禁止です。
なるべく自分で作りましょう。

猛獣だけど、ダチョウの色はどの辺で取ってますか？

質問スレだけど、まともに答えてないやんｗ
このスレいるんか？ｗ

質問スレだから解答はないよ

>>38
理論的には可能だよ。
２垢起動の方法はｸﾚｸﾚと同等なので省略
作ったVBを動かすときも同等のやり方で可能だけど、
途中で止めたり再起動すると制御が外れるかも試練。

ちなみにやってみたけど、俺のＰＣじゃ重くてまったく動かなかった

ちなみに同時に動かしてみたのは旧北斗と北斗ＳＥね。



　動くわけねーよなｗｗ

>>37
１週（21コマ） 750ms

fend

おはようございます。
VB覚えるのに良さげなサイト見つけたので張っときますね。

http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/sak3vb.htm

ＶＢなんですが、目押しするときに色をと座標拾って

&HFF0000) / &H10000 > 150 And _

こんな文になると思うんですが、色と座標は取ることできるんですが
上みたいな１６進数？にするのが、いまいち理解できません

どこか説明が載ってるサイトとかあるんでしょうか、どなたかよろしくお願いします

ググレカス

http://www5.ocn.ne.jp/~minute/article/vb/a8.html

>>53
やさしい方ありがとうございます
がんばって勉強します

仕事が忙しくてVB勉強する時間が足りない・・・・

Vbマクロ動かすのに忙しくて、仕事探す時間が足りない・・・・

初心者真っ黒で、UWSCがんばってます。
ダブチャンのナビ対応が上手くいかないで困ってます。
親切な方ご指導を。　リールの端っこを見てるツモリだけど。。。

DL=peekcolor(222,407)
DM=peekcolor(336,407)
DR=peekcolor(355,407)

ifb (DL and $FF00) / $100 > 190 and _
(DM and $FF00) / $100 > 190 and _
(DR and $FF00) / $100 > 190 then
全点灯
ednif

ダブチャレはリール見る必要ない
リール下のランプを見れ

レスどうもです。　>>57です。
リール直下のnaviはATになっても変化しませんね。
リール横のnaviは動くんですが。。
何か方法はありますでしょうか。

ない

DL=peekcolor(223,407)
DM=peekcolor(335,407)
DR=peekcolor(449,407)
これでやってみたら？
後は知らね

>>57です。

ちょうど当たったので試してみましたが、上手くいきません。。。
打率４割程度(AT100)でした。　自分で設定したものと同程度でした。
横のnavi点滅を判定するしかないようですね。　

いろいろ調べてみます。　　　どうもでした。

>>62
DL=peekcolor(222,407)　//左リールナビ
DM=peekcolor(336,407)　//中リールナビ
DR=peekcolor(355,407)　//右リールナビ

ifb (DL and $FF00) / $100 > 190 and_　 //左リールナビ点灯
　　　　　(DM and $FF00) / $100 < 190 then　//中リールナビ消灯
　　　　　左リールボタン押下

elseif　(DL and $FF00) / $100 < 190 and_　//左リールナビ消灯
　　　　　(DM and $FF00) / $100 > 190 then　//中リールナビ点灯
　　　　　中リールボタン押下

elseif (DL and $FF00) / $100 < 190 and_　　//左リールナビ消灯
　　　　　(DR and $FF00) / $100 > 190 then　//右リールナビ点灯
　　　　　右リールボタン押下
else
ワンワンキー　 //全点・消灯時　　
　　　　　　　　　　　　　
endif
fend

>>57です。　　>>63さんどうもです。

なかなか当たらない．．．．　　後日報告します。

>>64
私はナビ点灯からﾅﾋﾞ処理に飛ぶように
作成して3ﾘｰﾙとも消灯判定しています

スターライト３階１０９南国
大ハマり中

才甲　で検索お願いします。

Ｕスクリプト: SyntaxError
40行目: 左リールボタン押下

>>57です。
navi判定を以下のようにしたら上手くいきました。

for i=1 to 5
DL=peekcolor(XL,YL)
DM=peekcolor(XM,YM)
DR=peekcolor(XR,YR)
if (DL and $FF00) / $100 > 190 then Lカウント
if (DM and $FF00) / $100 > 190 then Mカウント
if (DR and $FF00) / $100 > 190 then Rカウント
sleep(0.02)
next

カウント　３／５　で点灯とする。

このスレを見ている人はこんなスレも見ています。(ver 0.20)
★★★雑談スレ on 借金生活板 part9★★★ [借金生活]　←ガチャやめろ
ｻﾐｰ777townのVB 2005マクロを貼るスレpart1 [プログラム]
【eMachines】イーマシーンズ 127台目 (・∀・)ｲｲ!! [パソコン一般]
【どうして？】サミー777タウン初心者スレ-8 [スロットサロン]
サミー777タウンスレpart144 [スロットサロン]

vbで作ってんですが、ボタン1個は押せるんですが
2個目に移動しても、押してくれません
どうしたら、いいんでしょう

>>71
ちゃんと動くように直しましょう


としか答えられんぞｗ
部分的でもいいからソース貼るなりもうちょっと詳しく処理を説明するなりしてくれ
何が間違ってるかすらわからん

＞部分的でもいいからソース貼るなりもうちょっと詳しく処理を説明するなりしてくれ
どうもすいませんでした　

x1=437:y1=633
Call SetCursorPos(x１, y１)　'座標の設定
　　'マウスの左ボタンを押す
　　Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
　　'マウスの左ボタンを離す
　　Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

x2=507:y2=633
Call SetCursorPos(x２, y２)　'座標の設定
　　'マウスの左ボタンを押す
　　Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
　　'マウスの左ボタンを離す
　　Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

一回目の座標では、ボタンを押せるのですが、同じプログラム内で続けて
座標を変えて、クリックしようとしても、座標は移動しても
クリックはしてくれないのです

マウスのイベントを一回ごと、どうにか破棄しなくちゃいけないんですかねぇ？

+9武器から+10武器
その他アルティメットバトルに出現する全モンスターパターンも完全収録！
巻末にはNPCが買取りしてくれるアイテムの一覧や50音順の索引など“すぐに役立つ”インデックスを収録。
検証として各100回にわたるオーバーエンチャント実験の結果も掲載。
+9武器から+10武器ははたして100本中何本できるのか！？
その他の強化数でもn-daiとb-daiを各100枚使った実験をしてみました。
防具の強化についてもブラックミスリル製防具のOE実験も各100回ずつ検証。
興味深い結果が収録されています。
→http://www.aehatena-jp.com/games/
http://www.aehatena-jp.com/news/100658432/

>>73
いけそうだけどな・・・・・
試しに
　　'マウスの左ボタンを押す
　　Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

　　SLEEP(50）

　　'マウスの左ボタンを離す
　　Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

としてみて。押してから離すまで少しWait置くとうまくいくかも

>>75
wait 置いたら、うまくいきました
ボタンはなして、次のボタンを押すときの間はwait置いてみたんですけど
うまくいかなくて

ありがとうございました

これで次にすすめそうです

SetCursorPos
mouse_event
keybd_event
これらのAPI呼び出し後は必ず

・VB6の場合
DoEvents
・VB2005の場合
System.Windows.Forms.Application.DoEvents()

PrintScreen取って、目的の場所の色番号と座標を知るにはどうすればいいのですか？

ペイントを使え
あとはググれ

>>79
できました。有難う

UWSCでとりえず記録して保存した物の一部が下の奴なのですが
再生しても何も起こらないのですがなぜですか？

ACW(GETID("777タウン.net"),196,0,806,706,0)
BTN(LEFT,DOWN,453,299,125)
MMV(453,299,15)
BTN(LEFT,UP,453,299,109)
MMV(453,299,407)
KBD(VK_SPACE,CLICK,734)
MMV(453,299,157)
KBD(VK_SPACE,CLICK,296)
KBD(VK_SPACE,CLICK,968)
KBD(VK_SPACE,CLICK,235)
KBD(VK_SPACE,CLICK,235)
KBD(VK_SPACE,CLICK,344)
KBD(VK_SPACE,CLICK,547)
KBD(VK_SPACE,CLICK,1891)
KBD(VK_SPACE,CLICK,250)
KBD(VK_SPACE,CLICK,203)
KBD(VK_SPACE,CLICK,609)
KBD(VK_SPACE,CLICK,359)
KBD(VK_SPACE,CLICK,1781)
KBD(VK_SPACE,CLICK,234)
KBD(VK_SPACE,CLICK,250)
KBD(VK_SPACE,CLICK,813)
KBD(VK_SPACE,CLICK,781)
KBD(VK_SPACE,CLICK,1187)
KBD(VK_SPACE,CLICK,234)
KBD(VK_SPACE,CLICK,235)

上の物にリピート文を入れれば連打マクロができるのだと思うのですが
なんでか動きません

ワンキー連打が作りたいなら

While True
Kbd(VK_SPACE, DOWN,50)
Kbd(VK_SPACE , UP,50)
Wend

これでいい

>>83　出来ました
ありがとうございます。

最後の数字をいじれば連打間隔も変わりますね
これを基本に色々作れそうです。
本当にありがとうございました。

動くように下から一行づつ構文消して行けば？

>>84
あ〜あ これでサミタにＵＷＳＣ認識さたよ

>>84
出来ましたってｗ
コピペしただけでしょ？
そこで止まるか先に進むかはあなたに任せます

>>83の上にACW(GETID("777タウン.net"),196,0,806,706,0)
を付けたらサミタ画面クリックしなくても動くようになりました。

ACW(GETID("777タウン.net"),196,0,806,706,0) の
196,0,806,706,0の意味は何でしょうか？
　　　　　　　　　　　　　　　　　　　　

// Window state change
ACW( ID, X, Y, [Width, Height, ms] )
Argument
ID: WindowID
X, Y: Position
Width, Height: Size

>>89さん
>>88の場合
// Window state change
ACW( ID, X, Y, [Width, Height, ms] )
Argument
ID: WindowID 　196,0
X, Y: Position x=806 y=706
Width, Height: Size 0
であってますか？

ＮＯ
WindowID 　：　GETID("777タウン.net")
（ｒｙ

>>91有難うございます。
解決しました（＊＾ ＾＊）

>>88
だから あなたがＵＷＳＣで回す度に サミタ側にばれてるよ
漂白されるよ

必死な奴がいるなｗｗｗ

>>93
漂白自体はたいした事だと思っていないので平気です
今はUWSCで何が出来るかワクワクしています。
それから、今でもUWSC使っている方がいるのに
いまだに漂白されないということは現実的に
処罰が難しいからではないでしょうか？

ＵＷＳＣが使えなくなるんだよ 氏ね

Ｕ
Ｗ
Ｓ
Ｃ

差出人　けんろん
件名　はじめまして＾＾

はじめまして＾＾
突然のミニメ失礼します

画面左のアイテムに「インテり袋」や「？枚で勲章券袋」「8000枚以下の勲章券」があれば激甘ぐるぐる券1枚と交換します。
「9000枚で勲章券」は最高設定券1枚と交換します。

もし宜しければミニメールで返信いただければこちらからトレード依頼いたします。

よろしくお願いします。

>>83の構文の前にif構文を入れれば押し順のみのマクロも作れるのですかね?
更に色と座標を構文に入れると獣系のマクロも作れる様になるのでしょうか?

ならない

すいません誘導してきました。

'ウインドウ内のボタンクリック　メイン処理（UWSCのClkItemと同じ）
　　Private hWnd2 As Integer
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)
System.Windows.Forms.Application.DoEvents()
End Sub

使い方として↓では上手く行きません。

Select Case GetActiveWindowTitle()
Case "コインをチャージする"
ClkItem(hWnd2, "はい")
Sleep(100)

どうもステップインすると hWnd2 = 0 になって Exit Subしている
ようなのですが、修正すべき点があればご教示下さい。

うえのを見つけたのですが、保存して.exeにするまではしたんですが、
それからはかりません。おしえてください。

みなさん、マクロは機種別に作ってますか？

機種特有の処理はプロシージャにして、今打ってる機種を判別して
処理を振り分けるようにしてるんですが、機種判別の良い方法が無くて悩んでます。

今は、「機種説明はココをクリック！」を一度押して、
表示されるＩＥのWindowsハンドルから機種名拾ってるんですが・・

もっと良い方法ありますでしょうか？

>>102
過去ログ嫁
LOADされたpos.dllのパスで判別するのがアップされてるぞ

>>103
そういう手がありましたね・・。
そのくらいなら自分で出来そうなのでやって見ます。

ありがとう。

>>103
777townｽｰﾊﾟｰﾌﾞﾗｯｸ
http://game11.2ch.net/test/read.cgi/mmosaloon/1160825267/31

これですな。

UWSCですが、アクティブじゃなくても動かすこと出来ますか？
もちろん色取得に必要な部分は露出した状態で。

おまいら作る時間ですよ

もちろん閉店前に色々スクショ撮って、作ってますよ。

あそっか、こういう時間でつくればいいんじゃまいか？
次回からスクショ撮りまくって、メンテの時つくろ＾＾

ifb (peekcolor(
　↑
ここのスペースで1時間悩んだ
吊ってくる

>>110
それ昔やられた。
自分はuntilの後の括弧だったかな。
もしかしてUWSCってProcedure ifb()　とかできるんじゃ・・・。

>>110
Print"漏れもこれで悩んだ"

UWSの点滅のとり方教えてください＜(＿　＿)＞

for
　　peekcolor
　　if
　　　　break
　　endif
　　sleep
next

これでいいんじゃまいか。

鬼の目押しがうまくいきません・・
とりあえず、左の青７を作って見たのですが、とまらなかったり、関係ないところで止まったりです・・

repeat
L1=peekcolor(349,369)
L2=peekcolor(435,354)
L3=peekcolor(389,360)
//print "L1="+peekcolor(357,342)+" L2="+peekcolor(444,342)+" L3="+peekcolor(389,360)
until ((L1 and $FF) > 80) and ((L1 and $FF) < 90) and ((L2 and $FF) > 0) and ((L2 and $FF) < 10) and ((L3 and $FF0000) / $10000 > 230) and ((L2 and $FF0000) / $10000 < 240)
Sleep(0.01)
Kbd(VK_LEFT, DOWN,50)
Kbd(VK_LEFT, UP,50)

ありがとうございます。
スレ内にあったサラ金から、アラAを作り、ダブチャ挑戦していますが
横のナビが点滅しているので苦戦しています。
お教えいただいたものを元に、再度チャレンジしてみます。

>>116
ダブチャヒント
ナビあり時、リールバックライト

>>117さん
なるほど！その手がありましたね。
それなら、アラ・金とほぼ一緒でいいわけですね。
ありがとうございました。

でもとりあえず、今後スハナ、シオ、ハイビまで目指すと
点滅処理も身に付けないといけないわけですよね。
漂白上等でがんばります。

>>118
私も初心者で、>>115で悩んでます・・
お互いがんばりましょう

>>119
とりあえず条件文の
>((L3 and $FF0000) / $10000 > 230) and ((L2 and $FF0000) / $10000 < 240)
の変数L2はL3の間違いじゃないのか？

>>120
恥ずかしい・・　コピペ修正忘れでした。
やってみます。

>>117さん
ありがとうございました。
無事動かすことが出来ました。

まだ苦労してます・・・

一応、一定の場所で止まるようにはなったのですが、青７ではなくＢＡＲまで滑ってしまいます。
Sleep(0.01)を外してみたのですが、同じ結果でした。

目押しを作る場合、ビタでは無理なんでしょうか・・？

http://nukoup.nukos.net/img/5754.jpg

>>123
Peekを3箇所使用する為、マシンの処理能力依存なのでビタは厳しいかも。
Sleepで調整が無難です。
後、repeat〜untilの間にSleep(0.01)を入れる方が、PCへの負担が少ない。

>>125
なるほど・・１周させて止める・・って感じでしょうか・・？
ヒント有難うございます。
Sleep調整して試して見ます。

>>126
ですね。
正確に止めれてるのなら、1周待てばいけるでしょう。
後、repeat〜untilの間のSleepは、CPUの使用率を見て高いようなら導入。
そうでもないようなら、入れなくてもOKかもですね。

>>127
止まりましたーーー！
有難うございます。

あとは、中、右、ＲＥＧも同じ感じでやってみます。

>>128
出来たら下さい。

予約かｗｗｗ

>>128
Sleepの値っていうのはマシンによって変わってくるとは思うんだけど
どれ位入れました？やっぱ、0.75ms位ですか？

めちゃめちゃＰＣ初心者の者ですm(_ _;)m
２ヶ月ぐらい前にＰＣ初めて買って触ったぐらいの。
質問なんですが、
UWSCとVBならどっちが解りやすく覚えやすいですかね？
中学校見たんですが全く解らず、、、。
どなたかアドバイス頂けたら嬉しいです。

見てわからないものは、聞いてもわかりません。
どっちがすらもわからないようなら、辞めておけ。
一生かかっても無理ｗ

UWSの目押しなんですが、

A=告知ランプの場所
B=その他判定材料

ifb Peekcolor(A)いろいろ and_
Peekcolor(B)いろいろ then C

C=ifb Peekcolor(ボナス色取得位置)いろいろ then
Kbd(VK_LEFT, DOWN,50)
Kbd(VK_LEFT, UP,50)
endif

でいいんでしょうか？

>>134
だめ。
ifbの時点で0点

>>132
本気に勉強しようとしてるなら、参考書の多さから言ってＶＢだと思う。

>>135
ありがとう。
もうちょっと勉強します。

>>134
A=告知ﾗﾝﾌﾟの場所　の時点でどうかと思う

A=Peekcolor(告知ﾗﾝﾌﾟのx,y)
B=Peekcolor(その他のx,y)
変数にRGB値入れちゃう方がなんだか好き
んで、if構文でRGB値によって動作を振り分ける

ifb (A<>FFFFFF) and (B<>FFFFFF) then C()

Cという処理をそういう形でしたいときは
C()という処理系統?関数?を作らなきゃいけない

Procedure C()
ifb Peekcolor(ボナス色取得位置)いろいろ then
Kbd(VK_LEFT, DOWN,50)
Kbd(VK_LEFT, UP,50)
fend

どの部分からでもC()を呼べるんで、
C()を呼ぶ場所がたくさんあると、まとまる

普通はこう

ifb (Peekcolor(A)いろいろ) and (Peekcolor(B)いろいろ) then
　ifb Peekcolor(ボナス色取得位置)いろいろ then
　　動作
　endif
endif

AB見て、
共に判断条件に合うならCを見て、
判断条件に合うなら動作する

>>138
ありがとう。
なんとなく理解できました。

例えば
Aが1で、Bが1だったときはC()に飛ぶ
で、Produre C()
目押し処理

ifb
通常処理

見たいな感じで作ればいいってことですよね。
大変参考になりました。ありがとうございます。
さらに勉強します。

>>139
なるほど。非常に簡潔でしたね。
実はスハナ作っているんですが、
ハイビ点灯とバックライト消灯で目押し処理をして
ボナス中はハイビ点灯でも、バックライト点灯で通常処理
ってのを作ろうかと思いまして。

って考え方これであっているんでしょうか？

ん？目押し処理？
すまん、もっと根本的なところで間違っている気がする。。。

常に白七狙ってりゃいいんでない

>>143
そんな単純なことに気づきませんでしたorz

それがうまくいったら、リプハズシ（セグで判別？）もチャレンジします。

本当に皆さんありがとうございました。

>>143
>>144
いや、それでいいならいいんだけどねｗ

>>140
誤解してるかも知れないので一応書いておくね

Produre su-hana()
A=Peekcolor(告知ﾗﾝﾌﾟのx,y)
B=Peekcolor(その他のx,y)
ifb (A<>FFFFFF) and (B<>FFFFFF) then C()
else
通常処理
endif
fend

Producer C()
目押し処理
fend

ProducerやFunctionは入れ子にしない。

>>143
バックライト消灯したら色変わらない？

全白７狙いだとスイカこぼすな

>>145
ほぼ答えをいただきありがとうございます。
これで作成進めたいと思います。

旋風のﾅﾋﾞ座標がわかりません（どこで取得するのか）
教えてください

液晶

>>145
×Produre
×Producer
○Procedure

>>132俺も最近まで全然解らなくて、
いきなりVBに挑戦して色々調べたのだが
言葉の意味すら理解出来ませんんでした。
VB諦めてUWSCに漂白覚悟で代えてみたら
過去スレにソースが沢山あったので何となく理解する事が出来る様になりました。
取り敢えず漂白が嫌なら複垢作って試してみたら良いと思うよ。
今ならあっちのスレにサイドラのソースが貼ってあるから
UWSCのヘルプみながら大体理解出来る様になると思うよ。
あっちのスレの人間は捨てアド載せても実際にソースくれる人多分いない
自作自演のレスだらけだｗｗ

いや、中には親切な神もいる

ごく稀にはねｗｗ

>>131
最終的には

repeat
Sleep(0.01)
L1=peekcolor(353,368)
L2=peekcolor(388,360)

//ifb (L1 and $FF) > 80 and (L1 and $FF) < 90 then
// print (L2 and $FF)+" "+(L2 and $FF00) / $100+" "+(L2 and $FF0000) / $10000
//endif

until ((L1 and $FF) > 80 and_
(L1 and $FF) < 90 and_
(L2 and $FF) > 40 and_
(L2 and $FF) < 60 and_
(L2 and $FF00) / $100 > 40 and_
(L2 and $FF00) / $100 < 60 and_
(L2 and $FF0000) / $10000 > 225 and_
(L2 and $FF0000) / $10000 < 245)

Sleep(0.7)
Kbd(VK_LEFT, DOWN,0)
Kbd(VK_LEFT, UP,10)

こんな感じにしました。
３箇所を２箇所にして、Sleep追加です。

（＞＜； ）旋風のハズシが難しいです！
2箇所で取ってSleepじゃないと無理なのかなあ

ダブチャATの倍率選択って方法あります？
ドット多数拾ってSleep調整しかないんですかね？

>>157
まずは3枚役をDDTやって揃った事を確認する所から始まる・・・

>>156
repeat
　C = PEEKCOLOR(153,352)
until ((C and $FF) > 180) and_
　　　((C and $FF00) / $100 < 70) and_
　　　((C and $FF0000) / $10000 < 70)
Kbd(VK_LEFT, DOWN,50)
Kbd(VK_LEFT , UP,50)

適当に書いたら外せたんでそれ以降触ってないdeth

>>159
素直に赤7上段でいいのね　�d玖珠

>>158
役成立後sleepってことね。
thx!

// カーソル位置の色を表示する
While True
　　x = G_MOUSE_X;　y = G_MOUSE_Y
　　c = PeekColor(x, y)
　　Fukidasi("赤="+赤色(c) + ",緑="+緑色(c) + ",青="+青色(c), x, y, 3)
　　Sleep(0.5)
Wend
// PeekColorによる色は B,G,R
function　赤色(c)
　　Result　=　c　and　$FF
fend
function 緑色(c)
　　Result　=　(c　and　$FF00)　/　$100
fend
function　青色(c)
　　Result　=　(c　and　$FF0000)　/　$10000
fend

ＵＷＳＣは、Ｖｉｓｔａ対応していないのですか・・？
ＨＰみると、Ｖｉｓｔａ対応のような事が書いてあるのですが、
ＸＰで動いたものが、動きません・・

>>163
ヒントつテーマ

>>164
DiskTOPテーマの事でしょうか・・？
もしかして、アプリサイズが変わるのですか・・？
今、確認できないので、帰ったら確認してみます・・

>>165
正解！
窓のサイズが変わるから座標が変わる。
WindowsクラシックにしとけばOK

>>166
やぱりそうですか・・
有難うございます。　後で確認してみます。

本スレでスルーだったので、ここで聞いてもいいかな？

黄金神ってラッシュ中のレジはラッシュ抽選どうなってる？
１．無し
２．ラッシュ突入時と同じ確率（ラッシュ中は高確低確の状態移行が止まるため）

どちらかだと思うんだけど・・・。
誰か知ってる？

知ってるよ

教えて下さい。
お願いします。

　　　　　 ∩＿＿＿∩
　 　(ヽ　 | ノ　　　　　 ヽ　　/)
　　(((i ) /　　(ﾟ)　　　(ﾟ) | ( i))) 　やーだよー！
　／∠彡　　　 ( _●_)　 |＿ゝ ＼
( ＿＿＿､　　　 |∪| 　　　,＿＿ ）
　　　　| 　　　　 ヽノ　　/´
　　　　|　　　　　　　　/

このスレに書いた人はすぐに通報するから。
監視中だから

>>172
からから厨ここにも現れたのかよｗ
ほれ、早く通報しろよｗｗｗｗ

UWSで島唄のハズシ、目押しを作っているんですが、基本的に
以下の流れでよいのでしょうか？

基本
・ワンキー連打
・JACのランプとセグ見て指定ゲームまでハズシに飛ぶ Procedure hazusi
・キュイン時に目押しに飛ぶ Procedure Meoshi

目押し
・左7狙い。左中ボタン緑時に、上段に7の色取り、Sleepで調整
・中7狙い。左ボタン赤、中緑時に、上段に7の色取り、Sleepで調整
・右7狙い。左中ボタン赤時に、上段に7の色取り、Sleepで調整

ハズシ
・中右緑で中ボタンを押す
・中赤右緑で右ボタンを押す
・中右赤で上段に7の色取り、Sleepで調整

以上の組み立てであってますでしょうか？
それと、((○○ and $FF) < 200)　見たいな表記の場合
「○○の赤の値が200以下のとき」という意味であってますでしょうか？

教えてクンでスミマセンが、お教え願えませんでしょうか？

>>174
まずワンキー連打だと、危ないよ
意図しないボタンを押す可能性がある

だいたいの流れは合ってんじゃないの

僕だったら、外しの中・右は目押ししないな、だってスイカの確立から考えると
時間がもったいない、常に左に７・ベル・BARを狙えば、勝手に外れるし、ベルは取りこぼさない

(XY and $FF) < 200 はまず xy に
XY = PeekColor(x,y) って座標指定した色をいれるんだけど
それ以外は合ってるよ

島唄は422氏が過去ログにうｐしてたぞ

>>175さん、ありがとうございます。
ということは、通常時もMAXBET、レバオン、各ボタン押しがいいということですね。
ハズシなんですが、
・中右緑で中ボタンを押す
・中赤右緑で右ボタンを押す
↑はボタンが押せる（リールが回っている）状態の時に押す。（目押し不要）
・中右赤で上段に7の色取り、Sleepで調整
↑は、中右が押されたことを確認して、中右図柄関係なく7を押す。
という感じにすればよいのですね。

大変助かりました。ありがとうございました。

>>176さん
うｐされた物を使うのもアリだと思うんですが、
自分でも作ってみようと思いまして。
とりあえずサラ金はうｐされたものを使ったのですが、
過去ログをザッとみてみると、その後、ダブ、アラAあたりを作って
島、南あたりが次の目標みたいなことが書いてあり、
何とかサラ金の流用で、ダブ、アラ、北斗はクリアできたので、
「次は島かな？」と思い作っています。

>>178
いや、参考にしたらって意味。
どうせ、そのままじゃ動かない仕様だったし。

>>177
漏れの場合は
中リール停止後に中リール中段の絵柄を見て判断
リプなら右フリー左ハズシ、それ以外ならワンキー2発
という流れです　停止後に絵柄を見て判断ってのは
他機種にも流用可能だと思う　記述は長くなるけどね

ちなみに島唄は中→左でリプ外せるから楽だぞ

>>179さん　ありがとうございます。チョト見てみます。
>>180さん、>>181さん　参考になります。ありがとうございます。
中リプで左目押し右フリー、ベルなら左右フリーということですね。
とりあえず今書いているものが動いたら、グレードうｐチャレンジします。
なにぶんにも初心者なもので、今書いているのでアプアプしてます。

>>182
うｐなんかしなくていい！

>>183
うｐ　するっていってないよ

アップアップ（へとへと）ですって言ってんじゃないの？ｗｗｗ

スイマセン。書き方が悪かったです。
中リール役判断式グレードアップにチャレンジしてみます。

初心者が書いているので、うｐしようもんならあまりの適当ぶりに
諸兄方にﾌﾟｹﾞﾗされちゃうんで出来ません。

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

通報したら、準備しているだって。
もうすぐ警察来るから。親に迷惑かけて死を持って償う他ないから。

親かよｗｗ
ママのおっぱいでもしゃぶってろｗｗ
俺も嫁のおぱ〜い、しゃぶって来る♪

>>186
まだ居たの？頭空男
フリーメアド晒したクレクレのアフォ共の
どこが不法行為なのか教えて欲しいもんだ

配った方はサミネから規約違反＆利益を損ねた
（WAT袋の売上を減らす行為として）
って事で損害賠償請求も有り得るが
それでも民事不介入なので警察は一切関与しねぇよｗ

クレクレ厨必死だなw

　
　　　　 　　 ／ ＼　　／＼　ｷﾘｯ
　　　　　／　（ー） 　（ー）＼　　　　　　
　　　　／　　 ⌒（__人__）⌒ ＼　　　　>>クレクレ厨必死だなｗ
　　　　|　　 　　　|r┬-|　　　　| 　
　　　　 ＼　　　　 `ー'´　　 ／
　　　　ノ　　　　　　　　　　 　＼
　 ／´　　　　　　　　　　　　 　　ヽ 　 　 　 　 　 　 　
　|　　　　ｌ　　　　　　　　　　　　　　＼
　ヽ　　　 -一''''''"〜〜｀`'ー--､　　　-一'''''''ー-､. 　 　
　　ヽ ＿＿＿＿(⌒)(⌒)⌒)　)　　(⌒＿(⌒)⌒)⌒))



　 　　　　 　　　＿＿＿_
　　　　　　　 ／_ノ 　ヽ､_＼
　ﾐ　ﾐ　ﾐ　　oﾟ(（●）) (（●）)ﾟo　　　　　　ﾐ　ﾐ　ﾐ 　　　＜だっておｗｗｗ
/⌒)⌒)⌒. ::::::⌒（__人__）⌒:::＼　　　/⌒)⌒)⌒)
|　/　/　/　　　　 　|r┬-|　　　　|　(⌒)/　/ / /／　　
|　:::::::::::(⌒)　　　|　|　 |　　 ／ 　ゝ　　:::::::::::/
|　　　　　ノ　　 　　|　|　 |　 　＼　　/　　）　　/ 　
ヽ　　　　/　　　　　　`ー'´ 　 　 　ヽ /　　　　／　　　　　
　|　　　　|　　 l||l　从人 l||l 　　　　 l||l 从人 l||l　　　バ　　　
　ヽ　　　 -一''''''"〜〜｀`'ー--､　　　-一'''''''ー-､　ン
　　ヽ ＿＿＿＿(⌒)(⌒)⌒)　)　　(⌒＿(⌒)⌒)⌒)) バ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ン

ＵＷＳＣのpeekcolorがいまいちわからん。
赤とるのに$FF00だったり...
これって赤がまざってるから？

>>162
をちょっと変えて座標も取れるようにしたけど
作って意味あるかなって今思ってきた。

>>191
何がどうわからないのかわかりませんが
>>162　が理解できれば理解できると思うんです

民事とかで安心してるクズども法は解釈だから
どんなに安心しても法は解釈だから。
すでに追跡されているから。残念だから。

わかったから。

>>193
確認しました
ありがとうございました

>>193
で、空頭の君の解釈ではどう不法行為になるんだね？

頭が残念な>>193には、法律をダシに相手を脅かす文章を組むのは難しすぎた様です＞＜

>>193
特定しました。覚悟してね。

こっ、こやつ・・・

オークスの保４停止を作ろうと思うんですが、
回ってない時、ランプが点滅してるので困ってます。

どこを取れば良いと思いますか・・？

基本的なことで申し訳ないのですが、
AA=Peekcolor(x,y)とした場合、fendまでが有効になるのでしょうか？

また、PUBLIC AA=Peekcolor(x,ｙ）とした場合
AAは他のProcedureの中まで有効なんでしょうか？

uwscやり始めたばかりの者なのですが目押しで詰まってますorz
作ろうとしてるのは鬼武者です。
流れは過去スレから拾ってきたのを参考に作れてるんですが
（1G毎にBR交互に狙う感じで）
赤７や海苔が全然狙えません。
もうオヤジ打ちの方が揃うんじゃねーのって位狙えません。
どなたかコツをご教授お願いします。

サミタにメールして聞いたら親切に教えてくれるよ

>>201
PUBLIC AA
AA=Peekcolor(x,y） 　　有効

>>202
それだけじゃさっぱりわからん。

>>204
それ回答になってるのか？ｗ

>>201
調べるとか、試すという事をシランのか？

つhttp://homepage1.nifty.com/rucio/main/kiso/Scope.htm

>>206
ありがとう。でもいろいろ調べてみると、あまり使わないほうが
よさそうな意見があったので、面倒でもコピペしてその都度宣言していきます。

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

いい加減UWSCやめたら？
時代遅れだしサミタにバレバレなんだからさ

Public X = 333; Public Y=777
Public X = 444; Public Y=888
AA = PeekColor(X, Y) //仮に　値が100とする
Print "1="+AA
abc()

Print "3="+AA

Procedure abc()
　　AA = PeekColor(Z,X)　//仮に値を200とする
　　print "2="+AA
fEnd

//************** 結果　*******************
1=100
2=200
3=100

Public X = 333; Public Y=777
Public X = 444; Public Y=888
Public AA = PeekColor(X, Y) //仮に　値が100とする
Print "1="+AA
abc()
Print "3="+AA
Procedure abc()
　　AA = PeekColor(Z,X)　//仮に値を200とする
　　print "2="+AA
fEnd
//************** 結果　*******************
1=100
2=200
3=200

>>204
>>205
省略しすぎた？

>>208
別に時代遅れとかでその言語が使えないわけじゃないし。
うｐはどうかと思うけど自分が得意な言語で作ればいいんじゃね？
ばればれっていわれてもコンパイルすればいいし　
所詮ゲームだから

>>200
俺は諦めたｗ
単発打ちになるけどそんなにタイムロスしないからいいかなと思ってる。
それとオークスは保３止めの方がいいよ。

>>207
根本的に使い方が違う。
関数内でしか使わないような物
（forループのカウンタとかpeekcolorの戻り値とか）
はDIMを使う。
っていうか他の関数でも値が同じになったら困るでしょ。
ループ中に別の関数呼んで、その呼ばれた関数でもループ使ってるなんて事は普通にあるわけで、
そんなとき関数毎に変数名を変えるなんてクレイジーでしょ。

で、別の関数で、ある変数の値とかを使いたいときは関数の引数に入れて使う。

PUBLIC KEY[4]=VK_LEFT,VK_DOWN,VK_RIGHT,VK_SPACE // キー定義を配列化
みたいな定数定義とか、その関数を抜けてもフラグ等の状態を保持したいときに
PUBLICを使う。

>>200
PUBLIC STOP

for i=0 to 10
　　if 保３消灯 then break
　　sleep(0.01)
next

if i = 11 then
　　if STOP = 0 then
　　　　STOP = 1
　　　　止める
　　endif
else
　　if STOP = 1 then
　　　　STOP = 0
　　　　打ち出す
　　endif
endif

>>211>>213
なるほど。
ループさせて点灯状態を見るわけですね。
フローは理解出来たので、やってみます。

併せて大当たり中、チャッカーが閉じてる時の打ち出し停止も実装したいんですが、
チューリップ有るから大変そうですね・・。

>>213
それってどういう処理？
俺の読解力では解決しているように見えないのだが・・・・

>>214
あとオークスは大当たり判定をアバでやるしかないのでご注意を。
お勧めは金カバ。あのアバのお陰でかなり楽になったｗ

>>215
保３の点灯状態をチェックし
消灯を確認した場合はループを抜ける（ループカウンタがそこで止まる）
点灯の場合はsleep後ループ先頭へ
１１回チェックして終了（カウンタの設定がまずかったので１１回やることになりますorz）

ループカウンタの値を調べる
ループカウンタがMAXだった場合
（途中ループを抜けなかった場合）
点灯状態と言うことで止めうち（既に止めうちしていた場合は何もしない）
それ以外の場合は打ち出し（既に打ち出していた場合は何もしない）

回ってないときの点滅も点灯と判断しないかのぅ

>>217
それは通常の処理ですよね？
オークスは回転停止状態だと保留ランプが点滅する（しかも点滅間隔かなり遅い）ので
保３点灯のチェックに引っ掛かって打ち止め停止と打ち出しを連打してしまい、
単発打ち状態になるのです。

11回チェックして、1回でも消灯を確認したら点滅状態と判断するんだな

＞点灯状態と言うことで止めうち（既に止めうちしていた場合は何もしない）
＞それ以外の場合は打ち出し（既に打ち出していた場合は何もしない）

この部分は、ボタンの色を確認する必要がありそうですが、、、

現在止めてるか打ち出し中かは状態変数STOPの値で判断します。
レスポンスがしっかりしてれば
初めに状態の同期を取っていれば、
問題ないはずなんだが、サミタだしねぇ。

やっぱ、状態が確実に遷移したかの確認は欲しいところだねぇ。

>>220
いや、無理だと思う

１、ループの途中で消灯／点灯が切り替わった場合、保留追加によるものか点滅かの判断が不可
２、消灯確認だと、点灯している状態から回転開始した場合は保留０で消灯するので判断が不可

今思いついたのは保１状態でフラグを立てて、保２状態でフラグを落とす。
フラグが立ってる時は保留状態にかかわらず打ち出し続行し、フラグが落ちてる時は保３状態を
元に打ち出し停止を行う。

これでいけそうな気がしてきた

>>213のフローと、ボタンの色判断組み合わせて、なんとなく出来ました。
が・・大当たり引けない・・・orz

とにもかくにも、いろいろ意見頂き、感謝です。

ありゃ・・　やっぱり、回ってない状態だと止まりますね・・・

>>224さん
それは、回転が始まったトリガーを保１でやる・・って事でしょうか・・？

点滅間隔が遅いのは困りますね。
各保留ランプが同時に点滅であれば

PUBLIC STOP = 0　　//　打ち出し状態から開始

if 保３点灯　AND 保４消灯 AND　STOP = 0 then
　　STOP = 1
　　止めうち
elseif 保２点灯　AND　保３消灯　AND　STOP = 1 then
　　STOP = 0
　　打ち出し
endif

でいけるんじゃない。

>>224
俺宛かな？
最初に保１貯まるまでフラグ立ちませんが、１回保１以上になったらフラグが正常に切り替わるかと。
今会社なので検証できませんが・・・・

>>225
あー、それで行けそうですね。

>>225
因みにその方法だとフラグもいらないですね。

if 保３点灯　AND 保４消灯 then
　止めうち
elseif 保２点灯　AND　保３消灯 then
　　打ち出し
endif

これでいけるかと

>>227さん　他の方
大当たりを判断できるアバが無かったのでちょっと苦労しましたが、おかげで出来ました。
ありがとうございました。

次はアレジンでも行こうかな・・・。

>>212
あなたもPublic宣言の意味を分かっていませんね。
使う範囲が同じプロジェクト内に限る場合はPublicは使わない。
VB2005ならFormの宣言部でPrivate宣言にするべき。

>>229
あくまで、ＵＷＳＣの話なんですけど・・・。

サミタウインドウの最上段の店舗名や着席してる台番とかの文字列を取得したいのですが
UWSCで取得可能なのかな？
単純にタイトルの取得では取れないし、
どうすれば取れますか？

>>229
UWSCのPublicをVBと同じに考えたらダメだよ。

>>229
m9(^Д^)9m

それ浜リリースされたのはいいがどうやって止め打ちしようｗ

>>230
やってはみたけど、APIでは、取得できなかったorz

コテハン間違えてるしorz

>>234
やっぱりだめですか。
PEEKCOLORで強引にやるしかないのかorz
判別作るのまんどくさ。
しばらく保留だな。

詳しく書けませんが、もしかしたら取得できるかも。
出来そうだったら、報告しますね。
多分、記載できる内容でなくなるとは思いますが・・・

>>236
メモリ見ればいいのよ〜
かんたんよ〜

発想が貧相だな

お前らのログ提出したから。正式に受理されたから。
今に見ていろよ。後悔しても遅いから。

>>240
書いてて惨めにならないですか？

>>240
ハッタリには相応の知恵が必要です。勉強しましょう。

マッハGT中BIGの押し順ナビ（右か左）が上手いこと押せません。
何処か良い座標ないでしょうか…。
矢印のはみ出ている奴から拾おうとしているのですがミスだらけです…orz

書いた後に気付いたんだけど、順押しの時は上手くいって逆押しの時に
右を連打してしまうので、且つ第3ボタンが青だったら押すという条件を
加えてみました。様子見てみます。

ああ〜

マッハですけど、知恵を貸して下さい…。VB2005です。
ナビ処理は既に出来ています。BIG中のナビさえ上手くいけば…。orz
結構な確率で押せるようになりましたが、失敗する場合もあるといった感じです。

'マッハGoGoGoボーナス時処理
Private Sub mahha_bonus()
If GetRed(300, 168) < 30 And GetBlue(340, 600) > 200 Then
KeyEvent(Keys.Right, down, 50)
KeyEvent(Keys.Right, up, 50)
Sleep(5)
ElseIf GetRed(300, 168) > 200 Then
KeyEvent(Keys.Space, down, 50)
KeyEvent(Keys.Space, up, 50)
Sleep(5)
Else
KeyEvent(Keys.Space, down, 50)
KeyEvent(Keys.Space, up, 50)
Sleep(5)
End If

間違えた…orz
無駄なことしてたので、↓に修正してますが、イマイチです。
取りあえずsleepで調整してみます。

'マッハGoGoGoボーナス時処理
Private Sub mahha_bonus()
If GetRed(300, 168) < 30 And GetBlue(340, 600) > 200 Then KeyEvent(Keys.Right, down, 50)
KeyEvent(Keys.Right, up, 50)
Sleep(5)
End If
KeyEvent(Keys.Space, down, 50)
KeyEvent(Keys.Space, up, 50)
Sleep(5)
End Sub

自己レス。
Sleep多めにしたら、>>247で安定して押せるようになりました。
お騒がせしました。

魔法のハイビスカスでスイカ目押しをさせるにはどれを基準にすればいいですか？
とりあえず中ドラムだけ目押しを入れようと思うのですが

灰210か・・・・

うは。。マッハ完成したと思ったらGT中のボーナスは
告知ないのね…。毎ゲームボーナス狙う必要有りか…？
めんどくさい…。

調べるのもなかなか骨が折れますね。
調べついでに書いておきますか。
>>236　やっぱり、メモリが一番早いっぽい。
APIのSendで取得してみたけど、無理だった。
子Window使用かなと思って、あれこれ見てみるもたどりつけず。
更にほにゃほにゃするも、圧縮に阻まれそれ以上見れず。
無理やり戻そうとするも、これまた最新でも無理でした。
とりあえず、キャプションは>>238さんの言うようにメモリが楽。
すぐに見つかると思います。

FindwindowEX関数を使って「目押ししますか」のウインドウが出たときに、
そのハンドルを取得する方法を考えていたのですが、この関数、
777タウン.netのハンドルを親のハンドルとして渡して、
第４引数に”目押し”の文字列を渡してもうまくいきません。

FindwindowEX(親のハンドル, 0, vbNullString, ”目押し”)
こんな感じで使っているのですが、0が返ってきてしまいます。
目押し指示で出てくるウインドウは777タウン.netの「子ウインドウ」と考えて良いんでしょうか？
あるいは、私が使い方を勘違いしているのでしょうか？
ご教示お願いいたします。

>>253
たぶん「目押し」ウィンドウは、「タウン.net」の子ウィンドウじゃないと思う。
ちなみに、自分はVC++だが「EnumWindows」を使用して取得してます。

>>254
なるほど、子ウインドウを探すやり方自体が、的を外していた可能性が高いのですか。勉強になります。
私VBでやっておりますが、早速別のアプローチを探してみます。
大変ありがとうございましたm(_ _)m

>>255
普通にFindWindowで大丈夫ですよ。
と会社にこの時間に出社して、書いてる俺orz

>>256
お仕事ご苦労様です。
…そうか、子ウインドウでないなら普通に取ればいいのかΣ（ﾟдﾟlll）
一人で親子関係という先入観に囚われて時間を浪費していたようですorz

レス頂いた方々、重ねて、ありがとうございました。
お陰さまで、明日仕事で発つまでにもう一歩進められそうですｗ

>>820氏
VB2005で目押しが必要な（沖スロ等）タイプで、どうしても
目押し処理に行くまでの処理が上手く出来ません…orz

Doでボタン有効まで回すと、目押しウィンドウ等出たときに
デフォルトボタンを連打状態になってしまうし、各INSERTや
STARTボタンで判定すると、点滅したときに止まってしまうし
何か参考になる流れや関数等あればご教示下さい…orz

>>258
820氏ではないですけど、繰り返しをDo〜Loopから、For〜Nextに変えてはいかが？

動作に十分と思われる回数ループするような条件にしておいて、目的の動作をさせたらExit Forで抜ける。
意図しない状況に陥っても、ループを規定の回数こなすと抜けるから、しばらくすると次のステップに進む。
無限ループで、処理が完全に止まるような事にはならずに済むよ。

>>259
BET、レバーON、第1、第2、第3停止まで全てForで処理すると
いうことでしょうか？例えば

BIG確定時処理
STARTが付くまでBET→STARTが消えるまでレバーON→第一目押し位置
確定まで...

とすると、結構な時間と、もし上手く条件拾えなかった場合
レバーONしたのにリールが回らず目押し処理に入ってForで回した分
待ちという流れになったことがあります…。。

最後に保険でSpace押すようにしておけばいいのかなぁ…orz

上手くリールを回せさえすれば、Forで目押しは良いと思うのですが
みなさんそんな感じなんでしょうか…？

Forループは指摘のとおり無駄な処理が発生するのでやらないほうが良いよ
停止ボタン有効時とかの条件でDoループさせた方が効率的。
目押し以前に、そもそも目押しウィンドウ出現時の処理がキチンと出来てないのでは？

>>260
>BET、レバーON、第1、第2、第3停止まで全てForで処理すると
>いうことでしょうか？

俺の場合はは大体そう。でも全部じゃないね。
Doでも100％確実に動作するところでは使えるんだろうけど、ループ中に他のアプリケーションが
アクティブになったりすると困るから、ループ中の事故をプログラム内で復帰できない部分ではforを使ってる。

で、目押しの分待たされるって話は、レバーONしたのにリールが確実に廻らない
流れに問題があるように思うんだけど。
機種によって仕様が違うし、対処は変わると思うけど、たとえばレバノンが、スタートの点滅が理由で
失敗するなら、レバーのオンは「ボタンが押せる色に変わるまで」にすれば良いんじゃないかな？

動作の失敗をForで逃がすのはあくまでも例外で、
本来の処理で失敗は滅多に起きないように組むのが普通だと思ってる。

【社員敗北】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ4【ﾏｸﾗｰ勝利
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/

ようやく帰宅して、寝始めてたとこでした＾＾；
全てにFor〜Nextだと、確かに処理に手間取ります。
基本的には、Do〜Loopでいいとは思います。
単になんらかの影響で、無限Loopに陥らないようにって程度ですね。
基本は、>>262さんの言うように例外のないような作りを目指してはいますね。

ボタンの有効判定は、下記みたいな感じ。
Select case True
Case 左ボタン有効判定
Case 中ボタン有効判定
Case 右ボタン有効判定
End Select
後は、各目押し処理なりに飛ばしてるかな。
基本は、こんな感じ。

いまだに甘く考えているようだけど
賠償金とかすごい事になるから。

レス有り難う御座います。やってみたいことはBETから第3停止まで
全てワンキーを使わずに処理（例えばBIG確定時BIGを狙う）なんですが
島唄ですらつまずいている状態です…orz
ここが出来ればBIG中の目押し処理も上手く出来るような気がするのですが
下記のような感じでしょうか…。もっと良い形があれば指摘下さい。VB2005です。

・ベースはよく貼られているワンキー処理（Select Case〜各ダイアログ処理）
機種別判定〜

Private Sub メイン処理()
IF スタート点灯　then
　レバーON（↑キー）
elseif インサート点灯 then
　BET押す（３キー）
　if ボーナス告知　then
ボーナス目押し()
else
　　通常時DDT()←Select Caseを使った各ボタン目押し
　endif
else
レバーON
endif
end sub

>>266
わかったから。

>>267
Private Sub メイン処理()
If 清算点灯　then
Bet及びレバON処理
else
　if ボーナス告知　then
ボーナス目押し()
else
　　通常時DDT()←Select Caseを使った各ボタン目押し
end if
end if
end sub
こんな感じ？

>>269
…清算点灯！
その手がありましたか。ビックリです。
着眼点変えていかないと駄目ですね〜。。

帰ったら早速試してみたいと思います。
この基本的な流れがあれば、色んな機種に応用出来そうですね。
有り難う御座いました。
（最近サミタ自体より、VBいじってる方が楽しい…）

どなたか1からマクロを教えてください。
お願いしますm(_ _)m

１行目

Option Explicit

過去ログを読む事から始めましょう

次は、Hello Worldに挑戦だ:D

ここの住人通報しますた

>>275
お前もな

>>275
確認しますた
ありがとうございますた

あ

Vistaで、UWSCをEXE化したものが動きません。
単に、SPACE連打するだけの物すら動かないので座標の問題ではないと思うのですが・・。
記述上、どこか直す必要あるんですか？

←にアバ表示してないか？

>>280
表示してます。
それは、座標関係ない処理でも影響するのでしょうか・・？
ＸＰの時は、座標だけ調整すれば大丈夫だった気がするのですが・・

アバの画面出してると「GETID」でハンドル取得できないって落ちでしょうか・・？
今、確認できないので後で見てみます

hwndは、同じだったっけか？
ま、どちらにしても自作でないのなら、←は閉じた状態がデフォ。
閉じればOKなはず。
それ以上なら、がんばれ

exe化する前に動くものがexe化したら動かないって話なら諦めろ

大人は質問に答えたりしない それが基本だ

>>258
質問です。

漏れのチソコはションベン以外に使えるようになるのは何時でしょうか？

そのうちもげてなくなるから安心しる

やっと解決しました。
どうやら、ユーザーアカウント制御がONだと、「KBD」が効かないようです。

毎回「実行しますか？」を聞いてくるので、うざいからユーザーアカウント制御を切ったらうまく行きました。
もう少し、Vista自体を勉強します・・。

←の状態は関係ないようです。

私は、自作派なので、これからXPで作ったマクロの座標をVisaに合わせていきます。
ついでに、見やすく作り直そうかな・・。

意見頂いた方、有難うございました。

>>288が気になったので試してみた。

ユーザーアカウント制御ONの状態でサミタ起動して、
UWSCの「記録」をONにして、普通に２〜３回回す。
で、「保存」してソース見てみると、確かにキー押下が記録されてない。

これって、どっちの問題・・？

すいません。>>114を参考に点滅処理をやりましたが、うまくいきません。

点滅の具体的な処理方法を教えてください。お願いします。

>>290

>>213とか

>>291
なんとなくわかりそうだけどよく理解してないよ・・・。
具体的には、旋風のビジ中７セグが点滅するんだよ。これを判別したい。

質問ですが
A=Peekcolor(217,338)
B=Peekcolor(217,416)
until ((A and $FF) < 20) and ((B and $FF) < 25)
の場合と
A=Peekcolor(217,338)
until ((A and $FF) < 20) and ((A and $FF00)/$100 < 25)
の場合　処理が軽いのはどちらですか？

>>293

下のほうが軽い

>>293
その意味がわかって聞いてるのか？

意味はわからないっす

色を見る処理（Peekcolor）が少ないほうが軽い。=下段

最近目押し処理に二ヶ所見るようにしたから
少しでも処理を軽くしようとしてみただけなんだけど
やっぱり軽いのは一ヶ所だけ見るんですね。。。


ちなみにさっき載せたのはｶｾﾞの左赤7の座標です

漏れも極力 緑や、青（/$100や/$10000）を使わない リールの消灯演出等で、絵柄の色が変わり止れないのを防ぐ為 絵柄の黒い所を撮る様にしてる。

どなたかどんな真黒でもいいので、教えてくれませんか？
1からVB勉強しているのですが、真黒にたどり着く手がかりすら掴めません。。
優しい方お願いします。
[email protected]

for i=0 to 10
　　if ((PEEKCOLOR(274,504) and $FF00)/$100 < 220) and ((PEEKCOLOR(277,508) and $FF00)/$100 > 220) then break
　　sleep(0.01)
next

if i=11 then
　　if STOP = 0 then
　　　　STOP = 1
Kbd(VK_RIGHT, DOWN,0)
Kbd(VK_RIGHT, UP,50)

　　endif

目押しの作り方で意見を聞かせてください。

たとえば、猛獣の左リールだと、赤、緑、白を取りますよね・・？
この時、赤等取り易い所を取って、後はSleepで調整するのがいいのか、
Sleepは一定にして、各色取ったほうが良いのか・・。

又、前者の場合0.6位を基準に調整していくのだと思いますが、
どのくらいのピッチで、どっち（＋−）に調整していくのがいいのか・・

意見聞かせてください。

SLEEP(0)から0.1ずつ増やしていけばわかるよ。
それぐらいは自分で試そうね。

猛と超は３色取った方がいいと思う。
ＳＣの消化遅くなっちゃうから。

PC環境に寄るんだろうな

漏れはマクロなんか適当に作って適当に動けばいいや派

漏れはﾌﾙ攻略派ですが何か?

クレ。。。なくてもいいよ　漏れもだから

作り込みは機種スペックにもよるよね
獣王とか金太郎は簡単に万枚いくからおざなり
反面、スーハナや魔ハイビのコード行数は異常

>>308
マホハイのDDTは青7狙いだけでは無理なんですかね・・・
スイカ右上段ビタの位置だとバーまで滑ってくるんでREGは取れるけど、スイカ右上段受けの時、何回かこぼしてる気がします。

左リールを青7とリプレイの２点で取って毎G　青７・リプ・帽子　で止めると楽です

ゲームで便利に使用できる補助装置を紹介します。
[Macro_Auto] : 反復的に使用するキーボード/マウス動作を録画して反復再生
[Graphic_Auto] : 画面を認識して決まった動作(攻撃/スキル/バッフ)を録画して使用
[M-Key] : ゲームで反復的に使われるキーの集合を一つのキーに登録して使用
好評発売中！！
http://www.maplestorfy.com/lunimkabuges

>>311
Trojan　乙

ここで聞くべきか分かりませんが、VBである関数を
DLL化して、別の関数を本体側（EXE側？）から呼び出すことは
可能でしょうか。

当たり前に出来る。

>>309
とりあえず、はさみ打ちにすればいいんじゃね？

では、DLL側でEXE側の関数を呼び出す場合、どのように
記述すれば宜しいのでしょうか。
普通に○○()とするだけでは怒られてしまいます…。
関連付けてしまえば問題ない？

パスが通ってないんじゃない？

>>316
あのさ、質問がここですべき内容ではないと思うが？
PGスレでVB6かVB.NETでやるべき。

平素、777タウン.netをご利用いただきまして、誠にありがとうございます。

さて、当運営事務局ではお客様が777タウン.netをプレイしている際に、
利用規約で禁じられております外部プログラム（ツール類）を
使用されている痕跡を、プレイログ等の精査により確認しております。

これらの行為は、利用規約第13条【禁止事項】に該当する行為となります。
ついては今回の行為に対しまして「警告処分」と致しますので、
通知いたします。

今後、同様な行為を行った場合、アカウント停止・削除の措置となる場合が
ありますのでご注意ください。

【参考資料】
利用規約（一部抜粋）
第13条【禁止事項】
(23)当社が本サービスにおいて提供、または認定したプログラム以外の
　　外部プログラム（ツール類）、エミュレータ、チート等の行為を
　　目的としたユーティリティ等の開発、配布および使用、
　　またはこれらの使用を第三者に誘発、推奨させるような全ての行為。

>>319
それは警告メールｗ
で、これが処分通知ｗ

平素、777タウン.netをご利用いただきまして、誠にありがとうございます。

さて、当運営事務局にてプレイログ等を精査した結果、お客様が弊社サービスを
プレイいただく際に、当運営事務局が認定しない外部プログラム（ツール類）を
複数回使用されたことを確認いたしました。
これらの行為は利用規約で定める禁止事項に該当すると判断いたしました。

よって、本メールをもって「処分通知メール」とし、本行為に対する
ペナルティとしてお客様のゲーム内の一部情報を、入会直後の状態に
リセットすることを通知いたします。

なお、本件のお問合せにつきましてはゲーム運営の保安上、詳細を
お伝えすることは出来ませんので、予めご了承いただきますよう
お願い申し上げます。

俺は警告も処分も来てない。
EXE化はＯＫなのか？

マクロは処分されませんですた

じゃ、安心して浜ちゃん作るか。

右打ちは、ハンドルの指を掛ける所の位置しか思いつかないけど・・
いい方法無いかな？

>>323
なんでハンドルそのもの？
ハンドルの上にゲージがあるじゃないか
ゲージ有効な部分は、赤＞50、青＜10でOKだ

→を5回押すじゃ駄目か？

右に打つだけなら良いけど、戻すことを考えると駄目かな・・？と思ってね。
ゲージは使えそうです。

ちょっとやってみます。

20時間のそれ浜が満席だったんで、アレジンを作ってみた。
当たり判定は台枠ランプにしたけど、他にある？
Fがついたらストップをクリックするようにしたけど、ゲームの終わり頃にＦが点くと次のゲームを精算する時があるけど、仕方ないのかな〜

それ浜は打ったこと無いけど、同じ流れで作れるの？

アレジンの右打ち処理って、どうやればいいの？

'当り時
ElseIf _
　PeekRGB(Ata_x, Ata_y, R) > 100 And _
PeekRGB(Mig_x, Mig_y, R) > 200 Then
RightStop()
Ata=台枠
Mig=メーターの右の座標
こんなんじゃだめなんかな、今まで黄金神とパチ北斗しか作ってない
どんな感じでやればいいか教えてください

>>328　　>>327だけど、
初心者なおいらの右打ちでも良い？

>>328
＠ゲージ取得関数（引数なし）戻り値＝ゲージの左端からの赤色部分の長さ
・ゲージを左端から見ていって、0〜135の数値を返す関数
・0＝ハンドル操作なし状態/135＝右打ち状態
＠ゲージ変更関数（ゲージの左端からの赤色部分の長さ）戻り値なし
・ゲージ取得関数を使いつつ調整を行う関数
・135が与えられた場合はupキーを2秒間押し
・135以外は、引数＝ゲージ取得関数になるまでupキーまたはdownキーで調整を行う
・調整時間短縮のため、10以上離れていた場合のキー押し時間＝離れている数*15msで、
10未満の場合はキー押し時間=10msを繰り返して調整する
＠メイン部分
１．シマ表示の台枠ランプを参照し、大当たり開始を監視する
２．大当たりを感知＞現在のゲージ位置をゲージ取得関数を使い記憶＞ゲージ変更関数に135を与える
３．シマ表示の台枠ランプを参照し、大当たり終了を監視する
４．２で記憶したゲージ位置をゲージ変更関数に与える

残りG数表示の7セグ使った方がスマートっぽい

すっごく難しそう・・・・・

>>331
権利発生前（右打ち前）には表示されていない罠

表示されてない時は左打ち良いんじゃないの？

権利発生は役物のランプでひらえばいいんでない。
まぁ、作ってないから適当にいってるわけだがｗ

7セグが一番良いかもね・・・おいらも7セグに作り替えるよ。

>>334
だから、どのみち右打ち開始するタイミングを知るのに台枠ランプみなきゃならんでしょ
そしたら終了も台枠ランプ見たほうが早いでしょ

先に書いておくが、グラフの回転数は大当たり終了しても通常の打ち方に戻すまで０だからダメよ

数字がそろっただけで台枠ランプ光るのけ？

いや、残りラウンド7セグは権利発生で数字が点灯、カウントダウンして、終了で消灯だったと思う。
おいらも台枠で採ってたけど、シマの配置で何種類も用意しなきゃ逝けないから、7セグが良いと思うよ

>>338
光りますよ。
動作確認もOK

まぁ分かりやすいと思うところで作ればいいよ。
一番面倒だったのはハンドルを元に戻す処理だ・・・

>>330
何か難しいな・・・
他のマクロを参考にして作っただけだから
初心者な俺には無理かなぁ

>>339
何種類もって言う程は要らない
たった4種類

いやま〜確かに４種類なんだけど・・・
ちなみに、おいら勘違いしてるかもしれないんだけど、アレジンの打ち方は
デジタル奇数揃いで即右打ち？　それとも、Ｖ入賞後に右打ち？
おいらＶ入賞まで左打ってたよ。

ちなみに、アレジンは奇数揃いでは台枠は光らないよ。
Ｖ入賞ごに点灯だよ。

>>３４３
基本的には奇数揃い即右打ちですが、サミタ仕様は左からもV入賞しやすいように
してあるってジョンがチャットで言ってた。
だけど、デジタル始動口に流れる玉は役物に入賞しないわけだから、左打ちの方が
パンク確率が高いはず。

>>345
そうすると、右打ちの契機を考え直した方が良いのかな〜
台枠も7セグもＶ入賞後だもんねぇ・・・

・・・・無理だ・・・おいらにはこれ以上・・・

一応大当たりランプ点灯後右打ちでも勲章取れてるよ
完璧にしたいなら役物内が光ったら右打ちすればいい
役物消えてる＆大当たりランプ消えてたら左に戻せばいい

ゲージ取得関数ってのがわからない(´・ω・｀)
あぁ、それ浜ショボ連で終わった・・・・しかし回らない

>>347
ありがとう。その言葉に期待して、このアレジンで完成♪ってことにします。

打ち出し/停止と強さ調整ってキーでできるの今知ったorz
今まで全部マウスで組んでた俺ってorz

通常
役物が点灯したら→を5回押す
大当たり

７セグ消灯で←を６回押す
通常


こういう流れで組もうかと考えてるけど、どうでしょうか

初心者なおいらはこんな感じだよ。

Procedure tuujo()
ifb (PeekColor(701, 494) and $FF0000) / $10000 > 1 then
Sleep(0.1)
　　　　Kbd(VK_RIGHT, DOWN,10) // 「→」キーを押す
　　　　Kbd(VK_RIGHT, UP,90) // 「→」キーを離す
elseif (PeekColor(704, 494) and $FF0000) / $10000 < 2 then
Kbd(VK_LEFT, DOWN,50) // 「←」キーを押す
　　　　Kbd(VK_LEFT, UP,50) // 「←」キーを離す
Sleep(0.1)
endif
fend
Procedure atarityu()
ifb (PeekColor(771, 502) and $FF0000) / $10000 > 1 then
Sleep(0.1)
　　　　Kbd(VK_RIGHT, DOWN,10) // 「→」キーを押す
　　　　Kbd(VK_RIGHT, UP,90) // 「→」キーを離す
elseif (PeekColor(775, 502) and $FF0000) / $10000 < 2 then
Kbd(VK_LEFT, DOWN,50) // 「←」キーを押す
　　　　Kbd(VK_LEFT, UP,50) // 「←」キーを離す
Sleep(0.1)
endif

強度のバーを判定してどこまで左/右キーを押すか判定したほうがいいよ
>>330のやりかたがベスト

まぁ俺はそれをマウスでやっていたわけだがorz

サミタのパチハンドルは無段階じゃなくて、カーソルで一こまって感じで動くから
同じ回数押せば常に同じところで止まりますよ

あ、そっか・・・・キーの方がどんだけ便利なのかと・・・・・直そうっとｗ

2400回転ぶりに当たった・・・
シマの台枠も権利発生後じゃないと光らないのを確認しました。
早速役モノの玉が入っていく所が光るのを右打ちの契機に変更しました




が・・・単発だったんで点灯した時の色がわからん(´Д⊂
適当な数字を割り振って様子見状態です・・・

開いた羽とか

右打ち諦めた・・・
もっと勉強しないとだめだな

自分は盤面のランプを２カ所とってみてますよ。
但し点滅が交互なので
A or B
みたいに。

うん。おいらにも出来たよ♪
if　盤面の赤ランプ点灯　then
atarityu()
elseif　盤面の青ランプ点灯　then
atarityu()
elseif　V入賞口横に橙ランプ点灯　then
atarityu()
else
tuujo()

これで、奇数揃い、即右打ちが出来たよ♪

どっかにうｐ！

いや、こんだけ書いたらうｐしなくても出来るよ。
実際、おいらだって、コマンド詳しい意味なんて理解してないコピペ派なんだから・・・

それ浜完成した
これは楽勝だった（´・ω・`）

VBでの右打ち部分だけの文でも貼ってくれませんか
どういった文（関数？）使えばいいかわかりません・・・

あとＶＢ勉強するのに、おすすめの本があれば教えてほしいです

嫌です

>>364
クレクレ君は巣に帰れよ(*≧ｍ≦*)ププッ

その通りだ！
クレクレ君の巣は真黒の本スレだぞ
ここはクレクレ君を卒業した駆け出しマクラーの巣だからなっ。

馬鹿じゃねーのｗ

>>364
call handle_right()

>>364
どぅ　あんちる　げいじのみぎはじ いこーる　あか
　みぎぼたん　
るうぷ

なるほど
Doを使うんですね、使ったことないやｗ
がんばってみます

[email protected]

もうサミタを真面目やる気がなくなってしましました・・
どなたか・・マクロ、よろしくお願いします。

>>372
じゃあアイテムばらまいてやめれば。
ここは真面目にマクロ組む奴のスレだ。

不正者が偉そうに何を言ってんだか

それじゃ不正者に物乞いする奴らは何なんだい？ｗｗ

どっちもどっち

４２２先生が来たんで、質問なのですが、前スレの島唄で　DIM　って文字が使われますが、
これは何？なんですか？　実際、あの島唄を動かすと、目にも止まらない早さでボーナスを揃えるんですが・・・

それと、自分はスレに貼ってある構文には、まず横軸に224を足して、アイテムウインドウが表示される状態にするんですが、
あの島唄は何処に224を足せば良いかも解りません。

解りやすく解説をお願いします｡

前スレの島唄見てないからわからんが
DIM ってただの変数定義の宣言じゃね？

処分されただけですべて済んだと思っているだろ。ここに書き込んだやつ
訴えられるよ。このスレに書き込んだ事後悔しないように。ｲﾋﾋｯ

※始めて当スレをご覧になる方へ


当スレは、オンラインゲーム「サミー777タウン」内の

1.マクロの不正使用を察知されアカウントを消された間抜け
2.消された腹いせに素人を道連れにと屑マクロを撒く気違い
3.そんな気違いを神と崇めて群がるガチャ中毒の乞食廃人

の様な、最下層の有害ユーザーを隔離し、更生させるスレです。
健常な方々による無用な書き込みや、釣り、面白半分の煽りは
彼らの症状を著しく悪化させる可能性がありますので、ご遠慮下さい。


なお、マクロの技術等に関わる質問は
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/
にてお願いします。

１　アロンソ　　　　２　ハミルトン
３　マッサ　　　　　４フィヂケラ
５　クビサ　　　　　６八イド
８　ライコネン

南国ハズシですが、考え方あっていますか？

ifb (PEEKCOLOR(左ボタン) and $FF00) / $100 > 200 and_　//左緑
(PEEKCOLOR(中ボタン) and $FF00) / $100 > 200 then　//中緑
左ボタンを押す
Sleep
endif

ifb (PEEKCOLOR(左) and $FF00) / $100 > 200 and_　//左緑
(PEEKCOLOR(中) and $FF00) / $100 < 200 and_　//中赤
(PEEKCOLOR(中リール中段) and $FF0000) / $10000 > 240 then　//中段リプ
Kbd(VK_L, DOWN,50)　//「L」キーを押す
Kbd(VK_L, UP,50)　//「L」キーを離す
Sleep

else Nangoku_One()　//ここは条件入れなくていいの？
endif

ifb (PEEKCOLOR(264,604) and $FF00) / $100 < 200 or_　//中緑
(PEEKCOLOR(328,584) and $FF00) / $100 < 200 then　//右緑
repeat
BS=Peekcolor(211,329) //左リール上段
until ((BS and $FF) < 20) and ((BS and $FF00) /$100 < 80) and_
((C and $FF0000)/$10000 > 240) then
ボタンを押す
Sleep(0.35)
endif
Fend

>>382
試してみりゃいいじゃん
うまくいけば合ってるしダメなら間違ってるだけだろ
自分で考えろよ

わからないくせにレスつけるなよ、カス

>>383
わかりました。動かしてみます。

そういった趣旨のスレだと思ったものですから。
失礼しました。

>>384
人のソースなんて見たくねーだけだアフォ
俺は自分で全部組めるしｗ

>>385
ソースべたべた貼るのは（・へ・）ﾖｸﾅｲ!
わからない部分を端的に聞きなよ
でも基本は自分で動かして見ることだと思うがな
動き見ながらソース書き換えていけばいいんじゃない？

>>382
JAC残りランプと７セグで条件取って
JAC残り１かつ小役ゲーム残り10以上の条件で

Procedure JAC残り１()

ifb 中ボタン有効 then
中押し

elseif 中リール中段リプ then
ハズシ()

else
ワンキー

endif
fend

で

Procedure ハズシ()

ifb 右ボタン有効 then
逆押し

elseif 左ボタン有効 then
目押しの要領でハズシ狙い

endif
fend

突っ込み所はあるかも知れんけど俺はとりあえずこれでいけてる。

>>386
確かに端的ではありませんでした。すいません。

>>387
参考にさせていただきます。

>>377
peekcolorの第一引数だけ変えればいいと思うよ。

DIMは上でも書かれてるように変数の宣言。
停止ボタンのX座標用に配列で宣言してたと思う。
で、左、中、右の順に入れてたんじゃないかな。

結局、漂白の条件って何だったんだ？

ちなみに、自分は漂白されなかった。

ifb (Uwsc and ワンワン連打) then 勲章ボッシュート
sleep(退会)

>>391
そうでしたか。

しかし、ワンワン連打で漂白ってのもなんだかなぁ。

>>391
syntax error

ワンキー連打だけなら大丈夫かと。
VBで作った汎用連打マクロでエイリアン勲章取りまくったが無事だった。
漂白上等の複垢なので漂白されても痛くもなんともないけど

勲章剥奪は少数で、メールで警告を受けた人が多数いるのでは・・・と思います
僕はUWSC使ってるけどお咎めなしでした

俺も警告すら来てないよ。
ちなみにUWSC使ってる。　EXE化はしていない。

使用者全員を処分できないほど広まってるよ
処分されたﾔｼは運が悪かっただけ

>>394
いやいや、もちろんUWSCでって話ね。

UWSCだけだと他の用途で使用してるって抗議される可能性があるから
他の用途ではありえなそうなワンワン連に限定したのかな？

それでも、ＵＷＳＣで何かさせて手打ちでワンワン連打って可能性は
全否定できないよねぇ。

Procedure ボッシュート()
ifb (俺空祭り) or (蜂使用) then 警告
　ifb (Uwsc and ワンワン連打) then ロックオン
　elseif (運が悪い) then 勲章ボッシュート
sleep(退会)
endif
Fend

Procedure 警告
ifb (Uwsc and ワンワン連打) then ロックオン
elseif (運が悪い) then 警告
sleep(VB移行)

って感じだと思う。

俺も影響なしでした。
とは言っても、イベント終了ちょっと前からやってませんがorz
多分、蜂・UWの警告出る奴が対象っぽい？
真相は、運営しかわかりませんが。

赤字は出ないけど、検出ルーチンは残ってるらしいね

※始めて当スレをご覧になる方へ


当スレは、オンラインゲーム「サミー777タウン」内の

1.マクロの不正使用を察知されアカウントを消された間抜け
2.消された腹いせに素人を道連れにと屑マクロを撒く気違い
3.そんな気違いを神と崇めて群がるガチャ中毒の乞食廃人

の様な、最下層の有害ユーザーを隔離し、更生させるスレです。
健常な方々による無用な書き込みや、釣り、面白半分の煽りは
彼らの症状を著しく悪化させる可能性がありますので、ご遠慮下さい。


なお、マクロの技術等に関わる質問は
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/
にてお願いします。

※始めて当スレをご覧になる方へ


当スレは、オンラインゲーム「サミー777タウン」内の

1.マクロの不正使用を察知されアカウントを消された間抜け
2.消された腹いせに素人を道連れにと屑マクロを撒く気違い
3.そんな気違いを神と崇めて群がるガチャ中毒の乞食廃人

の様な、最下層の有害ユーザーを隔離し、更生させるスレです。
健常な方々による無用な書き込みや、釣り、面白半分の煽りは
彼らの症状を著しく悪化させる可能性がありますので、ご遠慮下さい。


なお、マクロの技術等に関わる質問は
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/
にてお願いします。

※始めて当スレをご覧になる方へ


当スレは、オンラインゲーム「サミー777タウン」内の

1.マクロの不正使用を察知されアカウントを消された間抜け
2.消された腹いせに素人を道連れにと屑マクロを撒く気違い
3.そんな気違いを神と崇めて群がるガチャ中毒の乞食廃人

の様な、最下層の有害ユーザーを隔離し、更生させるスレです。
健常な方々による無用な書き込みや、釣り、面白半分の煽りは
彼らの症状を著しく悪化させる可能性がありますので、ご遠慮下さい。


なお、マクロの技術等に関わる質問は
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/
にてお願いします。

自己紹介乙

【出】　uwscシリアル　ＥＸＥ化　Ｖｅｒ

【求】　最高券２０枚

検索ヒントおねいがします

>>406さん　お願いします。

全角小文字　ｗ　で検索願います。タウンです。

よろしくお願いします。

あぼーん

>>406 ネタに（ｒｙ

南国動くようになりましたが、ボーナスの目押しがうまくいきません。

左は青七を中段で拾って、青七制御のときは下段青七。赤七制御のときは
中段赤七になるのですが、中右リールがうまく拾えません。
中右も青七で拾って、SLEEPで狙うしかないんでしょうか？

ume

ume










ume

ここは健全なスレだぞ。
割れたようなことするな！

早く埋めろ。

>>408
こりゃまずいだろ

さすが健全なスレだな

いいから、無駄口たたいて早くうめろ

割れ梅

うｐしたら協力してやらんでも無いｗ

だいたい、本スレにもスロゲーうｐとしてるけど、マクロ使用はサミタの規約には違反するかもしれないが、違法ではない。
でも著作権のあるスロゲーやソフトウェアーのシリアルとかを貼り付けるのは犯罪の臭いがするぞ。

ume













ume

ume













ume

ume













ume

初心者でも関係なく訴えられるから。
証拠隠蔽してもログ残してあるから。
サミタ真っ黒初心者質問スレ　その1書き込みした奴
すべて業務妨害で莫大な損害金払うことになるから。

からから君、今回は同意だなｗ

>>423
おまえもな！

ume













ume

うめ

ume













ume

ume













ume

ume













ume

ume













ume

ume













ume

ume













ume

ume













ume

うめ

埋め

埋め

ume













ume

埋め

何だ、荒れてるな
運営に通報しておくか

鬼で、目押しできる状態にあるかどうかの判断について質問です。
画面左下の黄色で取ってるのですが、他にいい方法ありますか？

BB=peekcolor(279,547) //左下　　←　これ

B1=peekcolor(366,515) //ボーナス中判断用
B2=peekcolor(484,320) //逆押し判断用
B3=peekcolor(509,317) //順押し判断用

//ボーナス確定画面
ifb (BB and $FF) > 180 and_
(BB and $FF00) / $100 > 180 and_
(BB and $FF0000) / $10000 < 50 then
b_meoshi()
//逆押し
elseif (B1 and $FF) > 200 and_
(B1 and $FF00) / $100 < 50 and_
(B2 and $FF) > 200 and_
(B2 and $FF00) / $100 < 50 then
R_ph()
//右押し
elseif (B1 and $FF) > 200 and_
(B1 and $FF00) / $100 < 50 and_
(B3 and $FF) < 10 and_
(B3 and $FF00) / $100 < 20 then
L_ph()
else
Kbd(VK_SPACE, DOWN,0)
Kbd(VK_SPACE, UP,50)
endif

動いてんならそれでいいだろ
うぜぇ

>>441
鬼武者は演出で頻繁に画面が切り替わるから俺は複数箇所取って判断してる。

B1=peekcolor(189,526)
B2=peekcolor(375,526) //「BONUS」

ifb (B1 and $FF) > 240 and_
(B1 and $FF00) / $100 > 240 and_
(B1 and $FF0000) / $10000 > 200 and_
(B2 and $FF) > 240 and_
(B2 and $FF00) / $100 > 240 and_
(B2 and $FF0000) / $10000 > 200 then
Onimu_kakutei()

でBR1G毎目押しモードに切り替えるんだけど

B3=peekcolor(236,528)
B4=peekcolor(340,529) //「BIG」

が出現した時は

elseif (B3 and $FF) > 240 and_
(B3 and $FF00) / $100 > 240 and_
(B3 and $FF0000) / $10000 > 200 and_
(B4 and $FF) > 240 and_
(B4 and $FF00) / $100 > 240 and_
(B4 and $FF0000) / $10000 > 200 then
Onimu_BIG()

に一発で飛ばすようにしてる。あんまスマートじゃないけど参考までに。
つーか他にいい方法あれば俺も教えて欲しいorz

あーそうそう俺も最初は背景の黄色で取ってたんだけど
紙ふぶきみたいなのが頻繁に飛んでて超うぜーんだよね。
「BONUS」もしくは「BIG」は時々光ってるけど紙ふぶきはないんで。
白めの所で光っててもなくても同じ条件の所を、２箇所。

一応これで今の所変な誤動作はないよ。

>>443>>444
なるほど。参考になりました。
それでやってみます。

感謝。

このスレは廃止します。本スレに移行するように

【社員敗北】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ4【ﾏｸﾗｰ勝利
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/

なかなか「BIG」の検証が出来ず、時間かかってしまったけど何とか出来ました。
有難うございました。

>>446
本スレでここで相談したほうが良いと言われて来たんですけど・・

本スレはクレクレ釣堀となりました。
技術的な質問はこちらで。

>>406
>>407
>>408
割れざーさんﾃﾞｽｶ？

終了埋め

終了埋め













終了埋め

ume









やっと応援が来た



ume

うめ

























うめ

ume












ume













ume
ume

このスレは廃止します。本スレに移行するように



【社員敗北】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ4【ﾏｸﾗｰ勝利
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/

荒らしｳｾﾞｰな
運営に通報しよ

有益なマクロコードが分散しないようにこのスレは廃止します。


【社員敗北】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ4【ﾏｸﾗｰ勝利
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/

>>456=1乙ﾌﾟｯ

埋め行為は荒らしと一緒だぜ
アク禁されても文句は言えないぞ

悔しさと悲しみの>>456（´,_ゝ｀）ﾌﾟｯ

>>459必死（´,_ゝ｀）ﾌﾟｯ

有益なマクロコードが分散しないようにこのスレは廃止します。

【社員敗北】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ4【ﾏｸﾗｰ勝利
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/

申し訳ないが、このスレは割れてしまったので、なるべく早く埋めた方が良いと思って
埋めてます。

割れたレスを削除依頼出せよ、カス

ごめん、そんな知識ないです・・・

彡川川川三三三ﾐ〜　　　ﾎﾟﾜ〜ﾝ
　　　川｜川／>>459＼|〜　ﾌﾟｩ〜ﾝ
　　‖｜‖　◎---◎｜〜 　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　川川‖　　　　3　　ヽ〜　　　　　　＜ 　アク禁されても文句は言えないぞ
　　川川　　　　∴）д（∴）〜 　　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　川川　　　　　　〜　/〜　カタカタカタ
　　川川‖　　　　〜　/‖　＿＿＿＿＿
　川川川川＿＿＿／‖　 |　　|￣￣＼　＼
　　　／　　　　　　　＼＿＿|　　|　　　　|￣￣|
　　/　　＼＿＿＿　　　 　 |　　|　　　　|＿＿|
　　|　＼　　　　　　|つ　　　|＿_|＿＿／　／
　 /　 　　￣￣　　|￣￣￣￣|　　〔￣￣〕
　｜　 　　　　　|￣

なんか一人必死なのがいるな

だれか、削除依頼ってのを出して下さい。おながいします。

お前が>>408貼ってビビってるのかｗ

うめ







うめ

何度でも復活してやる










くそ

自分が割れるのは勝手だけど、真剣に勉強してる人にまで迷惑かけちゃいかんだろ
























うめ

UWSCで、タイマー割り込みのような事は出来ますか？
例えば、目押しループに入る時に割り込み許可して、２秒以上回ってたら割り込み処理に飛ばす・・みたいな感じで。

アイデア次第じゃないでしょうか　　僕はifbとか使ってます

タイマ考えるなら素直にVBにしとけってｗ

目押しの永久ループ会費なら、untilの条件にカウンターを追加したほうが簡単で判り易いですよ。
設定回数未満で抜けた時は成功で、＋１で抜けた時は失敗になります。

カウンタ初期化
repeat
peek処理
カウンタ＋１
until 色判定 or カウンタ>100

ifb カウンタ<100 then
成功
else
失敗
endif

の様な感じで・・

それなら素直にfor〜nextの方が
記述少なくて済むんじゃない？

僕はifbでやってた（´･ω･`）
uwscのヘルプを見たらもっとコンパクトにできるな

超獣の押し順判定で質問です。

ドットが点滅してるので、点灯と消灯箇所を２箇所探して取ってるんですが、
取れるときと取れないときがあります。

たとえば、右７は

for i=0 to 900
R1=peekcolor(719,458)
R2=peekcolor(718,452)
ifb (R1 and $FF) > 100 and_
(R2 and $FF) > 100 then
BREAK
endif
next
if i<900 then migi=1　←　抜けてきたら７のフラグ立てる。

こんな感じです。いかがでしょう？
座標は、←を出してる状態なので、出さない場合は２２４引いてください

つ中左右

>>480
目から鱗・・・・
サンクスです。

このスレは廃止します。本スレに移行するように



【社員敗北】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ4【ﾏｸﾗｰ勝利
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/

早くｸﾚｸﾚ

なんだか、当人は解決したっぽいけれど、
>>479 のUWSCでの900回ループって、何秒で抜けてくるんでしょう。

>>484
sleepが入ってないから結構すぐ抜けてくるんじゃないかと。
数秒程度だと思われ。

俺はsleepを入れて8回くらいでやったお

【ゴールデンレス】
　　∩　・∀・）∩∩ ´∀｀）∩　　このレスを見た人はコピペでもいいので
　　 〉　　　　 _ノ 〉　　　　 _ノ10分以内に3つのスレへ貼り付けてください。
　　ﾉ　ノ　 ノ　　ﾉ　ノ　 ノそうすれば１４日後好きな人から告白されるわ宝くじは当たるわ
　　し´（＿）　　 し´（＿） 出世しまくるわ体の悪い所全部治るわでえらい事です。

>>484
Core2 E6400 で実験したけど、１秒ちょいで抜けるよ。

中左右なら、わざわざ面倒な事しなくても済むから、そっちがいいんじゃない？

このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します
このスレは廃止します

何かスレを統一したくて必死な奴がいるな。

今から書いたやつ必ず死ぬよ。ｲﾋﾋｯ
死呪苦
死呪苦
死呪苦

>>484
Pentium M 1.60GHz のノートPCでVBでやったら 12ms で抜けました。
>>479 で失敗した原因は SLEEP 入れ忘れで、点滅周期以下で抜けたってところですかね。

あれ？

声が

遅れて

聞こえて

くるよ？

おまいら大好きだｗ

ume

アラジンＡのオートをＵＷＳＣで作ってみたんだけど
動くかどうかテストしてくれる人はいないかな？

ume

最近巨人2を組み始めたんですが、皆さんは、特訓中の処理をどーされてますか？
今5thリールの白球見て押してるのですが余りにも誤動作が多くてお手上げです。(´；ω；)ﾉ

音声認識

自分は、押すべきボタン（白ボール）以外のボールも判定（ハズレの色かどうか））してる
けど。
あと、ボタンが有効になってることを判定してる？

３つのボール全てを判定するのは当たり前かｗ
さらに付け加えると、自分の場合も低スペックPCだと、たまに誤動作します。

・・・ まだ５thﾘｰﾙの球でﾅﾋﾞとってるのかよ
もっといい所あるよ確実に押してくれるとこが

5thリールを見るなリールを見ろ

アレジン組んでみたけど動きません
アドバイスお願いします

PUBLIC MIGIUCHI = 0

ifb 役物内ランプ点灯 and MIGIUCHI = 0
MIGIUCHI = 1
for i = 5 to 0
sleep(0.01)
　　　　 →キーを押す
next
sleep(0.1)

elseif 役物下の７セグ消灯 and MIGIUCHI = 1
MIGIUCHI = 0
for i = 4 to 0
sleep(0.01)
　　　　←キーを押す
next
sleep(0.1)

endif
fend

>>508
�@
>PUBLIC MIGIUCHI = 0
の宣言はどこでやっているのか？
毎回通るなら、この変数が１の時の処理が無効になっている。
�A
>for i = 5 to 0
>sleep(0.01)
>　　　　 →キーを押す
>next
→キー押しをループする意味もわからないし、
i=5を初期値とし、0で終了なんてオーバーフローのエラーが出る
までループし続ける事になる
#for構文では、stepを指定しないかぎり、繰り返し毎に+1する
一定時間→を押すだけなら
KBD(Right,DOWN,0)　　　　//→を押す
KBD(Right,UP,2000)　　　　//2秒（2000ms）待って→を離す
でOK
�B
>for i = 4 to 0
�Aと同様、4から0なんて変

>>509
ありがとうございます

通常スタート

大当たり発生なら
右打ち変数を１
→キーを６回押して右打ち

大当たり終了
右打ち変数を0
←キーを５回押して通常打ちに戻す

という流れのつもりだったんですが、もっと勉強して出直します。

すいません、質問です。

A1=PeekColor(616, 385)
ifb ((A1 and $FF) < 70) and ((A1 and $FF00)/$100 > 210) and ((A1 and $FF0000)/$10000 > 140) and ((A1 and $FF0000)/$10000 < 150)　then
tugini()

こんな書き方で合ってますか？

緑と青の書き方がおかしい。
緑なら(XX and $FF00) / 100 > xxx
青なら(XX and $FF0000) / 10000 > xxx

あと一行にずらずら書くと見にくいから
( ) and ( ) and ( ) thenより

( ) and_
( ) and_
( ) then
の方が見やすくていいかな

あ、ごめん俺が間違ってた。$100とかでOKですｗ

鬼下さい

>>513
ありがとう。とりあえず、旧北斗のフルＤＤＴが出来たけど、ＣＰＵの使用率が異常に高い・・・

>>515
私も旧北斗作ってるんですが、ＢＢ揃えるタイミングはなにで取ってます？
私は「ＢＯＮＵＳ確定」の画面が出たときに、２箇所取ってるんですが、
石みたいのが落ちてくるので、たまにはずしてしまったり・・

ちなみに、こんな感じです。
（左を出した状態）

B1=peekcolor(446,175)
B2=peekcolor(532,190)
ifb (B1 and $FF) > 210 and_
(B1 and $FF) < 220 and_
(B1 and $FF00) / $100 >= 0 and_
(B1 and $FF00) / $100 < 10 and_
(B2 and $FF) > 210 and_
(B2 and $FF) < 220 and_
(B2 and $FF00) / $100 >= 0 and_
(B2 and $FF00) / $100 < 10 then
bb_pro()　←目押し処理
else
Kbd(VK_SPACE, DOWN,50)
Kbd(VK_SPACE, UP,50)
endif

>>516
通常時、右打ちＤＤＴで作ると、確定画面なんて見ること無いよ・・・
どうしても確定画面を出してから揃えたい♪って事ですか？

獣王かダブチャレかオオガメラのマクロ下さい・・どれか一つでもいいのでお願いします・・・
これ以上お金を使うのは限界です・・サラ金や超獣なんて贅沢は言いません・・・お願いします

断る！

いや、月額料金以外に金は必要ないけど

少ないお金でどんなにガチャしてもインテリが出ないんです・・出ても旋風インテリとかばかりで・・・
昇天を目指しているのですが全然勲章取れなくてお金だけが減っていくばかりです・・
どれか一つでも良いのでお願いします・・

>>521
退会

>>521

ほれ
While True
Kbd(VK_SPACE, DOWN,50)
Kbd(VK_SPACE , UP,50)
Wen

よくよく考えたらスレ違いだよ

こっちに行きな
【社員敗北】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ4【ﾏｸﾗｰ勝利
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/

マクロの配付会場
↓　　↓　　↓
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/l50

そこで神が現れるのを待つのが吉。

かぶっちまた

どんなんでもよければいくらでも転がってるだろうに

ガチャやる前に過去ログ嫁

星2はのナビは各リールの白で見ればいいんでしょうか？

図柄 ﾊﾞｰ の左右にある白い所 周りのﾘｰﾙの色と比べてごらん

ﾘｰﾙはどんなに明るい状態でも FF > 220 ぐらい それに対してﾊﾞｰの白は FF > 255

後は調べてね

これが応用出来れば マッハやカゼもリールで作れるよ

>>529,530
THX！

巨人クレ

>>532
【社員敗北】777town ｴﾝﾄﾞﾚｽﾌﾞﾗｯｸ4【ﾏｸﾗｰ勝利
http://game11.2ch.net/test/read.cgi/mmosaloon/1179496302/

peekcolorの処理時間ってどの位ですか？

オークス２の止め打ち作ろうとして、
保３、保４を取ってるんですが、無回転の点灯時、取った値が＝に成らない事が有るんです・・・
点灯の時間＜peekcolorの処理時間としか思えないんですが、こんな低スペックは話になりませんかね？

>>534
無回転の点灯時ではなく、無回転の点滅時・・です

>>534
それは誤り。
どんな高速マシンでも色の変わる瞬間の前後にまたがる可能性はある。

色取得の処理をサミタより優先度を高くして
割り込まれないようにでもしない限り、
可能性は０にならない。

7ｾｸﾞの点滅を見る処理を考えてるのですが
例えば 7ｾｸﾞ点灯が FF00) /$100 > 255
7ｾｸﾞ消灯が FF00) /$100 > 70
の場合 このような文 (C and FF00) /$100 > 240) and (C and FF00) /$100 < 80) を作ると
意味合い的には 同じ場所が同時に点灯し消灯したら処理に飛ばないと駄目なのに
たまに処理に飛んでしまうのは何故なんですか？

その条件式だと一生かかっても真にならない気がするのは俺だけか

ﾉ
俺もそう思います。

(C and FF00) /$100 > 240) and (C and FF00) /$100 < 80)
これは「Cの緑が240以上　かつ　Cの緑が80以下」ってこと。
そんなワケワカメな処理は通りませんよ。　
過去ログ読みなされ。点滅処理の方法も載っとる。

貴様だけ

括弧のくくり方がまずくて演算順序がおかしくなってるんじゃ？

だから真にならないのに処理に飛んでしまうのが不思議なんですよ

？

(´･ω･`)ﾓﾆｭ?

早く巨人くれよ。荒らすぞ

荒らせばｗ

どーせ手動でしょ？

巨人作れるなら掲示板荒らしなんかも組めるしねｗｗｗ

早くしろよ。カスと呼ばれたくなかったら速攻出せよクソがぁ

どうせ削除依頼しなきゃいけないスレだから
この際 >>547に埋めてもらうかな。

うぃ♪
>>545　>>547
早く埋めてくれ

>>537
よくわかりませんが、推測するに
C1=PEEKCOLOR(x1,y1)
C2=PEEKCOLOR(x2,x2)
((C1 and FF00) /$100 > 240) and ((C2 and FF00) /$100 < 80)

これでいいんですかね
つまりC1を取った後、C2を取るまでにタイムラグが発生し、C2取ったときには
既にC1も変化してしまっていて、それで処理が意図しないところに飛ばされる
可能性があるんじゃないかということ？

タイムラグなんかほとんどありません
正しく書けば意図したとおりに動くはずです

大当たりのタイミングで自分の今の差枚を見て、マイナスだったら清算＆着席を作りたいんだけど
出来るかな？

クソカスどもがさっさと埋めろや。その前にガメラでも作れや。まさか知識が無
いクソの集まりスレじゃないだろうな。

>>552
あんた馬鹿〜?
過去スレって知ってる〜?

あんなパーフェクト取れない糞マクロはいらん
ちゃんとしたのを作れよ、カス共

自分の引き弱（ある意味引きが強いのか？）をマクロのせいにされてもなー

>>554
ガメラの仕様知ってる?

チョリを中段で取ることがあるからだろ

422氏
括弧が多い方が優先順位が早いのですか？
それとも少ない方が早い？

>>558
算数と一緒

>>558
マニュアル読んだ？

＜演算式の優先順位＞
　　( )　　　　　　　　　　　　　　　　　　　　 優先順位高い
　　!　　　　　　 （論理否定）
　　*,　/,　MOD
　　+,　-
　　>,　<,　=,　>=,　<=,　<>　　
　　AND
　　OR,　XOR　　　　　　　　　　　　　　　　優先順位低い

422氏に聞いてるんだろ
算数やらマニュアルやらいう前にレスをよく嫁、カス！

>>561
こういうのがいるから・・・・・

いるからなに？

面白い

暇つぶしにもってこい。

はぁはぁしちゃう

なんか困った展開になってるな。
実際の演算順序はわからん。
コンパイラによるだろ。
だから演算式にグローバル変数があり、
演算中にタスク切り替えが入り、グローバル変数が書き換えられた場合、
結果がどうなるかは分からない。

って、こういう話でおk?

このスレに来たらﾏｸﾛくれると言うのでヨダレたらしながら来ますた。

>>568
俺のﾏｸﾞﾛな嫁なら喜んであげるよ。むしろ持っていってくれると助かるｗ

ビタ押せるなら欲しいかもw

ﾋﾞﾀ押し決まったらｼﾞｭﾜ〜ﾝと濡れるよ

ｷﾓｲ

ﾅﾆが濡れます?

お前のＰＣが濡れるわ!

ヤクルトをこぼしちゃったんだね

巨人のリプレイ判別急いでください

不覚にもこの流れにﾜﾛﾀ

どうやら子供が出来ちまったらしい

カスみたいなジョークはどうでもいいのでマクロくれ

なんですぐにくれないのですか？早くしてください。

てか、真黒本スレ逝けよｗ近代稀に見る放出ぶりだぞｗ

最近、真黒本スレはどうしたのですか？
変なのばっか沸いてる・・・

>>582
あれは、ほぼ同一人物の自演だと思われる。

次スレはID付きの板の方が良いんじゃない？って話題が挙がったら
まだ900レス程度なのに速攻で同じ板に次スレが建ったのは笑ったな

>>584
自演乙

ID付きだと他の板に書けなくなるし。

なんで。

昔はソースが沢山貼られて、それを皆で昇華させてたのにね。(´･ω･`)

２秒以上光ってる時の処理ってこんな感じで良いのですか？
(座標 色)
SLEEP(２)
処理方法

>>589
言っている意味が分かりません
点滅するランプ見て、点滅してたら処理に飛びたいの？

sleepの使い方間違ってるぞ。

>>589
もし・・・
オークス保留満タンで止めうちの処理を考えてて
保留無しの時に点滅するのと、実際に保留がある時
の区別に使うって事であれば方向性が間違ってる

デジタル回転時は保留横の紫色の所が点滅する
から、その紫色点灯＆保留点灯で止めうちすればいい

もう本スレ捨ててこっちでやろうぜ…。

処理の後でスリープ

オークスだったら>>200近辺にある

Procedure BB()
PUBLIC STOP

for i=0 to 20
if ((PeekColor(276,515) and $FF00)/$100 < 200) and ((PeekColor(279,520) and $FF00)/$100 > 250) then break
sleep(0.01)
print "点滅"
next

ifb i= 10 then
DDT()
print "通常DDT"

else
DDT2()
print "逆押しDDT"

endif

fend

どーも上手くいきません御指導よろしくお願いします。

>>589
単純に２秒間以上の判定なら

a=(座標 色)
SLEEP(２)
b=(座標 色)

If　a=b then
　処理

UWSってSLEEP(2)で２秒なのかな？因みにVBならSLEEP(2000）ね

ただしこれが通用するのは「２秒未満間隔の点滅 ｏｒ 点灯」という条件の時のみ
単純に点滅取りたいなら点灯を見るんじゃなくて点灯から消灯に変わるか（または消灯から点灯）
を見ないと正しい判定ができない。似てるようで大きく違う。

>>596=>>589？
だめそうなところは目星はつくけど、とりあえず何がしたいのか書かないと正確なアドバイス
できませんよ

×i=10

あとSleep(0.01)なのにループカウンタ20ってのもだめだろうね
何を見てるのかわからんけど

☆３の７セグかな

7セグで点滅見てるのですが全く思い通りに動作しませんorz

だったら見ない事だ
プログラムでゲーム数をカウントしな

>>596
なんかのスロのボーナス時目押し処理がしたいの？

>>600
それではSEEPが早すぎるのですか？

>>601
サミー系の7セグです。

>>605
機種名書かないと適切な解答を得られず遠回りだと思うが？

>>605
ループカウンタが少なすぎ。2000とかにしてみ

>>603
30回カウントしながらリプ回数カウントして・・そんな難しい事が思いつくなら7セグ処理なんか＾＾；

>>604
リプ外しをしたいのです

無理に点滅を見るんじゃなくて、はっきりゲーム数が確定したときに
処理に飛べばいいんじゃないのか。過去ログにあったのをVBにしたもの
だけど、こんな感じ。数字の何処を見ているのか押さえれば、色んな機種に
使える。ちなみにBIG中かどうかは7セグの一番右の1の部分で判断して
↓の処理に飛ばしてる。☆だったらランプが付いてたような気がする。
'巨人の星3BIG時メイン処理
Private Sub kyojin3_BIG()
If GetGreen(273, 518) > 200 Then '7セグ判定２or３（一番左の上）
Sleep(1)
jyun_kyojin3()
ElseIf GetGreen(277, 521) > 230 And GetGreen(283, 523) > 230 Then 'デジタル表示１０９〜順押し
Sleep(1)
jyun_kyojin3()
ElseIf GetGreen(277, 521) > 230 And GetGreen(283, 523) < 230 Then 'デジタル表示１２８〜１１０まで中押し処理
Sleep(1)
gyaku_kyojin3()
End If
End Sub

Procedure BB()
PUBLIC STOP

　for i=0 to 2000　　(ここは要調整)

　　sleep(0.01)

　　if ((PeekColor(276,515) and $FF00)/$100 < 200) and ((PeekColor(279,520) and $FF00)/$100 > 250) then
　　　【ここで何を判定してるのかわからないけど順押ししたいならDDT()、逆押ししたいならDDT2()】

　next

　ifb i= 2000 then （タイムオーバ時）
　　DDT2()
　endif

fend

こんな感じかな

a=0
for i=0 to 21
if ((PeekColor(276,515) and $FF00)/$100 < 200) and ((PeekColor(279,520) and $FF00)/$100 > 250) then a=（a+1)
sleep(0.1)
next

if (a <> 0) then 点灯or点滅してます処理
else 消灯してます処理
endif

あとはfor内のSleepと繰り返し回数の調整だね
0.1秒間隔で20回だと、2秒消灯されるとたまに取れないね
21回やっときゃいいんでないか

　　if ((PeekColor(276,515) and $FF00)/$100 < 200)ここでJAC残り回数表示7ｾｸﾞ左の上が消えてる状態
_ and ((PeekColor(278,519) and $FF00)/$100 > 220)これがJAC残り回数表示7ｾｸﾞ右上の縦軸が点いてる状態 then

今作ってるのは獣王です

何となく見えてきました　少し自力で考えてみます。
レス下さった方々有難うございました。

>>612
全体が見えないからなんともいえないけど、それは良くある
ループ処理の中にあって、BIG中かどうかの判定後の処理？
BIG中じゃない場合はワンキーみたいな…？

Procedure BB()
PUBLIC STOP

　for i=0 to 2000　　(ここは要調整)

　　sleep(0.01)

　　if ((PeekColor(276,515) and $FF00)/$100 < 200) and ((PeekColor(278,519) and $FF00)/$100 > 220)
　　　if　残り子役ゲーム数判定　Then
　　　　　順押し
　　　else
　　　　　逆押し
　　　endif

　　　exit　for

　　else　if ((PeekColor(276,515) and $FF00)/$100 >220) and ((PeekColor(278,519) and $FF00)/$100 > 220)

　　　順押し
　　　exit　for

　　endif

　next

fend

こんな感じかな

あ、ごめ・・・・自力でがんがってくれｗ

>>616
いえいえ　本当にありがとうｗ

Private Sub kyojin3_BIG()

１If GetGreen(273, 518) > 200 Then '7セグ判定２or３（一番左の上）
Sleep(1)
jyun_kyojin3()

２ElseIf GetGreen(277, 521) > 230 And GetGreen(283, 523) > 230 Then 'デジタル表示１０９〜順押し
Sleep(1)
jyun_kyojin3()

３ElseIf GetGreen(277, 521) > 230 And GetGreen(283, 523) < 230 Then 'デジタル表示１２８〜１１０まで中押し処理
Sleep(1)
gyaku_kyojin3()
End If
End Sub

これだと１の間に３が入ってこないか？　＞＞６０９

１の間に３ってどういう意味でしょう…？
これと似たような感じで猛獣も押せてるから
あまり気にしてなかったですけど…。（たまにミスはありますが）

取りあえず、上記いずれの条件にも当てはまらなかった場合は
メイン処理に戻った後Exit Subして、ループ処理の中にいるので
再度判定という流れになってます。

>>602ですが出来た!! と思ってたら；

順押し逆押しの処理に飛んだら、間にも点滅処理見てて
多分こんな流れに…
点滅で消灯確認
↓
逆押し処理
↓
右停止
↓
点滅で消灯確認
↓
中停止
↓
点滅で消灯確認
↓
外しのループに入るが消灯確認したため
↓
点滅で消灯確認に戻る
また行き止まりました。

逆押し処理の中で確実に3ボタンとも停止するようにすれば
いいんじゃない？

獣王だよね？
もしくは、左リールはチェリ狙いもリプはずしも狙う場所同じだから
左リール押す処理の途中に、ハズシ判定してハズす場合は中リールを先に押す処理挟むとか

>>620
１　順押し・逆押しの処理内で全部のボタン押すように作る
２　順押しなら関数の後にワンキー２回
　　逆押しなら中右押してから逆押し関数を呼ぶ

まぁ普通は１

あとは>>622の言う通りハズシもチョソねらいも同じだから
子役ゲーム３回目はまず中右押し
↓
残り１０G以上あればハズシポイント目押し
↓
残り９G以下ならハズシポイント少しずらしてリプハズシしない＆チョソもとれるところで目押し

ボタンを３つ停止？

今の文だと

ifb 右有効 then
右押下

elseif 中有効右無効
中押下

elseif 左有効中無効右無効
左目押し

endif
なんですが何を追加すれば良いですか？

>>625
その形を壊さないように作るなら

while ３ボタンどれかが有効

　ifb 右有効 then
　　右押下
　elseif 中有効右無効
　　中押下
　elseif 左有効中無効右無効
　　左目押し
　endif

end while

UWSの構文わからないからWhileはVBの構文ｗ

はい、ごめん>>626は嘘
どこかのボタン押した時に全ボタン停止判定に引っかかっちゃう

>>624が簡単

>>626
その構文はUWSにも有るので試してみます。重ね重ね住民の方々ありがとうございます。<m(__)m>

迷える子羊に寄って集って道を教えるスレはここですか？

つか質問者は名前付けるかsageないでID表示したまえよ
あと、どういう動作になるか具体的に書かないとここのお兄さん方は
余計な処理もすすんで教えてくれるからドンドン混乱するぞ

うｐまだ〜

混乱しすぎました。頭冷やします

先程７セグ処理を聞いてた者ですが、解決しました。
皆様に教えてもらったのをあれこれ試しましたが、どれも上手くいかず… 最終的にドットの獲得枚数でJAC数は拾うことにしました。
色々アドバイス頂き有り難うございました。

はやくクレ

オマイらぬこで小判作る時間ﾃﾞｽﾖ

正式版出て閑散としはじめてからでいい

お至純ATなぞ簡単に作れるし。

5分で出来たわｗ

万枚スペックの押し順マシンは作り甲斐が無いな

もー本スレにネコ張りやがった… アホか ；

別に張られて困るようなもんでもないだろｗ

その内ＵＷＳＣ規制入るぞ

次スレはネットゲで？

>>642
ID付きに移転しろ。
馬鹿が増えたせいで、自演出来るスレには神は降臨しない！！！

じゃ、ネットゲームかな？

>>644
そうだね。
自演するやつ以外はID表示でも問題はないんじゃないか？
それでも、ID付きは残るだろうけど、乞食スレとして隔離しておけばいいと思う。

訂正

それでも、ID非表示は残るだろうけど、乞食スレとして隔離しておけばいいと思う。

>>645
【真】パチスロタウン renewal【黒】の時は
レスが遅かったけど充実してた気がしますね？

本スレは最近ひど過ぎるし・・・

次スレはネットゲーム希望！

>>647
本スレぜんぜん酷くないけど
むしろ神が居る

>>648
お前か荒らしているのは。

>>649
本スレは乞食スレだから・・・
放置で。

>>649
荒らし？ どこが？

http://game11.2ch.net/test/read.cgi/netgame/1176042040/

んじゃぁ　ココ使うか。

>>652
それ使えないよ。
もう、そろそろネットゲームに真黒制作スレ作ればいいんじゃん。
あとは乞食が自演して埋めるだろ。

と、いうことで・・・暇な人、ID付きに新スレよろー。

新スレ作成しても構いませんが
スレ名の案出してもらえませんか？
あと、テンプレも。

スレの乱立は迷惑ですね

【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
マクロスレ過去スレ一覧
でＯＫですか？

超獣でみなさんは何を取得して目押しをしていますか？
自分はﾀﾞﾁｮｳの尾（白）B>170で１箇所なんですが、止めるのに２,３周かかってしまいます
ＰＣのスペックに依存するのは承知なんですが・・・

>>655
クレクレ自演用と制作者用では趣旨が違うから乱立にはならないと思う。

>>658
どっちかでも埋めてからの方が良くない？

どちらも同じ不正者ですね

本スレに貼ってあったので触発されて☆２を作ってみようかと
挑戦していますが、☆２のナビ処理ってBIG時とAT時で処理を
分けていますか？AT入らないので掴めませんが、リールが
暗くなったらナビ処理という感じでいいのでしょうか。

本スレの次スレ立てました

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

>>662
クレクレ必死だなｗ

>>662
削除出されてるじゃん

ID表示新スレ
マクロ制作はこちらへ・・・。

【クレクレ】777town真っ黒〜VIP【厳禁】
http://game11.2ch.net/test/read.cgi/netgame/1181464211/

猫DE小判を本スレの前スレ>>695を参考に作ってるんですけど、7ｾｸﾞの真ん中の上右縦消灯って部分で詰まってます。

親切な方、アドバイスいただけませんか？m(_ _)m

症状がわからないとアドバイスもできないでしょ。
それじゃただのクレクレと一緒。

>>667
ごめんなさい。
一応、ATナビ処理とJACゲームはきちんとやってくれるんですけど、BIGの子役ゲーム数が19以下になると動きがめちゃくちゃ・・・
というか、おそらくナビランプの点滅をそのまま拾ってるのかな・・・

とすれば、答えは簡単。
2桁目のセグをうまく拾っていない。もう一度座標と色の確認を。

そのあとPrint入れて処理が通っているか確認。
Printは作成時点で各処理に入れておく。
そうすれば変な動きをしたときでもどこに飛んでいるの確認できるから
その前段階の処理を見直しすればいい。

>>669
2桁目のセグが2の時はきちんと動くので、もう一度見直してPrintも入れて、もう一度頑張ってみます！

>>666
7ｾｸﾞの真ん中上右縦は3→2→1→0しか表示しないので、真ん中上右縦がBB中は点灯してるって意味ね。
後ｺｲﾝ投入ﾗﾝﾌﾟ見てるのはRBを判別してるのです。

>>671
7ｾｸﾞの真ん中上右縦が消灯していて、投入ﾗﾝﾌﾟの3枚目が点灯していれば、ナビ処理に飛ぶってことですよね。
ということは、7ｾｸﾞの真ん中上右縦が点灯中はワンキーという処理を入れればいいですか？

流れは・・・

elseif ｺｲﾝ投入ﾗﾝﾌﾟ3枚目消灯
ﾜﾝｷｰ

elseif ｺｲﾝ投入ﾗﾝﾌﾟ3枚目点灯 7ｾｸﾞ真ん中上右縦消灯
ﾅﾋﾞ処理

else
ﾜﾝｷｰ

で　いけると思います。

>>673
処理の流れは同じです。
ということは座標と色の取りかたですよね。
おそらく間違えていると思うので、もう一度見直してみます。

こんな夜中までありがとうございましたm(_ _)m

過去スレのウルトラブラックの３８０位に張ってある
★３のナナセグ見れば結構参考になるよ。

>>668の件、無事解決しました。
やはり、きちんと座標が合っていなかったようです。

>>669さんのアドバイスどおり座標を疑ってみて
>>675さんの★3のソースを参考にして
実際に★3をペイントに貼り付けてソースと照らし合わせて・・・

でも、Print Screenでペイントに貼り付けでは
細かな位置合わせが難しかったです。
かといって、ペイントを使わずに座標取る方法も知らないしorz

でも無事動いたので良しです♪
アドバイスくださった皆様、本当にありがとうございましたm(_ _)m

>>676
コンパネでマウスの設定（精度を高める　速度を遅くする）
を設定すれば意外と微妙な位置、取りやすいですよ。

ペイントに貼り付けで色、座標採る場合は
While True
x=G_MOUSE_X; y=G_MOUSE_Y
c=PeekColor(x,y)
Fukidasi("赤="+G_赤(c)+",緑="+G_緑(c)+",青="+G_青(c),x,y,3)
Sleep(0.5)
Wend
function G_赤(c)
Result = c and $FF
fend
function G_緑(c)
Result = (c and $FF00) / $100
fend
function G_青(c)
Result = (c and $FF0000) / $10000
fend
座標はペイントの右下に出てるのを参考に

スロ画面直なら
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)
x=G_MOUSE_X; y=G_MOUSE_Y
c=PeekColor(x,y)
Fukidasi("赤="+G_赤(c)+",緑="+G_緑(c)+",青="+G_青(c),x,y,3)
Sleep(0.5)
Wend
function G_赤(c)
Result = c and $FF
fend
function G_緑(c)
Result = (c and $FF00) / $100
fend
function G_青(c)
Result = (c and $FF0000) / $10000
fend
これでいけると思います。スロ画面をアクティブでね。

>>676
細かな位置合わせって、手がプルプル震えてってことなのか？
だったら、>>678-679 は無意味だね。
ペイントに貼り付けたら Ctrl ＋ PgDn で拡大しましょ。

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

私はPC画面のスクリーンショットをペイントに貼り付けて
ペイントのx=0,y=0にサミタの窓の左上隅が合わさるように
画像全体をマウスドラッグで移動させて（この時に微妙な位置ズレが生じていた）
拡大して座標を調べてました。
↑うまく説明できなくてごめんなさい orz

>>679さんのスクリプト、これすごいです！
こんなことが出来るなんて全く知りませんでした orz

何の予備知識も無しで、マクロのソース組むことだけを考えていた自分が恥ずかしいです。
1からきちんと勉強し直します。

アドバイスくださった皆さん、本当に感謝感謝です。

>>679
これ、頂きます。
これでかなり楽になりますね。

猫のリプハズシがうまくいかないんだよなぁ…
キッチリ外す時と全くダメな時とで

左上段で白七見て、一周分スリープいれて止めてるんだけど
みなさんどんな感じでやってます？

枠上辺りで止める感じでrepeat
抜けてきたら、sleepかまさず、down 0&up 10で止めてる。
カゼなんかもこんな感じでやったらうまくいったので、そのまま使ってます。

PEEKCOLORは上段でとってるんですか？

自分はループのなかで0〜0.09のランダムでスリープいれてるんですけど…
とれるときは簡単にとってるんですが、ダメなときは全然とらないんですよね…
リール始動時の位置によって微妙に変わるのかなぁ…
２、３ヶ所で見ると重くなりそう…

>>685
ＢＡＲを見てsleep調整して外してるよ
40回程度試行してミスは無かった

>>686
あ、なるほど〜
確かにＢＡＲのほうがさがしやすいかもですね…

帰ったらやってみます

ありがとです！

>>685
白７って・・・・
２箇所あるから、誤作動起きて当然でしょうｗ

基本的に目押しは何かを基準にsleep調整でやれば良いよ
その基準がリール上一つしかない絵柄限定すれば余裕かと思います

それにしてもクレクレうざいな。うｐろうともおもわんわ

>>688
猫のハズシていずれかの白七を枠上か上段ですよね？
したらどっちの白七を検出したとしてもそこから一周（弱）分スリープ入れてたら外せるかなと…

まぁ一個しかない絵柄で判断した方が確実に場所が決まりますけど…

>>690
>リール始動時の位置によって微妙に変わる・・・
てのは、根本的に絵柄を確実に取れてないと思いますよ
689さんみたくリール上一つしかない絵柄限定すれば
かなり精度は上がると思いますよ
後はPC環境の問題もあるかもですね。

>>690
1週のsleepなんか入れないでＳＴＯＰボタン有効なら
処理へ移動など付け加えるといいですよ。

>>692
１週のスリープは上段or枠上で止めるためだから
STOP云々は関係ないと思うよ。

>>693
勘違いしてた('A`)
右→中→左だから関係ないもんね
てっきりまだリール回転→ＳＴＯＰの調整かとおもってた

４２２氏お久しぶりです(^v^)ﾉ

ダイエットのために今日から毎晩、騎乗位で頑張るから
ﾁﾝﾎﾟ起つようにしておけって言われたけど、どうしようかのぅ

>>完成したらうpよろしくね(^Q^)/

ﾁﾝﾎﾟ起つマクロうｐｷﾎﾞﾝ

☆2作ろうと思うんですが、ナビをリールから取ったほうが
いいということはわかったのですが、構文(？)がわかりません。
普通にifbでいいんでしょうか？
それともほかの構文(？)があるのでしょうか？

ifb〜elseif の 流れで良いと思う。

>>699さん
ありがとうございました。
チャレンジしてみます。

通常時よりリールが暗い時は ナビに飛ばして

ナビしてるリールの絵柄だけが明るいから そこを見つけて押す

でも これだと 対決演出にも反応しちゃうんだなｗ

考えているのは
リール暗いand明子ネーチャンthenナビ
リール暗いandギギギthenナビ
リール暗いandボーナス中ナビ
にして、ナビを教わった方法でいこうかなと思っているんですが
何か間違っているような気もするし･･･。
ひとまず試行錯誤してみます。

そこまで細かい処理は作ってないやｗ

レジ中のビタとナビをメインの流れに組み込んだだけだし…

一発で取れる自信がないんで、めんどくさいけど
上記のような方法を考えました。
簡潔にできればしたいんですけどね。。。orz

>>702
リール暗いand明子ネーチャンthenナビ
リール暗いandギギギthenナビ
リール暗いandボーナス中ナビ

1回の判定で済むし・・

リール暗い And （明子ネーチャン Or ギギギ Or ボーナス) Then ナビ

このスレにかかわるやつ全員調べられるらしいよ。

ですよね。ｶﾁｶﾁ打っている途中でorに気がつきました。
ご助言の数々で組めました。
これから検証してみますがﾎﾞｰﾅｽが来ません。
本当にありがとうございました。

自分はビジ中と通常時とで処理を分けてるよ。
ビジ中は基本的にナビがあるし左か右か一回判定するだけですむしね。
ビジ中もウェイトがかけられるよう、できるだけ処理を軽くしてる。

ﾎﾞｰﾅｽ中は左右どちらか押す。
左右どちらかのボタン無効で残りワンワン。

こんなふうに書いてみました。
あとはﾎﾞｰﾅｽ・特訓待つばかりです。

こんちは〜
昨日いろいろとアドバイスをいただいてかなりの精度＆ｓスピードで
動作するようになりました。
ありがとうございました〜！

目押し処理書いてる時にプリントスクリーンが大変役に立ってくれました。
ボタン停止の代わりにプリントスクリーン押して
ペイントに貼り付けて位置を確認。これを繰り返しつつ微調整しました。
BIG引かなくても目押し位置が確認てきるんで効率よかったです。

・・・初歩的Ｔｉｐｓだったらすみません＾＾；

私も同じやり方ですよ。
前にもちょこっと言いましたけど、PrintScreenのライブラリ作りたいな・・

UWSC版のプリントスクリーンで座標取れるスクリプトｸﾚｸﾚ

>>712
ペイント

自分も聞きたいんだけど、ペイントで採った座標ってサミタの相対座標と違うんだけど、
これの調整方法は？

>>714
？
ペイントの座標＝Windowの座標じゃないの？

>>715
だから質問してるんだけど・・・

大人は質問に答えたりしない それが基本だ

>>714
眼科行ったら？

質問 押し順マクロ組むと、ボタン有効無効を見てるのに処理が飛ぶんですが・・・

例えば
ifb 左有効 and 中有効 and 右有効 then

elseif 左無効 and 中有効 and 右有効
としても いきなり真ん中から押したりするんです どこがいけないのですか？

>>714
ごめん。質問の意味がわかんない。
もしかして、DISPLAY全体でprintscreen取ってない？

>>719
ちゃんと、ボタンが押せる状態になってるか見てる？

>>720
んなことする奴はいない

よな？

　 　　　 　　 　＿＿＿_　　　
　　　　　　 ／ ＼　　／＼　ｷﾘｯ
.　　　　　／　（ー） 　（ー）＼　　　　　　
　　　　／　　 ⌒（__人__）⌒ ＼　　　　＜んなことする奴はいない
　　　　|　　 　　　|r┬-|　　　　| 　　 　 ＜よな？
　　　　 ＼　　　　 `ー'´　　 ／
　　　　ノ　　　　　　　　　　 　＼
　 ／´　　　　　　　　　　　　 　　ヽ 　 　 　 　 　 　 　
　|　　　　ｌ　　　　　　　　　　　　　　＼
　ヽ　　　 -一''''''"~~｀`'ー--､　　　-一'''''''ー-､. 　 　
　　ヽ ＿＿＿＿(⌒)(⌒)⌒)　)　　(⌒＿(⌒)⌒)⌒))





　 　　　　 　　　＿＿＿_
　　　　　　　 ／_ノ 　ヽ､_＼
　ﾐ　ﾐ　ﾐ　　oﾟ(（●）) (（●）)ﾟo　　　　　　ﾐ　ﾐ　ﾐ
/⌒)⌒)⌒. ::::::⌒（__人__）⌒:::＼　　　/⌒)⌒)⌒)
|　/　/　/　　　　　|r┬-|　　　　|　(⌒)/　/ / /／　　＜だっておwwwwwwwwwwwwwwwwwww
|　:::::::::::(⌒)　　　　|　|　 |　　 ／ 　ゝ　　:::::::::::/
|　　　　　ノ　　 　　|　|　 |　 　＼　　/　　）　　/
ヽ　　　　/　　　　　`ー'´ 　 　 　ヽ /　　　　／　　　　　バ
　|　　　　|　　 l||l　从人 l||l 　　　　 l||l 从人 l||l　　バ　　　ン
　ヽ　　　 -一''''''"~~｀`'ー--､　　　-一'''''''ー-､　　　　ン
　　ヽ ＿＿＿＿(⌒)(⌒)⌒)　)　　(⌒＿(⌒)⌒)⌒))

>>721
ちゃんと押せる状態？
全部のボタンが有効時を入れた方が良いのでしょうか？

こんな糞スレで教えて教えてしても無駄ｗｗｗ
自分で勉強してこい低脳君

>>719
なにをしたいのかわからない・・・けど

ifb ボタン全有効
　順押し()
elseif
　repeat
　　ワンキー
　　Sleep(適当)
　untilボタン全有効
endif

ストップボタン押下後Sleep入れないと機種によっては
押してないボタンまで無効判定されることもあったかも

機種によってはボタン有効（３つが青）になる
タイミングが微妙に違う機種がある。
なにでもうワンクッション入れてあげると判定しやすい

ifb 左有効
sleep(0.01)
例えば（）// 判定に飛ぶ

例えば（）
ifb 左有効 and 中有効 and 右有効 then

elseif 左無効 and 中有効 and 右有効

こうしてあげれば確実に逝けそうなきがする

万枚きつい機種には自動清算を入れようと思うのですが、
BETレバオンの前に
ifb大箱二つthen
清算()

Procedure 清算()
清算ボタンをクリック
Clkitem(GETID("コインの清算"),"清算する")

でいいんでしょうか？

>>728
【真】パチスロタウン renewal【黒】
【どうして？】777town.net ﾊｲﾊﾟｰﾌﾞﾗｯｸ【閉じる】
見れば？いっぱい貼ってあったと思う。

>>728
>でいいんでしょうか？
って自分で試せばいいだけじゃんｗ

まったくおかしな事言う人だｗ

>>729
見てみます。ありがとうございました。

>>730
そうですね。万枚出してから試してみます。
その前に万枚でないので聞いてみました。
大変失礼しました。

>>731
コインを万枚手前まで買えばためせるじゃんｗ

>>732
いや、その方法はわかるんですが、まさに今、でにくい機種で
セコセコ稼いでいるので試せないんです。
過去ログ探してきます。

┐( ￣ー￣)┌ ﾔﾚﾔﾚ

┐( ￣ー￣)┌ ﾔﾚﾔﾚ

┐( ￣ー￣)┌ ﾔﾚﾔﾚ

┐( ￣ー￣)┌ ｿﾚｿﾚ

┐( ￣ー￣)┌ ｸﾚｸﾚ

┐( ￣¬￣)┌ ｸﾚｸﾚ

>>719

　(全ボタン無効)
左ボタン色取得
　(全ボタン有効)
中ボタン色取得
右ボタン色取得
と言うように挟まってしまうとOUT

対処と言うか普通は、
全ボタン有効になるまで、ナビ見たりボタン押したりする処理に進ませない

星2ですが、ナビ時下記のようにすると3回目のナビが
2回目と同じためボタンを押してくれません。
（正確には2回目のナビ判定ボタンを押している）
何か良い方法はないでしょうか。

If 左ナビ Then
左ボタン押す
Exit Sub
ElseIf 中ナビ Then
中ボタン押す
Exit Sub
ElseIf 右ナビ Then
右ボタン押す
Exit Sub
Else
ワンキー
End If

>>741
ElseIf 中ナビ Then
を
ElseIf (中ボタン有効) And (中ナビ) Then
とすれば、一番下のElseのワンキーに流れると思う

あぁそうか！ナビ判定時ボタン有効じゃなければ
それはワンキーなんですよね(汗

これで全ての処理が完成しました。
ありがとうございました。

画像認識用に1ピクセルの周りを塗りつぶして切り抜くマクロを作りました
作業が楽になった（　＾ω＾）お

猫作ろうと思ってますが、実機を知らないので、
挙動を教えてもらえるとうれしいです・・。

・４０のＡＴ中、ボーナス成立でＡＴは止まるのですか？
　この時、目押し機能は有効？

・ＪＰＡＴは、ＲＥＧのみ揃うと聞いてますが、
　この時、ＡＴは止まるのですか？

>>745
JackPot AT引いて来い！
話はそれからだ

// メイン処理-----------------------------------------------------------------------------
// 相対座標対応処理
TOWN_ID=GETID("777タウン.net")
ACW(TOWN_ID)
MOUSEORG(TOWN_ID)

While True
// Enterキー押下時に処理を停止させる
if GETKEYSTATE(VK_BACK) then exit

// メイン処理(ウィンドウ名にて判定)
Select Status(GetID(GET_ACTIVE_WIN), St_Title)
Case "コインをチャージする"
Clkitem(GETID("コインをチャージする"),"はい")
Sleep(1)// 二重押し回避処理
Case "目押し"
Clkitem(GETID("目押し" ),"自動でドル箱を下皿へ戻す",CLK_BTN)
Clkitem(GETID("目押し" ),"コイン購入")
Clkitem(GETID("目押し"),"お願い")

Case "ドル箱を下皿に戻す"
Clkitem(GETID("ドル箱を下皿に戻す"),"はい")
Case "777タウン.net"
neko-koban()// 指定機種判別処理に飛ぶ (内容がわかる人は直接書き換えるのも有り)
Sleep(0.3)// 押し順ナビを無視する対策の待機時間(環境により調整が必要？)
Case "エラー"
// エラーウィンドウ表示時に画面全体のスクリーンショットを取る(他アプリが原因の可能性が有るため)
SAVEIMG("Error")
// Beep音にてエラーをユーザに通知する
sound("BEEP")
// これ以上の処理は無駄なので終了
break
Selend
Wend
// メイン処理ここまで---------------------------------------------------------------------

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_SPACE, DOWN,150)　　// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
　　　　 Kbd(VK_SPACE, UP,150)　　// 上を変更時は同様にここも変更
Sleep(0.5)
endif
fend

Procedure syouhuku_chance()
// 左ナビ点灯時
ifb (PEEKCOLOR(97,410) and　$FF00)　/　$100 > 100 then
Kbd(VK_LEFT, DOWN,150)// 「←」キーを押す
Kbd(VK_LEFT, UP,150)// 「←」キーを離す
sleep(0.3)
endif
// 中ナビ点灯時
ifb (PEEKCOLOR(106,444) and　$FF00) /　$100 > 110 then
Kbd(VK_DOWN, DOWN,150)// 「↓」キーを押す
Kbd(VK_DOWN, UP,150)// 「↓」キーを離す
sleep(0.3)
endif
// 右ナビ点灯時
ifb (PEEKCOLOR(93,476) and　$FF)/　$100 > 100 then
Kbd(VK_RIGHT, DOWN,150)// 「→」キーを押す
Kbd(VK_RIGHT, UP,150)// 「→」キーを離す
sleep(0.3)
endif
// 全ナビ消灯時
ifb (PEEKCOLOR(97,410) and　$FF00)　/　$100 < 200 and _
(PEEKCOLOR(106,444) and　$FF00)/　$100 < 200 and _
(PEEKCOLOR(93,476) and　$FF) /　$100 < 200 then
Kbd(VK_SPACE, DOWN,200)// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
Kbd(VK_SPACE , UP,200)// 上を変更時は同様にここも変更
sleep(0.3)
endif
fend

ネコ動かないのですがどこが間違っているのですか？

>>747-
オマイ本スレの684か？

>>751
生まれてきたことが間違い

久しぶりに見たけど、相変わらずだね。

>>749
そんなBet判定とレバオン判定はダメよ。
それと招福チャンスも見なくていいよ

>>749　　たったの13行だけど、本体だけをうｐするよ、あとは自分たちで自作関数のところを作ればOKだよ
>>749　　の内容をカスタマイズすると簡単にできるよ

　　ifb getButn() = 0 then　　//現在のボタンの状態を返す自作関数　0=全消灯
　　　　Hit_Stop(4); sleep(0.2); Hit_Stop(5); sleep(0.5);　　//Hit_Stopは　0=ワンキー 1=左　・・・　4=コイン投入　5=レバーオン
　　else
　　　　navi = getNavi()　　　　　　　　　　　//ナビの番号を返す自作関数　0=無 1=左　2=中　3=右
　　　　ifb isBonus() or navi = 0 then　　//isBonusはボーナス中かどうか判定する自作関数
　　　　　　Hit_Normal(); 　　　　　　　　　　//左から順にボタンを押す自作関数
　　　　Else
　　　　　　Hit_Stop(navi); sleep(0.3);
　　　　　　navi = getNavi();
　　　　　　Hit_Stop(navi); sleep(0.3);
　　　　　　Hit_Stop(0); sleep(0.5);
　　　　endif
　　endif

これは酷い

問題にならんな

折角Hit_StopとgetNavi()の引数がマッチングしているのに
リール停止させる場所の処理が・・・
修行しなおしてこい

>>758
そうだね
　　　　navi = getNavi()　　　　　　　　　　　//ナビの番号を返す自作関数　0=無 1=左　2=中　3=右
　　　　ifb isBonus() or navi = 0 then　　//isBonusはボーナス中かどうか判定する自作関数
　　　　　　Hit_Normal(); 　　　　　　　　　　//左から順にボタンを押す自作関数
　　　　Else
　　　　　　Hit_Stop(navi); sleep(0.3);
　　　　　　navi = getNavi();
　　　　　　Hit_Stop(navi); sleep(0.3);
　　　　　　Hit_Stop(0); sleep(0.5);
　　　　endif
は
　　　　navi = getNavi()　　　　　　　　　　　//ナビの番号を返す自作関数　0=無 1=左　2=中　3=右
　　　　if isBonus() then navi = 0　　　　　//isBonusはボーナス中かどうか判定する自作関数
　　　　Hit_Stop(navi); sleep(0.3);
でOKでしょうね。

>>758
そんな細かいとこ付くなよ

アルゴリズムを提示してるだけでよ
スリムだろ

それに3回ともナビを取得すると時間がかかるから　2回＋ワンキーにしてるのよ

for i = 1 to 2
　　Hit_Stop(getNavi()); sleep(0.3);
next
Hit_stop(0); sleep(0.5)
でもいいけど、　いいじゃん

それと
navi = getNavi()　　　　　　　　　　　//ナビの番号を返す自作関数　0=無 1=左　2=中　3=右
ifb isBonus() or navi = 0 then

リールでナビをとってもいいけど、左のランプからナビを取ると
ボーナス中はランダにナビランプがつくから、Bonus中は　ナビ取得を無視しろってことだよ。
先にボーナス判定してもいいけど、流れ的にナビを先に判定したほうがスリムだとおもったの

実際に使ってみたら分かるよ

>>759

それだとソースは短くなくかもしれないけど
大枠の　ifb 〜 endif を何度も抜けて、処理が重くなるよ

1Gに　ifb 〜　endif の大枠を2回しか行わないようにしてる。

ランダ・エタ

ああ言えば上祐

>>755
圧勝だな

わけがわからん・・・・・・・

>>755
何がしたいのか分からん。
俺スゲーだろ見て見て！っていいたいのか？

>>766

>>748-750　に対するヒントのつもりで載せただけだけど？
それに「スゲー」って言われるほどももんでもないだろ
たかがATナビの押し順マクロなのに、そんなこと考えちゃ無いよ

わかったから、氏ね

猫島は昇天枕ばっかりですね、氏ね

昇天もしてないカスは氏ね

>>755
久しぶりだなそのソースの書き方見覚えがあるぞ
だがお前が出てくると必ずスレが荒れるから
出て来なくていいから
ＲＯＭってろ

ありゃsage欄間違えた、逝ってくる

>>771
なんでなのか俺も良く分からんよ
本当に久しぶりに来て見たら、困ってる人がいたもんで
ちょっとヒントを　>>754で言っただけ、言った手前何か書いてやらないと
いけないかなと思って、流れ的な物を載せただけなのに・・・・

俺は本当にこのスレと相性良くないことが良く分かったよ
叩かれた覚えしかないもん
多分俺の書き方がいけないんだろうな、氏んでくるよｗｗ

昇天って氏んだってことだろ？ならサミタと共に氏ねクズ

お前が氏ねば、みんな幸せ

マクロスレで猫島は昇天枕ばっかりですね、氏ね
って方がおかしいw市ね

777ゲット〜
お前も氏ねゴミ

>>1〜777
全部俺様の自演です。

なんか理解できないから、全文のせてよ〜

もう氏んだから無理だ

はい、氏にましたので無理です。

初心者スレで訳分からんソース貼って・・・あとは自分で考えろってかー

みんなで青木ヶ原に集合しようぜ

1+1=5
ほら全文のせたよ。　理解できたろ？

>>782

>>747-750 と　>>755を組み合わせるとできるってばさ
やる気のある初心者であればね。

それと >>747-750　のナビ取得はちょっと問題がる
あれだと取りこぼす、ていうかほとんどナビ取りこぼす

まだ氏んでないのか

そうだった、氏んでたんだ

ゴキブリ並の生命力だなｗ

ネコのナビ処理は本スレの奴に変えたらミス無くなったおっお

SC中のレジで固まる

隣の 氏ね

なんか妙な流れだな

なんかこう、難しそうな機械出ないもんかな
マクロ書くのも機能増やすのも飽きてきた

全自動とかにしてみるか・・・

おまいらﾏｸﾛ作ったんなら早く配付スレで配れよ。ｺﾉｶｽ

m9(^Д^)ぷぎゃー

>>785
関数激グルで全くわからん。　むしろ初心者が破片くっつけて組むには
>>747-749の仕組みのが分かり良い。　本スレのをくっつけたらナビもきちんとできた。
サミタオートより鈍速だけど・・・
プログラムに慣れ親しんだ者の常識レベルで>>755とかいきなり出されても
次の時参考にするテンプレにもならん。

>>795
気にすんな。あれは自己満レベルだ。

わからんって言ってる奴は処理の内容と流れよりも
記述の仕方がわからないのでは？

でも俺のは普通に動作して、20時間＝1060枚＝設定6なわけだがorz

あれで分かったらある意味エスパーｗ

ちなみに俺のは初日で勲章Get

日ごろクレクレばかり言ってるから進歩しないんだよ
>>755を見て考えもしないでわけ分からんて言う椰子のほうが
わかわからん

俺はネコ勲章で昇天

>>798

俺エスパーだ

>>755のやつも基にして自分で作ったら
メッチャ早い、すげっ

>>760
＞先にボーナス判定してもいいけど、流れ的にナビを先に判定したほうがスリムだとおもったの

取得する必要のないナビを取得するのがなぜスリムなのかわからん
しかも、今後ハズシとか組み込むことを想定すれば
ボヌス判定は先の方がよくね？

　　　　ifb isBonus() then　　//isBonusはボーナス中かどうか判定する自作関数
　　　　　　Hit_Normal(); 　　　　　　　　　　//左から順にボタンを押す自作関数 （将来はボヌス処理に変更）
　　　　else
　　　　　　navi = getNavi()　　　　　　　　　　　//ナビの番号を返す自作関数　0=無 1=左　2=中　3=右
　　　　　　ifb navi
　　　　　　　　Hit_Stop(navi); sleep(0.3);
　　　　　　　　navi = getNavi();
　　　　　　　　Hit_Stop(navi); sleep(0.3);
　　　　　　　　Hit_Stop(0); sleep(0.5);
　　　　　　else
　　　　　　　　Hit_Normal(); 　　　　　　　　　　//左から順にボタンを押す自作関数
　　　　　　endif
　　　　endif

　　　　Hit_Normal(); 　　　　　　　　　　//左から順にボタンを押す自作関数

422氏まで出てきたぞ

ていうことは　>>755　のソースはやっぱりいいのか？
俺もそのソースを元に改造してみるか

>>801
隣なんか相手にするなよ・・・

>>802
どこにもいいとは書いていないと思うんですけど？

無様だわ

良いこと考えた！

１．人気台（今ならネコ）が空く。しかし、クリック負けて座れない
２．座った奴に「エナらないでください、2chで晒しますorフロチャで言いふらします！」とMM
３．相手が小心者なら楽々人気台(σ･∀･)σｹﾞｯﾂ!!

どうだろう？
ポイントは最初座ってた奴と同じアバを着ることかな？

そりゃいい事とは言わない
悪いことだよ

氏ね

すみません、食事延長券は、何分くらい離席できますか？

次スレです。

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

間違えました。こっちが次スレです。

【クレクレ】777town真っ黒〜VIP【厳禁】
http://game11.2ch.net/test/read.cgi/netgame/1181464211/

　 ＿＿＿＿＿＿ 　 　/　／/　　　　　　 /　　　　　　　 / i,　　　　　　　　　　 i　 　ヽ
　[＿　 ＿＿＿＿] 　 〔／　/　　　 　　/ /　　　　∧　　/　 ヽ　　 　i,　　 i　　　|　　　|
　　 ﾉ ﾉ　　┌┐　　 　　　 /　 　/ /　/ / 　　　／　|　 /　 　 `､　i　　!　　|i　　 i　 , 　l
　／ 二~ﾌ　|　,二]　　 　 ./　 ,ｨ　/　/ // 　 ／ 　　 |　/ 　 　 　 | |　　|　　l !　　i　 | 　|
　`"<ヽ / 　|　L＿/|　　7_i／/`/ｰ- ､/　／　　　 　| /　　　　　 | ｌ　　 |　 l l　　!　 !　 i
　 _／／　　L＿＿/ 　 　　,/　/　,,,,- ﾆ=ｘ-､_　 　　!/ 　 　 　　 |i　　_, +十'ｲ　 i　 !　 !
　 ￣　　　　　　　　 　　 　/ 　 ''" ／ :;;r　jヽ`＼,/, ,ﾘ　　　　　i_,, x＝､　ﾚ　|　/　/ 　:|
　　┌┐　　　　　　　　　/| 　　 /:::::;;;;;;;:`::::::l　　 "　　　　　　"/ :;;r ヽヽ 　 |/| /　　 :!
　[二　 ]　＿＿　　　　　｛::|　 　|::::::::;;;;;;;;:::::::l　 　 　 　 　 　　 ｌ:::;;;;;` ::|　ｌ　　// 　 　:!　　。
　　 |　|／,ー-、ヽ　　　 　￣フ"`'､:_　''''　,ノ　　　　　　　　 　 l　 ''''　ﾉ,,..,　/○ 　 　:|
　 ／　／　　_,,|　|　　　　　／ ー''"..　￣　　　　　　　　 　　 　 ` ー '、　 ヽ 　 。 　 :| 　○
　レ1　|　　/ o　└、 　 　 >|::::::::::::::::　　　　　　　　　　　　,　　　　..::::::`''''"i　 :|　　　:|
　　 .|__|　　ヽ＿／^　　　　＼:::::::::::::: 。 　 　 _,.-ーx,, 　 　 _,,,__　:::::::::::::::○:|　:|　　　:|
　　 　＿　 ＿ 　＿　 　 　ﾄー::　○　 　 　 /　　　　 `''''''"　　 `i　 ::::::::::::::: l　.:|　 l 　:|
　　　/ /　/ /　/ /　　　　|　::| 　 　 　 　 /　　　　 　　　　　 　 |　 　　 　 /　 :|　:ｌ　 :|
　　 / /　/ /　/ /　　　　iヾ　:|　　 　　　/　　　 　　　　　　　　/ 　　　　, 'J　:::|　:|　 :|
　　 `"　 `"　 `"　 　　　{::|　 ::|　　　　　| 　　　　　 　 　 　 　/　 　,　ｲ 　　　::::|　:|　 :|
　　○　 ○　 ○　 　　　 l ::|　 :|、　　 　 ヽ　　　　　　　　　／ 　 ／ ::::| 　　　:::::|　:|　 :|