Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Features » Arcade/!Hive/c/useful

Arcade/!Hive/c/useful

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Features
Filename: Arcade/!Hive/c/useful
Read OK:
File size: 0A9E bytes
Load address: 0000
Exec address: 0000
File contents
#include <stdio.h>
#include <stdlib.h>

#include "DeskLib:h.Error"

#include "Popcorn:h.Popcorn"

#include "h.game"
#include "h.sound"

#define random(limit) (rand() % (limit))

signed char             sine_table[360];
int    			sine_value = 0;

int                     alien_proto[32], alien_score[32], score_next=0;

void print_message(char *msg, int x, int y, BOOL wiggle)
{
  char res_name[128];
  int  c=0;
  void **res;

  while (msg[c] >= 32)
  {
    sprintf(res_name, "<Hive$Dir>.Graphics.alphabet.%d", msg[c]);
    res = Popcorn_FindResource(res_name);
    if (res != NULL)
      if (*res != NULL)
        if (wiggle)
        {
          Popcorn_PlotSprite(*res, x+(c*14), sine_table[((sine_value+(c*20)) % 360)] + y);
        }
        else
          Popcorn_PlotSprite(*res, x+(c*14), y);
    c++;
  }
}

void make_lots_of_particles_everywhere(int x, int y, int number)
{
  struct game_object     *particle;

  for (; number!=0; number--)
  {
    particle = Popcorn_NewPrototype(fx_table, 'TRAP', x, y);

    if (particle == NULL)
      break;

    particle->xv = random(16384)-8192; particle->yv = random(16384)-8192;
    particle->timer.value = random(100)+100; particle->timer.decrement = 1;
  }
}

void make_explosion(int x, int y)
{
  struct game_object   *explosion;

  explosion = Popcorn_NewPrototype(fx_table, 'LPXE', x, y);

  if (explosion == NULL)
    return;

  explosion->timer.value = 20;
  explosion->timer.decrement = 1;
  make_lots_of_particles_everywhere(x, y, 30);
}

void load_scoring(void)
{
  FILE    *handle;

  handle = fopen("<Hive$Dir>.Data.Scoring", "rb");
  if (handle == NULL)
    Error_ReportFatal(0, "Cannot find scores file");

  while (!feof(handle))
  {
    fscanf(handle, "%s %d", (int) &alien_proto[score_next], &alien_score[score_next]);
    score_next++;
  }

  fclose(handle);
}

void delete_alien(struct game_object *obj)
{
  int c=0;
  union object_flags reason;
  struct game_object *token;

  reason.word = 0;
  reason.bits.collide = TRUE;

  while (alien_proto[c] != obj->object_id)
    c++;
  if (obj->user_data == NULL)
    score = score + alien_score[c];
  else
    score = score + (alien_score[c] * 2); /* Got it out of formation */

  make_sound("<Hive$Dir>.Sounds.Explode");
  make_explosion(obj->x+ (((obj->size.x>>1)-obj->plot_offset.x)<<12),
                 obj->y+ (((obj->size.y>>1)-obj->plot_offset.y)<<12));
  if (obj->handler != NULL)
    (obj->handler)( (void*) obj, reason, obj);
  aliens_left--;
  if (random(4) == 0)
  {
    token = Popcorn_NewPrototype(token_table, 'NKOT', obj->x, obj->y);
    if (token != NULL)
    {
      token->xv = random(32768)-16384;
      token->yv = -(random(16384)+16384);
    }
  }
  Popcorn_DeleteObject(obj);
}
00000000  23 69 6e 63 6c 75 64 65  20 3c 73 74 64 69 6f 2e  |#include <stdio.|
00000010  68 3e 0a 23 69 6e 63 6c  75 64 65 20 3c 73 74 64  |h>.#include <std|
00000020  6c 69 62 2e 68 3e 0a 0a  23 69 6e 63 6c 75 64 65  |lib.h>..#include|
00000030  20 22 44 65 73 6b 4c 69  62 3a 68 2e 45 72 72 6f  | "DeskLib:h.Erro|
00000040  72 22 0a 0a 23 69 6e 63  6c 75 64 65 20 22 50 6f  |r"..#include "Po|
00000050  70 63 6f 72 6e 3a 68 2e  50 6f 70 63 6f 72 6e 22  |pcorn:h.Popcorn"|
00000060  0a 0a 23 69 6e 63 6c 75  64 65 20 22 68 2e 67 61  |..#include "h.ga|
00000070  6d 65 22 0a 23 69 6e 63  6c 75 64 65 20 22 68 2e  |me".#include "h.|
00000080  73 6f 75 6e 64 22 0a 0a  23 64 65 66 69 6e 65 20  |sound"..#define |
00000090  72 61 6e 64 6f 6d 28 6c  69 6d 69 74 29 20 28 72  |random(limit) (r|
000000a0  61 6e 64 28 29 20 25 20  28 6c 69 6d 69 74 29 29  |and() % (limit))|
000000b0  0a 0a 73 69 67 6e 65 64  20 63 68 61 72 20 20 20  |..signed char   |
000000c0  20 20 20 20 20 20 20 20  20 20 73 69 6e 65 5f 74  |          sine_t|
000000d0  61 62 6c 65 5b 33 36 30  5d 3b 0a 69 6e 74 20 20  |able[360];.int  |
000000e0  20 20 09 09 09 73 69 6e  65 5f 76 61 6c 75 65 20  |  ...sine_value |
000000f0  3d 20 30 3b 0a 0a 69 6e  74 20 20 20 20 20 20 20  |= 0;..int       |
00000100  20 20 20 20 20 20 20 20  20 20 20 20 20 20 61 6c  |              al|
00000110  69 65 6e 5f 70 72 6f 74  6f 5b 33 32 5d 2c 20 61  |ien_proto[32], a|
00000120  6c 69 65 6e 5f 73 63 6f  72 65 5b 33 32 5d 2c 20  |lien_score[32], |
00000130  73 63 6f 72 65 5f 6e 65  78 74 3d 30 3b 0a 0a 76  |score_next=0;..v|
00000140  6f 69 64 20 70 72 69 6e  74 5f 6d 65 73 73 61 67  |oid print_messag|
00000150  65 28 63 68 61 72 20 2a  6d 73 67 2c 20 69 6e 74  |e(char *msg, int|
00000160  20 78 2c 20 69 6e 74 20  79 2c 20 42 4f 4f 4c 20  | x, int y, BOOL |
00000170  77 69 67 67 6c 65 29 0a  7b 0a 20 20 63 68 61 72  |wiggle).{.  char|
00000180  20 72 65 73 5f 6e 61 6d  65 5b 31 32 38 5d 3b 0a  | res_name[128];.|
00000190  20 20 69 6e 74 20 20 63  3d 30 3b 0a 20 20 76 6f  |  int  c=0;.  vo|
000001a0  69 64 20 2a 2a 72 65 73  3b 0a 0a 20 20 77 68 69  |id **res;..  whi|
000001b0  6c 65 20 28 6d 73 67 5b  63 5d 20 3e 3d 20 33 32  |le (msg[c] >= 32|
000001c0  29 0a 20 20 7b 0a 20 20  20 20 73 70 72 69 6e 74  |).  {.    sprint|
000001d0  66 28 72 65 73 5f 6e 61  6d 65 2c 20 22 3c 48 69  |f(res_name, "<Hi|
000001e0  76 65 24 44 69 72 3e 2e  47 72 61 70 68 69 63 73  |ve$Dir>.Graphics|
000001f0  2e 61 6c 70 68 61 62 65  74 2e 25 64 22 2c 20 6d  |.alphabet.%d", m|
00000200  73 67 5b 63 5d 29 3b 0a  20 20 20 20 72 65 73 20  |sg[c]);.    res |
00000210  3d 20 50 6f 70 63 6f 72  6e 5f 46 69 6e 64 52 65  |= Popcorn_FindRe|
00000220  73 6f 75 72 63 65 28 72  65 73 5f 6e 61 6d 65 29  |source(res_name)|
00000230  3b 0a 20 20 20 20 69 66  20 28 72 65 73 20 21 3d  |;.    if (res !=|
00000240  20 4e 55 4c 4c 29 0a 20  20 20 20 20 20 69 66 20  | NULL).      if |
00000250  28 2a 72 65 73 20 21 3d  20 4e 55 4c 4c 29 0a 20  |(*res != NULL). |
00000260  20 20 20 20 20 20 20 69  66 20 28 77 69 67 67 6c  |       if (wiggl|
00000270  65 29 0a 20 20 20 20 20  20 20 20 7b 0a 20 20 20  |e).        {.   |
00000280  20 20 20 20 20 20 20 50  6f 70 63 6f 72 6e 5f 50  |       Popcorn_P|
00000290  6c 6f 74 53 70 72 69 74  65 28 2a 72 65 73 2c 20  |lotSprite(*res, |
000002a0  78 2b 28 63 2a 31 34 29  2c 20 73 69 6e 65 5f 74  |x+(c*14), sine_t|
000002b0  61 62 6c 65 5b 28 28 73  69 6e 65 5f 76 61 6c 75  |able[((sine_valu|
000002c0  65 2b 28 63 2a 32 30 29  29 20 25 20 33 36 30 29  |e+(c*20)) % 360)|
000002d0  5d 20 2b 20 79 29 3b 0a  20 20 20 20 20 20 20 20  |] + y);.        |
000002e0  7d 0a 20 20 20 20 20 20  20 20 65 6c 73 65 0a 20  |}.        else. |
000002f0  20 20 20 20 20 20 20 20  20 50 6f 70 63 6f 72 6e  |         Popcorn|
00000300  5f 50 6c 6f 74 53 70 72  69 74 65 28 2a 72 65 73  |_PlotSprite(*res|
00000310  2c 20 78 2b 28 63 2a 31  34 29 2c 20 79 29 3b 0a  |, x+(c*14), y);.|
00000320  20 20 20 20 63 2b 2b 3b  0a 20 20 7d 0a 7d 0a 0a  |    c++;.  }.}..|
00000330  76 6f 69 64 20 6d 61 6b  65 5f 6c 6f 74 73 5f 6f  |void make_lots_o|
00000340  66 5f 70 61 72 74 69 63  6c 65 73 5f 65 76 65 72  |f_particles_ever|
00000350  79 77 68 65 72 65 28 69  6e 74 20 78 2c 20 69 6e  |ywhere(int x, in|
00000360  74 20 79 2c 20 69 6e 74  20 6e 75 6d 62 65 72 29  |t y, int number)|
00000370  0a 7b 0a 20 20 73 74 72  75 63 74 20 67 61 6d 65  |.{.  struct game|
00000380  5f 6f 62 6a 65 63 74 20  20 20 20 20 2a 70 61 72  |_object     *par|
00000390  74 69 63 6c 65 3b 0a 0a  20 20 66 6f 72 20 28 3b  |ticle;..  for (;|
000003a0  20 6e 75 6d 62 65 72 21  3d 30 3b 20 6e 75 6d 62  | number!=0; numb|
000003b0  65 72 2d 2d 29 0a 20 20  7b 0a 20 20 20 20 70 61  |er--).  {.    pa|
000003c0  72 74 69 63 6c 65 20 3d  20 50 6f 70 63 6f 72 6e  |rticle = Popcorn|
000003d0  5f 4e 65 77 50 72 6f 74  6f 74 79 70 65 28 66 78  |_NewPrototype(fx|
000003e0  5f 74 61 62 6c 65 2c 20  27 54 52 41 50 27 2c 20  |_table, 'TRAP', |
000003f0  78 2c 20 79 29 3b 0a 0a  20 20 20 20 69 66 20 28  |x, y);..    if (|
00000400  70 61 72 74 69 63 6c 65  20 3d 3d 20 4e 55 4c 4c  |particle == NULL|
00000410  29 0a 20 20 20 20 20 20  62 72 65 61 6b 3b 0a 0a  |).      break;..|
00000420  20 20 20 20 70 61 72 74  69 63 6c 65 2d 3e 78 76  |    particle->xv|
00000430  20 3d 20 72 61 6e 64 6f  6d 28 31 36 33 38 34 29  | = random(16384)|
00000440  2d 38 31 39 32 3b 20 70  61 72 74 69 63 6c 65 2d  |-8192; particle-|
00000450  3e 79 76 20 3d 20 72 61  6e 64 6f 6d 28 31 36 33  |>yv = random(163|
00000460  38 34 29 2d 38 31 39 32  3b 0a 20 20 20 20 70 61  |84)-8192;.    pa|
00000470  72 74 69 63 6c 65 2d 3e  74 69 6d 65 72 2e 76 61  |rticle->timer.va|
00000480  6c 75 65 20 3d 20 72 61  6e 64 6f 6d 28 31 30 30  |lue = random(100|
00000490  29 2b 31 30 30 3b 20 70  61 72 74 69 63 6c 65 2d  |)+100; particle-|
000004a0  3e 74 69 6d 65 72 2e 64  65 63 72 65 6d 65 6e 74  |>timer.decrement|
000004b0  20 3d 20 31 3b 0a 20 20  7d 0a 7d 0a 0a 76 6f 69  | = 1;.  }.}..voi|
000004c0  64 20 6d 61 6b 65 5f 65  78 70 6c 6f 73 69 6f 6e  |d make_explosion|
000004d0  28 69 6e 74 20 78 2c 20  69 6e 74 20 79 29 0a 7b  |(int x, int y).{|
000004e0  0a 20 20 73 74 72 75 63  74 20 67 61 6d 65 5f 6f  |.  struct game_o|
000004f0  62 6a 65 63 74 20 20 20  2a 65 78 70 6c 6f 73 69  |bject   *explosi|
00000500  6f 6e 3b 0a 0a 20 20 65  78 70 6c 6f 73 69 6f 6e  |on;..  explosion|
00000510  20 3d 20 50 6f 70 63 6f  72 6e 5f 4e 65 77 50 72  | = Popcorn_NewPr|
00000520  6f 74 6f 74 79 70 65 28  66 78 5f 74 61 62 6c 65  |ototype(fx_table|
00000530  2c 20 27 4c 50 58 45 27  2c 20 78 2c 20 79 29 3b  |, 'LPXE', x, y);|
00000540  0a 0a 20 20 69 66 20 28  65 78 70 6c 6f 73 69 6f  |..  if (explosio|
00000550  6e 20 3d 3d 20 4e 55 4c  4c 29 0a 20 20 20 20 72  |n == NULL).    r|
00000560  65 74 75 72 6e 3b 0a 0a  20 20 65 78 70 6c 6f 73  |eturn;..  explos|
00000570  69 6f 6e 2d 3e 74 69 6d  65 72 2e 76 61 6c 75 65  |ion->timer.value|
00000580  20 3d 20 32 30 3b 0a 20  20 65 78 70 6c 6f 73 69  | = 20;.  explosi|
00000590  6f 6e 2d 3e 74 69 6d 65  72 2e 64 65 63 72 65 6d  |on->timer.decrem|
000005a0  65 6e 74 20 3d 20 31 3b  0a 20 20 6d 61 6b 65 5f  |ent = 1;.  make_|
000005b0  6c 6f 74 73 5f 6f 66 5f  70 61 72 74 69 63 6c 65  |lots_of_particle|
000005c0  73 5f 65 76 65 72 79 77  68 65 72 65 28 78 2c 20  |s_everywhere(x, |
000005d0  79 2c 20 33 30 29 3b 0a  7d 0a 0a 76 6f 69 64 20  |y, 30);.}..void |
000005e0  6c 6f 61 64 5f 73 63 6f  72 69 6e 67 28 76 6f 69  |load_scoring(voi|
000005f0  64 29 0a 7b 0a 20 20 46  49 4c 45 20 20 20 20 2a  |d).{.  FILE    *|
00000600  68 61 6e 64 6c 65 3b 0a  0a 20 20 68 61 6e 64 6c  |handle;..  handl|
00000610  65 20 3d 20 66 6f 70 65  6e 28 22 3c 48 69 76 65  |e = fopen("<Hive|
00000620  24 44 69 72 3e 2e 44 61  74 61 2e 53 63 6f 72 69  |$Dir>.Data.Scori|
00000630  6e 67 22 2c 20 22 72 62  22 29 3b 0a 20 20 69 66  |ng", "rb");.  if|
00000640  20 28 68 61 6e 64 6c 65  20 3d 3d 20 4e 55 4c 4c  | (handle == NULL|
00000650  29 0a 20 20 20 20 45 72  72 6f 72 5f 52 65 70 6f  |).    Error_Repo|
00000660  72 74 46 61 74 61 6c 28  30 2c 20 22 43 61 6e 6e  |rtFatal(0, "Cann|
00000670  6f 74 20 66 69 6e 64 20  73 63 6f 72 65 73 20 66  |ot find scores f|
00000680  69 6c 65 22 29 3b 0a 0a  20 20 77 68 69 6c 65 20  |ile");..  while |
00000690  28 21 66 65 6f 66 28 68  61 6e 64 6c 65 29 29 0a  |(!feof(handle)).|
000006a0  20 20 7b 0a 20 20 20 20  66 73 63 61 6e 66 28 68  |  {.    fscanf(h|
000006b0  61 6e 64 6c 65 2c 20 22  25 73 20 25 64 22 2c 20  |andle, "%s %d", |
000006c0  28 69 6e 74 29 20 26 61  6c 69 65 6e 5f 70 72 6f  |(int) &alien_pro|
000006d0  74 6f 5b 73 63 6f 72 65  5f 6e 65 78 74 5d 2c 20  |to[score_next], |
000006e0  26 61 6c 69 65 6e 5f 73  63 6f 72 65 5b 73 63 6f  |&alien_score[sco|
000006f0  72 65 5f 6e 65 78 74 5d  29 3b 0a 20 20 20 20 73  |re_next]);.    s|
00000700  63 6f 72 65 5f 6e 65 78  74 2b 2b 3b 0a 20 20 7d  |core_next++;.  }|
00000710  0a 0a 20 20 66 63 6c 6f  73 65 28 68 61 6e 64 6c  |..  fclose(handl|
00000720  65 29 3b 0a 7d 0a 0a 76  6f 69 64 20 64 65 6c 65  |e);.}..void dele|
00000730  74 65 5f 61 6c 69 65 6e  28 73 74 72 75 63 74 20  |te_alien(struct |
00000740  67 61 6d 65 5f 6f 62 6a  65 63 74 20 2a 6f 62 6a  |game_object *obj|
00000750  29 0a 7b 0a 20 20 69 6e  74 20 63 3d 30 3b 0a 20  |).{.  int c=0;. |
00000760  20 75 6e 69 6f 6e 20 6f  62 6a 65 63 74 5f 66 6c  | union object_fl|
00000770  61 67 73 20 72 65 61 73  6f 6e 3b 0a 20 20 73 74  |ags reason;.  st|
00000780  72 75 63 74 20 67 61 6d  65 5f 6f 62 6a 65 63 74  |ruct game_object|
00000790  20 2a 74 6f 6b 65 6e 3b  0a 0a 20 20 72 65 61 73  | *token;..  reas|
000007a0  6f 6e 2e 77 6f 72 64 20  3d 20 30 3b 0a 20 20 72  |on.word = 0;.  r|
000007b0  65 61 73 6f 6e 2e 62 69  74 73 2e 63 6f 6c 6c 69  |eason.bits.colli|
000007c0  64 65 20 3d 20 54 52 55  45 3b 0a 0a 20 20 77 68  |de = TRUE;..  wh|
000007d0  69 6c 65 20 28 61 6c 69  65 6e 5f 70 72 6f 74 6f  |ile (alien_proto|
000007e0  5b 63 5d 20 21 3d 20 6f  62 6a 2d 3e 6f 62 6a 65  |[c] != obj->obje|
000007f0  63 74 5f 69 64 29 0a 20  20 20 20 63 2b 2b 3b 0a  |ct_id).    c++;.|
00000800  20 20 69 66 20 28 6f 62  6a 2d 3e 75 73 65 72 5f  |  if (obj->user_|
00000810  64 61 74 61 20 3d 3d 20  4e 55 4c 4c 29 0a 20 20  |data == NULL).  |
00000820  20 20 73 63 6f 72 65 20  3d 20 73 63 6f 72 65 20  |  score = score |
00000830  2b 20 61 6c 69 65 6e 5f  73 63 6f 72 65 5b 63 5d  |+ alien_score[c]|
00000840  3b 0a 20 20 65 6c 73 65  0a 20 20 20 20 73 63 6f  |;.  else.    sco|
00000850  72 65 20 3d 20 73 63 6f  72 65 20 2b 20 28 61 6c  |re = score + (al|
00000860  69 65 6e 5f 73 63 6f 72  65 5b 63 5d 20 2a 20 32  |ien_score[c] * 2|
00000870  29 3b 20 2f 2a 20 47 6f  74 20 69 74 20 6f 75 74  |); /* Got it out|
00000880  20 6f 66 20 66 6f 72 6d  61 74 69 6f 6e 20 2a 2f  | of formation */|
00000890  0a 0a 20 20 6d 61 6b 65  5f 73 6f 75 6e 64 28 22  |..  make_sound("|
000008a0  3c 48 69 76 65 24 44 69  72 3e 2e 53 6f 75 6e 64  |<Hive$Dir>.Sound|
000008b0  73 2e 45 78 70 6c 6f 64  65 22 29 3b 0a 20 20 6d  |s.Explode");.  m|
000008c0  61 6b 65 5f 65 78 70 6c  6f 73 69 6f 6e 28 6f 62  |ake_explosion(ob|
000008d0  6a 2d 3e 78 2b 20 28 28  28 6f 62 6a 2d 3e 73 69  |j->x+ (((obj->si|
000008e0  7a 65 2e 78 3e 3e 31 29  2d 6f 62 6a 2d 3e 70 6c  |ze.x>>1)-obj->pl|
000008f0  6f 74 5f 6f 66 66 73 65  74 2e 78 29 3c 3c 31 32  |ot_offset.x)<<12|
00000900  29 2c 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |),.             |
00000910  20 20 20 20 6f 62 6a 2d  3e 79 2b 20 28 28 28 6f  |    obj->y+ (((o|
00000920  62 6a 2d 3e 73 69 7a 65  2e 79 3e 3e 31 29 2d 6f  |bj->size.y>>1)-o|
00000930  62 6a 2d 3e 70 6c 6f 74  5f 6f 66 66 73 65 74 2e  |bj->plot_offset.|
00000940  79 29 3c 3c 31 32 29 29  3b 0a 20 20 69 66 20 28  |y)<<12));.  if (|
00000950  6f 62 6a 2d 3e 68 61 6e  64 6c 65 72 20 21 3d 20  |obj->handler != |
00000960  4e 55 4c 4c 29 0a 20 20  20 20 28 6f 62 6a 2d 3e  |NULL).    (obj->|
00000970  68 61 6e 64 6c 65 72 29  28 20 28 76 6f 69 64 2a  |handler)( (void*|
00000980  29 20 6f 62 6a 2c 20 72  65 61 73 6f 6e 2c 20 6f  |) obj, reason, o|
00000990  62 6a 29 3b 0a 20 20 61  6c 69 65 6e 73 5f 6c 65  |bj);.  aliens_le|
000009a0  66 74 2d 2d 3b 0a 20 20  69 66 20 28 72 61 6e 64  |ft--;.  if (rand|
000009b0  6f 6d 28 34 29 20 3d 3d  20 30 29 0a 20 20 7b 0a  |om(4) == 0).  {.|
000009c0  20 20 20 20 74 6f 6b 65  6e 20 3d 20 50 6f 70 63  |    token = Popc|
000009d0  6f 72 6e 5f 4e 65 77 50  72 6f 74 6f 74 79 70 65  |orn_NewPrototype|
000009e0  28 74 6f 6b 65 6e 5f 74  61 62 6c 65 2c 20 27 4e  |(token_table, 'N|
000009f0  4b 4f 54 27 2c 20 6f 62  6a 2d 3e 78 2c 20 6f 62  |KOT', obj->x, ob|
00000a00  6a 2d 3e 79 29 3b 0a 20  20 20 20 69 66 20 28 74  |j->y);.    if (t|
00000a10  6f 6b 65 6e 20 21 3d 20  4e 55 4c 4c 29 0a 20 20  |oken != NULL).  |
00000a20  20 20 7b 0a 20 20 20 20  20 20 74 6f 6b 65 6e 2d  |  {.      token-|
00000a30  3e 78 76 20 3d 20 72 61  6e 64 6f 6d 28 33 32 37  |>xv = random(327|
00000a40  36 38 29 2d 31 36 33 38  34 3b 0a 20 20 20 20 20  |68)-16384;.     |
00000a50  20 74 6f 6b 65 6e 2d 3e  79 76 20 3d 20 2d 28 72  | token->yv = -(r|
00000a60  61 6e 64 6f 6d 28 31 36  33 38 34 29 2b 31 36 33  |andom(16384)+163|
00000a70  38 34 29 3b 0a 20 20 20  20 7d 0a 20 20 7d 0a 20  |84);.    }.  }. |
00000a80  20 50 6f 70 63 6f 72 6e  5f 44 65 6c 65 74 65 4f  | Popcorn_DeleteO|
00000a90  62 6a 65 63 74 28 6f 62  6a 29 3b 0a 7d 0a        |bject(obj);.}.|
00000a9e