Files
Files
Is there any way to have purebasic open and close exe's without taking away that exe's ability to read and write to the system...?
Re: Files
Isn't this just the same problem as the other thread you started here:
viewtopic.php?t=6100
If nobody could help you there, then a new thread won't help.
If you want us to help, you need to provide everything that is needed
by your app to run. I've explained all that before in the other thread.
viewtopic.php?t=6100
If nobody could help you there, then a new thread won't help.
If you want us to help, you need to provide everything that is needed
by your app to run. I've explained all that before in the other thread.
Alrighty... =P Heres the new code... =\ and heres is the link to the app...
http://www.PuffInteractive.com//v0.0.2.zip
It might be down in a few days... I'm getting new service... Open Menu.exe or just make a new menu.exe with this updated code then start Particles.exe I think its a db problem now but maybe you guys can fix it... OH and is there a way to make Menu.exe the default for opening .part files and change the icon for .part files... =P thx
http://www.PuffInteractive.com//v0.0.2.zip
Code: Select all
If OpenWindow(0,0,0,215,375, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_MinimizeGadget,"Particles v0.0.2 Alpha")
If CreateToolBar(0, WindowID())
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
ToolBarSeparator()
ToolBarStandardButton(6, #PB_ToolBarIcon_Print)
ToolBarSeparator()
ToolBarStandardButton(4, #PB_ToolBarIcon_Help)
EndIf
If CreateMenu(0, WindowID())
MenuTitle("File")
MenuItem( 0, "New")
MenuBar()
MenuItem( 1, "Open")
MenuItem( 2, "Save")
MenuBar()
OpenSubMenu("Recent")
CloseSubMenu()
MenuBar()
MenuItem( 3, "Exit")
MenuTitle("Help")
MenuItem(4, "Help")
MenuBar()
MenuItem(5, "About")
EndIf
If CreateGadgetList(WindowID())
PanelGadget(0,0,30,215,325)
AddGadgetItem(0,0,"Variables")
TextGadget(1, 0, 0, 75, 25, "Radius", #PB_Text_Center)
ButtonGadget(2, 75, 0, 15, 25, "<=")
ButtonGadget(3, 90, 0, 15, 25, "<")
StringGadget(4, 105, 0, 75, 25, Radius2.s , #PB_String_Numeric)
ButtonGadget(5, 180, 0, 15, 25, ">")
ButtonGadget(6, 195, 0, 15, 25, "=>")
TextGadget(7, 0, 25, 75, 25, "Speed" , #PB_Text_Center)
ButtonGadget(8, 75, 25, 15, 25, "<=")
ButtonGadget(9, 90, 25, 15, 25, "<")
StringGadget(10, 105, 25, 75, 25, Speed2.s, #PB_String_Numeric)
ButtonGadget(11, 180, 25, 15, 25, ">")
ButtonGadget(12, 195, 25, 15, 25, "=>")
TextGadget(13, 0, 50, 75, 25, "Gravity" , #PB_Text_Center)
ButtonGadget(14, 75, 50, 15, 25, "<=")
ButtonGadget(15, 90, 50, 15, 25, "<")
StringGadget(16, 105, 50, 75, 25, Gravity2.s , #PB_String_Numeric)
ButtonGadget(17, 180, 50, 15, 25, ">")
ButtonGadget(18, 195, 50, 15, 25, "=>")
TextGadget(19, 0, 75, 75, 25, "Velocity" , #PB_Text_Center)
ButtonGadget(20, 75, 75, 15, 25, "<=")
ButtonGadget(21, 90, 75, 15, 25, "<")
StringGadget(22, 105, 75, 75, 25, Velocity2.s , #PB_String_Numeric)
ButtonGadget(23, 180, 75, 15, 25, ">")
ButtonGadget(24, 195, 75, 15, 25, "=>")
TextGadget(25, 0, 100, 75, 25, "Chaos" , #PB_Text_Center)
ButtonGadget(26, 75, 100, 15, 25, "<=")
ButtonGadget(27, 90, 100, 15, 25, "<")
StringGadget(28, 105, 100, 75, 25, Chaos2.s , #PB_String_Numeric)
ButtonGadget(29, 180, 100, 15, 25, ">")
ButtonGadget(30, 195, 100, 15, 25, "=>")
TextGadget(31, 0, 125, 75, 25, "Life" , #PB_Text_Center)
ButtonGadget(32, 75, 125, 15, 25, "<=")
ButtonGadget(33, 90, 125, 15, 25, "<")
StringGadget(34, 105, 125, 75, 25, Life2.s , #PB_String_Numeric)
ButtonGadget(35, 180, 125, 15, 25, ">")
ButtonGadget(36, 195, 125, 15, 25, "=>")
TextGadget(37, 0, 150, 75, 25, "Emissions" , #PB_Text_Center)
ButtonGadget(38, 75, 150, 15, 25, "<=")
ButtonGadget(39, 90, 150, 15, 25, "<")
StringGadget(40, 105, 150, 75, 25, Emissions2.s , #PB_String_Numeric)
ButtonGadget(41, 180, 150, 15, 25, ">")
ButtonGadget(42, 195, 150, 15, 25, "=>")
TextGadget(43, 0, 175, 75, 25, "Frequency" , #PB_Text_Center)
ButtonGadget(44, 75, 175, 15, 25, "<=")
ButtonGadget(45, 90, 175, 15, 25, "<")
StringGadget(46, 105, 175, 75, 25, Frequency2.s , #PB_String_Numeric)
ButtonGadget(47, 180, 175, 15, 25, ">")
ButtonGadget(48, 195, 175, 15, 25, "=>")
TextGadget(49, 0, 200, 75, 25, "Depth" , #PB_Text_Center)
ButtonGadget(50, 75, 200, 15, 25, "<=")
ButtonGadget(51, 90, 200, 15, 25, "<")
StringGadget(52, 105, 200, 75, 25, Depth2.s, #PB_String_Numeric)
ButtonGadget(53, 180, 200, 15, 25, ">")
ButtonGadget(54, 195, 200, 15, 25, "=>")
TextGadget(55, 0, 225, 75, 25, "Height" , #PB_Text_Center)
ButtonGadget(56, 75, 225, 15, 25, "<=")
ButtonGadget(57, 90, 225, 15, 25, "<")
StringGadget(58, 105, 225, 75, 25, Height2.s, #PB_String_Numeric)
ButtonGadget(59, 180, 225, 15, 25, ">")
ButtonGadget(60, 195, 225, 15, 25, "=>")
TextGadget(61, 0, 250, 75, 25, "Width" , #PB_Text_Center)
ButtonGadget(62, 75, 250, 15, 25, "<=")
ButtonGadget(63, 90, 250, 15, 25, "<")
StringGadget(64, 105, 250, 75, 25, Width2.s, #PB_String_Numeric)
ButtonGadget(65, 180, 250, 15, 25, ">")
ButtonGadget(66, 195, 250, 15, 25, "=>")
CheckBoxGadget(67, 0, 275, 215, 25, "Floor | Key: [>] +\- Less [=>] +\- More")
AddGadgetItem(0,0,"Image")
ButtonGadget(68, 0, 0, 75, 25, "Open Image")
ButtonGadget(69, 0, 25, 75, 25, "Pick Color")
OptionGadget(70, 100, 0, 125, 25, "Use Image [32x32]")
OptionGadget(71, 100, 25, 75, 25, "Use Color")
TextGadget(72, 0, 75, 150, 25, "Current Image:")
ImageGadget(77, 25, 95, 32, 32, 0, #PB_Image_Border)
TextGadget(73, 0, 175, 150, 25, "Current Color:")
TextGadget(78, 25, 195, 25, 25, "Red: ")
TextGadget(79, 70, 195, 25, 25, reds.s)
TextGadget(80, 25, 220, 35, 25, "Green: ")
TextGadget(81, 70, 220, 25, 25, greens.s)
TextGadget(82, 25, 245, 25, 25, "Blue: ")
TextGadget(83, 70, 245, 25, 25, blues.s)
AddGadgetItem(0,0,"Effect")
ButtonGadget(74, 0, 0, 210, 100, "Fountain")
ButtonGadget(75, 0, 100, 210, 100, "Fire")
ButtonGadget(76, 0, 200, 210, 100, "Snow")
AddGadgetItem(0,0,"Rotate")
TextGadget(88, 0, 50, 100, 25, "Rotate the Particles:")
ButtonGadget(84, 90, 75, 25, 25, "^")
ButtonGadget(85, 90, 100, 25, 25, "v")
ButtonGadget(86, 115, 100, 25, 25, ">")
ButtonGadget(87, 65, 100, 25, 25, "<")
TextGadget(89, 0, 0, 200, 25, "You can control the camera using the Arrow Keys.", #PB_Text_Center)
ClosePanelGadget()
EndIf
Radius.l
Radius=20
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
Speed.f
Speed=0.01
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
Gravity.l
Gravity=2
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
Velocity.l
Velocity=5
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
Chaos.l
Chaos=0
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
Life.l
Life=100
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
Emissions.l
Emissions=10
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
Frequency.l
Frequency=100
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
Depth.f
Depth=5
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
Height.f
Height=5
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
Width.f
Width=5
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
Floor.b
SetGadgetState(67, 1)
Floor=GetGadgetState(67)
Image.b
SetGadgetState(71, 1)
Image=GetGadgetState(70)
effect.b=1
color.w=0
red.w=0
green.w=0
blue.w=0
small.b=0
big.b=0
rotatey.w=0
rotatex.w=0
InitKeyboard()
Repeat
ExamineKeyboard()
If KeyboardPushed(#PB_Key_All)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
EndIf
file.s = "System\Update.dat"
DeleteFile(file.s)
OpenFile(0,file.s)
WriteStringN(GetGadgetText(4))
WriteStringN(GetGadgetText(10))
WriteStringN(GetGadgetText(16))
WriteStringN(GetGadgetText(22))
WriteStringN(GetGadgetText(28))
WriteStringN(GetGadgetText(34))
WriteStringN(GetGadgetText(40))
WriteStringN(GetGadgetText(46))
WriteStringN(GetGadgetText(52))
WriteStringN(GetGadgetText(58))
WriteStringN(GetGadgetText(64))
WriteStringN(Str(effect))
WriteStringN(Str(red))
WriteStringN(Str(green))
WriteStringN(Str(blue))
WriteStringN(Str(rotatey))
WriteStringN(Str(rotatex))
WriteStringN(Str(GetGadgetState(67)))
WriteStringN(Str(GetGadgetState(70)))
WriteStringN(Str(GetGadgetState(71)))
path.s=GetPathPart(File2.s)
WriteStringN(path.s)
part.s=GetFilePart(File2.s)
WriteString(part.s)
CloseFile(0)
NOP.s="nop.dat"
If FileSize(nop.s)<>-1
DeleteFile(nop.s)
MessageRequester("Particles - Error!", "The specified path does not exist!", #PB_MessageRequester_Ok)
EndIf
noi.s="noi.dat"
If FileSize(noi.s)<>-1
DeleteFile(noi.s)
MessageRequester("Particles - Error!", "The specified image does not exist!", #PB_MessageRequester_Ok)
EndIf
EventID.l = WaitWindowEvent()
If EventID = #PB_EventMenu
Select EventMenuID()
Case 0
Radius=20
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
Speed=0.01
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
Gravity=2
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
Velocity=5
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
Chaos=0
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
Life=100
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
Emissions=10
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
Frequency=100
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
Depth=5
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
Height=5
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
Width=5
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
SetGadgetState(67, 1)
Floor=GetGadgetState(67)
SetGadgetState(70, 0)
SetGadgetState(71, 1)
Image=GetGadgetState(70)
effect=1
red=0
green=0
blue=0
rotatex=0
rotatey=0
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 1
File.s = OpenFileRequester("Particles - Open", "C:\", "Particle (*.part)|*.part", 0)
If File.s
ReadFile(0,file.s)
SetGadgetText(4,ReadString())
SetGadgetText(10,ReadString())
SetGadgetText(16,ReadString())
SetGadgetText(22,ReadString())
SetGadgetText(28,ReadString())
SetGadgetText(34,ReadString())
SetGadgetText(40,ReadString())
SetGadgetText(46,ReadString())
SetGadgetText(52,ReadString())
SetGadgetText(58,ReadString())
SetGadgetText(64,ReadString())
effect=Val(ReadString())
red=SetGadgetText(79,ReadString())
green=SetGadgetText(81,ReadString())
blue=SetGadgetText(83,ReadString())
rotatey=Val(ReadString())
rotatex=Val(ReadString())
SetGadgetState(67,Val(ReadString()))
SetGadgetState(70,Val(ReadString()))
SetGadgetState(71,Val(ReadString()))
path.s=ReadString()
part.s=ReadString()
CloseFile(0)
EndIf
file.s = "System\Update.dat"
DeleteFile(file.s)
OpenFile(0,file.s)
WriteStringN(GetGadgetText(4))
WriteStringN(GetGadgetText(10))
WriteStringN(GetGadgetText(16))
WriteStringN(GetGadgetText(22))
WriteStringN(GetGadgetText(28))
WriteStringN(GetGadgetText(34))
WriteStringN(GetGadgetText(40))
WriteStringN(GetGadgetText(46))
WriteStringN(GetGadgetText(52))
WriteStringN(GetGadgetText(58))
WriteStringN(GetGadgetText(64))
WriteStringN(Str(effect))
WriteStringN(Str(red))
WriteStringN(Str(green))
WriteStringN(Str(blue))
WriteStringN(Str(rotatey))
WriteStringN(Str(rotatex))
WriteStringN(Str(GetGadgetState(67)))
WriteStringN(Str(GetGadgetState(70)))
WriteStringN(Str(GetGadgetState(71)))
WriteStringN(path.s)
WriteString(part.s)
CloseFile(0)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 2
File.s = SaveFileRequester("Particles - Save", "C:\", "Particle (*.part)|*.part", 1)
File.s = File.s+".part"
If File.s
OpenFile(0,file.s)
WriteStringN(GetGadgetText(4))
WriteStringN(GetGadgetText(10))
WriteStringN(GetGadgetText(16))
WriteStringN(GetGadgetText(22))
WriteStringN(GetGadgetText(28))
WriteStringN(GetGadgetText(34))
WriteStringN(GetGadgetText(40))
WriteStringN(GetGadgetText(46))
WriteStringN(GetGadgetText(52))
WriteStringN(GetGadgetText(58))
WriteStringN(GetGadgetText(64))
WriteStringN(Str(effect))
WriteStringN(Str(red))
WriteStringN(Str(green))
WriteStringN(Str(blue))
WriteStringN(Str(rotatey))
WriteStringN(Str(rotatex))
WriteStringN(Str(GetGadgetState(67)))
WriteStringN(Str(GetGadgetState(70)))
WriteStringN(Str(GetGadgetState(71)))
path.s=GetPathPart(File2.s)
WriteStringN(path.s)
part.s=GetFilePart(File2.s)
WriteString(part.s)
CloseFile(0)
EndIf
Case 3
End
EndSelect
EndIf
If EventID = #PB_EventGadget
Select EventGadgetID()
Case 2
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Radius=Radius-5
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 3
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Radius=Radius-1
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 5
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Radius=Radius+1
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 6
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Radius=Radius+5
Radius2.s=StrF(Radius)
SetGadgetText(4, Radius2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 8
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Speed=Speed-0.000005
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 9
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Speed=Speed-0.000001
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 11
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Speed=Speed+0.000001
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 12
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Speed=Speed+0.000005
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 14
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Gravity=Gravity-5
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 15
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Gravity=Gravity-1
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 17
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Gravity=Gravity+1
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 18
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Gravity=Gravity+5
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 20
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Velocity=Velocity-5
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 21
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Velocity=Velocity-1
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 23
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Velocity=Velocity+1
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 24
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Velocity=Velocity+5
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 26
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Chaos=Chaos-5
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 27
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Chaos=Chaos-1
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 29
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Chaos=Chaos+1
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 30
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Chaos=Chaos+5
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 32
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Life=Life-5
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 33
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Life=Life-1
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 35
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Life=Life+1
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 36
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Life=Life+5
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 38
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Emissions=Emissions-5
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 39
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Emissions=Emissions-1
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 41
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Emissions=Emissions+1
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 42
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Emissions=Emissions+5
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 44
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Frequency=Frequency-5
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 45
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Frequency=Frequency-1
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 47
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Frequency=Frequency+1
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 48
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Frequency=Frequency+5
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 50
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Depth=Depth-0.1
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 51
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Depth=Depth-0.01
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 53
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Depth=Depth+0.01
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 54
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Depth=Depth+0.1
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 56
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Height=Height-0.1
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 57
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Height=Height-0.01
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 59
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Height=Height+0.01
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 60
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Height=Height+0.1
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 62
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Width=Width-0.1
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 63
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Width=Width-0.01
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 65
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Width=Width+0.01
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 66
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Width=Width+0.1
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 67
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 68
File2.s = OpenFileRequester("Particles - Open", "C:\", "Bitmap (*.bmp)|*.bmp", 0)
If File2.s+File2.s
LoadImage(0,File2.s)
If ImageHeight()<32 Or ImageWidth()<32
MessageRequester("Particles - Error!", "The Image "+File2.s+" is either not tall or not wide enough!", #PB_MessageRequester_Ok)
small=1
FreeImage(UseImage(0))
EndIf
If ImageHeight()>32 Or ImageWidth()>32
MessageRequester("Particles - Error!", "The Image "+File2.s+" is either too wide or too tall!", #PB_MessageRequester_Ok)
big=1
FreeImage(UseImage(0))
EndIf
If small=0 And big=0
SetGadgetState(77,UseImage(0))
file.s = "System\System\Update.dat"
DeleteFile(file.s)
OpenFile(0,file.s)
WriteStringN(GetGadgetText(4))
WriteStringN(GetGadgetText(10))
WriteStringN(GetGadgetText(16))
WriteStringN(GetGadgetText(22))
WriteStringN(GetGadgetText(28))
WriteStringN(GetGadgetText(34))
WriteStringN(GetGadgetText(40))
WriteStringN(GetGadgetText(46))
WriteStringN(GetGadgetText(52))
WriteStringN(GetGadgetText(58))
WriteStringN(GetGadgetText(64))
WriteStringN(Str(effect))
WriteStringN(Str(red))
WriteStringN(Str(green))
WriteStringN(Str(blue))
WriteStringN(Str(rotatey))
WriteStringN(Str(rotatex))
WriteStringN(Str(GetGadgetState(67)))
WriteStringN(Str(GetGadgetState(70)))
WriteStringN(Str(GetGadgetState(71)))
path.s=GetPathPart(File2.s)
WriteStringN(path.s)
part.s=GetFilePart(File2.s)
WriteString(part.s)
CloseFile(0)
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
EndIf
big=0
small=0
EndIf
Case 69
colour=ColorRequester()
red=Red(colour)
green=Green(colour)
blue=Blue(colour)
SetGadgetText(79,Str(red))
SetGadgetText(81,Str(green))
SetGadgetText(83,Str(blue))
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 74
effect=1
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 75
effect=2
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 76
effect=3
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 84
rotatey=rotatey+1
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 85
rotatey=rotatey-1
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 86
rotatex=rotatex+1
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 87
rotatex=rotatex-1
file.s="System\refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
EndSelect
EndIf
Floor=GetGadgetState(67)
Image=GetGadgetState(70)
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Until EventID = #PB_EventCloseWindow
EndIfNew code... bug fixes =)...
Code: Select all
If OpenWindow(0,0,0,215,375, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_MinimizeGadget,"Particles v0.0.2 Alpha")
If CreateToolBar(0, WindowID())
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
ToolBarSeparator()
ToolBarStandardButton(6, #PB_ToolBarIcon_Print)
ToolBarSeparator()
ToolBarStandardButton(4, #PB_ToolBarIcon_Help)
EndIf
If CreateMenu(0, WindowID())
MenuTitle("File")
MenuItem( 0, "New")
MenuBar()
MenuItem( 1, "Open")
MenuItem( 2, "Save")
MenuBar()
OpenSubMenu("Recent")
CloseSubMenu()
MenuBar()
MenuItem( 3, "Exit")
MenuTitle("Help")
MenuItem(4, "Help")
MenuBar()
MenuItem(5, "About")
EndIf
If CreateGadgetList(WindowID())
PanelGadget(0,0,30,215,325)
AddGadgetItem(0,0,"Variables")
TextGadget(1, 0, 0, 75, 25, "Radius", #PB_Text_Center)
ButtonGadget(2, 75, 0, 15, 25, "<=")
ButtonGadget(3, 90, 0, 15, 25, "<")
StringGadget(4, 105, 0, 75, 25, Radius2.s , #PB_String_Numeric)
ButtonGadget(5, 180, 0, 15, 25, ">")
ButtonGadget(6, 195, 0, 15, 25, "=>")
TextGadget(7, 0, 25, 75, 25, "Speed" , #PB_Text_Center)
ButtonGadget(8, 75, 25, 15, 25, "<=")
ButtonGadget(9, 90, 25, 15, 25, "<")
StringGadget(10, 105, 25, 75, 25, Speed2.s, #PB_String_Numeric)
ButtonGadget(11, 180, 25, 15, 25, ">")
ButtonGadget(12, 195, 25, 15, 25, "=>")
TextGadget(13, 0, 50, 75, 25, "Gravity" , #PB_Text_Center)
ButtonGadget(14, 75, 50, 15, 25, "<=")
ButtonGadget(15, 90, 50, 15, 25, "<")
StringGadget(16, 105, 50, 75, 25, Gravity2.s , #PB_String_Numeric)
ButtonGadget(17, 180, 50, 15, 25, ">")
ButtonGadget(18, 195, 50, 15, 25, "=>")
TextGadget(19, 0, 75, 75, 25, "Velocity" , #PB_Text_Center)
ButtonGadget(20, 75, 75, 15, 25, "<=")
ButtonGadget(21, 90, 75, 15, 25, "<")
StringGadget(22, 105, 75, 75, 25, Velocity2.s , #PB_String_Numeric)
ButtonGadget(23, 180, 75, 15, 25, ">")
ButtonGadget(24, 195, 75, 15, 25, "=>")
TextGadget(25, 0, 100, 75, 25, "Chaos" , #PB_Text_Center)
ButtonGadget(26, 75, 100, 15, 25, "<=")
ButtonGadget(27, 90, 100, 15, 25, "<")
StringGadget(28, 105, 100, 75, 25, Chaos2.s , #PB_String_Numeric)
ButtonGadget(29, 180, 100, 15, 25, ">")
ButtonGadget(30, 195, 100, 15, 25, "=>")
TextGadget(31, 0, 125, 75, 25, "Life" , #PB_Text_Center)
ButtonGadget(32, 75, 125, 15, 25, "<=")
ButtonGadget(33, 90, 125, 15, 25, "<")
StringGadget(34, 105, 125, 75, 25, Life2.s , #PB_String_Numeric)
ButtonGadget(35, 180, 125, 15, 25, ">")
ButtonGadget(36, 195, 125, 15, 25, "=>")
TextGadget(37, 0, 150, 75, 25, "Emissions" , #PB_Text_Center)
ButtonGadget(38, 75, 150, 15, 25, "<=")
ButtonGadget(39, 90, 150, 15, 25, "<")
StringGadget(40, 105, 150, 75, 25, Emissions2.s , #PB_String_Numeric)
ButtonGadget(41, 180, 150, 15, 25, ">")
ButtonGadget(42, 195, 150, 15, 25, "=>")
TextGadget(43, 0, 175, 75, 25, "Frequency" , #PB_Text_Center)
ButtonGadget(44, 75, 175, 15, 25, "<=")
ButtonGadget(45, 90, 175, 15, 25, "<")
StringGadget(46, 105, 175, 75, 25, Frequency2.s , #PB_String_Numeric)
ButtonGadget(47, 180, 175, 15, 25, ">")
ButtonGadget(48, 195, 175, 15, 25, "=>")
TextGadget(49, 0, 200, 75, 25, "Depth" , #PB_Text_Center)
ButtonGadget(50, 75, 200, 15, 25, "<=")
ButtonGadget(51, 90, 200, 15, 25, "<")
StringGadget(52, 105, 200, 75, 25, Depth2.s, #PB_String_Numeric)
ButtonGadget(53, 180, 200, 15, 25, ">")
ButtonGadget(54, 195, 200, 15, 25, "=>")
TextGadget(55, 0, 225, 75, 25, "Height" , #PB_Text_Center)
ButtonGadget(56, 75, 225, 15, 25, "<=")
ButtonGadget(57, 90, 225, 15, 25, "<")
StringGadget(58, 105, 225, 75, 25, Height2.s, #PB_String_Numeric)
ButtonGadget(59, 180, 225, 15, 25, ">")
ButtonGadget(60, 195, 225, 15, 25, "=>")
TextGadget(61, 0, 250, 75, 25, "Width" , #PB_Text_Center)
ButtonGadget(62, 75, 250, 15, 25, "<=")
ButtonGadget(63, 90, 250, 15, 25, "<")
StringGadget(64, 105, 250, 75, 25, Width2.s, #PB_String_Numeric)
ButtonGadget(65, 180, 250, 15, 25, ">")
ButtonGadget(66, 195, 250, 15, 25, "=>")
CheckBoxGadget(67, 0, 275, 215, 25, "Floor | Key: [>] +\- Less [=>] +\- More")
AddGadgetItem(0,0,"Image")
ButtonGadget(68, 0, 0, 75, 25, "Open Image")
ButtonGadget(69, 0, 25, 75, 25, "Pick Color")
OptionGadget(70, 100, 0, 125, 25, "Use Image [32x32]")
OptionGadget(71, 100, 25, 75, 25, "Use Color")
TextGadget(72, 0, 75, 150, 25, "Current Image:")
ImageGadget(77, 25, 95, 32, 32, 0, #PB_Image_Border)
TextGadget(73, 0, 175, 150, 25, "Current Color:")
TextGadget(78, 25, 195, 25, 25, "Red: ")
TextGadget(79, 70, 195, 25, 25, reds.s)
TextGadget(80, 25, 220, 35, 25, "Green: ")
TextGadget(81, 70, 220, 25, 25, greens.s)
TextGadget(82, 25, 245, 25, 25, "Blue: ")
TextGadget(83, 70, 245, 25, 25, blues.s)
AddGadgetItem(0,0,"Effect")
ButtonGadget(74, 0, 0, 210, 100, "Fountain")
ButtonGadget(75, 0, 100, 210, 100, "Fire")
ButtonGadget(76, 0, 200, 210, 100, "Snow")
AddGadgetItem(0,0,"Rotate")
TextGadget(88, 0, 50, 100, 25, "Rotate the Particles:")
ButtonGadget(84, 90, 75, 25, 25, "^")
ButtonGadget(85, 90, 100, 25, 25, "v")
ButtonGadget(86, 115, 100, 25, 25, ">")
ButtonGadget(87, 65, 100, 25, 25, "<")
TextGadget(89, 0, 0, 200, 25, "You can control the camera using the Arrow Keys.", #PB_Text_Center)
ClosePanelGadget()
EndIf
Radius.l
Radius=20
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
Speed.f
Speed=0.01
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
Gravity.l
Gravity=2
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
Velocity.l
Velocity=5
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
Chaos.l
Chaos=0
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
Life.l
Life=100
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
Emissions.l
Emissions=10
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
Frequency.l
Frequency=100
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
Depth.f
Depth=5
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
Height.f
Height=5
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
Width.f
Width=5
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
Floor.b
SetGadgetState(67, 1)
Floor=GetGadgetState(67)
Image.b
SetGadgetState(71, 1)
Image=GetGadgetState(70)
effect.b=1
color.w=0
red.w=0
green.w=0
blue.w=0
small.b=0
big.b=0
rotatey.w=0
rotatex.w=0
InitKeyboard()
Repeat
ExamineKeyboard()
If KeyboardPushed(#PB_Key_All)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
EndIf
file.s = "System/Update.dat"
DeleteFile(file.s)
OpenFile(0,file.s)
WriteStringN(GetGadgetText(4))
WriteStringN(GetGadgetText(10))
WriteStringN(GetGadgetText(16))
WriteStringN(GetGadgetText(22))
WriteStringN(GetGadgetText(28))
WriteStringN(GetGadgetText(34))
WriteStringN(GetGadgetText(40))
WriteStringN(GetGadgetText(46))
WriteStringN(GetGadgetText(52))
WriteStringN(GetGadgetText(58))
WriteStringN(GetGadgetText(64))
WriteStringN(Str(effect))
WriteStringN(Str(red))
WriteStringN(Str(green))
WriteStringN(Str(blue))
WriteStringN(Str(rotatey))
WriteStringN(Str(rotatex))
WriteStringN(Str(GetGadgetState(67)))
WriteStringN(Str(GetGadgetState(70)))
WriteStringN(Str(GetGadgetState(71)))
path.s=GetPathPart(File2.s)
WriteStringN(path.s)
part.s=GetFilePart(File2.s)
WriteString(part.s)
CloseFile(0)
nop.s="System/nop.dat"
If FileSize(nop.s)<>-1
DeleteFile(nop.s)
MessageRequester("Particles - Error!", "The specified path does not exist!", #PB_MessageRequester_Ok)
EndIf
noi.s="System/noi.dat"
If FileSize(noi.s)<>-1
DeleteFile(noi.s)
MessageRequester("Particles - Error!", "The specified image does not exist!", #PB_MessageRequester_Ok)
EndIf
EventID.l = WaitWindowEvent()
If EventID = #PB_EventMenu
Select EventMenuID()
Case 0
Radius=20
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
Speed=0.01
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
Gravity=2
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
Velocity=5
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
Chaos=0
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
Life=100
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
Emissions=10
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
Frequency=100
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
Depth=5
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
Height=5
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
Width=5
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
SetGadgetState(67, 1)
Floor=GetGadgetState(67)
SetGadgetState(70, 0)
SetGadgetState(71, 1)
Image=GetGadgetState(70)
effect=1
red=0
green=0
blue=0
rotatex=0
rotatey=0
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 1
File.s = OpenFileRequester("Particles - Open", "C:\", "Particle (*.part)|*.part", 0)
If File.s
ReadFile(0,file.s)
SetGadgetText(4,ReadString())
SetGadgetText(10,ReadString())
SetGadgetText(16,ReadString())
SetGadgetText(22,ReadString())
SetGadgetText(28,ReadString())
SetGadgetText(34,ReadString())
SetGadgetText(40,ReadString())
SetGadgetText(46,ReadString())
SetGadgetText(52,ReadString())
SetGadgetText(58,ReadString())
SetGadgetText(64,ReadString())
effect=Val(ReadString())
red=SetGadgetText(79,ReadString())
green=SetGadgetText(81,ReadString())
blue=SetGadgetText(83,ReadString())
rotatey=Val(ReadString())
rotatex=Val(ReadString())
SetGadgetState(67,Val(ReadString()))
SetGadgetState(70,Val(ReadString()))
SetGadgetState(71,Val(ReadString()))
path.s=ReadString()
part.s=ReadString()
CloseFile(0)
EndIf
file.s = "System/Update.dat"
DeleteFile(file.s)
OpenFile(0,file.s)
WriteStringN(GetGadgetText(4))
WriteStringN(GetGadgetText(10))
WriteStringN(GetGadgetText(16))
WriteStringN(GetGadgetText(22))
WriteStringN(GetGadgetText(28))
WriteStringN(GetGadgetText(34))
WriteStringN(GetGadgetText(40))
WriteStringN(GetGadgetText(46))
WriteStringN(GetGadgetText(52))
WriteStringN(GetGadgetText(58))
WriteStringN(GetGadgetText(64))
WriteStringN(Str(effect))
WriteStringN(Str(red))
WriteStringN(Str(green))
WriteStringN(Str(blue))
WriteStringN(Str(rotatey))
WriteStringN(Str(rotatex))
WriteStringN(Str(GetGadgetState(67)))
WriteStringN(Str(GetGadgetState(70)))
WriteStringN(Str(GetGadgetState(71)))
WriteStringN(path.s)
WriteString(part.s)
CloseFile(0)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 2
File.s = SaveFileRequester("Particles - Save", "C:\", "Particle (*.part)|*.part", 1)
If GetExtensionPart(File.s) <> ".part"
File.s = File.s+".part"
EndIf
If File.s
OpenFile(0,file.s)
WriteStringN(GetGadgetText(4))
WriteStringN(GetGadgetText(10))
WriteStringN(GetGadgetText(16))
WriteStringN(GetGadgetText(22))
WriteStringN(GetGadgetText(28))
WriteStringN(GetGadgetText(34))
WriteStringN(GetGadgetText(40))
WriteStringN(GetGadgetText(46))
WriteStringN(GetGadgetText(52))
WriteStringN(GetGadgetText(58))
WriteStringN(GetGadgetText(64))
WriteStringN(Str(effect))
WriteStringN(Str(red))
WriteStringN(Str(green))
WriteStringN(Str(blue))
WriteStringN(Str(rotatey))
WriteStringN(Str(rotatex))
WriteStringN(Str(GetGadgetState(67)))
WriteStringN(Str(GetGadgetState(70)))
WriteStringN(Str(GetGadgetState(71)))
path.s=GetPathPart(File2.s)
WriteStringN(path.s)
part.s=GetFilePart(File2.s)
WriteString(part.s)
CloseFile(0)
EndIf
Case 3
End
EndSelect
EndIf
If EventID = #PB_EventGadget
Select EventGadgetID()
Case 2
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Radius=Radius-5
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 3
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Radius=Radius-1
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 5
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Radius=Radius+1
Radius2.s=Str(Radius)
SetGadgetText(4, Radius2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 6
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Radius=Radius+5
Radius2.s=StrF(Radius)
SetGadgetText(4, Radius2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 8
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Speed=Speed-0.000005
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 9
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Speed=Speed-0.000001
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 11
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Speed=Speed+0.000001
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 12
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Speed=Speed+0.000005
Speed2.s=StrF(Speed)
SetGadgetText(10, Speed2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 14
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Gravity=Gravity-5
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 15
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Gravity=Gravity-1
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 17
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Gravity=Gravity+1
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 18
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Gravity=Gravity+5
Gravity2.s=Str(Gravity)
SetGadgetText(16, Gravity2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 20
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Velocity=Velocity-5
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 21
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Velocity=Velocity-1
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 23
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Velocity=Velocity+1
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 24
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Velocity=Velocity+5
Velocity2.s=Str(Velocity)
SetGadgetText(22, Velocity2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 26
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Chaos=Chaos-5
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 27
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Chaos=Chaos-1
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 29
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Chaos=Chaos+1
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 30
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Chaos=Chaos+5
Chaos2.s=Str(Chaos)
SetGadgetText(28, Chaos2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 32
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Life=Life-5
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 33
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Life=Life-1
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 35
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Life=Life+1
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 36
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Life=Life+5
Life2.s=Str(Life)
SetGadgetText(34, Life2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 38
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Emissions=Emissions-5
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 39
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Emissions=Emissions-1
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 41
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Emissions=Emissions+1
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 42
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Emissions=Emissions+5
Emissions2.s=Str(Emissions)
SetGadgetText(40, Emissions2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 44
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Frequency=Frequency-5
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 45
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Frequency=Frequency-1
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 47
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Frequency=Frequency+1
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 48
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Frequency=Frequency+5
Frequency2.s=Str(Frequency)
SetGadgetText(46, Frequency2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 50
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Depth=Depth-0.1
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 51
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Depth=Depth-0.01
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 53
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Depth=Depth+0.01
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 54
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Depth=Depth+0.1
Depth2.s=StrF(Depth)
SetGadgetText(52, Depth2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 56
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Height=Height-0.1
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 57
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Height=Height-0.01
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 59
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Height=Height+0.01
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 60
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Height=Height+0.1
Height2.s=StrF(Height)
SetGadgetText(58, Height2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 62
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Width=Width-0.1
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 63
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Width=Width-0.01
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 65
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Width=Width+0.01
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 66
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Width=Width+0.1
Width2.s=StrF(Width)
SetGadgetText(64, Width2.s)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 67
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 68
File2.s = OpenFileRequester("Particles - Open", "C:\", "Bitmap (*.bmp)|*.bmp", 0)
If File2.s+File2.s
LoadImage(0,File2.s)
If ImageHeight()<32 Or ImageWidth()<32
MessageRequester("Particles - Error!", "The Image "+File2.s+" is either not tall or not wide enough!", #PB_MessageRequester_Ok)
small=1
FreeImage(UseImage(0))
EndIf
If ImageHeight()>32 Or ImageWidth()>32
MessageRequester("Particles - Error!", "The Image "+File2.s+" is either too wide or too tall!", #PB_MessageRequester_Ok)
big=1
FreeImage(UseImage(0))
EndIf
If small=0 And big=0
SetGadgetState(77,UseImage(0))
file.s = "System/Update.dat"
DeleteFile(file.s)
OpenFile(0,file.s)
WriteStringN(GetGadgetText(4))
WriteStringN(GetGadgetText(10))
WriteStringN(GetGadgetText(16))
WriteStringN(GetGadgetText(22))
WriteStringN(GetGadgetText(28))
WriteStringN(GetGadgetText(34))
WriteStringN(GetGadgetText(40))
WriteStringN(GetGadgetText(46))
WriteStringN(GetGadgetText(52))
WriteStringN(GetGadgetText(58))
WriteStringN(GetGadgetText(64))
WriteStringN(Str(effect))
WriteStringN(Str(red))
WriteStringN(Str(green))
WriteStringN(Str(blue))
WriteStringN(Str(rotatey))
WriteStringN(Str(rotatex))
WriteStringN(Str(GetGadgetState(67)))
WriteStringN(Str(GetGadgetState(70)))
WriteStringN(Str(GetGadgetState(71)))
path.s=GetPathPart(File2.s)
WriteStringN(path.s)
part.s=GetFilePart(File2.s)
WriteString(part.s)
CloseFile(0)
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
EndIf
big=0
small=0
EndIf
Case 69
colour=ColorRequester()
red=Red(colour)
green=Green(colour)
blue=Blue(colour)
SetGadgetText(79,Str(red))
SetGadgetText(81,Str(green))
SetGadgetText(83,Str(blue))
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 74
effect=1
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 75
effect=2
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 76
effect=3
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 84
rotatey=rotatey+1
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 85
rotatey=rotatey-1
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 86
rotatex=rotatex+1
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
Case 87
rotatex=rotatex-1
file.s="System/refresh.dat"
If CreateFile(0,file.s)
CloseFile(0)
EndIf
EndSelect
EndIf
Floor=GetGadgetState(67)
Image=GetGadgetState(70)
Radius2.s=GetGadgetText(4)
Radius=Val(Radius2.s)
Speed2.s=GetGadgetText(10)
Speed=ValF(Speed2.s)
Gravity2.s=GetGadgetText(16)
Gravity=Val(Gravity2.s)
Velocity2.s=GetGadgetText(22)
Velocity=Val(Velocity2.s)
Chaos2.s=GetGadgetText(28)
Chaos=Val(Chaos2.s)
Life2.s=GetGadgetText(34)
Life=Val(Life2.s)
Emissions2.s=GetGadgetText(40)
Emissions=Val(Emissions2.s)
Frequency2.s=GetGadgetText(46)
Frequency=Val(Frequency2.s)
Depth2.s=GetGadgetText(52)
Depth=ValF(Depth2.s)
Height2.s=GetGadgetText(58)
Height=ValF(Height2.s)
Width2.s=GetGadgetText(64)
Width=ValF(Width2.s)
Until EventID = #PB_EventCloseWindow
EndIf
I haven't really been following the specifics of your program DP,
but I thought I'd try the .zip download and see what it does.
I'm curious why it chatters the heck out of my hard drive
just moving around on the "menu.exe" interface.
If it's constantly tracking the mouse and recording to and
reading from the hard drive I would see that as a negative.
It really seems like something is wrong there.
Just trying to help.
Joe
but I thought I'd try the .zip download and see what it does.
I'm curious why it chatters the heck out of my hard drive
just moving around on the "menu.exe" interface.
If it's constantly tracking the mouse and recording to and
reading from the hard drive I would see that as a negative.
It really seems like something is wrong there.
Just trying to help.
Joe
peace
[pI 166Mhz 32Mb w95]
[pII 350Mhz 256Mb atir3RagePro WinDoze '98 FE & 2k]
[Athlon 1.3Ghz 160Mb XPHome & RedHat9]
[pI 166Mhz 32Mb w95]
[pII 350Mhz 256Mb atir3RagePro WinDoze '98 FE & 2k]
[Athlon 1.3Ghz 160Mb XPHome & RedHat9]