montrer une bande dessinée

Partager vos scripts et fonctions intéressantes
garry
Posts: 3760
Joined: 22 Dec 2013, 12:50

montrer une bande dessinée

01 Jul 2016, 15:26

montrer une bande dessinée avec huit images

Code: Select all

;- montrer une bande dessinée
;- creates a folder 'blondie' in a_scriptdir with 8-pictures
;--------------------------------------------------------------
#NoEnv
setworkingdir, %a_scriptdir%
Gui,2:  -DPIScale
Gui,2:Color,black
Gui,2:Font,  S10 CDefault , Lucida Console

P1=%A_scriptdir%\blondie\P1.jpg
P2=%A_scriptdir%\blondie\P2.jpg
P3=%A_scriptdir%\blondie\P3.jpg
P4=%A_scriptdir%\blondie\P4.jpg
P5=%A_scriptdir%\blondie\P5.jpg
P6=%A_scriptdir%\blondie\P6.jpg
P7=%A_scriptdir%\blondie\P7.jpg
P8=%A_scriptdir%\blondie\P8.jpg

fd1=%A_scriptdir%\blondie
ifnotexist,%fd1%
  filecreatedir,%fd1%

;http://imgur.com/a/mKu7g
ifnotexist,%p1%
  urldownloadtofile,http://i.imgur.com/o33K7tL.jpg,%p1%
ifnotexist,%p2%
  urldownloadtofile,http://i.imgur.com/XXHnz8j.jpg,%p2%
ifnotexist,%p3%
  urldownloadtofile,http://i.imgur.com/9F7Iqv7.jpg,%p3%
ifnotexist,%p4%
  urldownloadtofile,http://i.imgur.com/LVqgrOl.jpg,%p4%
ifnotexist,%p5%
  urldownloadtofile,http://i.imgur.com/KoYFTj5.jpg,%p5%
ifnotexist,%p6%
  urldownloadtofile,http://i.imgur.com/blJIQjT.jpg,%p6%
ifnotexist,%p7%
  urldownloadtofile,http://i.imgur.com/I4CqPLT.jpg,%p7%
ifnotexist,%p8%
  urldownloadtofile,http://i.imgur.com/4ZF2FMc.jpg,%p8%

WA=%A_screenwidth%
HA=%A_screenheight%

PW :=(WA*25)/100
PH :=(HA*30)/100

X1 :=(WA*1)/100
X2 :=(WA*27)/100
X3 :=(WA*53)/100

Y1 :=(HA*1)/100
Y2 :=(HA*32)/100
Y3 :=(HA*63)/100

GH :=(PH*3)+40
GW :=(X3+PW)+10

gui,2:add,picture, x%X1%  y%Y1% h%PH% w%PW%   ,%P1%
gui,2:add,picture, x%X2%  y%Y1% h%PH% w%PW%   ,%P2%
gui,2:add,picture, x%X3%  y%Y1% h%PH% w%PW%   ,%P3%

gui,2:add,picture, x%X1%  y%Y2% h%PH% w%PW%   ,%P4%
gui,2:add,picture, x%X2%  y%Y2% h%PH% w%PW%   ,%P5%
gui,2:add,picture, x%X3%  y%Y2% h%PH% w%PW%   ,%P6%

gui,2:add,picture, x%X1%  y%Y3% h%PH% w%PW%   ,%P7%
gui,2:add,picture, x%X2%  y%Y3% h%PH% w%PW%   ,%P8%

gui,2:show,x1 y1 h%GH%  w%GW%, Blondie
return

2Guiclose:
exitapp
;=====================================================
User avatar
joedf
Posts: 8951
Joined: 29 Sep 2013, 17:08
Location: Canada
Contact:

Re: montrer une bande dessinée

05 Jul 2016, 07:30

You should translate that second comment haha :p
Image Image Image Image Image
Windows 10 x64 Professional, Intel i5-8500, NVIDIA GTX 1060 6GB, 2x16GB Kingston FURY Beast - DDR4 3200 MHz | [About Me] | [About the AHK Foundation] | [Courses on AutoHotkey]
[ASPDM - StdLib Distribution] | [Qonsole - Quake-like console emulator] | [LibCon - Autohotkey Console Library]

Return to “Scripts et Fonctions”

Who is online

Users browsing this forum: No registered users and 15 guests