Beiträge von sedas

[FELD=" "]#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <_ToolTipMouseExit.au3>
#include <IE.au3>
#include <array.au3>
#include <File.au3>
#include <Guilistview.au3>

$Form1_1 = GUICreate("Fly For Fun Gm Tool v2 ~© by Michael/Sedas~", 562, 422, 196, 128)
$Tab1 = GUICtrlCreateTab(0, 0, 561, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("GM Character")
$Group1 = GUICtrlCreateGroup("Unsichbar", 8, 24, 89, 73)
$Button1 = GUICtrlCreateButton("Set", 16, 72, 65, 17, $WS_GROUP)
$Radio12 = GUICtrlCreateRadio("Unsichtbar", 16, 40, 73, 17)
$Radio13 = GUICtrlCreateRadio("Sichtbar", 16, 56, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Teleport", 312, 24, 105, 129)
$Input1 = GUICtrlCreateInput("Name", 320, 104, 81, 21)
$Button2 = GUICtrlCreateButton("Teleport", 320, 128, 83, 19, $WS_GROUP)
$Combo1 = GUICtrlCreateCombo("Flaris", 320, 80, 81, 25)
GUICtrlSetData(-1, "Saint Morning|Darkon|Vulcan|Char To Me|Me To Char")
$Pic7 = GUICtrlCreatePic(@ScriptDir & "\images\teleport.bmp", 376, 32, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("PvP Pionts", 8, 96, 89, 89)
$Input2 = GUICtrlCreateInput("", 16, 136, 73, 21)
$Button3 = GUICtrlCreateButton("Set", 16, 160, 75, 17, $WS_GROUP)
$Combo3 = GUICtrlCreateCombo("PvP Pionts", 16, 112, 73, 25)
GUICtrlSetData(-1, "Pk Pionts")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Stats", 104, 88, 89, 89)
$Input3 = GUICtrlCreateInput("15", 136, 128, 49, 21)
$Button6 = GUICtrlCreateButton("Set", 136, 152, 51, 17, $WS_GROUP)
$Combo2 = GUICtrlCreateCombo("STR", 136, 104, 49, 25)
GUICtrlSetData(-1, "STA|DEX|INT")
$Pic9 = GUICtrlCreatePic(@ScriptDir & "\images\restat.bmp", 105, 104, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("Skill", 104, 24, 89, 65)
$Button7 = GUICtrlCreateButton("Set", 112, 64, 59, 17, $WS_GROUP)
$Radio11 = GUICtrlCreateRadio("All Max", 112, 40, 57, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("God Mode", 200, 24, 105, 129)
$Combo4 = GUICtrlCreateCombo("God Mode", 208, 104, 89, 25)
GUICtrlSetData(-1, "God Mode Dmg|No God Mode")
$Button4 = GUICtrlCreateButton("Set", 208, 128, 91, 17, $WS_GROUP)
$Pic8 = GUICtrlCreatePic(@ScriptDir & "\images\Godmode.bmp", 224, 40, 59, 59, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Job and Level", 424, 24, 129, 169)
$Combo5 = GUICtrlCreateCombo("Mercenary", 432, 40, 81, 25)
GUICtrlSetData(-1, "Knight|Blade|Acrobat|Jester|Ranger|Assist|Ringmaster|Billposter|Magican|Psykeeper|Elementor|")
$Button5 = GUICtrlCreateButton("Set", 432, 160, 83, 25, $WS_GROUP)
$Input4 = GUICtrlCreateInput("LvL", 432, 136, 73, 21)
$Radio5 = GUICtrlCreateRadio("Master", 432, 72, 49, 17)
$Radio6 = GUICtrlCreateRadio("Hero", 432, 104, 41, 17)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\images\MASTER.bmp", 488, 65, 25, 25, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\images\HERO.bmp", 488, 96, 25, 25, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("Kicken uzw", 8, 192, 137, 137)
$Combo6 = GUICtrlCreateCombo("Kicken", 12, 207, 121, 25)
GUICtrlSetData(-1, "Freeze|No Freeze|Get Ip|Mute|Un Mute|Mute for Seconds")
$Input6 = GUICtrlCreateInput("Seconds", 12, 271, 121, 21)
$Input5 = GUICtrlCreateInput("Name", 12, 239, 121, 21)
$Button8 = GUICtrlCreateButton("Set", 16, 300, 123, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group9 = GUICtrlCreateGroup("Party and Guild", 216, 152, 201, 113)
$Combo7 = GUICtrlCreateCombo("Party Level & Pionts", 224, 168, 177, 25)
GUICtrlSetData(-1, "Guild Ranking Reset (Press direkt Set)|Guild Exp|Guild Penya|Guild Create|Guild Destroy (Press direkt Set)")
$Input7 = GUICtrlCreateInput("Party Level & Pionts", 224, 192, 177, 21)
$Input8 = GUICtrlCreateInput("Guild Exp/Penya ore Name", 224, 216, 177, 21)
$Button9 = GUICtrlCreateButton("Set", 224, 240, 179, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group10 = GUICtrlCreateGroup("Snow and Rain", 424, 192, 129, 185)
$Button10 = GUICtrlCreateButton("Set", 432, 344, 75, 25, $WS_GROUP)
$Radio7 = GUICtrlCreateRadio("Snow Fall", 432, 216, 73, 17)
$Radio8 = GUICtrlCreateRadio("Snow Stop", 432, 248, 73, 17)
$Radio9 = GUICtrlCreateRadio("Rain Fall", 432, 280, 73, 17)
$Radio10 = GUICtrlCreateRadio("Rain Stop", 432, 312, 65, 17)
$Pic3 = GUICtrlCreatePic(@ScriptDir & "\images\let_it_snow.bmp", 504, 208, 35, 35, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\images\sonne.bmp", 504, 240, 35, 35, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic5 = GUICtrlCreatePic(@ScriptDir & "\images\RainIcon.bmp", 504, 272, 35, 35, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic6 = GUICtrlCreatePic(@ScriptDir & "\images\sonne.bmp", 504, 304, 35, 35, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group11 = GUICtrlCreateGroup("Gm MSG", 152, 272, 265, 73)
$Input9 = GUICtrlCreateInput("", 160, 288, 249, 21)
GUICtrlSetLimit(-1, 53)
$Input9 = GUICtrlCreateInput("", 160, 288, 249, 21)
$Button11 = GUICtrlCreateButton("Send", 160, 312, 251, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group14 = GUICtrlCreateGroup("Gamer On", 152, 184, 57, 81)
$Button13 = GUICtrlCreateButton("Count", 160, 200, 43, 57, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic10 = GUICtrlCreatePic(@ScriptDir & "\images\autoit.bmp", 0, 376, 564, 20, BitOR($SS_NOTIFY,$WS_GROUP))
$TabSheet2 = GUICtrlCreateTabItem("Game and Item")
$Group12 = GUICtrlCreateGroup("Npc Spawn", 8, 24, 249, 97)
$Input10 = GUICtrlCreateInput("ID", 72, 48, 57, 21)
$Input11 = GUICtrlCreateInput("Stück", 136, 48, 41, 21)
$Button12 = GUICtrlCreateButton("Spawn", 80, 80, 59, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("NPC INFO TEXT -->", 152, 80, 100, 17)
$Combo11 = GUICtrlCreateCombo("Nein", 184, 48, 65, 25)
GUICtrlSetData(-1, "Ja")
$Label2 = GUICtrlCreateLabel("Aggro:", 184, 32, 35, 17)
$Pic21 = GUICtrlCreatePic(@ScriptDir & "\images\bewegen.jpg", 10, 40, 60, 60, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group13 = GUICtrlCreateGroup("NPC INFO", 264, 24, 249, 97)
$Combo8 = GUICtrlCreateCombo("Npc Name and Id (Part 1)", 272, 40, 233, 25)
GUICtrlSetData(-1, "20 Small Aibatt|21 Aibatt|22 Captain Aibatt|23 Giant Aibatt|96 Small Mushpang|97 Mushpang|98 Captain Mushpang|99 Giant Mushpang|24 Small Burudeng|25 Burudeng|26 Captain Burudeng|27 Giant Burudeng|28 Small Pukepuke|29 Pukepuke|30 Captain Pukepuke|31 Giant Pukepuke|524 Small Peakyturtle|525 Peakyturtle|526 Captain Peakyturtle|527 Giant Peakyturtle|88 Urchin Demian|89 Demian|90 Bad Demian|91 Giant Demian|32 Small Doridoma|33 Doridoma|34 Captain Doridoma|35 Giant Doridoma|36 Young Lawolf|37 Lawolf|38 Grownup Lawolf|39 Giant Lawolf|60 1st Class Fefern|61 Fefern|62 2nd Class Fefern|63 Giant Fefern|40 Cute Nyangnyang|41 Nyangnyang|42 Creep Nyangnyang|43 Giant Nyangnyang|44 Bang|45 Captain Bang|46 Boss Bang|47 Giant Bang|48 Small Wagsaac|49 Wagsaac|50 Captain Wagsaac|51 Giant Wagsaac|120 Small Mia|121 Mia|122 Captain Mia|123 Giant Mia|68 Stale Mr. Pumpkin|69 Mr. Pumpkin|70 Rotten Mr Pumpkin|71 Giant Mr. Pumpkin|64 Red Mantis C|65 Red Mantis B|66 Red Mantis A|67 Giant Red Mantis|552 Small Jack the Hammer|553 Jack the Hammer|554 Captain Jack the Hammer|555 Giant Jack the Hammer|400 Small Giggle Box|401 Giggle Box|402 Captain Giggle Box|403 Giant Giggle Box|92 Small Rock Muscle|93 Rock Muscle|94 Captain Rock Muscle|95 Giant Rock Muscle|528 Small Hobo|529 Hobo|530 Captain Hobo|531 Giant Hobo|544 Small Dumb Bull|545 Dumb Bull|546 Captain Dumb Bull|547 Giant Dumb Bull|103 Small Totemia|104 Totemia|105 Captain Totemia|106 Giant Totemia|84 Maid Cardpuppet|85 Cardpuppet|86 Manager Cardpuppet|87 Boss Cardpuppet|56 Small Tombstone Bearer|57 Tombstone Bearer|58 Captain Tombstone Bearer|59 Giant Tombstone Bearer|72 Phantom Basque|73 Basque|74 Lumping Basque|75 Giant Basque|80 Small Mage Prankster|81 Prankster|82 Master Mage Prankster|83 Giantmage Prankster|52 Rough Wheelem|53 Wheelem|54 Bouncing Wheelem|55 Giant Wheelem|540 Small Leyena|541 Leyena|542 Captain Leyena|543 Giant Leyena|107 Small Steam Walker|108 Steam Walker|109 Captain Steam Walker|110 Giant Steam Walker|508 Small Steel Knight|509 Steel Knight|510 Captain Steel Knight|511 Giant Steel Knight|548 Small Nutty Wheel|549 Nutty Wheel|550 Captain Nutty Wheel|551 Giant Nutty Wheel|504 Small Driller|505 Driller|506 Captain Driller|507 Giant Driller|112 Small Volt|113 Volt|114 Captain Volt|115 Giant Volt|512 Small Elderguard|513 Elderguard|514 Captain Elderguard|515 Giant Elderguard|404 Small Garbagepider|405 Garbagepider|406 Captain Garbagepider|407 Giant Garbagepider|516 Small Crane Machinery|517 Crane Machinery|518 Captain Crane Machinery|519 Giant Crane Machinery|304 Small Mothbee|305 Mothbee|306 Captain Mothbee|307 Giant Mothbee|300 Small Flbyrigen|301 Flbyrigen|302 Captain Flbyrigen|303 Giant Flbyrigen|308 Small Rockepeller|309 Rockepeller|310 Captain Rockepeller|311 Giant Rockepeller|116 Small Circus Bear|117 Circus Bear|118 Captain Circus Bear|119 Giant Circus Bear|500 Small Greemong|501 Greemong|502 Captain Greemong|503 Giant Greemong|130 Small Pire|131 Pire|132 Captain Pire|133 Giant Pire|532 Small Clawdoll|533 Clawdoll|534 Captain Clawdoll|535 Giant Clawdoll|536 Small Carrierbomb|537 Carrierbomb|538 Captain Carrierbomb|539 Giant Carrierbomb|408 Small Rampage Butcher|409 Small Rampage Butcher|410 Captain Rampage Butcher|411 Giant Rampage Butcher|134 Small Froziest|135 Froziest|136 Captain Froziest|137 Giant Froziest|160 Small Burn Bird|161 Burn Bird|162 Captain Burn Bird|163 Giant Burn Bird|164 Clockworks|190 Small Buketfoot|191 Buketfoot|192 Captain Buketfoot|193 Giant Buketfoot|560 Small Nuctuvehicle|561 Nuctuvehicle|562 Captain Nuctuvehicle|563 Giant Nuctuvehicle|568 Young Syliaca|569 Syliaca|570 Grownup Syliaca|571 Giant Syliaca|564 Small Risem|565 Risem|566 Captain Risem|567 Giant Risem|572 Small Zombiger|573 Zombiger|574 Captain Zombiger|575 Giant Zombiger|577 Small Flybat|578 Flybat|579 Captain Flybat|580 Giant Flybat|581 Small Bucrow|582 Bucrow|583 Captain Bucrow|584 Giant Bucrow|585 Small Scorpicon|586 Scorpicon|587 Captain Scorpicon|588 Giant Scorpicon|589 Small Trangfoma|590 Trangfoma|591 Captain Trangfoma|592 Giant Trangfoma")
$Combo9 = GUICtrlCreateCombo("Npc Name and Id (Part 2)", 272, 64, 233, 25)
GUICtrlSetData(-1, "556 Mine Catcher|557 Erons Catcher|558 Krasec Catcher|559 Guru Catcher|622 Small Grrr|623 Grrr|624 Captain Grrr|625 Giant Grrr|646 Small Dump|647 Dump|648 Captain Dump|649 Giant Dump|618 Small Nautrepy|619 Nautrepy|620 Captain Nautrepy|621 Giant Nautrepy|602 Small Boo|603 Boo|604 Captain Boo|605 Giant Boo|638 Small Hoppre|639 Hoppre|640 Captain Hoppre|641 Giant Hoppre|630 Small Mushpoie|631 Mushpoie|632 Captain Mushpoie|633 Giant Mushpoie|598 Small Iren|599 Iren|600 Captain Iren|601 Giant Iren|594 Small Watangka|595 Watangka|596 Captain Watangka|597 Giant Watangka|626 Small Antiquery|627 Antiquery|628 Captain Antiquery|629 Giant Antiquery|606 Small Luia|607 Luia|608 Captain Luia|609 Giant Luia|642 Small Gongury|643 Gongury|644 Captain Gongury|645 Giant Gongury|614 Small Shuhamma|615 Shuhamma|616 Captain Shuhamma|617 Giant Shuhamma|650 Small Kern|651 Kern|652 Captain Kern|653 Giant Kern|610 Small Glaphan|611 Glaphan|612 Captain Glaphan|613 Giant Glaphan|654 Mutant Fefern|655 Mutant Fefern King|656 Mutant Giant 2nd Class Fefern|657 Mutant Nyangnyang|658 Mutant Nyangnyang Queen|659 Mutant Giant Nyangnyang|660 Mutant Bang|661 Mutant Boss Bang|662 Mutant Giant Bang King|664 Worm Veduque|665 Serus Uriel|666 Vice Veduque|100 Brazenface Pukepuke|101 Heartless Bang|102 Tough Rock Muscle|111 Flying Aibatt|199 Beast Mr. Pumpkin|196 Master Demian|197 Master Keakoon|198 Master Muffrin|669 Captain Guard|593 Guru Catcher|663 Venel Guardian|688 Ren|690 Rubo|689 Sisif|687 Shuraiture|751 Babari|750 Chaner|752 Seido|841 Kidler|842 Shacalpion|843 Hoiren|844 Hunter X|845 Kynsy|800 Red Bang Troupe Member|821 Emeraldmantis|827 Lord Bang Hanoyan|840 Mother Yoln|846 Clocks|811 Member of the Violet Magician Troupe|812 Member of the Violet Magician Troupe|816 Arc Master of the Violet Magician Troupe|817 Red Bang Troupe Leader|818 Lord Bang|813 Organigor|814 Gangard|815 Hadeseor|236 Santa|237 Priest|238 Chitos|239 Polar Bear|667 Guardian NPC|668 Chaos Guardian NPC|719 Criminal Fefern|670 Criminal Wagsaac|671 Criminal Mr. Pumpkin|672 Criminal Gigglebox|673 Criminal Hobo|674 Criminal Cardpuppet|675 Criminal Basque|676 Criminal Leyena|677 Criminal Steelknight|678 Criminal Volt|679 Criminal Garbagepider|680 Criminal Greemong|681 Criminal Hoppre|682 Criminal Iren|683 Criminal Watangka|684 Criminal Luia|685 Criminal Shuhamma|686 Criminal Glaphan|691 Keakoon Worker|692 Keakoon Guard|693 Keakoon Worker Leader|694 Keakoon Guard Leader|695 Elite Keakoon Worker|696 Elite Keakoon Guard|697 Elite Keakoon Worker Leader|698 Elite Keakoon Guard Leader|699 Mutant Keakoon Worker|700 Mutant Keakoon Guard|701 Mutant Keakoon Worker Leader|702 Mutant Keakoon Guard Leader|703 Pink Roach|704 Blue Roach|705 Pink Roach Queen|718 Blue Roach Queen|716 Pink Roach Larva|717 Blue Roach Larva|707 Green Trillipy|708 Hazardous Green Trillipy|709 Violet Trillipy|710 Hazardous Violet Trillipy|711 Blood Trillipy|712 Hazardous Blood Trillipy|713 Chimeradon|714 Giant Chimeradon|715 Meteonyker|753 Red Meteonyker|754 Blue Meteonyker|755 Green Meteonyker|874 Cyclops X|820 Ant Turtle|819 Big Muscle|165 Big Muscle|166 Krrr|167 Mushmoot|168 Small Mushpoie|206 Beast Zombiger|822 Lord Clockworks Alpha|823 Brigadier General Crumple|824 Lieutenant General Scythoid|825 Air Marshall Spiketail|826 General Glyphaxz|855 Ivillis Crasher|856 Ivillis Poisoner|857 Ivillis Wrecker|858 Ivillis Destroyer|859 Ivillis Puppet|860 Ivillis Thief|861 Ivillis Guardian|862 Ivillis Quaker|863 Ivillis Mushellizer|864 Ivillis Leanes|865 Ivillis Red Otem|866 Ivillis Black Otem|867 Ivillis Boxter|868 Ivillis Dandysher|828 Soldier Chimeradon|829 Brigadier Chimeradon|830 Major Chimeradon|832 Lieutenant Chimeradon|832 General Chimeradon|833 Private Bearnerky|834 Specialist Bearnerky|835 Sergeant Bearnerky|836 Captian Bearnerky|837 General Bearnerky|634 Trainee Chef Muffrin|635 3rd Chef Muffrin|636 2nd Chef Muffrin|637 1st Chef Muffrin|838 Great Chef Muffrin|520 Pawn Popcrank|521 Knight Popcrank|522 Rook Popcrank|523 Bishop Popcrank|839 Queen Popcrank")
$Combo10 = GUICtrlCreateCombo("Npc Name and Id (Part 3)", 272, 88, 233, 25)
GUICtrlSetData(-1, "904 Yetti|905 Mutant Yetti|906 Augu|907 Mutant Augu|908 Ghost of the Forgotten Prince|909 Ghost of the Forgotten King|911 Mammoth|912 Cannibal Mammoth|913 Collins|914 Small Maid Cardpuppet|915 Small Mia|917 GM Lysis|918 GM Demian|919 GM Redsun|920 GM Blackpure")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group16 = GUICtrlCreateGroup("Awaken Item", 8, 184, 209, 161)
$Label3 = GUICtrlCreateLabel("Das Item muss im ersten Inventarplatz sein", 8, 200, 204, 17)
$Combo12 = GUICtrlCreateCombo("Str", 8, 248, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetData(-1, "Dex|Int|Sta|Critical Rate|Moving Speed|Additional Damage of Critical|Attack Speed|Max Hp|Max MP|Max FP|Defens Power|Attack Power|Castingtime Reducing of Mana")
$Label4 = GUICtrlCreateLabel("Awaken Cods:", 8, 224, 73, 17)
$Combo13 = GUICtrlCreateCombo("Str", 8, 272, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetData(-1, "Dex|Int|Sta|Critical Rate|Moving Speed|Additional Damage of Critical|Attack Speed|Max Hp|Max MP|Max FP|Defens Power|Attack Power|Castingtime Reducing of Mana")
$Combo14 = GUICtrlCreateCombo("Str", 8, 296, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetData(-1, "Dex|Int|Sta|Critical Rate|Moving Speed|Additional Damage of Critical|Attack Speed|Max Hp|Max MP|Max FP|Defens Power|Attack Power|Castingtime Reducing of Mana")
$Input13 = GUICtrlCreateInput("", 152, 248, 17, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$Label5 = GUICtrlCreateLabel("Count:", 176, 224, 35, 17)
$Input14 = GUICtrlCreateInput("", 152, 272, 17, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$Input15 = GUICtrlCreateInput("", 152, 296, 17, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$Button15 = GUICtrlCreateButton("Set", 8, 320, 203, 17, $WS_GROUP)
$Input19 = GUICtrlCreateInput("", 152, 248, 57, 21)
$Input20 = GUICtrlCreateInput("", 152, 272, 57, 21)
$Input21 = GUICtrlCreateInput("", 152, 296, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group15 = GUICtrlCreateGroup("Penya", 8, 120, 265, 65)
$Slider1 = GUICtrlCreateSlider(56, 136, 214, 21)
GUICtrlSetLimit(-1, 2100, 0)
$Button14 = GUICtrlCreateButton("Get Money", 64, 160, 203, 17, $WS_GROUP)
$Pic11 = GUICtrlCreatePic(@ScriptDir & "\images\Gold.jpg", 12, 136, 44, 36, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group18 = GUICtrlCreateGroup("Awaken Randome", 224, 248, 105, 41)
$Button17 = GUICtrlCreateButton("Set", 232, 264, 91, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group17 = GUICtrlCreateGroup("Collecter Upgrade", 224, 184, 105, 65)
$Slider2 = GUICtrlCreateSlider(232, 200, 86, 21)
GUICtrlSetLimit(-1, 5, 0)
$Button16 = GUICtrlCreateButton("Set", 232, 224, 83, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group19 = GUICtrlCreateGroup("Del Awak", 152, 344, 65, 49)
$Button18 = GUICtrlCreateButton("Del", 160, 360, 43, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group20 = GUICtrlCreateGroup("", -24, 176, 593, 9)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label6 = GUICtrlCreateLabel("Ab Hier müssen die Items im ersten Inventory", 280, 128, 215, 17)
$Group21 = GUICtrlCreateGroup("Piercing", 336, 184, 217, 105)
$Label10 = GUICtrlCreateLabel("Rüsstung max +4", 344, 200, 86, 17)
$Label11 = GUICtrlCreateLabel("Waffen max +10", 344, 216, 82, 17)
$Slider3 = GUICtrlCreateSlider(344, 232, 206, 29)
GUICtrlSetLimit(-1, 10, 0)
$Button19 = GUICtrlCreateButton("Set", 384, 264, 91, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group22 = GUICtrlCreateGroup("Schmuck Upgrade", 8, 344, 137, 49)
$Slider4 = GUICtrlCreateSlider(16, 360, 86, 21)
GUICtrlSetLimit(-1, 20, 0)
$Button20 = GUICtrlCreateButton("Set", 104, 352, 35, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group23 = GUICtrlCreateGroup("Item Upgrade", 224, 288, 329, 105)
$Slider5 = GUICtrlCreateSlider(320, 320, 230, 21)
GUICtrlSetLimit(-1, 20, 0)
$Label12 = GUICtrlCreateLabel("Elementar Stufe:", 232, 320, 82, 17)
$Label13 = GUICtrlCreateLabel("Item Stufe:", 232, 344, 55, 17)
$Slider6 = GUICtrlCreateSlider(320, 344, 230, 21)
GUICtrlSetLimit(-1, 10, 0)
$Button21 = GUICtrlCreateButton("Set", 232, 368, 155, 17, $WS_GROUP)
$Radio1 = GUICtrlCreateRadio("Feuer", 232, 304, 49, 17)
$Radio2 = GUICtrlCreateRadio("Wasser", 288, 304, 57, 17)
$Radio3 = GUICtrlCreateRadio("Blitz", 352, 304, 41, 17)
$Radio4 = GUICtrlCreateRadio("Wind", 400, 304, 49, 17)
$Radio14 = GUICtrlCreateRadio("Erde", 448, 304, 49, 17)
$Radio15 = GUICtrlCreateRadio("Nichts", 496, 304, 49, 17)
$Button33 = GUICtrlCreateButton("Set Two", 392, 368, 155, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic22 = GUICtrlCreatePic(@ScriptDir & "\images\pfeil_runter.bmp", 504, 128, 28, 52, BitOR($SS_NOTIFY,$WS_GROUP))
$Label7 = GUICtrlCreateLabel("Slot sein.", 280, 144, 47, 17)
$TabSheet3 = GUICtrlCreateTabItem("Misc and Pet Commands")
$Group24 = GUICtrlCreateGroup("Freundschaft", 8, 24, 113, 65)
$Button22 = GUICtrlCreateButton("Erlauben", 16, 40, 99, 17, $WS_GROUP)
$Button23 = GUICtrlCreateButton("Ablehnen", 16, 64, 99, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group25 = GUICtrlCreateGroup("Shouts Sehn", 280, 24, 129, 65)
$Button26 = GUICtrlCreateButton("Ja", 288, 40, 107, 17, $WS_GROUP)
$Button27 = GUICtrlCreateButton("Nein", 288, 64, 107, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group26 = GUICtrlCreateGroup("Party Invite", 136, 24, 129, 65)
$Button24 = GUICtrlCreateButton("Erlauben", 144, 40, 115, 17, $WS_GROUP)
$Button25 = GUICtrlCreateButton("Ablehnen", 144, 64, 115, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group27 = GUICtrlCreateGroup("Pet Atribute", 376, 88, 177, 305)
$Slider7 = GUICtrlCreateSlider(384, 176, 30, 101, BitOR($TBS_VERT,$TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 9, 0)
$Label14 = GUICtrlCreateLabel("Char Name:", 384, 104, 60, 17)
$Input16 = GUICtrlCreateInput("", 448, 96, 97, 21)
$Slider8 = GUICtrlCreateSlider(416, 176, 30, 101, BitOR($TBS_VERT,$TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 9, 0)
$Slider9 = GUICtrlCreateSlider(448, 176, 30, 101, BitOR($TBS_VERT,$TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 9, 0)
$Slider10 = GUICtrlCreateSlider(480, 176, 30, 101, BitOR($TBS_VERT,$TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 9, 0)
$Slider11 = GUICtrlCreateSlider(512, 176, 30, 101, BitOR($TBS_VERT,$TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 9, 0)
$Label15 = GUICtrlCreateLabel("Pet Art:", 384, 120, 39, 17)
$Combo15 = GUICtrlCreateCombo("Tiger", 448, 120, 97, 25)
GUICtrlSetData(-1, "Lion|Rabbit|Fox|Dragon|Griffin|Unicorn")
$Label16 = GUICtrlCreateLabel("Pet LvL:", 384, 136, 44, 17)
$Label17 = GUICtrlCreateLabel("D", 392, 160, 15, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label18 = GUICtrlCreateLabel("B", 424, 160, 14, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label19 = GUICtrlCreateLabel("C", 456, 160, 14, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label20 = GUICtrlCreateLabel("A", 488, 160, 14, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label21 = GUICtrlCreateLabel("S", 520, 160, 14, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label22 = GUICtrlCreateLabel("Exp:", 384, 280, 25, 17)
$Slider12 = GUICtrlCreateSlider(376, 296, 174, 21)
$Label23 = GUICtrlCreateLabel("Leben:", 384, 320, 37, 17)
$Slider13 = GUICtrlCreateSlider(376, 336, 174, 21)
GUICtrlSetLimit(-1, 99, 0)
$Button30 = GUICtrlCreateButton("Set", 384, 368, 163, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group28 = GUICtrlCreateGroup("Handel", 424, 24, 129, 65)
$Button28 = GUICtrlCreateButton("Erlauben", 432, 40, 107, 17, $WS_GROUP)
$Button29 = GUICtrlCreateButton("Ablehnen", 432, 64, 107, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic13 = GUICtrlCreatePic(@ScriptDir & "\images\pet.bmp", 8, 91, 364, 212, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic14 = GUICtrlCreatePic(@ScriptDir & "\images\Tiger.bmp", 8, 328, 36, 36, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic15 = GUICtrlCreatePic(@ScriptDir & "\images\Dragon.bmp", 64, 328, 36, 36, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic16 = GUICtrlCreatePic(@ScriptDir & "\images\Fox.bmp", 120, 328, 36, 36, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic17 = GUICtrlCreatePic(@ScriptDir & "\images\Griffin.bmp", 176, 328, 36, 36, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic18 = GUICtrlCreatePic(@ScriptDir & "\images\Rabbit.bmp", 224, 328, 36, 36, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic19 = GUICtrlCreatePic(@ScriptDir & "\images\Unicorn.bmp", 272, 328, 36, 36, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic20 = GUICtrlCreatePic(@ScriptDir & "\images\Lion.bmp", 320, 328, 36, 36, BitOR($SS_NOTIFY,$WS_GROUP))
$TabSheet4 = GUICtrlCreateTabItem("Items Adden")
GUICtrlSetState(-1,$GUI_SHOW)
$Group29 = GUICtrlCreateGroup("Items Adden", 8, 24, 545, 369)
$List2 = GUICtrlCreateListView("ID|Name", 16, 40, 273, 344)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 200)
$Pic23 = GUICtrlCreatePic(@ScriptDir & "\images\Flyff.JPG", 288, 32, 260, 356, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetState(-1,$GUI_DISABLE)
IF FileExists("ItemList.txt") Then
Local $read
_FileReadToArray(@ScriptDir&"\ItemList.txt",$read)
For $x4 = 1 To $read[0]
$4 = StringSplit ($read[$x4]," ")
GUICtrlCreateListViewItem($4[2]&"|"&$4[3],$List2)
Next
EndIf
$Input12 = GUICtrlCreateInput("ID", 304, 48, 121, 21)
$Input17 = GUICtrlCreateInput("Count", 304, 88, 121, 21)
$Button31 = GUICtrlCreateButton("Get Item", 304, 128, 123, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet5 = GUICtrlCreateTabItem("Credits")
$List1 = GUICtrlCreateList("", 8, 32, 441, 149)
GUICtrlSetData(-1, "Dieses Tool wurde von Sedas/Michael Erstellt.|Creat on FlyForEver|Ein Danke schön an Folgenden Leute:|-SaruGjn fürs Testen|-Sephiroth fürs Testen")
$Group30 = GUICtrlCreateGroup("Upload On", 8, 184, 441, 129)
$Button32 = GUICtrlCreateButton("http://www.mmorpg-core.com", 16, 200, 419, 25, $WS_GROUP)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Pic12 = GUICtrlCreatePic( @ScriptDir & "\images\mmorpg-core.bmp", 16, 232, 428, 68, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$Input18 = GUICtrlCreateInput("", 0, 400, 561, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input19 = GUICtrlCreateInput("", 152, 248, 17, 21)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)

do
$Msg = GUIGetMsg()

;~ Penya start
If $Msg = $Slider1 Then
$read1 = GUICtrlRead($Slider1)*1000000
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
_ToolTipMouseExit($read1,-1, -1, -1, "" , 0)

EndIf
If $Msg = $Button14 Then
$read1 = GUICtrlRead($Slider1)*1000000
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/getgold " & $read1)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndIf
;~ penya ende
;~ GM MSG Start
If $Msg = $Button11 Then
$read2 = GUICtrlRead($Input9)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/sys " & $read1)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndIf
;~ GM MSG Ende

;~ Gamer online start
If $Msg = $Button13 Then
$read2 = GUICtrlRead($Input9)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/count ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndIf
;~ Gamer online ende

;~ Unsichbar start
If $Msg = $Button1 Then
Select
Case GUICtrlRead($Radio12) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/invisible ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Radio13) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/noinvisible ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ Unsichbar end
;~ Teleport anfang
If $Msg = $Button2 Then
Select
Case GUICtrlRead($Combo1) = "Flaris"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/teleport 1 flaris ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif

Case GUICtrlRead($Combo1) = "Char To Me"
$read3 = GUICtrlRead($Input1)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/su " & $read3)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif

Case GUICtrlRead($Combo1) = "Saint Morning"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/teleport 1 saintmorning ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif

Case GUICtrlRead($Combo1) = "Darkon"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/teleport 1 darkon")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif

Case GUICtrlRead($Combo1) = "Vulcan"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/teleport 203 512 597")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif

Case GUICtrlRead($Combo1) = "Me To Char"
$read3 = GUICtrlRead($Input1)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/te " & $read3)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ Teleport ende
;~ Pvp und pk start
If $Msg = $Button3 Then
Select
Case GUICtrlRead($Combo3) = "PvP Pionts"
$read4 = GUICtrlRead($Input2)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/PvpParam " & $read4)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo3) = "Pk Pionts"
$read4 = GUICtrlRead($Input2)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/PKParam " & $read4)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ Pvp und pk ende
;~ stats start
If $Msg = $Button6 Then
Select
Case GUICtrlRead($Combo2) = "STR"
$read5 = GUICtrlRead($Input3)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/stat str " & $read5)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo2) = "STA"
$read5 = GUICtrlRead($Input3)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/stat sta " & $read5)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo2) = "DEX"
$read5 = GUICtrlRead($Input3)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/stat dex " & $read5)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo2) = "INT"
$read5 = GUICtrlRead($Input3)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/stat int " & $read5)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ stats ende
;~ skill all start
If $Msg = $Button7 Then
Select
Case GUICtrlRead($Radio11) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/skilllevelAll ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ skill all end
;~ god mode start
If $Msg = $Button4 Then
Select
Case GUICtrlRead($Combo4) = "God Mode"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/undying ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo4) = "God Mode Dmg"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/undying2 ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo4) = "No God Mode"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/noundying ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ god mode ende
;~ job start
If $Msg = $Button5 Then
Select
Case GUICtrlRead($Combo5) = "Mercenary"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Mercenary " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo5) = "Knight"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Knight " & $read6)
Send ("{Enter}")
EndIf
If GUICtrlRead($Combo5) = "Knight" then
Select
Case GUICtrlRead($Radio5) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Knight " & $read6 & " 1")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
Case GUICtrlRead($Radio6) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Knight " & $read6 & " 2")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndSelect
EndIf
Case GUICtrlRead($Combo5) = "Blade"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Blade " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
If GUICtrlRead($Combo5) = "Blade" then
Select
Case GUICtrlRead($Radio5) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Blade " & $read6 & " 1")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
Case GUICtrlRead($Radio6) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Blade " & $read6 & " 2")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndSelect
EndIf
Case GUICtrlRead($Combo5) = "Acrobat"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Acrobat " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif

Case GUICtrlRead($Combo5) = "Ranger"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Ranger " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
If GUICtrlRead($Combo5) = "Ranger" then
Select
Case GUICtrlRead($Radio5) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Ranger " & $read6 & " 1")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
Case GUICtrlRead($Radio6) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Ranger " & $read6 & " 2")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndSelect
EndIf
Case GUICtrlRead($Combo5) = "Jester"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Jester " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
If GUICtrlRead($Combo5) = "Jester" then
Select
Case GUICtrlRead($Radio5) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Jester " & $read6 & " 1")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
Case GUICtrlRead($Radio6) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Jester " & $read6 & " 2")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndSelect
EndIf
Case GUICtrlRead($Combo5) = "Assist"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Assist " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo5) = "Ringmaster"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Ringmaster " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
If GUICtrlRead($Combo5) = "Ringmaster" then
Select
Case GUICtrlRead($Radio5) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Ringmaster " & $read6 & " 1")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
Case GUICtrlRead($Radio6) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Ringmaster " & $read6 & " 2")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndSelect
EndIf
Case GUICtrlRead($Combo5) = "Billposter"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Billposter " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
If GUICtrlRead($Combo5) = "Billposter" then
Select
Case GUICtrlRead($Radio5) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Billposter " & $read6 & " 1")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
Case GUICtrlRead($Radio6) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Billposter " & $read6 & " 2")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndSelect
EndIf
Case GUICtrlRead($Combo5) = "Magican"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Magican " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo5) = "Psykeepert"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Psykeepert " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
If GUICtrlRead($Combo5) = "Psykeepert" then
Select
Case GUICtrlRead($Radio5) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Psykeepert " & $read6 & " 1")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
Case GUICtrlRead($Radio6) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Psykeepert " & $read6 & " 2")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndSelect
EndIf
Case GUICtrlRead($Combo5) = "Elementor"
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Elementor " & $read6)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
If GUICtrlRead($Combo5) = "Elementor" then
Select
Case GUICtrlRead($Radio5) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Elementor " & $read6 & " 1")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
Case GUICtrlRead($Radio6) = $GUI_CHECKED
$read6 = GUICtrlRead($Input4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/level Elementor " & $read6 & " 2")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndSelect
EndIf
EndSelect
EndIf
;~ job ende
;~ Kickanfang
If $Msg = $Button8 Then
Select
Case GUICtrlRead($Combo6) = "Kicken"
$read7 = GUICtrlRead($Input5)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/out " & $read7)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo6) = "Freeze"
$read7 = GUICtrlRead($Input5)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/freeze " & $read7)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo6) = "No Freeze"
$read7 = GUICtrlRead($Input5)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/nofreeze " & $read7)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo6) = "Get Ip"
$read7 = GUICtrlRead($Input5)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/ip " & $read7)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo6) = "Mute"
$read7 = GUICtrlRead($Input5)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/notalk " & $read7)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo6) = "Un Mute"
$read7 = GUICtrlRead($Input5)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/talk " & $read7)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo6) = "Mute for Seconds"
$read7 = GUICtrlRead($Input5)
$read8 = GUICtrlRead($Input6)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/Mute " & $read7 & " " & $read8)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ Kickaende
;~ Snow and Rain start
If $Msg = $Button10 Then
Select
Case GUICtrlRead($Radio7) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/FallSnow ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Radio8) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/StopSnow ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Radio9) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/FallRain ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Radio10) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/StopRain ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ Snow and Rain stop
;~ Gilde und party anfang
If $Msg = $Button9 Then
Select
Case GUICtrlRead($Combo7) = "Party Level & Pionts"
$read10 = GUICtrlRead($Input7)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/PartyLevel " & $read10)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo7) = "Guild Ranking Reset (Press direkt Set)"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/guildranking " & $read7)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo7) = "Guild Exp"
$read9 = GUICtrlRead($Input8)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/GuildStat pxp " & $read9)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo7) = "Guild Penya"
$read9 = GUICtrlRead($Input8)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/GuildStat penya " & $read9)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo7) = "Guild Create"
$read9 = GUICtrlRead($Input8)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/createguild" & $read9)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo7) = "Guild Destroy (Press direkt Set)"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/destroyguild ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ Gilde und party ende
;~ Npc spawn start
If $Msg = $Button12 Then
$read11 = GUICtrlRead($Input10)
$read12 = GUICtrlRead($Input11)
Select
Case GUICtrlRead($Combo11) = "Nein"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/cn " & $read11 & " " & $read12)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Combo11) = "Ja"
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/cn " & $read11 & " " & $read12 & " 1")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ npc spawn ende
;~ Awak an
If $Msg = $Button15 Then
If GUICtrlRead($Combo12) = "Str" Then
GUICtrlSetData($Input13,"1")
EndIf
If GUICtrlRead($Combo13) = "Str" Then
GUICtrlSetData($Input14,"1")
EndIf
If GUICtrlRead($Combo14) = "Str" Then
GUICtrlSetData($Input15,"1")
EndIf

If GUICtrlRead($Combo12) = "Dex" Then
GUICtrlSetData($Input13,"2")
EndIf
If GUICtrlRead($Combo13) = "Dex" Then
GUICtrlSetData($Input14,"2")
EndIf
If GUICtrlRead($Combo14) = "Dex" Then
GUICtrlSetData($Input15,"2")
EndIf

If GUICtrlRead($Combo12) = "Int" Then
GUICtrlSetData($Input13,"3")
EndIf
If GUICtrlRead($Combo13) = "Int" Then
GUICtrlSetData($Input14,"3")
EndIf
If GUICtrlRead($Combo14) = "Int" Then
GUICtrlSetData($Input15,"3")
EndIf

If GUICtrlRead($Combo12) = "Sta" Then
GUICtrlSetData($Input13,"4")
EndIf
If GUICtrlRead($Combo13) = "Sta" Then
GUICtrlSetData($Input14,"4")
EndIf
If GUICtrlRead($Combo14) = "Sta" Then
GUICtrlSetData($Input15,"4")
EndIf

If GUICtrlRead($Combo12) = "Critical Rate" Then
GUICtrlSetData($Input13,"9")
EndIf
If GUICtrlRead($Combo13) = "Critical Rate" Then
GUICtrlSetData($Input14,"9")
EndIf
If GUICtrlRead($Combo14) = "Critical Rate" Then
GUICtrlSetData($Input15,"9")
EndIf

If GUICtrlRead($Combo12) = "Moving Speed" Then
GUICtrlSetData($Input13,"11")
EndIf
If GUICtrlRead($Combo13) = "Moving Speed" Then
GUICtrlSetData($Input14,"11")
EndIf
If GUICtrlRead($Combo14) = "Moving Speed" Then
GUICtrlSetData($Input15,"11")
EndIf

If GUICtrlRead($Combo12) = "Additional Damage of Critical" Then
GUICtrlSetData($Input13,"77")
EndIf
If GUICtrlRead($Combo13) = "Additional Damage of Critical" Then
GUICtrlSetData($Input14,"77")
EndIf
If GUICtrlRead($Combo14) = "Additional Damage of Critical" Then
GUICtrlSetData($Input15,"77")
EndIf

If GUICtrlRead($Combo12) = "Attack Speed" Then
GUICtrlSetData($Input13,"24")
EndIf
If GUICtrlRead($Combo13) = "Attack Speed" Then
GUICtrlSetData($Input14,"24")
EndIf
If GUICtrlRead($Combo14) = "Attack Speed" Then
GUICtrlSetData($Input15,"24")
EndIf

If GUICtrlRead($Combo12) = "Max Hp" Then
GUICtrlSetData($Input13,"35")
EndIf
If GUICtrlRead($Combo13) = "Max Hp" Then
GUICtrlSetData($Input14,"35")
EndIf
If GUICtrlRead($Combo14) = "Max Hp" Then
GUICtrlSetData($Input15,"35")
EndIf

If GUICtrlRead($Combo12) = "Max MP" Then
GUICtrlSetData($Input13,"36")
EndIf
If GUICtrlRead($Combo13) = "Max MP" Then
GUICtrlSetData($Input14,"36")
EndIf
If GUICtrlRead($Combo14) = "Max MP" Then
GUICtrlSetData($Input15,"36")
EndIf

If GUICtrlRead($Combo12) = "Max FP" Then
GUICtrlSetData($Input13,"37")
EndIf
If GUICtrlRead($Combo13) = "Max FP" Then
GUICtrlSetData($Input14,"37")
EndIf
If GUICtrlRead($Combo14) = "Max FP" Then
GUICtrlSetData($Input15,"37")
EndIf

If GUICtrlRead($Combo12) = "Defens Power" Then
GUICtrlSetData($Input13,"26")
EndIf
If GUICtrlRead($Combo13) = "Defens Power" Then
GUICtrlSetData($Input14,"26")
EndIf
If GUICtrlRead($Combo14) = "Defens Power" Then
GUICtrlSetData($Input15,"26")
EndIf

If GUICtrlRead($Combo12) = "Attack Power" Then
GUICtrlSetData($Input13,"83")
EndIf
If GUICtrlRead($Combo13) = "Attack Power" Then
GUICtrlSetData($Input14,"83")
EndIf
If GUICtrlRead($Combo14) = "Attack Power" Then
GUICtrlSetData($Input15,"83")
EndIf

If GUICtrlRead($Combo12) = "Castingtime Reducing of Mana" Then
GUICtrlSetData($Input13,"75")
EndIf
If GUICtrlRead($Combo13) = "Castingtime Reducing of Mana" Then
GUICtrlSetData($Input14,"75")
EndIf
If GUICtrlRead($Combo14) = "Castingtime Reducing of Mana" Then
GUICtrlSetData($Input15,"75")
EndIf

If $Button15 Then
$read13 = GUICtrlRead($Input19)
$read14 = GUICtrlRead($Input20)
$read15 = GUICtrlRead($Input21)
$read16 = GUICtrlRead($Input13)
$read17 = GUICtrlRead($Input14)
$read18 = GUICtrlRead($Input15)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/sro " & $read16 & " " & $read13 & " " & $read17 & " " & $read14 & " " & $read18 & " " & $read15)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
EndIf
;~ awak aus
;~ awakran an
If $Msg = $Button17 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/gro ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
;~ awakran aus
;~ collector upgrade an
If $Msg = $Slider2 Then
$read22 = GUICtrlRead($Slider2)
_ToolTipMouseExit($read22,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Button16 Then
$read19 = GUICtrlRead($Slider2)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/rc " & $read19)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndIf
;~ collector upgrade an
;~ del awak an
If $Msg = $Button17 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/iro ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif

EndIf
;~ del awak aus
;~ sockeln an
If $Msg = $Slider3 Then
$read21 = GUICtrlRead($Slider3)
_ToolTipMouseExit($read21,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Button19 Then
$read20 = GUICtrlRead($Slider3)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/piercing " & $read20)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndIf
;~ sockeln aus
;~ schmuck an
If $Msg = $Slider4 Then
$read23 = GUICtrlRead($Slider4)
_ToolTipMouseExit($read23,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Button19 Then
$read24 = GUICtrlRead($Slider4)
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/ra " & $read24)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndIf
;~ schmuck aus
;~ Element start
If $Msg = $Slider5 Then
$read25 = GUICtrlRead($Slider5)
_ToolTipMouseExit($read25,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Slider6 Then
$read26 = GUICtrlRead($Slider6)
_ToolTipMouseExit($read26,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Button21 Then
Msgbox (64,"Info","Bitte das Item in Die den ersten Box Slot gleich Legen und Drück den Botten Set Two")
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/ritem ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
Endif
If $Msg = $Button33 Then
Select
Case GUICtrlRead($Radio1) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/ritem 1" & $read25 & " " & $read26)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Radio2) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/ritem 2 " & $read25 & " " & $read26)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Radio3) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/ritem 3 " & $read25 & " " & $read26)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Radio4) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/ritem 4 " & $read25 & " " & $read26)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Radio14) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/ritem 5 " & $read25 & " " & $read26)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Case GUICtrlRead($Radio15) = $GUI_CHECKED
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/ritem 0 " & "0" & " " & $read26)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
EndSelect
EndIf
;~ Element end
;~ agrres and refuse an
If $Msg = $Button22 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/messengeragree ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
If $Msg = $Button23 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/messengerrefuse ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
If $Msg = $Button26 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/shoutagree ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
If $Msg = $Button27 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/shoutrefuse ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
If $Msg = $Button24 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/stageagree ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
If $Msg = $Button25 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/stagerefuse ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
If $Msg = $Button28 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/tradeagree ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
If $Msg = $Button29 Then
If ProcessExists("Neuz.exe") Then
WinActivate ("FLYFF")
Send ("{Enter}")
Send ("/traderefuse ")
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
Endif
Endif
;~ agrres and refuse aus
;~ pet start
If $Msg = $Slider7 Then
$read27 = GUICtrlRead($Slider7)
_ToolTipMouseExit($read27,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Slider8 Then
$read28 = GUICtrlRead($Slider8)
_ToolTipMouseExit($read28,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Slider9 Then
$read29 = GUICtrlRead($Slider9)
_ToolTipMouseExit($read29,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Slider10 Then
$read30 = GUICtrlRead($Slider10)
_ToolTipMouseExit($read30,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Slider11 Then
$read31 = GUICtrlRead($Slider11)
_ToolTipMouseExit($read31,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Slider12 Then
$read32 = GUICtrlRead($Slider12)
_ToolTipMouseExit($read32,-1, -1, -1, "" , 0)
EndIf
If $Msg = $Slider13 Then
$read33 = GUICtrlRead($Slider13)
_ToolTipMouseExit($read33,-1, -1, -1, "" , 0)
EndIf

If $Msg = $Button30 Then
If GUICtrlRead($Combo15) = "Tiger" Then
GUICtrlSetData($Input19,"0")
EndIf
If GUICtrlRead($Combo15) = "Lion" Then
GUICtrlSetData($Input19,"1")
EndIf
If GUICtrlRead($Combo15) = "Rabbit" Then
GUICtrlSetData($Input19,"2")
EndIf
If GUICtrlRead($Combo15) = "Fox" Then
GUICtrlSetData($Input19,"3")
EndIf
If GUICtrlRead($Combo15) = "Dragon" Then
GUICtrlSetData($Input19,"4")
EndIf
If GUICtrlRead($Combo15) = "Griffin" Then
GUICtrlSetData($Input19,"5")
EndIf
If GUICtrlRead($Combo15) = "Unicorn" Then
GUICtrlSetData($Input19,"6")
EndIf
If ProcessExists("Neuz.exe") Then
$read27 = GUICtrlRead($Slider7)
$read28 = GUICtrlRead($Slider8)
$read29 = GUICtrlRead($Slider9)
$read30 = GUICtrlRead($Slider10)
$read31 = GUICtrlRead($Slider11)
$read32 = GUICtrlRead($Slider12)
$read33 = GUICtrlRead($Slider13)
$blu = GUICtrlRead($Input19)
$Blu2= GUICtrlRead($Input16)
WinActivate ("FLYFF")
Send ("{Enter}")
Send("/Pet " & $Blu2 & " " & $blu & " " & $read32 & " " & $read27 & "" & $read28 & "" & $read29 & "" & $read30 & "" & $read31 & " " & $read33)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndIf
;~ pet ende
;~ iitem addenn
If $Msg = $Button31 Then
If GUICtrlRead($Input17) = "Count" Then
GUICtrlSetData($Input17,"")
EndIf
If ProcessExists("Neuz.exe") Then
$it = GUICtrlRead($Input12)
$it2 = GUICtrlRead($Input17)
WinActivate ("FLYFF")
Send ("{Enter}")
Send("/ci " & $it & " " & $it2)
Send ("{Enter}")
Else
MsgBox (48,"Error","Pls Run First the Game and Login")
EndIf
EndIf
;~ iitem addenn ende
If $Msg = $Button32 Then
_IECreate ("http://www.mmorpg-core.com/forum/", 1)
EndIf
Until $Msg = $GUI_EVENT_CLOSE
[/FELD]

[FELD=" "]
;~ ############################################
;~ RockNetwork Admin Panel v2
;~ Codet and Copyright
;~ By Sedas
;~ ############################################
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\AutoIt Coding\NoPublicTools\Icon Entry_5_128x128-32.ico
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>
#include <string.au3>
#include <INet.au3>
$Form1 = GUICreate("~|~© RockNetwork ©~|~ ~Admin Panel~ ~©Sedas©~", 755, 400, 192, 124)
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Settings\Wallpaper.bmp", 0, 0, 600, 400, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("Name", 128, 176, 121, 21)
$Input2 = GUICtrlCreateInput("PW", 344, 176, 121, 21, $ES_PASSWORD)
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\Settings\Login.bmp", 248, 136, 100, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Combo1 = GUICtrlCreateCombo("Command", 240, 256, 145, 25)
GUICtrlSetState(-1, $GUI_HIDE)
$Button1 = GUICtrlCreateButton("Send", 240, 288, 147, 17, $WS_GROUP)
GUICtrlSetState(-1, $GUI_HIDE)
$Button3 = GUICtrlCreateButton("Exit", 240, 308, 147, 17, $WS_GROUP)
GUICtrlSetState(-1, $GUI_HIDE)
$Label3 = GUICtrlCreateLabel("", 544, 272, 138, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$Label1 = GUICtrlCreateLabel("", 544, 248, 96, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Label2 = GUICtrlCreateLabel("", 640, 248, 30, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$List2 = GUICtrlCreateList("", 544, 304, 210, 97)
GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$List1 = GUICtrlCreateList("", 544, 0, 210, 240)
GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Input3 = GUICtrlCreateInput("IP", 0, 0, 121, 21)
$Input4 = GUICtrlCreateInput("PORT", 128, 0, 73, 21)
$Edit1 = GUICtrlCreateEdit("", 40, 232, 185, 89)
GUICtrlSetData(-1, "")
$Combo2 = GUICtrlCreateCombo("GM CHAT", 40, 208, 89, 25)
GUICtrlSetData(-1, "NOTICE")
$Button2 = GUICtrlCreateButton("Send Text", 40, 328, 187, 17, $WS_GROUP)
GUICtrlSetState($Edit1, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Button2, $GUI_HIDE)
If FileExists(@ScriptDir & "\Settings\login.ini") Then
$readname = IniRead(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Name", "")
$readpw = IniRead(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Pw", "")
$serverrip = IniRead(@ScriptDir & "\Settings\login.ini", "Rock.Net", "IP", "")
$serverrport = IniRead(@ScriptDir & "\Settings\login.ini", "Rock.Net", "PORT", "")
GUICtrlSetData($Input1, _StringEncrypt(0, $readname, 85186918728389707794510026503866773976, 1))
GUICtrlSetData($Input2, _StringEncrypt(0, $readpw, 85186918728389707794510026503866773976, 1))
GUICtrlSetData($Input3, _StringEncrypt(0, $serverrip, 85186918728389707794510026503866773976, 1))
GUICtrlSetData($Input4, _StringEncrypt(0, $serverrport, 85186918728389707794510026503866773976, 1))
EndIf
If FileGetSize(@ScriptDir & "\Settings\Wallpaper.bmp") = "4196406" Then
Else
MsgBox(4112, "Error", "Eine Datei wurde Verändert")
Exit
EndIf
If FileGetSize(@ScriptDir & "\Settings\Login.bmp") = "30690" Then
Else
MsgBox(4112, "Error", "Eine Datei wurde Verändert")
Exit
EndIf
TCPStartup()
GUICtrlSetData($Combo1, "-run all|-restart all|-outall|-hide all|-show all|-shutdown all|-reload|-clearlog|-block connection|-allowe connection")
GUISetState(@SW_SHOW, $Form1)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
If FileExists(@ScriptDir & "\Settings\login.ini") Then
FileDelete(@ScriptDir & "\Settings\login.ini")
IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "IP", _StringEncrypt(1, GUICtrlRead($Input3, $GUI_HIDE), 85186918728389707794510026503866773976, 1))
IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "PORT", _StringEncrypt(1, GUICtrlRead($Input4, $GUI_HIDE), 85186918728389707794510026503866773976, 1))
IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Name", _StringEncrypt(1, GUICtrlRead($Input1, $GUI_HIDE), 85186918728389707794510026503866773976, 1))
IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Pw", _StringEncrypt(1, GUICtrlRead($Input2, $GUI_HIDE), 85186918728389707794510026503866773976, 1))
Else
IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "IP", _StringEncrypt(1, GUICtrlRead($Input3, $GUI_HIDE), 85186918728389707794510026503866773976, 1))
IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "PORT", _StringEncrypt(1, GUICtrlRead($Input4, $GUI_HIDE), 85186918728389707794510026503866773976, 1))
IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Name", _StringEncrypt(1, GUICtrlRead($Input1, $GUI_HIDE), 85186918728389707794510026503866773976, 1))
IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Pw", _StringEncrypt(1, GUICtrlRead($Input2, $GUI_HIDE), 85186918728389707794510026503866773976, 1))
EndIf
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Input2, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_HIDE)
GUICtrlSetState($Input4, $GUI_HIDE)
GUICtrlSetState($Combo1, $GUI_SHOW)
GUICtrlSetState($Button1, $GUI_SHOW)
GUICtrlSetState($Button3, $GUI_SHOW)
$name = GUICtrlRead($Input1)
$pw = GUICtrlRead($Input2)
$command = GUICtrlRead($Combo1)
$selfip = _GetIP()
$pw2 = 85186918728389707794510026503866773976
$ip = GUICtrlRead($Input3)
$port = GUICtrlRead($Input4)
$socket = TCPConnect($ip, $port)
If $socket = -1 Then
MsgBox(4112, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!")
FileWrite("Error.log", Error)
Exit
Else
$sendtext = $name & "{@]" & $pw & "{@]" & $selfip & "{@]Login"
$sendedBytes = TCPSend($socket, $sendtext)
EndIf
Case $Button1
$ip = GUICtrlRead($Input3)
$port = GUICtrlRead($Input4)
$name = GUICtrlRead($Input1)
$pw = GUICtrlRead($Input2)
$command = GUICtrlRead($Combo1)
$selfip = _GetIP()
$socket = TCPConnect($ip, $port)
If $socket = -1 Then
MsgBox(4112, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!")
FileWrite("Error.log", Error)
Exit
Else
$sendtext2 = $name & "{@]" & $pw & "{@]" & $selfip & "{@]" & $command
$sendedBytes = TCPSend($socket, $sendtext2)
If $sendedBytes = 0 Then
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.")
Else
GUICtrlSetData($List1, "Send Command (" & $command & ") @ " & @HOUR & ":" & @MIN & ":" & @SEC)
EndIf
EndIf
Case $Button2
$ip = GUICtrlRead($Input3)
$port = GUICtrlRead($Input4)
$name = GUICtrlRead($Input1)
$pw = GUICtrlRead($Input2)
$command = GUICtrlRead($Combo1)
$selfip = _GetIP()
$pw2 = 85186918728389707794510026503866773976
If $socket = -1 Then
MsgBox(4112, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!")
EndIf
$sendtext = $Combo2 & "{@]" & GUICtrlRead($Edit1)
$sendedBytes = TCPSend($socket, $sendtext)
If $sendedBytes = 0 Then
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.")
Else
EndIf
Case $Button3
Exit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd[/FELD]

[FELD=" "];~ ############################################
;~ RockNetwork Admin Panel v2
;~ Codet and Copyright
;~ By Sedas
;~ ############################################
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\AutoIt Coding\NoPublicTools\Icon Entry_5_128x128-32.ico
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <String.au3>
#Include <File.au3>
#include <Array.au3>
#Include <GuiListView.au3>
Global $rip,$rport
$Form1 = GUICreate("Rock.NET - Server Control", 550, 185, 400, 120)
GUISetBkColor(0x000000)
$ListView1 = GUICtrlCreateListView("Name|Ip|Rang|Command|Time", 0, 48, 550, 118)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 145)
$Label1 = GUICtrlCreateLabel("Server IP:", 0, 0, 61, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$Label2 = GUICtrlCreateLabel("Server Port:", 96, 0, 72, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$Input1 = GUICtrlCreateInput(_GetIP(), 0, 16, 89, 21)
$Input2 = GUICtrlCreateInput("", 96, 16, 81, 21)
$Button1 = GUICtrlCreateButton("Save Settings", 0, 168, 550, 17, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Settings", 456, 8, 75, 25, $WS_GROUP)
GUICtrlCreateListViewItem("Server|"& _GetIP() &"|SUPER ADMIN||"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1)
If FileExists ("Rock.Net\Settings.ini") Then
GUICtrlSetData($Input1,_StringEncrypt(0,IniRead ("Rock.Net\Settings.ini","Control","IP",""), 15454576576654176415746178 , 1))
GUICtrlSetData($Input2,_StringEncrypt(0,IniRead ("Rock.Net\Settings.ini","Control","PORT",""), 15454576576654176415746178 , 1))
EndIf
$Form2 = GUICreate("Rock.NET - Server Control - Setting´s", 337, 638, 311, 112)
$Label1 = GUICtrlCreateLabel("AccountServer", 8, 8, 75, 17)
$Input11 = GUICtrlCreateInput("Ziel", 8, 32, 321, 21)
$Input22 = GUICtrlCreateInput("Ausführen in", 8, 56, 321, 21)
$Label2 = GUICtrlCreateLabel("DatabaseServer", 8, 80, 81, 17)
$Input32 = GUICtrlCreateInput("Ziel", 8, 104, 321, 21)
$Input4 = GUICtrlCreateInput("Ausführen in", 8, 128, 321, 21)
$Label3 = GUICtrlCreateLabel("CoreServer", 8, 152, 57, 17)
$Input5 = GUICtrlCreateInput("Ziel", 8, 176, 321, 21)
$Input6 = GUICtrlCreateInput("Ausführen in", 8, 200, 321, 21)
$Label4 = GUICtrlCreateLabel("Certifier", 8, 224, 39, 17)
$Input7 = GUICtrlCreateInput("Ziel", 8, 248, 321, 21)
$Input8 = GUICtrlCreateInput("Ausführen in", 8, 272, 321, 21)
$Label5 = GUICtrlCreateLabel("LoginServer", 8, 296, 61, 17)
$Input9 = GUICtrlCreateInput("Ziel", 8, 320, 321, 21)
$Input10 = GUICtrlCreateInput("Ausführen in", 8, 344, 321, 21)
$Label6 = GUICtrlCreateLabel("CacheServer", 8, 368, 66, 17)
$Input11 = GUICtrlCreateInput("Ziel", 8, 392, 321, 21)
$Input12 = GUICtrlCreateInput("Ausführen in", 8, 416, 321, 21)
$Label7 = GUICtrlCreateLabel("WorldServer", 8, 440, 63, 17)
$Input13 = GUICtrlCreateInput("Ziel", 8, 464, 321, 21)
$Input14 = GUICtrlCreateInput("Ausführen in", 8, 488, 321, 21)
$Label8 = GUICtrlCreateLabel("Tom´s Antihack", 8, 512, 78, 17)
$Input15 = GUICtrlCreateInput("Ziel", 8, 536, 321, 21)
$Input16 = GUICtrlCreateInput("Ausführen in", 8, 560, 321, 21)
$Input17 = GUICtrlCreateInput("Fenster Name", 8, 584, 321, 21)
$Button3 = GUICtrlCreateButton("Save Settings", 8, 608, 323, 25, $WS_GROUP)
GUISetState(@SW_SHOW,$Form1)
TCPStartup()
If FileExists ("Rock.Net\Settings.ini") Then
$rip= _StringEncrypt(0, IniRead ("Rock.Net\Settings.ini","Control","IP",""),15454576576654176415746178 , 1)
$rport= _StringEncrypt(0, IniRead ("Rock.Net\Settings.ini","Control","PORT",""),15454576576654176415746178 , 1)

Endif
$socket = TCPListen($rip,$rport)
While 1

$con = TCPAccept($socket)
If $con >= 0 Then
$rec = TCPRecv($con,2048)
If $rec = "" Then
Else
Dim $aRecords
If Not _FileReadToArray("Rock.Net\Admin.log", $aRecords) Then
MsgBox (4112,"Error","You Have Delet The Log Tabel")
FileWrite ("Rock.Net\Admin.log","")
EndIf
For $x = 1 To $aRecords[0]
$array = StringSplit($aRecords[$x], '|', 1)
$array2 = StringSplit($rec, '{@]', 1)
If $array2[1] = $array[1] Then
If $array2[2] = $array[2] Then
If $array[3] = "SA" Then
GUICtrlCreateListViewItem ($array[1]&"|"&$array2[3]&"|SUPER ADMIN|"&$array2[4]&"|"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1)
If $array2[4] = "-run all" Then
_runall()
EndIf
If $array2[4] = "-restart all" Then
_restart()
EndIf
If $array2[4] = "-outall" Then
_outall()
EndIf
If $array2[4] = "-hide all" Then
_hide()
EndIf
If $array2[4] = "-show all" Then
_show()
EndIf
If $array2[4] = "-shutdown all" Then
_shutdown()
EndIf
If $array2[4] = "-reload" Then
_reload()
EndIf
If $array2[4] = "-clearlog" Then
_GUICtrlListView_DeleteAllItems($ListView1)
GUICtrlCreateListViewItem ($array[1]&"|"&$array2[3]&"|SUPER ADMIN|"&$array2[4]&"|"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1)
EndIf
If $array2[4] = "-chat" Then
_chatan()
EndIf
If $array2[4] = "-chat end" Then
_chatend()
EndIf
If $array2[4] = "-Get Server Info" Then
_info()
EndIf
If $array2[4] = "-allowe connection" Then
_allowecon()
EndIf
If $array2[4] = "-block connection" Then
_blockcon()
EndIf
Endif
If $array[3] = "A" Then
GUICtrlCreateListViewItem ($array[1]&"|"&$array2[3]&"|ADMIN|"&$array2[4]&"|"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1)
If $array2[4] = "-run all" Then
_runall()
EndIf
If $array2[4] = "-restart all" Then
_restart()
EndIf
If $array2[4] = "-outall" Then
_outall()
EndIf
If $array2[4] = "-hide all" Then
_hide()
EndIf
If $array2[4] = "-show all" Then
_show()
EndIf
If $array2[4] = "-shutdown all" Then
_shutdown()
EndIf
If $array2[4] = "-reload" Then
_reload()
EndIf
If $array2[4] = "-chat" Then
_chatan()
EndIf
If $array2[4] = "-chat end" Then
_chatend()
EndIf
If $array2[4] = "-Get Server Info" Then
_info()
EndIf
EndIf
If $array[3] = "M" Then
GUICtrlCreateListViewItem ($array[1]&"|"&$array2[3]&"|GAMEMASTER|"&$array2[4]&"|"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1)
If $array2[4] = "-run all" Then
_runall()
EndIf
If $array2[4] = "-restart all" Then
_restart()
EndIf
If $array2[4] = "-outall" Then
_outall()
EndIf
If $array2[4] = "-hide all" Then
_hide()
EndIf
If $array2[4] = "-show all" Then
_show()
EndIf
If $array2[4] = "-shutdown all" Then
_shutdown()
EndIf
If $array2[4] = "-reload" Then
_reload()
EndIf
If $array2[4] = "-chat" Then
_chatan()
EndIf
If $array2[4] = "-chat end" Then
_chatend()
EndIf
If $array2[4] = "-Get Server Info" Then
_info()
EndIf
EndIf
EndIf

EndIf
Next
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
DirCreate('Rock.Net')
IniWrite ("Rock.Net\Settings.ini","Control","IP",_StringEncrypt(1, GUICtrlRead ($Input1), 15454576576654176415746178 , 1))
IniWrite ("Rock.Net\Settings.ini","Control","PORT",_StringEncrypt(1, GUICtrlRead ($Input2), 15454576576654176415746178 , 1))
Case $Button2
GUISetState(@SW_SHOW,$Form2)
Case $Button3
IniWrite ("Rock.Net\Settings.ini","Server","AccountServer 1",GUICtrlRead ($Input11))
IniWrite ("Rock.Net\Settings.ini","Server","AccountServer 2",GUICtrlRead ($Input22))
IniWrite ("Rock.Net\Settings.ini","Server","DatabaseServer 1",GUICtrlRead ($Input32))
IniWrite ("Rock.Net\Settings.ini","Server","DatabaseServer 2",GUICtrlRead ($Input4))
IniWrite ("Rock.Net\Settings.ini","Server","CoreServer 1",GUICtrlRead ($Input5))
IniWrite ("Rock.Net\Settings.ini","Server","CoreServer 2",GUICtrlRead ($Input6))
IniWrite ("Rock.Net\Settings.ini","Server","Certifier 1",GUICtrlRead ($Input7))
IniWrite ("Rock.Net\Settings.ini","Server","Certifier 2",GUICtrlRead ($Input8))
IniWrite ("Rock.Net\Settings.ini","Server","LoginServer 1",GUICtrlRead ($Input9))
IniWrite ("Rock.Net\Settings.ini","Server","LoginServer 2",GUICtrlRead ($Input10))
IniWrite ("Rock.Net\Settings.ini","Server","CacheServer 1",GUICtrlRead ($Input11))
IniWrite ("Rock.Net\Settings.ini","Server","CacheServer 2",GUICtrlRead ($Input12))
IniWrite ("Rock.Net\Settings.ini","Server","WorldServer 1",GUICtrlRead ($Input13))
IniWrite ("Rock.Net\Settings.ini","Server","WorldServer 2",GUICtrlRead ($Input14))
IniWrite ("Rock.Net\Settings.ini","Server","Tom´s Antihack 1",GUICtrlRead ($Input15))
IniWrite ("Rock.Net\Settings.ini","Server","Tom´s Antihack 2",GUICtrlRead ($Input16))
IniWrite ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",GUICtrlRead ($Input17))
_hidesettings()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _hidesettings()
GUISetState(@SW_HIDE,$Form2)
EndFunc
Func _shutdown()
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 1 MINUTE")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 50 SEC")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 40 SEC")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 30 SEC")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 20 SEC")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 10 SEC")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (5000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 5 SEC")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (5000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "SERVER SHUTDOWN")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button4',"",1)
Sleep (100)
ProcessClose("6.CacheServer.exe")
Sleep(1000)
ProcessClose("7.WorldServer_noMapKey.exe")
Sleep(1000)
ProcessClose("5.LoginServer.exe")
Sleep(1000)
ProcessClose("4.Certifier.exe")
Sleep(1000)
ProcessClose("3.CoreServer.exe")
Sleep(1000)
ProcessClose("2.DatabaseServer.exe")
Sleep(1000)
ProcessClose("1.AccountServer.exe")
Sleep(1000)
_hide()
EndFunc
Func _reload()
ProcessClose("6.CacheServer.exe")
Sleep(1000)
ProcessClose("7.WorldServer_noMapKey.exe")
Sleep(1000)
Run (IniRead ("Rock.Net\Settings.ini","Server","CacheServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CacheServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","WorldServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","WorldServer 2",""))
Sleep (2000)
MouseClick ("Right",698,197)
Sleep (1000)
_hide()
EndFunc
Func _hide()
WinSetState("AccountServer","",@SW_HIDE)
WinSetState("Trans Server","",@SW_HIDE)
WinSetState("Core Server","",@SW_HIDE)
WinSetState("Certifier","",@SW_HIDE)
WinSetState("Login Server","",@SW_HIDE)
WinSetState("Cache Server","",@SW_HIDE)
WinSetState("World Server(101)","",@SW_HIDE)
EndFunc
Func _show()
WinSetState("AccountServer","",@SW_SHOW)
WinSetState("Trans Server","",@SW_SHOW)
WinSetState("Core Server","",@SW_SHOW)
WinSetState("Certifier","",@SW_SHOW)
WinSetState("Login Server","",@SW_SHOW)
WinSetState("Cache Server","",@SW_SHOW)
WinSetState("World Server(101)","",@SW_SHOW)
EndFunc
Func _runall()
Run (IniRead ("Rock.Net\Settings.ini","Server","AccountServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","AccountServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","DatabaseServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","DatabaseServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","CoreServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CoreServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","Certifier 1",""),IniRead ("Rock.Net\Settings.ini","Server","Certifier 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","LoginServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","LoginServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","CacheServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CacheServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","WorldServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","WorldServer 2",""))
Sleep (2000)
MouseClick ("Right",698,197)
Sleep (1000)
_hide()
EndFunc
Func _blockcon()
WinSetState ("[CLASS:ACCOUNTSERVER]", "", @SW_SHOW)
WinActivate ("[CLASS:ACCOUNTSERVER]")
ControlSend("[CLASS:ACCOUNTSERVER]", "", "", "!t")
ControlSend("[CLASS:ACCOUNTSERVER]", "", "", "B")
WinSetState ("[CLASS:ACCOUNTSERVER]", "", @SW_HIDE)
EndFunc
Func _allowecon()
WinSetState ("[CLASS:ACCOUNTSERVER]", "", @SW_SHOW)
WinActivate ("[CLASS:ACCOUNTSERVER]")
ControlSend("[CLASS:ACCOUNTSERVER]", "", "", "!t")
ControlSend("[CLASS:ACCOUNTSERVER]", "", "", "A")
WinSetState ("[CLASS:ACCOUNTSERVER]", "", @SW_HIDE)
EndFunc
Func _outall()
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Es Werden Alle Gekickt in 1 Min")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (60000)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button4',"",2)
EndFunc
Func _restart()
WinActivate ("AccountServer - release")
Send ("!t")
Send ("B")
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 1 Min")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 50 Sec")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 40 Sec")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 30 Sec")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 20 Sec")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (10000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 10 Sec")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (5000)
ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 5 Sec")
Sleep (100)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2)
Sleep (5000)
ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button4',"",2)
Sleep (500)
ProcessClose("6.CacheServer.exe")
Sleep(1000)
ProcessClose("7.WorldServer_noMapKey.exe")
Sleep(1000)
ProcessClose("5.LoginServer.exe")
Sleep(1000)
ProcessClose("4.Certifier.exe")
Sleep(1000)
ProcessClose("3.CoreServer.exe")
Sleep(1000)
ProcessClose("2.DatabaseServer.exe")
Sleep(1000)
ProcessClose("1.AccountServer.exe")
Sleep(1000)
Run (IniRead ("Rock.Net\Settings.ini","Server","AccountServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","AccountServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","DatabaseServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","DatabaseServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","CoreServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CoreServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","Certifier 1",""),IniRead ("Rock.Net\Settings.ini","Server","Certifier 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","LoginServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","LoginServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","CacheServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CacheServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","WorldServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","WorldServer 2",""))
Sleep (2000)
MouseClick ("Right",698,197)
Sleep (1000)
_hide()
EndFunc
Func _chatan()

EndFunc
Func _chatend()

EndFunc
Func _info()
If WinGetState ( "Cache Server" ) = 5 Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "Nein")
TCPCloseSocket($srvSocket)
EndIf
If WinGetState ( "Cache Server" ) = 7 Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "Ja")
TCPCloseSocket($srvSocket)
If ProcessExists ("7.WorldServer_noMapKey.exe") Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "WorldServer")
TCPCloseSocket($srvSocket)
Endif
If ProcessExists ("7.WorldServer_noMapKey.exe") Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "WorldServer")
TCPCloseSocket($srvSocket)
Endif
If ProcessExists ("6.CacheServer.exe") Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "CacheServer")
TCPCloseSocket($srvSocket)
Endif
If ProcessExists ("5.LoginServer.exe") Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "LoginServer")
TCPCloseSocket($srvSocket)
Endif
If ProcessExists ("4.Certifier.exe") Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "Certifier")
TCPCloseSocket($srvSocket)
Endif
If ProcessExists ("3.CoreServer.exe") Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "CoreServer")
TCPCloseSocket($srvSocket)
Endif
If ProcessExists ("2.DatabaseServer.exe") Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "DatabaseServer")
TCPCloseSocket($srvSocket)
Endif
If ProcessExists ("1.AccountServer.exe") Then
$srvSocket = TCPConnect($array2[3],15155)
TCPSend($srvSocket, "DatabaseServer")
TCPCloseSocket($srvSocket)
Endif
EndIf
EndFunc

[/FELD]