[bmx] Sprite Scales by Captain Wicker (crazy hillbilly) [ 1+ years ago ]

[BlitzBot]

Title : Sprite Scales
Author : Captain Wicker (crazy hillbilly)
Posted : 1+ years ago

Description : GUI code for my abandoned sprite scaling program.

Code :

Code (blitzmax) Select Expand

'This code was created for an abandoned sprite scaling program. this is the gui only. (buttons and whatnot)
'This code was created by Austin Wicker of Captain Wicker Software.
'You are given full permission to use this code for any purpose whatsoever as long as you remember to credit me for the design and original code.


SuperStrict
Import maxgui.drivers

Local Window:TGadget = CreateWindow( "Sprite Scales - GUI only",400,120,640,480,Null,545 )
Local loadimage1:TGadget = CreateButton( "Load Image 1",32,392,112,24,window,BUTTON_PUSH )
SetGadgetLayout loadimage1,0,0,0,0
Local loadimage2:TGadget = CreateButton( "Load Image 2",256,392,112,24,window,BUTTON_PUSH )
SetGadgetLayout loadimage2,0,0,0,0
Local loadimage3:TGadget = CreateButton( "Load Image 3",496,392,112,24,window,BUTTON_PUSH )
SetGadgetLayout loadimage3,0,0,0,0
Local spriteed1:TGadget = CreateCanvas( 48,216,80,144,window )
SetGadgetLayout spriteed1,0,0,0,0
Local spriteed2:TGadget = CreateCanvas( 272,216,80,144,window )
SetGadgetLayout spriteed2,0,0,0,0
Local spriteed3:TGadget = CreateCanvas( 512,216,80,144,window )
SetGadgetLayout spriteed3,0,0,0,0
Local slideme1:TGadget = CreateSlider( 56,176,64,20,window,1 )
SetGadgetLayout slideme1,0,0,0,0
Local slideme3:TGadget = CreateSlider( 56,144,64,20,window,1 )
SetGadgetLayout slideme3,0,0,0,0
Local x1:TGadget = CreateLabel( "X",40,176,100,20,window,0 )
SetGadgetLayout x1,0,0,0,0
Local y1:TGadget = CreateLabel( "Y",40,144,100,20,window,0 )
SetGadgetLayout y1,0,0,0,0
Local y2:TGadget = CreateLabel( "Y",256,144,100,20,window,0 )
SetGadgetLayout y2,0,0,0,0
Local x2:TGadget = CreateLabel( "X",256,176,100,20,window,0 )
SetGadgetLayout x2,0,0,0,0
Local clicky1:TGadget = CreateSlider( 136,136,16,20,window,9 )
SetGadgetLayout clicky1,0,0,0,0
Local clicky2:TGadget = CreateSlider( 136,176,16,20,window,9 )
SetGadgetLayout clicky2,0,0,0,0
Local clicky3:TGadget = CreateSlider( 352,136,16,20,window,9 )
SetGadgetLayout clicky3,0,0,0,0
Local slideme5:TGadget = CreateSlider( 280,176,64,20,window,1 )
SetGadgetLayout slideme1,0,0,0,0
Local slideme2:TGadget = CreateSlider( 280,144,64,20,window,1 )
SetGadgetLayout slideme2,0,0,0,0
Local clicky4:TGadget = CreateSlider( 352,176,16,20,window,9 )
SetGadgetLayout clicky4,0,0,0,0
Local notes:TGadget = CreateTextArea( 96,24,464,100,window,1 )
SetGadgetLayout notes,0,0,0,0
Local saveimage1:TGadget = CreateButton( "Save Image 1",32,432,112,24,window,BUTTON_PUSH )
SetGadgetLayout saveimage1,0,0,0,0
Local saveimage2:TGadget = CreateButton( "Save Image 2",256,432,112,24,window,BUTTON_PUSH )
SetGadgetLayout saveimage2,0,0,0,0
Local saveimage3:TGadget = CreateButton( "Save Image 3",496,432,112,24,window,BUTTON_PUSH )
SetGadgetLayout saveimage3,0,0,0,0
Local slideme6:TGadget = CreateSlider( 520,176,64,20,window,1 )
SetGadgetLayout slideme3,0,0,0,0
Local x3:TGadget = CreateLabel( "X",496,176,100,20,window,0 )
SetGadgetLayout x3,0,0,0,0
Local y3:TGadget = CreateLabel( "Y",496,144,100,20,window,0 )
SetGadgetLayout y3,0,0,0,0
Local slideme4:TGadget = CreateSlider( 520,144,64,20,window,1 )
SetGadgetLayout slideme4,0,0,0,0
Local clicky5:TGadget = CreateSlider( 592,136,16,20,window,9 )
SetGadgetLayout clicky5,0,0,0,0
Local clicky6:TGadget = CreateSlider( 592,168,16,20,window,9 )
SetGadgetLayout clicky6,0,0,0,0

Repeat
WaitEvent()
Select EventID()
Case EVENT_WINDOWCLOSE
End
EndSelect
Until Appterminate() Or KeyHit(KEY_ESCAPE)

Comments :


Captain Wicker (crazy hillbilly)(Posted 1+ years ago)

 this actually looks quite horrible on Windows or Linux. :O)EDIT: Did I seriously just comment on my own code!?!?!


Dabhand(Posted 1+ years ago)

 Erm... Two things:-1) This is the most pointless code archive I've seen, I dont mean to sound horrible, but it is, the title seems to suggest a nice sprite scaling system of sorts, yet, is nothing more then an empty GUI app!?!?Where you high on peanuts when you posted that? :P2) Code posted in the code archives are deemed to be public domain (Look above your main code archive post), yet, you specify there's restrictions on it, little tip, if you dont want people to use your code under PD, I'd plonk it somewhere else me auld fraggle, but lets be honest here too, there is seriously nothing there to actually ask credit for really!!!Dabz