Can someone give me a fast vac script

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

0053D16A:
jmp newmem 
nop 
nop 
returnhere: 

newmem: 

originalcode: 
movzx eax,word ptr [esi+00000154] 

//mov eax,01 
//mov word ptr [esi+00000156],ax 
mov [esi+00000070], 41400000 // speed mob   
//40c00000 = 6 lv 1 (to replace the above blue color)
//40400000 = 12 lv 2 (to replace the above blue color)
//41c00000 = 24 lv 3 (to replace the above blue color)
mov byte ptr [esi+00000174],00 // malee attack range = 0 
mov byte ptr [esi+00000244],00 // magic attack range = 0 
mov [esi+00000240],0000000 //other attack range = 0 
mov [esi+0000023c],0000000 //other attack range = 0 
mov [esi+00000238],0000000 //other attack range = 0 
mov eax,03 
mov word ptr [esi+00000154],ax 

exit: 
jmp returnhere 


[DISABLE] 
dealloc(newmem) 

0053D16A: 
movzx eax,word ptr [esi+00000154]

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

0045C1CD:
jmp newmem
nop
returnhere:

newmem:
//DwExploreRange eax
//mov [eax+08],00000020//DwSight eax+08
mov [eax+04],00000020//DwPersuitRange eax+04
//DwAvoidRange eax+0C
//mov [eax+10],00000064//DwExploreStandDelay eax+10
//mov [eax+14],00000064//DwExploreMoveDelay eax+14
 mov [eax+18],000001F4//DwStandDelay eax+18
mov [eax+1C],000001F4//DwMoveDelay eax+1C
//DwFollowMyMasterRange eax+20
//DwStopMasterNear eax+24
//DwWarpMyMasterRange eax+28
mov [eax+2C],00000064//DwCallTeamPossibelHP eax+2C
mov [eax+30],00000020//DwCallTeamCount eax+30
mov [eax+34],00000000//DwBlockNFirstAttack eax+34//mov [eax+38],00000020//dwCallTeamCell byte[eax+38]
//dwFollowTarget eax+3C
//dwSpecialAttackStartHP
//dwSpecialMeleeAttackRate
//dwSpecialRangeAttackRate
//DwPowerAttacjStartHP
//dwPowerMeleeAttackProbable
//dwPowerRangeAttackProbable
//mov [eax+40],00000000//DwUnderAttackAggro eax+40
//mov [eax+44],00000000//DwMeleeAttackRangeInAggro eax+44
//mov [eax+48],00000000//DwRangeAttackRangeInAggro eax+48
//DwSightInAggro eax+4C
//DwDefeatAggro eax+50
mov [eax+54],00000000//DwBlockedAggro eax+54
mov [eax+58],00000000//DwSlideAggro eax+58
mov [eax+5C],00000000//DwHealAggro eax+5C
//DwMasterUnderAttackAggro eax+50
//DwMasterDefeatAggro eax+54
//DwMasterBlockingAggro eax+58
//DwMasterSlideAggro eax+5C
//DwCOmplusionUnderAttackAggro eax+60
//dwMaxSummonsMonsterCount eax+64
//dwReSummonsMonsterTick eax+68
//dwMaxSummonsMonsterRange eax+6C
//dwSummonsStartPcCountPatternType eax+70

originalcode:
mov edx,[eax+1c]
mov [ecx+20],edx


mov edx,10 // number spawn
mov [eax+8c],edx

mov edx,64 // time delay spawn
mov [eax+90],edx

mov edx,250 // # follow monster
mov [eax+3C],edx

//mov [ecx+20],edx // # follow my master
exit:
jmp returnhere


[DISABLE]
dealloc(newmem)
0045C1CD:
mov edx,[eax+1c]
mov [ecx+20],edx
alloc(newmem,256)
label(orig_00883AC2)

newmem:
push 60
push 00a9f448
call 00889d18
mov edi,00000094
mov eax,edi
call 00886430
mov [ebp-18],esp
mov esi,esp
mov [esi],edi
push esi
call dword ptr [00a2519c]
mov ecx,[esi+10]
mov [00c154a8],ecx
mov eax,[esi+04]
mov [00c154b4],eax
mov edx,[esi+08]
mov [00c154b8],edx
mov esi,[esi+0c]
and esi,00007fff
mov [00c154ac],esi
cmp ecx,02
or esi,00008000
mov [00c154ac],esi

orig_00883AC2:
shl eax,08
add eax,edx
mov [00c154b0],eax
xor esi,esi
push esi
mov edi,[00a251b0]
call edi
cmp word ptr [eax],5a4d
jne 00883afd
mov ecx,[eax+3c]
add ecx,eax