Quote:
Originally Posted by Hacktos
Paraly I want to 3D print my character, can you give me a script that takes several screenshots from different angles?
|
There you go :)
5.8
Code:
#IF=%FirstTime,;
#SmoothBackground
#EXECUTE=SetResolution;
Delay=500;
#NeedResolution=816,638;
Delay=500;
#NeedResolution=816,638;
Delay=500;
#UseGravity
#UseCollision
_SetVar1=0; start point
_SetVar2=0; counter
#SetVar4=How much screenshots you want to take?/n/n50-100 recommended;
_Calc3=360/%Var4; step
_Calc5=%Var4*4;
WaitForResponse=Be sure you stay in Sanctum/n/nBe sure hide UI is binded to F12 (should be by default)/n/nEstimated time for the 360 scan: %Var5 seconds;
#ENDIF
_MemPtrReadVar=%PlayerBase,%OffsetPosX,FLOAT,6;
_MemPtrReadVar=%PlayerBase,%OffsetPosY,FLOAT,7;
_MemPtrReadVar=%PlayerBase,%OffsetPosZ,FLOAT,8;
MemPtrWrite=%PlayerBase,%OffsetPosX,10000,FLOAT;
MemPtrWrite=%PlayerBase,%OffsetPosY,10000,FLOAT;
MemPtrWrite=%PlayerBase,%OffsetPosZ,100,FLOAT;
MoveTo=10000,10000,100,True,False;
FrameAction=459,State,SHOW;
FrameAction=459,XPOS,0;
FrameAction=459,YPOS,0;
Delay=500;
Mouse=282,26;
WaitForResponse=Select an Animation you like/nOnce you found one set the "Speed" to 0 and click again on the animation to stop the playback/n/nYou can resize the window to fullscreen again to take higher quality screenshots;
TrayInfo=Press "Delete" to start taking the screenshots from different angles;
WaitForKey=2E,1;
SendKey=0x7B; Hide UI
#DO=9999000;
MemWrite=%AddrCamX,%Var1,FLOAT;
MemWrite=%AddrCamY,0,FLOAT;
MemPtrWrite=%AddrThirdPerson,%OffsetThirdPerson,3.7,FLOAT;
_Calc1=%Var1+%Var3;
_Calc2=%Var2+1;
Console=\r_GetScreenShot 1;
MemWrite=%AddrFreeMem8,%Var2,DWORD;
_IFMemRead=%AddrFreeMem8,DWORD,=%Var4;
SendKey=0x7B; Show UI
MoveTo=%Var6,%Var7,%Var8,False,False;
WaitForResponse=Finished;
#EndScript
#ENDIF
_UNTILMemPtrRead=%AddrChat,0x510/0x370/0x0,WCHAR[32],=stop screen;
MoveTo=%Var6,%Var7,%Var8,False,False;
SendKey=0x7B; Show UI
start_SetResolution; <-- resizes client without using real mouse
Console=\r_Height 600;
Console=\r_Width 800;
end_SetResolution;
6.2
Code:
#IF=%FirstTime,;
#SmoothBackground
#EXECUTE=SetResolution;
Delay=500;
#NeedResolution=816,638;
Delay=500;
#NeedResolution=816,638;
Delay=500;
#UseGravity
#UseCollision
_SetVar1=0; start point
_SetVar2=0; counter
#SetVar4=How much screenshots you want to take?/n/n50-100 recommended;
_Calc3=360/%Var4; step
_Calc5=%Var4*4;
WaitForResponse=Be sure you stay in Sanctum/n/nBe sure hide UI is binded to F12 (should be by default)/n/nEstimated time for the 360 scan: %Var5 seconds;
#ENDIF
_MemPtrReadVar=%PlayerBase,%OffsetPosX,FLOAT,6;
_MemPtrReadVar=%PlayerBase,%OffsetPosY,FLOAT,7;
_MemPtrReadVar=%PlayerBase,%OffsetPosZ,FLOAT,8;
MemPtrWrite=%PlayerBase,%OffsetPosX,10000,FLOAT;
MemPtrWrite=%PlayerBase,%OffsetPosY,10000,FLOAT;
MemPtrWrite=%PlayerBase,%OffsetPosZ,100,FLOAT;
MoveTo=10000,10000,100,True,False;
FrameAction=469,State,SHOW;
FrameAction=469,XPOS,0;
FrameAction=469,YPOS,0;
Delay=500;
Mouse=282,26;
WaitForResponse=Select an Animation you like;
TrayInfo=Press "Delete" to freeze the animation and start taking the screenshots from different angles;
WaitForKey=2E,1;
Console=\ca_NoAnim 1;
Console=\es_CamHeight -1;
SendKey=0x7B; Hide UI
#DO=9999000;
MemWrite=%AddrCamX,%Var1,FLOAT;
MemWrite=%AddrCamY,0,FLOAT;
MemPtrWrite=%AddrThirdPerson,%OffsetThirdPerson,3.7,FLOAT;
_Calc1=%Var1+%Var3;
_Calc2=%Var2+1;
Console=\r_GetScreenShot 1;
MemWrite=%AddrFreeMem8,%Var2,DWORD;
_IFMemRead=%AddrFreeMem8,DWORD,=%Var4;
SendKey=0x7B; Show UI
MoveTo=%Var6,%Var7,%Var8,False,False;
WaitForResponse=Finished;
#EndScript
#ENDIF
_UNTILMemPtrRead=%AddrChat,0x510/0x370/0x0,WCHAR[32],=stop screen;
MoveTo=%Var6,%Var7,%Var8,False,False;
Console=\ca_NoAnim 0;
Console=\es_CamHeight 1.6;
SendKey=0x7B; Show UI
start_SetResolution; <-- resizes client without using real mouse
Console=\r_Height 600;
Console=\r_Width 800;
end_SetResolution;
Seems to work great just tested it
[Only registered and activated users can see links. Click Here To Register...]