开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 游戏引擎 > 查看源码
resources.cpp
资源名称：hge181.rar　[点击查看]
上传用户：jnfxsk
上传日期：2022-06-16
资源大小：3675k
文件大小：23k
源码类别：

游戏引擎

开发平台：

Visual C++

resources.cpp：源码内容
  1. /*
  2. ** Haaf's Game Engine 1.7
  3. ** Copyright (C) 2003-2007, Relish Games
  4. ** hge.relishgames.com
  5. **
  6. ** hgeResourceManager resources implementation
  7. */
  10. #include "....includehgeresource.h"
  11. #include "parser.h"
  12. #include "resources.h"
  15. HGE *ResDesc::hge=0;
  18. /////////////// COMMON //
  20. void AddRes(hgeResourceManager *rm, int type, ResDesc *resource)
  21. {
  22. resource->next=rm->res[type];
  23. rm->res[type]=resource;
  24. }
  26. ResDesc *FindRes(hgeResourceManager *rm, int type, const char *name)
  27. {
  28. ResDesc *rc;
  30. rc=rm->res[type];
  31. while(rc)
  32. {
  33. if(!strcmp(name, rc->name)) return rc;
  34. rc=rc->next;
  35. }
  37. return 0;
  38. }
  40. bool ScriptSkipToNextParameter(RScriptParser *sp, bool bIgnore)
  41. {
  42. bool bToBeIgnored=bIgnore;
  43. if(bIgnore) sp->put_back();
  45. for(;;)
  46. {
  47. sp->get_token();
  48. if(sp->tokentype == TTCLOSEBLOCK) { if(bIgnore) {sp->put_back(); return true;} return false; }
  49. if((sp->tokentype > TTRES__FIRST && sp->tokentype < TTRES__LAST)  || sp->tokentype == TTEND)
  50. {
  51. sp->put_back(); 
  52. if(bIgnore) return true;
  53. sp->ScriptPostError("'}' missed, "," encountered.");
  54. return false;
  55. }
  56. if((sp->tokentype <= TTPAR__FIRST && sp->tokentype >= TTPAR__LAST) || bToBeIgnored)
  57. {
  58. bToBeIgnored=false;
  59. sp->ScriptPostError("Unsupported resource parameter ",".");
  60. do sp->get_token();
  61. while((sp->tokentype <= TTPAR__FIRST || sp->tokentype >= TTPAR__LAST) &&
  62.   (sp->tokentype <= TTRES__FIRST || sp->tokentype >= TTRES__LAST) &&
  63.    sp->tokentype != TTCLOSEBLOCK && sp->tokentype != TTEND);
  64. sp->put_back();
  65. }
  66. else
  67. {
  68. if(bIgnore) sp->put_back();
  69. return true;
  70. }
  71. }
  72. }
  74. void ScriptParseFileResource(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename, ResDesc *rr, int restype)
  75. {
  76. RResource *rc=(RResource *)rr, *base;
  78. base = (RResource *)FindRes(rm, restype, basename);
  79. if(base) *rc=*base; else
  80. {
  81. rc->resgroup=0;
  82. rc->filename[0]=0;
  83. }
  84. rc->handle=0; strcpy(rc->name, name);
  86. while(ScriptSkipToNextParameter(sp,false))
  87. {
  88. switch(sp->tokentype)
  89. {
  90. case TTPAR_FILENAME:
  91. sp->get_token(); sp->get_token();
  92. strcpy(rc->filename, sp->tkn_string());
  93. break;
  95. case TTPAR_RESGROUP:
  96. sp->get_token(); sp->get_token();
  97. rc->resgroup=sp->tkn_int();
  98. break;
  100. default:
  101. ScriptSkipToNextParameter(sp,true);
  102. break;
  103. }
  104. }
  106. AddRes(rm, restype, rc);
  107. }
  109. void ScriptParseBlendMode(RScriptParser *sp, int *blend)
  110. {
  111. for(;;)
  112. {
  113. sp->get_token();
  114. if(sp->tokentype != TTEQUALS && sp->tokentype != TTSEPARATOR) { sp->put_back(); return; }
  116. switch(sp->get_token())
  117. {
  118. case TTCON_COLORMUL:
  119. *blend &= ~BLEND_COLORADD;
  120. break;
  122. case TTCON_COLORADD:
  123. *blend |= BLEND_COLORADD;
  124. break;
  126. case TTCON_ALPHABLND:
  127. *blend |= BLEND_ALPHABLEND;
  128. break;
  130. case TTCON_ALPHAADD:
  131. *blend &= ~BLEND_ALPHABLEND;
  132. break;
  134. case TTCON_ZWRITE:
  135. *blend |= BLEND_ZWRITE;
  136. break;
  138. case TTCON_NOZWRITE:
  139. *blend &= ~BLEND_ZWRITE;
  140. break;
  142. default:
  143. sp->ScriptPostError("Unsupported value ",".");
  144. break;
  145. }
  146. }
  147. }
  149. void ScriptParseSpriteAnim(RScriptParser *sp, RSprite *rc, bool anim)
  150. {
  151. while(ScriptSkipToNextParameter(sp,false))
  152. {
  153. switch(sp->tokentype)
  154. {
  155. case TTPAR_TEXTURE:
  156. sp->get_token(); sp->get_token();
  157. strcpy(rc->texname,sp->tkn_string());
  158. break;
  160. case TTPAR_RECT:
  161. sp->get_token(); sp->get_token();
  162. rc->tx=sp->tkn_float();
  163. sp->get_token(); sp->get_token();
  164. rc->ty=sp->tkn_float();
  165. sp->get_token(); sp->get_token();
  166. rc->w=sp->tkn_float();
  167. sp->get_token(); sp->get_token();
  168. rc->h=sp->tkn_float();
  169. break;
  171. case TTPAR_HOTSPOT:
  172. sp->get_token(); sp->get_token();
  173. rc->hotx=sp->tkn_float();
  174. sp->get_token(); sp->get_token();
  175. rc->hoty=sp->tkn_float();
  176. break;
  178. case TTPAR_BLENDMODE:
  179. ScriptParseBlendMode(sp, &rc->blend);
  180. break;
  182. case TTPAR_COLOR:
  183. sp->get_token(); sp->get_token();
  184. rc->color=sp->tkn_hex();
  185. break;
  187. case TTPAR_ZORDER:
  188. sp->get_token(); sp->get_token();
  189. rc->z=sp->tkn_float();
  190. break;
  192. case TTPAR_FLIP:
  193. sp->get_token(); sp->get_token();
  194. rc->bXFlip=sp->tkn_bool();
  195. sp->get_token(); sp->get_token();
  196. rc->bYFlip=sp->tkn_bool();
  197. break;
  199. case TTPAR_RESGROUP:
  200. sp->get_token(); sp->get_token();
  201. rc->resgroup=sp->tkn_int();
  202. break;
  204. case TTPAR_FRAMES:
  205. if(anim)
  206. {
  207. sp->get_token(); sp->get_token();
  208. ((RAnimation *)rc)->frames=sp->tkn_int();
  209. break;
  210. }
  212. case TTPAR_FPS:
  213. if(anim)
  214. {
  215. sp->get_token(); sp->get_token();
  216. ((RAnimation *)rc)->fps=sp->tkn_float();
  217. break;
  218. }
  220. case TTPAR_MODE:
  221. if(anim)
  222. {
  223. for(;;)
  224. {
  225. sp->get_token();
  226. if(sp->tokentype != TTEQUALS && sp->tokentype != TTSEPARATOR) { sp->put_back(); break; }
  228. switch(sp->get_token())
  229. {
  230. case TTCON_FORWARD:
  231. ((RAnimation *)rc)->mode &= ~HGEANIM_REV;
  232. break;
  234. case TTCON_REVERSE:
  235. ((RAnimation *)rc)->mode |= HGEANIM_REV;
  236. break;
  238. case TTCON_NOPINGPONG:
  239. ((RAnimation *)rc)->mode &= ~HGEANIM_PINGPONG;
  240. break;
  242. case TTCON_PINGPONG:
  243. ((RAnimation *)rc)->mode |= HGEANIM_PINGPONG;
  244. break;
  246. case TTCON_NOLOOP:
  247. ((RAnimation *)rc)->mode &= ~HGEANIM_LOOP;
  248. break;
  250. case TTCON_LOOP:
  251. ((RAnimation *)rc)->mode |= HGEANIM_LOOP;
  252. break;
  254. default:
  255. sp->ScriptPostError("Unsupported value ",".");
  256. break;
  257. }
  258. }
  259. break;
  260. }
  262. default:
  263. ScriptSkipToNextParameter(sp,true);
  264. break;
  265. }
  266. }
  267. }
  270. /////////////// RScript //
  272. void RScript::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *sname, const char *sbasename)
  273. {
  274. RScriptParser *np;
  275. RScript *res_script;
  276. void *data;
  277. DWORD size;
  278. char *script, name[MAXRESCHARS], basename[MAXRESCHARS];
  279. int restype;
  281. if(!FindRes(rm, RES_SCRIPT, sname))
  282. {
  283. res_script = new RScript(); // hack! we need an instance of RScript to access hge
  284. // if all ok, this object is used later to keep the script
  286. data=hge->Resource_Load(sname, &size);
  287. if(!data)
  288. {
  289. if(sp) sp->ScriptPostError("Script "," not found.");
  290. else hge->System_Log("Script '%s' not found.",sname);
  291. delete res_script;
  292. return;
  293. }
  294. else
  295. {
  296. script= new char[size+1];
  297. memcpy(script, data, size);
  298. script[size]=0;
  299. hge->Resource_Free(data);
  301. strcpy(res_script->name, sname);
  302. AddRes(rm, RES_SCRIPT, res_script);
  303. np = new RScriptParser(res_script->name, script);
  305. for(;;)
  306. {
  307. np->get_token();
  308. if(np->tokentype == TTEND) break;
  310. else if(np->tokentype == TTRES_INCLUDE)
  311. {
  312. np->get_token();
  313. RScript::Parse(rm, np, np->tkn_string(), NULL);
  314. }
  316. else if(np->tokentype > TTRES__FIRST && np->tokentype < TTRES__LAST)
  317. {
  318. restype=np->tokentype-TTRES__FIRST-1;
  319. name[0]=basename[0]=0;
  321. np->get_token();
  322. if(FindRes(rm, restype, np->tkn_string()))
  323. {
  324. np->ScriptPostError("Resource "," of the same type already has been defined.");
  325. while((np->tokentype <= TTRES__FIRST || np->tokentype >= TTRES__LAST) && np->tokentype != TTEND) np->get_token();
  326. np->put_back();
  327. continue;
  328. }
  329. strcpy(name, np->tkn_string());
  331. np->get_token();
  333. if(np->tokentype == TTBASED)
  334. {
  335. np->get_token();
  336. if(!FindRes(rm, restype, np->tkn_string())) np->ScriptPostError("Base resource "," is not defined.");
  337. else strcpy(basename, np->tkn_string());
  338. np->get_token();
  339. }
  341. if(np->tokentype == TTOPENBLOCK)
  342. {
  343. switch(restype)
  344. {
  345. case RES_RESOURCE: RResource::Parse(rm, np, name, basename); break;
  346. case RES_TEXTURE: RTexture::Parse(rm, np, name, basename); break;
  347. case RES_EFFECT: REffect::Parse(rm, np, name, basename); break;
  348. case RES_MUSIC: RMusic::Parse(rm, np, name, basename); break;
  349. case RES_STREAM: RStream::Parse(rm, np, name, basename); break;
  350. case RES_TARGET: RTarget::Parse(rm, np, name, basename); break;
  351. case RES_SPRITE: RSprite::Parse(rm, np, name, basename); break;
  352. case RES_ANIMATION: RAnimation::Parse(rm, np, name, basename); break;
  353. case RES_FONT: RFont::Parse(rm, np, name, basename); break;
  354. case RES_PARTICLE: RParticle::Parse(rm, np, name, basename); break;
  355. case RES_DISTORT: RDistort::Parse(rm, np, name, basename); break;
  356. case RES_STRTABLE: RStringTable::Parse(rm, np, name, basename); break;
  357. }
  358. }
  359. else
  360. {
  361. np->ScriptPostError("Illegal resource syntax, "," found; '{' expected.");
  362. while((np->tokentype <= TTRES__FIRST || np->tokentype >= TTRES__LAST) && np->tokentype != TTEND) np->get_token();
  363. np->put_back();
  364. }
  365. }
  367. else
  368. {
  369. np->ScriptPostError("Unrecognized resource specificator ",".");
  370. while((np->tokentype <= TTRES__FIRST || np->tokentype >= TTRES__LAST) && np->tokentype != TTEND) np->get_token();
  371. np->put_back();
  372. }
  373. }
  375. delete np;
  376. delete[] script;
  377. }
  378. }
  379. else sp->ScriptPostError("Script "," already has been parsed.");
  380. }
  382. /////////////// RResource //
  384. void RResource::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  385. {
  386. ScriptParseFileResource(rm, sp, name, basename, new RResource(), RES_RESOURCE);
  387. }
  389. DWORD RResource::Get(hgeResourceManager *rm)
  390. {
  391. if(!handle) handle=(DWORD)hge->Resource_Load(filename);
  392. return handle;
  393. }
  395. void RResource::Free()
  396. {
  397. if(handle) hge->Resource_Free((void *)handle);
  398. handle=0;
  399. }
  401. /////////////// RTexture //
  403. void RTexture::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  404. {
  405. RTexture *rc, *base;
  407. rc=new RTexture();
  408. base = (RTexture *)FindRes(rm, RES_TEXTURE, basename);
  409. if(base) *rc=*base;
  410. else
  411. {
  412. rc->resgroup=0;
  413. rc->mipmap=false;
  414. }
  415. rc->handle=0; strcpy(rc->name, name);
  417. while(ScriptSkipToNextParameter(sp,false))
  418. {
  419. switch(sp->tokentype)
  420. {
  421. case TTPAR_FILENAME:
  422. sp->get_token(); sp->get_token();
  423. strcpy(rc->filename, sp->tkn_string());
  424. break;
  426. case TTPAR_RESGROUP:
  427. sp->get_token(); sp->get_token();
  428. rc->resgroup=sp->tkn_int();
  429. break;
  431. case TTPAR_MIPMAP:
  432. sp->get_token(); sp->get_token();
  433. rc->mipmap=sp->tkn_bool();
  434. break;
  436. default:
  437. ScriptSkipToNextParameter(sp,true);
  438. break;
  439. }
  440. }
  442. AddRes(rm, RES_TEXTURE, rc);
  443. }
  445. DWORD RTexture::Get(hgeResourceManager *rm)
  446. {
  447. if(!handle) handle=(DWORD)hge->Texture_Load(filename, 0, mipmap);
  448. return handle;
  449. }
  451. void RTexture::Free()
  452. {
  453. if(handle) hge->Texture_Free((HTEXTURE)handle);
  454. handle=0;
  455. }
  457. /////////////// REffect //
  459. void REffect::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  460. {
  461. ScriptParseFileResource(rm, sp, name, basename, new REffect(), RES_EFFECT);
  462. }
  464. DWORD REffect::Get(hgeResourceManager *rm)
  465. {
  466. if(!handle) handle=(DWORD)hge->Effect_Load(filename);
  467. return handle;
  468. }
  470. void REffect::Free()
  471. {
  472. if(handle) hge->Effect_Free((HEFFECT)handle);
  473. handle=0;
  474. }
  476. /////////////// RMusic //
  478. void RMusic::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  479. {
  480. // ScriptParseFileResource(rm, sp, name, basename, new RMusic(), RES_MUSIC);
  483. RMusic *rc, *base;
  485. rc=new RMusic();
  486. base = (RMusic *)FindRes(rm, RES_MUSIC, basename);
  488. if(base) *rc=*base;
  489. else
  490. {
  491. rc->resgroup=0;
  492. rc->amplify=50;
  493. }
  495. rc->handle=0; strcpy(rc->name, name);
  497. while(ScriptSkipToNextParameter(sp,false))
  498. {
  499. switch(sp->tokentype)
  500. {
  501. case TTPAR_FILENAME:
  502. sp->get_token(); sp->get_token();
  503. strcpy(rc->filename, sp->tkn_string());
  504. break;
  506. case TTPAR_RESGROUP:
  507. sp->get_token(); sp->get_token();
  508. rc->resgroup=sp->tkn_int();
  509. break;
  511. case TTPAR_AMPLIFY:
  512. sp->get_token(); sp->get_token();
  513. rc->amplify=sp->tkn_int();
  514. break;
  516. default:
  517. ScriptSkipToNextParameter(sp,true);
  518. break;
  519. }
  520. }
  522. AddRes(rm, RES_MUSIC, rc);
  523. }
  525. DWORD RMusic::Get(hgeResourceManager *rm)
  526. {
  527. if(!handle)
  528. {
  529. handle=(DWORD)hge->Music_Load(filename);
  530. hge->Music_SetAmplification(handle, amplify);
  531. }
  533. return handle;
  534. }
  536. void RMusic::Free()
  537. {
  538. if(handle) hge->Music_Free((HMUSIC)handle);
  539. handle=0;
  540. }
  542. /////////////// RStream //
  544. void RStream::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  545. {
  546. ScriptParseFileResource(rm, sp, name, basename, new RStream(), RES_STREAM);
  547. }
  549. DWORD RStream::Get(hgeResourceManager *rm)
  550. {
  551. if(!handle) handle=(DWORD)hge->Stream_Load(filename);
  552. return handle;
  553. }
  555. void RStream::Free()
  556. {
  557. if(handle) hge->Stream_Free((HSTREAM)handle);
  558. handle=0;
  559. }
  561. /////////////// RTarget //
  563. void RTarget::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  564. {
  565. RTarget *rc, *base;
  567. rc = new RTarget();
  568. base = (RTarget *)FindRes(rm, RES_TARGET, basename);
  569. if(base) *rc=*base;
  570. else
  571. {
  572. rc->resgroup=0;
  573. rc->width=256;
  574. rc->height=256;
  575. rc->zbuffer=false;
  576. }
  577. rc->handle=0; strcpy(rc->name, name);
  579. while(ScriptSkipToNextParameter(sp, false))
  580. {
  581. switch(sp->tokentype)
  582. {
  583. case TTPAR_SIZE:
  584. sp->get_token(); sp->get_token();
  585. rc->width=sp->tkn_int();
  586. sp->get_token();
  587. sp->get_token();
  588. rc->height=sp->tkn_int();
  589. break;
  591. case TTPAR_ZBUFFER:
  592. sp->get_token(); sp->get_token();
  593. rc->zbuffer=sp->tkn_bool();
  594. break;
  596. case TTPAR_RESGROUP:
  597. sp->get_token(); sp->get_token();
  598. rc->resgroup=sp->tkn_int();
  599. break;
  601. default:
  602. ScriptSkipToNextParameter(sp, true);
  603. break;
  604. }
  605. }
  607. AddRes(rm, RES_TARGET, rc);
  608. }
  610. DWORD RTarget::Get(hgeResourceManager *rm)
  611. {
  612. if(!handle) handle=(DWORD)hge->Target_Create(width, height, zbuffer);
  613. return handle;
  614. }
  616. void RTarget::Free()
  617. {
  618. if(handle) hge->Target_Free((HTARGET)handle);
  619. handle=0;
  620. }
  622. /////////////// RSprite //
  624. void RSprite::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  625. {
  626. RSprite *rc, *base;
  628. rc = new RSprite();
  629. base = (RSprite *)FindRes(rm, RES_SPRITE, basename);
  630. if(base) *rc=*base;
  631. else
  632. {
  633. rc->resgroup=0;
  634. rc->texname[0]=0;
  635. rc->tx=rc->ty=0;
  636. rc->w=rc->h=0;
  637. rc->hotx=rc->hoty=0;
  638. rc->blend=BLEND_COLORMUL | BLEND_ALPHABLEND | BLEND_NOZWRITE;
  639. rc->color=0xFFFFFFFF;
  640. rc->z=0.5f;
  641. rc->bXFlip=false;
  642. rc->bYFlip=false;
  643. // rc->x=rc->y=0;
  644. // rc->scale=1.0f;
  645. // rc->rotation=0.0f;
  646. // rc->collision=HGECOL_RECT;
  647. }
  649. rc->handle=0;
  650. strcpy(rc->name, name);
  652. ScriptParseSpriteAnim(sp, rc, false);
  653. AddRes(rm, RES_SPRITE, rc);
  654. }
  656. DWORD RSprite::Get(hgeResourceManager *rm)
  657. {
  658. hgeSprite *spr;
  659. if(!handle)
  660. {
  661. spr = new hgeSprite(rm->GetTexture(texname, resgroup), tx, ty, w, h);
  662. spr->SetColor(color);
  663. spr->SetZ(z);
  664. spr->SetBlendMode(blend);
  665. spr->SetHotSpot(hotx,hoty);
  666. spr->SetFlip(bXFlip, bYFlip);
  667. // spr->MoveTo(x,y);
  668. // spr->SetScale(scale);
  669. // spr->SetRotation(rotation);
  670. // spr->SetCollisionType(collision);
  672. handle=(DWORD)spr;
  673. }
  674. return handle;
  675. }
  677. void RSprite::Free()
  678. {
  679. if(handle) delete (hgeSprite *)handle;
  680. handle=0;
  681. }
  683. /////////////// RAnimation //
  685. void RAnimation::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  686. {
  687. RAnimation *rc, *base;
  689. rc = new RAnimation();
  690. base = (RAnimation *)FindRes(rm, RES_ANIMATION, basename);
  691. if(base) *rc=*base;
  692. else
  693. {
  694. rc->resgroup=0;
  695. rc->texname[0]=0;
  696. rc->tx=rc->ty=0;
  697. rc->w=rc->h=0;
  698. rc->hotx=rc->hoty=0;
  699. rc->blend=BLEND_COLORMUL | BLEND_ALPHABLEND | BLEND_NOZWRITE;
  700. rc->color=0xFFFFFFFF;
  701. rc->z=0.5f;
  702. rc->bXFlip=false;
  703. rc->bYFlip=false;
  704. // rc->x=rc->y=0;
  705. // rc->scale=1.0f;
  706. // rc->rotation=0.0f;
  707. // rc->collision=HGECOL_RECT;
  708. rc->frames=1;
  709. rc->fps=12.0f;
  710. rc->mode=HGEANIM_FWD | HGEANIM_LOOP;
  711. }
  713. rc->handle=0;
  714. strcpy(rc->name, name);
  716. ScriptParseSpriteAnim(sp, rc, true);
  717. AddRes(rm, RES_ANIMATION, rc);
  718. }
  720. DWORD RAnimation::Get(hgeResourceManager *rm)
  721. {
  722. hgeAnimation *spr;
  723. if(!handle)
  724. {
  725. spr = new hgeAnimation(rm->GetTexture(texname, resgroup), frames, fps, tx, ty, w, h);
  726. spr->SetColor(color);
  727. spr->SetZ(z);
  728. spr->SetBlendMode(blend);
  729. spr->SetHotSpot(hotx,hoty);
  730. spr->SetFlip(bXFlip, bYFlip);
  731. // spr->MoveTo(x,y);
  732. // spr->SetScale(scale);
  733. // spr->SetRotation(rotation);
  734. // spr->SetCollisionType(collision);
  735. spr->SetMode(mode);
  737. handle=(DWORD)spr;
  738. }
  739. return handle;
  740. }
  742. void RAnimation::Free()
  743. {
  744. if(handle) delete (hgeAnimation *)handle;
  745. handle=0;
  746. }
  748. /////////////// RFont //
  750. void RFont::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  751. {
  752. RFont *rc, *base;
  754. rc = new RFont();
  755. base = (RFont *)FindRes(rm, RES_FONT, basename);
  756. if(base) *rc=*base;
  757. else
  758. {
  759. rc->resgroup=0;
  760. rc->mipmap=false;
  761. rc->filename[0]=0;
  762. rc->blend=BLEND_COLORMUL | BLEND_ALPHABLEND | BLEND_NOZWRITE;
  763. rc->color=0xFFFFFFFF;
  764. rc->z=0.5f;
  765. rc->scale=1.0f;
  766. rc->proportion=1.0f;
  767. rc->tracking=0.0f;
  768. rc->spacing=1.0f;
  769. rc->rotation=0.0f;
  770. }
  771. rc->handle=0; strcpy(rc->name, name);
  773. while(ScriptSkipToNextParameter(sp,false))
  774. {
  775. switch(sp->tokentype)
  776. {
  777. case TTPAR_FILENAME:
  778. sp->get_token(); sp->get_token();
  779. strcpy(rc->filename, sp->tkn_string());
  780. break;
  782. case TTPAR_BLENDMODE:
  783. ScriptParseBlendMode(sp, &rc->blend);
  784. break;
  786. case TTPAR_COLOR:
  787. sp->get_token(); sp->get_token();
  788. rc->color=sp->tkn_hex();
  789. break;
  791. case TTPAR_ZORDER:
  792. sp->get_token(); sp->get_token();
  793. rc->z=sp->tkn_float();
  794. break;
  796. case TTPAR_SCALE:
  797. sp->get_token(); sp->get_token();
  798. rc->scale=sp->tkn_float();
  799. break;
  801. case TTPAR_PROPORTION:
  802. sp->get_token(); sp->get_token();
  803. rc->proportion=sp->tkn_float();
  804. break;
  806. case TTPAR_ROTATION:
  807. sp->get_token(); sp->get_token();
  808. rc->rotation=sp->tkn_float();
  809. break;
  811. case TTPAR_TRACKING:
  812. sp->get_token(); sp->get_token();
  813. rc->tracking=sp->tkn_float();
  814. break;
  816. case TTPAR_SPACING:
  817. sp->get_token(); sp->get_token();
  818. rc->spacing=sp->tkn_float();
  819. break;
  821. case TTPAR_RESGROUP:
  822. sp->get_token(); sp->get_token();
  823. rc->resgroup=sp->tkn_int();
  824. break;
  826. case TTPAR_MIPMAP:
  827. sp->get_token(); sp->get_token();
  828. rc->mipmap=sp->tkn_bool();
  829. break;
  831. default:
  832. ScriptSkipToNextParameter(sp, true);
  833. break;
  834. }
  835. }
  837. AddRes(rm, RES_FONT, rc);
  838. }
  840. DWORD RFont::Get(hgeResourceManager *rm)
  841. {
  842. hgeFont *fnt;
  843. if(!handle)
  844. {
  845. fnt = new hgeFont(filename, mipmap);
  846. fnt->SetColor(color);
  847. fnt->SetZ(z);
  848. fnt->SetBlendMode(blend);
  849. fnt->SetScale(scale);
  850. fnt->SetProportion(proportion);
  851. fnt->SetTracking(tracking);
  852. fnt->SetSpacing(spacing);
  853. fnt->SetRotation(rotation);
  855. handle=(DWORD)fnt;
  856. }
  857. return handle;
  858. }
  860. void RFont::Free()
  861. {
  862. if(handle) delete (hgeFont *)handle;
  863. handle=0;
  864. }
  866. /////////////// RParticle //
  868. void RParticle::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  869. {
  870. RParticle *rc, *base;
  872. rc = new RParticle();
  873. base = (RParticle *)FindRes(rm, RES_PARTICLE, basename);
  874. if(base) *rc=*base;
  875. else
  876. {
  877. rc->resgroup=0;
  878. rc->filename[0]=0;
  879. rc->spritename[0]=0;
  880. }
  881. rc->handle=0; strcpy(rc->name, name);
  883. while(ScriptSkipToNextParameter(sp, false))
  884. {
  885. switch(sp->tokentype)
  886. {
  887. case TTPAR_FILENAME:
  888. sp->get_token(); sp->get_token();
  889. strcpy(rc->filename, sp->tkn_string());
  890. break;
  892. case TTPAR_SPRITE:
  893. sp->get_token(); sp->get_token();
  894. strcpy(rc->spritename, sp->tkn_string());
  895. break;
  897. case TTPAR_RESGROUP:
  898. sp->get_token(); sp->get_token();
  899. rc->resgroup=sp->tkn_int();
  900. break;
  902. default:
  903. ScriptSkipToNextParameter(sp, true);
  904. break;
  905. }
  906. }
  908. AddRes(rm, RES_PARTICLE, rc);
  909. }
  911. DWORD RParticle::Get(hgeResourceManager *rm)
  912. {
  913. hgeParticleSystem *par;
  914. if(!handle)
  915. {
  916. par = new hgeParticleSystem(filename, rm->GetSprite(spritename));
  918. handle=(DWORD)par;
  919. }
  920. return handle;
  921. }
  923. void RParticle::Free()
  924. {
  925. if(handle) delete (hgeParticleSystem *)handle;
  926. handle=0;
  927. }
  929. /////////////// RDistort //
  931. void RDistort::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  932. {
  933. RDistort *rc, *base;
  935. rc = new RDistort();
  936. base = (RDistort *)FindRes(rm, RES_DISTORT, basename);
  937. if(base) *rc=*base;
  938. else
  939. {
  940. rc->resgroup=0;
  941. rc->texname[0]=0;
  942. rc->tx=rc->ty=0;
  943. rc->w=rc->h=0;
  944. rc->cols=rc->rows=2;
  945. rc->blend=BLEND_COLORMUL | BLEND_ALPHABLEND | BLEND_NOZWRITE;
  946. rc->color=0xFFFFFFFF;
  947. rc->z=0.5f;
  948. }
  949. rc->handle=0; strcpy(rc->name, name);
  951. while(ScriptSkipToNextParameter(sp, false))
  952. {
  953. switch(sp->tokentype)
  954. {
  955. case TTPAR_TEXTURE:
  956. sp->get_token(); sp->get_token();
  957. strcpy(rc->texname, sp->tkn_string());
  958. break;
  960. case TTPAR_RECT:
  961. sp->get_token(); sp->get_token();
  962. rc->tx=sp->tkn_float();
  963. sp->get_token(); sp->get_token();
  964. rc->ty=sp->tkn_float();
  965. sp->get_token(); sp->get_token();
  966. rc->w=sp->tkn_float();
  967. sp->get_token(); sp->get_token();
  968. rc->h=sp->tkn_float();
  969. break;
  971. case TTPAR_MESH:
  972. sp->get_token(); sp->get_token();
  973. rc->cols=sp->tkn_int();
  974. sp->get_token(); sp->get_token();
  975. rc->rows=sp->tkn_int();
  976. break;
  978. case TTPAR_BLENDMODE:
  979. ScriptParseBlendMode(sp, &rc->blend);
  980. break;
  982. case TTPAR_COLOR:
  983. sp->get_token(); sp->get_token();
  984. rc->color=sp->tkn_hex();
  985. break;
  987. case TTPAR_ZORDER:
  988. sp->get_token(); sp->get_token();
  989. rc->z=sp->tkn_float();
  990. break;
  992. case TTPAR_RESGROUP:
  993. sp->get_token(); sp->get_token();
  994. rc->resgroup=sp->tkn_int();
  995. break;
  997. default:
  998. ScriptSkipToNextParameter(sp, true);
  999. break;
  1000. }
  1001. }
  1003. AddRes(rm, RES_DISTORT, rc);
  1004. }
  1006. DWORD RDistort::Get(hgeResourceManager *rm)
  1007. {
  1008. hgeDistortionMesh *dis;
  1009. if(!handle)
  1010. {
  1011. dis = new hgeDistortionMesh(cols, rows);
  1012. dis->SetTexture(rm->GetTexture(texname, resgroup));
  1013. dis->SetTextureRect(tx,ty,w,h);
  1014. dis->SetBlendMode(blend);
  1015. dis->Clear(color,z);
  1017. handle=(DWORD)dis;
  1018. }
  1019. return handle;
  1020. }
  1022. void RDistort::Free()
  1023. {
  1024. if(handle) delete (hgeDistortionMesh *)handle;
  1025. handle=0;
  1026. }
  1028. /////////////// RStringTable //
  1030. void RStringTable::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  1031. {
  1032. ScriptParseFileResource(rm, sp, name, basename, new RStringTable(), RES_STRTABLE);
  1033. }
  1035. DWORD RStringTable::Get(hgeResourceManager *rm)
  1036. {
  1037. if(!handle) handle = (DWORD)new hgeStringTable(filename);
  1038. return handle;
  1039. }
  1041. void RStringTable::Free()
  1042. {
  1043. if(handle) delete (hgeStringTable *)handle;
  1044. handle=0;
  1045. }