Hello Monkey world!

Monkey Forums/Monkey Beginners/Hello Monkey world!

Holt	(Posted 2015) [#1]

Hello everybody! First post here :)

k.o.g.

(Posted 2015) [#2]

Welcome :D

Paul - Taiphoz

(Posted 2015) [#3]

welcome, were small in size but mighty in ...... erm willingness to help ? damn ruined it never mind.

Playniax

(Posted 2015) [#4]

Welcome!

MikeHart

(Posted 2015) [#5]

Yes, welcome from me too.

Shagwana

(Posted 2015) [#6]

Greetings

Holt	(Posted 2015) [#7]

Thank you all. Was all day wrapping my head around Monkey 1 and now I just read about monkey 2. Much to learn. Some impressive stuff here. I am not at the level of Playniax or Fantom yet :)

Amon	(Posted 2015) [#8]

Hello, welcome to the Jungle, we've got fun and games, We got everything you want, Honey, we know the names..........

Ok enough of that... :)

Greetings.

Some impressive stuff here. I am not at the level of Playniax or Fantom yet :)

You probably are but in your own individual way.

:)

ziggy

(Posted 2015) [#9]

Welcome!

Steve Ancell

(Posted 2015) [#10]

OO-OO-OO!, fresh bananas. Welcome our new little ape! :D

therevills

(Posted 2015) [#11]

Strict

Function Main:Int()
  Print "Hello Holt!"
  Return 0
End

Paul - Taiphoz

(Posted 2015) [#12]

Strict

Function Main:Int()
  PrintRetroWobblyScrollingText "Hello Holt!"
  Return 0
End

Fixed it for you Therevills.

therevills

(Posted 2015) [#13]

Fixed it for you Therevills.

Error : Identifier 'PrintRetroWobblyScrollingText' not found.

Strict

Import mojo

Function Main:Int()
	New MyApp()
	Return 0
End

Class MyApp Extends App
	Field wobblyScrollingText:WobblyScrollingText
	
	Field circleScroller:CircleScroller 
	
	Method OnCreate:Int()
		wobblyScrollingText = New WobblyScrollingText("Hello Holt!", DeviceWidth(), DeviceHeight() / 2)
		
		circleScroller = New CircleScroller()
		
		SetUpdateRate(60)
		Return 0
	End
	
	Method OnUpdate:Int()
		wobblyScrollingText.Update()
		circleScroller.Update()
		Return 0
	End
	
	Method OnRender:Int()
		Cls
		wobblyScrollingText.Print()
		circleScroller.Render()
		Return 0
	End
End

Class WobblyScrollingText
	Field text:String
	Field x:Float, y:Float, oy:Float
	Field fontSize:Int = 8
	Field speed:Float
		
	Method New(text:String, x:Float, y:Float, speed:Float = 3)
		Self.x = x
		Self.y = y
		Self.oy = y
		Self.text = text
		Self.speed = 3
	End
	
	Method Update:Void()
		x -= speed
		y = oy + Cos(x) * 50
		If x + text.Length() * fontSize < 0 Then x = DeviceWidth()
	End
	
	Method Print:Void()
		DrawText(text, x, y, 0, .5)
	End
End

Class Letter
	Field rad:Float, angl:Float, letter:Int, rados:Float
	Field myList:List<Letter>

	Method New(myChar:Int)
		self.rad = 170
		self.angl = -90
		self.letter = myChar
	End

	Method SetList:Void(aList:List<Letter>)
		myList = aList
	End

	Method Update:Void()
		angl += CircleScroller.scrollSpeed
		rados = Cos(angl * 3 + CircleScroller.rotangl) * 40
		If angl > 270
			myList.Remove(Self)
		End 
	End

	Method Render:Void()
		Local x:Float = Cos(angl) * (rad + rados)
		Local y:Float = Sin(angl) * (rad + rados)

		Local myAlpha:Float = 1
		If angl < -45
			myAlpha = (90.0+angl)/45.0
		Else If angl > 225
			myAlpha = (270.0-angl)/45.0
		End

		SetAlpha myAlpha
		DrawText (String.FromChar(letter), x + 320 , -y + 240)
	End
End

Class CircleScroller Extends List<Letter>
	Global scrollSpeed:Float = .6
	Global rotangl:Float = 0
	Global scrollytext:String = "Hello Monkey World!     "
	Global textPointer:Int = 0
	Global letterDelay:Int = 0

	Method New()
	End
	
	Method Update:Void()
		rotangl += scrollSpeed
		rotangl = rotangl Mod 360

		letterDelay += 1
		If letterDelay > 10
			Local myLetter:Letter =  New Letter( scrollytext[textPointer] )
			myLetter.SetList(Self)
			AddLast myLetter
			textPointer = (textPointer + 1) Mod scrollytext.Length()
			letterDelay = 0
		End

		For Local letter:Letter = Eachin Self
			letter.Update()
		Next
	End
	
	Method Render:Void()
		For Local letter:Letter = Eachin Self
			letter.Render()
		Next
	End
End

Fixed it for you Paul :)

(Converted the oldskool2.bmx CircleScroller text code to monkeyx)

Paul - Taiphoz

(Posted 2015) [#14]

HAHAHAHHAHAHAHAH.... Dude we need octet's monkey html5 compiler for this site so we can just hit run and have your cool code just run right there in your post.

ImmutableOctet(SKNG)

(Posted 2015) [#15]

@Holt: Welcome to the forums.

@Paul - Taiphoz: I actually had an idea for that. When I have the setup ironed out, I want it to just be callable from any point in a page. So, like a "jstool" target, then you just include the generated file and call it from a button or something similar. I also got an idea from your post, what if I get this up on GitHub Pages, and pass it arguments with the URL/query. Then I could have it parse through, and ignore basic HTML elements until it finds the forum-post number, and run the "codebox" from it. Just an idea. It's not really finished yet, I need to sandbox things properly, and as I said, make a new target. Technically it works with default TransCC and the default HTML5 target, just with a few fixes and function calls. So, it's really just a support layer under Mark's compiler. EDIT: I could also technically make it not include JS files on compile-time, but that's problematic.

Paul - Taiphoz

(Posted 2015) [#16]

Sounds good, there are all these html5/java/shader live coding sites all over the place where you have the text edit field on the left and the run window on the right where you can simply type compile and run , having that functionality here would be brilliant as long as it's secure, you could check iframes sandbox option not sure how restrictive it might make the compiler tho.

But yeah I can Imagine it on these forums and when ever you use a {code} tag to embed some code the html would add a run/compile button at the top of all code listings, if you clicked the run button you could make it pop out a new window to run the app in, or take over the frame the code is in and run it in there. so many options so many cool things you could do.

Keep up the good work mate.

Playniax

(Posted 2015) [#17]

@therevills: Nice one!

Holt	(Posted 2015) [#18]

Ha, I should check in here more often. Real life got in the way of coding. Thank you all.