【真っ黒】777town エンドレスブラック2【不滅】

このエントリーをはてなブックマークに追加
701188
う〜んアレジン無理っぽいなぁ
ハンドルがうまく動いてくれない
VB理解してない俺には難しいかな
702ネトゲ廃人@名無し:2007/04/25(水) 02:44:57 ID:???
>>598
おい、JOB文からちゃんと書けよw
703ネトゲ廃人@名無し:2007/04/25(水) 03:05:28 ID:???
680です。うとうとしてました。アドバイスありがとうございました。もう一回やってみます。
なかなか座れなくて進まない・・・・
704ネトゲ廃人@名無し:2007/04/25(水) 04:01:03 ID:???
>>696
ナビランプとストップボタンの状態で全て判断できるよ
ナビ全消灯ならワンキーでおk
ナビ点灯時はストップボタンの組み合わせでどのリール目押すか判断

もしかしてソース貼らないとダメ?w
705696:2007/04/25(水) 04:25:57 ID:???
本音はソース見たいです
でも氏ねと言われてるから
>>704さんのアドバイスを参考にやってみます
706ネトゲ廃人@名無し:2007/04/25(水) 04:28:22 ID:???
perform=9
Z EOD
さようなら〜
707ネトゲ廃人@名無し:2007/04/25(水) 04:34:03 ID:???
>>705
あ、スマン。縦横じゃなくて鳥獣か。
鳥獣はナビだけじゃだめだ。
ナビの何カ所かとストップボタンと右押しインジケータみないとダメかも
たしか部分的なサンプルは過去ログのどっかに貼ってあったような…
俺のVBなんでUWSのソースはないのよw
708ネトゲ廃人@名無し:2007/04/25(水) 04:41:14 ID:???
>>705
VBでよけりゃ>>94に貼ってあるよ
糞マクロだけどww
709ネトゲ廃人@名無し:2007/04/25(水) 04:44:32 ID:???
って、UWSはその上に貼ってあるじゃんww
丑三つ時は思考能力ヤバイなw
710696:2007/04/25(水) 04:48:18 ID:???
>>707さん
見る場所が複数あるのですね
難易度高い・・・・
もっと構文を理解してからやります
親切に教えてくれてありがとうございます
711ネトゲ廃人@名無し:2007/04/25(水) 07:45:29 ID:???
いやー昨日は紙出現?にビビッて興味本位で思わず落としたけど
ここからどうして良いものかさっぱりピーマン

でも〜これをポイッとゴミ箱にすてるのかそれとも勉強してなんとか起動まで持ち込むのかは〜自由だーー

マクロ イズ フリーダム♪    マクロ イズ フリーダム♪
712568:2007/04/25(水) 08:56:50 ID:???
アイテムメンテか・・・
UWS VB AB 連打野郎 含め千人単位で漂白くるか?
713ネトゲ廃人@名無し:2007/04/25(水) 09:07:36 ID:???
連打放置とまくらー全員漂白だと1万人くらいいくんじゃね?
714568:2007/04/25(水) 09:21:06 ID:???
有料会員って何人ぐらいなんだろうなぁ
そもそも漂白の狙いって何なんだ
マクロユーザー→インテリユーザーへの移行を期待してるのか?
ゲームとはいえ、育てた垢がいきなり白骨化したらインテリ使う気も起きんだろ
715ネトゲ廃人@名無し:2007/04/25(水) 09:31:59 ID:???
>>701
諦めたらそこで(ry

mouse_event VB
これをヒントにがんがれw
716ネトゲ廃人@名無し:2007/04/25(水) 09:41:09 ID:???
俺空の時であの数だったから枕はもっと多いよな。
717ネトゲ廃人@名無し:2007/04/25(水) 09:53:59 ID:???
昨日の半端な神はソースだけだったのでフォームデザインも含めた
95氏作成の【777townオート】をフォルダごとうp
718ネトゲ廃人@名無し:2007/04/25(水) 09:59:46 ID:???
ソース見てデザインに何が必要か解らないなら諦めろ
因みにあのソースだとアップデートでいくつか動かなくなってるのがあるはず
おまいらが欲しがってる超獣も多分アウトだ。
自分で修正するスキルが無いやつが手を出す物じゃない
719ネトゲ廃人@名無し:2007/04/25(水) 10:09:04 ID:???
>>717
うpしようか?
720ネトゲ廃人@名無し:2007/04/25(水) 10:15:52 ID:???
うpして
721188:2007/04/25(水) 10:41:57 ID:???
mouse_eventっての、調べたらマウスを擬似的に動作させるってあったけど
これを使って右ボタンをダウン、アップさせるって事かな
ちなみに、VBの関数っていうのかな?これのヘルプみたいなのは無いのかな
UWSについてるようなヘルプのやつ、本買ったほうが早いですかね
722ネトゲ廃人@名無し:2007/04/25(水) 11:35:19 ID:???
 _)         /:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::ヽ
  )    う   ,'::::::::::::::::::::/ ̄ ̄ ` ' ー─- 、;::::::::',
<   馬 p  l:::::::::::::::::::/   _,,      `ヽ;l
  )  鹿 .し  !::::::::::::::::::| ヽ二二,、    ヾ、、 l!
<   !! ろ  ';:::::/^ヽ;::| ミr_(;o゚;;〕     _ ヽ l
 ノ        ';:::i 入 ;リ         (イ;;o゚)彡l
  ̄`、 , ─、 ,-' ';:l レ `          ヽ ̄  h
.     V    `'   ' ,              /     ,リ
            ヽ       i` ー---ァ   /
             >、     l,,─、/   /
        ┌─'T/       ` -'"   /
    ̄ ̄ ̄ ̄\  \   ` 、_  ̄   /
          \   \ /) , ' )ス" ̄
            \  / ///7 ヽ__
            ヽ/ "∠ -'ー、 |   `ヽ
              /     '二ヽ ノ     i
723ネトゲ廃人@名無し:2007/04/25(水) 11:46:11 ID:???
マタマタネ申キタ━━━━━━(゚∀゚)━━━━━━!!!!
724ネトゲ廃人@名無し:2007/04/25(水) 11:53:45 ID:???
>>721
本買って勉強する気なら買って損は無い。覚えておいて無駄な知識ではないから。
ただ今はググレば大抵サンプル付きでどこかに落ちてるからそれで十分いける

因みにmouse_eventはVBの関数ではなく、WindowsAPIだよ
725ネトゲ廃人@名無し:2007/04/25(水) 12:42:08 ID:???
>>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)でトレース出ます

連打したくない人におぬぬめ
726ネトゲ廃人@名無し:2007/04/25(水) 12:55:50 ID:???
>>511
そういやパチにもセグってありましたねぇ
パチってあまり知らないんですが、セグで状態表示してる機種多いですよね
これは決まりごとなのかな

勉強になりました。なんかしら閃きました。ピコーン アリガト!(´▽`)
727ネトゲ廃人@名無し:2007/04/25(水) 14:53:00 ID:???
メインデジタルで状態表示してるのってあったっけ?
728ネトゲ廃人@名無し:2007/04/25(水) 17:36:54 ID:???
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以下略
動きません (*´;ェ;`*) うぅ・・・
多分検討外れなんだろな
729ネトゲ廃人@名無し:2007/04/25(水) 17:51:33 ID:???
>>728
とりあえず、それうp
730ネトゲ廃人@名無し:2007/04/25(水) 17:54:28 ID:???
クレクレにソースUPしても、教えて君になるだけ、それを無視すると 暴れだす。
ということで、UPするな
731ネトゲ廃人@名無し:2007/04/25(水) 18:01:16 ID:???
手取り足取り教えてくれないか?
732728:2007/04/25(水) 18:06:08 ID:???
>>725
何時のかと思ったら、ウルトラブラックすれだ
半年も前カヨ Σヽ(゚Д゚○)ノ

733ネトゲ廃人@名無し:2007/04/25(水) 18:16:34 ID:???
超獣動かなくなってもうた。なんで?
734ネトゲ廃人@名無し:2007/04/25(水) 18:19:02 ID:???
試用期限切れ
735ネトゲ廃人@名無し:2007/04/25(水) 18:24:12 ID:???
>>733
直してあげるからうp
736ネトゲ廃人@名無し:2007/04/25(水) 18:30:19 ID:???
>>728
あらら(´・ェ・`)

728氏が思ってるほど万能でもなんでもない関数だよ
ボタン位置とランプ見て、ボタン全有効になったら1返すだけだから
使えなければ使わなくても問題ないです(^^;
使うと機種別マクロの記述が少なくとも倍になるし(プゲー
737728:2007/04/25(水) 18:40:07 ID:???
>>736
あああああ?o(`ω´*)oフン!!!
これで全機種動くんじゃねーのかよ (`Д´) ムキー!
だーまーさーれーたー バカーヾ(゚д゚)ノ゛
738ネトゲ廃人@名無し:2007/04/25(水) 18:49:41 ID:???
VB2005 って無料なの? 30日過ぎると製品登録ってことは、シェアウェアかな?
739ネトゲ廃人@名無し:2007/04/25(水) 18:51:17 ID:???
2005E.Eはユーザー登録すれば無料だと思う。
740ネトゲ廃人@名無し:2007/04/25(水) 18:54:22 ID:???
>>739 ありがと、少し勉強してみるかな^^:
741ネトゲ廃人@名無し:2007/04/25(水) 20:30:36 ID:???
サラ金の使用料自動トレマクロ作ったんだけど欲しい人いる?

ある時間に使用してると、自動的に俺の複垢にトレ申し込みして一番上のアイテム渡す様に成ってるけどww
742ネトゲ廃人@名無し:2007/04/25(水) 20:32:57 ID:???
>>741
くれ
743ネトゲ廃人@名無し:2007/04/25(水) 20:45:56 ID:???
自動的2にWAT買って俺に渡す仕様もあるんだが・・・・

さすがにヤバいよなw
744ネトゲ廃人@名無し:2007/04/25(水) 20:52:13 ID:???
>>741
興味ある。うp頼む。
745ネトゲ廃人@名無し:2007/04/25(水) 20:52:41 ID:???
>>743
くれくれ
746ネトゲ廃人@名無し:2007/04/25(水) 20:59:05 ID:???
>>743
釣れますか?
747ネトゲ廃人@名無し:2007/04/25(水) 21:03:34 ID:???
釣り堀だな
748ネトゲ廃人@名無し:2007/04/25(水) 21:04:44 ID:???
んで>>644は何なの?
749ネトゲ廃人@名無し:2007/04/25(水) 22:30:13 ID:???
キタ━━━━━━(゚∀゚)━━━━━━!!!!
ttp://nullpo.vip2ch.com/upload.cgi?mode=dl&file=5258

けど、パス分からねぇorz
750ネトゲ廃人@名無し:2007/04/25(水) 22:37:17 ID:???
猛獣作ってるんですが、リールが回転中かどうかの判定で詰まってます。

・STARTの横の黄色チェリが消灯
・左、中、右ボタンが赤
・「MEDALS IN」の白いランプが消灯
   →以上を満たしていれば、左ボタンが青になるまでSleepを繰り返す

だと思うのですが、これだと3つ目のボタンを押した直後にこの条件に
当てはまってしまい、ループに入って止まってしまいます。
他に良い判定場所は無いでしょうか?
751ネトゲ廃人@名無し:2007/04/25(水) 22:41:19 ID:???
左、中、右ボタンのどれかが青 で良いではまいか
752ネトゲ廃人@名無し:2007/04/25(水) 22:44:23 ID:???
>>751
レバオンしてからボタンが青になるまで待つルーチンを作りたいのです。
753ネトゲ廃人@名無し:2007/04/25(水) 22:47:40 ID:???
>>752
スタートランプ検知して点灯してたら次のワンキーの後にスリープでよくね?
俺はそうしてるが
754ネトゲ廃人@名無し:2007/04/25(水) 22:48:30 ID:???
749のパスうpぽ
755ネトゲ廃人@名無し:2007/04/25(水) 22:49:46 ID:???
>>754 キエロカス
756ネトゲ廃人@名無し:2007/04/25(水) 22:56:53 ID:???
      , イ)ィ -─ ──- 、ミヽ
      ノ /,.-‐'"´ `ヾj ii /  Λ
    ,イ// ^ヽj(二フ'"´ ̄`ヾ、ノイ{
   ノ/,/ミ三ニヲ´        ゙、ノi!
  {V /ミ三二,イ ,  /,   ,\  Yソ
  レ'/三二彡イ  .:ィ●ラ   ;:●ラ  j{
  V;;;::. ;ヲヾ!V    ー '′ i ー ' ソ
   Vニミ( 入 、      r  j  ,′  
   ヾミ、`ゝ  ` ー--‐'ゞニ<‐-イ
     ヽ ヽ     -''ニニ‐  /
        |  `、     ⌒  ,/
       |    >┻━┻'r‐'´
      ヽ_         |
         ヽ _ _ 」    

  キエロカス [ Gugurecus ]
  ( 2006 〜 没年不明 )
757ネトゲ廃人@名無し:2007/04/25(水) 22:58:20 ID:???
>>756
英名も変えて欲しかったw
758ネトゲ廃人@名無し:2007/04/25(水) 23:00:02 ID:???
      , イ)ィ -─ ──- 、ミヽ
      ノ /,.-‐'"´ `ヾj ii /  Λ
    ,イ// ^ヽj(二フ'"´ ̄`ヾ、ノイ{
   ノ/,/ミ三ニヲ´        ゙、ノi!
  {V /ミ三二,イ ,  /,   ,\  Yソ
  レ'/三二彡イ  .:ィ●ラ   ;:●ラ  j{
  V;;;::. ;ヲヾ!V    ー '′ i ー ' ソ
   Vニミ( 入 、      r  j  ,′  
   ヾミ、`ゝ  ` ー--‐'ゞニ<‐-イ
     ヽ ヽ     -''ニニ‐  /
        |  `、     ⌒  ,/
       |    >┻━┻'r‐'´
      ヽ_         |
         ヽ _ _ 」    

  キエロカス [ kierocus ]
  ( 2006 〜 没年不明 )
759750:2007/04/25(水) 23:02:46 ID:???
>>753
それで上手く行きました!Sleep値は1.7〜2.0の間くらいがいいみたいですね。
超獣もこのパターンで組んでみます。
760ネトゲ廃人@名無し:2007/04/25(水) 23:15:16 ID:???
サミタの回答
お問い合わせいただきましたご質問について回答いたします。
………………………………………………………………………………………………
回答内容:
777タウン.netではマクロの公認はしておりません。
なにとぞご理解いただきますようよろしくお願い致します。

また、ご報告いただいたのに関わらずお客様には大変申し訳ございませんが、
ご連絡いただきました内容からでは、マクロについて分かりかねますので、
お客様がご存知な事をできるだけ詳細をお伝えいただけないでしょうか

お忙しいところお手数お掛けしてしまい申し訳ありませんが、
迅速な問題解決の為にも、ご協力よろしくお願いいたします。

これからも777タウン.netをよろしくお願いいたします。
761ネトゲ廃人@名無し:2007/04/25(水) 23:16:23 ID:???
>>760
なんかクレクレ君みたいだなw
762ネトゲ廃人@名無し:2007/04/25(水) 23:40:11 ID:???
正解は"777"でした。
763ネトゲ廃人@名無し:2007/04/25(水) 23:52:25 ID:???
>>761
ちょとワロタ
764ネトゲ廃人@名無し:2007/04/26(木) 01:20:41 ID:???
点滅(7セグ)の場合どのように処理を行えばいいですか?
UWSCでBBリプ外しをしたいのですが、7セグが点滅している為にうまく動作してくれません orz
765ネトゲ廃人@名無し:2007/04/26(木) 01:45:39 ID:???
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と繰り返し回数で適当に調整
766ネトゲ廃人@名無し:2007/04/26(木) 06:32:05 ID:???
>>765 ありがとうございます
これで ようやく前に進めそうです ^^
767ネトゲ廃人@名無し:2007/04/26(木) 07:34:38 ID:???
そろそろ漂白祭りが開催されるから待ってろよ・・お前ら。
お前らのせいで余計な仕事・ほんと疲れるわ。ちなみに今回は徹底的に
調べあげてるから。まず、UWSCなんか使ってるアホ・・終わりだから。
VB使ってる皆様・・終焉のカウントダウンが開始されました。
今回は期待してお待ち下さい。
768ネトゲ廃人@名無し:2007/04/26(木) 07:38:21 ID:???
そうか
じゃ、今のうちアイテムばら撒いて退会するか
769ネトゲ廃人@名無し:2007/04/26(木) 08:01:07 ID:???
ダメだ全然わかんない
770ネトゲ廃人@名無し:2007/04/26(木) 08:27:24 ID:???
>>767
漂白でもなんでもやれや
マクロばら撒いてやめてやるからwwww
771ネトゲ廃人@名無し:2007/04/26(木) 09:40:14 ID:???
>>767
マクロ使いはサミタをやる事では無くて、マクロを作ることに楽しみを感じているから
漂白&BANされたところでサミタを辞めるイイきっかけになるだけさ。
772ネトゲ廃人@名無し:2007/04/26(木) 10:03:08 ID:???
サミタのことだから月額1万でマクロ会員新設するんじゃね。
773ネトゲ廃人@名無し:2007/04/26(木) 11:04:12 ID:???
あれだよ、サミタはスロットを楽しむのじゃなく
オフゲーのコンビニ?やシムシティみたいな感じ。

真黒配置して上手に動くか、誤作動はないか・・・みたいな
で、結果はどうなったか・・・・BLで騒がれてないか・・・

>>770みたいにばら撒いたるwって人は
自作してないんじゃないかな?
漂白、BANで逆ギレって大人気ない。
違反してるのだから、しかたないでしょ?と、思うけどね
プログラミングの知識は何かと役には立つと思うしね。
774ネトゲ廃人@名無し:2007/04/26(木) 11:11:11 ID:???
自作する楽しみを覚えた人は勲章・アイテム・アバの興味は薄れるから
たとえ漂白されようがモチベが保たれれば別垢取って
新機種リリースにwktkすればいいだけだし…
775ネトゲ廃人@名無し:2007/04/26(木) 11:21:29 ID:???
>真黒配置して上手に動くか、誤動作はないか・・・

そういう人は少ないよね?
連日インして設定券使い、清算時には2倍券使ってる。
しかも自分でプログラミングできない人が・・・
776422 ◆fnn7NYteKE :2007/04/26(木) 11:26:35 ID:???
俺は、勲章はこだわってるかも。
現に勲章取ったら一回も打ってない機種もあるしw
なんていうか、そのマクロの1つの到達点って感じ。

おもしろい機種だとその後も色々機能追加するけどね。
777ネトゲ廃人@名無し:2007/04/26(木) 11:33:47 ID:???
俺も422氏と同じかな
作りこみもどこまでやったら万枚到達に一番近いかを考えて作ってる
島唄とかジャグは確定で目押しするだけでぶん回し
逆にハイシオは通常時DDTも入れてる

そういうパフォーマンスを考えるのもマクロ作成の楽しみのひとつ
778ネトゲ廃人@名無し:2007/04/26(木) 11:39:31 ID:???
>>775
実際、私も連日インして設定券使い、勲章取りしてます
結果として、数字に残るのは勲章だけだからね

422氏の勲章取ったら一回も打ってない機種もあるってのは
よくわかります。私も同じですよ。

猛獣フル攻略作ったけど、アプリ自体かなり重いね・・・
正式版になっても、あのままなら、勲章とれれば打たなくなりそうです。
779ネトゲ廃人@名無し:2007/04/26(木) 11:44:34 ID:???
>>776
俺は敢えて納得いく出来になるまでは勲章を取りに行かないなぁ
780ネトゲ廃人@名無し:2007/04/26(木) 11:48:35 ID:???
VBでスハナとキンパルの完全攻略版作ったけど、2回しか稼動させてない。
やはり作ってる時が一番たのしいな。
781ネトゲ廃人@名無し:2007/04/26(木) 11:51:05 ID:???
競馬なら予想してる時、スロなら開店前に並んでる時
782ネトゲ廃人@名無し:2007/04/26(木) 12:01:21 ID:???
じゃその出来の良いマクロくれよ!
783ネトゲ廃人@名無し:2007/04/26(木) 12:07:05 ID:???
連日稼動してるとPCの寿命早いくなるね。
これから暑くなるから、外出時も冷房つけとかなきゃ・・・
784ネトゲ廃人@名無し:2007/04/26(木) 12:38:43 ID:???
PCの分解清掃を怠ると痛い目みるぜ!埃って案外溜まるもんだよ
785ネトゲ廃人@名無し:2007/04/26(木) 13:14:29 ID:???
IAも捨てたもんじゃないだろ?最小化して動かせるのがなにより
786ネトゲ廃人@名無し:2007/04/26(木) 14:20:46 ID:???
ハイシオなんだけど
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

こんな感じでいいの?
昨日から手を染めてみたんだけど。まったくチンプンなんで。
787786:2007/04/26(木) 14:46:42 ID:???
うはっ、自分で見てもいろいろ足りないし、おかしいw
修行してきます。
788ネトゲ廃人@名無し:2007/04/26(木) 14:58:33 ID:???
マクロUPまだですか?????????
789ネトゲ廃人@名無し:2007/04/26(木) 15:10:45 ID:???
いまだ!クレクレクレクレーッ!!!
  ∧∧   ) ズザーーーーーッ
⊂(゚Д゚⊂⌒`つ≡≡≡(´ ;;;≡
790ネトゲ廃人@名無し:2007/04/26(木) 15:32:02 ID:???
うpろだにうpしたぞ。exe踏めるもんなら踏んで見れ。
パスのヒントはなし。ガンガレw
791ネトゲ廃人@名無し:2007/04/26(木) 15:32:17 ID:???
// アラジン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

792ネトゲ廃人@名無し:2007/04/26(木) 15:33:08 ID:???
// 北斗の拳のナビ対応処理-----------------------------------------------------------------
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
794ネトゲ廃人@名無し:2007/04/26(木) 15:36:31 ID:???
// サラリーマン金太郎のナビ対応-----------------------------------------------------------
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

795ネトゲ廃人@名無し:2007/04/26(木) 15:47:03 ID:???
何ですか?
796ネトゲ廃人@名無し:2007/04/26(木) 15:51:46 ID:???
そのソース見飽きたよwせめてスクワットくらい入れろや!
797ネトゲ廃人@名無し:2007/04/26(木) 16:01:54 ID:???
>>796
はい、スクワットw

Do
Call MouseClk(TwnWinPosX + 611, TwnWinPosY + 566)
Loop
798ネトゲ廃人@名無し:2007/04/26(木) 17:35:19 ID:???
ダブチャがナビを無視しますが。
799ネトゲ廃人@名無し:2007/04/26(木) 17:39:31 ID:???
位置あってないモン。
見てわからないなら使わないほうがいい。
800時代遅れSE:2007/04/26(木) 18:00:20 ID:???
私は以前・・COBOL・RPGVと言う言語でSEをしていました。
まだwindows3.1が出始めた時代に辞め今は他業種で仕事をしています。
前置きはここまでで。
サミタ始めて2年、マクロの存在を知り今から初心に戻り勉強をしていこうと
思っています。 ある程度理解し何度もデバックを重ねて一人前のマクラーに
なりたいと思いますので今後質問するかと思いますが、その際にはよろしく
お願いします。 スレ汚しすみませんでした。