Bird-Soft Weblog

注意：
このスクリプトはHSP2.61で動作します。
HSP3.0では動作いたしません。

◆サンプルスクリプト

// 自動化スクリプト #include "llmod.as" #include "input.as" screen 0,200,200,0,400,0 title "自動化スクリプト" *init cls objmode 1 await_time = 20 click_no = 0 //クリック回数 timer = 1 objsize 120,25 pos 40,160 : button "開始",*main stop //-- main loop *main gosub *s_push //-- 終了チェック stick key_code,128,0 // 128 [ESC] if (key_code=128)||(timer>=50) { //dialog "終了します" //end goto *init } //-- 表示 redraw 0 color 255,255,255 : boxf color 0,0,0 pos 10,10 : print "クリック回数:"+click_no+"\n timer:"+timer await 20 timer++ redraw 1 goto *main //-- サブルーチン -------------------------------------- //-- クリックするサブルーチン *m_click mouse mouse_x,mouse_y //指定位置にカーソルを移動する await await_time //重要！ mouse_event $2 //左のボタンを押す await await_time mouse_event $4 //左のボタンを放す await await_time click_no++ return; *s_push //-- 指定箇所のボタンを押すサブルーチン mouse_x = 49 : mouse_y = 135 : gosub *m_click await 20 mouse_x = 250 : mouse_y = 135 : gosub *m_click await 20 return;

◆詳細

はクリックさせるためのサブルーチンです。
途中でウエイトを入れているのがみそです。これを入れないとうまくいきません。 mouse_x,mouse_yにクリックさせたい座標を代入してからこのサブルーチンを呼び出すと、 その座標をクリックしてくれます。 は指定箇所のボタンを押すサブルーチンです。
先ほど調べたボタンの座標を指定しています。
このプログラムを改造するときはここをいじることが多いかもしれません。

ここを見るとわかるように、このプログラムでは、20msecごとにボタンをクリックさせています。

◆最後に
このサンプルはたいしたことありませんが、応用すればさまざまなことに利用できます。
単純な作業はこのようにしてスクリプトで楽をしましょう！
HSPを使えば多少複雑な処理でも対応することができます。

うまくすればゲームでとかできちゃうかもしれません。
ポイントは
「どのようにして回復手段を入れるか」
「さまざまな状況に対応できるようにする」
「適度にウエイトをいれること」
などです。

逆に、ゲーム作者で「自動レベル上げ」などをやられたくないときは、
ゲームが単調でつまらなくならないように気をつけるとよいかもしれません。
単純でつまらないレベル上げを何時間もするようなゲームをしていると
このようなスクリプトを組みたくなるので・・・。
「ゲームより、スクリプトを組む方が楽しい」
とかなってくると重症かもしれません（苦笑）

（またはゲームにランダム要素を組み込むとかなり有効だと思います。
メモリ上のデータから現在の状況を取得して・・というつわものもいるかもしれませんが（笑））



応援お願いします(人気blogランキングへ)