■マップ表示スクリプト■

ＬＱＨ用のマップを表示するスクリプトです。
データ形式が同じものならば流用可能です。
　
＜推奨環境＞

日本語Ｗｉｎｄｏｗｓ９５/９８/Ｍｅ/ＮＴ3.51以降
画面モード 16bit TrueColor以上

ＨＳＰ　Ｖｅｒ.2.55
（これ以前のＶｅｒがインストールされている環境では、
設定（関連付け等）如何で正常に動作しない可能性があります。
ＨＳＰをインストールされていない方は問題ない筈です）

＜動作検証＞

日本語Wｉｎｄｏｗｓ９８
Ｃｅｌｅｒｏｎ500ＭＨｚ
メモリ64ＭＢ
ＰＣＭ音源，ＸＧＩ音源
画面モード32ｂｉｔ　TrueColor

（mapdraw.lzh/78.6KB）

 　
■システム■
　
■ソース■
改変可です
　
■こぼれ話■
　
■ＴＯＰ■
■ＢＡＣＫ■
　
　


■システム■
　・画像データ（１チップ24*24の画像サイズ144*144ＢＭＰ）とＤＡＴデータを読み込み表示
　・一度に画面に表示されるのは60*60チップサイズまで
　・カーソルを当てる事で座標表示がされます
　・マップの全体像を見たい時、キャラの配置位置を確認したい時にでも使用して下さい
　・ＩＦ構文で文字列参照を行っている為、画像表示に時間がかかります
▲


■ソース■
; *************************************************************
; マップ表示スクリプト
; *************************************************************

#include "llmod.as"
#include "obj.as"

onclick *check
onclick 0
*sta
screen 0,,,2
screen 4,,,2

dialog "bmp",16,"bmp":if stat!1:end
buffer 2,,,0:picload refstr
x=winx:y=winy
screen 0,x,y,,0,0:gmode 0:gcopy 2,0,0,x,y

notesel mapd

dialog "dat",16,"dat":if stat!1:end
noteload refstr:notemax a

noteget s,0
notedel 0
getstr cx,s,0,','
getstr cy,s,strsize
int cx:int cy

screen 4,12*cx,12*cy,8,150,0,720,720
title ""

sdim map,32000,cy
repeat cy
sdim s,300:sdim ss,300
noteget s,cnt
strmid ss,s,1,cx
map.cnt=ss
loop

gsel 4

nx=0
ny=0

repeat cy
repeat cx
mx=0:my=0
strmid s,map.ny,nx,1
if (s="1")|(s="7")|(s="d")|(s="j")|(s="p")|(s="v"):mx=1
if (s="2")|(s="8")|(s="e")|(s="k")|(s="q")|(s="w"):mx=2
if (s="3")|(s="9")|(s="f")|(s="l")|(s="r")|(s="x"):mx=3
if (s="4")|(s="a")|(s="g")|(s="m")|(s="s")|(s="y"):mx=4
if (s="5")|(s="b")|(s="h")|(s="n")|(s="t")|(s="z"):mx=5

if (s="6")|(s="7")|(s="8")|(s="9")|(s="a")|(s="b"):my=1
if (s="c")|(s="d")|(s="e")|(s="f")|(s="g")|(s="h"):my=2
if (s="i")|(s="j")|(s="k")|(s="l")|(s="m")|(s="n"):my=3
if (s="o")|(s="p")|(s="q")|(s="r")|(s="s")|(s="t"):my=4
if (s="u")|(s="v")|(s="w")|(s="x")|(s="y")|(s="z"):my=5
pos nx*12,ny*12
gzoom 12,12,2,mx*24,my*24,24,24
nx++
await 1
loop
ny++:nx=0
await 1
loop
onclick 1
*moup
ginfo 0
dim win,2
win=prmx,prmy
p_scrwnd win
x=win.0
y=win.1
x=x/12:y=y/12
title "座標＝ "+x+":"+""y
wait 1
goto *moup
stop
*check
if iparam=0{onclick 0:goto *sta}
else{goto *ed}
*ed
end
▲


■こぼれ話■
　気力が続けば色々と機能を追加したり、処理スピードを上げたりしたのでしょうが･･･

　まあ早い話、私の興味がＬＱＨからそれてしまったので（失礼）これで終了です。
　ソースそのものを公開しているので皆さんで使いやすいようにカスタムして下さい。
　つーかこんなへぼいスクリプトいらんがな。

　ＨＳＰ自体も面白いは面白いのですが、どうにも興味が薄れてきたというか･･･
　ちょっとしたエロゲ作るのには（それかよ）もってこいなんですけどね。
　エロ可のツールってあまりないですからね。
　DreamＧａｍｅは更にｑｕｉｃｋｔｉｍｅをインスコして貰わないといけないですし･･･
　それは流石に申し訳ないですものねぇ。
▲


【ＭＡＰ表示スクリプト】
2003/06