Advertisement
pastamaker

loading

Jun 6th, 2018
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #SingleInstance,force
  2.  
  3.  
  4. #HotkeyInterval 2000  ; This is  the default value (milliseconds).
  5. #MaxHotkeysPerInterval 2000
  6. #Include,<hellbents_gdip>
  7. SetBatchLines,-1
  8. win:=Layered_Window_SetUp(4,0,0,550,550,1,"+alwaysontop")
  9.  
  10. brush:=[]
  11. brush.push(new_brush("000000"))
  12. brush.push(new_brush("000000","50"))
  13. brush.push(new_brush("0ff000"))
  14. fill_box(win.g,brush[1],0,0,win.w,win.h)
  15. ;~ fill_box(win.g,brush[3],0,0,win.w/2,win.h/2)
  16. UpdateLayeredWindow(win.hwnd, win.hdc, win.x, win.y, win.w, win.h)
  17. gui,1:show,,guiWindow
  18. ;~ SetTimer,tooltip,1
  19. InputBox,g
  20. w:=6*g
  21. h:=4*g
  22. r:=15*g
  23. map:=Gdip_CreateBitmap(w, h)
  24.  
  25. G := Gdip_GraphicsFromImage(map)
  26.  
  27. fill_box(g,brush[3],0,0,w,h)
  28.  
  29. MsgBox:=Gdip_CreateBitmapFromFile("msgbox.png")
  30. ;~ G1 := Gdip_GraphicsFromImage(msgbox)
  31.  
  32.  
  33. t:=0
  34.  
  35. x0:=250
  36. y0:=250
  37. loop {
  38.     t+=25
  39. Sleep 100
  40. ;~ ToolTip,% sinG(t)
  41.     fill_box(win.g,brush[2],0,0,win.w,win.h)
  42.     ;~ turn_in_graphics(win.g ,x0+2*r,y0-r,0,msgbox)
  43. ;~ mapClone:=map
  44. loop 5 {
  45.     k:=t+25*A_Index
  46. turn_in_graphics(win.g ,x0+R*cosG(k),y0+R*sinG(k),k,map)
  47.  
  48. }
  49.  
  50. UpdateLayeredWindow(win.hwnd, win.hdc)
  51. }
  52. return
  53.  
  54.  
  55. tooltip:
  56. WinGetPos,x,y,,,guiWindow
  57. ;~ tooltip,% x "`n" y
  58. win.x:=x
  59. win.y:=y
  60. return
  61.  
  62.  
  63. r::
  64. Reload
  65.  
  66. GuiClose:
  67. GuiEscape:
  68. *x::
  69.  
  70.  
  71. Layered_Window_ShutDown(win)
  72. gdip_deletebrush(pbrush)
  73. ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement