TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 12th Jun 2008 03:39

Modified: 1st Jan 1970 01:00

Author: Night Creeper

Summary

I know this is newbie, this code is a decrypted for messages u can write

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Project: Dcryper1

REM Created: 23/11/2008 5:47:39 PM

REMREM ***** Main Source File *****

REM

Set display mode 1024,768,32

Set window on

Set window title "Decryptor"

maximize window

`if mousey() >= 30 then show mouse else

`hide mouse

x = 0

quest1 = 0

quest2$ = ""

Accross = 363

Dim Number1$(200)

Dim Number2$(200)

Dim Messages$(50)

Load image "Background.bmp",1,1

sprite 1,0,0,1

Color backdrop RGB(0,0,0)

SET SPRITE 1,1,1

`If mousex() >= 3 and mousey() >= 753 and mousex() <= 159 and mousey() <= 766 and mouseclick() = 1

`gosub Red

`cls

`endif

`If mousex() >= 166 and mousey() >= 753 and mousex() <= 340 and mousey() <= 766 and mouseclick() = 1

`gosub Blue

`cls

`endif

`If mousex() >= 347 and mousey() >= 753 and mousex() <= 516 and mousey() <= 766 and mouseclick() = 1

`gosub Black

`cls

`endif

Input "Blue or Red or Black or Messages : ",BR$

If BR$ = "Blue" or BR$ = "blue" then quest1 = 1

If BR$ = "Red" or BR$ = "red" then quest1 = 2

If BR$ = "Black" or BR$ = "black" then quest1 = 3

If BR$ = "Messages" or BR$ = "message" then quest1 = 4

cls

`Text Accross,730,Numbers1$(x)

if scancode() = 28

sleep 800

cls

endif

Text 363,5,"Write Blue or Red or Black or encrypt to change code or"

Text 363,15,"Write ENCRYPT to encrypt a message,enter to enter code"

Text 363,25,"Write Messages to write strings that will be counted."

Text 363,715,quest2$

If quest1 = 1 then quest2$ = "Blue"

If quest1 = 2 then quest2$ = "Red"

If quest1 = 3 then quest2$ = "Black"

If quest1 = 4 then quest2$ = "Messages"

If quest1 = 1 then gosub Blue

If quest1 = 2 then gosub Red

If quest1 = 3 then gosub Black

If quest1 = 4 then gosub Messages

loop

Blue:

quest2$ = "Blue"

Input "",Inputs$

print "---"

If Inputs$ = "Red" or Inputs$ = "red" then Gosub Red

If Inputs$ = "Black" or Inputs$ = "black" then Gosub Black

If Inputs$ = "1" then print "1"

If Inputs$ = "2" then print "2"

If Inputs$ = "3" then print "3"

If Inputs$ = "4" then print "4"

If Inputs$ = "5" then print "5"

If Inputs$ = "6" then print "6"

If Inputs$ = "7" then print "7"

If Inputs$ = "8" then print "8"

If Inputs$ = "9" then print "9"

If Inputs$ = "10" then print "!"

If Inputs$ = "11" then print "@"

If Inputs$ = "12" then print "#"

If Inputs$ = "13" then print "$"

If Inputs$ = "14" then print "%"

If Inputs$ = "15" then print "^"

If Inputs$ = "16" then print "&"

If Inputs$ = "17" then print "*"

If Inputs$ = "18" then print "("

If Inputs$ = "19" then print ")"

If Inputs$ = "20" then print "-"

If Inputs$ = "21" then print "_"

If Inputs$ = "22" then print "+"

If Inputs$ = "23" then print "="

If Inputs$ = "24" then print "\"

If Inputs$ = "25" then print "|"

If Inputs$ = "26" then print "~"

If Inputs$ = "27" then print "`"

If Inputs$ = "28" then print "}"

If Inputs$ = "29" then print "]"

If Inputs$ = "30" then print "{"

If Inputs$ = "31" then print "["

If Inputs$ = "32" then print ";"

If Inputs$ = "33" then print ":"

If Inputs$ = "34" then print "?"

If Inputs$ = "35" then print "/"

If Inputs$ = "36" then print "."

If Inputs$ = "37" then print ">"

If Inputs$ = "38" then print "<"

If Inputs$ = "39" then print ","

If Inputs$ = "40" then print "q"

If Inputs$ = "41" then print "e"

If Inputs$ = "42" then print "w"

If Inputs$ = "43" then print "r"

If Inputs$ = "44" then print "t"

If Inputs$ = "45" then print "u"

If Inputs$ = "46" then print "y"

If Inputs$ = "47" then print "i"

If Inputs$ = "48" then print "o"

If Inputs$ = "49" then print "p"

If Inputs$ = "50" then print "a"

If Inputs$ = "5"  then print "g"

If Inputs$ = "52" then print "d"

If Inputs$ = "53" then print "f"

If Inputs$ = "54" then print "s"

If Inputs$ = "55" then print "h"

If Inputs$ = "56" then print "j"

If Inputs$ = "57" then print "l"

If Inputs$ = "58" then print "k"

If Inputs$ = "59" then print "z"

If Inputs$ = "60" then print "x"

If Inputs$ = "61" then print "c"

If Inputs$ = "62" then print "v"

If Inputs$ = "63" then print "n"

If Inputs$ = "64" then print "m"

If Inputs$ = "65" then print "b"

If Inputs$ = "66" then print "Â½"

If Inputs$ = "67" then print "Â°"

If Inputs$ = "68" then print "Â³"

If Inputs$ = "68" then print "Â²"

If Inputs$ = "69" then print "Ã¸"

If Inputs$ = "70" then print "Ã¦"

If Inputs$ = "71" then print "A"

If Inputs$ = "72" then print "B"

If Inputs$ = "73" then print "C"

If Inputs$ = "74" then print "D"

If Inputs$ = "75" then print "E"

If Inputs$ = "76" then print "F"

If Inputs$ = "77" then print "G"

If Inputs$ = "78" then print "H"

If Inputs$ = "79" then print "I"

If Inputs$ = "80" then print "J"

If Inputs$ = "81" then print "K"

If Inputs$ = "82" then print "L"

If Inputs$ = "83" then print "M"

If Inputs$ = "84" then print "N"

If Inputs$ = "85" then print "O"

If Inputs$ = "86" then print "P"

If Inputs$ = "87" then print "Q"

If Inputs$ = "88" then print "R"

If Inputs$ = "89" then print "S"

If Inputs$ = "90" then print "T"

If Inputs$ = "91" then print "U"

If Inputs$ = "92" then print "V"

If Inputs$ = "93" then print "W"

If Inputs$ = "94" then print "X"

If Inputs$ = "95" then print "Y"

If Inputs$ = "96" then print "Z"

If Inputs$ = "97" then print "Ã€"

If Inputs$ = "98" then print "Ã¾"

If Inputs$ = "99" then print "ÃŽ"

If Inputs$ = "100" then print "Ã"

Accross = Accross + 10

Inputs$ = Number1$(x)

x = x + 1

return

Red:

quest2$ = "Red"

Input "",Inputs2$

print "---"

If Inputs$ = "Blue" or Inputs$ = "blue" then Gosub Blue

If Inputs$ = "Black" or Inputs$ = "black" then Gosub Black

If Inputs2$ = "71" then print "1"

If Inputs2$ = "7662" then print "2"

If Inputs2$ = "33333" then print "3"

If Inputs2$ = "33334" then print "4"

If Inputs2$ = "745" then print "5"

If Inputs2$ = "336" then print "6"

If Inputs2$ = "337" then print "7"

If Inputs2$ = "84" then print "8"

If Inputs2$ = "39" then print "9"

If Inputs2$ = "130" then print "!"

If Inputs2$ = "171" then print "@"

If Inputs2$ = "17432" then print "#"

If Inputs2$ = "134633" then print "$"

If Inputs2$ = "15734" then print "%"

If Inputs2$ = "15" then print "^"

If Inputs2$ = "16756" then print "&"

If Inputs2$ = "17" then print "*"

If Inputs2$ = "17438" then print "("

If Inputs2$ = "19" then print ")"

If Inputs2$ = "20" then print "-"

If Inputs2$ = "2574" then print "_"

If Inputs2$ = "222" then print "+"

If Inputs2$ = "234" then print "="

If Inputs2$ = "243" then print "\"

If Inputs2$ = "29645" then print "|"

If Inputs2$ = "29976" then print "~"

If Inputs2$ = "271" then print "`"

If Inputs2$ = "28878" then print "}"

If Inputs2$ = "292" then print "]"

If Inputs2$ = "3570" then print "{"

If Inputs2$ = "312" then print "["

If Inputs2$ = "323" then print ";"

If Inputs2$ = "3243" then print ":"

If Inputs2$ = "3244" then print "?"

If Inputs2$ = "3245" then print "/"

If Inputs2$ = "3246" then print "."

If Inputs2$ = "3471" then print ">"

If Inputs2$ = "33558" then print "<"

If Inputs2$ = "35239" then print ","

If Inputs2$ = "42250" then print "q"

If Inputs2$ = "4251" then print "e"

If Inputs2$ = "42352" then print "w"

If Inputs2$ = "433" then print "r"

If Inputs2$ = "4454" then print "t"

If Inputs2$ = "4531" then print "u"

If Inputs2$ = "462" then print "y"

If Inputs2$ = "45435457" then print "i"

If Inputs2$ = "4832" then print "o"

If Inputs2$ = "4923" then print "p"

If Inputs2$ = "5440" then print "a"

If Inputs2$ = "511" then print "g"

If Inputs2$ = "56562" then print "d"

If Inputs2$ = "565563" then print "f"

If Inputs2$ = "5664" then print "s"

If Inputs2$ = "579475" then print "h"

If Inputs2$ = "5986" then print "j"

If Inputs2$ = "597" then print "l"

If Inputs2$ = "5578508" then print "k"

If Inputs2$ = "590079" then print "z"

If Inputs2$ = "602" then print "x"

If Inputs2$ = "6981" then print "c"

If Inputs2$ = "621" then print "v"

If Inputs2$ = "6733" then print "n"

If Inputs2$ = "6754" then print "m"

If Inputs2$ = "65755" then print "b"

If Inputs2$ = "67576" then print "Â½"

If Inputs2$ = "6757" then print "Â°"

If Inputs2$ = "65758" then print "Â³"

If Inputs2$ = "67578" then print "Â²"

If Inputs2$ = "65759" then print "Ã¸"

If Inputs2$ = "703" then print "Ã¦"

If Inputs2$ = "712" then print "A"

If Inputs2$ = "75572" then print "B"

If Inputs2$ = "7683" then print "C"

If Inputs2$ = "744" then print "D"

If Inputs2$ = "75465" then print "E"

If Inputs2$ = "7876" then print "F"

If Inputs2$ = "7537" then print "G"

If Inputs2$ = "75438" then print "H"

If Inputs2$ = "794" then print "I"

If Inputs2$ = "870" then print "J"

If Inputs2$ = "8751" then print "K"

If Inputs2$ = "857752" then print "L"

If Inputs2$ = "8753" then print "M"

If Inputs2$ = "8774" then print "N"

If Inputs2$ = "8765" then print "O"

If Inputs2$ = "83466" then print "P"

If Inputs2$ = "87" then print "Q"

If Inputs2$ = "8858" then print "R"

If Inputs2$ = "895" then print "S"

If Inputs2$ = "9540 "then print "T"

If Inputs2$ = "9616" then print "U"

If Inputs2$ = "95652" then print "V"

If Inputs2$ = "96563" then print "W"

If Inputs2$ = "956454" then print "X"

If Inputs2$ = "9546545" then print "Y"

If Inputs2$ = "4566" then print "Z"

If Inputs2$ = "5465" then print "Ã€"

If Inputs2$ = "9456" then print "Ã¾"

If Inputs2$ = "952" then print "ÃŽ"

If Inputs2$ = "1074740" then print "Ã"

return

Black:

quest2$ = "Black"

Input "",Inputs3$

print "---"

If Inputs3$ = "Blue" or Inputs$ = "blue" then Gosub Blue

If Inputs3$ = "Red" or Inputs$ = "red" then Gosub Red

If Inputs3$ = "1" then print "1"

If Inputs3$ = "2" then print "2"

If Inputs3$ = "3" then print "3"

If Inputs3$ = "4" then print "4"

If Inputs3$ = "5" then print "5"

If Inputs3$ = "6" then print "6"

If Inputs3$ = "7" then print "7"

If Inputs3$ = "8" then print "8"

If Inputs3$ = "9" then print "9"

If Inputs3$ = "!" then print "10"

If Inputs3$ = "@" then print "11"

If Inputs3$ = "#" then print "12"

If Inputs3$ = "$" then print "13"

If Inputs3$ = "%" then print "14"

If Inputs3$ = "^" then print "15"

If Inputs3$ = "&" then print "16"

If Inputs3$ = "*" then print "17"

If Inputs3$ = "(" then print "18"

If Inputs3$ = ")" then print "19"

If Inputs3$ = "-" then print "20"

If Inputs3$ = "_" then print "21"

If Inputs3$ = "+" then print "22"

If Inputs3$ = "=" then print "23"

If Inputs3$ = "\" then print "24"

If Inputs3$ = "|" then print "25"

If Inputs3$ = "~" then print "26"

If Inputs3$ = "`" then print "27"

If Inputs3$ = "}" then print "28"

If Inputs3$ = "]" then print "29"

If Inputs3$ = "{" then print "30"

If Inputs3$ = "[" then print "31"

If Inputs3$ = ";" then print "32"

If Inputs3$ = ":" then print "33"

If Inputs3$ = "?" then print "34"

If Inputs3$ = "/" then print "35"

If Inputs3$ = "." then print "36"

If Inputs3$ = ">" then print "37"

If Inputs3$ = "<" then print "38"

If Inputs3$ = "," then print "39"

If Inputs3$ = "q" then print "40"

If Inputs3$ = "e" then print "41"

If Inputs3$ = "w" then print "42"

If Inputs3$ = "r" then print "43"

If Inputs3$ = "t" then print "44"

If Inputs3$ = "u" then print "45"

If Inputs3$ = "y" then print "46"

If Inputs3$ = "i" then print "47"

If Inputs3$ = "o" then print "48"

If Inputs3$ = "p" then print "49"

If Inputs3$ = "a" then print "50"

If Inputs3$ = "g" then print "51"

If Inputs3$ = "d" then print "52"

If Inputs3$ = "f" then print "53"

If Inputs3$ = "s" then print "54"

If Inputs3$ = "h" then print "55"

If Inputs3$ = "j" then print "56"

If Inputs3$ = "l" then print "57"

If Inputs3$ = "k" then print "58"

If Inputs3$ = "z" then print "59"

If Inputs3$ = "x" then print "60"

If Inputs3$ = "c" then print "61"

If Inputs3$ = "v" then print "62"

If Inputs3$ = "n" then print "63"

If Inputs3$ = "m" then print "64"

If Inputs3$ = "b" then print "65"

If Inputs3$ = "Â½" then print "66"

If Inputs3$ = "Â°" then print "67"

If Inputs3$ = "Â³" then print "68"

If Inputs3$ = "Â²" then print "69"

If Inputs3$ = "Ã¸" then print "70"

If Inputs3$ = "Ã¦" then print "71"

If Inputs3$ = "A" then print "72"

If Inputs3$ = "B" then print "73"

If Inputs3$ = "C" then print "74"

If Inputs3$ = "D" then print "75"

If Inputs3$ = "E" then print "76"

If Inputs3$ = "F" then print "77"

If Inputs3$ = "H" then print "78"

If Inputs3$ = "I" then print "79"

If Inputs3$ = "J" then print "80"

If Inputs3$ = "K" then print "81"

If Inputs3$ = "L" then print "82"

If Inputs3$ = "M" then print "83"

If Inputs3$ = "N" then print "84"

If Inputs3$ = "O" then print "85"

If Inputs3$ = "P" then print "86"

If Inputs3$ = "Q" then print "87"

If Inputs3$ = "R" then print "88"

If Inputs3$ = "S" then print "89"

If Inputs3$ = "T" then print "90"

If Inputs3$ = "U" then print "91"

If Inputs3$ = "V" then print "92"

If Inputs3$ = "W" then print "93"

If Inputs3$ = "X" then print "94"

If Inputs3$ = "Y" then print "95"

If Inputs3$ = "Z" then print "96"

If Inputs3$ = "Ã€" then print "97"

If Inputs3$ = "Ã¾" then print "98"

If Inputs3$ = "ÃŽ" then print "99"

If Inputs3$ = "Ã" then print "100"

return

Messages:

quest2$ = "Messages"

Input "",Inputs5$

Inputs4 = len(Inputs5$)

print "---"

If Inputs4$ = "Red" or Inputs$ = "red" then Gosub Red

If Inputs4$ = "Blue" or Inputs$ = "blue" then Gosub Blue

If Inputs4$ = "Black" or Inputs$ = "black" then Gosub Black

If Inputs4 = 1 then print "1"

If Inputs4 = 2 then print "2"

If Inputs4 = 3 then print "3"

If Inputs4 = 4 then print "4"

If Inputs4 = 5 then print "5"

If Inputs4 = 6 then print "6"

If Inputs4 = 7 then print "7"

If Inputs4 = 8 then print "8"

If Inputs4 = 9 then print "9"

If Inputs4 = 10 then print "10"

If Inputs4 = 11 then print "11"

If Inputs4 = 12 then print "12"

If Inputs4 = 13 then print "13"

If Inputs4 = 14 then print "14"

If Inputs4 = 15 then print "15"

If Inputs4 = 16 then print "16"

If Inputs4 = 17 then print "17"

If Inputs4 = 18 then print "18"

If Inputs4 = 19 then print "19"

If Inputs4 = 20 then print "20"

If Inputs4 = 21 then print "21"

If Inputs4 = 22 then print "22"

If Inputs4 = 23 then print "23"

If Inputs4 = 24 then print "24"

If Inputs4 = 25 then print "25"

If Inputs4 = 26 then print "26"

If Inputs4 = 27 then print "27"

If Inputs4 = 28 then print "28"

If Inputs4 = 29 then print "29"

If Inputs4 = 30 then print "30"

If Inputs4 = 31 then print "31"

If Inputs4 = 32 then print "32"

If Inputs4 = 33 then print "33"

If Inputs4 = 34 then print "34"

If Inputs4 = 35 then print "35"

If Inputs4 = 36 then print "36"

If Inputs4 = 37 then print "37"

If Inputs4 = 38 then print "38"

If Inputs4 = 39 then print "39"

If Inputs4 = 40 then print "40"

If Inputs4 = 41 then print "41"

If Inputs4 = 42 then print "42"

If Inputs4 = 43 then print "43"

If Inputs4 = 44 then print "44"

If Inputs4 = 45 then print "45"

If Inputs4 = 46 then print "46"

If Inputs4 = 47 then print "47"

If Inputs4 = 48 then print "48"

If Inputs4 = 49 then print "49"

If Inputs4 = 50 then print "50"

If Inputs4 = 51 then print "51"

If Inputs4 = 52 then print "52"

If Inputs4 = 53 then print "53"

If Inputs4 = 54 then print "54"

If Inputs4 = 55 then print "55"

If Inputs4 = 56 then print "56"

If Inputs4 = 57 then print "57"

If Inputs4 = 58 then print "58"

If Inputs4 = 59 then print "59"

If Inputs4 = 60 then print "60"

If Inputs4 = 61 then print "61"

If Inputs4 = 62 then print "62"

If Inputs4 = 63 then print "63"

If Inputs4 = 64 then print "64"

If Inputs4 = 65 then print "65"

If Inputs4 = 66 then print "66"

If Inputs4 = 67 then print "67"

If Inputs4 = 68 then print "68"

If Inputs4 = 69 then print "69"

If Inputs4 = 70 then print "70"

If Inputs4 = 71 then print "71"

If Inputs4 = 72 then print "72"

If Inputs4 = 73 then print "73"

If Inputs4 = 74 then print "74"

If Inputs4 = 75 then print "75"

If Inputs4 = 76 then print "76"

If Inputs4 = 77 then print "77"

If Inputs4 = 78 then print "78"

If Inputs4 = 79 then print "79"

If Inputs4 = 80 then print "80"

If Inputs4 = 81 then print "81"

If Inputs4 = 82 then print "82"

If Inputs4 = 83 then print "83"

If Inputs4 = 84 then print "84"

If Inputs4 = 85 then print "85"

If Inputs4 = 86 then print "86"

If Inputs4 = 87 then print "87"

If Inputs4 = 88 then print "88"

If Inputs4 = 89 then print "89"

If Inputs4 = 90 then print "90"

If Inputs4 = 91 then print "91"

If Inputs4 = 92 then print "92"

If Inputs4 = 93 then print "93"

If Inputs4 = 94 then print "94"

If Inputs4 = 95 then print "95"

If Inputs4 = 96 then print "96"

If Inputs4 = 97 then print "97"

If Inputs4 = 98 then print "98"

If Inputs4 = 99 then print "99"

If Inputs4 = 100 then print "100"

`Accross4 = Accross4 + 10

`Inputs4$ = Number2$(x)

`x = x + 1

return

Download

Please login to download

Comments

No comments yet.

CodeBase - decrypted

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Night Creeper
CodeBase Entries:	1