[FS] Lēta levelu sistēma.

Gatavie pawn skripti atrodas šeit!

Moderator: Moderatori

Post Reply
User avatar
Shetch
Jauniņais
Jauniņais
Posts: 107
Joined: 25 Oct 2010, 02:09
Location: Latvija,Valka

[FS] Lēta levelu sistēma.

Post by Shetch »

Šitas viss ir īzī.

Novelkam Rank.inc failu lūk šeit.
Liekam viņu iekš pawno > include.
Veram vaļā geim modu.
Zem #include liekam #include
Zem public OnGameModeInit() liekam

Code: Select all

	SetPromotionMode(0);
 	AddRank(0, "lvl0", 0, 0, 100.0, 100.0, 0, 0);
	AddRank(1, "lvl1", 1, 0, 100.0, 100.0, 0, 0);
	AddRank(2, "lvl2", 2, 0, 100.0, 100.0, 0, 0);
	AddRank(3, "lvl3", 3, 0, 100.0, 100.0, 0, 0);
	AddRank(4, "lvl4", 4, 0, 100.0, 100.0, 0, 0);
	AddRank(5, "lvl5", 5, 0, 100.0, 100.0, 0, 0);
Zem public OnPlayerConnect(playerid) liekam S_OnPlayerConnect();
Zem public OnPlayerSpawn(playerid) liekam S_OnPlayerSpawn();

Kā iegādāties levelu?

Zem public OnPlayerCommandText(playerid, cmdtext[]) liekam

Code: Select all

   	if(strcmp(cmdtext,"/level1",true)==0)
       {
       if(GetPlayerMoney(playerid) = 100000)
       if(GetPlayerRank(playerid) == 0)
       {
       SetPlayerRank(playerid, 1);
       SetPlayerScore(playerid, 1);
       GivePlayerMoney(playerid, -100000);
       SendClientMessage(playerid, COLOR_GREEN,"Gratz.. līmenis 1.");
	   }
       return 1;
       }

Code: Select all

  	if(strcmp(cmdtext, "/komanda", true)==0)
		{
    	if(GetPlayerRank(playerid) >= 1)
     	{
    	if(IsPlayerInAnyVehicle(playerid)
		)
		{
        // Komanda kuru varēs izmantot no 1. līmeņa.
    	}
    	else
    	{
    	SendClientMessage(playerid, COLOR_BRIGHTRED, "Tev nav pietiekams līmenis.");
    	}
    	return 1;
	}

Tas laikam viss. Neceru uz labām atsauksmēm jau šī sistēma nav pati labākā.
Last edited by Shetch on 01 Nov 2010, 17:38, edited 3 times in total.
Triplez

Re: [FS] Lēta levelu sistēma.

Post by Triplez »

w00t, noderēs.
User avatar
Tech[O]
Jauniņais
Jauniņais
Posts: 28
Joined: 01 Dec 2009, 15:57
Location: |^|

Re: [FS] Lēta levelu sistēma.

Post by Tech[O] »

Novelkam Rank.inc failu lūk šeit.
KUR?

Edit: kr4 skaties pats, kas man te ir nepareizi pamēģināju bez ta faila pats ;/
nevaru uztaisīt amx failu nezinu kpc agrak amx fails pats parādijās tagat neparādās.

Code: Select all

// Ranku sistēma


#include 
#include 


#if defined FILTERSCRIPT

public OnFilterScriptInit()
{
	print("
--------------------------------------");
	print(" Ranku sistēma");
	print("--------------------------------------
");
	return 1;
}

public OnFilterScriptExit()
{
	return 1;
}


main()
{
	print("
----------------------------------");
	print(" Ranku sistēma");
	print("----------------------------------
");
}

#endif

public OnGameModeInit()
{

	SetPromotionMode(0);
}
   AddRank(0, "lvl0", 0, 0, 100.0, 100.0, 0, 0);
   AddRank(1, "lvl1", 1, 0, 100.0, 100.0, 0, 0);
   AddRank(2, "lvl2", 2, 0, 100.0, 100.0, 0, 0);
   AddRank(3, "lvl3", 3, 0, 100.0, 100.0, 0, 0);
   AddRank(4, "lvl4", 4, 0, 100.0, 100.0, 0, 0);
   AddRank(5, "lvl5", 5, 0, 100.0, 100.0, 0, 0);
   AddRank(6, "lvl6", 6, 0, 100.0, 100.0, 0, 0);


	return 1;
}

public OnGameModeExit()
{
	return 1;
}

public OnPlayerRequestClass(playerid, classid)
{
	return 1;
}

public OnPlayerConnect(playerid)
{
    S_OnPlayerConnect();
	return 1;
}

public OnPlayerDisconnect(playerid, reason)
{
	return 1;
}

public OnPlayerSpawn(playerid)
{
    S_OnPlayerSpawn();

	return 1;
}

public OnPlayerDeath(playerid, killerid, reason)
{
	return 1;
}

public OnVehicleSpawn(vehicleid)
{
	return 1;
}

public OnVehicleDeath(vehicleid, killerid)
{
	return 1;
}

public OnPlayerText(playerid, text[])
{
	return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
 if(strcmp(cmdtext,"/level1",true)==0)
       {
       if(GetPlayerMoney(playerid) = 100000)
       if(GetPlayerRank(playerid) == 0)
       {
       SetPlayerRank(playerid, 1);
       SetPlayerScore(playerid, 1);
       GivePlayerMoney(playerid, -100000);
       SendClientMessage(playerid, COLOR_GREEN,"Gratz.. līmenis 1.");
      }
       return 1;
       }

        if(strcmp(cmdtext, "/komanda", true)==0)
      {
       if(GetPlayerRank(playerid) >= 1)
        {
       if(IsPlayerInAnyVehicle(playerid)
      )
      {
   //kjii
       }
       else
       {
       SendClientMessage(playerid, COLOR_BRIGHTRED, "Tev nav pietiekams līmenis.");
       }
       return 1;
   }

public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
{
	return 1;
}

public OnPlayerExitVehicle(playerid, vehicleid)
{
	return 1;
}

public OnPlayerStateChange(playerid, newstate, oldstate)
{
	return 1;
}

public OnPlayerEnterCheckpoint(playerid)
{
	return 1;
}

public OnPlayerLeaveCheckpoint(playerid)
{
	return 1;
}

public OnPlayerEnterRaceCheckpoint(playerid)
{
	return 1;
}

public OnPlayerLeaveRaceCheckpoint(playerid)
{
	return 1;
}

public OnRconCommand(cmd[])
{
	return 1;
}

public OnPlayerRequestSpawn(playerid)
{
	return 1;
}

public OnObjectMoved(objectid)
{
	return 1;
}

public OnPlayerObjectMoved(playerid, objectid)
{
	return 1;
}

public OnPlayerPickUpPickup(playerid, pickupid)
{
	return 1;
}

public OnVehicleMod(playerid, vehicleid, componentid)
{
	return 1;
}

public OnVehiclePaintjob(playerid, vehicleid, paintjobid)
{
	return 1;
}

public OnVehicleRespray(playerid, vehicleid, color1, color2)
{
	return 1;
}

public OnPlayerSelectedMenuRow(playerid, row)
{
	return 1;
}

public OnPlayerExitedMenu(playerid)
{
	return 1;
}

public OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
{
	return 1;
}

public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
{
	return 1;
}

public OnRconLoginAttempt(ip[], password[], success)
{
	return 1;
}

public OnPlayerUpdate(playerid)
{
	return 1;
}

public OnPlayerStreamIn(playerid, forplayerid)
{
	return 1;
}

public OnPlayerStreamOut(playerid, forplayerid)
{
	return 1;
}

public OnVehicleStreamIn(vehicleid, forplayerid)
{
	return 1;
}

public OnVehicleStreamOut(vehicleid, forplayerid)
{
	return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
	return 1;
}

public OnPlayerClickPlayer(playerid, clickedplayerid, source)
{
	return 1;
}

Erora kods:

Code: Select all

C:Documents and SettingsHomeDesktopNew FolderpawnoRanks.pwn(5) : fatal error 100: cannot read from file: "Ranks"
Image
User avatar
Shetch
Jauniņais
Jauniņais
Posts: 107
Joined: 25 Oct 2010, 02:09
Location: Latvija,Valka

Re: [FS] Lēta levelu sistēma.

Post by Shetch »

Tagad ieliku linku. Novelc to failu un ieliec tajā mapē kur parādīts.
User avatar
Disaster
Nelabojams spameris
Nelabojams spameris
Posts: 2194
Joined: 15 Sep 2008, 07:11
Location: Rēzekne

Re: [FS] Lēta levelu sistēma.

Post by Disaster »

Ja vēl joprojām nesaprotat vai vēlaties gatavu skriptu, par lētu cenu varat to nopirkt no manis. Skype: disaster.ernests
Image
:) Piedāvāju palīdzēt kādam serverim ar skriptošanu. :)
User avatar
[BB]Pakito[TITNS]
Rakstnieks
Rakstnieks
Posts: 533
Joined: 28 Jan 2010, 20:11
Location: Talsi

Re: [FS] Lēta levelu sistēma.

Post by [BB]Pakito[TITNS] »

labs
Image
User avatar
[MA]VOK
Jauniņais
Jauniņais
Posts: 4
Joined: 22 Nov 2010, 17:38
Location: Jelgava

Re: [FS] Lēta levelu sistēma.

Post by [MA]VOK »

Noderīga lietiņa tnx ;)
Deagler
Jauniņais
Jauniņais
Posts: 11
Joined: 17 Dec 2010, 18:28
Location: Bauska-Rītausmas

Re: [FS] Lēta levelu sistēma.

Post by Deagler »

Code: Select all

 if(strcmp(cmdtext,"/buylevel1",true)==0)
       {
       if(GetPlayerMoney(playerid) = 10000)
       if(GetPlayerRank(playerid) == 0)
       {
       SetPlayerRank(playerid, 1);
       SetPlayerScore(playerid, 1);
       GivePlayerMoney(playerid, -10000);
       SendClientMessage(playerid, COLOR_GREEN,"Apsveicam! Tu nopirki 1. limeni! Tu vari izmantot komandu /heal.");
      }
       return 1;
       }
    if(strcmp(cmdtext,"/buylevel2",true)==0)
       {
       if(GetPlayerMoney(playerid) = 10000)
       if(GetPlayerRank(playerid) == 1)
       {
       SetPlayerRank(playerid, 2);
       SetPlayerScore(playerid, 2);
       GivePlayerMoney(playerid, -10000);
       SendClientMessage(playerid, COLOR_GREEN,"Apsveicam! Tu nopirki 2. limeni! Tu vari izmantot komandu /killme.");
      }
       return 1;
       }
     if(strcmp(cmdtext,"/buylevel3",true)==0)
       {
       if(GetPlayerMoney(playerid) = 10000)
       if(GetPlayerRank(playerid) == 2)
       {
       SetPlayerRank(playerid, 3);
       SetPlayerScore(playerid, 3);
       GivePlayerMoney(playerid, -10000);
       SendClientMessage(playerid, COLOR_GREEN,"Apsveicam! Tu nopirki 3. limeni! Tu vari izmantot komandu /halflife.");
      }
      if(strcmp(cmdtext,"/buylevel4",true)==0)
       {
       if(GetPlayerMoney(playerid) = 10000)
       if(GetPlayerRank(playerid) == 2)
       {
       SetPlayerRank(playerid, 3);
       SetPlayerScore(playerid, 3);
       GivePlayerMoney(playerid, -10000);
       SendClientMessage(playerid, COLOR_GREEN,"Apsveicam! Tu nopirki 4. limeni! Tu vari izmantot komandu /afon.");
      
       }
    if(strcmp(cmdtext,"/fix",true)==0)
       {
      if(GetPlayerRank(playerid) == 1)
       SetPlayerHealth(playerid,100);
       else
       SendClientMessage(playerid,COLOR_RED, "Tev ir jābūt vismaz 1. līmenim!");
       return 1;
      }
     if(strcmp(cmdtext,"/flip",true)==0)
       {
       if(GetPlayerRank(playerid) == 2)
       SetPlayerHealth(playerid,0);
      else
       SendClientMessage(playerid,COLOR_RED, "Tev ir jābūt vismaz 2. līmenim!");
       return 1;
       }
      if(strcmp(cmdtext,"/v",true)==0)
       {
       if(GetPlayerRank(playerid) == 3)
       SetPlayerHealth(playerid,50);
       else
       SendClientMessage(playerid,COLOR_RED, "Tev ir jābūt vismaz 3. līmenim!");
       return 1;
       }
       
       if(strcmp(cmdtext, "/afon", true)==0)
       {
       if(GetPlayerScore(playerid) >= 4)
       {
       Act[playerid] = 1;
       SendClientMessage(playerid, COLOR_GREEN, "Anti-Fall ieslēgts.");
       }
       else
       {
       SendClientMessage(playerid, COLOR_BRIGHTRED, "Šo kommandu var izmantot tikai no 4. līmeņa.");
       }
       return 1;
       }
rekur scripts man paradas 26 errors a kads var sataisiit plz
User avatar
Briesmoniz[TITNS]
Nelabojams spameris
Nelabojams spameris
Posts: 716
Joined: 21 Dec 2008, 00:18

Re: [FS] Lēta levelu sistēma.

Post by Briesmoniz[TITNS] »

Šijā skriptā tie leveli saglabājās arī?
User avatar
Shetch
Jauniņais
Jauniņais
Posts: 107
Joined: 25 Oct 2010, 02:09
Location: Latvija,Valka

Re: [FS] Lēta levelu sistēma.

Post by Shetch »

Parādi tos erorus vismaz.


Nē. Leveli nesaglabājas.
Disaster[1337]
Rakstnieks
Rakstnieks
Posts: 424
Joined: 09 Jun 2009, 17:39

Re: [FS] Lēta levelu sistēma.

Post by Disaster[1337] »

Kads var iedot failu uz gatavo scriptu?
User avatar
Briesmoniz[TITNS]
Nelabojams spameris
Nelabojams spameris
Posts: 716
Joined: 21 Dec 2008, 00:18

Re: [FS] Lēta levelu sistēma.

Post by Briesmoniz[TITNS] »

Aizmirsti tev neviens neko nedos, dari pats izlutinātais cilvēk!!!
madafiks
Jauniņais
Jauniņais
Posts: 17
Joined: 04 Mar 2009, 18:42

Re: [FS] Lēta levelu sistēma.

Post by madafiks »

Man te jautājums:
1. Kā var sataisīt lai līmenis saglabājas, spēlētājam atslēdzoties no servera? lai nākot iekšā viņam tas levels būtu?
2. Un kā izveidot, lai līmeni nākošo var pirkt tikai ar vienu komandu? piem. /buylevel (tā kā boxg)?
User avatar
HUG
Jauniņais
Jauniņais
Posts: 19
Joined: 13 Mar 2011, 10:49

Re: [FS] Lēta levelu sistēma.

Post by HUG »

Uz pirmo, tev jābūt serverī /register & /login sistēma, kad ir tā iegādāta tev jāieraksta skriptā Levels un failā kur ir reģistrētais konts jāuztaisa rindiņa ar nosaukumu Levels: un tur būs tas levels, ja nemaldos..
Image
User avatar
Shetch
Jauniņais
Jauniņais
Posts: 107
Joined: 25 Oct 2010, 02:09
Location: Latvija,Valka

Re: [FS] Lēta levelu sistēma.

Post by Shetch »

madafiks wrote:Man te jautājums:
1. Kā var sataisīt lai līmenis saglabājas, spēlētājam atslēdzoties no servera? lai nākot iekšā viņam tas levels būtu?
2. Un kā izveidot, lai līmeni nākošo var pirkt tikai ar vienu komandu? piem. /buylevel (tā kā boxg)?
Novelc kādu gatavu reģistra sistēmu. Iesaku ar Dini.inc.
Un pievieno dažus mainīgos.

ā. un par to /buylevel. Ir jau manis paša topiks par to.
Post Reply