HSPTV!掲示板

こんにちは　ASUTONICです。

#include "hgimg.as"



xs=800 :ys=600
screen 0,xs,ys,0,dispx-xs/2,dispy/2

hgini



setsizef 256.0f,256.0f
setuv 0,0,255,255
addmesh mdp1,32,32
texload "W_map01.bmp"



setsizef 8.0f,8.0f
setuv 0,0,127,127
addbox mdbx
texload "fleur02_bk.bmp"



sdim map,1024
repeat 1024
poke map,cnt,0
loop



regobj obp1,mdpl
selang obp :objset1r 0,192
selpos obp :objset3 4,0,4



randomize
repeat 48
regobj obbx,mdbx
rnd x,32 :rnd z,32
selpos obbx
objset3 x-16*8+4,-4,z-16*8+4
poke map,32*z+x,1
loop



selcang :objset1r 1,128
selcpos :objset3 0,-6,0

gsel 0,1
*main
stick ky,255

selcang :objgetfv an

if ky&4 : fsub an.1,0.02f
if ky&1 : fadd an.1,0.02f

objsetfv an

fadd an.1,3.14f
fvmul an,-1.0f,-1.0f,-1.0f

selcpos :objgetfv po

if ky&2 { fvdir an,0.0f,0.0f,0.4f
fvadd po,an.0,an.1,an.2
}
if ky&8 { fvdir an,0.0f,0.0f,-0.2f
fvadd po,an.0,an.1,an.2
}

fvmax po,128.0f,8.0f,128.0f
fvmin po,-128.0f,-8.0f,-128.0f



f2i ip,po.0,po.1,po.2
x=ip.0/8+16 :z=ip.2/8+16
peek a,map,32*z+x

if a=0 :selcpos :objsetfv po

hgdraw
hgsync 13

if ky!128 :goto *main

hgbye

このようなプログラムを作ったのですが
実行すると

#Error 18 in line 41 (hsptmp)
-->代入できない変数名を指定しています

という表示が出来て実行できません。
どこもプログラムは間違っていないのですが･･･
何故でしょうか？教えてください。

せめてすぐ下のスレくらい見るようにしてください。
原因はpeekです。

> 原因はpeekです。

と、rndも関数です。
(他にもあるかも)

あと、スクリプトなどは整形のために<PRE>〜</PRE>(実際には小文字)で囲んでください。

新規書き込みのときの題名のメッセージボックスのすぐ下も見ましょう。

せめてタイトルも「教えてください」は避けたほうがいいと思いますよ。
peek や rnd をみてると、どうもＨＳＰ３の書式には見えませんね。
ヒント：xxx(xx)