HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2006
0825
ASUTONIC教えてください5未解決


ASUTONIC

リンク

2006/8/25(Fri) 15:20:18|NO.2140

こんにちは 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)
-->代入できない変数名を指定しています

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



この記事に返信する


Irisawa

リンク

2006/8/25(Fri) 15:52:40|NO.2142

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



Irisawa

リンク

2006/8/25(Fri) 15:53:51|NO.2143

> 原因はpeekです。

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



Irisawa

リンク

2006/8/25(Fri) 15:55:04|NO.2144

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



RuthlessDragon

リンク

2006/8/25(Fri) 20:32:45|NO.2146

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



headed

リンク

2006/8/26(Sat) 02:42:31|NO.2155

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



ONION software Copyright 1997-2021(c) All rights reserved.