| Autor |
Beitrag |
Xion
      

Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: So 21.02.10 09:49
BenBE hat folgendes geschrieben : | | Rechne mal ab 500€ aufwärts ... Je nach gewünschten Funktionen durchaus auch leicht viel mehr ... |
Naja ein Hobby-Programmierer wird wohl nicht so viel verlangen.
Ich versteh nur nicht ganz worum es geht...soll man praktisch ein Script, das in einer txt Datei ist, so abändern, dass statt den Regeln dann die Regeln stehen, die man im Delphi-Prog eingibt? Das wäre je relativ...einfach.
_________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
|
|
maier1990
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 21.02.10 11:05
|
|
ALF
      
Beiträge: 1085
Erhaltene Danke: 53
WinXP, Win7, Win10
Delphi 7 Enterprise, XE
|
Verfasst: So 21.02.10 11:53
Hi, maier1990
Hatt sich Dein Problem "Daten an PHP-Script übergeben" erledigt???
Wenn ja, solltest Du es auch so beenden und als Beantwortet setzen!?
Frage nur mal so nach, weil Du schon wieder ein neues Problem hast
Gruss Alf
_________________ Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!
|
|
maier1990
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 21.02.10 12:09
Nein das hat sich leider noch nicht Erledigt.
|
|
Xion
      

Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: So 21.02.10 12:28
ALF hat folgendes geschrieben : | Hi, maier1990
Hatt sich Dein Problem "Daten an PHP-Script übergeben" erledigt???
[...]
Frage nur mal so nach, weil Du schon wieder ein neues Problem hast  |
Was soll denn die Gehässigkeit am frühen morgen? Ich mache auch mehrere Projekte gleichzeitig (vor allem, wenn ich ein Problem habe, dass schwer zu lösen ist und der Zeitaufwand den Nutzen übersteigt)
Also wenn es so ist wie ich mir das vorstelle, würde sich sicher wer finden der das Jobangebot macht (auch für weniger als 500€  )
Nur ist leider
maier1990 hat folgendes geschrieben : | | Ungefähr so Xion |
irgendwie nicht so aussagekräftig
Ich meine, die Orangenen Abschnitte durch was andres zu ersetzen ist ja ein Kinderspiel, und wenns mit StringReplace gemacht wird. Ich vermute nur, dass es da um etwas mehr geht. Habe ich ein Script als Vorlage, dass ich dann immer mit den Daten aus dem Delphi-Prog füttern kann? Oder muss ich ein (jedesmal andres) Script verändern? Inwiefern ist der Rest des Scripts davon betroffen (dort wo nichts markiert ist, aber z.B. (per Tastendruck?) durchgeblättert werden kann. Muss das dann mehrere Seiten unterstützen? Wieviele Zeilen passen maximal auf eine Seite?)
Edit:
Was hat es denn mit dem Admin-Modus auf sich? Da scheint ja ein andres Script betroffen zu sein.
_________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
|
|
ALF
      
Beiträge: 1085
Erhaltene Danke: 53
WinXP, Win7, Win10
Delphi 7 Enterprise, XE
|
Verfasst: So 21.02.10 13:21
Es ist eine Datei die auf einem Gamessever liegt! Ähnlich einer txt Datei.
Im allgemeinem kann man nur im Admin Modus die Regeln ändern oder neue hinzufügen!
Entweder direkt auf dem Server oder im Game selbst (Admin Modus).
Ein Spieler kann es nicht.
Ist manchmal sehr umständlich, wobei man ja die Regeln im allg nicht jeden Tag ändert!
Mit Delphi genauso umständlich, weil die Datei dann wieder auf den Server hochgeladen wird und das Game bzw der Mod neu gestarted werden muss!
Egal wie man es macht, per Webseite(html/php), Admin Modus oder Delphi, das Game oder der Mod muss danach neu gestartet werden!
Eine erleichterung für ein Admin ist es auch nicht!
Aber um mit Delphi zu lernen, wie man sowas umsetzt voll dafür
Gruss Alf
_________________ Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!
|
|
maier1990
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 21.02.10 13:38
Ich hab nur einen Kleinen Teil Orange markiert.
Es sollte wen man auf den Button Regelmenü erstellen Klickt ein Popup Fenster aufgehen. Da gibt man z.B erst die Überschrift ein. Bei Klick auf Weiter kommt ein neues Popup
mit dem Text: Bitte gib deine erste Regel ein. Bei weiter sollte wieder ein neues Popup kommen mit: Bitte gib deine Zweite Regel ein usw. bis z.B Regel 10.
Nach Regel 10 sollte dann ein Popup kommen mit: Bitte gib den Befehl ein um das Regelmenü zu öffnen. Wen man auf Fertigstellen klickt sollte das Script kommen.
Ich habe mal das Script angehängt und die Bereiche die durch Eingabe beim Popup geändert werden sollen Farbig hinterlegt.
Ich hab jetzt nur mal die Deutschen Regeln Farbig hinterlegt.
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165: 166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220: 221: 222: 223: 224: 225: 226: 227: 228: 229: 230:
| block load { es_xmsg #multi #lightgreen[#greenregeln#lightgreen]#defaultDas Regel Script wurde soeben eingeschalten es_xload popup } event player_activate { ///////////////////// ///Regeln Mainmenu/// /////////////////////
popup create home popup addline home "--==--xxx--==--xxx--==--xx--==--" popup addline home "Willkommen auf [Dein Servername]" popup addline home "Für die Deutsche Fassung der Regeln:" popup addline home "-> 1. Deutsche Regeln" popup addline home "------------------------------------" popup addline home "Deine Regeln#1" popup addline home "Deine Regeln#1" popup addline home "Deine Regeln#1" popup addline home "--==--xxx--==--xxx--==--xx--==--" popup menuselect home regeln/choice_home
/////////////////// ///Regeln Deutsch// ///////////////////
popup create rde popup addline rde "Um auf dem Server spielen zu können," popup addline rde "musst du unsere regeln lesen !" popup addline rde "Deine Regeln#1" popup addline rde "Deine Regeln#1" popup addline rde "Deine Regeln#1" popup addline rde "-----------------------------------------" popup addline rde "->9. Regeln lesen und Zocken !" popup menuselect rde regeln/choice_rde
popup create rde2 popup addline rde2 "Seite 1/2" popup addline rde2 "---------------------------------------" popup addline rde2 "Allgemeine regeln" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "---------------------------------------" popup addline rde2 "->9. Weiter" popup menuselect rde2 regeln/choice_rde2
popup create rde3 popup addline rde3 "Seite 2/2" popup addline rde3 "---------------------------------------" popup addline rde3 "Deine Regeln#1" popup addline rde3 "->Deine Regeln#1" popup addline rde3 "->Deine Regeln#1" popup addline rde3 "->Deine Regeln#1" popup addline rde3 "->Deine Regeln#1" popup addline rde3 "---------------------------------------" popup addline rde3 "->8. Akzeptieren und Zocken !" popup addline rde3 "->9. Nichtakzeptieren und Gehen !" popup menuselect rde3 regeln/choice_rde3
//////////////////// ///Regeln Englisch// ////////////////////
popup create ren popup addline ren "If you want to play on the Server," popup addline ren "please accept the rules !" popup addline ren "Your Rules#1" popup addline ren "Your Rules#1" popup addline ren "Your Rules#1" popup addline ren "-----------------------------------------" popup addline ren "->9. Read our rules and play !" popup menuselect ren regeln/choice_ren
popup create ren2 popup addline ren2 "Site 1/2" popup addline ren2 "---------------------------------------" popup addline ren2 "Generically rules" popup addline ren2 "->Your Rules#1" popup addline ren2 "->Your Rules#1" popup addline ren2 "->Your Rules#1" popup addline ren2 "->Your Rules#1" popup addline ren2 "->Your Rules#1" popup addline ren2 "---------------------------------------" popup addline ren2 "->9. Continue" popup menuselect ren2 regeln/choice_ren2
popup create ren3 popup addline ren3 "Site 2/2" popup addline ren3 "---------------------------------------" popup addline ren3 "Your Rules#1" popup addline ren3 "->Your Rules#1" popup addline ren3 "->Your Rules#1" popup addline ren3 "->Your Rules#1" popup addline ren3 "->Your Rules#1" popup addline ren3 "---------------------------------------" popup addline ren3 "->8. Accept and play !" popup addline ren3 "->9. Not accept, bye !" popup menuselect ren3 regeln/choice_ren3 } block choice_home { if (server_var(_popup_choice) == 1) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_rde { if (server_var(_popup_choice) == 1) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send rdn server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send rde2 server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_rde2 { if (server_var(_popup_choice) == 1) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send rdn server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send rde3 server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_rde3 { if (server_var(_popup_choice) == 1) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send rdn server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es_tell server_var(_popup_userid) #multi #green[Dein Servername]#defaultViel Spaß auf unserem Server. Falls du die Regeln nochmal lesen willst, Tippe #lightgreen!regeln#default ein ! if (server_var(_popup_choice) == 9) do { es_tell server_var(_popup_userid) #multi #green[Regeln]:#defaultRegeln nicht akzeptiert, du wurdest gekickt. es kickid server_var(_popup_userid) "Regeln nicht akzeptiert!" } if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_ren { if (server_var(_popup_choice) == 1) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send ren2 server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_ren2 { if (server_var(_popup_choice) == 1) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send ren3 server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_ren3 { if (server_var(_popup_choice) == 1) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es_tell server_var(_popup_userid) #multi #green[Rules]#defaultHave fun on our Server. If you will read the rules again type #lightgreen!rules#default ! if (server_var(_popup_choice) == 9) do { es_tell server_var(_popup_userid) #multi #green[Rules]:#defaultRules don't accepted you have become a kick. es kickid server_var(_popup_userid) "Rules don't accepted" } if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } event player_team { if (event_var(team) = 2) do { es popup send home event_var(userid) } if (event_var(team) = 3) do { es popup send home event_var(userid) } }
event player_say { if (event_var(text) = !regeln) then es popup send rde event_var(userid) if (event_var(text) = !rules) then es popup send ren event_var(userid) } block unload { popup unsendname home popup unsendname rde popup unsendname rde2 popup unsendname rde3 popup unsendname ren popup unsendname ren2 popup unsendname ren3 es_xmsg #multi #lightgreen[#greenregeln#lightgreen]#defaultDas Regel Script wurde soeben ausgeschalten } |
Oke alles Orange hinterlegte wenn man ändert ist in game dann Sichtbar.
Ich mach mal ein Beispiel.
Ich klicke auf Regelmenü Erstellen und dan kommt ein Popup wo ich die Überschrift eingib. Als Überschrift nimm ich maier's Regeln. Ich klicke auf weiter wo ich meine erste Regel adden kann. Als Regel nimm ich Kein Flammen usw. bis z.B Regel 10
Dan kommt das Popup für den Befehl in game mit dem man das Menü Öffnet. da nimm ich jetzt !rules. So wen ich nun auf Fertig klicke sollte das Script folgendermaßen ausehen:
Hab alle stellen die geändert wurden durch Popup eingabe Farbig hinterlegt aber nur im Deutschen teil.
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165: 166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220: 221: 222: 223: 224: 225: 226: 227: 228: 229:
| block load { es_xmsg #multi #lightgreen[#greenregeln#lightgreen]#defaultDas Regel Script wurde soeben eingeschalten es_xload popup } event player_activate { ///////////////////// ///Regeln Mainmenu/// /////////////////////
popup create home popup addline home "--==--xxx--==--xxx--==--xx--==--" popup addline home "maier's Regeln" popup addline home "Für die Deutsche Fassung der Regeln:" popup addline home "-> 1. Deutsche Regeln" popup addline home "------------------------------------" popup addline home "Kein Flamen" popup addline home "Kein Campen" popup addline home "Seid nett zueinander" popup addline home "Wer cheatet wird gebannt" popup menuselect home regeln/choice_home
/////////////////// ///Regeln Deutsch// ///////////////////
popup create rde popup addline rde "maier's Regeln" popup addline rde "Seid freundlich zueinander" popup addline rde "Kein Teamkill" popup addline rde "Kein Adminbeleidigung" popup addline rde "-----------------------------------------" popup addline rde "->9. Regeln lesen und Zocken !" popup menuselect rde regeln/choice_rde
popup create rde2 popup addline rde2 "Seite 1/2" popup addline rde2 "---------------------------------------" popup addline rde2 "Allgemeine regeln" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "->Deine Regeln#1" popup addline rde2 "---------------------------------------" popup addline rde2 "->9. Weiter" popup menuselect rde2 regeln/choice_rde2
popup create rde3 popup addline rde3 "Seite 2/2" popup addline rde3 "---------------------------------------" popup addline rde3 "Deine Regeln#1" popup addline rde3 "->Deine Regeln#1" popup addline rde3 "->Deine Regeln#1" popup addline rde3 "->Deine Regeln#1" popup addline rde3 "->Deine Regeln#1" popup addline rde3 "---------------------------------------" popup addline rde3 "->8. Akzeptieren und Zocken !" popup addline rde3 "->9. Nichtakzeptieren und Gehen !" popup menuselect rde3 regeln/choice_rde3
//////////////////// ///Regeln Englisch// ////////////////////
popup create ren popup addline ren "If you want to play on the Server," popup addline ren "please accept the rules !" popup addline ren "Your Rules#1" popup addline ren "Your Rules#1" popup addline ren "Your Rules#1" popup addline ren "-----------------------------------------" popup addline ren "->9. Read our rules and play !" popup menuselect ren regeln/choice_ren
popup create ren2 popup addline ren2 "Site 1/2" popup addline ren2 "---------------------------------------" popup addline ren2 "Generically rules" popup addline ren2 "->Your Rules#1" popup addline ren2 "->Your Rules#1" popup addline ren2 "->Your Rules#1" popup addline ren2 "->Your Rules#1" popup addline ren2 "->Your Rules#1" popup addline ren2 "---------------------------------------" popup addline ren2 "->9. Continue" popup menuselect ren2 regeln/choice_ren2
popup create ren3 popup addline ren3 "Site 2/2" popup addline ren3 "---------------------------------------" popup addline ren3 "Your Rules#1" popup addline ren3 "->Your Rules#1" popup addline ren3 "->Your Rules#1" popup addline ren3 "->Your Rules#1" popup addline ren3 "->Your Rules#1" popup addline ren3 "---------------------------------------" popup addline ren3 "->8. Accept and play !" popup addline ren3 "->9. Not accept, bye !" popup menuselect ren3 regeln/choice_ren3 } block choice_home { if (server_var(_popup_choice) == 1) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send home server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_rde { if (server_var(_popup_choice) == 1) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send rdn server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send rde2 server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_rde2 { if (server_var(_popup_choice) == 1) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send rdn server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send rde3 server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_rde3 { if (server_var(_popup_choice) == 1) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send rdn server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send rde server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es_tell server_var(_popup_userid) #multi #green[Dein Servername]#defaultViel Spaß auf unserem Server. Falls du die Regeln nochmal lesen willst, Tippe #lightgreen!regeln#default ein ! if (server_var(_popup_choice) == 9) do { es_tell server_var(_popup_userid) #multi #green[Regeln]:#defaultRegeln nicht akzeptiert, du wurdest gekickt. es kickid server_var(_popup_userid) "Regeln nicht akzeptiert!" } if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_ren { if (server_var(_popup_choice) == 1) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send ren2 server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_ren2 { if (server_var(_popup_choice) == 1) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 9) then es popup send ren3 server_var(_popup_userid) if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } block choice_ren3 { if (server_var(_popup_choice) == 1) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 2) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 3) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 4) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 5) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 6) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 7) then es popup send ren server_var(_popup_userid) if (server_var(_popup_choice) == 8) then es_tell server_var(_popup_userid) #multi #green[Rules]#defaultHave fun on our Server. If you will read the rules again type #lightgreen!rules#default ! if (server_var(_popup_choice) == 9) do { es_tell server_var(_popup_userid) #multi #green[Rules]:#defaultRules don't accepted you have become a kick. es kickid server_var(_popup_userid) "Rules don't accepted" } if (server_var(_popup_choice) == 0) then es popup send home server_var(_popup_userid) } event player_team { if (event_var(team) = 2) do { es popup send home event_var(userid) } if (event_var(team) = 3) do { es popup send home event_var(userid) } }
event player_say { if (event_var(text) = !rules) then es popup send rde event_var(userid) if (event_var(text) = !rules) then es popup send ren event_var(userid) } block unload { popup unsendname home popup unsendname rde popup unsendname rde2 popup unsendname rde3 popup unsendname ren popup unsendname ren2 popup unsendname ren3 es_xmsg #multi #lightgreen[#greenregeln#lightgreen]#defaultDas Regel Script wurde soeben ausgeschalten } |
Ich hoffe es nun Verständlich gemacht zu haben.
@Alf ich will es ja nicht Automatisch aufm Server laden und so sonder nur das es s Passiert wie oben beschrieben.
|
|
Xion
      

Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: So 21.02.10 13:58
Das ist ja erstmal kein Problem.
Ich erklär mal die ganz einfach Variante ohne Optimierung:
Du nimmst die ganzen markierten Stellen und änderst sie in einem Text-Editor zu speziellen Key-Words um
z.B.
Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| [...] popup create home popup addline home "--==--xxx--==--xxx--==--xx--==--" popup addline home "||Welcome||" popup addline home "Für die Deutsche Fassung der Regeln:" popup addline home "-> 1. Deutsche Regeln" popup addline home "------------------------------------" popup addline home "||Regel1||" popup addline home "||Regel2||" popup addline home "||Regel3||" [...] |
Dann nimmst du die Datei und lädst sie in ein Memo.
Delphi-Quelltext 1:
| Memo1.Lines.LoadFromFile( 'C:\cs.txt' ); |
Und jetzt schreibst du einfach als Code noch dazu:
Delphi-Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
| var Eingabe: String; A: integer; begin Memo1.Lines.LoadFromFile( 'C:\cs.txt' );
Eingabe:= InputBox('Welcome eingeben','','Willkommen auf [Dein Servername]'); Memo1.Text:=StringReplace(Memo1.text,'||Welcome||',Eingabe,[rfReplaceAll]);
for A:= 1 to 3 do begin Eingabe:= InputBox('Regel'+inttostr(A)+' eingeben','','->Deine Regel#1'); Memo1.Text:=StringReplace(Memo1.text,'||Regel'+inttostr(A)+'||',Eingabe,[rfReplaceAll]); end;
Memo1.Lines.SaveToFile('C:\cs_new.txt');
ShellExecute(Application.Handle,'open','cs_new.txt',nil,'C:\',WM_OPEN); end; |
Zu allen Funktionen findest du per F1 ausführlich Informationen...ist auch ungetestet, könnten noch kleinere Fehler drin sein.
Edit: Wenn du es natürlich vom Server vorher runterladen willst, dann kannst du natürlich nicht immer die Datei erst mit den KeyWords preparieren, aber die Grundidee mit dem ersetzen bleibt die gleiche. Du musst dann halt (im vergleich zu dem hier deutlich komplizierter) das Script parsen um rauszufinden, wo welche Information steht die du ersetzen willst. Aber versteh erstmal das hier 
_________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
Zuletzt bearbeitet von Xion am So 21.02.10 14:02, insgesamt 1-mal bearbeitet
|
|
ALF
      
Beiträge: 1085
Erhaltene Danke: 53
WinXP, Win7, Win10
Delphi 7 Enterprise, XE
|
Verfasst: So 21.02.10 14:01
Hab ich doch geschrieben! @Maier1990
Mein | Zitat: | Aber um mit Delphi zu lernen, wie man sowas umsetzt voll dafür
|
Hatt aber für den jeweiligen Admin auch keinen Vorteil.
Erst die aktuelle Datei vom Server holen, mit Deinem Prog bearbeiten und dan wieder hoch laden!
Gruss Alf
_________________ Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!
|
|
maier1990
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 21.02.10 14:25
Oke dankeschön das hat mir sehr weitergeholfen.
@Alf
Ich will sie ja nich erst vom Server holen sondern in mein Programm z.b 10 solcher Buttons
integrieren damit auch nicht Scripter einfach und unkompliziert Scripte erstellen können.
Also sowas wie vorlagen.
lg
|
|
ALF
      
Beiträge: 1085
Erhaltene Danke: 53
WinXP, Win7, Win10
Delphi 7 Enterprise, XE
|
Verfasst: So 21.02.10 14:48
Xion | Zitat: | | Du musst dann halt .... das Script parsen um rauszufinden, wo welche Information steht die du ersetzen willst. |
hatt Dir das noch mitgegeben.
Ich hoffe Du weist was damit gemeint ist.
Einfach mal ein paar Buttons in Dein Prog und schon ist das Script mit allen [blocks], [events] usw. wie sie im Script drin stehen schon fertig?
Was ist, wenn neue Events oder Blöcke hinzukommen? Einfach schenll mal ein paar Buttons dazu coden!?
Viel Spass, ich will Dich aber nicht davon abhalten!
Gruss ALf
_________________ Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!
|
|
Xion
      

Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: So 21.02.10 14:57
_________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
|
|
maier1990
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 21.02.10 15:09
Nee das Script verändert sich eig. niee da ich ja nicht vorhab größere Scripte reinzumachen. Bei kleineren Scripte gibts eig. meist kein Update.
Ich habs jetzt mal angepasst und es funktioniert genau wie ich wollte.
Nur mal noch ne Frage bezüglich dem hier
Delphi-Quelltext 1:
| ShellExecute(Application.Handle,'open','cs_new.txt',nil,'C:\',WM_OPEN); |
Shellapi hab ich unter Uses eingebunden nur es kommt folgender Fehler:
[Error] Unit1.pas(4  : Undeclared identifier: 'WM_OPEN'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Ich glaub des WM_OPEN mag er nicht
|
|
ALF
      
Beiträge: 1085
Erhaltene Danke: 53
WinXP, Win7, Win10
Delphi 7 Enterprise, XE
|
Verfasst: So 21.02.10 15:16
Xion | Zitat: | | ...ich vermute mal da ändert sich ja im laufenden Betrieb dann auch nichtmehr so viel am Script, wenn der Server erstmal eingestellt ist |
Leider ist es nicht so! Jeder Admin von den onlinspielen egal ob CS, CSS, ET, COD usw.
hatt da besondere Wünsche.
Zumal das ja nur ein Script ist von vielen, die es da so gibt.
Um das Parsen kommt man bei so was nicht drum herrum!
Schon wegen den Erweiterungen, Leider!
Die Erfahrung musste ich selber machen, als ich noch im ET-Clan als Admin drin war!
Habe sowas allerdings direkt über ne Webseite gelöst.
Erst waren es nur 4 Dinge die man erstellen will, also Fix,
dann wurden es mehr, so wie, das auch noch machen usw.
Bleibt also nur Parsen wenn sich die Datei(scripte) erweitert!
Gruss Alf
_________________ Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!
|
|
maier1990
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 21.02.10 15:26
Ha da hast du Recht.
Aber mein Programm dient ja dazu das Scripten für CS:S zu erleichtern.
Wen er irgendwas erweitern will muss er es halt mit der Hand dann machen.
Ich will mit dieser Funktion eig. nur nicht Scriptern die andere Regeln rein wollen aber nicht wissen wie, es zu erleichtern.
lg
|
|
elundril
      
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: So 21.02.10 15:27
Tja, diesen Skriptern würde ich das selbe empfehlen wie dir. "Lern die Programmiersprache wenn du auch was damit machen willst!"
lg elundril
_________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
ALF
      
Beiträge: 1085
Erhaltene Danke: 53
WinXP, Win7, Win10
Delphi 7 Enterprise, XE
|
Verfasst: So 21.02.10 15:38
maier1990 hat folgendes geschrieben: | Wen er irgendwas erweitern will muss er es halt mit der Hand dann machen.
|
dann brauch er auch nicht Dein Programm.
Versteh mich Bitte richtig.
Ich will es Dir nicht madig machen.
Du machst es doch nicht für Dich selbst, um zu lernen wie man in Delphi Programmiert!
Du willst es jemanden geben! mit dem Hinweis!
Dieses Prog funct nur mit diesem einem Script. Bitte keine Erweiterungen an diesem Script durchführen, sonst funct mein Prog nicht mehr
Mehr muss man dazu nicht sagen oder?
Gruss ALf
Moderiert von Narses: Zitat-Syntax angepasst.
_________________ Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!
|
|
maier1990
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 21.02.10 15:45
Es sind ja nur kleine Scripte die von meinen Scripter mit dem ich des Programm mache geschrieben und er wird es nicht Updaten. Viele kiddys wollen ein Regel Script und wissen nicht wie man Regeln ändert und wir wollen ihnen die möglichkeit dazugeben.
Einerseits hast du ja recht aber ich will des Programm trozdem Fertig stellen und sehen wie es ankommt.
lg
|
|
ALF
      
Beiträge: 1085
Erhaltene Danke: 53
WinXP, Win7, Win10
Delphi 7 Enterprise, XE
|
Verfasst: So 21.02.10 15:59
Das ist nicht Dein ernst!
Ein ServerAdmin der ein Gamesserver (evtl. Rootserver) verwalted, kann das Script nicht lesen und ändern?
Was ist das für ein Admin!
Normale Spieler erhalten eh keine rechte für sowas (Kiddys)
Es sei, ich bin schon so alt, das neuerdings Kiddys einen GamesServer verwalten!
Gruss ALf
_________________ Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!
|
|
Xion
      

Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: So 21.02.10 16:20
_________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
|
|
|