Welcome To My Home Page
HERE is the CODE for you ;clould make this crazy some time with user inputs and stuff
;and what way the jump faces and what way the lines go ;put in cos and sin and make it so you can launch the guy off at a cirtin angle
;devide the angle for the stepping if the angke and have ut stop once its addid up to the angle ;******
;***might have to find the percent of the angle compared to 90 degrees so if it were 45 then 45/90=.5 then .5 of the hieght say 100=50 so then it would stop half way????
;****** ;put it latter a hud showing what you will end up with, and then a builder when you hit space ;put in a goto cammand and inputs to change info once i make this a super user version
;;;;;;
;;;I think the ratio for lineflyer is 400:350 i went down somewhat i guess 400 tall ramp and up a 350 tall one and ended up at the top of it
;;;i fyou give it 400 it spits out 350
;;;;;;
;;;selling
;if i ever do sell it first i have to figure how to do that, but somewere randomish on their drive which could corrospond to
;something, and same with file name, but in the file i could encrypt the username of that computer and even encrypt the computername
;and when this opened it would check to see if the file was correct to the system variables
;could have it store a file near the exe with the name of the username it was registered to
;just a file to say it is registed so it can kick off from there to start checking stuff and ask the user if they changed the username
;and then they could input it or i guess it could read the file called username registered to or something ;;;for inputs of ramp info areas
;have things like i had in my CSC when to images collide
;have it so when a beta tester hits F1 it will input and they can write things down and send that file to me
;just remeber to have it read the file first, and store the lines as types maybe but then write the lines once it
;finshed reading old ones this will allow it to keep going with fetting written over
;havve the logs include time, and if i want ip, username, computername ;;;ramp end locators
;maybe have it execute a little circle program like those eyes but have it were the ends of the ramp is ;;;Saves
;could make this someday be able to make multi ramps and move them arround and then be able to save the on here
;could put in auto move screen and cool things
;;right now it could only be drawn on this screen without moveing arround with orgin so the map area could be bigger, but then i would have to be able to emulate mouse clicks so i could go into the editor and move the screen corrosponding to this one ;;;Scewing
;offset the bottom or side mostly bottom ;;;vertex editing
;have it if i do make a drag edditor so ppl can move vertexex of lines ;;;draw ramp b4 doing the ramp
;could have it draw the image of what the ramp will look like then when you day hit space then it would do the mouse moving stuff ;;;origin and moving ramp
;middle mouse clould be used to set the origin and left and right could possibly be used for ramp begining and end ;;;execute little box windows
;;have it so when you hit space it will minimize this window and then it will open the jump locators then if space again then it could come back to here Include "Requiredish\blitzsys.bb"
Graphics get("clientwidth"),get("clientheight"),0,2 Global window$=DLLFindBlitzRuntimeHwnd("LINE FLYER JUMP MAKER _--Made By: CTS_AE Cody Swartz--_ ctsae.filefront.com v19.1");,sClosePrompt$ = "")
DLLSetWindowPos(window,hWndInsertAfter,0,0,get("clientwidth"),get("clientheight")-75);this makes the normal 400x300 window and is now sizeable happily ;(((get("clientwidth"))/2)-(get("windowwidth"))),((get("clientheight"))-(get("windowheight"))),400,300);,iFlags = 0) Global gosound=LoadSound("Requiredish\GO.wav");("go2.wav") .reset;if F1 is hit is will go here and reset everything
cmd$=CommandLine$()
Global debug=0;1
If cmd="debug" Then debug=1
;;;
;user changeable settings
;;;
;;;this will set were it draws from :)
Global screenx=350
Global screeny=250
Origin screenx,screeny
Global scewx=0
Global scewy=0 Global width#=500;***************make it so they can do screen width minus and what not
Global height#=400
Global delaytime=5;400
Global programdelay=5
Global amountoflines%=10;20
Global quitearly%=3;1;8;quites this many lines earlier ;;; at zero the end line is strait up and anything else will give it a launching ramp
Global startearly%=0
Global finalamountoflines=(amountoflines-quitearly)
Global angle#=20;a number 0 though 90
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;RAMP;TYPES;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;types of ramps BR=bottom right BL=bottom left TL=top left TR=top right
;these deffintions suck but i wasnt going to go into extream detail either though
;BR this will collide when going right or up
;BL this will collide when going right or down
;TR this will collide when going left or up
;TL this will collide when going left or down
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Global typeoframp$="BR";BL=bottom left BR=bottom right TL=top left TR=top right or if you realy prefer you can write out the whole name instead of the abreaviation
Global correctlinedirection=True;changes how you draw the line right to left or left to right, but this is set up to work but if you for some reason need to change this then you can Global stepper#
Global xstepper#
Global ystepper# Global length#;the hypotinuse of the 2 legs
Global anglestep#
Global bottomleg#
Global sideleg#
Global buildingangle# ystepper=width/amountoflines
xstepper=height/amountoflines Global currentx%=0
Global currenty%=amountoflines
Global currentangle=0 Global currentx2 Global x#
Global y#
Global r#
Global x2#
;;;;;;;;;;;;;
Function WHILE1():End Function
.restart
SetBuffer BackBuffer()
HidePointer();this is so i can use my custom mouse cursor and detect colitions
;;;;;
;;; this opens up the last ramp settings you had
;;;;;
openlast$=ReadFile("Requiredish\last jump.lst")
If openlast<>0
screenx=ReadLine$(openlast)
screeny=ReadLine$(openlast)
width=ReadLine$(openlast)
height=ReadLine$(openlast)
amountoflines=ReadLine$(openlast)
quitearly=ReadLine$(openlast)
startearly=ReadLine$(openlast)
programdelay=ReadLine$(openlast)
typeoframp$=ReadLine$(openlast)
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Global box=LoadImage("IMAGES\BOX.png")
Global box1=LoadImage("IMAGES\BOX.png")
Global box2=LoadImage("IMAGES\X.png")
Global box3=LoadImage("IMAGES\BOX.png")
Global box4=LoadImage("IMAGES\move.png"):MaskImage box4,0,0,0
Global cursor=LoadImage("images\cursor.bmp"): MaskImage cursor,255,255,255
Global sides=LoadImage("images\sides.bmp")
Global inputbox1=LoadImage("images\inputbox.bmp")
Global inputbox2=LoadImage("images\inputbox.bmp")
Global inputbox3=LoadImage("images\inputbox.bmp")
Global mail=LoadImage("images\Mail CRP.jpg"): MaskImage mail,0,0,0
Global mailwidth=ImageWidth(mail)
Global mailheight=ImageHeight(mail)
;ResizeImage mail,mailwidth/8,mailheight/8
mailwidth=ImageWidth(mail)
mailheight=ImageHeight(mail)
Global rightdrag=False
Global leftdrag=False Global box1xb4drag
Global box3yb4drag Global box1x=screenx,box1y=screeny+height
Global box2x=screenx+width,box2y=screeny+height
Global box3x=screenx+width,box3y=screeny
Global box4x=screenx,box4y=screeny
Global storedbox1x,storedbox1y,storedbox2x,storedbox2y,storedbox3x,storedbox3y,storedbox4x,storedbox4y
Global whichbox
Global boxhalfx#=ImageWidth(box)/2
Global boxhalfy#=ImageHeight(box)/2
Global inputboxwidth=ImageWidth(inputbox1) Global storedwidth
Global storedheight Global thestring1$
Global thestring2$
Global thestring3$ sizeimages()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While Not KeyHit(57)
Delay programdelay
Cls
If KeyDown(1) Then End
If KeyDown(59) Then Goto reset ;;;;;
;;;just cause i want this behind everything
DrawImage mail,get("clientwidth")/2-mailwidth/2,mailheight/4 ;;;;;
;;;determines what type of ramp the user interface is
;;;;;
If (box2y-box3y) < 0 And (box2x-box1x) > 0 Then typeoframp="Top Right"
If (box2y-box3y) > 0 And (box2x-box1x) > 0 Then typeoframp="Bottom Right"
If (box2y-box3y) > 0 And (box2x-box1x) < 0 Then typeoframp="Bottom Left"
If (box2y-box3y) < 0 And (box2x-box1x) < 0 Then typeoframp="Top Left" width=box2x-box1x
height=box2y-screeny ystepper=width/amountoflines
xstepper=height/amountoflines screenx=box4x
screeny=box4y
If typeoframp="Bottom Right" Or typeoframp="Top Left"
currentx=startearly
Repeat
Delay programdelay
x=xstepper*currentx
y=ystepper*currentx+box1x
Color 0,255,0 Line y+scewx,height+screeny,width+box1x,height-x+screeny+scewy
currentx=currentx+1
Until currentx => amountoflines+1-quitearly Or KeyHit(1) ElseIf typeoframp="Bottom Left" Or typeoframp="Top Right"
currentx=amountoflines-startearly
Repeat
Delay programdelay
x=xstepper*currentx
y=ystepper*currentx+box1x
Color 0,255,0
Line y+scewx,height+screeny,width+box1x,height-x+screeny+scewy
currentx=currentx-1
Until currentx =< 0+quitearly-1 Or KeyHit(1)
EndIf HUDandDRAGING()
Flip
Wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;
Function WEND1():End Function
;;;;;;;;;;;;; ;;;;;
;;;determines what type of ramp the user interface is
;;;;;
If (box2y-box3y) < 0 And (box2x-box1x) > 0 Then typeoframp="Top Right"
If (box2y-box3y) > 0 And (box2x-box1x) > 0 Then typeoframp="Bottom Right"
If (box2y-box3y) > 0 And (box2x-box1x) < 0 Then typeoframp="Bottom Left"
If (box2y-box3y) < 0 And (box2x-box1x) < 0 Then typeoframp="Top Left"
ShowPointer
currentx=startearly
startsound()
Global ramppic=CreateImage(get("clientwidth"),get("clientheight")-50)
SetBuffer ImageBuffer(ramppic) Color 255,0,0
storedwidth=box2x-box1x
storedheight=box2y-screeny
width=Abs(box2x-box1x)
height=Abs(box2y-screeny)
ystepper=width/amountoflines
xstepper=height/amountoflines screenx=box4x
screeny=box4y currentx=startearly ;;;;;
;;; this will store the last jump you made
;;;;;
thefile=WriteFile("Requiredish\last jump.lst")
WriteLine(thefile,screenx)
WriteLine(thefile,screeny)
;;;;;
;;; this will determine and make the lastjump file so when it loads it is correct
;;; there are two ways to do this just say -width or "-"+width so value/variable or string
;;;;;
If typeoframp="BR" Or typeoframp="Bottom Right"
WriteLine(thefile,width)
WriteLine(thefile,height)
EndIf
If typeoframp="BL" Or typeoframp="Bottom Left"
WriteLine(thefile,"-"+width)
WriteLine(thefile,height)
EndIf
If typeoframp="TR" Or typeoframp="Top Right"
WriteLine(thefile,width)
WriteLine(thefile,-height)
EndIf
If typeoframp="TL" Or typeoframp="Top Left"
WriteLine(thefile,-width)
WriteLine(thefile,-height)
EndIf
;/\/\/\/\
WriteLine(thefile,amountoflines)
WriteLine(thefile,quitearly)
WriteLine(thefile,startearly)
WriteLine(thefile,programdelay)
WriteLine(thefile,typeoframp)
CloseFile(thefile) ;;;;;
;;;this loop moves the mouse
;;;;;
Function WHILE2():End Function
Repeat If Not KeyDown(57) Delay delaytime;hold space to get rid of delay time x=xstepper*currentx
y=ystepper*currentx
x2=ystepper*currentx2 If Not KeyDown(57) Delay delaytime
Color 0,100,255
If typeoframp="BR" Or typeoframp="Bottom Right"
MoveMouse y+screenx+scewx,height+screeny
Delay 5
mouse_event(2,0,0,0,0)
If Not KeyDown(57) Delay delaytime
MoveMouse width+screenx,height-x+scewy+screeny
Delay 5
mouse_event(4,0,0,0,0)
EndIf If typeoframp="BL" Or typeoframp="Bottom Left"
MoveMouse screenx-width,x+screeny
Delay 5
mouse_event(2,0,0,0,0)
If Not KeyDown(57) Delay delaytime
MoveMouse y-width+screenx,height+screeny
Delay 5
mouse_event(4,0,0,0,0)
EndIf If typeoframp="TR" Or typeoframp="Top Right"
MoveMouse width+screenx,height-x+storedheight+screeny
Delay 5
mouse_event(2,0,0,0,0)
If Not KeyDown(57) Delay delaytime
MoveMouse width-y+screenx,0+storedheight+screeny
Delay 5
mouse_event(4,0,0,0,0)
EndIf
If typeoframp="TL" Or typeoframp="Top Left"
MoveMouse width-y-width+screenx,screeny-height
Delay 5
mouse_event(2,0,0,0,0)
If Not KeyDown(57) Delay delaytime
MoveMouse 0-width+screenx,screeny+x-height
Delay 5
mouse_event(4,0,0,0,0)
EndIf
Flip Color 255,255,255 currentx=currentx+1
currentx2=currentx2+1
currentangle=currentangle+1 Until currentx => amountoflines+1-quitearly Or KeyHit(1)
Function WEND2():End Function FlushKeys
HidePointer
width=storedwidth
height=storedheight
Goto restart ;;;;;;;;;;;;;;;;;
;;;;;
;;; FUNCTIONS
;;;;;
;;;;;;;;;;;;;;;;; Function HUDandDRAGING()
Delay programdelay
realmousex=MouseX()-screenx
realmousey=MouseY()-screeny
inputboxwidth%=ImageWidth(inputbox1)
inputboxheight%=ImageHeight(inputbox1)
inputboxwidth2%=ImageWidth(inputbox2)
inputboxheight2%=ImageHeight(inputbox2)
inputboxwidth3%=ImageWidth(inputbox3)
inputboxheight3%=ImageHeight(inputbox3)
Locate 0,0
Print "Drag to a happy looking jump that will fit you F1=Reset"
Print "Hit Space to start doing the output of this screen"
Print "Then get to the lineflyer/rider window and get ready!"
Print
Print "Hit enter to change a delay time of running program"
Print "Program Delay: "+programdelay
Print "Current type of ramp: "+typeoframp
Plot dot1x,dot1y
Plot dot2x,dot2y ;if a BR jump then the next comments go with it
DrawImage box1,box1x,box1y+boxhalfy;bottom left; this make the box half of its images size down further
DrawImage box2,box2x+boxhalfx,box2y+boxhalfy;bottom right
DrawImage box3,box3x+boxhalfx,box3y;side top
DrawImage box4,box4x,box4y
;;;;;
;;; this is to change the program delay
If KeyHit(28)
FlushKeys
Print "A Good delay is between 1 and 10"
Print "This can get get rid of computer lag"
Print "yet it can make the program lag like, it creates an emulated lag"
programdelay=Input$("What should the program delay be: ")
FlushKeys
EndIf
DrawImage inputbox1,get("clientwidth")-inputboxwidth-5,5
Text get("clientwidth")-inputboxwidth+15,10,thestring1
DrawImage inputbox3,get("clientwidth")-inputboxwidth3-5,inputboxheight*3
Text get("clientwidth")-inputboxwidth3+15,inputboxheight*3+5,thestring3 DrawImage inputbox2,get("clientwidth")-inputboxwidth2-5,inputboxheight*6
Text get("clientwidth")-inputboxwidth2+15,inputboxheight*6+5,thestring2 ;;;;;
;;;text by boxes
;;;;;
If debug=1
Text box1x+boxhalfx*2+5,box1y+boxhalfy,"X: "+box1x+" Y: "+box1y
Text box2x+boxhalfx*3+5,box2y+boxhalfy,"X: "+box2x+" Y: "+box2y
Text box3x+boxhalfx*3+5,box3y,"X: "+box3x+" Y: "+box3y
Text box4x+boxhalfx*2+5,box4y,"X: "+box4x+" Y: "+box4y
Else
Text box2x+boxhalfx*3+5,box2y+boxhalfy+5,"Width: "+(box2x-box1x)+" Hieght: "+(box2y-box3y)
Text box4x+boxhalfx*2+5,box4y+boxhalfy*2+5,"Drawn at: "+screenx+","+screeny
EndIf ;;;;;
;;;if the left mouse button is hit these result in the down
;;;;;
If MouseHit(1) And leftdrag=False
If ImagesCollide(cursor,MouseX(),MouseY(),0,box1,box1x,box1y+boxhalfy,0)
leftdrag=True
whichbox=1
FlushMouse
EndIf
If ImagesCollide(cursor,MouseX(),MouseY(),0,box2,box2x+boxhalfx,box2y+boxhalfy,0)
leftdrag=True
whichbox=2
FlushMouse
EndIf
If ImagesCollide(cursor,MouseX(),MouseY(),0,box3,box3x+boxhalfx,box3y,0)
leftdrag=True
whichbox=3
FlushMouse
EndIf
If ImagesCollide(cursor,MouseX(),MouseY(),0,box4,box4x,box4y,0)
leftdrag=True
whichbox=4
storedbox1y=box1y-box4y
storedbox3x=box3x-box4x
FlushMouse
EndIf
If ImagesCollide(cursor,MouseX(),MouseY(),0,inputbox1,get("clientwidth")-inputboxwidth-5,5,0)
FlushKeys
quitearly=Input$("Quit this many lines early: ")
;;;;;
;;;the input box for quitting early #1
;;;;;
thestring1$=("Quit this many lines early: "+quitearly+"")
thestringwidth1=StringWidth(thestring1)
thestringheight1=StringHeight(thestring1)
ResizeImage inputbox1,thestringwidth1+50,thestringheight1+10
FlushKeys
EndIf
If ImagesCollide(cursor,MouseX(),MouseY(),0,inputbox2,get("clientwidth")-inputboxwidth2-5,inputboxheight*6,0)
FlushKeys
amountoflines=Input$("How many lines do you want: ")
;;;;;
;;;the input box for how many lines #2
;;;;;
thestring2$=("How many lines do you want: "+amountoflines+"")
thestringwidth2=StringWidth(thestring2)
thestringheight2=StringHeight(thestring2)
ResizeImage inputbox2,thestringwidth2+50,thestringheight2+10
FlushKeys
EndIf
If ImagesCollide(cursor,MouseX(),MouseY(),0,inputbox3,get("clientwidth")-inputboxwidth3-5,inputboxheight*3,0)
FlushKeys
startearly=Input$("Start this many lines early: ")
;;;;;
;;;the input box for starting early #3
;;;;;
thestring3$=("Start this many lines early: "+startearly+"")
thestringwidth3=StringWidth(thestring3)
thestringheight3=StringHeight(thestring3)
ResizeImage inputbox3,thestringwidth3+50,thestringheight3+10
FlushKeys
EndIf
If ImagesCollide(cursor,MouseX(),MouseY(),0,mail,get("clientwidth")/2-mailwidth/2,mailheight/4,0)
ExecFile ("Requiredish\IdeasBugsIssuesComments.txt")
EndIf
EndIf ;;;;;
;;;if the right mouse button is hit
;;;;;
If MouseHit(2) And rightdrag=False
If ImagesCollide(cursor,MouseX(),MouseY(),0,box1,box1x,box1y+boxhalfy,0)
rightdrag=True
whichbox=1
box1xb4drag=box1y
FlushMouse
EndIf
If ImagesCollide(cursor,MouseX(),MouseY(),0,box3,box3x+boxhalfx,box3y,0)
rightdrag=True
whichbox=3
box3yb4drag=box3x
FlushMouse
EndIf
If ImagesCollide(cursor,MouseX(),MouseY(),0,box4,box4x,box4y,0)
scewx=0
scewy=0
box3y=box4y
box1x=box4x
FlushMouse
EndIf EndIf
If Not MouseDown(1)
leftdrag=False
FlushMouse
EndIf
If Not MouseDown(2)
rightdrag=False
FlushMouse
EndIf
;;;;;
;;;what to do if the left mouse button is being dragged with a corrosponding image
;;;;;
If leftdrag=True
If whichbox=1
box1x=MouseX()-boxhalfx
box1y=MouseY()-boxhalfy*2
box2y=box1y
box4x=box1x
ElseIf whichbox=2
box2x=MouseX()-boxhalfx*2
box2y=MouseY()-boxhalfy*2
box1y=box2y
box3x=box2x
ElseIf whichbox=3
box3x=MouseX()-boxhalfx*2
box3y=MouseY()-boxhalfy
box2x=box3x
box4y=box3y
ElseIf whichbox=4
box4x=MouseX()-boxhalfx
box4y=MouseY()-boxhalfy
box1x=box4x
box1y=storedbox1y+box4y
box3x=storedbox3x+box4x
box3y=box4y
box2x=storedbox3x+box4x
box2y=storedbox1y+box4y
EndIf
EndIf ;;;;;
;;;what to do if the left mouse button is being dragged with a corrosponding image
;;;;;
If rightdrag=True
If whichbox=1
box1x=MouseX()
box1y=MouseY()
box2y=box1y
scewx=box1x-box1xb4drag
EndIf
If whichbox=3
box3x=MouseX()
box3y=MouseY()
box2x=box3x
scewy=box3y-box3yb4drag
EndIf
EndIf
DrawImage cursor,MouseX(),MouseY();realmousex,realmousey
End Function
Function startsound()
SoundPitch gosound,11000*2.25 Print "Hit Space Now To Go Super Speed"
Delay 800
Cls ;If Not KeyHit(57) Then DLLPostMessage(window,WM_SYSCOMMAND,SC_MINIMIZE,0);i wanted it to auto minimize itself but that doesnt work If Not KeyHit(57)
Delay 4000
;If Not KeyDown(57) Then Delay 7000
SoundPitch gosound,11000*2.25
PlaySound gosound
Delay 400
SoundPitch gosound,11000*2.5
PlaySound gosound
Delay 400
SoundPitch gosound,11000*2.25
PlaySound gosound
Delay 400
SoundPitch gosound,11000*2.5
PlaySound gosound
Delay 400
SoundPitch gosound,11000*2.75
PlaySound gosound
Delay 400
SoundPitch gosound,11000*2
PlaySound gosound Delay 500
EndIf End Function
Function extreamdebug()
filein=ReadFile("Variables.txt.")
fileout=WriteFile("Debug.txt") Repeat
theline$=ReadLine(filein) Select theline
Case "cmd"
thecase=cmd
Case "width2"
thecase=width2
Case "height2"
thecase=height2
Case ""
thecase=""
Case "window"
thecase=window
Case "gosound"
thecase=gosound
Case "debug"
thecase=debug
Case "screenx"
thecase=screenx
Case "screeny"
thecase=screeny
Case "width"
thecase=width
Case "height"
thecase=height
Case "delaytime"
thecase=delaytime
Case "amountoflines"
thecase=amountoflines
Case "angle"
thecase=angle
Case "typeoframp"
thecase=typeoframp
Case "correctlinedirection"
thecase=correctlinedirection
Case "stepper"
thecase=stepper
Case "xstepper"
thecase=xstepper
Case "ystepper"
thecase=ystepper
Case "length"
thecase=length
Case "anglestep"
thecase=anglestep
Case "bottomleg"
thecase=bottomleg
Case "sideleg"
thecase=sideleg
Case "buildingangle"
thecase=buildingangle
Case "currentx"
thecase=currentx
Case "currenty"
thecase=currenty
Case "currentangle"
thecase=currentangle
Case "currentx2"
thecase=currentx2
Case "x"
thecase=x
Case "u"
thecase=u
Case "r"
thecase=r
Case "x2"
thecase=x2
Case "box"
thecase=box
Case "box1"
thecase=box1
Case "box2"
thecase=box2
Case "box3"
thecase=box3
Case "box4"
thecase=box4
Case "cursor"
thecase=cursor
Case "sides"
thecase=sides
Case "inputbox1"
thecase=inputbox1
Case "inputbox2"
thecase=inputbox2
Case "inputbox3"
thecase=inputbox3
Case "inputbox4"
thecase=inputbox4
Case "mail"
thecase=mail
Case "mailwidth"
thecase=mailwidth
Case "mailheight"
thecase=mailheight
Case "rightdrag"
thecase=rightdrag
Case "leftdrag"
thecase=leftdrag
Case "box1xb4drag"
thecase=box1xb4drag
Case "box3yb3drag"
thecase=box3yb3drag
Case "box1x"
thecase=box1x
Case "box1y"
thecase=box1y
Case "box2x"
thecase=box2x
Case "box2y"
thecase=box2y
Case "box3x"
thecase=box3x
Case "box3y"
thecase=box3y
Case "box4x"
thecase=box4x
Case "box4y"
thecase=box4y
Case "storedbox1x"
thecase=storedbox1x
Case "storedbox1y"
thecase=storedbox1y
Case "storedbox2x"
thecase=storedbox2x
Case "storedbox2y"
thecase=storedbox2y
Case "storedbox3x"
thecase=storedbox3x
Case "storedbox3y"
thecase=storedbox3y
Case "storedbox4x"
thecase=storedbox4x
Case "storedbox4y"
thecase=storedbox4y
Case "whichbox"
thecase=whichbox
Case "boxhalfx"
thecase=boxhalfx
Case "boxhalfy"
thecase=boxhalfy
Case "inputboxwidth"
thecase=inputboxwidth
Case "storedwidth"
thecase=storedwidth
Case "storedheight"
thecase=storedheight
Case "tamppic"
thecase=tamppic
Case "firstnousex"
thecase=firstnousex
Case "firstmousey"
thecase=firstmousey
Case "dot1x"
thecase=dot1x
Case "dot2x"
thecase=dot2x
Case "dot1y"
thecase=dot1y
Case "dot2y"
thecase=dot2y
End Select
WriteLine(fileout,theline+": "+thecase) Until Eof(filein) End Function Function sizeimages()
;;;;;
;;;the input box for quitting early #1
;;;;;
thestring1$=("Quit this many lines early: "+quitearly+"")
thestringwidth1=StringWidth(thestring1)
thestringheight1=StringHeight(thestring1) ;;;;;
;;;the input box for how many lines #2
;;;;;
thestring2$=("How many lines do you want: "+amountoflines+"")
thestringwidth2=StringWidth(thestring2)
thestringheight2=StringHeight(thestring2) ;;;;;
;;;the input box for starting early #3
;;;;;
thestring3$=("Start this many lines early: "+startearly+"")
thestringwidth3=StringWidth(thestring3)
thestringheight3=StringHeight(thestring3) ResizeImage inputbox1,thestringwidth1+50,thestringheight1+10
ResizeImage inputbox2,thestringwidth2+50,thestringheight2+10
ResizeImage inputbox3,thestringwidth3+50,thestringheight3+10
End Function |
