Autor Beitrag
Xion
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
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)
BeitragVerfasst: So 21.02.10 09:49 
user profile iconBenBE hat folgendes geschrieben Zum zitierten Posting springen:
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



BeitragVerfasst: So 21.02.10 11:05 
Ungefähr so Xion
ALF
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1085
Erhaltene Danke: 53

WinXP, Win7, Win10
Delphi 7 Enterprise, XE
BeitragVerfasst: So 21.02.10 11:53 
Hi, user profile iconmaier1990
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 :rofl:

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



BeitragVerfasst: So 21.02.10 12:09 
Nein das hat sich leider noch nicht Erledigt.
Xion
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
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)
BeitragVerfasst: So 21.02.10 12:28 
user profile iconALF hat folgendes geschrieben Zum zitierten Posting springen:
Hi, user profile iconmaier1990
Hatt sich Dein Problem "Daten an PHP-Script übergeben" erledigt???
[...]
Frage nur mal so nach, weil Du schon wieder ein neues Problem hast :rofl:


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
user profile iconmaier1990 hat folgendes geschrieben Zum zitierten Posting springen:
Ungefähr so Xion

irgendwie nicht so aussagekräftig :D

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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1085
Erhaltene Danke: 53

WinXP, Win7, Win10
Delphi 7 Enterprise, XE
BeitragVerfasst: 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! :wink:

Aber um mit Delphi zu lernen, wie man sowas umsetzt voll dafür 8)

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



BeitragVerfasst: 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.
ausblenden volle Höhe Quelltext
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.
ausblenden volle Höhe Quelltext
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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
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)
BeitragVerfasst: 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.
ausblenden 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.

ausblenden Delphi-Quelltext
1:
Memo1.Lines.LoadFromFile( 'C:\cs.txt' );					


Und jetzt schreibst du einfach als Code noch dazu:
ausblenden 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
  //Datei laden
  Memo1.Lines.LoadFromFile( 'C:\cs.txt' );

  //Eingabe
  Eingabe:=  InputBox('Welcome eingeben','','Willkommen auf [Dein Servername]');
  //Ersetzen
  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;

  //Datei speichern
  Memo1.Lines.SaveToFile('C:\cs_new.txt');

  //Datei öffnen (ShellAPI in die Uses einbinden!)
  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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1085
Erhaltene Danke: 53

WinXP, Win7, Win10
Delphi 7 Enterprise, XE
BeitragVerfasst: 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 8)

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



BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1085
Erhaltene Danke: 53

WinXP, Win7, Win10
Delphi 7 Enterprise, XE
BeitragVerfasst: So 21.02.10 14:48 
user profile iconXion
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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
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)
BeitragVerfasst: So 21.02.10 14:57 
user profile iconmaier1990 hat folgendes geschrieben Zum zitierten Posting springen:
Ich will sie ja nich erst vom Server holen


user profile iconALF hat folgendes geschrieben Zum zitierten Posting springen:

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?

Wenn er nie eine neue Version des Skripts runterläd ist da ja kein Problem dabei...ich vermute mal da ändert sich ja im laufenden Betrieb dann auch nichtmehr so viel am Script, wenn der Server erstmal eingestellt ist. Spiel kein CS, keine Ahnung ^^

_________________
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



BeitragVerfasst: 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
ausblenden 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(48): 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1085
Erhaltene Danke: 53

WinXP, Win7, Win10
Delphi 7 Enterprise, XE
BeitragVerfasst: So 21.02.10 15:16 
user profile iconXion
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



BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 3747
Erhaltene Danke: 123

Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1085
Erhaltene Danke: 53

WinXP, Win7, Win10
Delphi 7 Enterprise, XE
BeitragVerfasst: So 21.02.10 15:38 
user profile iconmaier1990 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 user profile iconNarses: 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



BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1085
Erhaltene Danke: 53

WinXP, Win7, Win10
Delphi 7 Enterprise, XE
BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
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)
BeitragVerfasst: So 21.02.10 16:20 
user profile iconmaier1990 hat folgendes geschrieben Zum zitierten Posting springen:

Einerseits hast du ja recht aber ich will des Programm trozdem Fertig stellen und sehen wie es ankommt.


Das ist wohl das beste, soll der Nutzer entscheiden ob es nützlich ist oder nicht.

user profile iconALF hat folgendes geschrieben Zum zitierten Posting springen:

Es sei, ich bin schon so alt, das neuerdings Kiddys einen GamesServer verwalten!

Das finde ich nichtmal so abwegig

Ich sehe grad, es muss SW_Show heißen. Findet man auch per Foren-Suche nach ShellExecute :)

_________________
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)