.set noat      # allow manual use of $at
.set noreorder # don't insert nops after branches

glabel func_802380E4_6F11C4
/* 6F11C4 802380E4 27BDFFE0 */  addiu     $sp, $sp, -0x20
/* 6F11C8 802380E8 AFB10014 */  sw        $s1, 0x14($sp)
/* 6F11CC 802380EC 0080882D */  daddu     $s1, $a0, $zero
/* 6F11D0 802380F0 AFBF0018 */  sw        $ra, 0x18($sp)
/* 6F11D4 802380F4 AFB00010 */  sw        $s0, 0x10($sp)
/* 6F11D8 802380F8 0C09A75B */  jal       get_actor
/* 6F11DC 802380FC 8E240148 */   lw       $a0, 0x148($s1)
/* 6F11E0 80238100 0C09A75B */  jal       get_actor
/* 6F11E4 80238104 84440428 */   lh       $a0, 0x428($v0)
/* 6F11E8 80238108 24030063 */  addiu     $v1, $zero, 0x63
/* 6F11EC 8023810C 3C108024 */  lui       $s0, %hi(D_8023BB98_6F4C78)
/* 6F11F0 80238110 2610BB98 */  addiu     $s0, $s0, %lo(D_8023BB98_6F4C78)
/* 6F11F4 80238114 AE230084 */  sw        $v1, 0x84($s1)
/* 6F11F8 80238118 8C420008 */  lw        $v0, 8($v0)
/* 6F11FC 8023811C 8E030000 */  lw        $v1, ($s0)
/* 6F1200 80238120 9042001E */  lbu       $v0, 0x1e($v0)
/* 6F1204 80238124 00620018 */  mult      $v1, $v0
/* 6F1208 80238128 00001812 */  mflo      $v1
/* 6F120C 8023812C 3C0251EB */  lui       $v0, 0x51eb
/* 6F1210 80238130 3442851F */  ori       $v0, $v0, 0x851f
/* 6F1214 80238134 00620018 */  mult      $v1, $v0
/* 6F1218 80238138 24040064 */  addiu     $a0, $zero, 0x64
/* 6F121C 8023813C 00031FC3 */  sra       $v1, $v1, 0x1f
/* 6F1220 80238140 00003010 */  mfhi      $a2
/* 6F1224 80238144 00061143 */  sra       $v0, $a2, 5
/* 6F1228 80238148 00431023 */  subu      $v0, $v0, $v1
/* 6F122C 8023814C 0C00A67F */  jal       rand_int
/* 6F1230 80238150 AE020000 */   sw       $v0, ($s0)
/* 6F1234 80238154 8E030000 */  lw        $v1, ($s0)
/* 6F1238 80238158 0062182A */  slt       $v1, $v1, $v0
/* 6F123C 8023815C 54600001 */  bnel      $v1, $zero, .L80238164
/* 6F1240 80238160 AE200084 */   sw       $zero, 0x84($s1)
.L80238164:
/* 6F1244 80238164 8FBF0018 */  lw        $ra, 0x18($sp)
/* 6F1248 80238168 8FB10014 */  lw        $s1, 0x14($sp)
/* 6F124C 8023816C 8FB00010 */  lw        $s0, 0x10($sp)
/* 6F1250 80238170 24020002 */  addiu     $v0, $zero, 2
/* 6F1254 80238174 03E00008 */  jr        $ra
/* 6F1258 80238178 27BD0020 */   addiu    $sp, $sp, 0x20