Author Topic: How make?  (Read 1159 times)

0 Members and 3 Guests are viewing this topic.

Offline dominikkk26

  • Camper
  • ***
  • Posts: 404
    • PMGsite
How make?
« on: October 06, 2009, 02:02:56 pm »
As something such make ( write script ) wsensie that as it it write / appear ghelp e.g. it command Uzyj / stats example - check serve staty?   ???

Offline Gizd

  • Flagrunner
  • ****
  • Posts: 586
  • (Re)tired
    • Eat-this! community site
Re: How make?
« Reply #1 on: October 06, 2009, 03:08:31 pm »
He should write in polish so there will be a way to translate it :O

Offline JotEmI

  • Soldier
  • **
  • Posts: 188
Re: How make?
« Reply #2 on: October 06, 2009, 04:34:50 pm »
dominikkk, napisz po polsku o co ci chodzi. Przetłumaczę dla reszty.

'I asked him to write again in polish so I could tranlate it.'

Offline dominikkk26

  • Camper
  • ***
  • Posts: 404
    • PMGsite
Re: How make?
« Reply #3 on: October 07, 2009, 08:05:48 am »
Och dzienki z anglika nie jestem dobry

Chodzi mi o to że chcę napisać skrypta
Coś takiego :
Ze jak ktoś napisze /ghelp ale tez jak napisze !help
To mu się pojawi to np
/stats !stats -By sprawdzić swoje staty

A jeszcze jedno jakim programem piszecie skrypty ?
Jak ten się nazywa :
Code: (pascal) [Select]
if (Command('/survival') = 1) then begin
SurvivalmodeOn  :=  true;
end
else begin
SurvivalmodeOn  :=  false;
end;
« Last Edit: October 07, 2009, 08:07:52 am by dominikkk26 »

Offline JotEmI

  • Soldier
  • **
  • Posts: 188
Re: How make?
« Reply #4 on: October 07, 2009, 11:44:44 am »
Och dzienki z anglika nie jestem dobry

Chodzi mi o to że chcę napisać skrypta
Coś takiego :
Ze jak ktoś napisze /ghelp ale tez jak napisze !help
To mu się pojawi to np
/stats !stats -By sprawdzić swoje staty

A jeszcze jedno jakim programem piszecie skrypty ?

He want's a script that will write: '/stats !stats -By sprawdzić swoje staty' after player types /ghelp or !help.

Skrypty możesz pisać w zwykłym notatniku, ja polecam Notepad++.
A tu masz kod skryptu:
Code: [Select]
procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
      if(Text='!help') then WriteConsole(ID,'/stats !stats -By sprawdzić swoje staty',$EE00AA33);
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
     if(Text='/ghelp') then WriteConsole(ID,'/stats !stats -By sprawdzić swoje staty',$EE00AA33);
     Result:=false;
end;

Nie kompilowałem, ale powinno działać.

Offline dominikkk26

  • Camper
  • ***
  • Posts: 404
    • PMGsite
Re: How make?
« Reply #5 on: October 07, 2009, 12:06:34 pm »


Code: (pascal) [Select]

procedure AppOnIdle(Ticks: integer); 
begin 
   if Ticks mod (3600 * 10) = 0 then begin 
       WriteConsole(0, 'Witajcie na serwerze Polskie R/S/A', $FF5353E1); 
       WriteConsole(0, 'Serwer jest PL .Jesli macie pytania pisać na GG 10210041', $FFFFFF);
       WriteConsole(0, 'Jeśli chcecie ulepszyć serwer pisać na GG 10210041', $FFFFFF);
       WriteConsole(0, 'Info admina mail : dominikk261@wp.pl GG : 10210041', $FF5353E1);
   end; 
end;

A ten ze co ileś miniut to dobrze zrobilem .
A ty JotEmI napisz na GG 10210041

Offline Furai

  • Administrator
  • Veteran
  • *****
  • Posts: 1908
    • TransHuman Design
Re: How make?
« Reply #6 on: October 07, 2009, 01:20:21 pm »
(...)dzienki(...)
He's not good in speaking Polish, either. (;
On topic: Soldat script's syntax is similar to pascal's. What's more - as JotEmi said: Use Notepad++ for writing scripts. I think it's useful application.
"My senses are so powerful that I can hear the blood pumping through your veins."