う・・・その下が透けてる子ウィンドウや処理たちは自作モジュールです。
a2d+AlphaLayer/mod_TimerRepeat モジュール
http://suwa.pupu.jp/HSP/index.html
そして・・・すみません！今ちょっと時間が無くなってしまいまして！
取り急ぎ見た目で分かりそうな情報だけ書いていきます。
（また後で捕捉したいと思います。。。）
だいたいこんな感じでくるくる部分は使ってました。
// ★ netincludeという自作モジュールで、GitHubに置いてあるモジュールを取得しに行く処理が入ってます。
// 実行したときのカレントディレクトリに保存されますが、
// もしそういった動作が嫌な場合は上記リンク先からモジュールをダウンロードして通常の#includeに書き換えてください。
#ifdef _debug
#include "hspinet.as"
#include "mod_regexp.as"
#define netinclude(%1,%2=_) addition %1* %2
exist"hsptmp":if strsize>0{t@_@="":d@_@=dir_exe+"\\common\\":notesel t@_@:noteload"hsptmp":noteunsel:matches t@_@,t@_@,"#netinclude\\s*\"(.+?)\"\\s*/\\s*,*\\s*(\\w*)":repeat stat:r@_@="":if t@_@.cnt.2="common"{r@_@=d@_@}exist r@_@+t@_@.cnt.1:t@_@.cnt="0":if strsize<0{if r@_@!d@_@{t@_@.cnt="1":n@_@++}else{t@_@.cnt="2":m@_@++}}loop:if n@_@+m@_@>0{a@_@=dir_cur+"\\\n\nに\n\n":repeat 2,1:if n@_@=0&cnt=1{continue}if m@_@>0&cnt=2{if n@_@!0{a@_@+="\nをダウンロード、\n------\n\n"}else{a@_@=""}a@_@+=d@_@+"\n\nに\n\n"}r@_@=""+cnt:foreach t@_@:if t@_@.cnt!r@_@{continue}a@_@+="・"+t@_@.cnt.1+"\n":loop:loop:dialog a@_@+"\nをダウンロードします",2,"#net\include":if stat=6{netinit:foreach t@_@:if t@_@.cnt="0"{continue}c@_@=dir_cur:if t@_@.cnt="2"{chdir d@_@}split t@_@.cnt.1,"/",r@_@:if stat>0{repeat stat-1:dirlist a@_@,r@_@.cnt,5:if stat=0{mkdir r@_@.cnt}chdir r@_@.cnt:loop}neturl "https://raw.githubusercontent.com/"+getpath(t@_@.cnt.1,32):netload getpath(t@_@.cnt.1,8):chdir c@_@:loop:dialog"再実行して下さい":end}}sdim t@_@}
#else
#define netinclude(%1,%2=_) include %1
#endif
//↑netincludeモジュール
// GitHubからモジュールをダウンロード。
#netinclude "MIZUSHIKI/HSP-Module/master/a2d+AlphaLayer.hsp"/
#netinclude "MIZUSHIKI/HSP-Module/master/mod_TimerRepeat.hsp"/
screen 0, 280,480
//アルファレイヤー子ウィンドウ張り付け
alCreateImage 0, 180,80
alFont "Times New Roman", 40 ; フォントを設定
alalSetParent 0,,, 50,220 ; ID-0(描画先ウィンドウ)に張り付け
//timer_repeat内は一度素通りして、後から勝手に呼び出されます。詳しくはマニュアルを参照ください。
timer_repeat 16
alErase : alColor 200,200,255, 200 : alFillRect
alColor 200,0,0, 100
alFillPie 15,15, 50,50, (timer_cnt*5)\360-90, (timer_cnt*5)\720-360 +30// 加速感(...?)
alColor 50,50,200, 255
alDrawText ""+timer_cnt/10+"%",70,0,110,80,1,1
alalRedraw 0
timer_loop
//適当な処理で動く背景
buffer 1,560,480 : picload dir_tv+"\\pronama.png",1 : pos 280 : picload dir_tv+"\\pronama.png",1
gsel 0 : gmode 0, 560,480
repeat
pos (cnt*4)\280-280,0 : gcopy 1
await 16
loop
stop
HSPでローディングの作成
