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

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

游戏引擎

开发平台：

Visual C++

resources.cpp：源码内容
  1. /*
  2. ** Haaf's Game Engine 1.5
  3. ** Copyright (C) 2003-2004, 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 rc->resgroup=0;
  80. rc->handle=0; strcpy(rc->name, name);
  82. while(ScriptSkipToNextParameter(sp,false))
  83. {
  84. switch(sp->tokentype)
  85. {
  86. case TTPAR_FILENAME:
  87. sp->get_token(); sp->get_token();
  88. strcpy(rc->filename, sp->tkn_string());
  89. break;
  91. case TTPAR_RESGROUP:
  92. sp->get_token(); sp->get_token();
  93. rc->resgroup=sp->tkn_int();
  94. break;
  96. default:
  97. ScriptSkipToNextParameter(sp,true);
  98. break;
  99. }
  100. }
  102. AddRes(rm, restype, rc);
  103. }
  105. void ScriptParseBlendMode(RScriptParser *sp, int *blend)
  106. {
  107. for(;;)
  108. {
  109. sp->get_token();
  110. if(sp->tokentype != TTEQUALS && sp->tokentype != TTSEPARATOR) { sp->put_back(); return; }
  112. switch(sp->get_token())
  113. {
  114. case TTCON_COLORMUL:
  115. *blend &= ~BLEND_COLORADD;
  116. break;
  118. case TTCON_COLORADD:
  119. *blend |= BLEND_COLORADD;
  120. break;
  122. case TTCON_ALPHABLND:
  123. *blend |= BLEND_ALPHABLEND;
  124. break;
  126. case TTCON_ALPHAADD:
  127. *blend &= ~BLEND_ALPHABLEND;
  128. break;
  130. case TTCON_ZWRITE:
  131. *blend |= BLEND_ZWRITE;
  132. break;
  134. case TTCON_NOZWRITE:
  135. *blend &= ~BLEND_ZWRITE;
  136. break;
  138. default:
  139. sp->ScriptPostError("Unsupported value ",".");
  140. break;
  141. }
  142. }
  143. }
  145. void ScriptParseSpriteAnim(RScriptParser *sp, RSprite *rc, bool anim)
  146. {
  147. while(ScriptSkipToNextParameter(sp,false))
  148. {
  149. switch(sp->tokentype)
  150. {
  151. case TTPAR_TEXTURE:
  152. sp->get_token(); sp->get_token();
  153. strcpy(rc->texname,sp->tkn_string());
  154. break;
  156. case TTPAR_RECT:
  157. sp->get_token(); sp->get_token();
  158. rc->tx=sp->tkn_float();
  159. sp->get_token(); sp->get_token();
  160. rc->ty=sp->tkn_float();
  161. sp->get_token(); sp->get_token();
  162. rc->w=sp->tkn_float();
  163. sp->get_token(); sp->get_token();
  164. rc->h=sp->tkn_float();
  165. break;
  167. case TTPAR_HOTSPOT:
  168. sp->get_token(); sp->get_token();
  169. rc->hotx=sp->tkn_float();
  170. sp->get_token(); sp->get_token();
  171. rc->hoty=sp->tkn_float();
  172. break;
  174. case TTPAR_BLENDMODE:
  175. ScriptParseBlendMode(sp, &rc->blend);
  176. break;
  178. case TTPAR_COLOR:
  179. sp->get_token(); sp->get_token();
  180. rc->color=sp->tkn_hex();
  181. break;
  183. case TTPAR_ZORDER:
  184. sp->get_token(); sp->get_token();
  185. rc->z=sp->tkn_float();
  186. break;
  188. case TTPAR_FLIP:
  189. sp->get_token(); sp->get_token();
  190. rc->bXFlip=sp->tkn_bool();
  191. sp->get_token(); sp->get_token();
  192. rc->bYFlip=sp->tkn_bool();
  193. break;
  195. case TTPAR_RESGROUP:
  196. sp->get_token(); sp->get_token();
  197. rc->resgroup=sp->tkn_int();
  198. break;
  200. case TTPAR_FRAMES:
  201. if(anim)
  202. {
  203. sp->get_token(); sp->get_token();
  204. ((RAnimation *)rc)->frames=sp->tkn_int();
  205. break;
  206. }
  208. case TTPAR_FPS:
  209. if(anim)
  210. {
  211. sp->get_token(); sp->get_token();
  212. ((RAnimation *)rc)->fps=sp->tkn_float();
  213. break;
  214. }
  216. case TTPAR_MODE:
  217. if(anim)
  218. {
  219. for(;;)
  220. {
  221. sp->get_token();
  222. if(sp->tokentype != TTEQUALS && sp->tokentype != TTSEPARATOR) { sp->put_back(); break; }
  224. switch(sp->get_token())
  225. {
  226. case TTCON_FORWARD:
  227. ((RAnimation *)rc)->mode &= ~HGEANIM_REV;
  228. break;
  230. case TTCON_REVERSE:
  231. ((RAnimation *)rc)->mode |= HGEANIM_REV;
  232. break;
  234. case TTCON_NOPINGPONG:
  235. ((RAnimation *)rc)->mode &= ~HGEANIM_PINGPONG;
  236. break;
  238. case TTCON_PINGPONG:
  239. ((RAnimation *)rc)->mode |= HGEANIM_PINGPONG;
  240. break;
  242. case TTCON_NOLOOP:
  243. ((RAnimation *)rc)->mode &= ~HGEANIM_LOOP;
  244. break;
  246. case TTCON_LOOP:
  247. ((RAnimation *)rc)->mode |= HGEANIM_LOOP;
  248. break;
  250. default:
  251. sp->ScriptPostError("Unsupported value ",".");
  252. break;
  253. }
  254. }
  255. break;
  256. }
  258. default:
  259. ScriptSkipToNextParameter(sp,true);
  260. break;
  261. }
  262. }
  263. }
  266. /////////////// RScript //
  268. void RScript::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *sname, const char *sbasename)
  269. {
  270. RScriptParser *np;
  271. RScript *res_script;
  272. void *data;
  273. DWORD size;
  274. char *script, name[MAXRESCHARS], basename[MAXRESCHARS];
  275. int restype;
  277. if(!FindRes(rm, RES_SCRIPT, sname))
  278. {
  279. res_script = new RScript(); // hack! we need an instance of RScript to access hge
  280. // if all ok, this object is used later to keep the script
  282. data=hge->Resource_Load(sname, &size);
  283. if(!data)
  284. {
  285. if(sp) sp->ScriptPostError("Script "," not found.");
  286. else hge->System_Log("Script '%s' not found.",sname);
  287. delete res_script;
  288. return;
  289. }
  290. else
  291. {
  292. script= new char[size+1];
  293. memcpy(script, data, size);
  294. script[size]=0;
  295. hge->Resource_Free(data);
  297. strcpy(res_script->name, sname);
  298. AddRes(rm, RES_SCRIPT, res_script);
  299. np = new RScriptParser(res_script->name, script);
  301. for(;;)
  302. {
  303. np->get_token();
  304. if(np->tokentype == TTEND) break;
  306. else if(np->tokentype == TTRES_INCLUDE)
  307. {
  308. np->get_token();
  309. RScript::Parse(rm, np, np->tkn_string(), NULL);
  310. }
  312. else if(np->tokentype > TTRES__FIRST && np->tokentype < TTRES__LAST)
  313. {
  314. restype=np->tokentype-TTRES__FIRST-1;
  315. name[0]=basename[0]=0;
  317. np->get_token();
  318. if(FindRes(rm, restype, np->tkn_string()))
  319. {
  320. np->ScriptPostError("Resource "," of the same type already has been defined.");
  321. while((np->tokentype <= TTRES__FIRST || np->tokentype >= TTRES__LAST) && np->tokentype != TTEND) np->get_token();
  322. np->put_back();
  323. continue;
  324. }
  325. strcpy(name, np->tkn_string());
  327. np->get_token();
  329. if(np->tokentype == TTBASED)
  330. {
  331. np->get_token();
  332. if(!FindRes(rm, restype, np->tkn_string())) np->ScriptPostError("Base resource "," is not defined.");
  333. else strcpy(basename, np->tkn_string());
  334. np->get_token();
  335. }
  337. if(np->tokentype == TTOPENBLOCK)
  338. {
  339. switch(restype)
  340. {
  341. case RES_RESOURCE: RResource::Parse(rm, np, name, basename); break;
  342. case RES_TEXTURE: RTexture::Parse(rm, np, name, basename); break;
  343. case RES_EFFECT: REffect::Parse(rm, np, name, basename); break;
  344. case RES_MUSIC: RMusic::Parse(rm, np, name, basename); break;
  345. case RES_STREAM: RStream::Parse(rm, np, name, basename); break;
  346. case RES_TARGET: RTarget::Parse(rm, np, name, basename); break;
  347. case RES_SPRITE: RSprite::Parse(rm, np, name, basename); break;
  348. case RES_ANIMATION: RAnimation::Parse(rm, np, name, basename); break;
  349. case RES_FONT: RFont::Parse(rm, np, name, basename); break;
  350. case RES_PARTICLE: RParticle::Parse(rm, np, name, basename); break;
  351. case RES_DISTORT: RDistort::Parse(rm, np, name, basename); break;
  352. case RES_STRTABLE: RStringTable::Parse(rm, np, name, basename); break;
  353. }
  354. }
  355. else
  356. {
  357. np->ScriptPostError("Illegal resource syntax, "," found; '{' expected.");
  358. while((np->tokentype <= TTRES__FIRST || np->tokentype >= TTRES__LAST) && np->tokentype != TTEND) np->get_token();
  359. np->put_back();
  360. }
  361. }
  363. else
  364. {
  365. np->ScriptPostError("Unrecognized resource specificator ",".");
  366. while((np->tokentype <= TTRES__FIRST || np->tokentype >= TTRES__LAST) && np->tokentype != TTEND) np->get_token();
  367. np->put_back();
  368. }
  369. }
  371. delete np;
  372. delete[] script;
  373. }
  374. }
  375. else sp->ScriptPostError("Script "," already has been parsed.");
  376. }
  378. /////////////// RResource //
  380. void RResource::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  381. {
  382. ScriptParseFileResource(rm, sp, name, basename, new RResource(), RES_RESOURCE);
  383. }
  385. DWORD RResource::Get(hgeResourceManager *rm)
  386. {
  387. if(!handle) handle=(DWORD)hge->Resource_Load(filename);
  388. return handle;
  389. }
  391. void RResource::Free()
  392. {
  393. if(handle) hge->Resource_Free((void *)handle);
  394. handle=0;
  395. }
  397. /////////////// RTexture //
  399. void RTexture::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  400. {
  401. ScriptParseFileResource(rm, sp, name, basename, new RTexture(), RES_TEXTURE);
  402. }
  404. DWORD RTexture::Get(hgeResourceManager *rm)
  405. {
  406. if(!handle) handle=(DWORD)hge->Texture_Load(filename);
  407. return handle;
  408. }
  410. void RTexture::Free()
  411. {
  412. if(handle) hge->Texture_Free((HTEXTURE)handle);
  413. handle=0;
  414. }
  416. /////////////// REffect //
  418. void REffect::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  419. {
  420. ScriptParseFileResource(rm, sp, name, basename, new REffect(), RES_EFFECT);
  421. }
  423. DWORD REffect::Get(hgeResourceManager *rm)
  424. {
  425. if(!handle) handle=(DWORD)hge->Effect_Load(filename);
  426. return handle;
  427. }
  429. void REffect::Free()
  430. {
  431. if(handle) hge->Effect_Free((HEFFECT)handle);
  432. handle=0;
  433. }
  435. /////////////// RMusic //
  437. void RMusic::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  438. {
  439. ScriptParseFileResource(rm, sp, name, basename, new RMusic(), RES_MUSIC);
  440. }
  442. DWORD RMusic::Get(hgeResourceManager *rm)
  443. {
  444. if(!handle) handle=(DWORD)hge->Music_Load(filename);
  445. return handle;
  446. }
  448. void RMusic::Free()
  449. {
  450. if(handle) hge->Music_Free((HMUSIC)handle);
  451. handle=0;
  452. }
  454. /////////////// RStream //
  456. void RStream::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  457. {
  458. ScriptParseFileResource(rm, sp, name, basename, new RStream(), RES_STREAM);
  459. }
  461. DWORD RStream::Get(hgeResourceManager *rm)
  462. {
  463. if(!handle) handle=(DWORD)hge->Stream_Load(filename);
  464. return handle;
  465. }
  467. void RStream::Free()
  468. {
  469. if(handle) hge->Stream_Free((HSTREAM)handle);
  470. handle=0;
  471. }
  473. /////////////// RTarget //
  475. void RTarget::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  476. {
  477. RTarget *rc, *base;
  479. rc = new RTarget();
  480. base = (RTarget *)FindRes(rm, RES_TARGET, basename);
  481. if(base) *rc=*base;
  482. else
  483. {
  484. rc->resgroup=0;
  485. rc->width=256;
  486. rc->height=256;
  487. rc->zbuffer=false;
  488. }
  489. rc->handle=0; strcpy(rc->name, name);
  491. while(ScriptSkipToNextParameter(sp, false))
  492. {
  493. switch(sp->tokentype)
  494. {
  495. case TTPAR_SIZE:
  496. sp->get_token(); sp->get_token();
  497. rc->width=sp->tkn_int();
  498. sp->get_token();
  499. sp->get_token();
  500. rc->height=sp->tkn_int();
  501. break;
  503. case TTPAR_ZBUFFER:
  504. sp->get_token(); sp->get_token();
  505. rc->zbuffer=sp->tkn_bool();
  506. break;
  508. case TTPAR_RESGROUP:
  509. sp->get_token(); sp->get_token();
  510. rc->resgroup=sp->tkn_int();
  511. break;
  513. default:
  514. ScriptSkipToNextParameter(sp, true);
  515. break;
  516. }
  517. }
  519. AddRes(rm, RES_TARGET, rc);
  520. }
  522. DWORD RTarget::Get(hgeResourceManager *rm)
  523. {
  524. if(!handle) handle=(DWORD)hge->Target_Create(width, height, zbuffer);
  525. return handle;
  526. }
  528. void RTarget::Free()
  529. {
  530. if(handle) hge->Target_Free((HTARGET)handle);
  531. handle=0;
  532. }
  534. /////////////// RSprite //
  536. void RSprite::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  537. {
  538. RSprite *rc, *base;
  540. rc = new RSprite();
  541. base = (RSprite *)FindRes(rm, RES_SPRITE, basename);
  542. if(base) *rc=*base;
  543. else
  544. {
  545. rc->resgroup=0;
  546. rc->texname[0]=0;
  547. rc->tx=rc->ty=0;
  548. rc->w=rc->h=0;
  549. rc->hotx=rc->hoty=0;
  550. rc->blend=BLEND_COLORMUL | BLEND_ALPHABLEND | BLEND_NOZWRITE;
  551. rc->color=0xFFFFFFFF;
  552. rc->z=0.5f;
  553. rc->bXFlip=false;
  554. rc->bYFlip=false;
  555. // rc->x=rc->y=0;
  556. // rc->scale=1.0f;
  557. // rc->rotation=0.0f;
  558. // rc->collision=HGECOL_RECT;
  559. }
  561. rc->handle=0;
  562. strcpy(rc->name, name);
  564. ScriptParseSpriteAnim(sp, rc, false);
  565. AddRes(rm, RES_SPRITE, rc);
  566. }
  568. DWORD RSprite::Get(hgeResourceManager *rm)
  569. {
  570. hgeSprite *spr;
  571. if(!handle)
  572. {
  573. spr = new hgeSprite(rm->GetTexture(texname), tx, ty, w, h);
  574. spr->SetColor(color);
  575. spr->SetZ(z);
  576. spr->SetBlendMode(blend);
  577. spr->SetHotSpot(hotx,hoty);
  578. spr->SetFlip(bXFlip, bYFlip);
  579. // spr->MoveTo(x,y);
  580. // spr->SetScale(scale);
  581. // spr->SetRotation(rotation);
  582. // spr->SetCollisionType(collision);
  584. handle=(DWORD)spr;
  585. }
  586. return handle;
  587. }
  589. void RSprite::Free()
  590. {
  591. if(handle) delete (hgeSprite *)handle;
  592. handle=0;
  593. }
  595. /////////////// RAnimation //
  597. void RAnimation::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  598. {
  599. RAnimation *rc, *base;
  601. rc = new RAnimation();
  602. base = (RAnimation *)FindRes(rm, RES_ANIMATION, basename);
  603. if(base) *rc=*base;
  604. else
  605. {
  606. rc->resgroup=0;
  607. rc->texname[0]=0;
  608. rc->tx=rc->ty=0;
  609. rc->w=rc->h=0;
  610. rc->hotx=rc->hoty=0;
  611. rc->blend=BLEND_COLORMUL | BLEND_ALPHABLEND | BLEND_NOZWRITE;
  612. rc->color=0xFFFFFFFF;
  613. rc->z=0.5f;
  614. rc->bXFlip=false;
  615. rc->bYFlip=false;
  616. // rc->x=rc->y=0;
  617. // rc->scale=1.0f;
  618. // rc->rotation=0.0f;
  619. // rc->collision=HGECOL_RECT;
  620. rc->frames=1;
  621. rc->fps=12.0f;
  622. rc->mode=HGEANIM_FWD | HGEANIM_LOOP;
  623. }
  625. rc->handle=0;
  626. strcpy(rc->name, name);
  628. ScriptParseSpriteAnim(sp, rc, true);
  629. AddRes(rm, RES_ANIMATION, rc);
  630. }
  632. DWORD RAnimation::Get(hgeResourceManager *rm)
  633. {
  634. hgeAnimation *spr;
  635. if(!handle)
  636. {
  637. spr = new hgeAnimation(rm->GetTexture(texname), frames, fps, tx, ty, w, h);
  638. spr->SetColor(color);
  639. spr->SetZ(z);
  640. spr->SetBlendMode(blend);
  641. spr->SetHotSpot(hotx,hoty);
  642. spr->SetFlip(bXFlip, bYFlip);
  643. // spr->MoveTo(x,y);
  644. // spr->SetScale(scale);
  645. // spr->SetRotation(rotation);
  646. // spr->SetCollisionType(collision);
  647. spr->SetMode(mode);
  649. handle=(DWORD)spr;
  650. }
  651. return handle;
  652. }
  654. void RAnimation::Free()
  655. {
  656. if(handle) delete (hgeAnimation *)handle;
  657. handle=0;
  658. }
  660. /////////////// RFont //
  662. void RFont::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  663. {
  664. RFont *rc, *base;
  666. rc = new RFont();
  667. base = (RFont *)FindRes(rm, RES_FONT, basename);
  668. if(base) *rc=*base;
  669. else
  670. {
  671. rc->resgroup=0;
  672. rc->filename[0]=0;
  673. rc->blend=BLEND_COLORMUL | BLEND_ALPHABLEND | BLEND_NOZWRITE;
  674. rc->color=0xFFFFFFFF;
  675. rc->z=0.5f;
  676. rc->scale=1.0f;
  677. rc->tracking=0.0f;
  678. rc->spacing=1.0f;
  679. rc->rotation=0.0f;
  680. }
  681. rc->handle=0; strcpy(rc->name, name);
  683. while(ScriptSkipToNextParameter(sp,false))
  684. {
  685. switch(sp->tokentype)
  686. {
  687. case TTPAR_FILENAME:
  688. sp->get_token(); sp->get_token();
  689. strcpy(rc->filename, sp->tkn_string());
  690. break;
  692. case TTPAR_BLENDMODE:
  693. ScriptParseBlendMode(sp, &rc->blend);
  694. break;
  696. case TTPAR_COLOR:
  697. sp->get_token(); sp->get_token();
  698. rc->color=sp->tkn_hex();
  699. break;
  701. case TTPAR_ZORDER:
  702. sp->get_token(); sp->get_token();
  703. rc->z=sp->tkn_float();
  704. break;
  706. case TTPAR_SCALE:
  707. sp->get_token(); sp->get_token();
  708. rc->scale=sp->tkn_float();
  709. break;
  711. case TTPAR_ROTATION:
  712. sp->get_token(); sp->get_token();
  713. rc->rotation=sp->tkn_float();
  714. break;
  716. case TTPAR_TRACKING:
  717. sp->get_token(); sp->get_token();
  718. rc->tracking=sp->tkn_float();
  719. break;
  721. case TTPAR_SPACING:
  722. sp->get_token(); sp->get_token();
  723. rc->spacing=sp->tkn_float();
  724. break;
  726. case TTPAR_RESGROUP:
  727. sp->get_token(); sp->get_token();
  728. rc->resgroup=sp->tkn_int();
  729. break;
  731. default:
  732. ScriptSkipToNextParameter(sp, true);
  733. break;
  734. }
  735. }
  737. AddRes(rm, RES_FONT, rc);
  738. }
  740. DWORD RFont::Get(hgeResourceManager *rm)
  741. {
  742. hgeFont *fnt;
  743. if(!handle)
  744. {
  745. fnt = new hgeFont(filename);
  746. fnt->SetColor(color);
  747. fnt->SetZ(z);
  748. fnt->SetBlendMode(blend);
  749. fnt->SetScale(scale);
  750. fnt->SetTracking(tracking);
  751. fnt->SetSpacing(spacing);
  752. fnt->SetRotation(rotation);
  754. handle=(DWORD)fnt;
  755. }
  756. return handle;
  757. }
  759. void RFont::Free()
  760. {
  761. if(handle) delete (hgeFont *)handle;
  762. handle=0;
  763. }
  765. /////////////// RParticle //
  767. void RParticle::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  768. {
  769. RParticle *rc, *base;
  771. rc = new RParticle();
  772. base = (RParticle *)FindRes(rm, RES_PARTICLE, basename);
  773. if(base) *rc=*base;
  774. else
  775. {
  776. rc->resgroup=0;
  777. rc->filename[0]=0;
  778. rc->spritename[0]=0;
  779. rc->fps=50.0f;
  780. }
  781. rc->handle=0; strcpy(rc->name, name);
  783. while(ScriptSkipToNextParameter(sp, false))
  784. {
  785. switch(sp->tokentype)
  786. {
  787. case TTPAR_FILENAME:
  788. sp->get_token(); sp->get_token();
  789. strcpy(rc->filename, sp->tkn_string());
  790. break;
  792. case TTPAR_SPRITE:
  793. sp->get_token(); sp->get_token();
  794. strcpy(rc->spritename, sp->tkn_string());
  795. break;
  797. case TTPAR_FPS:
  798. sp->get_token(); sp->get_token();
  799. rc->fps=sp->tkn_float();
  800. break;
  802. case TTPAR_RESGROUP:
  803. sp->get_token(); sp->get_token();
  804. rc->resgroup=sp->tkn_int();
  805. break;
  807. default:
  808. ScriptSkipToNextParameter(sp, true);
  809. break;
  810. }
  811. }
  813. AddRes(rm, RES_PARTICLE, rc);
  814. }
  816. DWORD RParticle::Get(hgeResourceManager *rm)
  817. {
  818. hgeParticleSystem *par;
  819. if(!handle)
  820. {
  821. par = new hgeParticleSystem(filename, rm->GetSprite(spritename), fps);
  823. handle=(DWORD)par;
  824. }
  825. return handle;
  826. }
  828. void RParticle::Free()
  829. {
  830. if(handle) delete (hgeParticleSystem *)handle;
  831. handle=0;
  832. }
  834. /////////////// RDistort //
  836. void RDistort::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  837. {
  838. RDistort *rc, *base;
  840. rc = new RDistort();
  841. base = (RDistort *)FindRes(rm, RES_DISTORT, basename);
  842. if(base) *rc=*base;
  843. else
  844. {
  845. rc->resgroup=0;
  846. rc->texname[0]=0;
  847. rc->tx=rc->ty=0;
  848. rc->w=rc->h=0;
  849. rc->cols=rc->rows=2;
  850. rc->blend=BLEND_COLORMUL | BLEND_ALPHABLEND | BLEND_NOZWRITE;
  851. rc->color=0xFFFFFFFF;
  852. rc->z=0.5f;
  853. }
  854. rc->handle=0; strcpy(rc->name, name);
  856. while(ScriptSkipToNextParameter(sp, false))
  857. {
  858. switch(sp->tokentype)
  859. {
  860. case TTPAR_TEXTURE:
  861. sp->get_token(); sp->get_token();
  862. strcpy(rc->texname, sp->tkn_string());
  863. break;
  865. case TTPAR_RECT:
  866. sp->get_token(); sp->get_token();
  867. rc->tx=sp->tkn_float();
  868. sp->get_token(); sp->get_token();
  869. rc->ty=sp->tkn_float();
  870. sp->get_token(); sp->get_token();
  871. rc->w=sp->tkn_float();
  872. sp->get_token(); sp->get_token();
  873. rc->h=sp->tkn_float();
  874. break;
  876. case TTPAR_MESH:
  877. sp->get_token(); sp->get_token();
  878. rc->cols=sp->tkn_int();
  879. sp->get_token(); sp->get_token();
  880. rc->rows=sp->tkn_int();
  881. break;
  883. case TTPAR_BLENDMODE:
  884. ScriptParseBlendMode(sp, &rc->blend);
  885. break;
  887. case TTPAR_COLOR:
  888. sp->get_token(); sp->get_token();
  889. rc->color=sp->tkn_hex();
  890. break;
  892. case TTPAR_ZORDER:
  893. sp->get_token(); sp->get_token();
  894. rc->z=sp->tkn_float();
  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_DISTORT, rc);
  909. }
  911. DWORD RDistort::Get(hgeResourceManager *rm)
  912. {
  913. hgeDistortionMesh *dis;
  914. if(!handle)
  915. {
  916. dis = new hgeDistortionMesh(cols, rows);
  917. dis->SetTexture(rm->GetTexture(texname));
  918. dis->SetTextureRect(tx,ty,w,h);
  919. dis->SetBlendMode(blend);
  920. dis->Clear(color,z);
  922. handle=(DWORD)dis;
  923. }
  924. return handle;
  925. }
  927. void RDistort::Free()
  928. {
  929. if(handle) delete (hgeDistortionMesh *)handle;
  930. handle=0;
  931. }
  933. /////////////// RStringTable //
  935. void RStringTable::Parse(hgeResourceManager *rm, RScriptParser *sp, const char *name, const char *basename)
  936. {
  937. ScriptParseFileResource(rm, sp, name, basename, new RStringTable(), RES_STRTABLE);
  938. }
  940. DWORD RStringTable::Get(hgeResourceManager *rm)
  941. {
  942. if(!handle) handle = (DWORD)new hgeStringTable(filename);
  943. return handle;
  944. }
  946. void RStringTable::Free()
  947. {
  948. if(handle) delete (hgeStringTable *)handle;
  949. handle=0;
  950. }