src/mobs.pas

   1 unit mob;
   2
   3 interface
   4  const
   5   M_NONE=0;
   6   M_ZOMBY=1;
   7
   8   MOB_TYPES=1;
   9
  10  procedure create(_type, x, y:integer);//Создать моба
  11  function findAndHit(value, x, y, w, h, addvx, addvy:integer):integer;
  12
  13  procedure update;//Обновление логики
  14  procedure updatePhy;//Обновление физики
  15  procedure draw(camx, camy:integer);//Отрисовка
  16
  17  procedure saveData;//Сохранение всех данных
  18  procedure loadData;//Загрузка всех данных
  19  procedure resetData;//Сброс всех данных
  20
  21  procedure loadSkin(path:string);//Загрузка текстур
  22  procedure freeSkin;//Выгрузка текстур
  23
  24 implementation
  25  uses phy, player, canvas, func;
  26  const
  27   MAX_MOBS=31;
  28   MAX_ANIMREG=3;
  29
  30   AI_NONE=0;
  31   AI_ZLOY=1;
  32  var
  33   mob_type, mob_x, mob_y, mob_vx, mob_vy, mob_posi, mob_hp:array [0..MAX_MOBS] of integer;
  34   mob_jmp:array [0..MAX_MOBS] of boolean;
  35   mob_anim:array [0..MAX_MOBS, 0..MAX_ANIMREG] of integer;
  36   tab_w, tab_h, tab_hp, tab_speedx, tab_jumph, tab_ai:array [0..MOB_TYPES] of integer;
  37
  38   texture_left, texture_right:array [0..MOB_TYPES, 0..0] of image;
  39   tex_x, tex_y, tex_w, tex_h:array [0..1, 0..MOB_TYPES, 0..0] of integer;
  40
  41   part_max: array [0..MOB_TYPES] of integer;
  42   part_tex, part_x, part_y, part_anim: array [0..MOB_TYPES, 0..0] of integer;
  43
  44   function getType(i:integer):integer;
  45    begin
  46     getType:=mob_type[i];
  47    end;
  48
  49   function getX(i:integer):integer;
  50    begin
  51     getX:=mob_x[i];
  52    end;
  53
  54   function getY(i:integer):integer;
  55    begin
  56     getY:=mob_y[i];
  57    end;
  58
  59   function getVX(i:integer):integer;
  60    begin
  61     getVX:=mob_vx[i];
  62    end;
  63
  64   function getVY(i:integer):integer;
  65    begin
  66     getVY:=mob_vy[i];
  67    end;
  68
  69   function getPosi(i:integer):integer;
  70    begin
  71     getPosi:=mob_posi[i];
  72    end;
  73
  74   function getHp(i:integer):integer;
  75    begin
  76     getHp:=mob_hp[i];
  77    end;
  78
  79   function getW(i:integer):integer;
  80    begin
  81     getW:=tab_w[mob_type[i]];
  82    end;
  83
  84   function getH(i:integer):integer;
  85    begin
  86     getH:=tab_h[mob_type[i]];
  87    end;
  88
  89   function getSpeedX(i:integer):integer;
  90    begin
  91     getSpeedX:=tab_speedx[mob_type[i]];
  92    end;
  93
  94   function getJumpH(i:integer):integer;
  95    begin
  96     getJumpH:=tab_jumph[mob_type[i]];
  97    end;
  98
  99   function getJmp(i:integer):boolean;
 100    begin
 101     getJmp:=mob_jmp[i];
 102    end;
 103
 104   procedure setType(value, i:integer);
 105    begin
 106     mob_type[i]:=value;
 107    end;
 108
 109   procedure setX(value, i:integer);
 110    begin
 111     mob_x[i]:=value;
 112    end;
 113
 114   procedure setY(value, i:integer);
 115    begin
 116     mob_y[i]:=value;
 117    end;
 118
 119   procedure setVX(value, i:integer);
 120    begin
 121     mob_vx[i]:=value;
 122    end;
 123
 124   procedure setVY(value, i:integer);
 125    begin
 126     mob_vy[i]:=value;
 127    end;
 128
 129   procedure setPosi(value, i:integer);
 130    begin
 131     mob_posi[i]:=value;
 132    end;
 133
 134   procedure setHp(value, i:integer);
 135    begin
 136     mob_hp[i]:=value;
 137    end;
 138
 139   procedure setJmp(value:boolean; i:integer);
 140    begin
 141     mob_jmp[i]:=value;
 142    end;
 143
 144   procedure initTab(_type, w, h, hp, speedx, jumph, ai:integer);
 145    begin
 146     tab_w[_type]:=w;
 147     tab_h[_type]:=h;
 148     tab_hp[_type]:=hp;
 149     tab_speedx[_type]:=speedx;
 150     tab_jumph[_type]:=jumph;
 151     tab_ai[_type]:=ai;
 152    end;
 153
 154   procedure initTexture(img:image; mobtype, texid, posi, centerx, centery:integer);
 155    begin
 156     tex_w[posi, mobtype, texid]:=getImageWidth(img);
 157     tex_h[posi, mobtype, texid]:=getImageHeight(img);
 158     if posi=0 then
 159      texture_left[mobtype, texid]:=img;
 160     else
 161      texture_right[mobtype, texid]:=img;
 162     tex_x[posi, mobtype, texid]:=centerx;
 163     tex_y[posi, mobtype, texid]:=centery;
 164    end;
 165
 166   procedure setMaxTextures(mobtype, max:integer);
 167    var
 168     i:integer;
 169    begin
 170     max:=max+1;
 171     debug('setMaxTextures(mobtype, max:integer);');
 172     bytecode
 173      getstatic field 'mob', 'texture_left', '[[Ljavax/microedition/lcdui/Image;';
 174      iload 0;
 175      iload 1;
 176      multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
 177      aastore;
 178
 179      getstatic field 'mob', 'texture_right', '[[Ljavax/microedition/lcdui/Image;';
 180      iload 0;
 181      iload 1;
 182      multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
 183      aastore;
 184     end;
 185
 186     for i:=0 to 1 do
 187     bytecode
 188      //tex_x[i][mobtype]=new int[max];
 189      getstatic field 'mob', 'tex_x', '[[[I';
 190      iload_2;
 191      aaload;
 192      iload_0;
 193      iload_1;
 194      multianewarray class '[I', 1;
 195      aastore;
 196
 197      getstatic field 'mob', 'tex_y', '[[[I';
 198      iload_2;
 199      aaload;
 200      iload_0;
 201      iload_1;
 202      multianewarray class '[I', 1;
 203      aastore;
 204
 205      getstatic field 'mob', 'tex_w', '[[[I';
 206      iload_2;
 207      aaload;
 208      iload_0;
 209      iload_1;
 210      multianewarray class '[I', 1;
 211      aastore;
 212
 213      getstatic field 'mob', 'tex_h', '[[[I';
 214      iload_2;
 215      aaload;
 216      iload_0;
 217      iload_1;
 218      multianewarray class '[I', 1;
 219      aastore;
 220     end;
 221    end;
 222
 223    procedure setMaxParts(mobtype, max:integer);
 224     begin
 225      part_max[mobtype]:=max;
 226      max:=max+1;
 227
 228      bytecode
 229       getstatic field 'mob', 'part_tex', '[[I';
 230       iload_0;
 231       iload_1;
 232       multianewarray class '[I', 1;
 233       aastore;
 234
 235       getstatic field 'mob', 'part_x', '[[I';
 236       iload_0;
 237       iload_1;
 238       multianewarray class '[I', 1;
 239       aastore;
 240
 241       getstatic field 'mob', 'part_y', '[[I';
 242       iload_0;
 243       iload_1;
 244       multianewarray class '[I', 1;
 245       aastore;
 246
 247       getstatic field 'mob', 'part_anim', '[[I';
 248       iload_0;
 249       iload_1;
 250       multianewarray class '[I', 1;
 251       aastore;
 252      end;
 253     end;
 254
 255    procedure initPart(mobtype, partid, tex, x, y, animreg:integer);
 256     begin
 257      part_tex[mobtype, partid]:=tex;
 258      part_x[mobtype, partid]:=x;
 259      part_y[mobtype, partid]:=y;
 260      part_anim[mobtype, partid]:=animreg;
 261     end;
 262
 263 procedure loadPhy(i:integer);
 264  begin
 265   phy.loadObject(mob_x[i], mob_y[i], tab_w[mob_type[i]], tab_h[mob_type[i]], mob_vx[i], mob_vy[i], mob_jmp[i]);
 266  end;
 267
 268 procedure storePhy(i:integer);
 269  begin
 270   mob_x[i]:=phy.getX;
 271   mob_y[i]:=phy.getY;
 272   mob_vx[i]:=phy.getVelX;
 273   mob_vy[i]:=phy.getVelY;
 274   mob_jmp[i]:=phy.getJmp;
 275  end;
 276
 277 {=====  =====}
 278
 279   procedure create(_type, x, y:integer);//Создать моба
 280    var
 281     i, j:integer;
 282    begin
 283     debug('Create mob '+_type+' @ '+x+'x'+y);
 284     for i:=0 to MAX_MOBS do
 285      if mob_type[i]=M_NONE then
 286       begin
 287        mob_type[i]:=_type;
 288        mob_x[i]:=x;
 289        mob_y[i]:=y;
 290        mob_vx[i]:=0;
 291        mob_vy[i]:=0;
 292        mob_posi[i]:=0;
 293        mob_hp[i]:=tab_hp[_type];
 294        mob_jmp[i]:=false;
 295        for j:=0 to MAX_ANIMREG do
 296         mob_anim[i, j]:=0;
 297
 298        debug('Created mob is '+i);
 299        exit;
 300       end;
 301    end;
 302
 303   procedure die(i:integer);//Убить
 304    begin
 305     mob_type[i]:=M_NONE;
 306    end;
 307
 308   procedure hit(value, i:integer);//Нанести урон
 309    var
 310     hp:integer;
 311    begin
 312     hp:=getHp(i)-value;
 313     if hp>0 then
 314      setHp(hp, i);
 315     else
 316      die(i);
 317    end;
 318
 319   function findAndHit(value, x, y, w, h, addvx, addvy:integer):integer;
 320    var
 321     i:integer;
 322    begin
 323     for i:=0 to MAX_MOBS do
 324      if getType(i)<>M_NONE then
 325       if CollTwoObj(x, y, w, h, getX(i), getY(i), getW(i), getH(i)) then
 326        begin
 327         setVX(getVX(i)+addvx, i);
 328         setVX(getVY(i)+addvy, i);
 329         hit(value, i);
 330         findAndHit:=i;
 331         exit;
 332        end;
 333
 334     findAndHit:=-1;
 335    end;
 336
 337   procedure goUp(i:integer);
 338    begin
 339     loadPhy(i);
 340     phy.jumpObj(getJumpH(i));
 341     storePhy(i);
 342    end;
 343
 344   procedure goDown(i:integer);
 345    begin
 346
 347    end;
 348
 349   procedure goLeft(i:integer);
 350    begin
 351     setVX(-getSpeedX(i), i);
 352     setPosi(0, i);
 353    end;
 354
 355   procedure goRight(i:integer);
 356    begin
 357     setVX(getSpeedX(i), i);
 358     setPosi(1, i);
 359    end;
 360
 361   function testSolid(i, vector : integer) : boolean;
 362    var
 363     x, y : integer;
 364    begin
 365     y := (getY(i) + getH(i)) / 16 - 1;
 366
 367     if vector > 0 then
 368       x := (getX(i) + getW(i) / 2 + 16 / 2) / 16;
 369     else
 370       x := (getX(i) + getW(i) / 2 - 16 / 2) / 16;
 371
 372     testSolid := phy.isSolid(x, y, getVX(i), getVY(i));
 373    end;
 374
 375   function collideWithPlayer(i : integer) : boolean;
 376    begin
 377      collideWithPlayer := CollTwoObj(getX(i), getY(i), getW(i), getH(i), player.getX, player.getY, player.getW, player.getH);
 378    end;
 379
 380   function canBite(i : integer) : boolean;
 381    begin
 382      canBite := collideWithPlayer(i);
 383    end;
 384
 385   procedure updateZloyAiAnim(i : integer);
 386    const
 387     DEL=1;
 388    var
 389     a_a, a_d, a_f:integer;
 390    begin
 391     a_a:=mob_anim[i, 1];
 392     a_d:=mob_anim[i, 2];
 393     a_f:=mob_anim[i, 3];
 394
 395     a_d:=a_d+1;
 396     if a_d>DEL then
 397      begin
 398       a_d:=0;
 399       a_a:=a_a+1;
 400       if a_f=1 then
 401        begin
 402         a_a:=0;
 403         a_f:=0;
 404        end;
 405       else
 406       if a_a=3 then
 407        begin
 408         a_a:=1;
 409         a_f:=1;
 410        end;
 411      end;
 412
 413     mob_anim[i, 1]:=a_a;
 414     mob_anim[i, 2]:=a_d;
 415     mob_anim[i, 3]:=a_f;
 416    end;
 417
 418   procedure updateZloyAi(i : integer);
 419    var
 420     vector : integer;
 421    begin
 422     if player.getX < getX(i) then
 423      begin
 424       goLeft(i);
 425       vector := -1;
 426      end;
 427    else if player.getX > getX(i) then
 428     begin
 429      goRight(i);
 430      vector := 1;
 431     end;
 432
 433    if vector <> 0 then
 434     begin
 435      updateZloyAiAnim(i);
 436      if testSolid(i, vector) then
 437       goUp(i);
 438     end;
 439
 440     if collideWithPlayer(i) then
 441      player.biteIt(1, vector);
 442    end;
 443
 444   procedure update;
 445    var
 446     i, _type, ai:integer;
 447    begin
 448     for i:=0 to MAX_MOBS do
 449      begin
 450       _type:=getType(i);
 451
 452       if _type<>M_NONE then
 453        begin
 454         ai:=tab_ai[_type];
 455         if ai=AI_ZLOY then
 456          updateZloyAi(i);
 457        end;
 458      end;
 459    end;
 460
 461   procedure updatePhy;//Обновление физики
 462    var
 463     i:integer;
 464    begin
 465     for i:=0 to MAX_MOBS do
 466      begin
 467       loadPhy(i);
 468       phy.calc(true);
 469       storePhy(i);
 470      end;
 471    end;
 472
 473   procedure drawPart(mobtype, texid, posi, anim, x, y, camx, camy:integer);
 474    begin
 475     x:=x-tex_x[posi, mobtype, texid]-camx;
 476     y:=y-tex_y[posi, mobtype, texid]-camy;
 477
 478     if CollTwoObj(x, y, tex_w[posi, mobtype, texid], tex_h[posi, mobtype, texid], 0, 0, getWidth, getHeight) then
 479      if posi=0 then
 480       drawImage(texture_left[mobtype, texid+anim], x, y);
 481      else
 482       drawImage(texture_right[mobtype, texid+anim], x, y);
 483    end;
 484
 485   procedure draw(camx, camy:integer);//Отрисовка
 486    var
 487     i, j, _type:integer;
 488    begin
 489     for i:=0 to MAX_MOBS do
 490      begin
 491       _type:=mob_type[i];
 492       if _type<>M_NONE then
 493        begin
 494         for j:=0 to part_max[_type] do
 495          drawPart(_type, part_tex[_type, j], mob_posi[i], mob_anim[i, part_anim[_type, j]], mob_x[i]+part_x[_type, j], mob_y[i]+part_y[_type, j], camx, camy);
 496        end;
 497      end;
 498    end;
 499
 500   procedure loadSkin(path:string);//Загрузка текстур
 501    var
 502     im:image;
 503    begin
 504     setMaxTextures(M_ZOMBY, 5);
 505     im:=ld_tex('zombie_ani.png', path, 'mobs/');
 506     //          IMG,                                               TYPE, ID, POSI,  X, Y
 507     initTexture(rotate_image_from_image(im, 6,  2, 8,  8, 0),   M_ZOMBY,  0,    0,  4, 8);//head[left]
 508     initTexture(rotate_image_from_image(im, 8, 10, 4, 12, 0),   M_ZOMBY,  1,    0,  2, 0);//body[left]
 509     initTexture(rotate_image_from_image(im, 0, 10, 12, 4, 0),   M_ZOMBY,  2,    0, 10, 2);//hands[left]
 510     initTexture(rotate_image_from_image(im, 0, 52, 12, 12, 0),  M_ZOMBY,  3,    0,  6, 0);//legs[left]
 511     initTexture(rotate_image_from_image(im, 13, 52, 12, 12, 0), M_ZOMBY,  4,    0,  6, 0);
 512     initTexture(rotate_image_from_image(im, 26, 52, 12, 12, 0), M_ZOMBY,  5,    0,  6, 0);
 513
 514     initTexture(rotate_image_from_image(im, 27,  2, 8,  8, 0),  M_ZOMBY,  0,    1,  4, 8);//head[right]
 515     initTexture(rotate_image_from_image(im, 29, 10, 4, 12, 0),  M_ZOMBY,  1,    1,  2, 0);//body[right]
 516     initTexture(rotate_image_from_image(im, 29, 10, 12, 4, 0),  M_ZOMBY,  2,    1,  2, 2);//hands[right]
 517     initTexture(rotate_image_from_image(im, 39, 52, 12, 12, 0), M_ZOMBY,  3,    1,  6, 0);//legs[right]
 518     initTexture(rotate_image_from_image(im, 52, 52, 12, 12, 0), M_ZOMBY,  4,    1,  6, 0);
 519     initTexture(rotate_image_from_image(im, 65, 52, 12, 12, 0), M_ZOMBY,  5,    1,  6, 0);
 520    end;
 521
 522   procedure freeSkin;//Выгрузка текстур
 523    var
 524     i, j, len:integer;
 525     nullimg:image;
 526    begin
 527     for i:=0 to MOB_TYPES do
 528      begin
 529       bytecode
 530        getstatic field 'mob', 'texture_left', '[[Ljavax/microedition/lcdui/Image;';
 531        iload_0;//i
 532        aaload;
 533        arraylength;
 534        iconst_1;
 535        isub;
 536        istore_2;//len
 537       end;
 538       for j:=0 to len do
 539        begin
 540         texture_left[i, j]:=nullimg;
 541         texture_right[i, j]:=nullimg;
 542        end;
 543      end;
 544    end;
 545
 546   procedure saveData;//Сохранение всех данных
 547    begin
 548
 549    end;
 550
 551   procedure loadData;//Загрузка всех данных
 552    begin
 553
 554    end;
 555
 556   procedure resetData;//Сброс всех данных
 557    var
 558     i, j:integer;
 559    begin
 560     for i:=0 to MAX_MOBS do
 561      begin
 562       mob_type[i]:=M_NONE;
 563       mob_x[i]:=0;
 564       mob_y[i]:=0;
 565       mob_vx[i]:=0;
 566       mob_vy[i]:=0;
 567       mob_posi[i]:=0;
 568       mob_hp[i]:=0;
 569       mob_jmp[i]:=false;
 570       for j:=0 to MAX_ANIMREG do
 571        mob_anim[i, j]:=0;
 572      end;
 573    end;
 574
 575 initialization
 576  //      TYPE      W   H  HP  SX  JH, AI_TYPE
 577  initTab(M_NONE,   0,  0,  0,  0,  0, AI_NONE);
 578   setMaxParts(M_NONE, -1);
 579
 580  initTab(M_ZOMBY,  8, 32, 10,  1,  7, AI_ZLOY);
 581   setMaxParts(M_ZOMBY, 3);
 582    //       TYPE     PART, TEX, X,  Y ANIM
 583    initPart(M_ZOMBY,    0,   0, 4,  8,   0);//Head
 584    initPart(M_ZOMBY,    1,   1, 4,  8,   0);//Body
 585    initPart(M_ZOMBY,    2,   2, 4, 10,   0);//Hands
 586    initPart(M_ZOMBY,    3,   3, 4, 20,   1);//Legs
 587 end.