cnodnarb Professional Member
Joined: 11 Sep 2002 Posts: 762 Location: Rockeledge, GA
|
Posted: Tue Aug 28, 2012 2:37 pm Post subject: Anybody play Diablo III? |
|
|
[edit]
Feel free to use and compile this code, but be aware it is copywrited so do not distribute compilations / modifications thereof that contain more than 10% of the below original code.
Code: |
inifile open,@path(%0)d3help.ini
title Diablo III Helper
DIALOG CREATE,Diablo III Helper,-1,0,424,459
DIALOG ADD,STYLE,STYLE1,,,B,,
DIALOG ADD,list,list1,0,0,0,0
REM *** Modified by Dialog Designer on 8/28/2012 - 07:50 ***
DIALOG ADD,GROUP,GROUP1,15,27,180,126,Primary Loop
DIALOG ADD,GROUP,GROUP2,150,27,180,126,Secondary Loop
DIALOG ADD,CHECK,CHECK1,39,34,30,18,1
DIALOG ADD,CHECK,CHECK2,63,34,30,18,2
DIALOG ADD,CHECK,CHECK3,87,34,30,18,3
DIALOG ADD,CHECK,CHECK4,109,34,30,18,4
DIALOG ADD,CHECK,CHECK5,39,72,90,18,Q (Potions)
DIALOG ADD,CHECK,CHECK6,63,73,80,18,Right Click
DIALOG ADD,CHECK,CHECK7,86,72,70,18,Left Click
DIALOG ADD,CHECK,sCHECK1,174,34,30,18,1
DIALOG ADD,CHECK,sCHECK2,198,34,30,18,2
DIALOG ADD,CHECK,sCHECK3,222,34,30,18,3
DIALOG ADD,CHECK,sCHECK4,244,34,30,18,4
DIALOG ADD,CHECK,sCHECK5,174,72,90,18,Q (Potions)
DIALOG ADD,CHECK,sCHECK6,198,73,80,18,Right Click
DIALOG ADD,CHECK,sCHECK7,222,72,70,18,Left Click
DIALOG ADD,GROUP,GROUP4,13,211,186,123,Launcher
DIALOG ADD,BUTTON,Button1,30,220,90,24,Launch Game
DIALOG ADD,GROUP,Group3,146,218,197,97,Performance Warp
DIALOG ADD,MENU,System,Kill Explorer,Start Explorer,-,Kill DWM,Start DWM,-,Setup/Update Second Launch (Robocopy),Remove Second Launch,-,Search for Iobit Game Booster
DIALOG ADD,MENU,Options,Calibrate Window Borders,-,Set Directory,-,Ontop this session
DIALOG ADD,TEXT,TEXT1,281,26,,,HOME starts loop,,STYLE1
DIALOG ADD,TEXT,TEXT2,299,27,,,END stops loop,,STYLE1
DIALOG ADD,CHECK,CHECK8,86,220,100,18,High Priority,1
DIALOG ADD,BUTTON,BUTTON6,58,220,90,24,Launch 2nd
DIALOG ADD,CHECK,CHECK9,108,220,100,18,Windowed,1
DIALOG ADD,TEXT,TEXT3,134,224,,,Windowed
DIALOG ADD,GROUP,GROUP5,250,223,133,83,Update Diablo III
DIALOG ADD,BUTTON,BUTTON8,271,230,115,24,Launch Updater
DIALOG ADD,BUTTON,BUTTON9,297,230,115,24,Update 2nd Launch
DIALOG ADD,BUTTON,BUTTON10,249,181,20,24,?
DIALOG ADD,BUTTON,BUTTON11,112,176,20,24,?
DIALOG ADD,TEXT,TEXT4,92,325,,,Cores
DIALOG ADD,EDIT,EDIT1,105,323,41,19
DIALOG ADD,BUTTON,BUTTON12,102,367,16,24,!
DIALOG ADD,TEXT,TEXT5,173,340
DIALOG ADD,BUTTON,BUTTON7,155,390,20,24,?
DIALOG ADD,BUTTON,BUTTON13,173,228,100,24,<-Stretch->
DIALOG ADD,GROUP,GROUP6,325,15,400,85,"Quick % Calc"
DIALOG ADD,EDIT,EDIT5,350,20,50,19
DIALOG ADD,BUTTON,TEXT13,351,70,20,20,+
DIALOG ADD,EDIT,EDIT6,350,89,55,19
DIALOG ADD,TEXT,TEXT14,352,150,,,==>
DIALOG ADD,EDIT,EDIT2,350,175,50,24
DIALOG ADD,TEXT,TEXT6,352,230,,,/
DIALOG ADD,EDIT,EDIT3,350,250,50,24
DIALOG ADD,TEXT,TEXT7,352,305,,,=
DIALOG ADD,EDIT,EDIT4,350,320,50,24
DIALOG ADD,TEXT,TEXT8,352,375,,,"%"
DIALOG ADD,EDIT,EDIT5b,375,20,50,19
DIALOG ADD,BUTTON,TEXT13b,376,70,20,20,+
DIALOG ADD,EDIT,EDIT6b,375,89,55,19
DIALOG ADD,TEXT,TEXT14b,377,150,,,==>
DIALOG ADD,EDIT,EDIT2b,375,175,50,24
DIALOG ADD,TEXT,TEXT6b,377,230,,,/
DIALOG ADD,EDIT,EDIT3b,375,250,50,24
DIALOG ADD,TEXT,TEXT7b,377,305,,,=
DIALOG ADD,EDIT,EDIT4b,375,320,50,24
DIALOG ADD,TEXT,TEXT8b,377,375,,,"%"
DIALOG ADD,text,ratio,202,228,,,ASPECT RATIO
DIALOG ADD,TEXT,TEXT9,217,228,,,4:3 -
DIALOG ADD,TEXT,TEXT10,217,254,,,00"%"
DIALOG ADD,TEXT,TEXT11,217,297,,,16:9 -
DIALOG ADD,TEXT,TEXT12,217,331,,,00"%"
DIALOG SHOW
list loadtext,list1,
"CPU Value Dec++ Hex++
"0 1 1 1
"1 2 3 3
"2 4 7 7
"3 8 15 F
"4 16 31 1F
"5 32 63 3F
"6 64 127 7F
"7 128 255 FF
"
"Processor 0 VALUE + processor 2 VALUE = 0x05
dialog disable,edit1
rem wait event
%%magich = @iniread(barheight,barheight)
if @null(%%magich)
%%magich = 38
inifile write,barheight,barheight,38
end
%%magicw = @iniread(barw,barw)
if @null(%%magicw)
%%magicw = 16
inifile write,barw,barw,16
end
%%prime = @iniread(directory,directory)
if @null(%%prime)
%%ask = @ask(Set directory to @chr(34)"C:\Program Files (x86)\Diablo III"@chr(34)?)
if %%ask
%%prime = c:\program files (x86)\Diablo III
inifile write,directory,directory,%%prime
else
goto Set Directorymenu
end
end
random @datetime(hhnnss)
hotkey add,home,home
hotkey add,end,end
:evloop
if @winexists(diablo iii)
if @equal(%%ignore,true)
%%t = @winpos(diablo iii,t)
%%l = @winpos(diablo iii,l)
%%w = @winpos(diablo iii,w)
%%h = @winpos(diablo iii,h)
%%ignore = false
goto skipupdate
end
if @not(@equal(@winpos(diablo iii,s),2))
if @not(@equal(%%t,@winpos(diablo iii,t)))@not(@equal(%%l,@winpos(diablo iii,l)))@not(@equal(%%w,@winpos(diablo iii,w)))@not(@equal(%%h,@winpos(diablo iii,h)))
dialog set,text5,@diff(@winpos(diablo iii,w),%%magicw)x@diff(@winpos(diablo iii,h),%%magich)@cr()@diff(100,@name(@fmul(@fdiv(@fmul(@diff(@winpos(diablo iii,w),%%magicw),@diff(@winpos(diablo iii,h),%%magich)),@fmul(@sysinfo(screenwidth),@sysinfo(screenheight))),100)))"%" boost
dialog set,text10,@name(@fmul(@fdiv(@fdiv(@diff(@winpos(diablo iii,w),%%magicw),4),@fdiv(@diff(@winpos(diablo iii,h),%%magich),3)),100))"%"
dialog set,text12,@name(@fmul(@fdiv(@fdiv(@diff(@winpos(diablo iii,w),%%magicw),16),@fdiv(@diff(@winpos(diablo iii,h),%%magich),9)),100))"%"
%%t = @winpos(diablo iii,t)
%%l = @winpos(diablo iii,l)
%%w = @winpos(diablo iii,w)
%%h = @winpos(diablo iii,h)
end
end
:skipupdate
else
dialog set,text5,Window@cr()not open.
end
option errortrap,evloop
if @both(@numeric(@dlgtext(edit5)),@numeric(@dlgtext(edit6)))
if @equal(@wintext(~text13),+)
dialog set,edit2,@dlgtext(edit5)
dialog set,edit3,@fadd(@dlgtext(edit5),@dlgtext(edit6))
dialog set,text8,"% gain"
else
dialog set,edit3,@dlgtext(edit5)
dialog set,edit2,@fsub(@dlgtext(edit5),@dlgtext(edit6))
dialog set,text8,"% loss"
end
end
if @both(@numeric(@dlgtext(edit5b)),@numeric(@dlgtext(edit6b)))
if @equal(@wintext(~text13b),+)
dialog set,edit2b,@dlgtext(edit5b)
dialog set,edit3b,@fadd(@dlgtext(edit5b),@dlgtext(edit6b))
dialog set,text8b,"% gain"
else
dialog set,edit3b,@dlgtext(edit5b)
dialog set,edit2b,@fsub(@dlgtext(edit5b),@dlgtext(edit6b))
dialog set,text8b,"% loss"
end
end
if @both(@numeric(@dlgtext(edit2)),@numeric(@dlgtext(edit3)))
if @both(@not(@equal(@dlgtext(edit2),0)),@not(@equal(@dlgtext(edit3),0)))
dialog set,edit4,@diff(100,@name(@fmul(@fdiv(@dlgtext(edit2),@dlgtext(edit3)),100)))
end
end
if @both(@numeric(@dlgtext(edit2b)),@numeric(@dlgtext(edit3b)))
if @both(@not(@equal(@dlgtext(edit2b),0)),@not(@equal(@dlgtext(edit3b),0)))
dialog set,edit4b,@diff(100,@name(@fmul(@fdiv(@dlgtext(edit2b),@dlgtext(edit3b)),100)))
end
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @equal(%%hotkey,true)
%%mincount = @sum(%%mincount,3)
if @dlgtext(check1)
window send,@winactive(),1
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(check2)
window send,@winactive(),2
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(check3)
window send,@winactive(),3
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(check4)
window send,@winactive(),4
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(check5)
window send,@winactive(),q
end
wait .1
%%event = @event()
if %%event
goto %%event
end
rem info @mousepos(x) - @winpos(@winactive(),L)
if @dlgtext(check6)
window rclick,@winactive(),@diff(@mousepos(x),@winpos(@winactive(),L)),@diff(@mousepos(y),@winpos(@winactive(),T))
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(check7)
window click,@winactive(),@diff(@mousepos(x),@winpos(@winactive(),L)),@diff(@mousepos(y),@winpos(@winactive(),T))
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @equal(%%mincount,60)
%%mincount = 0
if @dlgtext(scheck1)
window send,@winactive(),1
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(scheck2)
window send,@winactive(),2
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(scheck3)
window send,@winactive(),3
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(scheck4)
window send,@winactive(),4
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(scheck5)
window send,@winactive(),q
end
wait .1
%%event = @event()
if %%event
goto %%event
end
rem info @mousepos(x) - @winpos(@winactive(),L)
if @dlgtext(scheck6)
window rclick,@winactive(),@diff(@mousepos(x),@winpos(@winactive(),L)),@diff(@mousepos(y),@winpos(@winactive(),T))
end
wait .1
%%event = @event()
if %%event
goto %%event
end
if @dlgtext(scheck7)
window click,@winactive(),@diff(@mousepos(x),@winpos(@winactive(),L)),@diff(@mousepos(y),@winpos(@winactive(),T))
end
wait .1
%%event = @event()
if %%event
goto %%event
end
end
end
goto evloop
:button1button
if @equal(@dlgtext(edit1),"")
%%aff = ""
else
%%aff = " /affinity "@dlgtext(edit1)" "
end
%%pri = normal
if @dlgtext(check8)
%%pri = high
end
%%w = ""
if @dlgtext(check9)
%%w = -w
end
run cmd /C start @chr(34)d3@chr(34) %%aff /%%pri @chr(34)%%prime\Diablo III.exe@chr(34) %%w -launch
goto evloop
:button6button
if @not(@file(%%prime - Copy\Diablo III.exe))
%%ask = @ask(Second launch has not been setup yet. Would you like to do this now?)
if %%ask
%%ask = ""
goto setup/update second launchmenu
else
goto evloop
end
end
if @equal(@dlgtext(edit1),"")
%%aff = ""
else
%%aff = " /affinity "@dlgtext(edit1)" "
end
%%pri = normal
if @dlgtext(check8)
%%pri = high
end
%%w = ""
if @dlgtext(check9)
%%w = -w
end
run cmd /C start @chr(34)d3@chr(34) %%aff /%%pri @chr(34)%%prime - Copy\Diablo III.exe@chr(34) %%w -launch
goto evloop
:button4button
window position,diablo iii,,,@diff(@winpos(diablo iii,w),@name(@fdiv(@winpos(diablo iii,w),10))),
goto evloop
:button3button
window position,diablo iii,,,@sum(@winpos(diablo iii,w),@name(@fdiv(@winpos(diablo iii,w),10))),
goto evloop
:calibrate window bordersmenu
window position,diablo iii,,,800,600
%%magich = @diff(@winpos(diablo iii,h),600)
inifile write,barheight,barheight,%%magich
%%magicw = @diff(@winpos(diablo iii,w),800)
inifile write,barw,barw,%%magicw
goto evloop
:button5button
window position,diablo iii,,,,@sum(@winpos(diablo iii,h),@name(@fdiv(@winpos(diablo iii,h),10)))
goto evloop
:hotkey
%%hot = @hotkey()
if @equal(%%hot,home)
%%hotkey = true
else
%%hotkey = false
end
goto evloop
:close
exit
:start dwmmenu
runh net start @chr(34)Desktop Window Manager Session Manager@chr(34)
goto evloop
:kill dwmmenu
runh net stop @chr(34)Desktop Window Manager Session Manager@chr(34)
goto evloop
:start explorermenu
directory change,@windir()
runh explorer.exe
goto evloop
:kill explorermenu
runh taskkill /im explorer.exe /f
goto evloop
:button7button
info "Resize the window to establish a boost %. When you are happy click the <-Stretch-> button to go full screen with the boost, the numbers reported are for rendered window not window size."@cr()@cr()"IF YOU CAN'T MOVE the window then go to options and set the title bar height to 0 then click stretch."
rem info Boost do not take effect until you move/drag the window a little. If you want to maintain the current boost at a different size (stretch the window) do not move the window.
goto evloop
:button9button
:setup/update second launch (Robocopy)menu
run robocopy @chr(34)%%prime@chr(34) @chr(34)%%prime - Copy@chr(34) /E
goto evloop
:Remove Second Launchmenu
%%ask = @ask(Delete 2nd Launch?)
if %%ask
file delete,%%prime - Copy,Confirm,Allowundo,Showerrors
else
info Operation Aborted
end
goto evloop
:set directorymenu
%%prime = @dirdlg(Set Directory)
if @null(%%prime)
info Operation did not complete properly! Please relaunch the program.
inifile write,directory,directory,%%prime
stop
end
inifile write,directory,directory,%%prime
goto evloop
:button8button
run %%prime\Diablo III Launcher.exe
goto evloop
:button10button
info Items in this loop fire once every 20 seconds.
goto evloop
:button11button
info Items in this loop fire once every second.
goto evloop
:Search for Iobit Game Boostermenu
shell open,https://www.google.com/search?btnG=1&pws=0&q=iobit+game+booster
goto evloop
:button12button
info @text(list1)
info "Setting to first and second physical and unlocking option. If you did this by mistake, blank out the text box."
dialog enable,edit1
dialog set,edit1,0x05
goto evloop
:button13button
%%k = @strdel(@winexists(diablo iii),1,1)
rem info @winpos(@winexists(~button1),l) @winpos(@winexists(~button1),t)
LOADLIB user32.dll
%%SetWindowPos = @lib(user32.dll,SetWindowPos,INT:,%%k,0,-@name(@fdiv(%%magicw,2)),-@diff(%%magich,@name(@fdiv(%%magicw,2))),@sum(@sysinfo(screenwidth),%%magicw),@sum(@sysinfo(screenheight),@sum(%%magich,@name(@fdiv(%%magicw,2)))),$0040)
FREELIB user32.dll
%%ignore = true
rem window position,diablo iii,0,0,@sysinfo(screenwidth),@sysinfo(screenheight)
goto evloop
:Height of window titlemenu
%%input = @input(Height please,@iniread(barheight,barheight))
if @numeric(%%input)
%%magich = %%input
inifile write,barheight,barheight,%%magich
end
goto evloop
:Width of window bordersmenu
%%input = @input(Width please,@iniread(barw,barw))
if @numeric(%%input)
%%magicw = %%input
inifile write,barw,barw,%%magicw
end
goto evloop
:ontop this sessionmenu
window ontop,Diablo III Helper
goto evloop
:TEXT13button
if @equal(@wintext(~text13),+)
dialog set,text13,-
else
dialog set,text13,+
end
goto evloop
:TEXT13bbutton
if @equal(@wintext(~text13b),+)
dialog set,text13b,-
else
dialog set,text13b,+
end
goto evloop |
|
|