Just a simple program with a slightly customizable M4A1
prgmSCOERASE (Scope Erase)
Code:
prgmDRAWM4A1 (Draw M4A1)
Because this program consists almost entirely of line coordinates they will simply be listed like #-#-#-#-# for my sake. I don't want to write every single Line( thing.
Key:
Four arguments: Line command
Five arguments: Erase Line command
Two arguments: Pt-On( command
Code:
Code:
That's my code! If you're bored enough to make this feel free to make whatever modifications you would like as long as 1) you inform me if it is a positive adjustment and 2) you keep my credits page if you are showing someone else.
The great thing about graphic programs like these is that regardless of your skill level you have to "stoop down" to plain coding coordinates. It makes beginners like me feel better
Thanks for reading this, and again please comment any thoughts, comments or modifications you make. And please answer the poll!
prgmSCOERASE (Scope Erase)
Code:
:For(A,34,39
:Line(22,A,35,A,0
:End
prgmDRAWM4A1 (Draw M4A1)
Because this program consists almost entirely of line coordinates they will simply be listed like #-#-#-#-# for my sake. I don't want to write every single Line( thing.
Key:
Four arguments: Line command
Five arguments: Erase Line command
Two arguments: Pt-On( command
Code:
PROGRAM:DRAWM4A1
//Stock
1-31-1-29
2-32-12-32
2-28-12-28
4-33-8-33
3-27-3-26
3-25-8-27
8-26
8-25-10-27
11-31-15-31
11-29-15-29
11-30-15-30
12-30-14-30-0
//Handle & Body
16-32-20-32
16-28-18-27
18-28-16-20
16-20-19-19
20-19-22-27
22-28-42-28
24-27-36-27
24-26-36-26
24-25-36-25
26-27-26-25-0
25-25-25-25-0
27-24-35-24
22-23-32-23
//Magazine
29-22-31-14
31-14-36-16
36-16-34-24
31-22-32-17
33-16
32-20
31-20-31-20-0
//Scope
20-33-42-33
22-27-22-35
23-39-23-34
23-36-23-35-0
24-37-27-37
28-36-29-36
30-36-31-37
32-37-34-39
35-39-35-34
26-34-33-34
28-34-31-34-0
33-35
//Systems
23-31-34-31
23-30-34-30
27-31-28-31-0
25-30-28-30-0
//Handle
43-32-44-32
43-29-44-29
44-33-54-32
44-28-54-28
46-32-46-29
48-32-48-29
50-32-50-29
52-32-52-29
47-27-51-27
47-26-51-26
49-26-49-26-0
48-25-48-20
49-20-51-20
50-25-50-21
49-24
49-22
//Barrel & Muzzle
54-32-58-32
54-29-68-29
58-32-61-35
62-36-63-36
64-36-64-32
60-32-62-34
61-32-62-33
62-32
65-32-69-32
65-31-79-31
65-30-79-30
Code:
PROGRAM:GUNCLUB
:ClrDraw
:0→Xmin:94→Xmax
:0→Ymin:62→Ymax
:AxesOff
:CoordOff
:ExprOff
:Lbl 1
:ClrHome
:Menu(" THE GUN CLUB ","[EXIT]",θ,"ABOUT",AB,"USAGE",US,"M4A1",M4
:Lbl θ
:ClrDraw
:ZStandard
:AxesOn
:CoordOn
:ExprOn
:Stop
:Lbl AB
:Output(1,1,"THE GUN CLUB
:Output(2,1,"LIKEAWHISPER
:Output(8,10,"V.1.2.1
:Pause
:Goto 1
:Lbl US
:ClrHome
:Output(1,1,"THE GUN CLUB GIVES YOU A GUN THAT CAN BE CUSTOMIZED AT WILL. USE THE MENUS TO ADD OR REMOVE ITEMS.
:Pause
:ClrHome
:Goto 1
:Lbl M4
:1→X
:Menu(" THE M4A1 ","[RETURN]",1,"SEE MY GUN",S,"SIGHTS",SI
:Lbl S
:RecallPic 0 //be sure that the m4a1 picture is stored as the picture variable. Since other people store pictures this can be whatever picture variable you want.
:Pause
:Goto M4
:Lbl SI
:If X=1
:Then
:Menu("SIGHTS","IRON SIGHT",1I,"RED DOT",1R,"ACOG",1A
:Lbl 1I
:prgmDRAWM4A1
:prgmSCOERASE
:Line(24,34,31,34
:Line(24,35,31,35
:Pt-On(24,36
:Pt-On(26,36
:StorePic 0
:Pause
:Goto M4
:Lbl 1R
:prgmDRAWM4A1
:prgmSCOERASE
:Line(24,34,34,34
:Line(25,35,34,35
:Line(27,35,29,35,0
:Line(26,36,26,37
:Line(27,38,29,38
:Line(30,37,30,36
:Pt-On(28,36
:StorePic 0
:Pause
:Goto M4
:Lbl 1A
:prgmSCOERASE
:RecallPic 1 //Should be the original M4A1
:StorePic 0
:Pause
:Goto M4
That's my code! If you're bored enough to make this feel free to make whatever modifications you would like as long as 1) you inform me if it is a positive adjustment and 2) you keep my credits page if you are showing someone else.
The great thing about graphic programs like these is that regardless of your skill level you have to "stoop down" to plain coding coordinates. It makes beginners like me feel better
Thanks for reading this, and again please comment any thoughts, comments or modifications you make. And please answer the poll!
