Para's VanillaTool [Rework]

Quote:

Originally Posted by Diavolakos Paraly is it possible to make Vanilla "write" something in a txt file and even better add more contents to an existing txt (like append it in the end of the file or overwrite it etc)? I have 64 chars and I would love to have something like a database in an excel sheet of all my chars' items and materials. Being able to save all the item contents in my inventory and quest inventory for every char I have would be awesome. If it is too hard to make I understand. Otherwise a simple command to append some text in the end of the existing file, or a command that writes into a file, overriding it if it exists would be awesome. Something like this: Code: FileWrite=Filename.txt,Text here including variables etc; FileAppend=Filename.txt,Text here including variables etc; Now I am not sure how we could implement the "tab" ascii into this, but lets not make it too complicated. FileWrite would delete all and simply save this only, we would use it to initialize it if we make a new entry and we want to start fresh with the file. FileAppend would be used to add content. And in the filename.txt we could use it in the format of a variable probably? so we could make the file have the name of the char? ~~~ All this if it is possible to make it. the file will be saved in the same folder Vanilla is for simplicity.

LogWrite=%VANILLATOOL\Logs\%DAY-%MONTH-%YEAR--Scriptlog.txt,%HOUR:%MIN:%SEC -- ScriptLine: %Line -- Just looted a mob,+;

LogWrite=[Path],[Text],[State];

Quote:

Originally Posted by Paraly Try Code: LogWrite=%VANILLATOOL\Logs\%DAY-%MONTH-%YEAR--Scriptlog.txt,%HOUR:%MIN:%SEC -- ScriptLine: %Line -- Just looted a mob,+; Code: LogWrite=[Path],[Text],[State]; state can whether be "+" to add text to the file or "r" to rewrite the file

#IF=%FirstTime,;
UseSpeed=1;
#ENDIF

_IFInventoryContains=186000481,1; Poppy's Letter
_GetInventoryItemHandle=186000481;

_MemPtrReadVar=%PlayerBase,%OffsetName,WCHAR[32],1; <-- saves the playername in %Var1

LogWrite=%VANILLATOOL\Logs\PoppyLetter.txt, %Var1  - %VarItemAmount,+;

#ENDIF

LogWrite=%VANILLATOOL\Logs\PoppyLetter.txt,Testing,+;

Quote:

Originally Posted by Diavolakos Looks like this below code did nothing, I made a Logs folder and aPoppyLetter.txt in there (since the "r" didn't make one) and it still did nothing. Unless I wrote the command wrongly Code: #IF=%FirstTime,; UseSpeed=1; #ENDIF _IFInventoryContains=186000481,1; Poppy's Letter _GetInventoryItemHandle=186000481; _MemPtrReadVar=%PlayerBase,%OffsetName,WCHAR[32],1; <-- saves the playername in %Var1 LogWrite=%VANILLATOOL\Logs\PoppyLetter.txt, %Var1 - %VarItemAmount,+; #ENDIF I also tried a simple one and it didn't write anything to the file Code: LogWrite=%VANILLATOOL\Logs\PoppyLetter.txt,Testing,+;

Quote:

Originally Posted by Paraly I executed my code already test wise and it did work fine, remember you need at least 2 lines if you try this command as stand alone

Quote:

Originally Posted by Diavolakos Yes the command itself alone written twice writes the text twice. My mistake is that I used the IfInventoryContains while trying to see an item in quest inventory, I also realized that _GetInventoryItemHandle command also works for inventory items only. So my code was correct, I should have used IfQuestInventoryContains and find another way to count the amount of Q items I have. Is there a way to make this command change a line? Because it only writes in continuous row.

_SetVar=SearchedItemID,140020201; <-- Quest Item ID here
#EXECUTE=CheckInvSlot;
WaitForResponse=You got %Var[SearchedItemAmount] of %Var[SearchedItemID];


start_CheckInvSlot;

_SetVar=Round,0;
_SetVar=SearchedItemAmount,0;

#DO=90000;

_Calc[DynamicSlotOffset]=%Var[Round]*8;
MemWrite=%AddrFreeMem20,0,BYTE;

_IFMemPtrRead=%AddrFrameID[17],0x510/0x3B8/%Var[DynamicSlotOffset]/0x9C,DWORD,=%Var[SearchedItemID];
MemWrite=%AddrFreeMem20,1,BYTE;
_MemPtrReadVar=%AddrFrameID[17],0x510/0x3B8/%Var[DynamicSlotOffset]/0xA8,DWORD,SearchedItemAmount;
#ENDIF

#IF=%Var[Round],>101;
MemWrite=%AddrFreeMem20,2,BYTE;
#ENDIF

_Calc[Round]=%Var[Round]+1;

_UNTILMemRead=%AddrFreeMem20,BYTE,>0;

_Calc[Round]=%Var[Round]-1;


_IFMemRead=%AddrFreeMem20,BYTE,=2;
_SetVar=SearchedItemAmount,-1;
#ENDIF

end_CheckInvSlot;

Quote:

Originally Posted by Paraly Like at WaitForResponse you can use "/n" for a new line That should return the item amount of what ever quest item you have (haven't tried it though) Code: _SetVar=SearchedItemID,140020201; <-- Quest Item ID here #EXECUTE=CheckInvSlot; WaitForResponse=You got %Var[SearchedItemAmount] of %Var[SearchedItemID]; start_CheckInvSlot; _SetVar=Round,0; _SetVar=SearchedItemAmount,0; #DO=90000; _Calc[DynamicSlotOffset]=%Var[Round]*8; MemWrite=%AddrFreeMem20,0,BYTE; _IFMemPtrRead=%AddrFrameID[17],0x510/0x3B8/%Var[DynamicSlotOffset]/0x9C,DWORD,=%Var[SearchedItemID]; MemWrite=%AddrFreeMem20,1,BYTE; _MemPtrReadVar=%AddrFrameID[17],0x510/0x3B8/%Var[DynamicSlotOffset]/0xA8,DWORD,SearchedItemAmount; #ENDIF #IF=%Var[Round],>101; MemWrite=%AddrFreeMem20,2,BYTE; #ENDIF _Calc[Round]=%Var[Round]+1; _UNTILMemRead=%AddrFreeMem20,BYTE,>0; _Calc[Round]=%Var[Round]-1; _IFMemRead=%AddrFreeMem20,BYTE,=2; _SetVar=SearchedItemAmount,-1; #ENDIF end_CheckInvSlot; Edit: ok tried it and it's working fine :)

Quote:

Originally Posted by triton_0020 I run para acount manager and close inmediately, use win 10 64x

Quote:

Originally Posted by Inzinbelth Im trying to open by Acc manager and close inmediately, like triton_0020

Quote:

Originally Posted by triton_0020 I run para acount manager and close inmediately, use win 10 64x

Quote:

Originally Posted by Inzinbelth Im trying to open by Acc manager and close inmediately, like triton_0020

Quote:

Originally Posted by rr1 is the tool working?

Quote:

Originally Posted by Paraly Yes, it is working

Quote:

Originally Posted by hueaion I ask because have some troubles, when I try open "Account Manager" this just pop up for a little bit later then exit, open and close the program very fast. Can you help me?