TWW - Seed function

/* __thiscall JMath::TRandom_enough_::setSeed(unsigned long) */

void __thiscall setSeed(TRandom_enough_ *this,ulong param_1)

{
  uint *puVar1;
  uint extraout_r4;
  uint extraout_r4_00;
  int iVar2;
  int iVar3;
  undefined8 uVar4;

  uVar4 = FUN_8032693c();
  puVar1 = (uint *)((ulonglong)uVar4 >> 0x20);
  puVar1[1] = 0;
  *puVar1 = (int)uVar4 + 1;
  if (*puVar1 == 0) {
    *puVar1 = 1;
  }
  iVar2 = 8;
  do {
    __mod2u((int)((ulonglong)*puVar1 * 0x41a7 >> 0x20),*puVar1 * 0x41a7,0,0x7fffffff);
    *puVar1 = extraout_r4;
    iVar2 = iVar2 + -1;
  } while (iVar2 != 0);
  iVar3 = 0x20;
  iVar2 = 0x80;
  do {
    iVar3 = iVar3 + -1;
    __mod2u((int)((ulonglong)*puVar1 * 0x41a7 >> 0x20),*puVar1 * 0x41a7,0,0x7fffffff);
    *puVar1 = extraout_r4_00;
    *(uint *)((int)puVar1 + iVar2 + 4) = *puVar1;
    iVar2 = iVar2 + -4;
  } while (iVar3 != 0);
  FUN_80326988();
  return;
}