SCRW
bzero(vid, SCRW*SCRH);
mul = ((krandom() & 7) + 1) * (SCRW / 320);
org_x = krandom() % SCRW; org_y = krandom() % SCRH;
if (x < 0 || y < 0 || SCRW <= x || SCRH <= y) {
vid[x + y * SCRW] = val;
bzero(vid, SCRW*SCRH);
for (i = 0; i < SCRW; i += 2)
for (j = 1, k = SCRW; j < SCRH; j++)
for (i = 0; i < SCRW; i += 2, k += 2)
vid[k] = (vid[k-SCRW] < RAINMAX) ? 1 + vid[k-SCRW] : 1;
star[i] = krandom() % (SCRW*SCRH);
if (star[k] > SCRW*SCRH)
star[k] -= SCRW*SCRH;
bzero(vid, SCRW*SCRH);