>>232 内部では以下のように処理されています。 flt :dbId=0 if cGod(pc)=godMachine : dbId=674 if cGod(pc)=godWind : dbId=673 if cGod(pc)=godElement : dbId=676 if cGod(pc)=godLuck : dbId=678 if cGod(pc)=godEarth : dbId=679 if cGod(pc)=godHeal : dbId=677 if cGod(pc)=godHarvest: dbId=675 if cGod(pc)=godWealth: dbId=796 if itemMemory(1,dbId): dbId=idTreasureMap item_create -1,dbId,cX(pc),cY(pc):txtQuestItem
HspError 7 WinError 0 Ver 2120 Mode 0 efId 0 efP 0 Area 304/1 ci 0#705 ti 0#705 cc 0#0 tc 0#0 rc 0#0 3. fixOnMapEnter ct:0 2. Map:Init world ct:0 1. Map:Continue ct:0 0. god text ct:0 * error in function:itemName:#24 * error in function:screen_draw:5
#module #defcfunc rpMatName int id s="" if rpMat(id)<extRf{ s=iOriginalNameRef@(rpMat(id)) }else{ if rpMat(id)<extFlt:s=rfName@(rpMat(id)):else:s=fltName(rpMat(id)) }
if rpMatExt(id)=0:return s
if rpMatExt(id)>=rpExtSubName{ p=rpMatExt(id)\rpExtSubName if (p<0)or(p>=maxDb):s+="/bugged/":return s s=cnOrgName(p)+lang("の死体"," corpse") return s } return s #global
#module #deffunc blendCheckExt int ci,int rp if rpMatExt(rp)>=rpExtSubName{ p=rpMatExt(rp)\rpExtSubName if (p<0)or(p>=maxDb):return false if iSubName(ci)=p:return true:else:return false } return false #global
#module
#defcfunc rpSuccessRate int p if p=100:return lang("もう完璧！" ,"Perfect!") if p>=90:return lang("朝飯前！" ,"A piece of cake!") 中略 if p>=20:return lang("まず無理" ,"Almost impossible") return lang("絶対ムリ！","Impossible!") #global
#module #defcfunc blendCheckMat int rpId rpId@=rpId repeat 10 if rpMat(cnt)=0:break f=false:step=cnt:id=rpMat(cnt):rp=cnt repeat 2 if cnt=0 : o=-1 if cnt=1 : o=pc inv_getHeader o repeat invRange@,invHead@ if iNum(cnt)<=0 :continue if (rpType>0)and(step=0):else:if iProperty(cnt)>propNone:continue if cnt>=rangeInv2:continue if iEquip(cnt)!false:continue if o=-1 : if dist(iX(cnt),iY(cnt),cX(pc),cY(pc))>rpRadius:continue if rpMatExt(rp):blendCheckExt cnt,rp:if stat=false:continue if id<extRf{ if iId(cnt)=id:f=true:break continue } if id<extFlt{ if (instr(rfFilter_item@(iId(cnt)),0,"/"+rfId(id)+"/")!=-1)or(id=rfAny):f=true:break continue } if iType(cnt)=id:f=true:break loop if f=true:break loop if f=false:break loop
#module #deffunc blendMatNum int id,int step m=0 repeat 2 if cnt=0 : o=-1 if cnt=1 : o=pc inv_getHeader o repeat invRange@,invHead@ if iNum(cnt)<=0 :continue if (rpType>0)and(step=0):else:if iProperty(cnt)>propNone:continue if cnt>=rangeInv2:continue if iEquip(cnt)!false:continue if o=-1 : if dist(iX(cnt),iY(cnt),cX(pc),cY(pc))>rpRadius:continue if rpMatExt(step):blendCheckExt cnt,step:if stat=false:continue if id<extRf{ if iId(cnt)=id:m+=iNum(cnt) continue } if id<extFlt{ if (instr(rfFilter_item@(iId(cnt)),0,"/"+rfId(id)+"/")!=-1)or(id=rfAny):m+=iNum(cnt) continue } if iType(cnt)=id:m+=iNum(cnt):continue loop loop return m #global
#module #deffunc blendList array list, int rp id=rpMat(rp) m=0 repeat 2 if cnt=0 : o=-1 if cnt=1 : o=pc inv_getHeader o repeat invRange@,invHead@ if m>=maxList :break if iNum(cnt)<=0 :continue if (rpType>0)and(step@=0):else:if iProperty(cnt)>propNone:continue if cnt>=rangeInv2:continue if iEquip(cnt)!false:continue if o=-1 : if dist(iX(cnt),iY(cnt),cX(pc),cY(pc))>rpRadius:continue refType=iType(cnt) if rpMatExt(rp):blendCheckExt cnt,rp:if stat=false:continue if id<extRf{ if iId(cnt)!=id:continue }else{ if id<extFlt{ if (instr(rfFilter_item@(iId(cnt)),0,"/"+rfId(id)+"/")=-1)and(id!rfAny):continue }else{ if refType!=id:continue } } if step@>0{ f=cnt repeat step@ if rpRefMat(cnt)=f:f=-999:break loop if f=-999:continue }
list(0,m)=cnt,refType*1000+iId(cnt):m++ loop loop return m
; pos x+30+xFix,y+h-47-h\8:gcopy selInf,96,360,24,16 color 194,170,146:line x+50+xFix,y+h-48-h\8,x+w-40,y+h-48-h\8 color 234,220,188:line x+50+xFix,y+h-49-h\8,x+w-40,y+h-49-h\8
s="Page."+(rpPage@+1)+"/"+(rpPage@(1)+1),""+key_prev@+","+key_next@+""+lang("[ページ切替] ","[Page] ") if step@=-1:s(1)+=strHint3@:else:s(1)+=strHint3b@ fontSize 12+sizeFix@,0:color 0,0,0:pos x+25+xFix,y+h-43-h\8:mes s(1) fontSize 12+sizeFix@,1:color 0,0,0 pos x+w-strlen(s)*7-40-xFix2,y+h-65-h\8:mes s
i=1:stepMark if step@=-1{ pos dx,dy:mes ""+i+"."+lang("レシピを選ぶ","Choose a recipe") }else{ pos dx,dy:mes ""+i+"."+lang(rpName(rpId@)+"のレシピを選んだ","Chose the recipe of "+rpName(rpId@)) } dy+=17:i++
repeat 10 if rpMat(cnt)=0:break stepMark if step@<=cnt{ blendMatNum rpMat(cnt),cnt:p=stat s=lang(rpMatName(cnt)+"を加える","Add "+rpMatName(cnt)+"")+"("+lang("所持:","Stock:")+p+")" }else{ s=lang("","Selected ")+itemName(rpRefMat(cnt))+lang("を選んだ","") s=strmid(s,0,44)
if iKnown(ci)<knownQuality{ addMes lang("このアイテムは鑑定されていない。","You haven't identified it yet.") return } getInheritance ci,inhList,p if p>0{ repeat p cnt2=inhList(cnt) if iEnc(cnt2,ci)=0:break val@=iEnc(cnt2,ci),iEncP(cnt2,ci),0,iType(ci):gosub *item_EncDetail@ color 0,0,100 if iEncP(cnt2,ci)<0:color 180,0,0 addMes cnvEn(s@) loop }else{ addMes lang("継承効果なし","No inheritance effects"):p++ } color 0,0,0 return
-- 参考 #define global ctype iSubName(%1) inv@(23,%1) #define global ctype cnOrgName(%1) refChara(%1,cOrgNameRef,1) #defcfunc refChara int a, int b, int c 〜略〜 -- 参考
s += lang(strNull@, " of ") + cnOrgName(iSubName(id)) + lang("の", strNull@)