hi leute mein erster bot is fertig und es ist kein relogin bot sondern ein startbot der für euch metin startet und euch einloggt wie gesagt es is mein erster bot also über verbesserungsvorschläge würd ich mich freuen.
Warum sollte ich diesen startbot benutzen ???
1.er startet halt metin schneller und leuggt euch schnell ein
2. er hat eine saves funktion damit ihr nicht immer eure daten neu eingeben müsst
3.er funktioniert auf 2 auflösungen nähmlich 800x600 fenstermodus und 1024x768 fenstermodus
Wie bedine ich diesen Bot ???
als aller erstes muss windows in der auflösung 1280 x 1024 pixel & 32 bit sein
ihr müsst da hin gehen wo ihr metin gespeichert habt also den order. dan macht ihr eine verknüpfung vom order auf den dektop. Jetzt kopiert ihr meinen Bot in die verknüpfung vom order. Jetzt könnt ihr wenn ihr wollt noch eine dektopverknüpfung von meine bot machen damit ihr in besser starten könnt.
wenn ihr in runtergeladen habt und entpackt habt startet ihr ihn.
Nun seht ihr 5 spalten in die erste kommt eure id in die 2. euer password in die 3. die nummer eures servers (z.b. evelias server 14) in die 4. kommt die nummer von eurem chanel und in die 5. spalte kommt entweder eine 1 für die auflösung 800x600 fenstermodus oder eine 2 für die auflösung 1024x768 fenstermodus.
Nach dem ersten eingeben solltet ihr erstmal den speichern knopf drücken wenn ihr das gemacht habt drückt ihr auf starten und der Bot erledigt alles für euch.
also bei mir funktioniert der bot wenn er bei euch nicht funktioniert, er nicht die richtigen pixel klickt oder anderes schreibts hier rein und ich kümmer mich dann drumm
der bot is auf xp getestet ich weis nicht ob es bei vista und windows7 auch geht
die daten werden nicht versendet etz.
virusscan :
is pur mit autoit gemacht desshalb zeigt virus total was an
ach ja es geht nur wenn metin wenn es gestartet wurde auch oben rechts in der ecke steht Wichtig: der bot wurde mit dem befehlen MouseClick und MouseMove mit koordinaten gemacht das heißt er funktioniert nicht bei allen wer sich ein bisschen mit autoit auskennt kann aus dem code die koords auf seinen pc ändern.
code:
While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 IniWrite(@ScriptDir & "\Speicher.ini", "Input", "Wert", GUICtrlRead($id)) IniWrite(@ScriptDir & "\Speicher.ini", "Input2", "Wert", GUICtrlRead($password)) IniWrite(@ScriptDir & "\Speicher.ini", "Input3", "Wert", GUICtrlRead($server)) IniWrite(@ScriptDir & "\Speicher.ini", "Input4", "Wert", GUICtrlRead($chanel)) IniWrite(@ScriptDir & "\Speicher.ini", "Input5", "Wert", GUICtrlRead($aufl)) Case $Button2 If GUICtrlRead($aufl) = 1 then Run ("C:\Programme\Metin2_Germany\metin2.exe") sleep (3500) MouseClick ("left",837,363) WinWaitActive ("METIN2") If GUICtrlRead($server) = 5 Then MouseClick("left",262,300) EndIf If GUICtrlRead($server) = 1 Then MouseClick("left",260,226) Endif If GUICtrlRead($server) = 2 Then MouseClick("left",262,250) Endif If GUICtrlRead($server) = 4 Then MouseClick("left",269,283) Endif If GUICtrlRead($server) = 6 Then MouseClick("left",278,314) Endif If GUICtrlRead($server) = 7 Then MouseClick("left",255,331) Endif If GUICtrlRead($server) = 8 Then MouseClick("left",271,349) Endif If GUICtrlRead($server) = 9 Then MouseClick("left",263,366) Endif If GUICtrlRead($server) = 10 Then MouseClick("left",278,314) Endif If GUICtrlRead($server) = 11 Then MouseClick("left",270,401) Endif If GUICtrlRead($server) = 12 Then MouseClick("left",268,412) Endif If GUICtrlRead($server) = 13 Then MouseClick("left",263,434) Endif If GUICtrlRead($server) = 14 Then MouseClick("left",271,447) Endif If GUICtrlRead($server) = 15 Then MouseClick("left",277,464) Endif If GUICtrlRead($server) = 16 Then MouseClick("left",270,483) Endif If GUICtrlRead($server) = 17 Then MouseClick("left",264,498) Endif If GUICtrlRead($server) = 18 Then MouseClick("left",260,517) Endif If GUICtrlRead($server) = 19 Then MouseClick("left",256,531) Endif If GUICtrlRead($server) = 20 Then MouseClick("left",251,548) Endif If GUICtrlRead($server) = 21 Then MouseClick("left",256,566) Endif If GUICtrlRead($server) = 22 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit Endif If GUICtrlRead($server) = 23 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 24 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 25 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 26 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($chanel) = 1 Then MouseClick("left",523,230) Endif If GUICtrlRead($chanel) = 2 Then MouseClick("left",519,248) Endif If GUICtrlRead($chanel) = 3 Then MouseClick("left",521,265) Endif If GUICtrlRead($chanel) = 4 Then MouseClick("left",517,278) Endif If GUICtrlRead($chanel) = 5 Then MouseClick("left",526,296) Endif If GUICtrlRead($chanel) = 6 Then MouseClick("left",506,315) Endif MouseClick ("left",519,538) Send (GUICtrlRead($id)) Send ("{Enter}") Send (GUICtrlRead($password)) Send ("{Enter}") sleep (5500) MouseClick ("left",141,513) Exit EndIf
If GUICtrlRead($aufl) = 2 then Run ("C:\Programme\Metin2_Germany\metin2.exe") sleep (3500) MouseClick ("left",837,363) WinWaitActive ("METIN2") If GUICtrlRead($server) = 5 Then MouseClick("left",378,464) EndIf If GUICtrlRead($server) = 1 Then MouseClick("left",370,394) Endif If GUICtrlRead($server) = 2 Then MouseClick("left",370,410) Endif If GUICtrlRead($server) = 3 Then MouseClick("left",370,429) Endif If GUICtrlRead($server) = 4 Then MouseClick("left",370,449) Endif If GUICtrlRead($server) = 6 Then MouseClick("left",370,478) Endif If GUICtrlRead($server) = 7 Then MouseClick("left",370,500) Endif If GUICtrlRead($server) = 8 Then MouseClick("left",370,516) Endif If GUICtrlRead($server) = 9 Then MouseClick("left",370,534) Endif If GUICtrlRead($server) = 10 Then MouseClick("left",370,550) Endif If GUICtrlRead($server) = 11 Then MouseClick("left",370,567) Endif If GUICtrlRead($server) = 12 Then MouseClick("left",370,582) Endif If GUICtrlRead($server) = 13 Then MouseClick("left",370,600) Endif If GUICtrlRead($server) = 14 Then MouseClick("left",370,617) Endif If GUICtrlRead($server) = 15 Then MouseClick("left",370,633) Endif If GUICtrlRead($server) = 16 Then MouseClick("left",370,665) Endif If GUICtrlRead($server) = 17 Then MouseClick("left",260,517) Endif If GUICtrlRead($server) = 18 Then MouseClick("left",370,685) Endif If GUICtrlRead($server) = 19 Then MouseClick("left",370,700) Endif If GUICtrlRead($server) = 20 Then MouseClick("left",370,716) Endif If GUICtrlRead($server) = 21 Then MouseClick ("left",370,737) EndIf If GUICtrlRead($server) = 22 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 23 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 24 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 25 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($chanel) = 1 Then MouseClick("left",623,397) Endif If GUICtrlRead($chanel) = 2 Then MouseClick("left",623,412) Endif If GUICtrlRead($chanel) = 3 Then MouseClick("left",623,429) Endif If GUICtrlRead($chanel) = 4 Then MouseClick("left",623,448) Endif If GUICtrlRead($chanel) = 5 Then MouseClick("left",623,466) Endif If GUICtrlRead($chanel) = 6 Then MouseClick("left",623,480) Endif MouseClick ("left",635,709) Send (GUICtrlRead($id)) Send ("{Enter}") Send (GUICtrlRead($password)) Send ("{Enter}") sleep (5500) MouseClick ("left",187,572) Exit EndIf Case $Button3 MsgBox (0,"HELP","für die auflösung 800x600 fenstermodus bitte beim feld auflösung die 1 eingeben") MsgBox (0,"HELP","für die auflösung 1024x768 fenstermodus bitte beim feld auflösung die 2 eingeben") EndSwitch WEnd
------------------------------------------------------------------------------------------------ Antivir: Nothing found ArcaVir: Nothing found Avast: Nothing found AVG: Nothing found BitDefender: Nothing found VirusBlokAda32: Nothing found VirusBuster: Nothing found
Scanned by
------------------------------------------------------------------------------------------------
Also super Idee, muss man sagen aber funzt ned bei mir
Alles richtig eingegeben und dann auf start gedrückt, aber irgendwie schafft der des nichtmal das richtig zu treffen^^
hast du metin unten links wenn ja is das passiert was ich gedacht hab -,-
ich hab das per mouseclick gemacht weil ich das mit couler befehlen nicht gerafft hab
Im Gegensatz zu Dir lege ich aber die Source offen.
Anders geht es imho net - in einer geschlossenen Source könnten via Malware die Einlogdaten schnell mal irgendwo hin gesendet werden.
gruß
deswegen hab ich immer bedenken bei programmen von microsoft .
@botersteller:
sei jetz bitte nicht beleidigt, aber da hätte man viel mehr machen müssen.
erst mal eine pfadangabe zu dem metin2 ordner, dass er auch metin2.bin
ausführt. dann ein paar pixelchecksum überprüfungen, damit sicher ist,
dass der bot im richtigen fenster ist und die anmeldung funktioniert hat.
dann hätte man noch ne charakterwahl hinzufügen können...
... schade, dass er bei mir nicht funktioniert
das problem: nicht bei jedem hängt die verknüpfung von metin2 da unten.
ich habe z. b. gar keine, weil ich meinen eigenen bot benutze ^^.
mit run("pfadzumetin2" &"\metin2.bin") könnte es
klappen.
ok ich muss wohl doch noch das mit den pixelgetcouler befehlen lernen
nur ich hab es auch mit einem run befehl versucht es klappt aber nicht dann steht da bei mir patchlist serververbindungsfehler oder so
ich hab download und code erstmal wieder rausgenommen wenn ich fertig bin setz ich wieder rein
hast du metin unten links wenn ja is das passiert was ich gedacht hab -,-
ich hab das per mouseclick gemacht weil ich das mit couler befehlen nicht gerafft hab
Glaube ic hauch ..^^
Quote:
Originally Posted by *Bart*
ok ich muss wohl doch noch das mit den pixelgetcouler befehlen lernen
nur ich hab es auch mit einem run befehl versucht es klappt aber nicht dann steht da bei mir patchlist serververbindungsfehler oder so
ich hab download und code erstmal wieder rausgenommen wenn ich fertig bin setz ich wieder rein
deswegen hab ich immer bedenken bei programmen von microsoft .
@botersteller:
sei jetz bitte nicht beleidigt, aber da hätte man viel mehr machen müssen.
erst mal eine pfadangabe zu dem metin2 ordner, dass er auch metin2.bin
ausführt. dann ein paar pixelchecksum überprüfungen, damit sicher ist,
dass der bot im richtigen fenster ist und die anmeldung funktioniert hat.
dann hätte man noch ne charakterwahl hinzufügen können...
... schade, dass er bei mir nicht funktioniert
da sprichst du mir teilweise aus dem herzen.
Pfadangabe kann man umgehen, wenn man eine Kopie des Metin2 Ordners auf eine andere Partition oder anderes Verzeichnis erstellt, wo dann alle botrelevanten Daten hineinkopiert werden (sollte bei heutigen HDD-Größen nicht das Prob sein). Aus diesem Verzeichnis startet man dann den Bot, der ja auch dann auf die metin2.exe in diesem Ordner zugreift. Auf diesem Wege kann man auch gewisse Rechte umgehen, die beim Ausführen von Programmen in C:\(programmordner) enstehen (ausführen als Administrator, etc).
Pixel-Überprüfungen sind an sich ne gute Idee - aber alleine durch die verschiedenen Ansichthemes von Windows wird es schwierig sowas allgemeingültig zu halten (verschiedene Höhene der Fensternamen). Vielleicht hast du ja Lust Dich in meinem mal zu äußern. Problem ist da näher beschrieben.
THXX ok so startet er metin nur jetzt müsste ich jetzt ja wieder meoueClick befehle einsetzen oda halt das ganze mit pixel couler machen oda gibts da auch noch ne andere möglichkeit ?
$suche = Pixelsearch (***, yyy, ***, yyy, 0x00000) ;Sucht nach dem Pixel 0x00000 im Bereich ***, yyy, ***, yyy
If not @error then ;Wenn gefunden
Mousemove ($suche[0], $suche[1]) ;dann bewegt er die Maus zum Pixel
mouseclick ("left") ; und klickt
Endif
While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 IniWrite(@ScriptDir & "\Speicher.ini", "Input", "Wert", GUICtrlRead($id)) IniWrite(@ScriptDir & "\Speicher.ini", "Input2", "Wert", GUICtrlRead($password)) IniWrite(@ScriptDir & "\Speicher.ini", "Input3", "Wert", GUICtrlRead($server)) IniWrite(@ScriptDir & "\Speicher.ini", "Input4", "Wert", GUICtrlRead($chanel)) IniWrite(@ScriptDir & "\Speicher.ini", "Input5", "Wert", GUICtrlRead($aufl)) Case $Button2 If GUICtrlRead($aufl) = 1 then Run ("C:\Programme\Metin2_Germany\metin2.exe") $suche = Pixelsearch (11, 9, 1262, 966, 0x694636) ;Sucht nach dem Pixel 0x00000 im Bereich xxx, yyy, xxx, yyy If not @error then ;Wenn gefunden Mousemove ($suche[0], $suche[1]) ;dann bewegt er die Maus zum Pixel mouseclick ("left") ; und klickt Endif WinWaitActive ("METIN2") If GUICtrlRead($server) = 5 Then MouseClick("left",262,300) EndIf If GUICtrlRead($server) = 1 Then MouseClick("left",260,226) Endif If GUICtrlRead($server) = 2 Then MouseClick("left",262,250) Endif If GUICtrlRead($server) = 4 Then MouseClick("left",269,283) Endif If GUICtrlRead($server) = 6 Then MouseClick("left",278,314) Endif If GUICtrlRead($server) = 7 Then MouseClick("left",255,331) Endif If GUICtrlRead($server) = 8 Then MouseClick("left",271,349) Endif If GUICtrlRead($server) = 9 Then MouseClick("left",263,366) Endif If GUICtrlRead($server) = 10 Then MouseClick("left",278,314) Endif If GUICtrlRead($server) = 11 Then MouseClick("left",270,401) Endif If GUICtrlRead($server) = 12 Then MouseClick("left",268,412) Endif If GUICtrlRead($server) = 13 Then MouseClick("left",263,434) Endif If GUICtrlRead($server) = 14 Then MouseClick("left",271,447) Endif If GUICtrlRead($server) = 15 Then MouseClick("left",277,464) Endif If GUICtrlRead($server) = 16 Then MouseClick("left",270,483) Endif If GUICtrlRead($server) = 17 Then MouseClick("left",264,498) Endif If GUICtrlRead($server) = 18 Then MouseClick("left",260,517) Endif If GUICtrlRead($server) = 19 Then MouseClick("left",256,531) Endif If GUICtrlRead($server) = 20 Then MouseClick("left",251,548) Endif If GUICtrlRead($server) = 21 Then MouseClick("left",256,566) Endif If GUICtrlRead($server) = 22 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit Endif If GUICtrlRead($server) = 23 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 24 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 25 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 26 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($chanel) = 1 Then MouseClick("left",523,230) Endif If GUICtrlRead($chanel) = 2 Then MouseClick("left",519,248) Endif If GUICtrlRead($chanel) = 3 Then MouseClick("left",521,265) Endif If GUICtrlRead($chanel) = 4 Then MouseClick("left",517,278) Endif If GUICtrlRead($chanel) = 5 Then MouseClick("left",526,296) Endif If GUICtrlRead($chanel) = 6 Then MouseClick("left",506,315) Endif MouseClick ("left",519,538) Send (GUICtrlRead($id)) Send ("{Enter}") Send (GUICtrlRead($password)) Send ("{Enter}") sleep (5500) MouseClick ("left",141,513) Exit EndIf
If GUICtrlRead($aufl) = 2 then Run ("C:\Programme\Metin2_Germany\metin2.exe") $suche = Pixelsearch (11, 9, 1262, 966, 0x694636) ;Sucht nach dem Pixel 0x00000 im Bereich xxx, yyy, xxx, yyy If not @error then ;Wenn gefunden Mousemove ($suche[0], $suche[1]) ;dann bewegt er die Maus zum Pixel mouseclick ("left") ; und klickt Endif WinWaitActive ("METIN2") If GUICtrlRead($server) = 5 Then MouseClick("left",378,464) EndIf If GUICtrlRead($server) = 1 Then MouseClick("left",370,394) Endif If GUICtrlRead($server) = 2 Then MouseClick("left",370,410) Endif If GUICtrlRead($server) = 3 Then MouseClick("left",370,429) Endif If GUICtrlRead($server) = 4 Then MouseClick("left",370,449) Endif If GUICtrlRead($server) = 6 Then MouseClick("left",370,478) Endif If GUICtrlRead($server) = 7 Then MouseClick("left",370,500) Endif If GUICtrlRead($server) = 8 Then MouseClick("left",370,516) Endif If GUICtrlRead($server) = 9 Then MouseClick("left",370,534) Endif If GUICtrlRead($server) = 10 Then MouseClick("left",370,550) Endif If GUICtrlRead($server) = 11 Then MouseClick("left",370,567) Endif If GUICtrlRead($server) = 12 Then MouseClick("left",370,582) Endif If GUICtrlRead($server) = 13 Then MouseClick("left",370,600) Endif If GUICtrlRead($server) = 14 Then MouseClick("left",370,617) Endif If GUICtrlRead($server) = 15 Then MouseClick("left",370,633) Endif If GUICtrlRead($server) = 16 Then MouseClick("left",370,665) Endif If GUICtrlRead($server) = 17 Then MouseClick("left",260,517) Endif If GUICtrlRead($server) = 18 Then MouseClick("left",370,685) Endif If GUICtrlRead($server) = 19 Then MouseClick("left",370,700) Endif If GUICtrlRead($server) = 20 Then MouseClick("left",370,716) Endif If GUICtrlRead($server) = 21 Then MouseClick ("left",370,737) EndIf If GUICtrlRead($server) = 22 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 23 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 24 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 25 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($chanel) = 1 Then MouseClick("left",623,397) Endif If GUICtrlRead($chanel) = 2 Then MouseClick("left",623,412) Endif If GUICtrlRead($chanel) = 3 Then MouseClick("left",623,429) Endif If GUICtrlRead($chanel) = 4 Then MouseClick("left",623,448) Endif If GUICtrlRead($chanel) = 5 Then MouseClick("left",623,466) Endif If GUICtrlRead($chanel) = 6 Then MouseClick("left",623,480) Endif MouseClick ("left",635,709) Send (GUICtrlRead($id)) Send ("{Enter}") Send (GUICtrlRead($password)) Send ("{Enter}") sleep (5500) MouseClick ("left",187,572) Exit EndIf Case $Button3 MsgBox (0,"HELP","für die auflösung 800x600 fenstermodus bitte beim feld auflösung die 1 eingeben") MsgBox (0,"HELP","für die auflösung 1024x768 fenstermodus bitte beim feld auflösung die 2 eingeben") EndSwitch WEnd
wär nett wenn sich das jemadn anschaut und ne lösung findet
bekomme ich (verständlicherweise) einen Fehler der Skite Sytanx Prüfung.
Syntax vorgabe:
MouseMove ( x, y [, speed] )
Parameter
x Die x-Koordinate des Bildschirms, zu der die Maus bewegt werden soll.
y Die y-Koordinate des Bildschirms, zu der die Maus bewegt werden soll.
speed [optional] Die Bewegungsgeschwindigkeit, mit der die Maus bewegt werden soll (von 1 (schnellste) bis 100 (langsamste)). Eine Geschwindigkeit von 0 bewegt die Maus sofort. Standardwert ist 10.
Best auto buffer + auto multi resser + auto pot 01/13/2009 - SRO Hacks, Bots, Cheats & Exploits - 87 Replies Hi there
this is the best auto buffer - auto resser - auto pot so far!
i searched the forum but i didnt find it here so i want to share it!
screen shots!
1-
.
