Problem mit "invalid gadget handle"

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

10hofnarr01

Betreff: Problem mit "invalid gadget handle"

 BeitragDi, Okt 28, 2008 20:30
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi ihr ich hab folgendes Problem...
ich schriebe gerade ein buyscript-tool für counterstrike source...
(Ja cih weiß sch*** Spiel und es gibt schon tausende davon)

ich habe ein problem mit dem abfragen von mehreren comboboxen mit if befehlen...
(da ich ein programmier noob bin un erst vor 7tagen sowas angefangen habe habe ich
die mir am einfachsten erscheinenden befhle genutzt)

so mein Problem
ich habe 2 comboboxen bei denen ich jeweils etwas auswählen kann
das funzt auch...

nur wenn ich diese mit dem folgenden code abfrage
kommt bei der aktion b (ihr werdet es gleich sehen) invalid gadgethandle

Habe aktion b mal herausgenommen und es hat gefunzt...
(es liegt wahrscheins am übergang von A zu B)

wie kann ich das beheben??

Code: [AUSKLAPPEN]

   If EventSource() = erstellen
;AKTION A                                    =>aa$
      If SelectedGadgetItem (Aktiona) = 0 Then
         aa$ = ""
      EndIf         
      If SelectedGadgetItem (Aktiona) = 1 Then
         aa$ = "buy m3; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 2 Then
         aa$ = "buy xm1014; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 3 Then
         aa$ = "buy mac10; buy tmp; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 4 Then
         aa$ = "buy mp5navy; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 5 Then
         aa$ = "buy ump45; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 6 Then
         aa$ = "buy p90; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 7 Then
         aa$ = "buy ak47; buy m4a1; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 8 Then
         aa$ = "buy sg552; buy aug; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 9 Then
         aa$ = "buy galil; buy famas; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 10 Then
         aa$ = "buy sg550; buy g3sg1; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 11 Then
         aa$ = "buy scout; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 12 Then
         aa$ = "buy awp; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 13 Then
         aa$ = "buy m249; "
      EndIf
;AKTION B                                    =>ab$
      If SelectedGadgetItem (Aktionb) = 0 Then
         ab$ = ""
      EndIf
      If SelectedGadgetItem (Aktionb) = 1 Then
         ab$ = "buy usp; "
      EndIf
      If SelectedGadgetItem (Aktionb) = 2 Then
         ab$ = "buy glock; "
      EndIf
      If SelectedGadgetItem (Aktionb) = 3 Then
         ab$ = "buy p228; "
      EndIf
      If SelectedGadgetItem (Aktionb) = 4 Then
         ab$ = "buy deagle; "
      EndIf
      If SelectedGadgetItem (Aktionb) = 5 Then
         ab$ = "buy elite; buy fiveseven; "
      EndIf   

      AddTextAreaText ausgabe, "bind " + Chr$(34) + Taste$ + Chr$(34) + " " + Chr$(34) + aa$ + ab$ + Chr$(34)

   EndIf



der rest funzt eig alles

bitte um hilfe da ich nicht weiß wie ich das behebn kann
ich kann alles,
aber nur ein bischen,
und das was ich kann, ist falsch!!

Starwar

 BeitragDi, Okt 28, 2008 20:44
Antworten mit Zitat
Benutzer-Profile anzeigen
Bitte den gesamten Code, so, dass ich ihn per Copy&Pastein den Editor einfügen kann, sonst kann man nur raten. Irgendwo ein Tippfehler bei dem Namen der Combox?

10hofnarr01

 BeitragDi, Okt 28, 2008 21:06
Antworten mit Zitat
Benutzer-Profile anzeigen
hier der gesammte code

Code: [AUSKLAPPEN]

; Hofnarrs Bind Tool

; Fenster erstellen
Global Win = CreateWindow("Hofnarrs Cs:S buyscript-Tool Version 1.0",100,100,500,800,Desktop(),1)

; 1. Schriftanzeigen
Global label1 = CreateLabel("Die ist |-|0F|\|/\RRs BuyscriptTool",160,10,450,20,Win)
Global label2 = CreateLabel("Hier kannst du dir BINDS für CounterStrike Source",130,30,450,20,Win)
Global label3 = CreateLabel("schnell und einfach erstellen lassen",160,50,450,20,Win)

; Taste wählen
Global label4 = CreateLabel("Wähle zuerst aus welche Tastenart es sein soll:",20,95,450,20,Win)
Global label5 = CreateLabel("Wähle danach die zu belegende Taste aus:",20,135,450,20,Win)


; Reihenfolge des Kaufscripts
Global label500 = CreateLabel("Wähle nun das aus, das gekauft werden soll",70,170,450,20,Win)
Global label501 = CreateLabel("01. Aktion : ",20,200,60,16,Win)
Global label502 = CreateLabel("02. Aktion : ",20,230,60,16,Win)
Global label503 = CreateLabel("03. Aktion : ",20,260,60,16,Win)
Global label504 = CreateLabel("04. Aktion : ",20,290,60,16,Win)
Global label505 = CreateLabel("05. Aktion : ",20,320,60,16,Win)
Global label506 = CreateLabel("06. Aktion : ",20,350,60,16,Win)
Global label507 = CreateLabel("07. Aktion : ",20,380,60,16,Win)
Global label508 = CreateLabel("08. Aktion : ",20,410,60,16,Win)
Global label509 = CreateLabel("09. Aktion : ",20,440,60,16,Win)
Global label510 = CreateLabel("10. Aktion : ",20,470,60,16,Win)
Global label511 = CreateLabel("11. Aktion : ",20,500,60,16,Win)
Global label512 = CreateLabel("12. Aktion : ",20,530,60,16,Win)

; Erstellen button
Global erstellen = CreateButton("Bind anzeigen",200,570,100,25,Win)

; Ausgabefenster
Global ausgabe = CreateTextArea(10,610,470,150,Win)

; Boxen zum Anwählen
; Boxen Tastenart
Global Tastenart = CreateComboBox(250,90,200,20,Win)
AddGadgetItem Tastenart, "Bitte auswählen", 1
AddGadgetItem Tastenart, "Alphabet", 0
AddGadgetItem Tastenart, "Ziffern", 0
AddGadgetItem Tastenart, "Maus", 0
AddGadgetItem Tastenart, "Sonder", 0
AddGadgetItem Tastenart, "F-Tasten", 0
AddGadgetItem Tastenart, "ScrollTasten", 0
AddGadgetItem Tastenart, "Pfeiltasten", 0
AddGadgetItem Tastenart, "Ziffernblock", 0
AddGadgetItem Tastenart, "Sonstige", 0

;Boxen Alphabet
Global Alphabet = CreateComboBox(250,130,200,20,Win)
AddGadgetItem Alphabet, "Bitte auswählen"
AddGadgetItem Alphabet, "a"
AddGadgetItem Alphabet, "b"
AddGadgetItem Alphabet, "c"
AddGadgetItem Alphabet, "d"
AddGadgetItem Alphabet, "e"
AddGadgetItem Alphabet, "f"
AddGadgetItem Alphabet, "g"
AddGadgetItem Alphabet, "h"
AddGadgetItem Alphabet, "i"
AddGadgetItem Alphabet, "j"
AddGadgetItem Alphabet, "k"
AddGadgetItem Alphabet, "l"
AddGadgetItem Alphabet, "m"
AddGadgetItem Alphabet, "n"
AddGadgetItem Alphabet, "o"
AddGadgetItem Alphabet, "p"
AddGadgetItem Alphabet, "q"
AddGadgetItem Alphabet, "r"
AddGadgetItem Alphabet, "s"
AddGadgetItem Alphabet, "t"
AddGadgetItem Alphabet, "u"
AddGadgetItem Alphabet, "v"
AddGadgetItem Alphabet, "w"
AddGadgetItem Alphabet, "x"
AddGadgetItem Alphabet, "y"
AddGadgetItem Alphabet, "u"
AddGadgetItem Alphabet, "ä"
AddGadgetItem Alphabet, "ö"
AddGadgetItem Alphabet, "ü"
SelectGadgetItem Alphabet, 0

; Boxen Ziffernblock
Global Ziffern = CreateComboBox(250,130,200,20,Win)
AddGadgetItem Ziffern, "Bitte auswählen"
AddGadgetItem Ziffern, "0"
AddGadgetItem Ziffern, "1"
AddGadgetItem Ziffern, "2"
AddGadgetItem Ziffern, "3"
AddGadgetItem Ziffern, "4"
AddGadgetItem Ziffern, "5"
AddGadgetItem Ziffern, "6"
AddGadgetItem Ziffern, "7"
AddGadgetItem Ziffern, "8"
AddGadgetItem Ziffern, "9"
SelectGadgetItem Ziffern, 0

; Boxen Maustasten
Global Maus = CreateComboBox(250,130,200,20,Win)
AddGadgetItem Maus, "Bitte auswählen"
AddGadgetItem Maus, "Maus1"
AddGadgetItem Maus, "Maus2"
AddGadgetItem Maus, "Maus3"
AddGadgetItem Maus, "Maus4"
AddGadgetItem Maus, "AUX1"
AddGadgetItem Maus, "AUX2"
AddGadgetItem Maus, "M-Rad hoch"
AddGadgetItem Maus, "M-Rad runter"
SelectGadgetItem Maus, 0

; Boxen Sondertasten
Global Sonder = CreateComboBox(250,130,200,20,Win)
AddGadgetItem Sonder, "Bitte auswählen"
AddGadgetItem Sonder, "Enter"
AddGadgetItem Sonder, "Leer"
AddGadgetItem Sonder, "Umschalt"
AddGadgetItem Sonder, "Strg"
AddGadgetItem Sonder, "Pause"
AddGadgetItem Sonder, "Alt"
AddGadgetItem Sonder, "Löschen"
AddGadgetItem Sonder, "Tabulator"
AddGadgetItem Sonder, "Feststelltaste"
SelectGadgetItem Sonder ,0

; Boxen F-Tasten
Global FTasten = CreateComboBox(250,130,200,20,Win)
AddGadgetItem FTasten, "Bitte auswählen"
AddGadgetItem FTasten, "F1"
AddGadgetItem FTasten, "F2"
AddGadgetItem FTasten, "F3"
AddGadgetItem FTasten, "F4"
AddGadgetItem FTasten, "F5"
AddGadgetItem FTasten, "F6"
AddGadgetItem FTasten, "F7"
AddGadgetItem FTasten, "F8"
AddGadgetItem FTasten, "F9"
AddGadgetItem FTasten, "F10"
AddGadgetItem FTasten, "F11"
AddGadgetItem FTasten, "F12"
SelectGadgetItem FTasten, 0

; Boxen Scrolltasten
Global Scrolltasten = CreateComboBox(250,130,200,20,Win)
AddGadgetItem Scrolltasten, "Bitte auswählen"
AddGadgetItem Scrolltasten, "Einfügen"
AddGadgetItem Scrolltasten, "Entfernen"
AddGadgetItem Scrolltasten, "Position 1"
AddGadgetItem Scrolltasten, "Ende"
AddGadgetItem Scrolltasten, "Bild auf"
AddGadgetItem Scrolltasten, "Bild ab"
SelectGadgetItem Scrolltasten, 0

; Boxen Pfeiltasten
Global Pfeiltasten = CreateComboBox(250,130,200,20,Win)
AddGadgetItem Pfeiltasten, "Bitte auswählen"
AddGadgetItem Pfeiltasten, "Hoch"
AddGadgetItem Pfeiltasten, "Runter"
AddGadgetItem Pfeiltasten, "Links"
AddGadgetItem Pfeiltasten, "rechts"
SelectGadgetItem Pfeiltasten, 0

; Boxen Ziffernblock
Global Ziffernblock = CreateComboBox(250,130,200,20,Win)
AddGadgetItem Ziffernblock, "Bitte auswählen"
AddGadgetItem Ziffernblock, "0"
AddGadgetItem Ziffernblock, "1"
AddGadgetItem Ziffernblock, "2"
AddGadgetItem Ziffernblock, "3"
AddGadgetItem Ziffernblock, "4"
AddGadgetItem Ziffernblock, "5"
AddGadgetItem Ziffernblock, "6"
AddGadgetItem Ziffernblock, "7"
AddGadgetItem Ziffernblock, "8"
AddGadgetItem Ziffernblock, "9"
AddGadgetItem Ziffernblock, ","
AddGadgetItem Ziffernblock, "+"
AddGadgetItem Ziffernblock, "-"
AddGadgetItem Ziffernblock, "/"
AddGadgetItem Ziffernblock, "*"
AddGadgetItem Ziffernblock, "Enter"
SelectGadgetItem Ziffernblock, 0

; Boxen Restliche Tasten
Global Sonstige = CreateComboBox(250,130,200,20,Win)
AddGadgetItem Sonstige, "Bitte auswählen"
AddGadgetItem Sonstige, ","
AddGadgetItem Sonstige, "."
AddGadgetItem Sonstige, "-"
AddGadgetItem Sonstige, "#"
AddGadgetItem Sonstige, "<"
AddGadgetItem Sonstige, "+"
SelectGadgetItem Sonstige, 0





; BOXEN AKTIONEN
; Boxen Aktiona aa$
Global Aktiona = CreateComboBox(100,195,350,16,Win)
AddGadgetItem Aktiona, "Nichts"                           ;0
AddGadgetItem Aktiona, "Leone 12 Gauge Super"               ;1
AddGadgetItem Aktiona, "Leone YG1265 Auto Shotgun"            ;2
AddGadgetItem Aktiona, "Ingram MAC-10 / Schmidt Machine Pistol"   ;3
AddGadgetItem Aktiona, "KM Sub-Machine Gun"                  ;4
AddGadgetItem Aktiona, "KM UMP45"                        ;5
AddGadgetItem Aktiona, "ES C90"                           ;6
AddGadgetItem Aktiona, "CV-47 / Maverick M4A1 Carbine"         ;7
AddGadgetItem Aktiona, "Krieg 552/Bullpup"                  ;8
AddGadgetItem Aktiona, "IDF Defender / Clarion 5.56"         ;9
AddGadgetItem Aktiona, "Krieg 550 Commando / D3/AU1"         ;10
AddGadgetItem Aktiona, "Schmidt Scout"                     ;11
AddGadgetItem Aktiona, "Magnum Sniper Rifle"               ;12
AddGadgetItem Aktiona, "M249"                           ;13
SelectGadgetItem Aktiona, 0

; Boxen Aktiob ab$
Global Aktiob = CreateComboBox(100,225,350,16,Win)
AddGadgetItem Aktiob, "Nichts"                           ;0
AddGadgetItem Aktiob, "KM .45 Tactical"                     ;1
AddGadgetItem Aktiob, "9x19mm Sidearm"                     ;2
AddGadgetItem Aktiob, "228 Compact"                        ;3
AddGadgetItem Aktiob, "Night Hawk .50C"                     ;4
AddGadgetItem Aktiob, ".40 Dual Elites / ES Five-Seven"         ;5
SelectGadgetItem Aktiob, 0

; Boxen Aktionc ac$
Global Aktionc = CreateComboBox(100,255,350,16,Win)
AddGadgetItem Aktionc, "Nichts"
AddGadgetItem Aktionc, "Primär Munition"
AddGadgetItem Aktionc, "Sekundär Munition"
AddGadgetItem Aktionc, "Kevlar mit Helm"
AddGadgetItem Aktionc, "Kevlar"
AddGadgetItem Aktionc, "Nachtsichtgerät"
AddGadgetItem Aktionc, "Entschärfungs-Kit"
AddGadgetItem Aktionc, "HE-Granate"
AddGadgetItem Aktionc, "Blend-Granate"
AddGadgetItem Aktionc, "Rauch-Granate"
SelectGadgetItem Aktionc, 0

; Boxen Aktiond ad$
Global Aktiond = CreateComboBox(100,285,350,16,Win)
AddGadgetItem Aktiond, "Nichts"
AddGadgetItem Aktiond, "Primär Munition"
AddGadgetItem Aktiond, "Sekundär Munition"
AddGadgetItem Aktiond, "Kevlar mit Helm"
AddGadgetItem Aktiond, "Kevlar"
AddGadgetItem Aktiond, "Nachtsichtgerät"
AddGadgetItem Aktiond, "Entschärfungs-Kit"
AddGadgetItem Aktiond, "HE-Granate"
AddGadgetItem Aktiond, "Blend-Granate"
AddGadgetItem Aktiond, "Rauch-Granate"
SelectGadgetItem Aktiond, 0

; Boxen Aktione ae$
Global Aktione = CreateComboBox(100,315,350,16,Win)
AddGadgetItem Aktione, "Nichts"
AddGadgetItem Aktione, "Primär Munition"
AddGadgetItem Aktione, "Sekundär Munition"
AddGadgetItem Aktione, "Kevlar mit Helm"
AddGadgetItem Aktione, "Kevlar"
AddGadgetItem Aktione, "Nachtsichtgerät"
AddGadgetItem Aktione, "Entschärfungs-Kit"
AddGadgetItem Aktione, "HE-Granate"
AddGadgetItem Aktione, "Blend-Granate"
AddGadgetItem Aktione, "Rauch-Granate"
SelectGadgetItem Aktione, 0

; Boxen Aktionf af$
Global Aktionf = CreateComboBox(100,345,350,16,Win)
AddGadgetItem Aktionf, "Michts"
AddGadgetItem Aktionf, "Primär Munition"
AddGadgetItem Aktionf, "Sekundär Munition"
AddGadgetItem Aktionf, "Kevlar mit Helm"
AddGadgetItem Aktionf, "Kevlar"
AddGadgetItem Aktionf, "Nachtsichtgerät"
AddGadgetItem Aktionf, "Entschärfungs-Kit"
AddGadgetItem Aktionf, "HE-Granate"
AddGadgetItem Aktionf, "Blend-Granate"
AddGadgetItem Aktionf, "Rauch-Granate"
SelectGadgetItem Aktionf, 0

; Boxen Aktiong ag$
Global Aktiong = CreateComboBox(100,375,350,16,Win)
AddGadgetItem Aktiong, "Nichts"
AddGadgetItem Aktiong, "Primär Munition"
AddGadgetItem Aktiong, "Sekundär Munition"
AddGadgetItem Aktiong, "Kevlar mit Helm"
AddGadgetItem Aktiong, "Kevlar"
AddGadgetItem Aktiong, "Nachtsichtgerät"
AddGadgetItem Aktiong, "Entschärfungs-Kit"
AddGadgetItem Aktiong, "HE-Granate"
AddGadgetItem Aktiong, "Blend-Granate"
AddGadgetItem Aktiong, "Rauch-Granate"
SelectGadgetItem Aktiong, 0

; Boxen Aktionh ah$
Global Aktionh = CreateComboBox(100,405,350,16,Win)
AddGadgetItem Aktionh, "Nichts"
AddGadgetItem Aktionh, "Primär Munition"
AddGadgetItem Aktionh, "Sekundär Munition"
AddGadgetItem Aktionh, "Kevlar mit Helm"
AddGadgetItem Aktionh, "Kevlar"
AddGadgetItem Aktionh, "Nachtsichtgerät"
AddGadgetItem Aktionh, "Entschärfungs-Kit"
AddGadgetItem Aktionh, "HE-Granate"
AddGadgetItem Aktionh, "Blend-Granate"
AddGadgetItem Aktionh, "Rauch-Granate"
SelectGadgetItem Aktionh, 0

; Boxen Aktioni ai$
Global Aktioni = CreateComboBox(100,435,350,16,Win)
AddGadgetItem Aktioni, "Nichts"
AddGadgetItem Aktioni, "Primär Munition"
AddGadgetItem Aktioni, "Sekundär Munition"
AddGadgetItem Aktioni, "Kevlar mit Helm"
AddGadgetItem Aktioni, "Kevlar"
AddGadgetItem Aktioni, "Nachtsichtgerät"
AddGadgetItem Aktioni, "Entschärfungs-Kit"
AddGadgetItem Aktioni, "HE-Granate"
AddGadgetItem Aktioni, "Blend-Granate"
AddGadgetItem Aktioni, "Rauch-Granate"
SelectGadgetItem Aktioni, 0

; Boxen Aktionj aj$
Global Aktionj = CreateComboBox(100,465,350,16,Win)
AddGadgetItem Aktionj, "Nichts"
AddGadgetItem Aktionj, "Primär Munition"
AddGadgetItem Aktionj, "Sekundär Munition"
AddGadgetItem Aktionj, "Kevlar mit Helm"
AddGadgetItem Aktionj, "Kevlar"
AddGadgetItem Aktionj, "Nachtsichtgerät"
AddGadgetItem Aktionj, "Entschärfungs-Kit"
AddGadgetItem Aktionj, "HE-Granate"
AddGadgetItem Aktionj, "Blend-Granate"
AddGadgetItem Aktionj, "Rauch-Granate"
SelectGadgetItem Aktionj, 0

; Boxen Aktionk ak$
Global Aktionk = CreateComboBox(100,495,350,16,Win)
AddGadgetItem Aktionk, "Nichts"
AddGadgetItem Aktionk, "Primär Munition"
AddGadgetItem Aktionk, "Sekundär Munition"
AddGadgetItem Aktionk, "Kevlar mit Helm"
AddGadgetItem Aktionk, "Kevlar"
AddGadgetItem Aktionk, "Nachtsichtgerät"
AddGadgetItem Aktionk, "Entschärfungs-Kit"
AddGadgetItem Aktionk, "HE-Granate"
AddGadgetItem Aktionk, "Blend-Granate"
AddGadgetItem Aktionk, "Rauch-Granate"
SelectGadgetItem Aktionk, 0

; Boxen Aktionl al$
Global Aktionl = CreateComboBox(100,525,350,16,Win)
AddGadgetItem Aktionl, "Nichts"
AddGadgetItem Aktionl, "Primär Munition"
AddGadgetItem Aktionl, "Sekundär Munition"
AddGadgetItem Aktionl, "Kevlar mit Helm"
AddGadgetItem Aktionl, "Kevlar"
AddGadgetItem Aktionl, "Nachtsichtgerät"
AddGadgetItem Aktionl, "Entschärfungs-Kit"
AddGadgetItem Aktionl, "HE-Granate"
AddGadgetItem Aktionl, "Blend-Granate"
AddGadgetItem Aktionl, "Rauch-Granate"
SelectGadgetItem Aktionl, 0


Repeat
; 2. Box (also Tastenauswahl) von der Tastenart abhängig:
   ev=WaitEvent()
   es=EventSource()
   If ev=$401 And es=Tastenart Then
      If SelectedGadgetItem (Tastenart) = 1 Then  ;Zählen ab 0
            ShowGadget Alphabet
            Else
            HideGadget Alphabet
      EndIf
      If SelectedGadgetItem (Tastenart) = 2 Then
            ShowGadget Ziffern
            Else
            HideGadget Ziffern
      EndIf
      If SelectedGadgetItem (Tastenart) = 3 Then
            ShowGadget (Maus)
            Else
            HideGadget (Maus)
      EndIf
      If SelectedGadgetItem (Tastenart) = 4 Then
            ShowGadget (Sonder)
            Else
            HideGadget (Sonder)
      EndIf        
      If SelectedGadgetItem (Tastenart) = 5 Then
            ShowGadget (FTasten)
            Else
            HideGadget (FTasten)
      EndIf
      If SelectedGadgetItem (Tastenart) = 6 Then
            ShowGadget (Scrolltasten)
            Else
            HideGadget (Scrolltasten)
      EndIf
      If SelectedGadgetItem (Tastenart) = 7 Then
            ShowGadget (Pfeiltasten)
            Else
            HideGadget (Pfeiltasten)
      EndIf
      If SelectedGadgetItem (Tastenart) = 8 Then
            ShowGadget (Ziffernblock)
            Else
            HideGadget (Ziffernblock)
      EndIf
      If SelectedGadgetItem (Tastenart) = 9 Then
            ShowGadget (Sonstige)
            Else
            HideGadget (Sonstige)
      EndIf
   EndIf
      ;Defnieren der verschiedenen AktionsParameter
   If EventSource() = erstellen
      ;AKTION A                           =>aa$
      If SelectedGadgetItem (Aktiona) = 0 Then
         aa$ = ""
      EndIf         
      If SelectedGadgetItem (Aktiona) = 1 Then
         aa$ = "buy m3; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 2 Then
         aa$ = "buy xm1014; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 3 Then
         aa$ = "buy mac10; buy tmp; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 4 Then
         aa$ = "buy mp5navy; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 5 Then
         aa$ = "buy ump45; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 6 Then
         aa$ = "buy p90; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 7 Then
         aa$ = "buy ak47; buy m4a1; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 8 Then
         aa$ = "buy sg552; buy aug; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 9 Then
         aa$ = "buy galil; buy famas; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 10 Then
         aa$ = "buy sg550; buy g3sg1; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 11 Then
         aa$ = "buy scout; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 12 Then
         aa$ = "buy awp; "
      EndIf   
      If SelectedGadgetItem (Aktiona) = 13 Then
         aa$ = "buy m249; "
      EndIf
      ;AKTION B                           =>ab$
      If SelectedGadgetItem (Aktionb) = 0 Then
         ab$ = ""
      EndIf
      If SelectedGadgetItem (Aktionb) = 1 Then
         ab$ = "buy usp; "
      EndIf
      If SelectedGadgetItem (Aktionb) = 2 Then
         ab$ = "buy glock; "
      EndIf
      If SelectedGadgetItem (Aktionb) = 3 Then
         ab$ = "buy p228; "
      EndIf
      If SelectedGadgetItem (Aktionb) = 4 Then
         ab$ = "buy deagle; "
      EndIf
      If SelectedGadgetItem (Aktionb) = 5 Then
         ab$ = "buy elite; buy fiveseven; "
      EndIf   

      AddTextAreaText ausgabe, "bind " + Chr$(34) + Taste$ + Chr$(34) + " " + Chr$(34) + aa$ + ab$ + Chr$(34)

   EndIf
; " => ql:chr$(34)
Until ev=$803 And es=win
End   
[/code]
ich kann alles,
aber nur ein bischen,
und das was ich kann, ist falsch!!

10hofnarr01

 BeitragDi, Okt 28, 2008 21:08
Antworten mit Zitat
Benutzer-Profile anzeigen
alles klar habs eben gesehen wo mein fehler ist...


hab oben bei der definition aktiob stehen
statt aktionb

trozdem danke Smile
ich kann alles,
aber nur ein bischen,
und das was ich kann, ist falsch!!

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group