HSPでＲＰＧ

[過去ﾛｸﾞ] HSPでＲＰＧ (335ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

271: 名前は開発中のものです。 [] 2007/03/13(火) 06:16:11 ID:K8oTsumj

>>269
#define gs(%1,%2,%3,%4=',') getstr %1,%2,%3,%4:%3+strsize
#module
//IDに合わせた要素に文字列データを入れていく
//p1=ID順に入る変数名 p2=元の文字列データ statに一番大きいIDが入る
#deffunc setlst array list,str temp,local maxid,local _temp
_temp=temp:sdim list :notesel _temp
repeat noteinfo(0)
noteget n,cnt
getstr id,n,0,','
list(int(id))=strmid(n,strsize,strlen(n))
if int(id)>maxid {maxid=int(id)}
loop
noteunsel
return maxid
#global
load="10,ポーション,100,5,回復(小)\\雑魚が良く落とす\n15,回復剤,200,10,回復(大)\n"
load+"20,解毒剤,320,30,毒消し\\たまに効かない\n100,短剣,2000,100,80,5,5,武器\\一番弱い武器"
setlst item,load:itemmax=stat+1 ;使われてる要素の数はID+1になる
load="1,スライム,10,3,5,10,10,10,15\n10,レッドスライム,15,10,20,15,15\n50,モンスター,25,30,120,20"
setlst mons,load:monsmax=stat+1
load="1,名無しA,5,100,30,5000,12345\n5,ななしB,10,300,200,10000,23456"
setlst play,load:playmax=stat+1
//プレーヤーIDに対応した所持アイテムリストIDが使われる
load="1,3,100,1,10,3,20,5\n5,4,15,1,10,10,20,5,100,2" ;所持アイテムリストID,種類数,アイテムID,個数,・・・
setlst pitem,load:pitemax=stat+1
mess="モンスター名","HP","MP","EXP","所持item1","所持item2","所持item3","所持item4"
pmess="名前","レベル","HP","MP","所持金","EXP","所持アイテム種類数","個","アイテム個数"
imess="名前","値段","重さ","説明","名前","値段","重さ","攻撃力","防御力","魔力","説明"
>272 に続く・・・

http://mevius.5ch.net/test/read.cgi/gamedev/1082902759/271

272: 271 [] 2007/03/13(火) 06:19:51 ID:K8oTsumj

>271 からの続き
repeat playmax:
temp=play(cnt):if temp="" {continue } ;存在しないIDは飛ばす
mes "プレーヤーID: "+cnt:index=0
repeat 6
gs p,temp,index:mes pmess(cnt)+": "+p ;プレーヤーステータス表示
loop
index=0 :pi=pitem(cnt) :gs i,pi,index :mes pmess(6)+": "+i ;所持品の種類
repeat int(i),7:
gs i,pi,index :gs is,pi,index ;アイテムIDと所持数
itemstr=item(int(i)) :getstr n,itemstr,0,',' ;アイテムIDからアイテムデータ取り出し
y=ginfo(23) :button gosub n,*item_mes :butid(stat)=int(i)
pos 70,y:mes is+pmess(7):pos 0,y+24:loop:mes:loop:
pos 300,0:
repeat monsmax
:m=mons(cnt):if m="" {continue }:
index=0:mes "モンスターID: "+cnt:
repeat 4:gs d,m,index:mes mess(cnt)+": "+d:loop ;モンスターデータ表示
repeat 4,4:gs d,m,index:s=stat:itemstr=item(int(d)):getstr n,itemstr,0,',' ;モンスターデータからアイテム名を収得
mes mess(cnt)+": "+n:if s!',' {break}:loop:mes:loop:stop ; , が無かったら所持アイテム終わり
*item_mes:
iid=butid(stat) :a=item(iid)
c=0:screen 1,200,96+(iid>=100)*100,8+16,300,300:cls 1
repeat 4+(iid>=100)*3,(iid>=100)*4 ;ID100以上は装備品として扱う
gs b,a,c :cc=0:bb=""
repeat:gs d,b,cc,'\\' ; "\\" これを改行として文字列操作
if stat!'\\'{bb+d:break}
bb+d+"\n"
loop
if imess(cnt)="名前"{title imess(cnt)+": "+bb}else{mes imess(cnt)+": "+bb}
loop:gsel 0:return

http://mevius.5ch.net/test/read.cgi/gamedev/1082902759/272

275: 名前は開発中のものです。 [] 2007/03/14(水) 02:09:15 ID:pkgaAWGt

>>274 ゲーム中に変化があるのは整数型でデータを持ってた方が扱いやすいと思う
#define PLAYMAX 10
#enum PLAY1=0
#enum PLAY2
#enum playNAME=0
#enum playLEVEL=6
#enum playHP
#enum playMP
#enum playEN
#enum playEX
#enum playTEMP
#enum playtempEND=playTEMP+10
#enum playEND
#enum playITEM
#enum playitemEND=playITEM+20
#enum playdatEND
pmess="名前","レベル","HP","MP","所持金","EXP","所持アイテム種類数","個","アイテム個数"
load="10,ポーション,100,5,回復(小)\\雑魚が良く落とす\n15,回復剤,200,10,回復(大)\n"
load+"20,解毒剤,320,30,毒消し\\たまに効かない\n100,短剣,2000,100,80,5,5,武器\\一番弱い武器"
setlst item,load:itemmax=stat+1:dim play,playdatEND,PLAYMAX:n="名無しA":
memcpy play,n,strlen(n),playdatEND*4*PLAY1,0:play(playLEVEL,PLAY1)=5,100,30,5000,12345
play(playITEM,PLAY1)=100,1,10,3,20,5:n="ななしB":memcpy play,n,strlen(n),playdatEND*4*PLAY2,0
play(playLEVEL,PLAY2)=10,300,200,10000,23456:play(playITEM,PLAY2)=15,1,10,10,20,5,100,2
repeat playmax:if play(0,cnt)=0 {continue } ;存在しないIDは飛ばす
pid=cnt:mes "プレーヤーID: "+pid :sdim n,5*20:memcpy n,play,20,0,(playdatEND*4)*pid
mes pmess(0)+": "+n:repeat playTEMP-playLEVEL:mes pmess(cnt+1)+": "+play(cnt+playLEVEL,pid) :loop:b=""
repeat :if play(playITEM+cnt*2,pid)=0{icnt=cnt:break}
i=play(playITEM+cnt*2,pid):is=play(playITEM+cnt*2+1,pid) ;アイテムIDと所持数
itemstr=item(i) :getstr n,itemstr,0,',' ;アイテムIDからアイテムデータ取り出し
b+n+" "+is+pmess(7)+"\n":loop:mes pmess(6)+": "+icnt:mes b:loop:stop
↑271のモジュールを使うのが前提

http://mevius.5ch.net/test/read.cgi/gamedev/1082902759/275

334: 名前は開発中のものです。 [] 2016/11/20(日) 15:52:51.06 ID:Zr00I/Qf

,彳;;;;;;;;;;;;;;;;;;;;;;;;;;､
　　　　　　　　　　　／;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,ヽ　　　　　涙が　あとからあとから　あふれ出て
　　　　　　　　　　/;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;t､　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　 ,';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;z　　　　止めることができなく　なる
　　　　　　　　　!;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;i
　　　　　　　　　|''';;;;;;;;;;;;;'''"　　,;;;;;;;;;;;;;;;;;;;;f ﾆ;､　　　　マヨーレマヨーレ！
　　　　　　　　 {丁 　"'' _　　　　,;;;;;;;;;;;;;;;;;//万 !
　　　　　　　　 ! .i厂＼(　＼　　　　　　　六夂　i、＿＿　　　　　　　　　 http://goo.gl/kY6CYb
　　　　　　　　 ! .{.＼　＼　 ＼　　　　　,'　! ‐ ´　　　　　￣￣　Zz､
　　　　　　　　 i　>､ ヽ　　＼　 ＼　　　|　 |　　　　　　　　　　　　　　＼
　　　　　　　　.|　＼＼＼　　 ヽ　　ー＝　 !　　　　　　　　　　　　　　　 .＼
　　　　　　　　 !　　 ＼＼＼　､,.　｀'　　　　 |　　　　　　　　　　　　　　　　　ヽ
　　　　　　　　　}　　 ≧!　､,,.　　　　　　　　 !　　　　　　　　　　　　　　　　　　!
　　　　　　　　ノ　　　　.',　　　　　　　　　　 |　　　　　　　　　　　　　　　　　　|
　　　　　　.／　　　　　八　　　　　　　　　　',　　　　　　　　　　　　　　　　　　!
　　　　 ／　　　　　 ./　　.>‐､　　　　　　　.∧　　　　　　　　:;　　　　　　　　 .!
　　 .／　　　　　　 /　　 /　ヽ ＼　　　　　　∧　　　　　　　 !:　　　　　　　　ﾊ
　／　　　　　　　 /　 .／　　　',　 ヽ　　　　　.∧　　　　　　/　　　　　　　　ﾉ i
　　　　　　　　　/　／　　　　　 ,　　',　　　　　 ∧　　　　　 !　　　　　　　　'　 !
　　　　　　　 ／／　　　　　　　 !　　∨　　　　　∧　　　　,'　　　　　　　　 i　 .!
　　　　　 ／ ／　　　　　　　　 ｾ､　　∨　　　　　∧　　　!　　　　　　　　　!　 .|
　　　　／z ´　　　　　　　　　　　 .＼　∨　　　　　　＼　_|　　　　　　　　 .'　 .|

http://mevius.5ch.net/test/read.cgi/gamedev/1082902759/334

上下前次 1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.996s*