Need Help and Understanding on Updating Ce Scripts

how do i update these 2 scripts ?

[ENABLE]
alloc(newmem,1024)
label(returnhere)
label(originalcode)
label(exit)

00697EBA:
jmp newmem
nop
nop
returnhere:

newmem:
mov [eax+ebx*4+00000898],00000000

originalcode:
mov ebx,[eax+ebx*4+00000898]

exit:
jmp returnhere

[DISABLE]
dealloc(newmem)
00697EBA:
mov ebx,[eax+ebx*4+00000898]

--------------------------------------------------------------------------

[ENABLE]
alloc(newmem,1024)
label(returnhere)
label(originalcode)
label(exit)

00717E75:
jmp newmem
nop

returnhere:

newmem:

originalcode:
xor ecx,ecx
mov [edx+64],ecx
mov ecx,[edx+64]
mov [eax+64],ecx

exit:
jmp returnhere

[DISABLE]
dealloc(newmem)

00717E75:
mov ecx ,[edx+64]
mov [eax+64],ecx

Skill hacks or pet hacks discussion are not alowed on this forum m8 but nice try.