Post by Wayne Rayner on Mar 20, 2010 2:34:29 GMT -5
Hey guys
long time since I have posted here. Probably this is no use to any at the moment or even at all. I have been trying to finalise this version for quite a bit.
This version features Xp and Level Toolkit 0.01 (might be renamed to Xp and Level Generator). here is the code
New Code that writes to a file.
I also want to add another couple of things into the toolkit like a tilemap maker and some sprite creation tool. Another thing I might add is a race and class creation tool. Other tools might be made later.
Anyone who would like to help just do so. Suggestions, complaints and other comments on RPG Toolkit 0.01 are welcome.
Also how would I create a close app code. like press 3 to exit and then basic4GL closes
Yours
Wayne rayner
long time since I have posted here. Probably this is no use to any at the moment or even at all. I have been trying to finalise this version for quite a bit.
This version features Xp and Level Toolkit 0.01 (might be renamed to Xp and Level Generator). here is the code
' RPG Toolkit 0.01
' Created by Parabotai Studios
Resizetext (80,50)
dim menu_select
dim number_of_levels, xp_per_level
printr "Welcome to RPG Toolkit version 0.01"
printr ""
printr ""
printr "1 = Xp and Level Toolkit"
printr "2 = Credits"
printr "3 = Exit"
input menu_select
if menu_select = "1" then goto XpLevelToolkit
elseif menu_select = "2" then goto Credits
elseif menu_select = "3" then goto Exit
else print "Error incorrect menu item":sleep (1000):run
endif
XpLevelToolkit:
sleep (1000)
cls
printr "You are using XP Level Toolkit version 0.01"
printr ""
printr ""
print "How many levels would you like to be set up?"
input number_of_levels
printr ""
printr ""
print "What experiance would you like per level?"
input xp_per_level
sleep (1000)
cls
printr number_of_levels
printr xp_per_level
print "Total XP for Game: "
print number_of_levels * xp_per_level
sleep (1000)
cls
printr "This is very buggy and is also not very good"
printr ""
printr ""
printr "Tell me what you think at the basic4Gl forums"
sleep (1000)
cls
printr "Thanks for using this Xp and Level Toolkit 0.01"
printr "From Parabotai Studios"
end
Credits:
sleep (1000)
cls
printr "Created by Parabotai Studios"
printr "Programmed by Wayne Rayner"
printr "Special thanks for the following people"
printr "No-one has helped me yet"
Exit:
New Code that writes to a file.
' RPG Toolkit 0.01
' Created by Parabotai Studios
Resizetext (80,50)
dim menu_select
dim number_of_levels$, xp_per_level$
dim file, filename$
Menu:
printr "Welcome to RPG Toolkit version 0.01"
printr ""
printr ""
printr "1 = Xp and Level Toolkit"
printr "2 = Credits"
printr "3 = Exit"
input menu_select
if menu_select = "1" then goto XpLevelToolkit
elseif menu_select = "2" then goto Credits
elseif menu_select = "3" then goto Exit
else print "Error incorrect menu item":sleep (1000):goto Menu
endif
XpLevelToolkit:
sleep (1000)
cls
printr "You are using XP Level Toolkit version 0.01"
printr ""
printr ""
print "How many levels would you like to be set up?"
input number_of_levels$
printr ""
printr ""
print "What experiance would you like per level?"
input xp_per_level$
sleep (1000)
cls
printr number_of_levels$
printr xp_per_level$
printr ""
printr ""
printr "Please specify file path and name(also include the extension you want)"
input filename$
file = OpenFileWrite(filename$)
WriteLine (file, number_of_levels$)
WriteLine (file, xp_per_level$)
sleep (1000)
cls
printr "This is very buggy and is also not very good"
printr ""
printr ""
printr "Tell me what you think at the basic4Gl forums"
sleep (1000)
cls
printr "Thanks for using Xp and Level Toolkit 0.01"
printr "From Parabotai Studios"
end
Credits:
sleep (1000)
cls
printr "Created by Parabotai Studios"
printr "Programmed by Wayne Rayner"
printr "Special thanks to the following people"
printr "No-one has helped me yet"
sleep (2000)
cls
goto menu
Exit:
end
I also want to add another couple of things into the toolkit like a tilemap maker and some sprite creation tool. Another thing I might add is a race and class creation tool. Other tools might be made later.
Anyone who would like to help just do so. Suggestions, complaints and other comments on RPG Toolkit 0.01 are welcome.
Also how would I create a close app code. like press 3 to exit and then basic4GL closes
Yours
Wayne rayner