Sign in to follow this  
Followers 0
continyu

Create second gui window...

14 posts in this topic

I searched help and forum and i couldn't find any example about my problem.

so i have 1 gui. and on this gui i created a button. What i need is when i click that button another little window opens, then i click some checkboxes on this new window. and save the values. Also i'm using SetOnEvent mode. I have to. (because i'm not good at using Getmsg type..)

So here is my problem;

In code below when i click "x" on my new page... Nothing happens!

Func Button3Click()
       Opt("GUIOnEventMode", 1)
    $pic = GUICreate("Market", 169, 68, 20, 20, Default,Default,$Form1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseStore",$pic)
   GUISetState(@SW_SHOW)


EndFunc

Func CloseStore()
WinClose("Market")

    EndFunc

WHY :S?

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Hello continyu,

First of all, its hard to tell where the problem lies, since you only shown us the function that the button calls. Where is the rest of the code, where I assume the true problem is?

Realm

Edit: Also the Opt("GUIOnEventMode", 1) should not be in your function, that should be at the top of your script just below any library includes.

Edited by Realm

My Contributions: Unix Timestamp: Calculate Unix time, or seconds since Epoch, accounting for your local timezone and daylight savings time. RegEdit Jumper: A Small & Simple interface based on Yashied's Reg Jumper Function, for searching Hives in your registry.  

Share this post


Link to post
Share on other sites

Your "GuiOnEventMode" need only be done once at the top of the script if you use the same mode for the whole script (as you should). Here's a working example:

#include <GuiConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Global $hParent = GUICreate("Parent", 300, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit", $hParent)
GUICtrlCreateButton("Child", 100, 100, 100, 30)
GUICtrlSetOnEvent(-1, "Button3Click")
GUISetState()

While 1
    Sleep(10)
WEnd

Func Button3Click()
        Local $hChild = GUICreate("Child", 169, 68, 20, 20, Default, Default, $hParent)
        GUISetOnEvent($GUI_EVENT_CLOSE, "CloseStore", $hChild)
        GUISetState(@SW_SHOW)
EndFunc   ;==>Button3Click

Func CloseStore()
    GUIDelete(@GUI_WinHandle)
EndFunc   ;==>CloseStore

Func _Quit()
    Exit
EndFunc   ;==>_Quit

;)


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

It gaves me an error about declaring variables.I put my func like that,

Func CloseStore()
    GUIDelete($child)
EndFunc   ;==>CloseStore

And when i try to Run;

WARNING: $child: possibly used before declaration.

GUIDelete($child)

~~~~~~~~~~~~~~^

ERROR: $child: undeclared global variable.

GUIDelete($pic)

Still I can't understand ;)

EDIT:

Ok i used GUIDelete(@GUI_WINHANDLE) and it's working. But i don't understand why mine didn't working. Also if i create more than 2 windows is that @Gui_WINHANDLE macro will be still working???

Edited by continyu

Share this post


Link to post
Share on other sites

If $child was declared inside a function then it is local. There is no reason (in this example) to save the handle of the window anyway. As you noticed, when an event function is called several macros are available to tell the function which GUI and control called it. For example @GUI_WINHANDLE or @GUI_CTRLHANDLE. Inside the event function, the @GUI_WINHANDLE macro always equals the handle of the window (GUI) that called the function.

This mechanism allows you to use the one function for many GUIs or controls.

;)


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

If $child was declared inside a function then it is local. There is no reason (in this example) to save the handle of the window anyway. As you noticed, when an event function is called several macros are available to tell the function which GUI and control called it. For example @GUI_WINHANDLE or @GUI_CTRLHANDLE. Inside the event function, the @GUI_WINHANDLE macro always equals the handle of the window (GUI) that called the function.

This mechanism allows you to use the one function for many GUIs or controls.

;)

Then i realized i have to ask you some basic question:) If i declare thi $child as GLOBAL variable, can i use it in another functiions ?

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

Hello continyu,

Declaring Variables in Local will keep them just that local to that Function or section of script. Declaring a variable in Global will allow that variable to be called from anywhere within your entire script.

Realm

view this wiki for a deeper explanation of variables and declaring them

Edited by Realm

My Contributions: Unix Timestamp: Calculate Unix time, or seconds since Epoch, accounting for your local timezone and daylight savings time. RegEdit Jumper: A Small & Simple interface based on Yashied's Reg Jumper Function, for searching Hives in your registry.  

Share this post


Link to post
Share on other sites

Thank you very much.

I'm going to ask you a big favor.

I'm having problems with buttons in this new window... My button is in unclickable state. i don't know why.

So if any one can just download my .au3 file. then click Button3 at the rigt of the panel. then in new window the "Satın Al" button is unclickable. (its handle "$sButton1")

Code and attachment both same... Waiting for huge help i know. But i really need it !

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=C:\Mes YDK\WORK\AutoIt v3\All Scripts\Text based Games\Form1.kxf
$Form1 = GUICreate("Pokemon - v1.0", 677, 443, 197, 132)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close",$Form1)
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Label1 = GUICtrlCreateLabel("Pokemon text-based...", 8, 8, 220, 25)
$Edit1 = GUICtrlCreateEdit("", 8, 48, 545, 227,$ES_READONLY)
GUICtrlSetBkColor($Edit1,"#000000")
GUICtrlSetColor ( $Edit1, "0x32cd32")
$Radio1 = GUICtrlCreateRadio("Saldır!", 16, 296, 113, 17)
$Radio2 = GUICtrlCreateRadio("Kaç!", 129, 296, 113, 17)
$Radio3 = GUICtrlCreateRadio("Yakala!", 235, 296, 113, 17)
$Button1 = GUICtrlCreateButton("Devam", 480, 344, 73, 33, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button1Click")
$Progress1 = GUICtrlCreateProgress(208, 8, 118, 17)
$Progress2 = GUICtrlCreateProgress(400, 8, 118, 17)
$Label2 = GUICtrlCreateLabel("Exp", 344, 8, 36, 17)
$Label3 = GUICtrlCreateLabel("Hp", 160, 8, 36, 17)
$Button2 = GUICtrlCreateButton("Yap", 272, 320, 73, 33, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button2Click")
GUIctrlsetState($Button2,$GUI_DISABLE)
$Label4 = GUICtrlCreateLabel("My Lvl; ", 560, 48, 76, 17)
$Label5 = GUICtrlCreateLabel("My Hp; ", 560, 72, 76, 17)
$Label6 = GUICtrlCreateLabel("My Exp; ", 560, 96, 76, 17)
$Label7 = GUICtrlCreateLabel("Need; ", 560, 140, 76, 17)
$Label8 = GUICtrlCreateLabel("My Gold; ", 560, 120, 76, 17)
$Button3 = GUICtrlCreateButton("Button3", 600, 256, 65, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button3Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$myPoke = InputBox("Pokemon","Pokemonunuzun adını yazınız...")
$myTotalExp = 40
$myExp = "1"
$myGold = 100

$myExpPerc = $myExp/$myTotalExp*100
$myLvl = "1"
$myTotalHp = $myLvl*100+5
$myHp = $myLvl*100+5 ;state own hp
$myHpPerc = $myhp/$myTotalHp*100
Global $enemyHp, $enemyName, $enemylvl, $enemyExp, $myLvl, $myHp, $enemyGold
Global $myHpPot, $myMpPot,$myPokeBall
Global $mname1 = "Meow", $mname2 = "Snorlax", $mname3 = "Squirtle", $mname4 = "Balbazar", $mname5 = "Golem", $mname6 = "Pidgeon"
GUICtrlSetData($Progress1,$myHpPerc)
GUICtrlSetData($Progress2,$myExpPerc)
GUICtrlSetData($Edit1,"Merhaba!"&@CRLF&"Yavru pokemonun """&$myPoke&""" ile açık havada gezintiye çıktın.")
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"Bu güneşli güzel günde hayatın için yeni bir karar aldın."&@crlf&" Bu yavru pokemonunla beraber yepyeni macerlara atılacak ve pek çok pokemon yakalayacaksın")

Global $i = 1
While 1

    Sleep(100)
WEnd

Func Button1Click()
    Switch $myExp ; lvl up!
    Case $myExp > 40
        $myLvl = $myLvl+1
        $myTotalExp = 50
        $myExp = 0
    Case $myExp > 50
        $myLvl = $myLvl+1
        $myTotalExp = 70
        $myExp = 0
    Case $myExp > 70
        $myLvl = $myLvl+1
        $myTotalExp = 95
        $myExp = 0
    Case $myExp > 95
        $myLvl = $myLvl+1
        $myTotalExp = 130
        $myExp = 0
    Case $myExp > 130
        $myLvl = $myLvl+1
        $myTotalExp = 280
        $myExp = 0
    Case $myExp > 280
        $myLvl = $myLvl+1
        $myTotalExp = 350
        $myExp = 0
    Case $myExp > 350
        $myLvl = $myLvl+1
        $myTotalExp = 420
        $myExp = 0
    Case $myExp > 420
        $myLvl = $myLvl+1
        $myTotalExp = 500
        $myExp = 0
    Case $myExp > 500
        $myLvl = $myLvl+1
        $myTotalExp = 600
        $myExp = 0
    Case $myExp > 600
        $myLvl = $myLvl+1
        $myTotalExp = 710
        $myExp = 0
    Case $myExp > 710
        $myLvl = $myLvl+1
        $myTotalExp = 820
        $myExp = 0
    Case $myExp > 820
        $myLvl = $myLvl+1
        $myTotalExp = 950
        $myExp = 0
    Case $myExp > 950
        $myLvl = $myLvl+1
        $myTotalExp = 1200
        $myExp = 0
    Case $myExp > 1200
        $myLvl = $myLvl+1
        $myTotalExp = 1500
        $myExp = 0
    Case $myExp > 1500
        $myLvl = $myLvl+1
        $myTotalExp = 1900
        $myExp = 0
    Case $myExp > 1900
        $myLvl = $myLvl+1
        $myTotalExp = 2500
        $myExp = 0
    Case $myExp > 2500
        $myLvl = $myLvl+1
        $myTotalExp = 3300
        $myExp = 0
    Case $myExp > 3300
        $myLvl = $myLvl+1
        $myTotalExp = 4200
        $myExp = 0
    Case $myExp > 4200
        $myLvl = $myLvl+1
        $myTotalExp = 5200
        $myExp = 0
    Case $myExp > 5200
        $myLvl = $myLvl+1
        $myTotalExp = 6300
        $myExp = 0
    Case $myExp > 6300
        $myLvl = $myLvl+1
        $myTotalExp = 7800
        $myExp = 0
    Case $myExp > 7800
        $myLvl = $myLvl+1
        $myTotalExp = 9500
        $myExp = 0
    Case $myExp > 9500
        $myLvl = $myLvl+1
        $myTotalExp = 11500
        $myExp = 0
    Case $myExp > 11500
        $myLvl = $myLvl+1
        $myTotalExp = 13500
        $myExp = 0
    Case $myExp > 13500
        $myLvl = $myLvl+1
        $myTotalExp = 17500
        $myExp = 0
    Case $myExp > 17500
        $myLvl = $myLvl+1
        $myTotalExp = 22500
        $myExp = 0
    Case $myExp > 22500
        $myLvl = $myLvl+1
        $myTotalExp = 26000
        $myExp = 0
    Case $myExp > 26000
        $myLvl = $myLvl+1
        $myTotalExp = 32000
        $myExp = 0
    Case $myExp > 32000
        $myLvl = $myLvl+1
        $myTotalExp = 40000
        $myExp = 0
    Case $myExp > 40000
        $myLvl = $myLvl+1
        $myTotalExp = 50000
        $myExp = 0
    Case $myExp > 50000
        $myLvl = $myLvl+1
        $myTotalExp = 60000
        $myExp = 0
    Case $myExp > 60000
        $myLvl = $myLvl+1
        $myTotalExp = 63000
        $myExp = 0
    Case $myExp > 63000
        $myLvl = $myLvl+1
        $myTotalExp = 77000
        $myExp = 0
    Case $myExp > 77000
        $myLvl = $myLvl+1
        $myTotalExp = 90000
        $myExp = 0
    Case $myExp > 90000
        $myLvl = $myLvl+1
        $myTotalExp = 150000
        $myExp = 0
    Case $myExp > 150000
        $myLvl = $myLvl+1
        $myTotalExp = 200000
        $myExp = 0
    Case $myExp > 200000
        $myLvl = $myLvl+1
        $myTotalExp = 260000
        $myExp = 0
    Case $myExp > 260000
        $myLvl = $myLvl+1
        $myTotalExp = 360000
        $myExp = 0
    Case $myExp > 360000
        $myLvl = $myLvl+1
        $myTotalExp = 430000
        $myExp = 0
    Case $myExp > 430000
        $myLvl = $myLvl+1
        $myTotalExp = 600000
        $myExp = 0
    Case $myExp > 600000
        $myLvl = $myLvl+1
        $myTotalExp = 740000
        $myExp = 0
    Case $myExp > 740000
        $myLvl = $myLvl+1
        $myTotalExp = 900000
        $myExp = 0
    Case $myExp > 900000
        $myLvl = $myLvl+1
        $myTotalExp = 1200000
        $myExp = 0
    Case $myExp > 1200000
        $myLvl = $myLvl+1
        $myExp = 0
EndSwitch
    $selmobname = Random(1,6,1); select mob name numb.
    $enemylvl = Random($myLvl-3,$myLvl+3,1) ;select mob lvl...
    If $enemylvl < 1 Then $enemylvl = 1
    $enemyExp = Random($enemylvl*4+5,$enemylvl*5+5,1) ;determine exp...
    $myHp = $myHp+$myLvl*2+2; heal me little bit.
    $enemyHp = Random($enemylvl*4,$enemylvl*5,1) ;determine enemy hp
    $enemyGold = Random($enemylvl*100+100,$enemylvl*100+230,1)
GUICtrlSetData($label4,"My lvl; "&$myLvl)
GUICtrlSetData($label5,"My hp; "&$myHp)
GUICtrlSetData($label6,"My exp; "&$myExp)
GUICtrlSetData($label7,"Need exp; "&$myTotalExp)
GUICtrlSetData($label8,"My Gold; "&$myGold)
Switch $selmobname ; choose enemymob name.
    Case $selmobname = 1
    $enemyName = $mname1
    Case $selmobname = 2
    $enemyName = $mname2
    Case $selmobname = 3
    $enemyName = $mname3
    Case $selmobname = 4
    $enemyName = $mname4
    Case $selmobname = 5
    $enemyName = $mname5
    Case $selmobname = 6
    $enemyName = $mname6
    EndSwitch
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"Oops! Vahşi bir pokemona rastladın! Biraz inceleyince bunun bir lvl "&$enemylvl&", "&$enemyName&" olduğunu anladın.")
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"Kendi evcil pokemonlarından, "&$myPoke&" derhal öne atılıyor ve senin  emirlerini bekliyor.")
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"Pokemonun ne yapmasını istersiniz?")
;_GUICtrlEdit_AppendText($Edit1, @CRLF&"Oops! Vahşi bir pokemona rastladın! Biraz inceleyince bunun bir lvl "&$enemylvl&", "&$enemyName&" olduğunu anladın.")
;_GUICtrlEdit_AppendText($Edit1, @CRLF&"Kendi evcil pokemonlarından, "&$myPoke&" derhal öne atılıyor ve senin  emirlerini bekliyor.")
;_GUICtrlEdit_AppendText($Edit1,@CRLF&"Pokemonun ne yapmasını istersiniz?")
_GUICtrlEdit_LineScroll ($edit1,_GUICtrlEdit_GetLineCount ($edit1)+1,_GUICtrlEdit_GetLineCount ($edit1)+1)
GUIctrlsetState($Button2,$GUI_ENABLE)
EndFunc

Func Button2Click()
If GUICtrlRead($Radio1) = 1 Then
    ;   _GUICtrlEdit_AppendText($Edit1,@CRLF&"myHp; "&$myHp&"EnemyHp; "&$enemyHp&"enemy lvl"&$enemylvl&"my lvl"&$myLvl)
    $myAttPw = Random($myLvl*3+3,$myLvl*4+3,1)
    $enemAttPw = Random($enemylvl*3+2,$enemylvl*4+3,1)
    $enemyHp = $enemyHp-$myAttPw
    $myHp = $myHp-$enemAttPw
Select
    Case $myhp < 1
        GUIctrlsetState($Button2,$GUI_DISABLE)
        $myhp = 100
        $myExp = $myExp - $myTotalExp*2/100
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"myHp; "&$myHp&" oh my god! i died!")
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"You lost"&$enemyExp&" experince points.")
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"Wild "&$enemyName&" runaway.")
;_GUICtrlEdit_AppendText($Edit1,@CRLF&"myHp; "&$myHp&" oh my god! i died!")
_GUICtrlEdit_LineScroll ($edit1,_GUICtrlEdit_GetLineCount ($edit1)+1,_GUICtrlEdit_GetLineCount ($edit1)+1)
;_GUICtrlEdit_AppendText($Edit1,@CRLF&"You lost"&$enemyExp&" experince points.")
;_GUICtrlEdit_AppendText($Edit1,@CRLF&"Wild "&$enemyName&" runaway.")
$myExpPerc = $myExp/$myTotalExp*100
GUICtrlSetData($Progress2,$myExpPerc)
$myHpPerc = $myhp/$myTotalHp*100
GUICtrlSetData($Progress1,$myHpPerc)
GUICtrlSetData($label4,"My lvl; "&$myLvl)
GUICtrlSetData($label5,"My hp; "&$myHp)
GUICtrlSetData($label6,"My exp; "&$myExp)


Case $enemyHp < 1
GUIctrlsetState($Button2,$GUI_DISABLE)
$myExp = $myExp + $enemyExp
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"myHp; "&$myHp&" Congrats! YOU WIN!!!")
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"You earned"&$enemyExp&" experince points.")
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"Your current total experince is; "&$myExp&" experince points.")
;_GUICtrlEdit_AppendText($Edit1,@CRLF&"myHp; "&$myHp&" Congrats! YOU WIN!!!")
_GUICtrlEdit_LineScroll ($edit1,_GUICtrlEdit_GetLineCount ($edit1)+1,_GUICtrlEdit_GetLineCount ($edit1)+1)
;_GUICtrlEdit_AppendText($Edit1,@CRLF&"You earned"&$enemyExp&" experince points.")
;_GUICtrlEdit_AppendText($Edit1,@CRLF&"Your current total experince is; "&$myExp&" experince points.")
$myHpPerc = $myhp/$myTotalHp*100
$myGold = $myGold+$enemyGold
GUICtrlSetData($label8,"My Gold; "&$myGold)
GUICtrlSetData($Progress1,$myHpPerc)
GUICtrlSetData($label4,"My lvl; "&$myLvl)
GUICtrlSetData($label5,"My hp; "&$myHp)
GUICtrlSetData($label6,"My exp; "&$myExp)
$myExpPerc = $myExp/$myTotalExp*100
GUICtrlSetData($Progress2,$myExpPerc)


Case $myhp >= 1 And $enemyHp >= 1
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&"Still alive both, My hp; "&$myhp&" Enemy hp; "&$enemyHp)
;_GUICtrlEdit_AppendText($Edit1,@CRLF&"Still alive both, My hp; "&$myhp&" Enemy hp; "&$enemyHp)
_GUICtrlEdit_LineScroll ($edit1,_GUICtrlEdit_GetLineCount ($edit1)+1,_GUICtrlEdit_GetLineCount ($edit1)+1)
$myHpPerc = $myhp/$myTotalHp*100
GUICtrlSetData($Progress1,$myHpPerc)
$myExpPerc = $myExp/$myTotalExp*100
GUICtrlSetData($Progress2,$myExpPerc)
GUICtrlSetData($label4,"My lvl; "&$myLvl)
GUICtrlSetData($label5,"My hp; "&$myHp)
GUICtrlSetData($label6,"My exp; "&$myExp)
EndSelect

    EndIf
If GUICtrlRead($Radio2) = 1 Then
    MsgBox(0,"Run","Running tried")
    EndIf
If GUICtrlRead($Radio3) = 1 Then
    MsgBox(0,"Capture","Capture tried")
    EndIf

EndFunc

Func Button3Click()
    $Store = GUICreate("Market", 300, 500, 894, 132, Default,Default,$Form1)
$sLabel1 = GUICtrlCreateLabel("Pokemonlarının bakımı ve maceranın devamı için mağazamızda aradığın herşeyi bulabilirsin...", 8, 8, 276, 33)
$sLabel2 = GUICtrlCreateLabel("Hp Pot:", 8, 48, 55, 17)
$sLabel3 = GUICtrlCreateLabel("Mp Pot:", 8, 72, 55, 17)
$sLabel4 = GUICtrlCreateLabel("PokeTopu:", 8, 96, 55, 17)
$sLabel5 = GUICtrlCreateLabel("Gold"&$myGold, 100, 456, 190, 17)
$sLabel6 = GUICtrlCreateLabel("Kasada "&$myHpPot&" adet var.", 180, 48, 80, 17)
$sLabel7 = GUICtrlCreateLabel("Kasada "&$myMpPot&" adet var.", 180, 72, 80, 17)
$sLabel8 = GUICtrlCreateLabel("Kasada "&$myPokeBall&" adet var.", 180, 96, 80, 17)
Global $sInput1 = GUICtrlCreateInput("0", 80, 48, 49, 21)
Global $sInput2 = GUICtrlCreateInput("0", 80, 72, 49, 21)
Global $sInput3 = GUICtrlCreateInput("0", 80, 96, 49, 21)
Global $sButton1 = GUICtrlCreateButton("Satın Al", 208, 456, 75, 25)
GUICtrlSetOnEvent(-1,"Buy")
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseStore",$Store)
   GUISetState(@SW_SHOW)

EndFunc
Func Buy()
Global $myHpPot = $myHpPot + GUICtrlRead($sInput1)
Global $myMpPot = $myMpPot + GUICtrlRead($sInput2)
Global $myPokeBall = $myHpPot + GUICtrlRead($sInput3)
GUICtrlSetData($sLabel6,"Kasada "&$myHpPot&" adet var.")
GUICtrlSetData($sLabel7,"Kasada "&$myMpPot&" adet var.")
GUICtrlSetData($sLabel8,"Kasada "&$myPokeBall&" adet var.")
EndFunc


Func CloseStore()
    GUIDelete(@GUI_WinHandle)
    EndFunc
Func Form1Maximize()
EndFunc


Func Form1Close()
Exit
EndFunc

Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc

Pokemon.au3

Share this post


Link to post
Share on other sites

Please see the sticky post at the top of the forum about Game Bots.

We don't do game bots on this forum.

;)


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

Please see the sticky post at the top of the forum about Game Bots.

We don't do game bots on this forum.

;)

Omg why everybody talk about bots.!

ITS NOT A BOT

Nothing even close to bot.

If you even execute script you will see (sorry its not english but you can still understand.)

There is no internet. no web site. no clicking. no nothing about game bot!

It's just some text based game. Or it will be text based game... :)

so i need help ;)

Share this post


Link to post
Share on other sites

Omg why everybody talk about bots.!

ITS NOT A BOT

Nothing even close to bot.

If you even execute script you will see (sorry its not english but you can still understand.)

There is no internet. no web site. no clicking. no nothing about game bot!

It's just some text based game. Or it will be text based game... ;)

so i need help :)

So what is this Pokemon thing going to be?

Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

You know before those computer games get fancy graphics, we had text based games. It's like puzzles but has more than 1 way.

It will be like one of them. You choose a pokemon, wonder around, find new pokemons, fight with them. earn gold, experince. and spend gold on some potions...

etc. etc.

but all of the actions will going on that text box :]

maybe some jpg. but thats all...

So back on my problem. On this new window. my BUy ($sButton1) button isn't working. I cant click on it...

Share this post


Link to post
Share on other sites

I solved problem ;)

I was forgot the "$WS_GROUP" style.

Lock and delete topic pls...

Share this post


Link to post
Share on other sites

I solved problem ;)

I was forgot the "$WS_GROUP" style.

Lock and delete topic pls...

lol

Don't be ridiculous.


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0