Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 07:05

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[Autoit] Trainer Melodie

Discussion on [Autoit] Trainer Melodie within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: May 2010
Posts: 115
Received Thanks: 3
Question [Autoit] Trainer Melodie

So Leute,
ich habe es jetzt endlich hinbekommen ein Trainer zu coden.
Aber eine Frage habe ich noch. Es gibt ja Trainer die im Hintergrunde eine Melodie laufen haben. Das hab ich dann mal Gegooglet und gelesen das das .xm datein sind. Nun meine Frage wie lasse ich so eine Melodie beim Start des Trainers abspielen?

mfg
kingspeedy
Kingspeedy is offline  
Old 02/26/2012, 19:51   #2


 
K1ramoX's Avatar
 
elite*gold: 26
Join Date: Jan 2012
Posts: 3,474
Received Thanks: 18,844
Code:
#include <Sound.au3>

$sound = _SoundOpen(@ScriptDir & "\deinsound.mp3")
_SoundPlay($sound)
K1ramoX is offline  
Thanks
1 User
Old 02/26/2012, 20:05   #3
 
elite*gold: 0
Join Date: May 2010
Posts: 115
Received Thanks: 3
Hier noch der fertige Trainer.
Code:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         Kingspeedy

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <NomadMemory.au3>
#include <Sound.au3>

$GUI = GUICreate("Trainer by Kingspeedy", 350, 236, 192, 124)
$Pic = GUICtrlCreatePic(@ScriptDir & "\gothic3-logo_03.jpg", 0, 0, 350, 236)
GUICtrlSetState(-1, $GUI_DISABLE)
$ButtonAbout = GUICtrlCreateButton("About", 260, 200, 75, 25)
$ButtonGold = GUICtrlCreateButton("Gold" , 8, 16, 75, 25)
$ButtonLP = GUICtrlCreateButton("Lern Punkte" , 96, 16, 75, 25)
$ButtonSchliessen = GUICtrlCreateButton("Schließen", 8, 200, 75, 25)
GUISetState(@SW_SHOW,$GUI)
$sound = _SoundOpen(@ScriptDir & "\BRD - Teleport Prokg.mp3")
_SoundPlay($sound)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $ButtonAbout
			MsgBox (0, "About", "Made by Kingspeedy" & @CR & _
				  "Gold = Das Gold wird auf 400000 gesetzt." & @CR & _
				  "LP     = Die Lern Punkte werden auf 2000 gesetzt.")
			   Case $ButtonGold
				  _Gold()
			   Case $ButtonLP
				  _LP()
			   Case $ButtonSchliessen
				  Exit
	EndSwitch
WEnd

Func _Gold()
   $Gothic3PID = ProcessExists("Gothic3.exe")
	$Open = _MemoryOpen($Gothic3PID)
	_MemoryWrite(0x75919AAC, $Open, "400000" ,  "DWORD")
	_MemoryClose($Open)
EndFunc	;==>_Gold

Func _LP()
   $Gothic3PID = ProcessExists("Gothic3.exe")
	$Open = _MemoryOpen($Gothic3PID)
	_MemoryWrite(0x7BC819E8, $Open, "2000" , "DWORD") 
	_MemoryClose($Open)
EndFunc	;==>_LP

; Script End
Kingspeedy is offline  
Old 02/26/2012, 20:22   #4
 
lolkop's Avatar
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
du kannst dir auch selbst versuchen über beeps eine melodie zu erstellen.

diese würde dann sogar ohne soundkarte funktionieren :P
lolkop is offline  
Old 02/26/2012, 20:29   #5
 
elite*gold: 50
Join Date: Mar 2010
Posts: 1,373
Received Thanks: 521
Erwähnenswert ist vielleicht noch , um die Musik in das Programm zu integrieren. Die meisten Trainer kommen ja ebenfalls nur mit einer .exe aus
jacky919 is offline  
Old 02/28/2012, 02:41   #6
 
elite*gold: 0
Join Date: Dec 2011
Posts: 130
Received Thanks: 19
danke das habe ich gebraucht
der-wahre-nepster is offline  
Old 02/28/2012, 23:25   #7
 
WennsHilft's Avatar
 
elite*gold: 0
Join Date: Jan 2011
Posts: 341
Received Thanks: 67
Quote:
Originally Posted by lolkop View Post
du kannst dir auch selbst versuchen über beeps eine melodie zu erstellen.

diese würde dann sogar ohne soundkarte funktionieren :P
Code:
;---------------------------------- Song: SuperMario
	Beep(480,200)

    Beep(1568,200)

    Beep(1568,200)

    Beep(1568,200)



    Beep(739.99,200)

    Beep(783.99,200)

    Beep(783.99,200)

    Beep(783.99,200)


    Beep(369.99,200)

    Beep(392,200)

    Beep(369.99,200)

    Beep(392,200)

    Beep(392,400)

    Beep(196,400)



    Beep(739.99,200)

    Beep(783.99,200)

    Beep(783.99,200)

    Beep(739.99,200)

    Beep(783.99,200)

    Beep(783.99,200)

    Beep(739.99,200)

    Beep(83.99,200)

    Beep(880,200)

    Beep(830.61,200)

    Beep(880,200)

    Beep(987.77,400)


    Beep(880,200)

    Beep(783.99,200)

    Beep(698.46,200)

    Beep(739.99,200)

    Beep(783.99,200)

    Beep(783.99,200)

    Beep(739.99,200)

    Beep(783.99,200)

    Beep(783.99,200)

    Beep(739.99,200)

    Beep(783.99,200)

    Beep(880,200)

    Beep(830.61,200)

    Beep(880,200)

    Beep(987.77,400)

      Sleep(200)

    Beep(1108,10)
    Beep(1174.7,200)
    Beep(1480,10)
    Beep(1568,200)


    Sleep(200)
    Beep(739.99,200)

    Beep(783.99,200)

    Beep(783.99,200)

    Beep(739.99,200)

    Beep(783.99,200)

    Beep(783.99,200)

    Beep(739.99,200)

    Beep(783.99,200)

    Beep(880,200)

    Beep(830.61,200)

    Beep(880,200)

    Beep(987.77,400)


    Beep(880,200)

    Beep(783.99,200)

    Beep(698.46,200)


    Beep(659.25,200)

    Beep(698.46,200)

    Beep(784,200)

    Beep(880,400)

    Beep(784,200)

    Beep(698.46,200)

    Beep(659.25,200)



    Beep(587.33,200)

    Beep(659.25,200)

    Beep(698.46,200)

    Beep(784,400)

    Beep(698.46,200)

    Beep(659.25,200)

    Beep(587.33,200)



    Beep(523.25,200)

    Beep(587.33,200)

    Beep(659.25,200)

    Beep(698.46,400)

    Beep(659.25,200)

    Beep(587.33,200)

    Beep(493.88,200)

    Beep(523.25,200)


    Sleep(400)
    Beep(349.23,400)

    Beep(392,200)

    Beep(329.63,200)

    Beep(523.25,200)

    Beep(493.88,200)

    Beep(466.16,200)



    Beep(440,200)

    Beep(493.88,200)

    Beep(523.25,200)

    Beep(880,200)

    Beep(493.88,200)

    Beep(880,200)

    Beep(1760,200)

    Beep(440,200)



    Beep(392,200)

    Beep(440,200)

    Beep(493.88,200)

    Beep(783.99,200)

    Beep(440, 200)

    Beep(783.99,200)

    Beep(1568,200)

    Beep(392,200)



    Beep(349.23,200)

    Beep(392,200)

    Beep(440,200)

    Beep(698.46,200)

    Beep(415.2,200)

    Beep(698.46,200)

    Beep(1396.92,200)

    Beep(349.23,200)



    Beep(329.63,200)

    Beep(311.13,200)

    Beep(329.63,200)

    Beep(659.25,200)

    Beep(698.46,400)

    Beep(783.99,400)



    Beep(440,200)

    Beep(493.88,200)

    Beep(523.25,200)

    Beep(880,200)

    Beep(493.88,200)

    Beep(880,200)

    Beep(1760,200)

    Beep(440,200)



    Beep(392,200)

    Beep(440,200)

    Beep(493.88,200)

    Beep(783.99,200)

    Beep(440,200)

    Beep(783.99,200)

    Beep(1568,200)

    Beep(392,200)



    Beep(349.23,200)

    Beep(392,200)

    Beep(440,00)

    Beep(698.46,200)

    Beep(659.25,200)

    Beep(698.46,200)

    Beep(739.99,200)

    Beep(783.99,200)

    Beep(392,200)

    Beep(392,200)

    Beep(392,200)

    Beep(392,200)

    Beep(196,200)

    Beep(196,200)

    Beep(196,200)



    Beep(185,200)

    Beep(196,200)

    Beep(185,200)

    Beep(196,200)

    Beep(207.65,200)

    Beep(220,200)

    Beep(233.08,200)

    Beep(246.94,200)
WennsHilft is offline  
Reply


Similar Threads Similar Threads
Brauche Melodie !
11/13/2011 - Music - 3 Replies
Moin Freunde, wäre es möglich diesen Beat+Melodie runterzuladen? : ZOMG ZUFALL! #448 Ich weis von dem das Lied ist und ich weis wie es heist nur brauch ich dem sein Gebabbel nicht und dort ist auch der stärkere Bass und die Melodie nicht enthalten. Habe mir "Orbit" runtergeladen und ein Plugin namens "grap++" Leider blick ich bei dem grap nicht durch.
Melodie gesucht
07/27/2011 - Trading - 0 Replies
Hallo alle zusammen wenn man auf der seite geht hört man eine melodie wollt wissen woher krieg ich die youtube link ? Danke DiamondCore Studio - Aion Online, Tera Online, WoW Cataclysm, Top List Aion Online, Top List Tera Online, Top List WoW Cataclysm, Aion DataBase, Tera DataBase, WoW DataBase
Geile Melodie
11/28/2009 - Music - 12 Replies
Zieht euch das rein YouTube - ich will sterben ...



All times are GMT +1. The time now is 07:06.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.