Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Rekomendowane odpowiedzi

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

Zajebiste (inaczej się nie da tego opisać :D)

Dzięki za wstawke, będzie co analizować ;p

 

+sik

981841412442977292370.png
wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

Opublikowano

epickie ;)

Ta kostka czasem się wydłuża jak sie dobrze przypatrzec :P

 

PS: Nie rozumiem na jakiej podstawie stwierdziłeś dla adminów ,że nie umiem pętli for ... :P

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

  • Autor
Opublikowano

@up

masz łatwiejszego sześciana, jak byś chciał więcej projektów UEZ'a to pisz gg

 

;coded by UEZ 2010

#AutoIt3Wrapper_UseUpx=n

#AutoIt3Wrapper_Run_Obfuscator=y

#Obfuscator_Parameters=/sf /sv /om /cs=0 /cn=0

#AutoIt3Wrapper_Run_After=del /f /q "Rotating Cube 2_Obfuscated.au3"

;~ #AutoIt3Wrapper_Run_After=upx.exe --best "%out%"

#AutoIt3Wrapper_Run_After=upx.exe --ultra-brute "%out%"

#include <GDIPlus.au3>

 

Opt("MustDeclareVars", 1)

Opt("GUIOnEventMode", 1)

Opt("MouseCoordMode", 1)

 

Local Const $Width = 800

Local Const $Height = 600

 

Local $hwnd = GUICreate("Rotating Cube 2 v0.80 Build 2010-04-06 by UEZ 2010 (use mouse wheel to zoom)", $Width, $Height)

 

GUISetState()

 

If @OSBuild < 7600 Then WinSetTrans($hwnd,"", 0xFF) ;workaround for XP machines when alpha blending is activated on _GDIPlus_GraphicsClear() function to avoid slow drawing

 

_GDIPlus_Startup()

Local $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)

Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($Width, $Height, $hGraphics)

Local $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

_GDIPlus_GraphicsClear($hBackbuffer)

_GDIPlus_GraphicsSetSmoothingMode($hBackbuffer, 2)

 

Local $hPen = _GDIPlus_PenCreate(0x400000F0, 1)

Local $hBrush1 = _GDIPlus_BrushCreateSolid(0x60FFFF00)

Local $hBrush2 = _GDIPlus_BrushCreateSolid(0x60FF8000)

 

Local Const $Pi = ACos(-1)

Local Const $amout_of_dots = 8

Local $dot_distance = 150

Local $draw_coordinates[$amout_of_dots][4] = [ _; X y Z

[-$dot_distance, -$dot_distance, -$dot_distance ], _

[$dot_distance, -$dot_distance, -$dot_distance ], _

[$dot_distance, $dot_distance, -$dot_distance ], _

[-$dot_distance, $dot_distance, -$dot_distance ], _

[-$dot_distance, -$dot_distance, $dot_distance ], _

[$dot_distance, -$dot_distance, $dot_distance ], _

[$dot_distance, $dot_distance, $dot_distance ], _

[-$dot_distance, $dot_distance, $dot_distance ]]

 

; 4 -- - - - 5

; / | / |

; 0 - - - - 1 |

; | | | |

; | 7 -- - -|- 6

; | / | /

; 3 - - - - 2

 

Local $aPoints1[5][2], $aPoints2[5][2]

Local $x1, $y1, $x2, $y2, $x3, $y3, $x4, $y4

Local $b, $j, $x, $y, $z, $mx, $my, $start_x, $start_y, $mouse_pos, $mouse_sense

Local $zoom_counter = 100

Local $zoom_min = 50

Local $zoom_max = 150

$mouse_sense = 4000

$start_x = $Width / 2

$start_y = $Height / 2

 

Local $dx = @DesktopWidth * 0.5, $dy = @DesktopHeight * 0.5

MouseMove($dx, $dy, 1)

 

GUIRegisterMsg(0x020A, "WM_MOUSEWHEEL")

 

GUISetOnEvent(-3, "Close")

 

Do

_GDIPlus_GraphicsClear($hBackbuffer, 0xF0FFFFFF)

 

For $b = 0 To $amout_of_dots - 1 ;correct perspective

$draw_coordinates[$b][3] = 1 + $draw_coordinates[$b][2] / 0x600

Next

 

;draw polygons

$aPoints1[0][0] = 4

$aPoints1[1][0] = $start_x + $draw_coordinates[3][0] * $draw_coordinates[3][3]

$aPoints1[1][1] = $start_y + $draw_coordinates[3][1] * $draw_coordinates[3][3]

$aPoints1[2][0] = $start_x + $draw_coordinates[0][0] * $draw_coordinates[0][3]

$aPoints1[2][1] = $start_y + $draw_coordinates[0][1] * $draw_coordinates[0][3]

$aPoints1[3][0] = $start_x + $draw_coordinates[5][0] * $draw_coordinates[5][3]

$aPoints1[3][1] = $start_y + $draw_coordinates[5][1] * $draw_coordinates[5][3]

$aPoints1[4][0] = $start_x + $draw_coordinates[6][0] * $draw_coordinates[6][3]

$aPoints1[4][1] = $start_y + $draw_coordinates[6][1] * $draw_coordinates[6][3]

_GDIPlus_GraphicsFillPolygon($hBackbuffer, $aPoints1, $hBrush1)

 

$aPoints2[0][0] = 4

$aPoints2[1][0] = $start_x + $draw_coordinates[2][0] * $draw_coordinates[2][3]

$aPoints2[1][1] = $start_y + $draw_coordinates[2][1] * $draw_coordinates[2][3]

$aPoints2[2][0] = $start_x + $draw_coordinates[1][0] * $draw_coordinates[1][3]

$aPoints2[2][1] = $start_y + $draw_coordinates[1][1] * $draw_coordinates[1][3]

$aPoints2[3][0] = $start_x + $draw_coordinates[4][0] * $draw_coordinates[4][3]

$aPoints2[3][1] = $start_y + $draw_coordinates[4][1] * $draw_coordinates[4][3]

$aPoints2[4][0] = $start_x + $draw_coordinates[7][0] * $draw_coordinates[7][3]

$aPoints2[4][1] = $start_y + $draw_coordinates[7][1] * $draw_coordinates[7][3]

_GDIPlus_GraphicsFillPolygon($hBackbuffer, $aPoints2, $hBrush2)

 

;draw lines

Draw_Lines(3, 2, 6, 7)

Draw_Lines(5, 1, 0, 4)

Draw_Lines(1, 2, 3, 0)

Draw_Lines(7, 6, 5 ,4)

Draw_Lines(6, 2, 1, 5)

Draw_Lines(0, 3, 7, 4)

 

$mouse_pos = MouseGetPos()

For $j = 0 To $amout_of_dots - 1

Calc(-(-$dy + $mouse_pos[1]) / $mouse_sense, (-$dx + $mouse_pos[0]) / $mouse_sense, $j) ;calculate new coordinates

Next

 

_GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $Width, $Height)

Until Not Sleep(30)

 

Func Draw_Lines($p1, $p2, $p3, $p4)

$x1 = $start_x + $draw_coordinates[$p1][0] * $draw_coordinates[$p1][3]

$y1 = $start_y + $draw_coordinates[$p1][1] * $draw_coordinates[$p1][3]

$x2 = $start_x + $draw_coordinates[$p2][0] * $draw_coordinates[$p2][3]

$y2 = $start_y + $draw_coordinates[$p2][1] * $draw_coordinates[$p2][3]

$x3 = $start_x + $draw_coordinates[$p3][0] * $draw_coordinates[$p3][3]

$y3 = $start_y + $draw_coordinates[$p3][1] * $draw_coordinates[$p3][3]

$x4 = $start_x + $draw_coordinates[$p4][0] * $draw_coordinates[$p4][3]

$y4 = $start_y + $draw_coordinates[$p4][1] * $draw_coordinates[$p4][3]

 

_GDIPlus_GraphicsDrawLine($hBackbuffer, $x1, $y1, $x2, $y2, $hPen)

_GDIPlus_GraphicsDrawLine($hBackbuffer, $x2, $y2, $x3, $y3, $hPen)

_GDIPlus_GraphicsDrawLine($hBackbuffer, $x3, $y3, $x4, $y4, $hPen)

_GDIPlus_GraphicsDrawLine($hBackbuffer, $x4, $y4, $x1, $y1, $hPen)

EndFunc ;==>Draw

 

Func Calc($angle_x, $angle_y, $i, $angle_z = 0)

;calculate 3D rotation

$x = $draw_coordinates[$i][0] * Cos($angle_y) + $draw_coordinates[$i][2] * Sin($angle_y)

$y = $draw_coordinates[$i][1]

$z = -$draw_coordinates[$i][0] * Sin($angle_y) + $draw_coordinates[$i][2] * Cos($angle_y)

$draw_coordinates[$i][0] = $x

$draw_coordinates[$i][1] = $y * Cos($angle_x) - $z * Sin($angle_x)

$draw_coordinates[$i][2] = $y * Sin($angle_x) + $z * Cos($angle_x)

;~ Local $sx, $sy, $sz, $cx, $cy, $cz, $px, $py, $pz

 

;~ $sx = Sin($angle_x)

;~ $cx = Cos($angle_x)

;~ $sy = Sin($angle_y)

;~ $cy = Cos($angle_y)

;~ $sz = Sin($angle_z)

;~ $cz = Cos($angle_z)

 

;~ $px = $draw_coordinates[$i][0]

;~ $py = $draw_coordinates[$i][1]

;~ $pz = $draw_coordinates[$i][2]

;~ ;rotation x-axis

;~ $draw_coordinates[$i][1] = $py * $cx - $pz * $sx

;~ $draw_coordinates[$i][2] = $py * $sx + $pz * $cx

;~ $py = $draw_coordinates[$i][1]

;~ $pz = $draw_coordinates[$i][2]

;~ ;rotation y-axis

;~ $draw_coordinates[$i][0] = $px * $cy + $pz * $sy

;~ $draw_coordinates[$i][2] = -$px * $sy + $pz * $cy

;~ $px = $draw_coordinates[$i][0]

;~ ;rotation z-axis

;~ $draw_coordinates[$i][0] = $px * $cz - $py * $sz

;~ $draw_coordinates[$i][1] = $py * $cz + $px * $sz

EndFunc ;==>Calc

 

Func Close()

_GDIPlus_BrushDispose($hBrush1)

_GDIPlus_BrushDispose($hBrush2)

_GDIPlus_PenDispose($hPen)

_GDIPlus_BitmapDispose($hBitmap)

_GDIPlus_GraphicsDispose($hBackbuffer)

_GDIPlus_GraphicsDispose($hGraphics)

_GDIPlus_Shutdown()

Exit

EndFunc ;==>Close

 

Func Zoom($factor)

Local $m

For $m = 0 To $amout_of_dots - 1

$draw_coordinates[$m][0] *= $factor

$draw_coordinates[$m][1] *= $factor

$draw_coordinates[$m][2] *= $factor

Next

EndFunc

 

Func WM_MOUSEWHEEL($hWnd, $iMsg, $wParam, $lParam)

Local $wheel_Dir = BitAND($wParam, 0x800000)

If $wheel_Dir > 0 Then

If $zoom_counter <= $zoom_max Then

Zoom(1.05)

$zoom_counter += 1

EndIf

Else

If $zoom_counter >= $zoom_min Then

Zoom(0.95)

$zoom_counter -= 1

EndIf

EndIf

Return "GUI_RUNDEFMSG"

EndFunc ;==>WM_MOUSEWHEEL

 

 Udostępnij
Tematy
×
×
  • Dodaj nową pozycję...