Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Kod]Pomoc do plemion

Lobod

Przez Lobod
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

Lobod Odkrywca

Lobod

Opublikowano
Odkrywca

Lobod

Opublikowano

Dzięki pomocy kolegów z forum zrobiłem coś takiego:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FF.au3>
GUICreate("Pomoc do plemion",700,70,300,200,0x80000,8)
$Input2 = GUICtrlCreateInput("", 1, 18, 30,20)
$Input3 = GUICtrlCreateInput("", 500, 18, 60,20)
if IniRead("value.ini","Wartosci","Dane",0)=1 Then
$User = IniRead("value.ini","Wartosci","Swiat",'0')
GUICtrlSetData($Input2,$User)
EndIf
if IniRead("value.ini","Atak","Atak",0)=1 Then
$User1 = IniRead("value.ini","Atak","ID",'0')
GUICtrlSetData($Input3,$User1)
EndIf
GUICtrlSetTip($input2,"Numer świata na którym grasz.",' ',2)
GUICtrlSetTip($input3,"Wpisz ID Wioski do zaatakowania. " & @LF & "Można je zdobyć 2 razy klikając na wioske na mapie i mamy'screen=info_village&id=xxxxx' i to xxxx to id :] .",' ',2)
$Button1 = GUICtrlCreateButton("Ratusz", 50, 15, 50, 25)
$Button2 = GUICtrlCreateButton("Koszary", 100, 15, 50, 25)
GUICtrlCreateLabel("Atak i Obrona:", 500, 1, 100, 17)
GUICtrlCreateLabel("Budynki:", 100, 1, 100, 13)
GUICtrlCreateLabel("Świat:", 1, 1, 100, 13)
$Button3 = GUICtrlCreateButton("Plac", 150, 15, 50, 25)
$Button4 = GUICtrlCreateButton("Pałac", 200, 15, 50, 25)
$Button5 = GUICtrlCreateButton("Rozkaz", 570, 15, 50, 25)
GUISetState()
Start()
Func Start()
if IniRead("value.ini","Wartosci","Dane",0)=0 Then
IniWrite("value.ini","Wartosci","Swiat",GUICtrlRead($input2))
IniWrite("value.ini","Wartosci","Dane",1)
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Ratusz()
Case $Button2
Koszary()
Case $Button3
Plac()
Case $Button4
Palac()
Case $Button5
Atak()
EndSwitch
WEnd
EndFunc
func Ratusz()
$s1= GUICtrlRead($Input2)
$S2= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=main"
_FFOpenURL($s2)
Start()
EndFunc

func Koszary()
$s1= GUICtrlRead($Input2)
$S3= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=barracks"
_FFOpenURL($s3)
Start()
EndFunc

func Plac()
$s1= GUICtrlRead($Input2)
$S4= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=place"
_FFOpenURL($s4)
Start()
EndFunc

func Palac()
$s1= GUICtrlRead($Input2)
$S5= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=snob"
_FFOpenURL($s5)
Start()
EndFunc
func atak()
if IniRead("value.ini","Wartosci","Atak",0)=0 Then
IniWrite("value.ini","Atak","ID",GUICtrlRead($input3))
IniWrite("value.ini","Atak","Atak",1)
EndIf
$s1= GUICtrlRead($Input2)
$a1= GUICtrlRead($Input3)
$S6= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=place&target=" & $a1
_FFOpenURL($S6)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Ratusz()
Case $Button2
Koszary()
Case $Button3
Plac()
Case $Button4
Palac()
Case $Button5
Atak()
EndSwitch
WEnd
EndFunc

Jest to program do plemion z podobnymi funkcjami jak pasek skrótów dla premium z funkcjami zapamiętywania świata na którym grasz.

Oceniajcie aczkolwiek jest to moje 1 dzieło i jeszcze jestem zielony w AutoIt. :)

kb8.png

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

Opublikowano

Zielony jak cegł.... yyy, jak zioło/trawa? Czy tam cokolwiek... No nawet ujdzie, aczkolwiek chujowe... Nie no jak na 1 raz to, pisz dalej...

Lobod Odkrywca

Lobod

Opublikowano
Odkrywca

Lobod

  • Autor
Opublikowano

THX wszystkim bd pisał dalej i i jeszcze raz sorry dla hfaua za FF.

A coś takiego?

#include<ie.AU3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
$oIE = _IECreateEmbedded()

$Form1 = GUICreate("Plemiona.pl ", 1110, 810, 50, 20)
$Input2 = GUICtrlCreateInput("", 1, 18, 30,20)
$Input3 = GUICtrlCreateInput("", 500, 18, 60,20)
if IniRead("value.ini","Wartosci","Dane",0)=1 Then
$User = IniRead("value.ini","Wartosci","Swiat",'0')
GUICtrlSetData($Input2,$User)
EndIf
if IniRead("value.ini","Atak","Atak",0)=1 Then
$User1 = IniRead("value.ini","Atak","ID",'0')
GUICtrlSetData($Input3,$User1)
EndIf
GUICtrlSetTip($input2,"Numer świata na którym grasz.",' ',2)
GUICtrlSetTip($input3,"Wpisz ID Wioski do zaatakowania. " & @LF & "Można je zdobyć 2 razy klikając na wioske na mapie i mamy'screen=info_village&id=xxxxx' i to xxxx to id :] .",' ',2)
$Button1 = GUICtrlCreateButton("Ratusz", 50, 15, 50, 25)
$Button2 = GUICtrlCreateButton("Koszary", 100, 15, 50, 25)
GUICtrlCreateLabel("Atak i Obrona:", 500, 1, 100, 17)
GUICtrlCreateLabel("Budynki:", 100, 1, 100, 13)
GUICtrlCreateLabel("Świat:", 1, 1, 100, 13)
$Button3 = GUICtrlCreateButton("Plac", 150, 15, 50, 25)
$Button4 = GUICtrlCreateButton("Pałac", 200, 15, 50, 25)
$Button5 = GUICtrlCreateButton("Rozkaz", 570, 15, 50, 25)
$Button6 = GUICtrlCreateButton("Piedestał", 250, 15, 50, 25)
GUISetState()
$1=GUICtrlCreateObj($oIE, 10, 50, 1090, 750)
  _ieNavigate($oIE, "Plemiona.pl")
_IELoadWait($oie)
Start()
Func Start()
  if IniRead("value.ini","Wartosci","Dane",0)=0 Then
IniWrite("value.ini","Wartosci","Swiat",GUICtrlRead($input2))
IniWrite("value.ini","Wartosci","Dane",1)
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Wyj()
Case $Button1
  Ratusz()
Case $Button2
  Koszary()
Case $Button3
  Plac()
Case $Button4
  Palac()
Case $Button5
  Atak()
Case $Button6
  Pie()
EndSwitch
WEnd
EndFunc
func Ratusz()
  $s1= GUICtrlRead($Input2)
  $S2= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=main"
  _ieNavigate($oIE,$s2)
Start()
  EndFunc
func Koszary()
  $s1= GUICtrlRead($Input2)
  $S3= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=barracks"
  _ieNavigate($oIE,$s3)
Start()
  EndFunc
  func Plac()
  $s1= GUICtrlRead($Input2)
  $S4= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=place"
  _ieNavigate($oIE,$s4)
Start()
  EndFunc
func Palac()
  $s1= GUICtrlRead($Input2)
  $S5= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=snob"
  _ieNavigate($oIE,$s5)
Start()
  EndFunc
func atak()
   if IniRead("value.ini","Wartosci","Atak",0)=0 Then
IniWrite("value.ini","Atak","ID",GUICtrlRead($input3))
IniWrite("value.ini","Atak","Atak",1)
EndIf
$s1= GUICtrlRead($Input2)
$a1= GUICtrlRead($Input3)
  $S6= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=place&target=" & $a1
  _ieNavigate($oIE,$S6)
  While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Wyj()
Case $Button1
  Ratusz()
Case $Button2
  Koszary()
Case $Button3
  Plac()
Case $Button4
  Palac()
Case $Button5
  Atak()
Case $Button6
  Pie()
EndSwitch
WEnd
EndFunc
func Pie()
  $s1= GUICtrlRead($Input2)
  $S7= "http://pl" & $s1 & ".plemiona.pl/game.php?screen=statue"
  _ieNavigate($oIE,$s7)
Start()
  EndFunc
 func wyj()
$s1= GUICtrlRead($Input2)
  _ieNavigate($oIE,"http://pl" & $s1 & ".plemiona.pl/game.php?screen=&action=logout", 0)
  sleep(3000)
GUICtrlDelete($1)
  Exit
EndFunc

kb8.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...