sorry for not being on I got an Xbox 360 for chirstmas and i had to play.
Edit: Here is the code to waypoint editor.Dbp only i think
Rem Project: darknoobs part 2
Rem Created: 22/12/2008 10:00:40 AM
Rem ***** Main Source File *****
sync on
sync rate 0
set text size 12
set text font "arial"
load image "defaultmap.png",1
rem varibles\arrays
cs1 = screen width()/2
cs2 = screen height()/2
a as integer
b as integer
a = 5
b = 1
waypoint_1_X = 0
waypoint_1_Y = 0
waypoint_2_X = 0
waypoint_2_Y = 0
waypoint_3_X = 0
waypoint_3_Y = 0
waypoint_4_X = 0
waypoint_4_Y = 0
waypoint_5_X = 0
waypoint_5_Y = 0
waypoint_6_X = 0
waypoint_6_Y = 0
waypoint_7_X = 0
waypoint_7_Y = 0
waypoint_8_X = 0
waypoint_8_Y = 0
waypoint_9_X = 0
waypoint_10_Y = 0
waypoint_11_X = 0
waypoint_11_Y = 0
waypoint_12_X = 0
waypoint_12_Y = 0
waypoint_13_X = 0
waypoint_13_Y = 0
waypoint_14_X = 0
waypoint_14_Y = 0
waypoint_15_X = 0
waypoint_15_Y = 0
waypoint_16_X = 0
waypoint_16_Y = 0
waypoint_17_X = 0
waypoint_17_Y = 0
waypoint_18_X = 0
waypoint_18_Y = 0
waypoint_19_X = 0
waypoint_19_Y = 0
waypoint_20_X = 0
waypoint_20_Y = 0
fname$ = "untitiled"
mouse_get_waypoints = 0
dim destination(20,2)
destination(1,1) = waypoint_1_X
destination(1,2) = waypoint_1_Y
destination(2,1) = waypoint_2_X
destination(2,2) = waypoint_2_Y
destination(3,1) = waypoint_3_X
destination(3,2) = waypoint_3_Y
destination(4,1) = waypoint_4_X
destination(4,2) = waypoint_4_Y
destination(5,1) = waypoint_5_X
destination(5,2) = waypoint_5_Y
destination(6,1) = waypoint_6_X
destination(6,2) = waypoint_6_Y
destination(7,1) = waypoint_7_X
destination(7,2) = waypoint_7_Y
destination(8,1) = waypoint_8_X
destination(8,2) = waypoint_8_Y
destination(9,2) = waypoint_9_Y
destination(9,1) = waypoint_9_X
destination(10,2) = waypoint_10_Y
destination(10,1) = waypoint_10_X
destination(11,1) = waypoint_11_X
destination(11,2) = waypoint_11_Y
destination(12,1) = waypoint_12_X
destination(12,2) = waypoint_12_Y
destination(13,1) = waypoint_13_X
destination(13,2) = waypoint_13_Y
destination(14,2) = waypoint_14_Y
destination(14,1) = waypoint_14_X
destination(15,1) = waypoint_15_X
destination(15,2) = waypoint_15_Y
destination(16,1) = waypoint_16_X
destination(16,2) = waypoint_16_Y
destination(17,1) = waypoint_17_X
destination(17,2) = waypoint_17_Y
destination(18,2) = waypoint_18_Y
destination(18,1) = waypoint_18_X
destination(19,1) = waypoint_19_X
destination(19,2) = waypoint_19_Y
destination(20,1) = waypoint_20_X
destination(20,2) = waypoint_20_Y
mx = MouseX()
my = MouseY()
mc = MouseClick()
cc = 0
rem make creep
gosub make_creep
rem ***********************************************************************************************
rem ***********************************************************************************************
rem ***********************************************************************************************
rem ***********************************************************************************************
rem **************************************** MAIN LOOP*********************************************
rem ***********************************************************************************************
rem ***********************************************************************************************
rem ***********************************************************************************************
do
rem clear waypoints
if keystate(46) = 1 then gosub clear_waypoints
Rem mouse click to get waypoints check
if shiftkey() = 1 then mouse_get_waypoints = 1
if keystate(44) = 1 then mouse_get_waypoints = 0
rem displays info
gosub setupGUI
rem custom characters
if keystate(46) = 1 and keystate(29) = 1 then gosub custom_character
rem custom character size
if keystate(46) = 1 and keystate(29) = 1 and keystate(31) = 1 then gosub scale_character
rem load map
if keystate(50) = 1 and keystate(29) = 1 then gosub paste_map
rem making dbp file
if keystate(30) = 1 and keystate(29) = 1 then gosub make_into_dbpro_code
rem loading
if keystate(38) = 1 and keystate(29) = 1 then gosub load
rem saving
if keystate(31) = 1 and keystate(29) = 1 then gosub save
rem get waypoints
if mouse_get_waypoints = 0 then gosub getwaypoints
if mouse_get_waypoints = 1 then gosub mouse_click_waypoint1
rem move to way points
if spacekey() = 1 then gosub move_creep1
rem sync
sync
loop
rem ***********************************************************************************************
rem ***********************************************************************************************
rem ***************************************SUB ROUTINES********************************************
rem ***********************************************************************************************
rem ***********************************************************************************************
rem ***********************************************************************************************
scale_character:
if cc = 0 then return
Input "To double your character size type 200, to make it two times smaller type 50",csize$
if sprite exist (3) = 1 then scale sprite 3,val(csize$)
return
custom_character:
Input "Input the file name you want to open and to have as the character, make sure to include extension. ",cname$
if file exist (cname$) = 1 then load image cname$,2
cc = 1
return
paste_map:
cls
if sprite exist (2) then delete sprite 2
gosub setupGUI
Input "Input the file name you want to open and to have as the backround, make sure to include extension. ",mname$
if file exist (mname$) = 1 then load image mname$,1
sprite 2,0,0,1:size sprite 2,screen width(),screen height():set sprite alpha 2,150
return
clear_waypoints:
cls
input "Which waypoint would you like to clear. If you type all then all the way points will be cleared. Please only clear one waypoint at a time. ",choice3$
if choice3$ = "1" then waypoint_1_X = 0:waypoint_1_Y = 0
if choice3$ = "2" then waypoint_2_X = 0:waypoint_2_Y = 0
if choice3$ = "3" then waypoint_3_X = 0:waypoint_3_Y = 0
if choice3$ = "4" then waypoint_4_X = 0:waypoint_4_Y = 0
if choice3$ = "5" then waypoint_5_X = 0:waypoint_5_Y = 0
if choice3$ = "6" then waypoint_6_X = 0:waypoint_6_Y = 0
if choice3$ = "7" then waypoint_7_X = 0:waypoint_7_Y = 0
if choice3$ = "8" then waypoint_8_X = 0:waypoint_8_Y = 0
if choice3$ = "9" then waypoint_9_X = 0:waypoint_9_Y = 0
if choice3$ = "10" then waypoint_10_X = 0:waypoint_10_Y = 0
if choice3$ = "11" then waypoint_11_X = 0:waypoint_11_Y = 0
if choice3$ = "12" then waypoint_12_X = 0:waypoint_12_Y = 0
if choice3$ = "13" then waypoint_13_X = 0:waypoint_13_Y = 0
if choice3$ = "14" then waypoint_14_X = 0:waypoint_14_Y = 0
if choice3$ = "15" then waypoint_15_X = 0:waypoint_15_Y = 0
if choice3$ = "16" then waypoint_16_X = 0:waypoint_16_Y = 0
if choice3$ = "17" then waypoint_17_X = 0:waypoint_17_Y = 0
if choice3$ = "18" then waypoint_18_X = 0:waypoint_18_Y = 0
if choice3$ = "19" then waypoint_19_X = 0:waypoint_19_Y = 0
if choice3$ = "20" then waypoint_20_X = 0:waypoint_20_Y = 0
if choice3$ = "all" then waypoint_1_X = 0:waypoint_1_Y = 0:waypoint_2_X = 0:waypoint_2_Y = 0:waypoint_3_X = 0:waypoint_3_Y = 0:waypoint_4_X = 0:waypoint_4_Y = 0:waypoint_5_X = 0:waypoint_5_Y = 0:waypoint_6_X = 0:waypoint_6_Y = 0:waypoint_7_X = 0:waypoint_7_Y = 0:waypoint_8_X = 0:waypoint_8_Y = 0:waypoint_9_X = 0:waypoint_9_Y = 0:waypoint_10_Y = 0:waypoint_10_X = 0:waypoint_11_X = 0:waypoint_11_Y = 0:waypoint_12_X = 0:waypoint_12_Y = 0:waypoint_13_X = 0:waypoint_13_Y = 0:waypoint_14_X = 0:waypoint_14_Y = 0:waypoint_15_X = 0:waypoint_15_Y = 0:waypoint_16_X = 0:waypoint_16_Y = 0:waypoint_17_X = 0:waypoint_17_Y = 0:waypoint_18_X = 0:waypoint_18_Y = 0:waypoint_19_X = 0:waypoint_19_Y = 0:waypoint_20_X = 0:waypoint_20_Y = 0
return
getwaypoints:
gosub setupGUI
if keystate(17) = 1 then gosub get_waypoint1
return
setupGUI:
cls
text 1,85,"FPS: " + str$(screen fps())
text 1,100,"Waypoint 1 is at " + str$(waypoint_1_X) + ", " + str$(waypoint_1_Y)
text 1,115,"Waypoint 2 is at " + str$(waypoint_2_X) + ", " + str$(waypoint_2_Y)
text 1,130,"Waypoint 3 is at " + str$(waypoint_3_X) + ", " + str$(waypoint_3_Y)
text 1,145,"Waypoint 4 is at " + str$(waypoint_4_X) + ", " + str$(waypoint_4_Y)
text 1,160,"Waypoint 5 is at " + str$(waypoint_5_X) + ", " + str$(waypoint_5_Y)
text 1,175,"Waypoint 6 is at " + str$(waypoint_6_X) + ", " + str$(waypoint_6_Y)
text 1,190,"Waypoint 7 is at " + str$(waypoint_7_X) + ", " + str$(waypoint_7_Y)
text 1,205,"Waypoint 8 is at " + str$(waypoint_8_X) + ", " + str$(waypoint_8_Y)
text 1,220,"Waypoint 9 is at " + str$(waypoint_9_X) + ", " + str$(waypoint_9_Y)
text 1,235,"Waypoint 10 is at " + str$(waypoint_10_X) + ", " + str$(waypoint_10_Y)
text 1,250,"Waypoint 11 is at " + str$(waypoint_11_X) + ", " + str$(waypoint_11_Y)
text 1,265,"Waypoint 12 is at " + str$(waypoint_12_X) + ", " + str$(waypoint_12_Y)
text 1,280,"Waypoint 13 is at " + str$(waypoint_13_X) + ", " + str$(waypoint_13_Y)
text 1,295,"Waypoint 14 is at " + str$(waypoint_14_X) + ", " + str$(waypoint_14_Y)
text 1,310,"Waypoint 15 is at " + str$(waypoint_15_X) + ", " + str$(waypoint_15_Y)
text 1,325,"Waypoint 16 is at " + str$(waypoint_16_X) + ", " + str$(waypoint_16_Y)
text 1,340,"Waypoint 17 is at " + str$(waypoint_17_X) + ", " + str$(waypoint_17_Y)
text 1,355,"Waypoint 18 is at " + str$(waypoint_18_X) + ", " + str$(waypoint_18_Y)
text 1,370,"Waypoint 19 is at " + str$(waypoint_19_X) + ", " + str$(waypoint_19_Y)
text 1,385,"Waypoint 20 is at " + str$(waypoint_20_X) + ", " + str$(waypoint_20_Y)
text 1,400,"Current saved file name is " + fname$ + "."
if mouse_get_waypoints = 1 then text 1,415,"The mouse is making waypoints."
print mx
print my
return
get_waypoint1:
gosub setupGUI
input "Please tell me your X coordinate for your waypoint. ",kbwpx
input "Please tell me your Y coordinate for your waypoint. ",kbwpy
input "Which waypoint would you like these coordinates to be for. Select a waypoint from 1 - 20.",choice$
if choice$ = "1" then waypoint_1_X = kbwpx:waypoint_1_Y = kbwpy
if choice$ = "2" then waypoint_2_X = kbwpx:waypoint_2_Y = kbwpy
if choice$ = "3" then waypoint_3_X = kbwpx:waypoint_3_Y = kbwpy
if choice$ = "4" then waypoint_4_X = kbwpx:waypoint_4_Y = kbwpy
if choice$ = "5" then waypoint_5_X = kbwpx:waypoint_5_Y = kbwpy
if choice$ = "6" then waypoint_6_X = kbwpx:waypoint_6_Y = kbwpy
if choice$ = "7" then waypoint_7_X = kbwpx:waypoint_7_Y = kbwpy
if choice$ = "8" then waypoint_8_X = kbwpx:waypoint_8_Y = kbwpy
if choice$ = "9" then waypoint_9_X = kbwpx:waypoint_9_Y = kbwpy
if choice$ = "10" then waypoint_10_X = kbwpx:waypoint_10_Y = kbwpy
if choice$ = "11" then waypoint_11_X = kbwpx:waypoint_11_Y = kbwpy
if choice$ = "12" then waypoint_12_X = kbwpx:waypoint_12_Y = kbwpy
if choice$ = "13" then waypoint_13_X = kbwpx:waypoint_13_Y = kbwpy
if choice$ = "14" then waypoint_14_X = kbwpx:waypoint_14_Y = kbwpy
if choice$ = "15" then waypoint_15_X = kbwpx:waypoint_15_Y = kbwpy
if choice$ = "16" then waypoint_16_X = kbwpx:waypoint_16_Y = kbwpy
if choice$ = "17" then waypoint_17_X = kbwpx:waypoint_17_Y = kbwpy
if choice$ = "18" then waypoint_18_X = kbwpx:waypoint_18_Y = kbwpy
if choice$ = "19" then waypoint_19_X = kbwpx:waypoint_19_Y = kbwpy
if choice$ = "20" then waypoint_20_X = kbwpx:waypoint_20_Y = kbwpy
destination(1,1) = waypoint_1_X
destination(1,2) = waypoint_1_Y
destination(2,1) = waypoint_2_X
destination(2,2) = waypoint_2_Y
destination(3,1) = waypoint_3_X
destination(3,2) = waypoint_3_Y
destination(4,1) = waypoint_4_X
destination(4,2) = waypoint_4_Y
destination(5,1) = waypoint_5_X
destination(5,2) = waypoint_5_Y
destination(6,1) = waypoint_6_X
destination(6,2) = waypoint_6_Y
destination(7,1) = waypoint_7_X
destination(7,2) = waypoint_7_Y
destination(8,1) = waypoint_8_X
destination(8,2) = waypoint_8_Y
destination(9,2) = waypoint_9_Y
destination(9,1) = waypoint_9_X
destination(10,2) = waypoint_10_Y
destination(10,1) = waypoint_10_X
destination(11,1) = waypoint_11_X
destination(11,2) = waypoint_11_Y
destination(12,1) = waypoint_12_X
destination(12,2) = waypoint_12_Y
destination(13,1) = waypoint_13_X
destination(13,2) = waypoint_13_Y
destination(14,2) = waypoint_14_Y
destination(14,1) = waypoint_14_X
destination(15,1) = waypoint_15_X
destination(15,2) = waypoint_15_Y
destination(16,1) = waypoint_16_X
destination(16,2) = waypoint_16_Y
destination(17,1) = waypoint_17_X
destination(17,2) = waypoint_17_Y
destination(18,2) = waypoint_18_Y
destination(18,1) = waypoint_18_X
destination(19,1) = waypoint_19_X
destination(19,2) = waypoint_19_Y
destination(20,1) = waypoint_20_X
destination(20,2) = waypoint_20_Y
cls
return
`================================================================================
`= The heart of the engine lies here, an algorithim i created, well i think i =
`= created because i haven't seen it before =
`================================================================================
move_creep1:
gosub setupGUI
if a < destination(1,1) then inc a,1:gosub make_creep:return
if a > destination(1,1) then dec a,1:gosub make_creep:return
if b < destination(1,2) then inc b,1:gosub make_creep:return
if b > destination(1,2) then dec b,1:gosub make_creep:return
if a = destination(1,1) then destination(1,1) = waypoint_2_X
if b = destination(1,2) then destination(1,2) = waypoint_2_Y
if a = destination(2,1) then destination(1,1) = waypoint_3_X
if b = destination(2,2) then destination(1,2) = waypoint_3_Y
if a = destination(3,1) and waypoint_4_X > 0 then destination(1,1) = waypoint_4_X
if b = destination(3,2) and waypoint_4_Y > 0 then destination(1,2) = waypoint_4_Y
if a = destination(4,1) and waypoint_5_X > 0 then destination(1,1) = waypoint_5_X
if b = destination(4,2) and waypoint_5_Y > 0 then destination(1,2) = waypoint_5_Y
if a = destination(5,1) and waypoint_6_X > 0 then destination(1,1) = waypoint_6_X
if b = destination(5,2) and waypoint_6_Y > 0 then destination(1,2) = waypoint_6_Y
if a = destination(6,1) and waypoint_7_X > 0 then destination(1,1) = waypoint_7_X
if b = destination(6,2) and waypoint_7_Y > 0 then destination(1,2) = waypoint_7_Y
if a = destination(7,1) and waypoint_8_X > 0 then destination(1,1) = waypoint_8_X
if b = destination(7,2) and waypoint_8_Y > 0 then destination(1,2) = waypoint_8_Y
if a = destination(8,1) and waypoint_9_X > 0 then destination(1,1) = waypoint_9_X
if b = destination(8,2) and waypoint_9_Y > 0 then destination(1,2) = waypoint_9_Y
if a = destination(9,1) and waypoint_10_X > 0 then destination(1,1) = waypoint_10_X
if b = destination(9,2) and waypoint_10_Y > 0 then destination(1,2) = waypoint_10_Y
if a = destination(10,1) and waypoint_11_X > 0 then destination(1,1) = waypoint_11_X
if b = destination(10,2) and waypoint_11_Y > 0 then destination(1,2) = waypoint_11_Y
if a = destination(11,1) and waypoint_12_X > 0 then destination(1,1) = waypoint_12_X
if b = destination(11,2) and waypoint_12_Y > 0 then destination(1,2) = waypoint_12_Y
if a = destination(12,1) and waypoint_13_X > 0 then destination(1,1) = waypoint_13_X
if b = destination(12,2) and waypoint_13_Y > 0 then destination(1,2) = waypoint_13_Y
if a = destination(13,1) and waypoint_14_X > 0 then destination(1,1) = waypoint_14_X
if b = destination(13,2) and waypoint_14_Y > 0 then destination(1,2) = waypoint_14_Y
if a = destination(14,1) and waypoint_15_X > 0 then destination(1,1) = waypoint_15_X
if b = destination(14,2) and waypoint_15_Y > 0 then destination(1,2) = waypoint_15_Y
if a = destination(15,1) and waypoint_16_X > 0 then destination(1,1) = waypoint_16_X
if b = destination(15,2) and waypoint_16_Y > 0 then destination(1,2) = waypoint_16_Y
if a = destination(16,1) and waypoint_17_X > 0 then destination(1,1) = waypoint_17_X
if b = destination(16,2) and waypoint_17_Y > 0 then destination(1,2) = waypoint_17_Y
if a = destination(17,1) and waypoint_18_X > 0 then destination(1,1) = waypoint_18_X
if b = destination(17,2) and waypoint_18_Y > 0 then destination(1,2) = waypoint_18_Y
if a = destination(18,1) and waypoint_19_X > 0 then destination(1,1) = waypoint_19_X
if b = destination(18,2) and waypoint_19_Y > 0 then destination(1,2) = waypoint_19_Y
if a = destination(19,1) and waypoint_20_X > 0 then destination(1,1) = waypoint_20_X
if b = destination(19,2) and waypoint_20_Y > 0 then destination(1,2) = waypoint_20_Y
if a = destination(20,1) then destination(1,1) = waypoint_1_X
if b = destination(20,2) then destination(1,2) = waypoint_1_Y
return
make_creep:
if sprite exist (3) then delete sprite 3
if cc = 0 then circle a,b,5
if cc = 1 then sprite 3,a,b,2
return
`================================================================================
`= Allows you to save your work so you dont have to redo it =
`= =
`================================================================================
save:
input "What do you want to call the file? Do not include .txt to file name. ",fname$
center text cs1,cs2,"Saving"
cls
if FILE EXIST(fname$) = 1 then delete file fname$
open to write 1,fname$+".txt"
write string 1,str$(waypoint_1_X)
write string 1,str$(waypoint_1_Y)
write string 1,str$(waypoint_2_X)
write string 1,str$(waypoint_2_Y)
write string 1,str$(waypoint_3_X)
write string 1,str$(waypoint_3_Y)
write string 1,str$(waypoint_4_X)
write string 1,str$(waypoint_4_Y)
write string 1,str$(waypoint_5_X)
write string 1,str$(waypoint_5_Y)
write string 1,str$(waypoint_6_X)
write string 1,str$(waypoint_6_Y)
write string 1,str$(waypoint_7_X)
write string 1,str$(waypoint_7_Y)
write string 1,str$(waypoint_8_X)
write string 1,str$(waypoint_8_Y)
write string 1,str$(waypoint_9_X)
write string 1,str$(waypoint_9_Y)
write string 1,str$(waypoint_10_X)
write string 1,str$(waypoint_10_Y)
write string 1,str$(waypoint_11_X)
write string 1,str$(waypoint_11_Y)
write string 1,str$(waypoint_12_X)
write string 1,str$(waypoint_12_Y)
write string 1,str$(waypoint_13_X)
write string 1,str$(waypoint_13_Y)
write string 1,str$(waypoint_14_X)
write string 1,str$(waypoint_14_Y)
write string 1,str$(waypoint_15_X)
write string 1,str$(waypoint_15_Y)
write string 1,str$(waypoint_16_X)
write string 1,str$(waypoint_16_Y)
write string 1,str$(waypoint_17_X)
write string 1,str$(waypoint_17_Y)
write string 1,str$(waypoint_18_X)
write string 1,str$(waypoint_18_Y)
write string 1,str$(waypoint_19_X)
write string 1,str$(waypoint_19_Y)
write string 1,str$(waypoint_20_X)
write string 1,str$(waypoint_20_Y)
close file 1
cls
return
`================================================================================
`= This command opens you saved work so you dont have to redo it. A handy =
`= easy feature to use =
`================================================================================
load:
input "What file do you want to open? Do not include .txt to file name. ",fname$
center text cs1,cs2,"Loading"
open to read 1,fname$+".txt"
read string 1,t$ :waypoint_1_X = val(t$)
read string 1,t$ :waypoint_1_Y = val(t$)
read string 1,t$ :waypoint_2_X = val(t$)
read string 1,t$ :waypoint_2_Y = val(t$)
read string 1,t$ :waypoint_3_X = val(t$)
read string 1,t$ :waypoint_3_Y = val(t$)
read string 1,t$ :waypoint_4_X = val(t$)
read string 1,t$ :waypoint_4_Y = val(t$)
read string 1,t$ :waypoint_5_X = val(t$)
read string 1,t$ :waypoint_5_Y = val(t$)
read string 1,t$ :waypoint_6_X = val(t$)
read string 1,t$ :waypoint_6_Y = val(t$)
read string 1,t$ :waypoint_7_X = val(t$)
read string 1,t$ :waypoint_7_Y = val(t$)
read string 1,t$ :waypoint_8_X = val(t$)
read string 1,t$ :waypoint_8_Y = val(t$)
read string 1,t$ :waypoint_9_X = val(t$)
read string 1,t$ :waypoint_9_Y = val(t$)
read string 1,t$ :waypoint_10_X = val(t$)
read string 1,t$ :waypoint_10_Y = val(t$)
read string 1,t$ :waypoint_11_X = val(t$)
read string 1,t$ :waypoint_11_Y = val(t$)
read string 1,t$ :waypoint_12_X = val(t$)
read string 1,t$ :waypoint_12_Y = val(t$)
read string 1,t$ :waypoint_13_X = val(t$)
read string 1,t$ :waypoint_13_Y = val(t$)
read string 1,t$ :waypoint_14_X = val(t$)
read string 1,t$ :waypoint_14_Y = val(t$)
read string 1,t$ :waypoint_15_X = val(t$)
read string 1,t$ :waypoint_15_Y = val(t$)
read string 1,t$ :waypoint_16_X = val(t$)
read string 1,t$ :waypoint_16_Y = val(t$)
read string 1,t$ :waypoint_17_X = val(t$)
read string 1,t$ :waypoint_17_Y = val(t$)
read string 1,t$ :waypoint_18_X = val(t$)
read string 1,t$ :waypoint_18_Y = val(t$)
read string 1,t$ :waypoint_19_X = val(t$)
read string 1,t$ :waypoint_19_Y = val(t$)
read string 1,t$ :waypoint_20_X = val(t$)
read string 1,t$ :waypoint_20_Y = val(t$)
close file 1
destination(1,1) = waypoint_1_X
destination(1,2) = waypoint_1_Y
destination(2,1) = waypoint_2_X
destination(2,2) = waypoint_2_Y
destination(3,1) = waypoint_3_X
destination(3,2) = waypoint_3_Y
destination(4,1) = waypoint_4_X
destination(4,2) = waypoint_4_Y
destination(5,1) = waypoint_5_X
destination(5,2) = waypoint_5_Y
destination(6,1) = waypoint_6_X
destination(6,2) = waypoint_6_Y
destination(7,1) = waypoint_7_X
destination(7,2) = waypoint_7_Y
destination(8,1) = waypoint_8_X
destination(8,2) = waypoint_8_Y
destination(9,2) = waypoint_9_Y
destination(9,1) = waypoint_9_X
destination(10,2) = waypoint_10_Y
destination(10,1) = waypoint_10_X
destination(11,1) = waypoint_11_X
destination(11,2) = waypoint_11_Y
destination(12,1) = waypoint_12_X
destination(12,2) = waypoint_12_Y
destination(13,1) = waypoint_13_X
destination(13,2) = waypoint_13_Y
destination(14,2) = waypoint_14_Y
destination(14,1) = waypoint_14_X
destination(15,1) = waypoint_15_X
destination(15,2) = waypoint_15_Y
destination(16,1) = waypoint_16_X
destination(16,2) = waypoint_16_Y
destination(17,1) = waypoint_17_X
destination(17,2) = waypoint_17_Y
destination(18,2) = waypoint_18_Y
destination(18,1) = waypoint_18_X
destination(19,1) = waypoint_19_X
destination(19,2) = waypoint_19_Y
destination(20,1) = waypoint_20_X
destination(20,2) = waypoint_20_Y
cls
return
`================================================================================
`= This gets waypoints through mouse clicks. Useful for getting waypoints fast =
`================================================================================
mouse_click_waypoint1:
mc = mouseclick()
mx = mousex()
my = mousey()
if mc > 0 then mwpx = mx:mwpy = my:else return
input "Which waypoint would like this to be? 1 - 20. ",choice$
if choice$ = "1" then waypoint_1_X = mwpx:waypoint_1_Y = mwpy
if choice$ = "2" then waypoint_2_X = mwpx:waypoint_2_Y = mwpy
if choice$ = "3" then waypoint_3_X = mwpx:waypoint_3_Y = mwpy
if choice$ = "4" then waypoint_4_X = mwpx:waypoint_4_Y = mwpy
if choice$ = "5" then waypoint_5_X = mwpx:waypoint_5_Y = mwpy
if choice$ = "6" then waypoint_6_X = mwpx:waypoint_6_Y = mwpy
if choice$ = "7" then waypoint_7_X = mwpx:waypoint_7_Y = mwpy
if choice$ = "8" then waypoint_8_X = mwpx:waypoint_8_Y = mwpy
if choice$ = "9" then waypoint_9_X = mwpx:waypoint_9_Y = mwpy
if choice$ = "10" then waypoint_10_X = mwpx:waypoint_10_Y = mwpy
if choice$ = "11" then waypoint_11_X = mwpx:waypoint_11_Y = mwpy
if choice$ = "12" then waypoint_12_X = mwpx:waypoint_12_Y = mwpy
if choice$ = "13" then waypoint_13_X = mwpx:waypoint_13_Y = mwpy
if choice$ = "14" then waypoint_14_X = mwpx:waypoint_14_Y = mwpy
if choice$ = "15" then waypoint_15_X = mwpx:waypoint_15_Y = mwpy
if choice$ = "16" then waypoint_16_X = mwpx:waypoint_16_Y = mwpy
if choice$ = "17" then waypoint_17_X = mwpx:waypoint_17_Y = mwpy
if choice$ = "18" then waypoint_18_X = mwpx:waypoint_18_Y = mwpy
if choice$ = "19" then waypoint_19_X = mwpx:waypoint_19_Y = mwpy
if choice$ = "20" then waypoint_20_X = mwpx:waypoint_20_Y = mwpy
destination(1,1) = waypoint_1_X
destination(1,2) = waypoint_1_Y
destination(2,1) = waypoint_2_X
destination(2,2) = waypoint_2_Y
destination(3,1) = waypoint_3_X
destination(3,2) = waypoint_3_Y
destination(4,1) = waypoint_4_X
destination(4,2) = waypoint_4_Y
destination(5,1) = waypoint_5_X
destination(5,2) = waypoint_5_Y
destination(6,1) = waypoint_6_X
destination(6,2) = waypoint_6_Y
destination(7,1) = waypoint_7_X
destination(7,2) = waypoint_7_Y
destination(8,1) = waypoint_8_X
destination(8,2) = waypoint_8_Y
destination(9,2) = waypoint_9_Y
destination(9,1) = waypoint_9_X
destination(10,2) = waypoint_10_Y
destination(10,1) = waypoint_10_X
destination(11,1) = waypoint_11_X
destination(11,2) = waypoint_11_Y
destination(12,1) = waypoint_12_X
destination(12,2) = waypoint_12_Y
destination(13,1) = waypoint_13_X
destination(13,2) = waypoint_13_Y
destination(14,2) = waypoint_14_Y
destination(14,1) = waypoint_14_X
destination(15,1) = waypoint_15_X
destination(15,2) = waypoint_15_Y
destination(16,1) = waypoint_16_X
destination(16,2) = waypoint_16_Y
destination(17,1) = waypoint_17_X
destination(17,2) = waypoint_17_Y
destination(18,2) = waypoint_18_Y
destination(18,1) = waypoint_18_X
destination(19,1) = waypoint_19_X
destination(19,2) = waypoint_19_Y
destination(20,1) = waypoint_20_X
destination(20,2) = waypoint_20_Y
return
`================================================================================
`= Newest and most powerful feature it allows the player to save what h =
`= created into dbp code. All he has to do is copy and paste it from a text file=
`================================================================================
make_into_dbpro_code:
Input "What would you like the file to be called? ",fname$
if FILE EXIST(fname$) = 1 then delete file fname$
Open to write 1,fname$+".txt"
write string 1,"rem Variables"
write string 1,"a = 5"
write string 1,"b = 1"
write string 1,"waypoint_1_X = " + str$(waypoint_1_X)
write string 1,"waypoint_1_Y = " + str$(waypoint_1_Y)
write string 1,""
write string 1,"waypoint_2_X = " + str$(waypoint_2_X)
write string 1,"waypoint_2_Y = " + str$(waypoint_2_Y)
write string 1,""
write string 1,"waypoint_3_X = " + str$(waypoint_3_X)
write string 1,"waypoint_3_Y = " + str$(waypoint_3_Y)
write string 1,""
write string 1,"waypoint_4_X = " + str$(waypoint_4_X)
write string 1,"waypoint_4_Y = " + str$(waypoint_4_X)
write string 1,""
write string 1,"waypoint_5_X = " + str$(waypoint_5_X)
write string 1,"waypoint_5_Y = " + str$(waypoint_5_X)
write string 1,""
write string 1,"waypoint_6_X = " + str$(waypoint_6_X)
write string 1,"waypoint_6_Y = " + str$(waypoint_6_X)
write string 1,""
write string 1,"waypoint_7_X = " + str$(waypoint_7_X)
write string 1,"waypoint_7_Y = " + str$(waypoint_7_X)
write string 1,""
write string 1,"waypoint_8_X = " + str$(waypoint_8_X)
write string 1,"waypoint_8_Y = " + str$(waypoint_8_X)
write string 1,""
write string 1,"waypoint_9_X = " + str$(waypoint_9_X)
write string 1,"waypoint_9_X = " + str$(waypoint_9_X)
write string 1,""
write string 1,"waypoint_10_Y = " + str$(waypoint_10_X)
write string 1,"waypoint_10_Y = " + str$(waypoint_10_X)
write string 1,""
write string 1,"waypoint_11_X = " + str$(waypoint_11_X)
write string 1,"waypoint_11_Y = " + str$(waypoint_11_X)
write string 1,""
write string 1,"waypoint_12_X = " + str$(waypoint_12_X)
write string 1,"waypoint_12_Y = " + str$(waypoint_12_X)
write string 1,""
write string 1,"waypoint_13_X = " + str$(waypoint_13_X)
write string 1,"waypoint_13_Y = " + str$(waypoint_13_X)
write string 1,""
write string 1,"waypoint_14_X = " + str$(waypoint_14_X)
write string 1,"waypoint_14_Y = " + str$(waypoint_14_X)
write string 1,""
write string 1,"waypoint_15_X = " + str$(waypoint_15_X)
write string 1,"waypoint_15_Y = " + str$(waypoint_15_X)
write string 1,""
write string 1,"waypoint_16_X = " + str$(waypoint_16_X)
write string 1,"waypoint_16_Y = " + str$(waypoint_16_X)
write string 1,""
write string 1,"waypoint_17_X = " + str$(waypoint_17_X)
write string 1,"waypoint_17_Y = " + str$(waypoint_17_X)
write string 1,""
write string 1,"waypoint_18_X = " + str$(waypoint_18_X)
write string 1,"waypoint_18_Y = " + str$(waypoint_18_X)
write string 1,""
write string 1,"waypoint_19_X = " + str$(waypoint_19_X)
write string 1,"waypoint_19_Y = " + str$(waypoint_19_X)
write string 1,""
write string 1,"waypoint_20_X = " + str$(waypoint_20_X)
write string 1,"waypoint_20_Y = " + str$(waypoint_20_X)
write string 1,""
write string 1,"rem Array"
write string 1,"dim destination(20,2)"
write string 1,"destination(1,1) = waypoint_1_X"
write string 1,"destination(1,2) = waypoint_1_Y"
write string 1,"destination(2,1) = waypoint_2_X"
write string 1,"destination(2,2) = waypoint_2_Y"
write string 1,"destination(3,1) = waypoint_3_X"
write string 1,"destination(3,2) = waypoint_3_Y"
write string 1,"destination(4,1) = waypoint_4_X"
write string 1,"destination(4,2) = waypoint_4_Y"
write string 1,"destination(5,1) = waypoint_5_X"
write string 1,"destination(5,2) = waypoint_5_Y"
write string 1,"destination(6,1) = waypoint_6_X"
write string 1,"destination(6,2) = waypoint_6_Y"
write string 1,"destination(7,1) = waypoint_7_X"
write string 1,"destination(7,2) = waypoint_7_Y"
write string 1,"destination(8,1) = waypoint_8_X"
write string 1,"destination(8,2) = waypoint_8_Y"
write string 1,"destination(9,2) = waypoint_9_Y"
write string 1,"destination(9,1) = waypoint_9_X"
write string 1,"destination(10,2) = waypoint_10_Y"
write string 1,"destination(10,1) = waypoint_10_X"
write string 1,"destination(11,1) = waypoint_11_X"
write string 1,"destination(11,2) = waypoint_11_Y"
write string 1,"destination(12,1) = waypoint_12_X"
write string 1,"destination(12,2) = waypoint_12_Y"
write string 1,"destination(13,1) = waypoint_13_X"
write string 1,"destination(13,2) = waypoint_13_Y"
write string 1,"destination(14,2) = waypoint_14_Y"
write string 1,"destination(14,1) = waypoint_14_X"
write string 1,"destination(15,1) = waypoint_15_X"
write string 1,"destination(15,2) = waypoint_15_Y"
write string 1,"destination(16,1) = waypoint_16_X"
write string 1,"destination(16,2) = waypoint_16_Y"
write string 1,"destination(17,1) = waypoint_17_X"
write string 1,"destination(17,2) = waypoint_17_Y"
write string 1,"destination(18,2) = waypoint_18_Y"
write string 1,"destination(18,1) = waypoint_18_X"
write string 1,"destination(19,1) = waypoint_19_X"
write string 1,"destination(19,2) = waypoint_19_Y"
write string 1,"destination(20,1) = waypoint_20_X"
write string 1,"destination(20,2) = waypoint_20_Y"
write string 1,""
write string 1,"move_creep1:"
write string 1,"if a < destination(1,1) then inc a,1:gosub make_creep:return"
write string 1,"if a > destination(1,1) then dec a,1:gosub make_creep:return"
write string 1,"if b < destination(1,2) then inc b,1:gosub make_creep:return"
write string 1,"if b > destination(1,2) then dec b,1:gosub make_creep:return"
write string 1,""
write string 1,"if a = destination(1,1) then destination(1,1) = waypoint_2_X"
write string 1,"if b = destination(1,2) then destination(1,2) = waypoint_2_Y"
write string 1,""
write string 1,"if a = destination(2,1) then destination(1,1) = waypoint_3_X"
write string 1,"if b = destination(2,2) then destination(1,2) = waypoint_3_Y"
write string 1,"if a = destination(3,1) then destination(1,1) = waypoint_4_X"
write string 1,"if b = destination(3,2) then destination(1,2) = waypoint_4_Y"
write string 1,"if a = destination(4,1) and waypoint_5_X > 0 then destination(1,1) = waypoint_5_X"
write string 1,"if b = destination(4,2) and waypoint_5_Y > 0 then destination(1,2) = waypoint_5_Y"
write string 1,""
write string 1,"if a = destination(5,1) and waypoint_6_X > 0 then destination(1,1) = waypoint_6_X"
write string 1,"if b = destination(5,2) and waypoint_6_Y > 0 then destination(1,2) = waypoint_6_Y"
write string 1,""
write string 1,"if a = destination(6,1) and waypoint_7_X > 0 then destination(1,1) = waypoint_7_X"
write string 1,"if b = destination(6,2) and waypoint_7_Y > 0 then destination(1,2) = waypoint_7_Y"
write string 1,""
write string 1,"if a = destination(7,1) and waypoint_8_X > 0 then destination(1,1) = waypoint_8_X"
write string 1,"if b = destination(7,2) and waypoint_8_Y > 0 then destination(1,2) = waypoint_8_Y"
write string 1,""
write string 1,"if a = destination(8,1) and waypoint_9_X > 0 then destination(1,1) = waypoint_9_X"
write string 1,"if b = destination(8,2) and waypoint_9_Y > 0 then destination(1,2) = waypoint_9_Y"
write string 1,""
write string 1,"if a = destination(9,1) and waypoint_10_X > 0 then destination(1,1) = waypoint_10_X"
write string 1,"if b = destination(9,2) and waypoint_10_Y > 0 then destination(1,2) = waypoint_10_Y"
write string 1,""
write string 1,"if a = destination(10,1) and waypoint_11_X > 0 then destination(1,1) = waypoint_11_X"
write string 1,"if b = destination(10,2) and waypoint_11_Y > 0 then destination(1,2) = waypoint_11_Y"
write string 1,""
write string 1,"if a = destination(11,1) and waypoint_12_X > 0 then destination(1,1) = waypoint_12_X"
write string 1,"if b = destination(11,2) and waypoint_12_Y > 0 then destination(1,2) = waypoint_12_Y"
write string 1,""
write string 1,"if a = destination(12,1) and waypoint_13_X > 0 then destination(1,1) = waypoint_13_X"
write string 1,"if b = destination(12,2) and waypoint_13_Y > 0 then destination(1,2) = waypoint_13_Y"
write string 1,""
write string 1,"if a = destination(13,1) and waypoint_14_X > 0 then destination(1,1) = waypoint_14_X"
write string 1,"if b = destination(13,2) and waypoint_14_Y > 0 then destination(1,2) = waypoint_14_Y"
write string 1,""
write string 1,"if a = destination(14,1) and waypoint_15_X > 0 then destination(1,1) = waypoint_15_X"
write string 1,"if b = destination(14,2) and waypoint_15_Y > 0 then destination(1,2) = waypoint_15_Y"
write string 1,""
write string 1,"if a = destination(15,1) and waypoint_16_X > 0 then destination(1,1) = waypoint_16_X"
write string 1,"if b = destination(15,2) and waypoint_16_Y > 0 then destination(1,2) = waypoint_16_Y"
write string 1,""
write string 1,"if a = destination(16,1) and waypoint_17_X > 0 then destination(1,1) = waypoint_17_X"
write string 1,"if b = destination(16,2) and waypoint_17_Y > 0 then destination(1,2) = waypoint_17_Y"
write string 1,""
write string 1,"if a = destination(17,1) and waypoint_18_X > 0 then destination(1,1) = waypoint_18_X"
write string 1,"if b = destination(17,2) and waypoint_18_Y > 0 then destination(1,2) = waypoint_18_Y"
write string 1,""
write string 1,"if a = destination(18,1) and waypoint_19_X > 0 then destination(1,1) = waypoint_19_X"
write string 1,"if b = destination(18,2) and waypoint_19_Y > 0 then destination(1,2) = waypoint_19_Y"
write string 1,""
write string 1,"if a = destination(19,1) and waypoint_20_X > 0 then destination(1,1) = waypoint_20_X"
write string 1,"if b = destination(19,2) and waypoint_20_Y > 0 then destination(1,2) = waypoint_20_Y"
write string 1,""
write string 1,"if a = destination(20,1) then destination(1,1) = waypoint_1_X"
write string 1,"if b = destination(20,2) then destination(1,2) = waypoint_1_Y"
write string 1,""
write string 1,"return"
write string 1,""
write string 1,"make_creep:"
write string 1,"cls"
write string 1,"circle a,b,5"
write string 1,"return"
close file 1
return
I was here.