Thunder Cloud Effect Modifier [Unnamed]

File

Line

Function

/inc/class_error.php

153

errorHandler->error

/printthread.php(287) : eval()'d code

errorHandler->error_callback

/printthread.php

287

eval

/printthread.php

117

printthread_multipage

Code:

#Directives

.set mushroom, 4

.set shock, 8

.set star, 9

.set mega, 0xB

.set blooper, 0xC

.set pow, 0xD

.set bullet, 0xF

.set random_int_amt, 6



#Save C0 LR

mflr r12



#Set EVA Upper

lis r11, 0x8000



#Make LUT

bl item_value_table

.byte mushroom

.byte shock

.byte star

.byte mega

.byte blooper

.byte pow

.byte bullet

.align 2

item_value_table:

mflr r10



#Grab, increment, and check randomized int

lbz r9, 0x1500 (r11)

addi r9, r9, 1

cmplwi r9, random_int_amt

ble+ store_random_int



#Reset random int

li r9, 0



#Store random int

store_random_int:

stb r9, 0x1500 (r11)



#Based on int set item in EVA

lbzx r3, r9, r10

stb r3, 0x1501 (r11)



#Restore C0 LR

mtlr r12



#End

#blr #uncomment for Assemblers that can't do C0 codes correctly

Code:

##################################################



#### Hook Adresses #####

### 80579DCC  (NTSC-U)

### 80580630  (PAL)

### 8057FFB0  (NTSC-J)

### 8056E688  (NTSC-K)



#################################################



.set region, '' #Fill in E, P, J, or K



.if     (region == 'E' || region == 'e') #NTSC-U (Americas)

        .set PlayerHolder, 0x809BEE20

        .set ItemFunctions, 0x809BEEB0

.elseif (region == 'P' || region == 'p') #PAL

        .set PlayerHolder, 0x809C3618

        .set ItemFunctions, 0x809C36B8

.elseif (region == 'J' || region == 'j') #NTSC-J (Japan)

        .set PlayerHolder, 0x809C2678

        .set ItemFunctions, 0x809C2718

.elseif (region == 'K' || region == 'k') #RMCK (Korea)

        .set PlayerHolder, 0x809B1C58

        .set ItemFunctions, 0x809B1CF8

.else #Invalid Region

        .err #Region match not detected. Tell the Assembler to halt and throw an error.

.endif



stwu r1, -0x20(r1)

stmw r27, 0xC(r1)

srwi r27, r0, 2

mflr r0

stw r0, 8(r1)

lis r31, PlayerHolder@ha

lwz r31, PlayerHolder@l (r31)

lbz r30, 0x10(r31)

cmpw r27, r30

bge skip

mulli r0, r27, 0x248

lwz r12, 0x14(r31)

add r3, r12, r0

lwz r11, 0x90(r3)

addi r11, r11, 1

stw r11, 0x90(r3) # Add 1 to the Item count, to avoid Item loss



lis r11, 0x8000

lbz r11, 0x1501 (r11)



mulli r11, r11, 0x1C

lis r12, ItemFunctions@h

ori r12, r12, ItemFunctions@l

lwzx r12, r12, r11

mtlr r12

blrl

skip:

lwz r0, 8(r1)

mtlr r0

lmw r27, 0xC(r1)

addi r1, r1, 0x20



##############################################