HSPTV!掲示板

タイトルの通りなのですが、
標準の画像処理命令を使用してプログラムを組み、
動作の重さからhgimg3等への移行するときに、
標準の画像処理命令をそのままhgimg3等のdirectx系の命令に置き換えるようなモジュールはありませんでしょうか・・・

初めからhgimg3使えよって話ですが...

screen,buffer,gsel,celload,celdiv,celput,gcopy,gmode(3,4),mes,boxf,line,redraw
このあたりの命令だけでも置き換えられれば、だいぶ効率よく移行できるかと思うので
もしそのようなモジュール等ご存知でしたら教えて頂ければ幸いです...

ざっと調べた限りそのようなモジュールを見つけられませんでした。
処理を軽くしたい、という事ならArtlet2Dはどうでしょうか？
もちろん、hgimg3の軽さ・速さには勝てませんが・・・

主自身がモジュールで作ればいいと思うよ。

例 : 標準mes を 標準print として命令する

#undef mes //←標準mes を抹消
#module
#deffunc mes str p1 //mes 命令として再作成
	print p1
return
#global

	mes "これはテストです"

これで命令の置き換えができた。置き換え元の引数を置き換え先の引数に合わせれば、置き換え完成。
普通に、macro.hsp に書かれている置き換えのやり方です。

>>スペースさん
やはりありませんか・・・ありがとうございます
Artlet2Dは画像処理の拡張命令のようなものだと認識していました・・速度も改善するのですね
試してみたいと思います

>>MillkeyStars
ありがとうございます！
置き換え作業自体は解るのですが、なにぶんhgimg3の知識が無さ過ぎて、途方も無く時間がかかってしまいそうなのです・・・

初めてhgimg3を使ったときはこのサイトを参考にした記憶が。
http://www.geocities.jp/inaeggmon/hgimg3.html

エディタの置き換え機能を使うのは如何でしょうか。

すごーく原始的ですがね(笑)

放置してしまい申し訳ございません・・・
あれからいろいろ試行錯誤してきたのですが、
こちらの方のブログ http://fe0km.blog.fc2.com/blog-entry-119.html にて置換モジュールを見つけ、使おうとしたところ
gsel、gmode(2,4)、celdiv等がうまく機能しません
どうにか使用できるように改良できませんでしょうか・・・
１年半ほど前の記事なので仕様変更等によるものなのかなと思い、投稿させて頂きました

なにぶん知識不足なもので、アホな質問でしたら申し訳ありません
以下がモジュールのソースコードになります

//------------------------------------------------------------------------------
//
//    DxLib cel for HSP (2015/08/10)
//        http://fe0km.blog.fc2.com/
//        https://twitter.com/exrd
//            by exrd
//
//
//------------------------------------------------------------------------------
//
//    inoviaさんの DxLib for HSP に触発されて作ったもの
//
//        ●既存のHSPの命令の枠組みをDXライブラリの命令によって実現することで，
//            ”スクリプトはそのままに”DirectXを使った高速なレンダリングが可能にならないか，の実験
//            ※ただし，全ての機能が代替される訳ではないため，正しく動かないものもあります
//
//        ●使い方サンプルは「sample.hsp」を参照してください
//            現状対応している（書き換えている）命令は次
//                screen, buffer, celload, celiv, redraw, gsel, gcopy, boxf, line, circle, font, mes, await, wait
//            むしろ，対応してないのは次
//                axobj, bmpsave, bgscr, chgdisp, cls, gradf, groll, grotate, gsquare, gzoom, pallete, picload, pget, print, pset
//            モジュール側から弄ってないけど普通に使えるのは次
//                color, dialog, hsvcolor, pos, syscolor, sysfont, title
//
//        ●明らかに標準と違うのは
//            ・gmode 3とかの半透明の影響がmesやboxfにもでること（ある意味いいところでもある）
//            ・作れるスクリーンは1個だけ
//            ・redraw 0〜redraw 1は必ず挟む必要がある（redraw 1しないとScreenFlipしないため）
//            ・起動が遅い（内部で色々初期化しているのでしょうがない）
//            ・grotateがない（celputへ移行する必要がある）
//            ・透明色，アルファが有効（PNGなどアルファ値を含む画像がフルにサポートされているため）
//            ・gmode 7は使えません
//            ・bufferの前にscreenを書く必要がある
//                正確には，screenのタイミングをDXライブラリ初期化のタイミングとしています
//                また，メインのスクリーンはid 0と決め打ちしています
//                つまり，最初にid 0のスクリーンを作る必要があります（サンプルの通りの流れが必要）
//                そして，二回目以降のscreenによる初期化においては，それまで作ったbufferが全部消えます
//            ・パレットモードは未サポート
//                ※本来的にはちゃんとモジュール書きなおせば動くハズ
//
//        ●その他注意事項
//            ・DxLibは3.14系以降が安定しています
//                ※API互換の関係で少なくとも3.13e以降でないと動かないです
//
//
//------------------------------------------------------------------------------
//
// license : NYSL Version 0.9982 : for detail, see http://www.kmonos.net/nysl/
//
//    A. 本ソフトウェアは Everyone'sWare です。このソフトを手にした一人一人が、
//        ご自分の作ったものを扱うのと同じように、自由に利用することが出来ます。
//        A-1. フリーウェアです。作者からは使用料等を要求しません。
//        A-2. 有料無料や媒体の如何を問わず、自由に転載・再配布できます。
//        A-3. いかなる種類の 改変・他プログラムでの利用 を行っても構いません。
//        A-4. 変更したものや部分的に使用したものは、あなたのものになります。
//            公開する場合は、あなたの名前の下で行って下さい。
//    B. このソフトを利用することによって生じた損害等について、作者は
//        責任を負わないものとします。各自の責任においてご利用下さい。
//    C. 著作者人格権は exrd（えくー） に帰属します。著作権は放棄します。
//    D. 以上の３項は、ソース・実行バイナリの双方に適用されます。
//
//
//------------------------------------------------------------------------------
//
//
 
 
#ifndef __INC_DXLIBCEL_HSP__
#define __INC_DXLIBCEL_HSP__
 
#include "DxLib.as"
 
#module "dxlibcel"
 
 
#define DXLIBCEL_SCREEN_NUM_MAX (128)
#define DXLIBCEL_SCREEN_DIV_NUM_MAX (128)
 
#define DXLIBCEL_REPLACE_EMBEDDED_COMMANDS
 
#define dxlibcelInit _dxlibcelInit
#deffunc _dxlibcelInit
    if ( is_init ) : return 1
    is_init = 1
 
    SetOutApplicationLogValidFlag 0// disable log output
    SetWaitVSyncFlag 0// do not wait vsync
    SetUseFPUPreserveFlag 1// compatibility is prior than speed, in this context
    SetUseDXArchiveFlag 0//
    SetUseDirect3DVersion DX_DIRECT3D_9EX// we use dx9ex
 
    is_transColor_sync = 0
 
    draw_rect_srcX = 32 : draw_rect_srcY = 32
    font_size = 12
 
    dim buffer_handle, DXLIBCEL_SCREEN_NUM_MAX
    ddim buffer_rot_cx, DXLIBCEL_SCREEN_NUM_MAX
    ddim buffer_rot_cy, DXLIBCEL_SCREEN_NUM_MAX
    dim buffer_handle_div, DXLIBCEL_SCREEN_NUM_MAX, DXLIBCEL_SCREEN_DIV_NUM_MAX
 
    _dxlibcelClear
return
 
#deffunc _dxlibcelDestroy onexit
    DxLib_IsInit
    if ( stat ) {
        DxLib_End
        _dxlibcelClear
    }
return
 
#deffunc _dxlibcelClear
    screen_id = -1
 
    repeat DXLIBCEL_SCREEN_NUM_MAX
        t_idx = cnt
        buffer_handle(t_idx) = -1
        buffer_rot_cx(t_idx) = 0.0
        buffer_rot_cy(t_idx) = 0.0
        repeat DXLIBCEL_SCREEN_DIV_NUM_MAX
            buffer_handle_div(t_idx,cnt) = -1
        loop
    loop
return
 
 
    // screen_id, width, height, mode, px, py, cx, cy
#define global dxlibcelScreen( %1 =0, %2 =640, %3 =480, %4 =0, %5 =-1, %6 =-1, %7 =-1, %8 =-1 ) _dxlibcelScreen %1, %2, %3, %4, %5, %6, %7, %8
#deffunc _dxlibcelScreen int p1, int p2, int p3, int p4, int p5, int p6, int _p7, int _p8, local p7, local p8, local l_colorDepth
    dxlibcelInit
    DxLib_IsInit : if ( stat ) : _dxlibcelDestroy// already initialized
        // fix width, height
    if ( _p7 < 0 ) : p7 = p2 : else : p7 = _p7
    if ( _p8 < 0 ) : p8 = p3 : else : p8 = _p8
        // create
    screen@hsp p1, p2, p3, p4, p5, p6, p7, p8
        // 
    l_colorDepth = 32
    if ( p4 & 1 ) : l_colorDepth = 16// 厳密には全然違うのだが，とりあえず…
    SetGraphMode p1, p2, l_colorDepth, 60// refresh rate is hardcoded
    ChangeWindowMode 0// not using full-screen
    SetUserWindow hwnd// use hsp window
    SetUserWindowMessageProcessDXLibFlag 1// deny processing
    DxLib_Init// init!
        // set default
    SetDrawMode DX_DRAWMODE_BILINEAR
    SetUseTransColor 0// not use trans color
    SetUseTransColorGraphCreateFlag 0// too
    SetBackgroundColor 255, 255, 255
    SetDrawBlendMode DX_BLENDMODE_NOBLEND, 0
        // cur
    SetDrawScreen DX_SCREEN_BACK
    ClearDrawScreen 0
return ( stat >= 0 )
 
    // screen_id, width, height, mode
#define global dxlibcelBuffer( %1 =0, %2 =640, %3 = 480, %4 =0 ) _dxlibcelBuffer %1, %2, %3, %4
#deffunc _dxlibcelBuffer int p1, int p2, int p3, int p4
    DxLib_IsInit : if ( stat == 0 ) : return 0// not initialized yet
    dxlibcelReleaseBuffer p1
    MakeScreen p2, p3
    buffer_handle(p1) = stat
return 1
 
    // screen_id
#deffunc dxlibcelReleaseBufferDiv int p1
    if ( buffer_handle(p1) == -1 ) : return 0
    repeat DXLIBCEL_SCREEN_DIV_NUM_MAX
        if ( buffer_handle_div(p1,cnt) != -1 ) {
            DeleteGraph buffer_handle_div(p1,cnt)
        }
        buffer_handle_div(p1,cnt) = -1
    loop
return 1
 
    // screen_id
#deffunc dxlibcelReleaseBuffer int p1
    if ( buffer_handle(p1) == -1 ) : return 0
    dxlibcelReleaseBufferDiv p1
    DeleteGraph buffer_handle(p1)
    buffer_handle(p1) = -1
return 1
 
 
    // filename, screen_id, mode : return new screen id
#define global dxlibcelLoad( %1, %2 =-1, %3 =0 ) _dxlibcelLoad %1, %2, %3
#deffunc _dxlibcelLoad str p1, int _p2, int p3, local p2, local l_graphHandle, local l_graphSizeX, local l_graphSizeY, local l_prevBlendModeX, local l_prevBlendModeY, local l_prevDrawScreen
        // load graph
    LoadGraph p1
    l_graphHandle = stat
    if ( l_graphHandle < 0 ) : return -1// load failed
        // get size
    l_graphSizeX = 0 : l_graphSizeY = 0
    GetGraphSize l_graphHandle, varptr( l_graphSizeX ), varptr( l_graphSizeY )
        // make new screen
    if ( _p2 < 0 ) {
            // search empty
        repeat DXLIBCEL_SCREEN_NUM_MAX
            if ( buffer_handle(cnt) == -1 ) {
                p2 = cnt
            }
        loop
    } else {
        p2 = _p2
    }
    _dxlibcelBuffer p2, l_graphSizeX, l_graphSizeY
        // copy
    l_prevBlendModeX = 0 : l_prevBlendModeY = 0
    GetDrawScreen : l_prevDrawScreen = stat
    SetDrawScreen buffer_handle(p2)
    GetDrawBlendMode varptr( l_prevBlendModeX ), varptr( l_prevBlendModeY )
    SetDrawBlendMode DX_BLENDMODE_NOBLEND, 0
    DrawGraph 0, 0, l_graphHandle, 0
    DeleteGraph l_graphHandle
            // restore
    SetDrawScreen l_prevDrawScreen
    SetDrawBlendMode l_prevBlendModeX, l_prevBlendModeY
        //
    buffer_rot_cx(p2) = 0.0
    buffer_rot_cy(p2) = 0.0
return p2
 
    // screen_id, divX, divY, rotCX, rotCY
#define global dxlibcelDiv( %1 =1, %2 =0, %3 =0, %4 =0, %5 =0 ) _dxlibcelDiv %1, %2, %3, %4, %5
#deffunc _dxlibcelDiv int p1, int _p2, int _p3, int p4, int p5, local p2, local p3, local l_graphSizeX, local l_graphSizeY, local l_divNumX, local l_divNumY
    dxlibcelReleaseBufferDiv
    if ( buffer_handle(p1) == -1 ) : return 0// no graph
        // get size
    l_graphSizeX = 0 : l_graphSizeY = 0
    GetGraphSize buffer_handle(p1), varptr( l_graphSizeX ), varptr( l_graphSizeY )
    if ( _p2 <= 0 ) : p2 = l_graphSizeX : else : p2 = _p2
    if ( _p3 <= 0 ) : p3 = l_graphSizeY : else : p3 = _p3
        // make division
    l_divNumX = l_graphSizeX/p2// + ( ( l_graphSizeX\p2 ) != 0 )
    l_divNumY = l_graphSizeY/p3 + ( ( l_graphSizeY\p3 ) != 0 )
    t_idx = 0
    repeat l_divNumY
        t_y = cnt
        repeat l_divNumX
            t_x = cnt
            DerivationGraph t_x*p2, t_y*p3, p2, p3, buffer_handle(p1)
            buffer_handle_div(p1,t_idx) = stat
            t_idx++
        loop
    loop
        // set param
    buffer_rot_cx(p1) = double(p4)
    buffer_rot_cy(p1) = double(p5)
return 1
 
    // screen_id, idx, zoomX, zoomY, rad
#define global dxlibcelPut( %1, %2 =0, %3 =1.0, %4 =1.0, %5 =0.0 ) _dxlibcelPut %1, %2, %3, %4, %5
#deffunc _dxlibcelPut int p1, int p2, double p3, double p4, double p5, local l_graphHandle
    if ( p2 == 0 ) {
        if ( buffer_handle_div(p1,0) == -1 ) {// no division
            l_graphHandle = buffer_handle(p1)
        } else {
            l_graphHandle = buffer_handle_div(p1,p2)
        }
    } else {
        l_graphHandle = buffer_handle_div(p1,p2)
    }
    if ( l_graphHandle == -1 ) : return 0
        // draw
    dxlibcelSyncDrawMode
    DrawRotaGraph3 ginfo_cx, ginfo_cy, buffer_rot_cx(p1), buffer_rot_cy(p1), p3, p4, p5, l_graphHandle, 1, 0
return 1
 
 
    // screen_id, x, y, w, h
#define global dxlibcelGcopy( %1, %2 =0, %3 =0, %4, %5 ) _dxlibcelGcopy %1, %2, %3, %4, %5
#deffunc _dxlibcelGcopy int p1, int p2, int p3, int p4, int p5, local l_graphHandle
    l_graphHandle = buffer_handle(p1)
    if ( l_graphHandle == -1 ) : return 0
        // draw
    dxlibcelSyncDrawMode
    DrawRectGraph ginfo_cx, ginfo_cy, p2, p3, p4, p5, l_graphHandle, 1, 0
return 1
 
    // screen_id, x, y, rad, w, h
#define global dxlibcelGrotate( %1 =0, %2 =0, %3 =0, %4 =0.0, %5 =-1, %6 =-1 ) _dxlibcelGrotate %1, %2, %3, %4, %5, %6
#deffunc _dxlibcelGrotate int p1, int p2, int p3, double p4, int _p5, int _p6, local p5, local p6, local l_graphHandle, local l_graphSizeX, local l_graphSizeY
    l_graphHandle = buffer_handle(p1)
    if ( l_graphHandle == -1 ) : return 0
        // get size
    l_graphSizeX = 0 : l_graphSizeY = 0
    GetGraphSize buffer_handle(p1), varptr( l_graphSizeX ), varptr( l_graphSizeY )
        // determin size
    if ( _p5 < 0 ) : p5 = draw_rect_srcX : else : p5 = _p5
    if ( _p6 < 0 ) : p6 = draw_rect_srcY : else : p6 = _p6
        // draw
    dxlibcelSyncDrawMode
    DrawRotaGraph3 ginfo_cx, ginfo_cy, l_graphSizeX/2, l_graphSizeY/2, double(p5)/double(draw_rect_srcX), double(p6)/double(draw_rect_srcY), p4, l_graphHandle, 1, 0
return 1
 
 
    //
#define global dxlibcelGmode( %1 =0, %2 =32, %3 =32, %4 =0 ) _dxlibcelGmode %1, %2, %3, %4
#deffunc _dxlibcelGmode int p1, int p2, int p3, int p4, local l_graphMode
    gmode@hsp p1, p2, p3, p4
 
    SetUseTransColor 0
    is_transColor_sync = 0
    switch( p1 )
        case 2 : l_graphMode = DX_BLENDMODE_NOBLEND : SetUseTransColor 1 : SetTransColor 0, 0, 0 : swbreak
        case 3 : l_graphMode = DX_BLENDMODE_ALPHA : swbreak
        case 4 : l_graphMode = DX_BLENDMODE_ALPHA : is_transColor_sync = 1 : SetUseTransColor 1 : swbreak
        case 5 : l_graphMode = DX_BLENDMODE_ADD : swbreak
        case 6 : l_graphMode = DX_BLENDMODE_SUB : swbreak
        default : l_graphMode = DX_BLENDMODE_NOBLEND : swbreak
    swend
    SetDrawBlendMode l_graphMode, p4
    draw_rect_srcX = p2 : draw_rect_srcY = p3
return
 
    // sync
#deffunc dxlibcelSyncDrawMode
    if ( is_transColor_sync ) {
        SetTransColor ginfo_r, ginfo_g, ginfo_b
    }
return
 
    // flip
#deffunc dxlibcelScreenFlip
    ScreenFlip
    ProcessMessage
return
 
    // screen_id
#define global dxlibcelScreenSel( %1 =0, %2 =0 ) _dxlibcelScreenSel %1, %2
#deffunc _dxlibcelScreenSel int p1, int p2, local l_graphSizeX, local l_graphSizeY
    gsel@hsp p1, p2
    if ( p1 == 0 ) {
        SetDrawScreen DX_SCREEN_BACK
    } else {
        SetDrawScreen buffer_handle(p1)
            // get size
        l_graphSizeX = 0 : l_graphSizeY = 0
        GetGraphSize buffer_handle(p1), varptr( l_graphSizeX ), varptr( l_graphSizeY )
            // rewrite window size
        mref t_dumBmscr, 67
         
    }
return
 
    // mode
#deffunc dxlibcelRedraw int p1
    if ( p1 ) : dxlibcelScreenFlip
return
 
 
    // boxf
#define global dxlibcelBoxf( %1 =0, %2 =0, %3 =-1, %4 =-1 ) _dxlibcelBoxf %1, %2, %3, %4
#deffunc _dxlibcelBoxf int p1, int p2, int _p3, int _p4, local p3, local p4, local l_graphHandle, local l_graphSizeX, local l_graphSizeY
    p3 = _p3 : p4 = _p4
    if ( (p3<0) || (p4<0) ) {
        GetDrawScreen : l_graphHandle = stat
        if ( l_graphHandle == -1 ) : return 0
            // get size
        l_graphSizeX = 0 : l_graphSizeY = 0
        GetGraphSize l_graphHandle, varptr( l_graphSizeX ), varptr( l_graphSizeY )
        if ( p3 < 0 ) : p3 = l_graphSizeX
        if ( p4 < 0 ) : p4 = l_graphSizeY
    }
    p3++ : p4++
        //
    GetColor ginfo_r, ginfo_g, ginfo_b
    DrawBox p1, p2, p3, p4, stat, 1
return 1
 
    // line
#define global dxlibcelLine( %1 =0, %2 =0, %3 =-1, %4 =-1 ) _dxlibcelLine %1, %2, %3, %4
#deffunc _dxlibcelLine int p1, int p2, int _p3, int _p4, local p3, local p4
    p3 = _p3 : p4 = _p4
    if ( p3 < 0 ) : p3 = ginfo_cx
    if ( p4 < 0 ) : p4 = ginfo_cy
        //
    GetColor ginfo_r, ginfo_g, ginfo_b
    DrawLine p1, p2, p3, p4, stat
    pos p1, p2
return 1
 
    // circle
#define global dxlibcelCircle( %1 =0, %2 =0, %3, %4, %5 =1 ) _dxlibcelCircle %1, %2, %3, %4, %5
#deffunc _dxlibcelCircle int p1, int p2, int p3, int p4, int p5
        //
    GetColor ginfo_r, ginfo_g, ginfo_b
    DrawOval (p1+p3)/2, (p2+p4)/2, abs(p3-p1)/2, abs(p4-p2)/2, stat, p5, 1
return 1
 
    // font
#define global dxlibcelFont( %1, %2 =12, %3 =0 ) _dxlibcelFont %1, %2, %3
#deffunc _dxlibcelFont str p1, int p2, int p3
    font@hsp p1, p2, p3
    ChangeFont p1
    SetFontSize p2
    SetFontThickness 0
    font_size = p2
return
 
    // mes
#define global dxlibcelMes( %1 ) _dxlibcelMes %1
#deffunc _dxlibcelMes str p1
    GetColor ginfo_r, ginfo_g, ginfo_b
    DrawString ginfo_cx, ginfo_cy, p1, stat
    pos , ginfo_cy +font_size
return
 
    // wait
#define global dxlibcelWait( %1 =100 ) _dxlibcelWait %1
#deffunc _dxlibcelWait int p1
    wait@hsp p1
    ProcessMessage
return
 
    // await
#define global dxlibcelAwait( %1 =0 ) _dxlibcelAwait %1
#deffunc _dxlibcelAwait int p1
    await@hsp p1
    ProcessMessage
return
 
 
    // replace
#ifdef DXLIBCEL_REPLACE_EMBEDDED_COMMANDS
 
#undef screen
#define global screen dxlibcelScreen
 
#undef buffer
#define global buffer dxlibcelBuffer
 
#undef celload
#define global celload dxlibcelLoad
 
#undef celdiv
#define global celdiv dxlibcelDiv
 
#undef celput
#define global celput dxlibcelPut
 
#undef redraw
#define global redraw dxlibcelRedraw
 
#undef gsel
#define global gsel dxlibcelScreenSel
 
#undef gmode
#define global gmode dxlibcelGmode
 
#undef gcopy
#define global gcopy dxlibcelGcopy
 
#if 0
#undef grotate
#define global grotate dxlibcelGrotate
#endif
 
#undef boxf
#define global boxf dxlibcelBoxf
 
#undef line
#define global line dxlibcelLine
 
#undef circle
#define global circle dxlibcelCircle
 
#undef font
#define global font dxlibcelFont
 
#undef mes
#define global mes dxlibcelMes
 
#undef wait
#define global wait dxlibcelWait
 
#undef await
#define global await dxlibcelAwait
 
 
#endif// DXLIBCEL_REPLACE_EMBEDDED_COMMANDS
 
#global// dxlibcel
 
#endif// __INC_DXLIBCEL_HSP__

リファレンス？に書かれている置換命令にしたところで、完全互換ではないので、
「言及外仕様」に阻まれている可能性が大いにありますよ。

とりあえず小規模な簡単なコードで試して、何がどうおかしいのかじっくり検証しましょう。

意図通りに動かないのは確かにそうなのでしょうけど、
何かこんな解釈されてるっぽいとかそういう状況が見えてこないと詳しい人も答えづらいんじゃないかな。

もしくは、置き換え前との不一致の実例コードを持ち出してみるとか。

残念ながらこちらは現行のDxLibに明るくないのでなんとなくしか答えようがない。
多分置き換えマクロもHSPでできうるあらゆる状況を網羅しているものじゃないはずですよ。

>>掘木さん
なるほど、おっしゃるとおりです
少しずつ検証していこうと思います・・・

今のところ、

#include "dxlibcel.hsp"
screen 0
buffer 1
gsel 1

上記のようにバッファをgselで指定するとエラー3

#include "dxlibcel.hsp"
screen 0
celload "test.png"//黒(RGB0,0,0)を含んだ画像
picid = stat
gsel 0
redraw 0
gmode 2
celput picid2
redraw 1

gmode 2で黒色が透過されない(gmode 4も同様)
具体例としてはこの２点があります

#include "dxlibcel.hsp"
screen 0    ;置き換えマクロにより、DxLibの初期化等々を行うように。
buffer 1    ;置き換えマクロにより、DxLibシステム内にバッファ1番が作られる。
gsel 1      ;置き換え結果、実際にgsel@hsp 1が呼ばれる。
            ;hspのシステムにとってのバッファ1は生成されていないためエラー(3)。

ってことじゃあないですかね。

_dxlibcelScreenSelの中のgsel@hspは妥当でしょうか？

中を見る限りDxLibの描画命令の描画先の切り替えを行っていますが、
このモジュールをまともに使う限りHSPシステム管轄下のウィンドウは0番しか存在できないように見えます。

では0番以外ではgsel@hspを実行しないようにすればいいのか。
それで済むかどうかは運用方法次第です。HSPの持つ仕様に合致の意味ではアウトでしょうけど。

とりあえずエラーをでなくするならgsel@hspをif p1==0の中に放り込んでみればいいかと。
そのあと待っているのが大規模な描画乱れか、正常動作かは(置き換え対象の)コード次第。

>>堀木さん
ありがとうございます！
おかげさまでgselに関しては正常に動作してくれました
gmodeに関しては、自分の知識ではコードは問題ないように見えますが
何故か実行すると 2と4だけ動作しません、、