【真っ黒】777town エンドレスブラック2【不滅】
701 :
188:
う〜んアレジン無理っぽいなぁ
ハンドルがうまく動いてくれない
VB理解してない俺には難しいかな
680です。うとうとしてました。アドバイスありがとうございました。もう一回やってみます。
なかなか座れなくて進まない・・・・
>>696 ナビランプとストップボタンの状態で全て判断できるよ
ナビ全消灯ならワンキーでおk
ナビ点灯時はストップボタンの組み合わせでどのリール目押すか判断
もしかしてソース貼らないとダメ?w
705 :
696:2007/04/25(水) 04:25:57 ID:???
本音はソース見たいです
でも氏ねと言われてるから
>>704さんのアドバイスを参考にやってみます
perform=9
Z EOD
さようなら〜
>>705 あ、スマン。縦横じゃなくて鳥獣か。
鳥獣はナビだけじゃだめだ。
ナビの何カ所かとストップボタンと右押しインジケータみないとダメかも
たしか部分的なサンプルは過去ログのどっかに貼ってあったような…
俺のVBなんでUWSのソースはないのよw
って、UWSはその上に貼ってあるじゃんww
丑三つ時は思考能力ヤバイなw
710 :
696:2007/04/25(水) 04:48:18 ID:???
>>707さん
見る場所が複数あるのですね
難易度高い・・・・
もっと構文を理解してからやります
親切に教えてくれてありがとうございます
いやー昨日は紙出現?にビビッて興味本位で思わず落としたけど
ここからどうして良いものかさっぱりピーマン
でも〜これをポイッとゴミ箱にすてるのかそれとも勉強してなんとか起動まで持ち込むのかは〜自由だーー
マクロ イズ フリーダム♪ マクロ イズ フリーダム♪
712 :
568:2007/04/25(水) 08:56:50 ID:???
アイテムメンテか・・・
UWS VB AB 連打野郎 含め千人単位で漂白くるか?
連打放置とまくらー全員漂白だと1万人くらいいくんじゃね?
714 :
568:2007/04/25(水) 09:21:06 ID:???
有料会員って何人ぐらいなんだろうなぁ
そもそも漂白の狙いって何なんだ
マクロユーザー→インテリユーザーへの移行を期待してるのか?
ゲームとはいえ、育てた垢がいきなり白骨化したらインテリ使う気も起きんだろ
>>701 諦めたらそこで(ry
mouse_event VB
これをヒントにがんがれw
俺空の時であの数だったから枕はもっと多いよな。
昨日の半端な神はソースだけだったのでフォームデザインも含めた
95氏作成の【777townオート】をフォルダごとうp
ソース見てデザインに何が必要か解らないなら諦めろ
因みにあのソースだとアップデートでいくつか動かなくなってるのがあるはず
おまいらが欲しがってる超獣も多分アウトだ。
自分で修正するスキルが無いやつが手を出す物じゃない
うpして
721 :
188:2007/04/25(水) 10:41:57 ID:???
mouse_eventっての、調べたらマウスを擬似的に動作させるってあったけど
これを使って右ボタンをダウン、アップさせるって事かな
ちなみに、VBの関数っていうのかな?これのヘルプみたいなのは無いのかな
UWSについてるようなヘルプのやつ、本買ったほうが早いですかね
_) /:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::ヽ
) う ,'::::::::::::::::::::/ ̄ ̄ ` ' ー─- 、;::::::::',
< 馬 p l:::::::::::::::::::/ _,, `ヽ;l
) 鹿 .し !::::::::::::::::::| ヽ二二,、 ヾ、、 l!
< !! ろ ';:::::/^ヽ;::| ミr_(;o゚;;〕 _ ヽ l
ノ ';:::i 入 ;リ (イ;;o゚)彡l
 ̄`、 , ─、 ,-' ';:l レ ` ヽ ̄ h
. V `' ' , / ,リ
ヽ i` ー---ァ /
>、 l,,─、/ /
┌─'T/ ` -'" /
 ̄ ̄ ̄ ̄\ \ ` 、_  ̄ /
\ \ /) , ' )ス" ̄
\ / ///7 ヽ__
ヽ/ "∠ -'ー、 | `ヽ
/ '二ヽ ノ i
マタマタネ申キタ━━━━━━(゚∀゚)━━━━━━!!!!
>>721 本買って勉強する気なら買って損は無い。覚えておいて無駄な知識ではないから。
ただ今はググレば大抵サンプル付きでどこかに落ちてるからそれで十分いける
因みにmouse_eventはVBの関数ではなく、WindowsAPIだよ
>>644 あ。それ漏れの(〃▽〃)
気に入ってるんだけどあんま反応無かったからさびしかったのよ?
まぁ、0からサクサク組める人には必要ないっちゃ必要ないんだけど
>>652 bet_rebaon.uwsを同一フォルダにおいて、
基本ループの前にcall bet_rebaon.uwsしておくのね。
んで、
Procedure Mahha()
While True
Sleep(0.1)
if (BET_REBAON("0022",0) <> 0) then break
Wend
ワンキー*3
fend
な感じでマクロ書けば
基本ループ→betrebaon関数で停止ボタン有効まで自動処理→ワンキー*3
になるですよ。
今回の引数、0022はマッハ、0はトレース無し
if (BET_REBAON("0022",1) <> 0)でトレース出ます
連打したくない人におぬぬめ
>>511 そういやパチにもセグってありましたねぇ
パチってあまり知らないんですが、セグで状態表示してる機種多いですよね
これは決まりごとなのかな
勉強になりました。なんかしら閃きました。ピコーン アリガト!(´▽`)
メインデジタルで状態表示してるのってあったっけ?
725>>さん、そこまで書いて貰っても分かりません 。・゚・(*ノД`*)・゚・。
俺がしたこと・・uwscフォルダにbet_rebaon.uwsを作成
中には725>>のまま
Procedure Mahha()
While True
Sleep(0.1)
if (BET_REBAON("0022",0) <> 0) then break
Wend
ワンキー*3
fend
と。
>>644の中身に
While True
call bet_rebaon.uws ←この一文追加した
C_START = PEEKCOLOR(c_startx,c_starty)
C_LEFT_BTN = PEEKCOLOR(c_leftbx,c_leftby)
C_CENTER_BTN = PEEKCOLOR(c_centbx,c_centby)
C_RIGHT_BTN = PEEKCOL以下略
動きません (*´;ェ;`*) うぅ・・・
多分検討外れなんだろな
クレクレにソースUPしても、教えて君になるだけ、それを無視すると 暴れだす。
ということで、UPするな
手取り足取り教えてくれないか?
732 :
728:2007/04/25(水) 18:06:08 ID:???
>>725 何時のかと思ったら、ウルトラブラックすれだ
半年も前カヨ Σヽ(゚Д゚○)ノ
超獣動かなくなってもうた。なんで?
試用期限切れ
>>728 あらら(´・ェ・`)
728氏が思ってるほど万能でもなんでもない関数だよ
ボタン位置とランプ見て、ボタン全有効になったら1返すだけだから
使えなければ使わなくても問題ないです(^^;
使うと機種別マクロの記述が少なくとも倍になるし(プゲー
737 :
728:2007/04/25(水) 18:40:07 ID:???
>>736 あああああ?o(`ω´*)oフン!!!
これで全機種動くんじゃねーのかよ (`Д´) ムキー!
だーまーさーれーたー バカーヾ(゚д゚)ノ゛
VB2005 って無料なの? 30日過ぎると製品登録ってことは、シェアウェアかな?
2005E.Eはユーザー登録すれば無料だと思う。
サラ金の使用料自動トレマクロ作ったんだけど欲しい人いる?
ある時間に使用してると、自動的に俺の複垢にトレ申し込みして一番上のアイテム渡す様に成ってるけどww
自動的2にWAT買って俺に渡す仕様もあるんだが・・・・
さすがにヤバいよなw
釣り堀だな
猛獣作ってるんですが、リールが回転中かどうかの判定で詰まってます。
・STARTの横の黄色チェリが消灯
・左、中、右ボタンが赤
・「MEDALS IN」の白いランプが消灯
→以上を満たしていれば、左ボタンが青になるまでSleepを繰り返す
だと思うのですが、これだと3つ目のボタンを押した直後にこの条件に
当てはまってしまい、ループに入って止まってしまいます。
他に良い判定場所は無いでしょうか?
左、中、右ボタンのどれかが青 で良いではまいか
>>751 レバオンしてからボタンが青になるまで待つルーチンを作りたいのです。
>>752 スタートランプ検知して点灯してたら次のワンキーの後にスリープでよくね?
俺はそうしてるが
749のパスうpぽ
, イ)ィ -─ ──- 、ミヽ
ノ /,.-‐'"´ `ヾj ii / Λ
,イ// ^ヽj(二フ'"´ ̄`ヾ、ノイ{
ノ/,/ミ三ニヲ´ ゙、ノi!
{V /ミ三二,イ , /, ,\ Yソ
レ'/三二彡イ .:ィ●ラ ;:●ラ j{
V;;;::. ;ヲヾ!V ー '′ i ー ' ソ
Vニミ( 入 、 r j ,′
ヾミ、`ゝ ` ー--‐'ゞニ<‐-イ
ヽ ヽ -''ニニ‐ /
| `、 ⌒ ,/
| >┻━┻'r‐'´
ヽ_ |
ヽ _ _ 」
キエロカス [ Gugurecus ]
( 2006 〜 没年不明 )
, イ)ィ -─ ──- 、ミヽ
ノ /,.-‐'"´ `ヾj ii / Λ
,イ// ^ヽj(二フ'"´ ̄`ヾ、ノイ{
ノ/,/ミ三ニヲ´ ゙、ノi!
{V /ミ三二,イ , /, ,\ Yソ
レ'/三二彡イ .:ィ●ラ ;:●ラ j{
V;;;::. ;ヲヾ!V ー '′ i ー ' ソ
Vニミ( 入 、 r j ,′
ヾミ、`ゝ ` ー--‐'ゞニ<‐-イ
ヽ ヽ -''ニニ‐ /
| `、 ⌒ ,/
| >┻━┻'r‐'´
ヽ_ |
ヽ _ _ 」
キエロカス [ kierocus ]
( 2006 〜 没年不明 )
759 :
750:2007/04/25(水) 23:02:46 ID:???
>>753 それで上手く行きました!Sleep値は1.7〜2.0の間くらいがいいみたいですね。
超獣もこのパターンで組んでみます。
サミタの回答
お問い合わせいただきましたご質問について回答いたします。
………………………………………………………………………………………………
回答内容:
777タウン.netではマクロの公認はしておりません。
なにとぞご理解いただきますようよろしくお願い致します。
また、ご報告いただいたのに関わらずお客様には大変申し訳ございませんが、
ご連絡いただきました内容からでは、マクロについて分かりかねますので、
お客様がご存知な事をできるだけ詳細をお伝えいただけないでしょうか
お忙しいところお手数お掛けしてしまい申し訳ありませんが、
迅速な問題解決の為にも、ご協力よろしくお願いいたします。
これからも777タウン.netをよろしくお願いいたします。
正解は"777"でした。
点滅(7セグ)の場合どのように処理を行えばいいですか?
UWSCでBBリプ外しをしたいのですが、7セグが点滅している為にうまく動作してくれません orz
a = 0
For i = 1 to 30
Sleep(0.1)
C = PEEKCOLOR(x,y)
if ((C and $FF) >200) then a = (a + 1)
Next
ifb (a <> 0) then
else
endif
Sleepと繰り返し回数で適当に調整
>>765 ありがとうございます
これで ようやく前に進めそうです ^^
そろそろ漂白祭りが開催されるから待ってろよ・・お前ら。
お前らのせいで余計な仕事・ほんと疲れるわ。ちなみに今回は徹底的に
調べあげてるから。まず、UWSCなんか使ってるアホ・・終わりだから。
VB使ってる皆様・・終焉のカウントダウンが開始されました。
今回は期待してお待ち下さい。
そうか
じゃ、今のうちアイテムばら撒いて退会するか
ダメだ全然わかんない
>>767 漂白でもなんでもやれや
マクロばら撒いてやめてやるからwwww
>>767 マクロ使いはサミタをやる事では無くて、マクロを作ることに楽しみを感じているから
漂白&BANされたところでサミタを辞めるイイきっかけになるだけさ。
サミタのことだから月額1万でマクロ会員新設するんじゃね。
あれだよ、サミタはスロットを楽しむのじゃなく
オフゲーのコンビニ?やシムシティみたいな感じ。
真黒配置して上手に動くか、誤作動はないか・・・みたいな
で、結果はどうなったか・・・・BLで騒がれてないか・・・
>>770みたいにばら撒いたるwって人は
自作してないんじゃないかな?
漂白、BANで逆ギレって大人気ない。
違反してるのだから、しかたないでしょ?と、思うけどね
プログラミングの知識は何かと役には立つと思うしね。
自作する楽しみを覚えた人は勲章・アイテム・アバの興味は薄れるから
たとえ漂白されようがモチベが保たれれば別垢取って
新機種リリースにwktkすればいいだけだし…
>真黒配置して上手に動くか、誤動作はないか・・・
そういう人は少ないよね?
連日インして設定券使い、清算時には2倍券使ってる。
しかも自分でプログラミングできない人が・・・
俺は、勲章はこだわってるかも。
現に勲章取ったら一回も打ってない機種もあるしw
なんていうか、そのマクロの1つの到達点って感じ。
おもしろい機種だとその後も色々機能追加するけどね。
俺も422氏と同じかな
作りこみもどこまでやったら万枚到達に一番近いかを考えて作ってる
島唄とかジャグは確定で目押しするだけでぶん回し
逆にハイシオは通常時DDTも入れてる
そういうパフォーマンスを考えるのもマクロ作成の楽しみのひとつ
>>775 実際、私も連日インして設定券使い、勲章取りしてます
結果として、数字に残るのは勲章だけだからね
422氏の勲章取ったら一回も打ってない機種もあるってのは
よくわかります。私も同じですよ。
猛獣フル攻略作ったけど、アプリ自体かなり重いね・・・
正式版になっても、あのままなら、勲章とれれば打たなくなりそうです。
>>776 俺は敢えて納得いく出来になるまでは勲章を取りに行かないなぁ
VBでスハナとキンパルの完全攻略版作ったけど、2回しか稼動させてない。
やはり作ってる時が一番たのしいな。
競馬なら予想してる時、スロなら開店前に並んでる時
じゃその出来の良いマクロくれよ!
連日稼動してるとPCの寿命早いくなるね。
これから暑くなるから、外出時も冷房つけとかなきゃ・・・
PCの分解清掃を怠ると痛い目みるぜ!埃って案外溜まるもんだよ
IAも捨てたもんじゃないだろ?最小化して動かせるのがなにより
ハイシオなんだけど
A = PeekColor(座標) // ハイビの位置
同じくB = 上のJACランプ3つ目
ifb (A and 色)/$10000 > 70) then
目押しへ
ifb (B and 色)/$10000 > 70) then
ハズシへ
//目押し
//ハズシ
ifb (B and 色)/$10000 > 70 then
sleep(0.1)
Kbd(VK_RIGHT, DOWN,50) // 「→」キーを押す
Kbd(VK_RIGHT, UP,50) // 「→」キーを離す
exit
Kbd(VK_DOWN, DOWN,50) // 「↓」キーを押す
Kbd(VK_DOWN, UP,50) // 「↓」キーを離す
exit
endif
こんな感じでいいの?
昨日から手を染めてみたんだけど。まったくチンプンなんで。
787 :
786:2007/04/26(木) 14:46:42 ID:???
うはっ、自分で見てもいろいろ足りないし、おかしいw
修行してきます。
マクロUPまだですか?????????
いまだ!クレクレクレクレーッ!!!
∧∧ ) ズザーーーーーッ
⊂(゚Д゚⊂⌒`つ≡≡≡(´ ;;;≡
うpろだにうpしたぞ。exe踏めるもんなら踏んで見れ。
パスのヒントはなし。ガンガレw
// アラジンAのナビ対応--------------------------------------------------------------------
Procedure Aladdin_A()
// 左ナビ点灯時
ifb (PEEKCOLOR(74,412) and $FF00) / $100 > 200 then
Kbd(VK_LEFT, DOWN,50)// 「←」キーを押す
Kbd(VK_LEFT, UP,50)// 「←」キーを離す
endif
// 中ナビ点灯時
ifb (PEEKCOLOR(84,447) and $FF00) / $100 > 200 then
Kbd(VK_DOWN, DOWN,50)// 「↓」キーを押す
Kbd(VK_DOWN, UP,50)// 「↓」キーを離す
endif
// 右ナビ点灯時
ifb (PEEKCOLOR(94,477) and $FF00) / $100 > 200 then
Kbd(VK_RIGHT, DOWN,50)// 「→」キーを押す
Kbd(VK_RIGHT, UP,50)// 「→」キーを離す
endif
// 全ナビ消灯時
ifb (PEEKCOLOR(74,412) and $FF00) / $100 < 200 and _
(PEEKCOLOR(84,447) and $FF00) / $100 < 200 and _
(PEEKCOLOR(94,477) and $FF00) / $100 < 200 then
Kbd(VK_SPACE, DOWN,50)// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
Kbd(VK_SPACE , UP,50)// 上を変更時は同様にここも変更
endif
fend
// 北斗の拳のナビ対応処理-----------------------------------------------------------------
Procedure Ken()
// 左ナビ点灯時
ifb (PEEKCOLOR(85,400) and $FF0000) / $10000 > 200 then
Kbd(VK_LEFT, DOWN,50)// 「←」キーを押す
Kbd(VK_LEFT, UP,50)// 「←」キーを離す
endif
// 中ナビ点灯時
ifb (PEEKCOLOR(100,430) and $FF) > 200 then
Kbd(VK_DOWN, DOWN,50)// 「↓」キーを押す
Kbd(VK_DOWN, UP,50)// 「↓」キーを離す
endif
// 右ナビ点灯時
ifb (PEEKCOLOR(110,465) and $FF00) / $100 > 200 then
Kbd(VK_RIGHT, DOWN,50)// 「→」キーを押す
Kbd(VK_RIGHT, UP,50)// 「→」キーを離す
endif
// 全ナビ消灯時
ifb (PEEKCOLOR(85,400) and $FF0000) / $10000 < 200 and _
(PEEKCOLOR(100,430) and $FF) < 200 and _
(PEEKCOLOR(110,465) and $FF00) / $100 < 200 then
Kbd(VK_SPACE, DOWN,50)// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
Kbd(VK_SPACE , UP,50)// 上を変更時は同様にここも変更
endif
fend
793 :
ネトゲ廃人@名無し:2007/04/26(木) 15:35:10 ID:Md91xeb+
// ダブルチャレンジのナビ対応-------------------------------------------------------------
Procedure Double()
// 左リール点灯時
ifb (PEEKCOLOR(335,407) and $FF00) / $100 < 200 and _
(PEEKCOLOR(223,407) and $FF00) / $100 > 200 then
Kbd(VK_LEFT, DOWN,50)// 「←」キーを押す
Kbd(VK_LEFT, UP,50)// 「←」キーを離す
endif
// 中リール点灯時
ifb (PEEKCOLOR(223,407) and $FF00) / $100 < 200 and _
(PEEKCOLOR(335,407) and $FF00) / $100 > 200 then
Kbd(VK_DOWN, DOWN,50)// 「↓」キーを押す
Kbd(VK_DOWN, UP,50)// 「↓」キーを離す
endif
// 右リール点灯時
ifb (PEEKCOLOR(223,407) and $FF00) / $100 < 200 and _
(PEEKCOLOR(449,407) and $FF00) / $100 > 200 then
Kbd(VK_RIGHT, DOWN,50)// 「→」キーを押す
Kbd(VK_RIGHT, UP,50)// 「→」キーを離す
endif
// 全リール点灯時
ifb (PEEKCOLOR(223,407) and $FF00) / $100 > 200 and _
(PEEKCOLOR(335,407) and $FF00) / $100 > 200 and _
(PEEKCOLOR(449,407) and $FF00) / $100 > 200 then
Kbd(VK_SPACE, DOWN,50)// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
Kbd(VK_SPACE , UP,50)// 上を変更時は同様にここも変更
endif
fend
// サラリーマン金太郎のナビ対応-----------------------------------------------------------
Procedure Kintaro()
// 左ナビ点灯時
ifb (PEEKCOLOR(157,479) and $FF00) / $100 > 200 then
Kbd(VK_LEFT, DOWN,50)// 「←」キーを押す
Kbd(VK_LEFT, UP,50)// 「←」キーを離す
endif
// 中ナビ点灯時
ifb (PEEKCOLOR(286,479) and $FF00) / $100 > 200 then
Kbd(VK_DOWN, DOWN,50)// 「↓」キーを押す
Kbd(VK_DOWN, UP,50)// 「↓」キーを離す
endif
// 右ナビ点灯時
ifb (PEEKCOLOR(411,477) and $FF00) / $100 > 100 then
Kbd(VK_RIGHT, DOWN,50)// 「→」キーを押す
Kbd(VK_RIGHT, UP,50)// 「→」キーを離す
endif
// 全ナビ消灯時
ifb (PEEKCOLOR(157,479) and $FF00) / $100 < 200 and _
(PEEKCOLOR(286,479) and $FF00) / $100 < 200 and _
(PEEKCOLOR(411,477) and $FF00) / $100 < 100 then
Kbd(VK_SPACE, DOWN,50)// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
Kbd(VK_SPACE , UP,50)// 上を変更時は同様にここも変更
endif
fend
何ですか?
そのソース見飽きたよwせめてスクワットくらい入れろや!
>>796 はい、スクワットw
Do
Call MouseClk(TwnWinPosX + 611, TwnWinPosY + 566)
Loop
ダブチャがナビを無視しますが。
位置あってないモン。
見てわからないなら使わないほうがいい。
私は以前・・COBOL・RPGVと言う言語でSEをしていました。
まだwindows3.1が出始めた時代に辞め今は他業種で仕事をしています。
前置きはここまでで。
サミタ始めて2年、マクロの存在を知り今から初心に戻り勉強をしていこうと
思っています。 ある程度理解し何度もデバックを重ねて一人前のマクラーに
なりたいと思いますので今後質問するかと思いますが、その際にはよろしく
お願いします。 スレ汚しすみませんでした。