AGK code challenge - GameCreators Forum

Author

Message

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 25th Oct 2016 20:13

Link

Thaks for testing BlinkOK. I didn't reset the array after generating. Fixed version:

global chunk as string[]
Global  singles As String[19] = ["","one","two","three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"]
Global  tens As String[11] = ["","","twenty","thirty","fourty","fifty","sixty","seventy","eighty","ninety"]
Global  multipliers As String[21] = ["","Thousand","Million","Billion","Trillion","Quadrillion","Quintillion","Sextillion","Septillion","Octillion","Nonillion","Decillion","Undecillion","Duodecillion","Tredecillion","Quattuordecillion","Quindecillion","Sexdecillion","Septendecillion","Octodecillion","Novemdecillion","Vigintillion"]

function createNumText(number as string)
	
	numString as string
	thisString as String
	
	//Make length of number divisible by 3
	while mod(len(number),3) <> 0
		number = "0" + number
	endwhile
	
	//Split into 3s
	i = 0
	chunk.length = -1
	thisString = ""
	while len(number) > 0
		chunk.length = chunk.length + 1
		chunk[i] = Right(number,3)
		number = left(number, len(number) - 3)
		inc i,1
	endwhile
	
	//process 3 at a time
	for i = chunk.length to 0 step -1
		num = val(chunk[i])
		iSingles = mod(num,100)
		iHundreds = num/100
		if iSingles > 0
			if iSingles < 20
				thisString = singles[iSingles]
			else
				thisString = tens[(iSingles/10)] + " " + singles[mod(iSingles,10)]
			endif
		endif
		if iHundreds > 0
			if thisString <> "" then thisString = " Hundred and " + thisString
			thisString = singles[iHundreds] + thisString
		else
			if chunk.length > i + 1
				thisString = " and " + thisString
			endif
		endif
		
		thisString = thisString + " " + multipliers[i] + " "
		
		numString = numString + thisString
		thisString = ""
		
	next i
	
endfunction numString

+ Code Snippet

global chunk as string[]
Global  singles As String[19] = ["","one","two","three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"]
Global  tens As String[11] = ["","","twenty","thirty","fourty","fifty","sixty","seventy","eighty","ninety"]
Global  multipliers As String[21] = ["","Thousand","Million","Billion","Trillion","Quadrillion","Quintillion","Sextillion","Septillion","Octillion","Nonillion","Decillion","Undecillion","Duodecillion","Tredecillion","Quattuordecillion","Quindecillion","Sexdecillion","Septendecillion","Octodecillion","Novemdecillion","Vigintillion"]


function createNumText(number as string)
	
	numString as string
	thisString as String
	
	//Make length of number divisible by 3
	while mod(len(number),3) <> 0
		number = "0" + number
	endwhile
	
	//Split into 3s
	i = 0
	chunk.length = -1
	thisString = ""
	while len(number) > 0
		chunk.length = chunk.length + 1
		chunk[i] = Right(number,3)
		number = left(number, len(number) - 3)
		inc i,1
	endwhile
	
	//process 3 at a time
	for i = chunk.length to 0 step -1
		num = val(chunk[i])
		iSingles = mod(num,100)
		iHundreds = num/100
		if iSingles > 0
			if iSingles < 20
				thisString = singles[iSingles]
			else
				thisString = tens[(iSingles/10)] + " " + singles[mod(iSingles,10)]
			endif
		endif
		if iHundreds > 0
			if thisString <> "" then thisString = " Hundred and " + thisString
			thisString = singles[iHundreds] + thisString
		else
			if chunk.length > i + 1
				thisString = " and " + thisString
			endif
		endif
		
		thisString = thisString + " " + multipliers[i] + " "
		
		numString = numString + thisString
		thisString = ""
		
	next i
	
endfunction numString

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 25th Oct 2016 20:43

Link

Quote: " I live in Yorkshire, where our accent is so broad most of the UK don't understand a word we say."

Nope. Not a word.

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 25th Oct 2016 23:12 Edited at: 25th Oct 2016 23:15

Link

Entry 1 (winner's one)

AGK v1, v2

// license: MIT
// copyright (c) 2016, Simon Grim

dim singles[19] as string
    singles = ['', 'one', 'two', 'three', 'four', 'five', 'six', 'seven', 'eight', 'nine', 'ten', 'eleven', 'twelve', 'thirteen', 'fourteen', 'fifteen', 'sixteen', 'seventeen', 'eighteen', 'nineteen']
dim tens[9] as string
    tens = ['', '', 'twenty', 'thirty', 'fourty', 'fifty', 'sixty', 'seventy', 'eighty', 'ninety']
#constant multipliersLength 21
dim multipliers[multipliersLength] as string
    multipliers = ['', 'thousand', 'million', 'billion', 'trillion', 'quadrillion', 'quintillion', 'sextillion', 'septillion', 'octillion', 'nonillion', 'decillion', 'undecillion', 'duodecillion', 'tredecillion', 'quattuordecillion', 'quindecillion', 'sexdecillion', 'septendecillion', 'octodecillion', 'novemdecillion', 'vigintillion']
dim amps[2] as string
    amps = ['', 'ten', 'hundred']

function spellNum(req as string)
    res         as string

if mid(req, 1, 1) = '-' then exitfunction 'negative ' + spellNum(mid(req, 2, -1))

//req = stripString(req, ',')  // uncomment if it's comma separated numbers like '123,345,789'
    l = len(req)

for i = 1 to l
        if mid(req, i, 1) = '.'
            if i < l
                for j = l to i step -1
                    if val(mid(req, j, 1)) > 0 then exit
                next
                    if j > i
                        l = j - i
                            k = mod(l, 3)
                                m = (l - k) / 3
                            res = mid(req, i + 1, l)
                                res = 'and ' + spellNum(res) + ' ' + amps[k] + chr(45 * ((k * m) > 0)) + multipliers[m] + 'th' + chr(115 * (val(res) > 1))  // could be 'point' instead 'and'
                    else
                        res = 'and'  // could be 'point' instead
                        l = l - j
                            for j = 2 to l
                                res = res + ' zero'
                            next
                    endif
            endif
            if i = 1 or val(mid(req, 1, 1)) = 0 then exitfunction 'zero' + spaces(res <> '') + res
            l = i - 1
            exit
        endif
    next

m = 0
    for i = l to 1 step -3
        k = 2 - (i < 3) - (i < 2)
        j = val(mid(req, i - k, k + 1))
            if j > 0 then res = multipliers[m] + spaces(m > 0) + res
            if m < multipliersLength then inc m else exitfunction 'too much... ¯\\_(ツ)_/¯'
        j = i - 1
            if j > 0 then j = val(mid(req, j, 1))
            if j > 1
                k = val(mid(req, i, 1))
                    res = tens[j] + chr(45 * (k > 0)) + singles[k] + spaces(res <> '') + res
            else
                k = j * 10 + val(mid(req, i, 1))
                    res = singles[k] + spaces(res <> '' and k > 0) + res
            endif
        j = i - 2
            if j > 0
                j = val(mid(req, j, 1))
                    if j > 0
                        res = singles[j] + ' hundred' + spaces(res <> '') + res
                    endif
            endif
    next
endfunction res

+ Code Snippet

// license: MIT
// copyright (c) 2016, Simon Grim

dim singles[19] as string
    singles = ['', 'one', 'two', 'three', 'four', 'five', 'six', 'seven', 'eight', 'nine', 'ten', 'eleven', 'twelve', 'thirteen', 'fourteen', 'fifteen', 'sixteen', 'seventeen', 'eighteen', 'nineteen']
dim tens[9] as string
    tens = ['', '', 'twenty', 'thirty', 'fourty', 'fifty', 'sixty', 'seventy', 'eighty', 'ninety']
#constant multipliersLength 21
dim multipliers[multipliersLength] as string
    multipliers = ['', 'thousand', 'million', 'billion', 'trillion', 'quadrillion', 'quintillion', 'sextillion', 'septillion', 'octillion', 'nonillion', 'decillion', 'undecillion', 'duodecillion', 'tredecillion', 'quattuordecillion', 'quindecillion', 'sexdecillion', 'septendecillion', 'octodecillion', 'novemdecillion', 'vigintillion']
dim amps[2] as string
    amps = ['', 'ten', 'hundred']

function spellNum(req as string)
    res         as string

    if mid(req, 1, 1) = '-' then exitfunction 'negative ' + spellNum(mid(req, 2, -1))

    //req = stripString(req, ',')  // uncomment if it's comma separated numbers like '123,345,789'
    l = len(req)

    for i = 1 to l
        if mid(req, i, 1) = '.'
            if i < l
                for j = l to i step -1
                    if val(mid(req, j, 1)) > 0 then exit
                next
                    if j > i
                        l = j - i
                            k = mod(l, 3)
                                m = (l - k) / 3
                            res = mid(req, i + 1, l)
                                res = 'and ' + spellNum(res) + ' ' + amps[k] + chr(45 * ((k * m) > 0)) + multipliers[m] + 'th' + chr(115 * (val(res) > 1))  // could be 'point' instead 'and'
                    else
                        res = 'and'  // could be 'point' instead
                        l = l - j
                            for j = 2 to l
                                res = res + ' zero'
                            next
                    endif
            endif
            if i = 1 or val(mid(req, 1, 1)) = 0 then exitfunction 'zero' + spaces(res <> '') + res
            l = i - 1
            exit
        endif
    next

    m = 0
    for i = l to 1 step -3
        k = 2 - (i < 3) - (i < 2)
        j = val(mid(req, i - k, k + 1))
            if j > 0 then res = multipliers[m] + spaces(m > 0) + res
            if m < multipliersLength then inc m else exitfunction 'too much... ¯\\_(ツ)_/¯'
        j = i - 1
            if j > 0 then j = val(mid(req, j, 1))
            if j > 1
                k = val(mid(req, i, 1))
                    res = tens[j] + chr(45 * (k > 0)) + singles[k] + spaces(res <> '') + res
            else
                k = j * 10 + val(mid(req, i, 1))
                    res = singles[k] + spaces(res <> '' and k > 0) + res
            endif
        j = i - 2
            if j > 0
                j = val(mid(req, j, 1))
                    if j > 0
                        res = singles[j] + ' hundred' + spaces(res <> '') + res
                    endif
            endif
    next
endfunction res

AGK v2 (same algorithm, different arrays initialization)

// license: MIT
// copyright (c) 2016, Simon Grim

global singles      as string[19] = ['', 'one', 'two', 'three', 'four', 'five', 'six', 'seven', 'eight', 'nine', 'ten', 'eleven', 'twelve', 'thirteen', 'fourteen', 'fifteen', 'sixteen', 'seventeen', 'eighteen', 'nineteen']
global tens         as string[9] = ['', '', 'twenty', 'thirty', 'fourty', 'fifty', 'sixty', 'seventy', 'eighty', 'ninety']
global multipliers  as string[21] = ['', 'thousand', 'million', 'billion', 'trillion', 'quadrillion', 'quintillion', 'sextillion', 'septillion', 'octillion', 'nonillion', 'decillion', 'undecillion', 'duodecillion', 'tredecillion', 'quattuordecillion', 'quindecillion', 'sexdecillion', 'septendecillion', 'octodecillion', 'novemdecillion', 'vigintillion']
global amps         as string[2] = ['', 'ten', 'hundred']

function spellNumStr(req as string)
    res         as string

if mid(req, 1, 1) = '-' then exitfunction 'negative ' + spellNumStr(mid(req, 2, -1))

//req = stripString(req, ',')  // uncomment if it's comma separated numbers like '123,345,789'
    l = len(req)

for i = 1 to l
        if mid(req, i, 1) = '.'
            if i < l
                for j = l to i step -1
                    if val(mid(req, j, 1)) > 0 then exit
                next
                    if j > i
                        l = j - i
                            k = mod(l, 3)
                                m = (l - k) / 3
                            res = mid(req, i + 1, l)
                                res = 'and ' + spellNumStr(res) + ' ' + amps[k] + chr(45 * ((k * m) > 0)) + multipliers[m] + 'th' + chr(115 * (val(res) > 1))  // could be 'point' instead 'and'
                    else
                        res = 'and'  // could be 'point' instead
                        l = l - j
                            for j = 2 to l
                                res = res + ' zero'
                            next
                    endif
            endif
            if i = 1 or val(mid(req, 1, 1)) = 0 then exitfunction 'zero' + spaces(res <> '') + res
            l = i - 1
            exit
        endif
    next

m = 0
    for i = l to 1 step -3
        k = 2 - (i < 3) - (i < 2)
        j = val(mid(req, i - k, k + 1))
            if j > 0 then res = multipliers[m] + spaces(m > 0) + res
            if m < multipliers.length then inc m else exitfunction 'too much... ¯\\_(ツ)_/¯'
        j = i - 1
            if j > 0 then j = val(mid(req, j, 1))
            if j > 1
                k = val(mid(req, i, 1))
                    res = tens[j] + chr(45 * (k > 0)) + singles[k] + spaces(res <> '') + res
            else
                k = j * 10 + val(mid(req, i, 1))
                    res = singles[k] + spaces(res <> '' and k > 0) + res
            endif
        j = i - 2
            if j > 0
                j = val(mid(req, j, 1))
                    if j > 0
                        res = singles[j] + ' hundred' + spaces(res <> '') + res
                    endif
            endif
    next
endfunction res

+ Code Snippet

// license: MIT
// copyright (c) 2016, Simon Grim

global singles      as string[19] = ['', 'one', 'two', 'three', 'four', 'five', 'six', 'seven', 'eight', 'nine', 'ten', 'eleven', 'twelve', 'thirteen', 'fourteen', 'fifteen', 'sixteen', 'seventeen', 'eighteen', 'nineteen']
global tens         as string[9] = ['', '', 'twenty', 'thirty', 'fourty', 'fifty', 'sixty', 'seventy', 'eighty', 'ninety']
global multipliers  as string[21] = ['', 'thousand', 'million', 'billion', 'trillion', 'quadrillion', 'quintillion', 'sextillion', 'septillion', 'octillion', 'nonillion', 'decillion', 'undecillion', 'duodecillion', 'tredecillion', 'quattuordecillion', 'quindecillion', 'sexdecillion', 'septendecillion', 'octodecillion', 'novemdecillion', 'vigintillion']
global amps         as string[2] = ['', 'ten', 'hundred']

function spellNumStr(req as string)
    res         as string

    if mid(req, 1, 1) = '-' then exitfunction 'negative ' + spellNumStr(mid(req, 2, -1))

    //req = stripString(req, ',')  // uncomment if it's comma separated numbers like '123,345,789'
    l = len(req)

    for i = 1 to l
        if mid(req, i, 1) = '.'
            if i < l
                for j = l to i step -1
                    if val(mid(req, j, 1)) > 0 then exit
                next
                    if j > i
                        l = j - i
                            k = mod(l, 3)
                                m = (l - k) / 3
                            res = mid(req, i + 1, l)
                                res = 'and ' + spellNumStr(res) + ' ' + amps[k] + chr(45 * ((k * m) > 0)) + multipliers[m] + 'th' + chr(115 * (val(res) > 1))  // could be 'point' instead 'and'
                    else
                        res = 'and'  // could be 'point' instead
                        l = l - j
                            for j = 2 to l
                                res = res + ' zero'
                            next
                    endif
            endif
            if i = 1 or val(mid(req, 1, 1)) = 0 then exitfunction 'zero' + spaces(res <> '') + res
            l = i - 1
            exit
        endif
    next

    m = 0
    for i = l to 1 step -3
        k = 2 - (i < 3) - (i < 2)
        j = val(mid(req, i - k, k + 1))
            if j > 0 then res = multipliers[m] + spaces(m > 0) + res
            if m < multipliers.length then inc m else exitfunction 'too much... ¯\\_(ツ)_/¯'
        j = i - 1
            if j > 0 then j = val(mid(req, j, 1))
            if j > 1
                k = val(mid(req, i, 1))
                    res = tens[j] + chr(45 * (k > 0)) + singles[k] + spaces(res <> '') + res
            else
                k = j * 10 + val(mid(req, i, 1))
                    res = singles[k] + spaces(res <> '' and k > 0) + res
            endif
        j = i - 2
            if j > 0
                j = val(mid(req, j, 1))
                    if j > 0
                        res = singles[j] + ' hundred' + spaces(res <> '') + res
                    endif
            endif
    next
endfunction res

I have no idea about next challenge theme though.

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 25th Oct 2016 23:24

Link

BatVink, I've just tried your fixed version with "2222.001" and got "twenty two Million twenty two Thousand and one".

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 25th Oct 2016 23:35

Link

Phaelax, I've checked your one with same "2222.001" and got "two million two hundred twenty two thousand one".

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 25th Oct 2016 23:41

Link

damothegreat, I've checked your one too with same "2222.001" and got "twenty two million two hundred and twenty thousand hundred and zero one hundred".

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 25th Oct 2016 23:49

Link

None of us look for the decimal :p

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Jack

19

Years of Service

User Offline

Joined: 4th Oct 2004

Location: [Germany]

Posted: 26th Oct 2016 00:32

Link

Glad to see a coding challenge with no media!

I would like to contribute you a code ported from DBP,
so you can create sound effects with code!

Raise the bar

/*

AGK Wave sound creator
======================

by Ric, and:
 
Tommy S - Original waveform code
Green Gandalf - Memblock format
Lampton Worm - Load/Save format
Lampton Worm/Raven - Real time parameter editor
Xtom - GUI/parameter editor

ported by Jack from DBP to AGK
*/

render_x = 1024
render_y = 768

SetOrientationAllowed( 0, 0, 1, 0 )
	SetWindowSize( render_x, render_y, 1 )
	setvirtualresolution(render_x,render_y)
	SetResolutionMode( 1 ) 
	SetScreenResolution( render_x,render_y ) 
	SetSyncRate(60,0)
	
	print("please wait")
	sync()

createsound("sound effect",1,2995,2000,8000,0.02,0.1,0.60,3,0.64,5,10)
createsound("explosion",2,6200,200,2000,20,0.2,0,0,0,0,10)
createsound("explosion2",3,1200,600,3000,10,0.1,0,0,0,0,10)
createsound("powerup",4,800,700,8000,-0.02,0.2,0,0,0,0,10)

createsound("warning",5,800,1000,6000,0.5,0.1,0,0,0,0,5)
createsound("vibrato1",6,500,2000,8000,0,0.1,0.05,0.2,0,0,1)
createsound("vibrato2",7,400,2000,8000,0,0.1,0.05,0.2,0,0,1)
createsound("vibrato3",8,600,2000,8000,0,0.1,0.05,0.2,0,0,1)
createsound("bass hit",9,30,50,16000,0.00,1.5,.0,0,0,0,100)
createsound("hihat",10,800,40,5000,60.06,2.2,.1,0,0,0,10)
createsound("door knock",11,200,20,8000,.1,4.0,2.1,10,9.2,9.2,10)
createsound("vinyl scratch",12,500,80,8000,0.06,0.2,.1,0,0,0,10)
createsound("cb1",13,250,50,2500,0.00001,0.1,4.0,0.4,0,0,10)
createsound("cb2",14,500,50,2500,0.00001,0.1,4.0,0.4,0,0,10)
createsound("cb3",15,437.5,150,1500,0.0001,0.1,0.0,4.0,0.4,0,10)
createsound("cb4",16,573.75,150,1500,0.0,0.1,4.0,0.4,0,0,10)
createsound("bubble burst",17,50,80,6000,-.4,2.0,0.1,10,1.2,0.2,10)
 
SetPrintSize(20)
do
	
print("Press keys to play a sound (sound warning!):")
print("1: sound effect")
print("2: explosion1")
print("3: explosion2")
print("4: powerup")
print("5: warning")
print("6: vibrato")
print("7: bass hit")
print("8: hihat")
print("9: door knock")
print("0: vinyl scratch")
print("q: cowbell")
print("w: bubble burst")
 
 
if GetRawKeyPressed(49)=1  
	PlaySound(1)
	print("1")	
	sleep( 300 )
endif
if GetRawKeyPressed(50)=1
	PlaySound(2)
	print("2")	
	sleep( 300 )
endif

if GetRawKeyPressed(51)=1 
	PlaySound(3)
	print("3")	
	sleep( 300 )
endif
if GetRawKeyPressed(52)=1 
	PlaySound(4)
		print("4")
	sleep( 300 )
endif

if GetRawKeyPressed(53)=1  
	 PlaySound(5)
	 	print("5")
	 sleep( 300 )
endif

if GetRawKeyPressed(54)=1  
	 PlaySound( 6)
	 PlaySound( 7)
	 PlaySound( 8)
	 	print("6")
	 sleep( 300 )
endif

if GetRawKeyPressed(55)=1  
	 PlaySound(9)
	 sleep( 300 )
	 	print("7")
endif

if GetRawKeyPressed(56)=1 
	  PlaySound(10)
	  sleep( 300 )
endif

if GetRawKeyPressed(57)=1  
	 PlaySound(11)
	 sleep( 300 )
endif

if GetRawKeyPressed(48)=1  
	 PlaySound(12)
	 sleep( 300 )
endif

if GetRawKeyPressed(81)=1  
	 PlaySound(13)
	 PlaySound(14)
	 PlaySound(15)
	 PlaySound(16)
	 sleep( 300 )
endif

if GetRawKeyPressed(87)=1  
	 PlaySound(17)
	 sleep( 300 )
endif

sync()
loop
 
 
 
 
function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#,attack#)
 
 
// define temporary variables
outWord as integer
dword1 as integer
dword3 as integer
dword4 as integer
dword5 as integer
 
fallinloudness# as float
phi# as float
theta# as float
position as integer
samples as integer 
 
 
 
 
samples=(length#/1000)*44100

// create a new, empty memblock 1
if GetMemblockExists(1)=1 then DeleteMemblock(1)
CreateMemblock(1,samples*2+28)

` header bytes
channels=1						  	  ` CHANNELS 		(2 bytes)
bits=8  							  ` BITS 			(2 bytes)
hz=44100  							  ` HZ 				(4 bytes)
totallength=samples*(bits/8)*channels ` TOTAL LENGTH 	(4 bytes)

// Header for a wav file
SetMemblockShort(1,position,channels)
inc position,2
SetMemblockShort(1,position,bits)
inc position,2
SetMemblockInt(1,position,hz)
inc position,4
SetMemblockInt(1,position,totallength)
inc position,4

// generate and write wave - actual content
riseinloudness#=loudness#
for x=1 to samples
  outInteger=sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#-fallinloudness#-riseinloudness#+tremelodepth#*sin(phi#))*3.0
  if outInteger <-32767 then outInteger=-32767  ` gg query: is this the valid range?
  if outInteger>32767 then outInteger=32767     ` gg query:       (ditto)          ?
  outWord=outInteger
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#
 
  if fallinloudness#<loudness#
    inc fallinloudness#,decay#
  endif
 
  if riseinloudness#>0
    dec riseinloudness#,attack#
  endif

SetMemblockbyte(1,position,outWord)
  inc position,2
next x

// create sound file from memblock
if GetSoundExists(soundnumber)=1 then DeleteSound(soundnumber)
CreateSoundFromMemblock(soundnumber,1)
 
// memblock no longer required
DeleteMemblock(1)
 
endfunction

+ Code Snippet

/*

AGK Wave sound creator
======================

by Ric, and:
 
Tommy S - Original waveform code
Green Gandalf - Memblock format
Lampton Worm - Load/Save format
Lampton Worm/Raven - Real time parameter editor
Xtom - GUI/parameter editor

ported by Jack from DBP to AGK
*/

render_x = 1024
render_y = 768

	SetOrientationAllowed( 0, 0, 1, 0 )
	SetWindowSize( render_x, render_y, 1 )
	setvirtualresolution(render_x,render_y)
	SetResolutionMode( 1 ) 
	SetScreenResolution( render_x,render_y ) 
	SetSyncRate(60,0)
	
	print("please wait")
	sync()


createsound("sound effect",1,2995,2000,8000,0.02,0.1,0.60,3,0.64,5,10)
createsound("explosion",2,6200,200,2000,20,0.2,0,0,0,0,10)
createsound("explosion2",3,1200,600,3000,10,0.1,0,0,0,0,10)
createsound("powerup",4,800,700,8000,-0.02,0.2,0,0,0,0,10)

createsound("warning",5,800,1000,6000,0.5,0.1,0,0,0,0,5)
createsound("vibrato1",6,500,2000,8000,0,0.1,0.05,0.2,0,0,1)
createsound("vibrato2",7,400,2000,8000,0,0.1,0.05,0.2,0,0,1)
createsound("vibrato3",8,600,2000,8000,0,0.1,0.05,0.2,0,0,1)
createsound("bass hit",9,30,50,16000,0.00,1.5,.0,0,0,0,100)
createsound("hihat",10,800,40,5000,60.06,2.2,.1,0,0,0,10)
createsound("door knock",11,200,20,8000,.1,4.0,2.1,10,9.2,9.2,10)
createsound("vinyl scratch",12,500,80,8000,0.06,0.2,.1,0,0,0,10)
createsound("cb1",13,250,50,2500,0.00001,0.1,4.0,0.4,0,0,10)
createsound("cb2",14,500,50,2500,0.00001,0.1,4.0,0.4,0,0,10)
createsound("cb3",15,437.5,150,1500,0.0001,0.1,0.0,4.0,0.4,0,10)
createsound("cb4",16,573.75,150,1500,0.0,0.1,4.0,0.4,0,0,10)
createsound("bubble burst",17,50,80,6000,-.4,2.0,0.1,10,1.2,0.2,10)
 
SetPrintSize(20)
do
	
print("Press keys to play a sound (sound warning!):")
print("1: sound effect")
print("2: explosion1")
print("3: explosion2")
print("4: powerup")
print("5: warning")
print("6: vibrato")
print("7: bass hit")
print("8: hihat")
print("9: door knock")
print("0: vinyl scratch")
print("q: cowbell")
print("w: bubble burst")
 
 
if GetRawKeyPressed(49)=1  
	PlaySound(1)
	print("1")	
	sleep( 300 )
endif
if GetRawKeyPressed(50)=1
	PlaySound(2)
	print("2")	
	sleep( 300 )
endif

if GetRawKeyPressed(51)=1 
	PlaySound(3)
	print("3")	
	sleep( 300 )
endif
if GetRawKeyPressed(52)=1 
	PlaySound(4)
		print("4")
	sleep( 300 )
endif

if GetRawKeyPressed(53)=1  
	 PlaySound(5)
	 	print("5")
	 sleep( 300 )
endif

if GetRawKeyPressed(54)=1  
	 PlaySound( 6)
	 PlaySound( 7)
	 PlaySound( 8)
	 	print("6")
	 sleep( 300 )
endif


if GetRawKeyPressed(55)=1  
	 PlaySound(9)
	 sleep( 300 )
	 	print("7")
endif

if GetRawKeyPressed(56)=1 
	  PlaySound(10)
	  sleep( 300 )
endif

if GetRawKeyPressed(57)=1  
	 PlaySound(11)
	 sleep( 300 )
endif

if GetRawKeyPressed(48)=1  
	 PlaySound(12)
	 sleep( 300 )
endif

if GetRawKeyPressed(81)=1  
	 PlaySound(13)
	 PlaySound(14)
	 PlaySound(15)
	 PlaySound(16)
	 sleep( 300 )
endif

if GetRawKeyPressed(87)=1  
	 PlaySound(17)
	 sleep( 300 )
endif

sync()
loop
 
 
 
 
function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#,attack#)
 
 
// define temporary variables
outWord as integer
dword1 as integer
dword3 as integer
dword4 as integer
dword5 as integer
 
fallinloudness# as float
phi# as float
theta# as float
position as integer
samples as integer 
 
 
 
 
samples=(length#/1000)*44100


// create a new, empty memblock 1
if GetMemblockExists(1)=1 then DeleteMemblock(1)
CreateMemblock(1,samples*2+28)

` header bytes
channels=1						  	  ` CHANNELS 		(2 bytes)
bits=8  							  ` BITS 			(2 bytes)
hz=44100  							  ` HZ 				(4 bytes)
totallength=samples*(bits/8)*channels ` TOTAL LENGTH 	(4 bytes)


 

// Header for a wav file
SetMemblockShort(1,position,channels)
inc position,2
SetMemblockShort(1,position,bits)
inc position,2
SetMemblockInt(1,position,hz)
inc position,4
SetMemblockInt(1,position,totallength)
inc position,4



// generate and write wave - actual content
riseinloudness#=loudness#
for x=1 to samples
  outInteger=sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#-fallinloudness#-riseinloudness#+tremelodepth#*sin(phi#))*3.0
  if outInteger <-32767 then outInteger=-32767  ` gg query: is this the valid range?
  if outInteger>32767 then outInteger=32767     ` gg query:       (ditto)          ?
  outWord=outInteger
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#
 
  if fallinloudness#<loudness#
    inc fallinloudness#,decay#
  endif
 
  if riseinloudness#>0
    dec riseinloudness#,attack#
  endif

  SetMemblockbyte(1,position,outWord)
  inc position,2
next x
 

// create sound file from memblock
if GetSoundExists(soundnumber)=1 then DeleteSound(soundnumber)
CreateSoundFromMemblock(soundnumber,1)
 
// memblock no longer required
DeleteMemblock(1)
 
endfunction

[/url]

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 26th Oct 2016 09:12

Link

@Scary Little Rabbit - yes, I didn't have time to implement decimals. negative points for me

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

damothegreat

User Banned

Posted: 26th Oct 2016 11:38 Edited at: 19th Jan 2017 19:19

Link

....

Back to top

Profile

damothegreat

User Banned

Posted: 26th Oct 2016 12:40 Edited at: 19th Jan 2017 19:19

Link

....

Back to top

Profile

Scraggle

Moderator

20

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 26th Oct 2016 13:17

Link

@Damo
I just tried it - it failed!

71.5 returns:

Quote: "Higher1 = 7 = 1
seven thousand one"

AGK V2 user - Tier 1 (mostly)

Back to top

Profile PM Email

damothegreat

User Banned

Posted: 26th Oct 2016 13:35 Edited at: 19th Jan 2017 19:19

Link

...

Back to top

Profile

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 26th Oct 2016 21:45

Link

I'll be testing entries first thing in the morning, because I don't stay up past 10 anymore. I'm getting old.

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 27th Oct 2016 04:42 Edited at: 27th Oct 2016 04:58

Link

Well, I had picked up AppGameKit last year maybe during one of the big sales, but didn't have it installed and hadn't ever really used it so I wasn't planning on entering. I did play along using DBpro then decided to get set up and convert it over at the last minute.

If entries haven't been cut off yet, here is mine:

GLOBAL base as string[13] = ["Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen"]
GLOBAL group as string[11] = ["Hundred", "Thousand", "Million", "Billion", "Trillion", "Quadrillion", "Quintillion", "Sextillion", "Septillion", "Octillion", "Nonillion", "Decillion"]

function num2word(rNum$)
	rNum$ = TrimString(StripString(rNum$, ","), " ")
	if left(rNum$, 1) = "-"
		tSign$ = "Negative "
		rNum$ = trimString(right(rNum$, len(rNum$) - 1), " ")
	endif
	tPart$ = GetStringToken(rNum$, ".", 1)
	partLen = len(tPart$)
	tGroup = 0
	while partLen
		res$ = ""
		setLen = partLen
		if setLen >= 3 then setLen = 3
		tSet$ = right("00" + right(tPart$, setLen), 3)
		tMid = val(left(tSet$, 1))
		if setLen = 3 and tMid > 0 then res$ = res$ + base[tMid] + " Hundred "
		tMid = val(mid(tSet$, 2, 1))
		tVal = val(right(tSet$, 2))
		if tVal > 13
			if tVal > 19
				if tMid = 2 then res$ = res$ + "Twenty "
				if tMid = 3 then res$ = res$ + "Thirty "
				if tMid = 5 then res$ = res$ + "Fifty "
				if tMid > 3 and tMid <> 5 then res$ = res$ + base[tMid] + "ty "
				tMid = val(right(tSet$, 1))
				if tMid > 0 then res$ = res$ + base[tMid] + " "
			else
				tMid = val(right(tSet$, 1))
				if tMid = 5
					res$ = res$ + "fifteen "
				else
					res$ = res$ + base[tMid] + "teen "
				endif
			endif
		else
			res$ = res$ + base[tval] + " "
		endif
		if tGroup > 0 then res$ = res$ + group[tGroup]
		finalRes$ = res$ + " " + finalRes$
		tPart$ = left(tPart$, partLen - setLen)
		partLen = len(tPart$)
		inc tGroup
	endwhile
	finalRes$ = ReplaceString(tSign$ + finalRes$, "tt", "t", -1)
endfunction finalRes$

+ Code Snippet

GLOBAL base as string[13] = ["Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen"]
GLOBAL group as string[11] = ["Hundred", "Thousand", "Million", "Billion", "Trillion", "Quadrillion", "Quintillion", "Sextillion", "Septillion", "Octillion", "Nonillion", "Decillion"]

function num2word(rNum$)
	rNum$ = TrimString(StripString(rNum$, ","), " ")
	if left(rNum$, 1) = "-"
		tSign$ = "Negative "
		rNum$ = trimString(right(rNum$, len(rNum$) - 1), " ")
	endif
	tPart$ = GetStringToken(rNum$, ".", 1)
	partLen = len(tPart$)
	tGroup = 0
	while partLen
		res$ = ""
		setLen = partLen
		if setLen >= 3 then setLen = 3
		tSet$ = right("00" + right(tPart$, setLen), 3)
		tMid = val(left(tSet$, 1))
		if setLen = 3 and tMid > 0 then res$ = res$ + base[tMid] + " Hundred "
		tMid = val(mid(tSet$, 2, 1))
		tVal = val(right(tSet$, 2))
		if tVal > 13
			if tVal > 19
				if tMid = 2 then res$ = res$ + "Twenty "
				if tMid = 3 then res$ = res$ + "Thirty "
				if tMid = 5 then res$ = res$ + "Fifty "
				if tMid > 3 and tMid <> 5 then res$ = res$ + base[tMid] + "ty "
				tMid = val(right(tSet$, 1))
				if tMid > 0 then res$ = res$ + base[tMid] + " "
			else
				tMid = val(right(tSet$, 1))
				if tMid = 5
					res$ = res$ + "fifteen "
				else
					res$ = res$ + base[tMid] + "teen "
				endif
			endif
		else
			res$ = res$ + base[tval] + " "
		endif
		if tGroup > 0 then res$ = res$ + group[tGroup]
		finalRes$ = res$ + " " + finalRes$
		tPart$ = left(tPart$, partLen - setLen)
		partLen = len(tPart$)
		inc tGroup
	endwhile
	finalRes$ = ReplaceString(tSign$ + finalRes$, "tt", "t", -1)
endfunction finalRes$

It handles negatives, commas, and zero. I haven't had time to convert right of the decimal, so it will simply drop the decimal and keep the left hand integer.

Only uses 2 arrays, and the function weighs in at 45 lines with 1 command per line.

Tested against the following:

+ Code Snippet

tTime as string

do
	print("13,742.08: ")
	print(num2word("13,742.08"))
	print("0: ")
	print(num2word("0"))
	print("13.5: ")
	print(num2word("13.5"))
	print("99.999: ")
	print(num2word("99.999"))
	print("-137.00: ")
	print(num2word("-137.00"))
	print("2222.001: ")
	print(num2word("2222.001"))	
	tTime = str(GetUnixTime())
	print(tTime + ": ")
	print(num2word(tTime))
	sync()
loop

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 27th Oct 2016 07:59

Link

what's I've missed is plain zero case. if it's possible I would move slightly modified line 42 of my function four lines down.

cut line 42

42 wrote: "if i = 1 or val(mid(req, 1, 1)) = 0 then exitfunction 'zero' + spaces(res <> '') + res"

paste right after "next", line 45 (previous 46)

46 wrote: "if i = 1 or val(mid(req, 1, l)) = 0 then exitfunction 'zero' + spaces(res <> '') + res"

and thereby

// license: MIT
// copyright (c) 2016, Simon Grim
 
dim singles[19] as string
    singles = ['', 'one', 'two', 'three', 'four', 'five', 'six', 'seven', 'eight', 'nine', 'ten', 'eleven', 'twelve', 'thirteen', 'fourteen', 'fifteen', 'sixteen', 'seventeen', 'eighteen', 'nineteen']
dim tens[9] as string
    tens = ['', '', 'twenty', 'thirty', 'fourty', 'fifty', 'sixty', 'seventy', 'eighty', 'ninety']
#constant multipliersLength 21
dim multipliers[multipliersLength] as string
    multipliers = ['', 'thousand', 'million', 'billion', 'trillion', 'quadrillion', 'quintillion', 'sextillion', 'septillion', 'octillion', 'nonillion', 'decillion', 'undecillion', 'duodecillion', 'tredecillion', 'quattuordecillion', 'quindecillion', 'sexdecillion', 'septendecillion', 'octodecillion', 'novemdecillion', 'vigintillion']
dim amps[2] as string
    amps = ['', 'ten', 'hundred']

function spellNumStr(req as string)
    res         as string

if mid(req, 1, 1) = '-' then exitfunction 'negative ' + spellNumStr(mid(req, 2, -1))

//req = stripString(req, ',')  // uncomment if it's comma separated numbers like '123,345,789'
    l = len(req)

for i = 1 to l
        if mid(req, i, 1) = '.'
            if i < l
                for j = l to i step -1
                    if val(mid(req, j, 1)) > 0 then exit
                next
                    if j > i
                        l = j - i
                            k = mod(l, 3)
                                m = (l - k) / 3
                            res = mid(req, i + 1, l)
                                res = 'and ' + spellNumStr(res) + ' ' + amps[k] + chr(45 * ((k * m) > 0)) + multipliers[m] + 'th' + chr(115 * (val(res) > 1))  // could be 'point' instead 'and'
                    else
                        res = 'and'  // could be 'point' instead
                        l = l - j
                            for j = 2 to l
                                res = res + ' zero'
                            next
                    endif
            endif
            l = i - 1
            exit
        endif
    next
        if i = 1 or val(mid(req, 1, l)) = 0 then exitfunction 'zero' + spaces(res <> '') + res

m = 0
    for i = l to 1 step -3
        k = 2 - (i < 3) - (i < 2)
        j = val(mid(req, i - k, k + 1))
            if j > 0 then res = multipliers[m] + spaces(m > 0) + res
            if m < multipliersLength then inc m else exitfunction 'too much... ¯\\_(ツ)_/¯'
        j = i - 1
            if j > 0 then j = val(mid(req, j, 1))
            if j > 1
                k = val(mid(req, i, 1))
                    res = tens[j] + chr(45 * (k > 0)) + singles[k] + spaces(res <> '') + res
            else
                k = j * 10 + val(mid(req, i, 1))
                    res = singles[k] + spaces(res <> '' and k > 0) + res
            endif
        j = i - 2
            if j > 0
                j = val(mid(req, j, 1))
                    if j > 0
                        res = singles[j] + ' hundred' + spaces(res <> '') + res
                    endif
            endif
    next
endfunction res

+ Code Snippet

// license: MIT
// copyright (c) 2016, Simon Grim
 
dim singles[19] as string
    singles = ['', 'one', 'two', 'three', 'four', 'five', 'six', 'seven', 'eight', 'nine', 'ten', 'eleven', 'twelve', 'thirteen', 'fourteen', 'fifteen', 'sixteen', 'seventeen', 'eighteen', 'nineteen']
dim tens[9] as string
    tens = ['', '', 'twenty', 'thirty', 'fourty', 'fifty', 'sixty', 'seventy', 'eighty', 'ninety']
#constant multipliersLength 21
dim multipliers[multipliersLength] as string
    multipliers = ['', 'thousand', 'million', 'billion', 'trillion', 'quadrillion', 'quintillion', 'sextillion', 'septillion', 'octillion', 'nonillion', 'decillion', 'undecillion', 'duodecillion', 'tredecillion', 'quattuordecillion', 'quindecillion', 'sexdecillion', 'septendecillion', 'octodecillion', 'novemdecillion', 'vigintillion']
dim amps[2] as string
    amps = ['', 'ten', 'hundred']

function spellNumStr(req as string)
    res         as string

    if mid(req, 1, 1) = '-' then exitfunction 'negative ' + spellNumStr(mid(req, 2, -1))

    //req = stripString(req, ',')  // uncomment if it's comma separated numbers like '123,345,789'
    l = len(req)

    for i = 1 to l
        if mid(req, i, 1) = '.'
            if i < l
                for j = l to i step -1
                    if val(mid(req, j, 1)) > 0 then exit
                next
                    if j > i
                        l = j - i
                            k = mod(l, 3)
                                m = (l - k) / 3
                            res = mid(req, i + 1, l)
                                res = 'and ' + spellNumStr(res) + ' ' + amps[k] + chr(45 * ((k * m) > 0)) + multipliers[m] + 'th' + chr(115 * (val(res) > 1))  // could be 'point' instead 'and'
                    else
                        res = 'and'  // could be 'point' instead
                        l = l - j
                            for j = 2 to l
                                res = res + ' zero'
                            next
                    endif
            endif
            l = i - 1
            exit
        endif
    next
        if i = 1 or val(mid(req, 1, l)) = 0 then exitfunction 'zero' + spaces(res <> '') + res

    m = 0
    for i = l to 1 step -3
        k = 2 - (i < 3) - (i < 2)
        j = val(mid(req, i - k, k + 1))
            if j > 0 then res = multipliers[m] + spaces(m > 0) + res
            if m < multipliersLength then inc m else exitfunction 'too much... ¯\\_(ツ)_/¯'
        j = i - 1
            if j > 0 then j = val(mid(req, j, 1))
            if j > 1
                k = val(mid(req, i, 1))
                    res = tens[j] + chr(45 * (k > 0)) + singles[k] + spaces(res <> '') + res
            else
                k = j * 10 + val(mid(req, i, 1))
                    res = singles[k] + spaces(res <> '' and k > 0) + res
            endif
        j = i - 2
            if j > 0
                j = val(mid(req, j, 1))
                    if j > 0
                        res = singles[j] + ' hundred' + spaces(res <> '') + res
                    endif
            endif
    next
endfunction res

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 27th Oct 2016 13:02

Link

Technically, your submission is 4 hours late, but I'll take it. I just purchased AGK2, waiting for it to show up in my products list so I can download it. I have an appointment to get to this morning anyway.

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 27th Oct 2016 14:25

Link

It's no biggie, keep it fair, if I'm late I'm late

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 27th Oct 2016 15:55

Link

Phaelax wrote: "Technically, your submission is 4 hours late, but I'll take it."

oh, I don't insist on that. only if one purpose of the challenge is to get the job done.

without the fix my function returns an empty string on '0' input (my bad, don't know how I missed it). on any other correct input data it produces correct output.

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 28th Oct 2016 16:38 Edited at: 28th Oct 2016 22:56

Link

Scary Little Rabbit, I tested your version 1 entry. I've attached a pdf containing my test results. Here's an explanation of what "questionable grammar" means. I had always been taught "and" is only used to represent a decimal place. Some of you used it within the integer part of the numbers. Since different parts of the world have variations on how the say things (incorrectly like britain

) I did not count this against anyone, as we had some debate about this. I merely noted it. I included myself in the same tests and reviewed my own code as I did everyone else.

Tests were done in AGK2. I also ran my code through the speed test in AppGameKit 1 just for comparison. It was faster in AGK1. AppGameKit 2 also made it difficult to get an average time because it appears way more inconsistent. There would always be at least one huge spike in the 10 samples I used for average. (the steam popup every time I ran an app wasn't very appreciated either, cmon tgc)

Ortu
Roughly 45 lines of code with only 2 arrays. Translations were accurate, handles negatives but no decimals.

damothegreat
Function had 38 lines of code and used 4 arrays. Translations were 50% accurate with 1 fatal crash. Speed was good but high numbers saw a huge spike in time.

Scary Little Rabbit
57 line function with 4 arrays. Had a few issues with accuracy but it did pass the decimal test, though I flagged it as "questionable grammar" due to the dash in "twenty-three". I did have to alter your funny little man text, as it caused a crash due to utf-8 conversion or some bs (but no points deducted for it).

BatVink
49 line function with 4 arrays. Speed was very good and the most consistent with higher numbers. However, the translation accuracy is what hurt this one.

Phaelax
Function written in under 40 lines but used an additional helper function that would've put it closer to 45. Four arrays used. Speed seemed linearly consistent with the length of the number, but ultimately proved to be one of the slowest overall.

MadBit
Two functions for roughly 68 lines and utilizing 4 arrays, this one is one of the faster routines. Accuracy-wise, it only failed on zero, passing the decimal test.

And the winner is......

+ Code Snippet

Ortu
While it was only the second fastest function, it proved to be one of the most accurate, failing only the decimal test.

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Attachments

Login to view attachments

Back to top

Profile PM Email Website

MadBit

VIP Member

Gold Codemaster

14

Years of Service

User Offline

Joined: 25th Jun 2009

Location: Germany

Posted: 28th Oct 2016 17:26

Link

And what is with me ?

Share your knowledge. It\'s a way to achieve immortality. (Tenzin Gyatso)
Pixie-Particle-Engine

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 28th Oct 2016 17:46

Link

Congrats Ortu.
Thank you Phaelax for organising.
Well done to all who submitted an entry.

I think you tested an older version of mine but no worries, I would have failed anyway if BlinkOK hadn't pointed out my fatal error.

This was a good start to the challenges, a couple of minor hiccups to be expected. My suggestion is to put the final entries for each challenge in a separate thread. Only one post per person in the thread, if an update is required then your original post must be edited. This will make sure the latest version is picked up and nobody is missed.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

damothegreat

User Banned

Posted: 28th Oct 2016 17:50 Edited at: 19th Jan 2017 19:19

Link

...

Back to top

Profile

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 28th Oct 2016 20:01 Edited at: 28th Oct 2016 20:04

Link

great! congratulations to Ortu, thanks to the host and the competitors! it was pretty funny for me.

OK,Phaelax, what if you were took my second entry and also have uncommented that line to strip commas from input — was my function most accurate then?

btw, English is not my native language obviously. I've used this guide to learn how to spell numbers. can you guys explain to me the rule for '23' to write it 'twenty three' and not 'twenty-three'? as like for 6 years old kid, I'm not really smart actually.

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 28th Oct 2016 20:27

Link

Phaelax wrote: "I did have to alter your funny little man text, as it caused a crash due to utf-8 conversion or some bs (but no points deducted for it)"

I have all my source files encoded in UTF-8. you know it's nice of course to have no points deducted while the source altered, although I'm just curious why did you not make the next step in altering and didn't uncomment the only one fully commented line at the very beginning of the function with clear note "uncomment if it's comma separated numbers like '123,345,789'"? yes, I've missed "please" in it but still…

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

damothegreat

User Banned

Posted: 28th Oct 2016 21:35 Edited at: 19th Jan 2017 19:19

Link

...

Back to top

Profile

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 28th Oct 2016 22:08

Link

damothegreat wrote: "Here a link to provide some useful results for your interest

http://www.calculatorsoup.com/calculators/conversions/numberstowords.php"

nice. exactly same results with my stuff, even for "-23.0001".

Quote: "negative twenty-three and one ten-thousandth"

or "-23.0123"

Quote: "negative twenty-three and one hundred twenty-three ten-thousandths"

note the endings like "ths".

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 28th Oct 2016 22:14

Link

I agree I failed here. technically. I want to make sure you grok the way I failed.

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 28th Oct 2016 23:06

Link

Quote: "although I'm just curious why did you not make the next step in altering and didn't uncomment the only one fully commented line at the very beginning of the function with clear note "uncomment if it's comma separated numbers like '123,345,789'"? yes, I've missed "please" in it but still…"

I only made a small edit so your code would run. Whatever characters you used in this: 'too much... ¯\\_(ツ)_/¯' would not compile for me. Other than that, I take everyone's code as-is. I shouldn't need to alter code (comment or uncomment) depending on the type of input. I can test your latest version to see how it compares.

MadBit, super sorry! I somehow missed your post. I've updated the spreadsheet with your results. I've already chosen Ortu as the winner this time. But to be honest, after testing yours I think I would have chosen you as the winner.

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 28th Oct 2016 23:18

Link

for your interest: Ortu's entry has a significant issue (for me, but surely I'm not so good in the Queen's English) — there's no need to say "zero thousand", "zero million", etc if there's zeros only in the thousandfold 3-digit places of a number. now try "1000123" or "1000000123" or "1000123456".

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 28th Oct 2016 23:34 Edited at: 28th Oct 2016 23:34

Link

and same point for MadBit's one but it's even more worse since there's no "zero" added. eg "1000000123":

Quote: " one billion million thousand one hundred twenty three "

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

damothegreat

User Banned

Posted: 28th Oct 2016 23:39 Edited at: 19th Jan 2017 19:19

Link

...

Back to top

Profile

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 29th Oct 2016 01:46

Link

Hey thanks guys, was fun.

I'll get the next challenge posted up tomorrow I've got a couple of ideas in mind

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 29th Oct 2016 04:22

Link

Quote: "
MadBit, super sorry! I somehow missed your post. I've updated the spreadsheet with your results. I've already chosen Ortu as the winner this time. But to be honest, after testing yours I think I would have chosen you as the winner.
"

After looking at the updated results, I'd have to agree, speeds are similar in the lower ranges, madbit edges me out in the larger numbers, though I use a shorter single function and less array memory. This could arguably go either way, but the biggest point in my mind is the handling of the decimal, I'd have a fail on 0 win out over a fail on decimals.

I don't mind stepping down as runner up, his entry was certainly valid and should be considered.

Quote: "
for your interest: Ortu's entry has a significant issue (for me, but surely I'm not so good in the Queen's English) — there's no need to say "zero thousand", "zero million", etc if there's zeros only in the thousandfold 3-digit places of a number. now try "1000123" or "1000000123" or "1000123456".
"

Doh! I hadn't considered a case for a set of 000 within a group, good catch.

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 29th Oct 2016 06:40

Link

Quote: "Doh! I hadn't considered a case for a set of 000 within a group, good catch."

Me either. And it appears that most, if not all, of us would've failed that test!

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 29th Oct 2016 09:48

Link

Phaelax wrote: "And it appears that most, if not all, of us would've failed that test!"

certainly not all.

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

MadBit

VIP Member

Gold Codemaster

14

Years of Service

User Offline

Joined: 25th Jun 2009

Location: Germany

Posted: 29th Oct 2016 13:13

Link

wrote: "MadBit, super sorry! I somehow missed your post. I've updated the spreadsheet with your results. I've already chosen Ortu as the winner this time. But to be honest, after testing yours I think I would have chosen you as the winner."

Wow, that surprised me a bit.
I will probably have to skip the next competition, because I came to the hospital tonight.
Otherwise, I can only say congratulations to all participants.

Share your knowledge. It\'s a way to achieve immortality. (Tenzin Gyatso)
Pixie-Particle-Engine

Back to top

Profile PM Email

Scary Little Rabbit

14

Years of Service

User Offline

Joined: 4th Aug 2009

Location: Chelyabinsk, Russian Federation.

Posted: 30th Oct 2016 15:32

Link

also… (I'm just warming up, heh) did you know what is the right way to write the spelling of number 40 in English? it's actually "forty" and never "fourty". yep.

so bad luck Ortu, MadBit, BatVink… and me too. now I'm going to take my words back. my function officially does not produce correct output on any other besides zero correct input data. damned copy-paste.

what's especially funny damothegreat previously told about "fourty severn" as one of spelling mistakes.

error #1:
'too many stars, too many stares. disembody.'
Unicode yours

Back to top

Profile PM Email Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 30th Oct 2016 18:15

Link

Well, let's keep it moving.

Inspired by this thread

Challenge 2
Title: Solar System
Deadline: Sunday, Nov 6
Description:
Give us your take on our solar system be it 3d, 2d, or even text. As per standard rules, all media must be generated within the code. The sun and planets should be present and identifiable in some manner. Bonus points for animation and inclusion of additional bodies such as moons. I still consider Pluto to be a planet

, but for the purposes of this challenge, it will be considered an additional body.

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

damothegreat

User Banned

Posted: 30th Oct 2016 18:34 Edited at: 19th Jan 2017 19:20

Link

...

Back to top

Profile

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 30th Oct 2016 21:42

Link

Quote: " I still consider Pluto to be a planet "

You're darn skippy it's a planet! But did you know, the planet they now consider to be our ninth is so massive that it causes the sun to tilt?

This could be quite a challenge, as AppGameKit I feel has less to work with in terms of generating media than DB did.

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 30th Oct 2016 23:08 Edited at: 30th Oct 2016 23:09

Link

I'm still feeling out agk's capabilities to be honest, but for this I think it's doable to get something basic up and running without making it too complicated.

The challenge here will be completing the basics while keeping a good grip on scope. It's easy to get carried away with cool ideas to add, but knowing when and what to cut/limit is important too

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

damothegreat

User Banned

Posted: 31st Oct 2016 00:29 Edited at: 19th Jan 2017 19:20

Link

...

Back to top

Profile

damothegreat

User Banned

Posted: 1st Nov 2016 19:37 Edited at: 19th Jan 2017 19:20

Link

...

Attachments

Login to view attachments

Back to top

Profile

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 1st Nov 2016 21:32

Link

Hard to say considering it was only posted Sunday, then Monday was a holiday.

I'm wrapping up a simple 2d entry, with a todo list of improvements I'd like to get to by the end of the week

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 1st Nov 2016 21:51

Link

This one is a little too ambitious for me this week with the time I have available. I will be back for the next one.

I would reiterate my suggestion that this thread is the primary one for setting and discussing, but a separate thread is created for each challenge to post the entries, one post per entrant.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 2nd Nov 2016 05:23 Edited at: 2nd Nov 2016 06:19

Link

Bah where's that TGC 'can-do' attitude?!

It really doesn't need to be too complicated, here is a simple one I did in a few hours today

// Project: codeChallenge02 
// Created: 2016-11-01

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "codeChallenge02" )
SetWindowSize( 1280, 768, 0 )

// set display properties
SetVirtualResolution( 1600, 900 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery

type bodyData
	label as string
	posX as float
	posY as float
	orbitalDistance as float
	angle as float
	speed as float
	primaryColor as integer
	size as integer
	imgNum as integer	
endtype

GLOBAL nextImg = 1

centerX as float = 800
centerY as float = 450

bodies as bodyData[9]
tBody as bodyData

`tBody.label = "Sol"
tBody.posX = centerX
tBody.posY = centerY
tBody.orbitalDistance = 0.0
tBody.angle = 0.0
tBody.speed = 1.0
tBody.primaryColor = MakeColor(255, 204, 0)
tBody.size = applyScale(696342)
bodies[0] = tBody
bodies[0].imgNum = makeBodyImg(tBody)

tBody.label = "Mercury"
tBody.orbitalDistance = applyScale(580000)
tBody.angle = 0.0
tBody.speed = 1.0
tBody.primaryColor = MakeColor(204, 204, 204)
tBody.size = applyScale(24400)
bodies[1] = tBody
bodies[1].imgNum = makeBodyImg(tBody)

tBody.label = "Venus"
tBody.orbitalDistance = applyScale(1080000)
tBody.angle = 8.0
tBody.speed = 0.26
tBody.primaryColor = MakeColor(174, 100, 25)
tBody.size = applyScale(60520)
bodies[2] = tBody
bodies[2].imgNum = makeBodyImg(tBody)

tBody.label = "Earth"
tBody.orbitalDistance = applyScale(1490000)
tBody.angle = 4.5
tBody.speed = 0.16
tBody.primaryColor = MakeColor(156, 169, 255)
tBody.size = applyScale(63710)
bodies[3] = tBody
bodies[3].imgNum = makeBodyImg(tBody)

tBody.label = "Mars"
tBody.orbitalDistance = applyScale(2490000)
tBody.angle = 12.0
tBody.speed = 0.09
tBody.primaryColor = MakeColor(227, 188, 131)
tBody.size = applyScale(33900)
bodies[4] = tBody
bodies[4].imgNum = makeBodyImg(tBody)

tBody.label = "Jupiter"
tBody.orbitalDistance = applyScale(7782990)
tBody.angle = 16.0
tBody.speed = 0.01
tBody.primaryColor = MakeColor(237, 181, 168)
tBody.size = applyScale(699110)
bodies[5] = tBody
bodies[5].imgNum = makeBodyImg(tBody)

tBody.label = "Saturn"
tBody.orbitalDistance = applyScale(14000000)
tBody.angle = 12.0
tBody.speed = 0.005
tBody.primaryColor = MakeColor(207, 196, 171)
tBody.size = applyScale(582320)
bodies[6] = tBody
bodies[6].imgNum = makeBodyImg(tBody)

tBody.label = "Uranus"
tBody.orbitalDistance = applyScale(22351180)
tBody.angle = 8.0
tBody.speed = 0.002
tBody.primaryColor = MakeColor(192, 230, 201)
tBody.size = applyScale(253620)
bodies[7] = tBody
bodies[7].imgNum = makeBodyImg(tBody)
		
tBody.label = "Neptune"
tBody.orbitalDistance = applyScale(25000000)
tBody.angle = 6.0
tBody.speed = 0.001
tBody.primaryColor = MakeColor(192, 230, 201)
tBody.size = applyScale(246220)
bodies[8] = tBody
bodies[8].imgNum = makeBodyImg(tBody)

tBody.label = "Pluto"
tBody.orbitalDistance = applyScale(27351180)
tBody.angle = 40.0
tBody.speed = 0.001
tBody.primaryColor = MakeColor(239, 199, 164)
tBody.size = applyScale(23740)
bodies[9] = tBody
bodies[9].imgNum = makeBodyImg(tBody)

orbitsImg = nextImg
inc nextImg

swap()
DrawBox(0, 0, 1600, 900, MakeColor(0, 0, 0), MakeColor(0, 0, 0), MakeColor(0, 0, 0), MakeColor(0, 0, 0), 1)
for i = 1 to 9
	for a# = 0.0 to 360.0
		DrawBox(centerX + sin(a#) * bodies[i].orbitalDistance, centerY + cos(a#) * bodies[i].orbitalDistance, (centerX + sin(a#) * bodies[i].orbitalDistance) + 1, (centerY + cos(a#) * bodies[i].orbitalDistance) + 1, MakeColor(105, 105, 105), MakeColor(105, 105, 105), MakeColor(105, 105, 105), MakeColor(105, 105, 105), 1)
		inc a#, 10 - i
	next a#
next i
render()
getImage(orbitsImg, 0, 0, 1600, 900)
CreateSprite(orbitsImg, orbitsImg)
SetSpriteDepth(orbitsImg, 20)
SetSpriteScale(orbitsImg, 1.245, 1.24)
ClearScreen()

mark# = timer()

do
elapsed# = (timer() - mark#) * 1000 * -1
SetSpritePosition(orbitsImg, 0, 0)
`SetTextPosition(bodies[0].imgNum, bodies[0].posX + bodies[0].size, bodies[0].posY)
SetSpritePosition(bodies[0].imgNum, centerX - (bodies[0].size / 2.0), centerY - (bodies[0].size / 2.0))
for i = 1 to 9
	bodies[i].angle = WrapAngle(bodies[i].angle - (elapsed# * bodies[i].speed))
	bodies[i].posX = (centerX - bodies[i].size / 2.0) + sin(bodies[i].angle) * bodies[i].orbitalDistance
	bodies[i].posY = (centerY - bodies[i].size / 2.0) + cos(bodies[i].angle) * bodies[i].orbitalDistance
	SetSpritePosition(bodies[i].imgNum, bodies[i].posX, bodies[i].posY)
	SetTextPosition(bodies[i].imgNum, bodies[i].posX + bodies[i].size, bodies[i].posY)
next i
mark# = timer()
sync()
loop

function makeBodyImg(tBody as bodyData)
	tImg = nextImg
	inc nextImg
	swap()
	drawBox(0, 0, tBody.size, tBody.size, tBody.primaryColor, tBody.primaryColor, tBody.primaryColor, tBody.primaryColor, 1)
	render()
	getImage(tImg, 0, 0, tBody.size, tBody.size)
	createSprite(tImg, tImg)
	ClearScreen()
	CreateText(tImg, tBody.label)
	SetTextSize(tImg, 20)
endfunction tImg

function applyScale(tKM as float)
	tSize# = (tKM * 1600) / 60000000
	if tSize# < 4.0 then tSize# = 4.0
endfunction tSize#

rem ----------------------------------------------------------------------------------
rem Stab in the Dark's https://forum.thegamecreators.com/thread/216506
function WrapAngle( angle as float) 
    local iChunkOut as integer
    local breakout as integer
    iChunkOut = angle
    iChunkOut = iChunkOut - mod( iChunkOut, 360 )
    angle = angle - iChunkOut
    breakout = 10000
    while angle < 0.0 or angle >= 360.0 
        if angle < 0.0 then angle = angle + 360.0
        if angle >= 360.0 then angle = angle - 360.0
        dec breakout  
        if  breakout = 0  then exit
    endwhile
    if  breakout = 0  then angle = 0.0
endfunction angle

+ Code Snippet


// Project: codeChallenge02 
// Created: 2016-11-01

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "codeChallenge02" )
SetWindowSize( 1280, 768, 0 )

// set display properties
SetVirtualResolution( 1600, 900 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery

type bodyData
	label as string
	posX as float
	posY as float
	orbitalDistance as float
	angle as float
	speed as float
	primaryColor as integer
	size as integer
	imgNum as integer	
endtype

GLOBAL nextImg = 1

centerX as float = 800
centerY as float = 450

bodies as bodyData[9]
tBody as bodyData

`tBody.label = "Sol"
tBody.posX = centerX
tBody.posY = centerY
tBody.orbitalDistance = 0.0
tBody.angle = 0.0
tBody.speed = 1.0
tBody.primaryColor = MakeColor(255, 204, 0)
tBody.size = applyScale(696342)
bodies[0] = tBody
bodies[0].imgNum = makeBodyImg(tBody)

tBody.label = "Mercury"
tBody.orbitalDistance = applyScale(580000)
tBody.angle = 0.0
tBody.speed = 1.0
tBody.primaryColor = MakeColor(204, 204, 204)
tBody.size = applyScale(24400)
bodies[1] = tBody
bodies[1].imgNum = makeBodyImg(tBody)

tBody.label = "Venus"
tBody.orbitalDistance = applyScale(1080000)
tBody.angle = 8.0
tBody.speed = 0.26
tBody.primaryColor = MakeColor(174, 100, 25)
tBody.size = applyScale(60520)
bodies[2] = tBody
bodies[2].imgNum = makeBodyImg(tBody)

tBody.label = "Earth"
tBody.orbitalDistance = applyScale(1490000)
tBody.angle = 4.5
tBody.speed = 0.16
tBody.primaryColor = MakeColor(156, 169, 255)
tBody.size = applyScale(63710)
bodies[3] = tBody
bodies[3].imgNum = makeBodyImg(tBody)

tBody.label = "Mars"
tBody.orbitalDistance = applyScale(2490000)
tBody.angle = 12.0
tBody.speed = 0.09
tBody.primaryColor = MakeColor(227, 188, 131)
tBody.size = applyScale(33900)
bodies[4] = tBody
bodies[4].imgNum = makeBodyImg(tBody)

tBody.label = "Jupiter"
tBody.orbitalDistance = applyScale(7782990)
tBody.angle = 16.0
tBody.speed = 0.01
tBody.primaryColor = MakeColor(237, 181, 168)
tBody.size = applyScale(699110)
bodies[5] = tBody
bodies[5].imgNum = makeBodyImg(tBody)

tBody.label = "Saturn"
tBody.orbitalDistance = applyScale(14000000)
tBody.angle = 12.0
tBody.speed = 0.005
tBody.primaryColor = MakeColor(207, 196, 171)
tBody.size = applyScale(582320)
bodies[6] = tBody
bodies[6].imgNum = makeBodyImg(tBody)

tBody.label = "Uranus"
tBody.orbitalDistance = applyScale(22351180)
tBody.angle = 8.0
tBody.speed = 0.002
tBody.primaryColor = MakeColor(192, 230, 201)
tBody.size = applyScale(253620)
bodies[7] = tBody
bodies[7].imgNum = makeBodyImg(tBody)
		
tBody.label = "Neptune"
tBody.orbitalDistance = applyScale(25000000)
tBody.angle = 6.0
tBody.speed = 0.001
tBody.primaryColor = MakeColor(192, 230, 201)
tBody.size = applyScale(246220)
bodies[8] = tBody
bodies[8].imgNum = makeBodyImg(tBody)		

tBody.label = "Pluto"
tBody.orbitalDistance = applyScale(27351180)
tBody.angle = 40.0
tBody.speed = 0.001
tBody.primaryColor = MakeColor(239, 199, 164)
tBody.size = applyScale(23740)
bodies[9] = tBody
bodies[9].imgNum = makeBodyImg(tBody)		

orbitsImg = nextImg
inc nextImg

swap()
DrawBox(0, 0, 1600, 900, MakeColor(0, 0, 0), MakeColor(0, 0, 0), MakeColor(0, 0, 0), MakeColor(0, 0, 0), 1)
for i = 1 to 9
	for a# = 0.0 to 360.0
		DrawBox(centerX + sin(a#) * bodies[i].orbitalDistance, centerY + cos(a#) * bodies[i].orbitalDistance, (centerX + sin(a#) * bodies[i].orbitalDistance) + 1, (centerY + cos(a#) * bodies[i].orbitalDistance) + 1, MakeColor(105, 105, 105), MakeColor(105, 105, 105), MakeColor(105, 105, 105), MakeColor(105, 105, 105), 1)
		inc a#, 10 - i
	next a#
next i
render()
getImage(orbitsImg, 0, 0, 1600, 900)
CreateSprite(orbitsImg, orbitsImg)
SetSpriteDepth(orbitsImg, 20)
SetSpriteScale(orbitsImg, 1.245, 1.24)
ClearScreen()

mark# = timer()

do
elapsed# = (timer() - mark#) * 1000 * -1
SetSpritePosition(orbitsImg, 0, 0)
`SetTextPosition(bodies[0].imgNum, bodies[0].posX + bodies[0].size, bodies[0].posY)
SetSpritePosition(bodies[0].imgNum, centerX - (bodies[0].size / 2.0), centerY - (bodies[0].size / 2.0))
for i = 1 to 9
	bodies[i].angle = WrapAngle(bodies[i].angle - (elapsed# * bodies[i].speed))
	bodies[i].posX = (centerX - bodies[i].size / 2.0) + sin(bodies[i].angle) * bodies[i].orbitalDistance
	bodies[i].posY = (centerY - bodies[i].size / 2.0) + cos(bodies[i].angle) * bodies[i].orbitalDistance
	SetSpritePosition(bodies[i].imgNum, bodies[i].posX, bodies[i].posY)
	SetTextPosition(bodies[i].imgNum, bodies[i].posX + bodies[i].size, bodies[i].posY)
next i
mark# = timer()
sync()
loop

function makeBodyImg(tBody as bodyData)
	tImg = nextImg
	inc nextImg
	swap()
	drawBox(0, 0, tBody.size, tBody.size, tBody.primaryColor, tBody.primaryColor, tBody.primaryColor, tBody.primaryColor, 1)
	render()
	getImage(tImg, 0, 0, tBody.size, tBody.size)
	createSprite(tImg, tImg)
	ClearScreen()
	CreateText(tImg, tBody.label)
	SetTextSize(tImg, 20)
endfunction tImg

function applyScale(tKM as float)
	tSize# = (tKM * 1600) / 60000000
	if tSize# < 4.0 then tSize# = 4.0
endfunction tSize#

rem ----------------------------------------------------------------------------------
rem Stab in the Dark's https://forum.thegamecreators.com/thread/216506
function WrapAngle( angle as float) 
    local iChunkOut as integer
    local breakout as integer
    iChunkOut = angle
    iChunkOut = iChunkOut - mod( iChunkOut, 360 )
    angle = angle - iChunkOut
    breakout = 10000
    while angle < 0.0 or angle >= 360.0 
        if angle < 0.0 then angle = angle + 360.0
        if angle >= 360.0 then angle = angle - 360.0
        dec breakout  
        if  breakout = 0  then exit
    endwhile
    if  breakout = 0  then angle = 0.0
endfunction angle

It's about 200 lines (including blanks and comments)

The differences between min and max size and distance gets too massive to easily display on screen all at once. I got a little creative in these scales but hopefully kept the essence of feeling for diameter, orbital distance, and orbital speed. The outer bodies only show for a portion of the orbit due to the non-square screen space, but they will come into view at times.

Edit*

Quote: "
I would reiterate my suggestion that this thread is the primary one for setting and discussing, but a separate thread is created for each challenge to post the entries, one post per entrant.
"

That's fine, and the post can still be edited/updated up until the deadline

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 2nd Nov 2016 05:59 Edited at: 2nd Nov 2016 06:09

Link

@damothegreat

I like the info display at the bottom and the tilt control is a nice touch, but you are reporting the same value for radius and area.

I'm not sure that simply embedding images as giant arrays of pre-processed data is entirely in the spirit of 'code generated, no external' media.

You've got appropriate orbital speeds, but the orbital distances are just evenly stepped out and not to scale. Some of the planetary size scales seem off as well.

Also, the orbits should run counter-clockwise

the program is generally impressive for the quick turn around time.

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Scraggle

Moderator

20

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 2nd Nov 2016 07:02

Link

Quote: "Also, the orbits should run counter-clockwise "

Nope.
That entirely depends on where you are viewing the solar system from.

AGK V2 user - Tier 1 (mostly)

Back to top

Profile PM Email

damothegreat

User Banned

Posted: 2nd Nov 2016 09:28 Edited at: 19th Jan 2017 19:21

Link

...

Back to top

Profile

Sorry your browser is not supported!

AppGameKit Classic Chat / AGK code challenge

Attachments

Attachments

Attachments