Alles jute!!!
[Blockierte Grafik: http://2.bp.blogspot.com/_neJsgFjUfe4/TF8slKqIS4I/AAAAAAAAApw/aitw96dCkUo/s1600/020610_geburtstag.jpg]
Alles jute!!!
[Blockierte Grafik: http://2.bp.blogspot.com/_neJsgFjUfe4/TF8slKqIS4I/AAAAAAAAApw/aitw96dCkUo/s1600/020610_geburtstag.jpg]
Ich glaube Hotlinks sind da nicht so gern gesehen, Make ![]()
Herzlich wilkommen ![]()
[Blockierte Grafik: http://s7.directupload.net/images/120527/ng82j9jb.jpg]
Alles gute!
Nachträglich auch ProGamer!
Funktioniert sehr gut ![]()
Es reicht nebenbei auch ein IF mit ElseIf.
MCD Map: "Fabric" und "Die Verstecke". Andere nur im "Sabotage-" Spielmodus
Die Lösung steht doch klip und klar oben (Post #11).
Wenn man sich einen Wiki-Artikel durchliest, danach einen Film schaut und dann merkt, dass man den falschen Film gesehen hat. Ich habe doch tatsächlich "Absurdistan" (der Wiki Artikel zu diesem Film taugt nichts) statt Idiocracy gesehen, habe aber versucht die Story darauf anzuwenden. Das ist wirklich sehr interessant ^^. Ich werde versuchen auch mal an den richtigen Film zu kommen ![]()
[Blockierte Grafik: http://1.2.3.10/bmi/i.eatliver.com/2011/7244.jpg]
Es sollte auch so nicht flackern, ich weiß nicht aber bei mir läuft das wie Butter :D.
Ansonsten Danke ;). Der Spoiler wird bei mir nicht (nie) gesetzt egal in welchem Browser, und wie auch immer, ich finde das etwas nervig. Ich versuch das später vielleicht nochmal
.
// Ha! Es geht ![]()
MfG
Hier mal ein paar Beispiele für Spielereien mit dem Graphic Control ^^. Die Graphic-Befehle habe ich processing-ähnlich vereinfacht.
Ball mit Kollision, minx
[autoit]#include <processing.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Local $Width = 500, $Height = 300
Local $Radius = 20, $Speed = 5
Local $x = Random(0, $Width-$Radius*2, 1), $y = Random(0, $Height-$Radius*2, 1), $ax = $Speed, $ay = $Speed
$hGUI = GUICreate("processing: Ball with collision [minx]", $Width, $Height, -1, -1, -1, $GR_DBUFFER)
GUISetOnEvent(-3, "quit")
$hGraphics = size($Width,$Height)
color()
GUISetState()
While Sleep(10)
$hBuffer = buffer($hGraphics)
$hGraphics = size($Width, $Height)
$x += $ax
$y += $ay
If $x > $Width - $Radius*2 Or $x <= 0 Then $ax *= -1
If $y > $Height - $Radius*2 Or $y <= 0 Then $ay *= -1
pen($hGraphics, 0xFFFFFF, 0xFFFFFF)
ellipse($hGraphics, $x, $y, $Radius*2, $Radius*2)
clearbuffer($hBuffer)
WEnd
Mehr Bälle mit Kollision, minx
[autoit]#include <processing.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Local $Balls = 20
Local $Width = 500, $Height = 300
Local $Radius = 20, $Speed = 3
Local $ax = $Speed, $ay = $Speed
Local $aBalls[$Balls][4] ; [nBall][x, y, ax, ay]
For $i = 0 To $Balls - 1
$aBalls[$i][0] = Random(0, $Width-$Radius*2, 1)
$aBalls[$i][1] = Random(0, $Height-$Radius*2, 1)
$aBalls[$i][2] = $ax
$aBalls[$i][3] = $ay
Next
$hGUI = GUICreate("processing: n Balls with collision [minx]", $Width, $Height, -1, -1, -1, $GR_DBUFFER)
GUISetOnEvent(-3, "quit")
$hGraphics = size($Width,$Height)
color()
GUISetState()
While Sleep(10)
$hBuffer = buffer($hGraphics)
$hGraphics = size($Width, $Height)
pen($hGraphics, 0x000000, 0xFFFFFF)
For $i = 0 To $Balls -1
$aBalls[$i][0] += $aBalls[$i][2]
$aBalls[$i][1] += $aBalls[$i][3]
If $aBalls[$i][0] > $Width - $Radius*2 Or $aBalls[$i][0] <= 0 Then $aBalls[$i][2] *= -1
If $aBalls[$i][1] > $Height - $Radius*2 Or $aBalls[$i][1] <= 0 Then $aBalls[$i][3] *= -1
ellipse($hGraphics, $aBalls[$i][0], $aBalls[$i][1], $Radius*2, $Radius*2)
Next
clearbuffer($hBuffer)
WEnd
Offene und automatisch geschlossene Linien / Polygone, minx
[autoit]#include <processing.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Local $Width = 500, $Height = 300, $Radius = 100
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("processing: Open and closed lines [minx]", $Width, $Height, -1, -1, -1, $GR_DBUFFER)
GUISetOnEvent(-3, "quit")
$hGraphics = size($Width,$Height)
color()
GUISetState()
While Sleep(10)
$hBuffer = buffer($hGraphics)
$hGraphics = size($Width, $Height)
pensize($hGraphics, 2)
pen($hGraphics, 0xFFFFFF, $GR_TRANS) ;You MUST specify $GR_TRANS as filling color, or the drawing WILL be closed
move($hGraphics, 5, 5)
linestep($hGraphics, 30, 30)
linestep($hGraphics, 100, 30)
linestep($hGraphics, 110, 40)
linestep($hGraphics, 100, 50)
linestep($hGraphics, 30, 50)
linestep($hGraphics, 5, 75)
linestep($hGraphics, 5, 5)
pen($hGraphics, 0x0000FF, 0xF0F0F0); Because we specified a filling color, the drawing closes itself (endpoint = startpoint)
move($hGraphics, 5, 105)
linestep($hGraphics, 30, 130)
linestep($hGraphics, 100, 130)
linestep($hGraphics, 110, 140)
linestep($hGraphics, 100, 150)
linestep($hGraphics, 30, 150)
linestep($hGraphics, 5, 175)
clearbuffer($hBuffer)
WEnd
Bezier Tropfen, minx
[autoit]#include <processing.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Local $Width = 500, $Height = 300
Local $Left = 50, $Top = 50, $Field = 20
$hGUI = GUICreate("processing: Bezier [minx]", $Width, $Height, -1, -1, -1, $GR_DBUFFER)
GUISetOnEvent(-3, "quit")
$hGraphics = size($Width,$Height)
color()
GUISetState()
While Sleep(10)
$hBuffer = buffer($hGraphics)
$hGraphics = size($Width, $Height)
pen($hGraphics, 0x000000, 0xFF00FF)
bezier($hGraphics, $Width/2, 180, ($Width/2)-150, 0, ($Width/2)+150, 0)
clearbuffer($hBuffer)
WEnd
Rechteck Display, minx
[autoit]#include <processing.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Local $Width = 170, $Height = 200, $Radius = 100
Dim $aBlocks[6][16] = [ [1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0], _
[0,0,0,0,1,0,0,0,1,0,0,0,1,1,0,0], _
[0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,0], _
[0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0], _
[0,0,0,0,0,0,0,0,1,1,0,0,0,1,1,0], _
[0,0,0,0,0,0,0,0,1,1,1,0,0,1,0,0] _
]
;
Local $rB = Random(0, 5, 1)
$hGUI = GUICreate("processing: Display Tetris blocks [minx]", $Width, $Height, -1, -1, -1, $GR_DBUFFER)
GUISetOnEvent(-3, "quit")
GUICtrlCreateButton("Random", 5, 170, 160, 25)
GUICtrlSetOnEvent(-1, "rand")
$hGraphics = size($Width,$Height)
color()
GUISetState()
While Sleep(10)
$hBuffer = buffer($hGraphics)
$hGraphics = size($Width, $Height)
$iC = -1
For $y = 5 To (5+3*40) Step 40
For $x = 5 To (5+3*40) Step 40
$iC += 1
If $aBlocks[$rB][$iC] = 0 Then
pen($hGraphics, 0x808080, 0x8080F0)
rect($hGraphics, $x, $y, 40, 40)
ElseIf $aBlocks[$rB][$iC] = 1 Then
pen($hGraphics, 0x808080, 0xFFFFFF)
rect($hGraphics, $x, $y, 40, 40)
EndIf
Next
Next
clearbuffer($hBuffer)
WEnd
Func rand()
$_i = $rB
do
$i = Random(0, 5, 1)
Until $i <> $_i
Global $rB = $i
EndFunc
Pacman Animation, minx
[autoit]#include <processing.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Local $Width = 500, $Height = 300, $Radius = 100
Local $Mouth = 20, $rSweep = 360 - $Mouth*2, $rStart = (180-$Mouth)*-1
Local $iAdd = 1, $x = $Width + $Radius
$hGUI = GUICreate("processing: Pacman animation [minx]", $Width, $Height, -1, -1, -1, $GR_DBUFFER)
GUISetOnEvent(-3, "quit")
$hGraphics = size($Width,$Height)
color()
GUISetState()
While Sleep(10)
$hBuffer = buffer($hGraphics)
$hGraphics = size($Width, $Height)
$x -= 2
$Mouth += $iAdd
If $Mouth >= 40 Then $iAdd = -1
If $Mouth <= 1 Then $iAdd = 1
If $x + $Radius < 0 Then $x = $Width + $Radius
$rSweep = 360 - $Mouth*2
$rStart = (180-$Mouth)*-1
pensize($hGraphics, 5)
pen($hGraphics, 0x000000, 0xFFFF00)
pie($hGraphics, $x, $Height/2, $Radius, $rStart, $rSweep)
clearbuffer($hBuffer)
WEnd
Pacman Potentiometer
[autoit]#include <processing.au3>
#include <Misc.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Local $Width = 500, $Height = 300, $Radius = 100
Local $Mouth = 10, $rSweep = 360 - $Mouth*2, $rStart = (180-$Mouth)*-1
Local $iAdd = 1, $x = $Width + $Radius
Local $Titel = "processing: Pacman Potentiometer [minx]"
Local $hGUI = GUICreate($Titel, $Width, $Height, -1, -1, -1, $GR_DBUFFER)
GUISetOnEvent(-3, "quit")
$hGraphics = size($Width,$Height)
color()
GUISetState()
Local $aWin = WinGetPos($Titel), $Left = $aWin[0], $Top = $aWin[1]
[/autoit] [autoit][/autoit] [autoit]While Sleep(10)
If IsPointInCircle($Width/2, $Height/2, $Radius, (MouseGetPos(0)-$Left), (MouseGetPos(1)-$Top-30)) And _IsPressed("01") Then
$Mouth = ((($Width/2+$Radius)-(MouseGetPos(0)-$Left))/($Width/2+$Radius)) * 320
$rSweep = 360 - $Mouth*2
$rStart = (180-$Mouth)*-1
EndIf
ToolTip(Int((($Mouth/360)*2)*100))
$hBuffer = buffer($hGraphics)
$hGraphics = size($Width, $Height)
pensize($hGraphics, 5)
pen($hGraphics, 0x000000, 0xFFFF00)
pie($hGraphics, $Width/2, $Height/2, $Radius, $rStart, $rSweep)
clearbuffer($hBuffer)
WEnd
Func IsPointInCircle(Const $Xm, Const $Ym, Const $R, Const $Xp, Const $Yp)
Return ($Xp - $Xm) ^ 2 + ($Yp - $Ym) ^ 2 <= $R ^ 2
EndFunc ;==>IsPointInCircle
Cloth Simulation, UEZ
[autoit]#include <processing.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]HotKeySet("{SPACE}", "Gravity")
[/autoit] [autoit][/autoit] [autoit]Local Const $iX = Int(@DesktopWidth * 0.66), $iY = Int($iX * 10 / 16)
Local Const $W2 = $iX / 2, $H2 = $iY / 2
$hGUI = GUICreate("processing: Cloth Simulation [UEZ] (Space to take away gravity)", $iX, $iY, -1, -1, -1, $GR_DBUFFER)
GUISetOnEvent(-3, "quit")
$hGraphics = size($iX, $iY)
color()
GUISetState()
Local Const $f = 10
Local Const $ff = $f ^ 2
Local $k[$f][$f][5];f,f,px,py,m,k,j
Local $l[$f ^ 2 + ($f -1) ^ 2][4]
Local $q = 0
Local $r = 0.00125
Local $o = 1
Local $y = 0.05
Local $z = 0
Local Const $u = 0.08
Local Const $gg = $iX * 1.20
Local Const $jj = $iY * 0.95
Local $x, $h, $i
For $h = 0 To $f - 1
$x = 0.05
For $i = 0 To $f - 1
$k[$h][$i][0] = $x ;px
$k[$h][$i][1] = $y ;py
$k[$h][$i][2] = 1 ;m
$k[$h][$i][3] = $x ;k
$k[$h][$i][4] = $y ;j
If $h > 0 Then
$l[$z][0] = $h - 1
$l[$z][1] = $i
$l[$z][2] = $h
$l[$z][3] = $i
$z += 1
EndIf
If $i > 0 Then
$l[$z][0] = $h
$l[$z][1] = $i - 1
$l[$z][2] = $h
$l[$z][3] = $i
$z += 1
EndIf
$x += $u
Next
$y += $u
Next
$k[0][0][2] = 0
$k[0][$f - 1][2] = 0
While Sleep(10)
Simulate()
WEnd
Func Simulate()
$hBuffer = buffer($hGraphics)
$hGraphics = size($iX, $iY)
pen($hGraphics, 0xFFFFFF)
Local $nx, $ny, $a, $s, $t, $dx, $dy, $de, $di
Local $x1, $y1, $x2, $y2, $spm, $tpm, $spx, $spy, $tpx, $tpy
Local $pm, $px, $py, $pk, $pj, $_hGraphics
For $h = 0 To $f - 1
For $i = 0 To $f -1
$pm = $k[$h][$i][2]
If $pm <> 0 Then
$px = $k[$h][$i][0]
$py = $k[$h][$i][1]
$pk = $k[$h][$i][3]
$pj = $k[$h][$i][4]
$nx = $px * 2 - $pk
$ny = $py * 2 - $pj + $r
$k[$h][$i][3] = $px
$k[$h][$i][4] = $py
$k[$h][$i][0] = $nx
$k[$h][$i][1] = $ny
EndIf
Next
Next
For $h = 0 To 1
For $i = 0 To UBound($l) - 1
$tpm = $k[$l[$i][2]][$l[$i][3]][2]
$tpx = $k[$l[$i][2]][$l[$i][3]][0]
$tpy = $k[$l[$i][2]][$l[$i][3]][1]
$spm = $k[$l[$i][0]][$l[$i][1]][2]
$spx = $k[$l[$i][0]][$l[$i][1]][0]
$spy = $k[$l[$i][0]][$l[$i][1]][1]
$dx = $tpx - $spx
$dy = $tpy - $spy
$de = $dx * $dx + $dy * $dy
$di = ($de - 0.0064) / ((0.0064 + $de) * ($spm + $tpm))
If $spm <> 0 Then
$k[$l[$i][0]][$l[$i][1]][0] += $dx * $di
$k[$l[$i][0]][$l[$i][1]][1] += $dy * $di
EndIf
If $tpm <> 0 Then
$k[$l[$i][2]][$l[$i][3]][0] -= $dx * $di
$k[$l[$i][2]][$l[$i][3]][1] -= $dy * $di
EndIf
Next
Next
For $i = 0 To UBound($l) - 1
$spx = $k[$l[$i][0]][$l[$i][1]][0]
$spy = $k[$l[$i][0]][$l[$i][1]][1]
$tpx = $k[$l[$i][2]][$l[$i][3]][0]
$tpy = $k[$l[$i][2]][$l[$i][3]][1]
$x1 = $spx * $gg
$y1 = $spy * $jj
$x2 = $tpx * $gg
$y2 = $tpy * $jj
move($hGraphics, $x1, $y1)
linestep($hGraphics, $x2, $y2)
Next
clearbuffer($hBuffer)
EndFunc
Func Gravity()
If $r == 0 Then
$r = 0.00125
$o = 0
Else
$r = 0
$o = 1
EndIf
EndFunc
Have Fun!
Ich sage mal, was du auch häufiger von mir hören wirst: "moin" ![]()
... und willkommen ![]()
Auch wenn du denkst es wäre erlaubt wird dir hier keiner Tipps zum Dokompilieren geben ;). Da musst du das wertvolle Skript wohl nochmal schreiben, oder so mit Verknüpfungen experimentieren dass es klappt.
Wenn es einen richtigen Compiler gibt, dann wäre das ne andere Sache, aber so hängt dein Skript ja nur an der lizensierten AutoIt3.exe.
Vote for
, das führt zu nichts.
Gefühle sind aber die Grundvoraussetzung für alle Entscheidungen, auch das von dir benannte Sinn-Finden.
Nach der 3. Schluss mit der Schule, bei manchen hat man so das Gefühl ![]()
Aber mal im Ernst, das reicht nicht ansatzweise, um die wichtigsten Sachen zu [i]lernen ![]()
Tehe. Also ich kann gar nicht mehr alle Beiträge überblicken ![]()
Ich geh mal auf die letzten ein: Wenn Firmen KI´s anstatt Menschen "einstellen" würden, würde es glaube ich Firmen oder Arbeitsplätze gar nicht mehr in dieser Art geben. Wir wissen ja nicht wie die Zukunft aussieht, aber immerhin können wir sie ein Wenig mitgestalten. Dazu diente eigentlich dieser Thread, Ideen zu sammeln, wie wir eine gute bis hervorragende, und mir aus auch kontrollierbare (:D) KI basteln können, oder wie funktioniert sie, wie sieht sie aus, wo ist sie, und was bleibt noch für uns?
MfG
Da ist man mal zwei Tage nicht da...
So kann man Zitate zweckentfremdem. Es ging mir nicht um die Unangebrachtehit der Witze oder sonstwas, was geschrieben wird, es ging mir bei dem Gedanken um das BILD, und verdammt nochmal nichts anderes, was ich von jemandem im Kopf hab. Ob ich durch Zufall weiß wie der andere aussieht, dann wollte ich das auch nicht wissen, aber das gehört in den Bilderthread.
Ich finde es ja unmöglich sich so darüber aufzuregen, als ob das ein ernsthaftes Problem wäre. Und wer sich in letzer Zeit auch nur ein WENIG um rechtliches gekümmert hat, wird bemerkt haben, dass es einen neuen Jugend Medienstaatsvertrag gibt, welcher eine Initiative von der FSK (Freiwillige...
) ist. Somit sind schon mehrere Seiten einfach gesperrt wurden, und das wird auch so weitergehen, viele Websiten sind jetzt verboten in Deutschland, und höchstens von 22-6 Uhr verfügbar ist. Das ist, entschuldigung, der letzte Dreck.
Das muss nicht hier Einzug halten, es herrscht hier immernoch eine freundliche Situation, wenn die Witze auch noch so schweinisch sind, sie sind nach den nächsten 10 Zeilen wieder vergessen.
Das GEGENTEIL von Anstand sind für mich die Script Kiddies (auch ein schönes deutsches Wort, dass schon so mancher benutzt hat, der sich über die Ver-Englischung aufregt), aber das ist kein Thema obwohl hier die größten Moralprediger sich auch gern diesem Schwachsinn hingeben.
//Nochwas, das sein muss:
Genau so wie du (ich meine autoBert) sind die meisten Eltern, die es NICHT schaffen Ihre Kinder irgendwie richtig zu erziehen, wer irgendeiner Aktivität so radikal gegenübertritt, der erfährt IMMER Protest. Tut mir leid, aber ich finde sowas unmöglich, und ich habe in meinem auch kurzen Leben schon genug solche Kinder, solche Eltern und das Schlimmste: solche Politiker. Das ist keine Übervorsichtigkeit, das ist keine Vernunft, das ist paranoide Überreaktion (damit meine ich jetzt wieder die Politiker)
Zitatwarum wird es von diesen toleriert, dass ein Jugendlicher nach 22 Uhr noch im Inet unterwegs ist
... und ich kann nur meinen Kopf schütteln. ![]()
minx
Wie gesagt, schau dir mal die WAV - Datei an, die ist wirklich einfach aufgebaut. Und ändere mal deine Beschreibung im Startpost, sonst denkt ja jeder an AutoIt, das Beep vom Arduino ist ja was anderes ![]()
Wenn du schon sowas verrücktes vorhast, dann nimm die Makesound von Sprenger statt Beep (das läuft heutzutage nur noch auf 50% der PC's und Laptops) ![]()
Ansonsten würde ich mir mal ein Format vornehmen, das noch zu verstehen ist, wie z.B. WAV, denn es ist nicht ohne weiteres möglich jeden Ton auszulesen, wie bei einer WAV etc.
Nein nein nein. Ich kann mich nicht mehr ausdrücken um diese Zeit :D.
Sprachsteuerung ist nur eine Form der Texteingabe, EBEN wie bei Windows ;). Am Ende wird der Text verarbeitet. Es geht mir um die Verarbeitung und allgemein um die Arbeitsweise einer solchen perfekten KI.
Zitat von chesstigerDas Innovativste, was mir so spontan einfällt, ist ein RegEx-/StringInStr-Filter, der nach bestimmten Wörtern/Wortkombinationen sucht und mit einer Datenbank abgleicht, und sich aus ebenjener die dazugehörigen Antworten holt...
Tja, so muss es schließlich ablaufen, um die Eingabe auf das Wesentliche zu reduzieren. Aber was ist das Wesentliche, wie kann es die KI wissen, OHNE dass sich jemand die Finger an einer Datenbank wund schreibt. ![]()
James, ich kann dir nicht ganz folgen? Ich denke an eine "normale", "menschliche" Kommunikation. Oder wie meinst du das mit Inhalt?
@chess Letztendlich ist Sprachsteuerung ja auch nur eine Form der Texteingabe, siehe die Win7 Sprachsteuerung, dort kannst du Simultan tippen und Sprechen.