Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Artificial intelligence (AI)


  • Please log in to reply
23 replies to this topic
gamax92
  • Members
  • 411 posts
  • Last active: Aug 06 2013 05:00 AM
  • Joined: 05 Dec 2010
Can I program a text mode GOL game in AHK? Would that count as AI?

Aero98
  • Members
  • 112 posts
  • Last active: Mar 29 2013 03:42 PM
  • Joined: 08 Jan 2009
Sure, why not ;)
(\__/) This is Bunny.
(='.'=) Copy and paste Bunny onto your signature.
(")_(") Help Bunny gain World Domination.

Eedis
  • Members
  • 1775 posts
  • Last active: Aug 14 2015 06:33 PM
  • Joined: 12 Jun 2009
I've been waiting for somebody to have the patience to write a MUD in AHK. :D
AutoHotkey state, the forum, Poly, and Drainx1. The short story.
I love my wife, my life, my atomic-match; for giving me the greatest gift a man could ask for, such a perfect and beautiful little girl.
9rjbjc.png

gamax92
  • Members
  • 411 posts
  • Last active: Aug 06 2013 05:00 AM
  • Joined: 05 Dec 2010
Seed .= "                                      `n"
Seed .= "                          #           `n"
Seed .= "                       ####    #      `n"
Seed .= "              #       ####     #      `n"
Seed .= "             # #      #  #         ## `n"
Seed .= "            #   ##    ####         ## `n"
Seed .= " ##         #   ##     ####           `n"
Seed .= " ##         #   ##        #           `n"
Seed .= "             # #                      `n"
Seed .= "              #                       `n"
Seed .= "                                      `n"
LoD := []
LoDNext := []
Loop, 50
{
	B_Index := A_Index
	Loop, 80
	{
		LoD[A_Index,B_Index] := 0
	}
}
Loop, Parse, Seed,`n,`r
{
	B_Index := A_Index
	GoLLine := A_LoopField
	Loop, % StrLen(GoLLine)
	{
		LoD[A_Index+10,B_Index+10] := (Asc(SubStr(GoLLine,A_Index,1)) - 32)/3
	}
}
Gui, Font, s5, Lucida Console
Gui, Add, Edit, vScreen -Wrap w680 h370
GoSub, DrawScreen
Gui, Show
SetTimer, UpdateLife, 250
Return

UpdateLife:
Loop, 50
{
	B_Index := A_Index
	Loop, 80
	{
		Points := 0
		Points += LoD[A_Index-1,B_Index-1]
		Points += LoD[A_Index,B_Index-1]
		Points += LoD[A_Index+1,B_Index-1]
		Points += LoD[A_Index-1,B_Index]
		Self := LoD[A_Index,B_Index]
		Points += LoD[A_Index+1,B_Index]
		Points += LoD[A_Index-1,B_Index+1]
		Points += LoD[A_Index,B_Index+1]
		Points += LoD[A_Index+1,B_Index+1]
		If (Self = 0 && Points = 3)
			LoDNext[A_Index,B_Index] := 1
		If (Self = 0 && Points != 3)
			LoDNext[A_Index,B_Index] := 0
		If (Self = 1 && Points < 2)
			LoDNext[A_Index,B_Index] := 0
		If (Self = 1 && (Points = 2 || Points = 3))
			LoDNext[A_Index,B_Index] := 1
		If (Self = 1 && Points > 3)
			LoDNext[A_Index,B_Index] := 0
	}
}
LoD := LoDNext
LoDNext := []
GoSub, DrawScreen
Return

DrawScreen:
Screen := ""
Loop, 50
{
	B_Index := A_Index
	Loop, 160
	{
		Screen .= Chr((LoD[A_Index,B_Index] * 3) + 32) . Chr((LoD[A_Index,B_Index] * 3) + 32)
	}
	Screen .= "`n"
}
GuiControl,,Screen,%Screen%
Return

GuiClose:
ExitApp

Game of Life! With an interesting seed.

@Eedis
I think tidbit was writing one.

Eedis
  • Members
  • 1775 posts
  • Last active: Aug 14 2015 06:33 PM
  • Joined: 12 Jun 2009
Really? Do you have a link?
AutoHotkey state, the forum, Poly, and Drainx1. The short story.
I love my wife, my life, my atomic-match; for giving me the greatest gift a man could ask for, such a perfect and beautiful little girl.
9rjbjc.png

gamax92
  • Members
  • 411 posts
  • Last active: Aug 06 2013 05:00 AM
  • Joined: 05 Dec 2010
Sorry, but you can come down to IRC and ask, hes still on atm.

Eedis
  • Members
  • 1775 posts
  • Last active: Aug 14 2015 06:33 PM
  • Joined: 12 Jun 2009
I'm at work now, so it eouldn't matter.
AutoHotkey state, the forum, Poly, and Drainx1. The short story.
I love my wife, my life, my atomic-match; for giving me the greatest gift a man could ask for, such a perfect and beautiful little girl.
9rjbjc.png

Aero98
  • Members
  • 112 posts
  • Last active: Mar 29 2013 03:42 PM
  • Joined: 08 Jan 2009
I wanted to thank all of you who have participated, I appreciate it. The whole point of this is just to have a little fun with it, challenge yourself and others, and to see what we in the ahk community can come up with.
(\__/) This is Bunny.
(='.'=) Copy and paste Bunny onto your signature.
(")_(") Help Bunny gain World Domination.

George88
  • Members
  • 9 posts
  • Last active: Jan 08 2016 02:46 AM
  • Joined: 13 Jul 2015

I have created a strategy of creating massive scripts, Also speech recognition, noob level but working, Generating programs from reading files, Basically I managed to create autohotkey scripts that can edit their own programming code. 

 

AI, project... Let's ****ing go!!     georgekurgansky@gmail.com     Put in subject : Artificial intelligence (AI) or you will be missed most likely.

 

If we don't do it someone will...   I am thinking purpose based AI, for example if you can get an AI to write a program... then the goal would be to reduce how much input is needed. That way it's not a pointless for the sake of it project. I experimented with a learning mechanism and so far so good, little limited as expected.

 

Then write the AI with and AI..   And it will grow exponentially, with low input and high output. I think this is key, if whatever you are doing is only adding work then you may not have approached it quite right.

 

I haven't got a server right now but I expect to be putting my website up before 2016.

Get in touch! I already wrote a tonne of autohotkey writing programs to utilise in this project.