Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #SingleInstance,force
- #HotkeyInterval 2000 ; This is the default value (milliseconds).
- #MaxHotkeysPerInterval 2000
- #Include,<hellbents_gdip>
- SetBatchLines,-1
- win:=Layered_Window_SetUp(4,0,0,550,550,1,"+alwaysontop")
- brush:=[]
- brush.push(new_brush("000000"))
- brush.push(new_brush("000000","50"))
- brush.push(new_brush("0ff000"))
- fill_box(win.g,brush[1],0,0,win.w,win.h)
- ;~ fill_box(win.g,brush[3],0,0,win.w/2,win.h/2)
- UpdateLayeredWindow(win.hwnd, win.hdc, win.x, win.y, win.w, win.h)
- gui,1:show,,guiWindow
- ;~ SetTimer,tooltip,1
- InputBox,g
- w:=6*g
- h:=4*g
- r:=15*g
- map:=Gdip_CreateBitmap(w, h)
- G := Gdip_GraphicsFromImage(map)
- fill_box(g,brush[3],0,0,w,h)
- MsgBox:=Gdip_CreateBitmapFromFile("msgbox.png")
- ;~ G1 := Gdip_GraphicsFromImage(msgbox)
- t:=0
- x0:=250
- y0:=250
- loop {
- t+=25
- Sleep 100
- ;~ ToolTip,% sinG(t)
- fill_box(win.g,brush[2],0,0,win.w,win.h)
- ;~ turn_in_graphics(win.g ,x0+2*r,y0-r,0,msgbox)
- ;~ mapClone:=map
- loop 5 {
- k:=t+25*A_Index
- turn_in_graphics(win.g ,x0+R*cosG(k),y0+R*sinG(k),k,map)
- }
- UpdateLayeredWindow(win.hwnd, win.hdc)
- }
- return
- tooltip:
- WinGetPos,x,y,,,guiWindow
- ;~ tooltip,% x "`n" y
- win.x:=x
- win.y:=y
- return
- r::
- Reload
- GuiClose:
- GuiEscape:
- *x::
- Layered_Window_ShutDown(win)
- gdip_deletebrush(pbrush)
- ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement