BoxG.lv


https://samp.boxg.lv/

[FS] Lēta levelu sistēma.

https://samp.boxg.lv/viewtopic.php?t=7601

Page 1 of 1

[FS] Lēta levelu sistēma.

Posted: 25 Oct 2010, 22:00
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ā.

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

Posted: 25 Oct 2010, 22:08
by Triplez
w00t, noderēs.

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

Posted: 25 Oct 2010, 23:21
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"

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

Posted: 26 Oct 2010, 01:00
by Shetch
Tagad ieliku linku. Novelc to failu un ieliec tajā mapē kur parādīts.

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

Posted: 26 Oct 2010, 03:49
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

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

Posted: 14 Nov 2010, 23:32
by [BB]Pakito[TITNS]
labs

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

Posted: 03 Dec 2010, 10:58
by [MA]VOK
Noderīga lietiņa tnx ;)

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

Posted: 06 Mar 2011, 19:19
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

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

Posted: 06 Mar 2011, 22:31
by Briesmoniz[TITNS]
Šijā skriptā tie leveli saglabājās arī?

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

Posted: 07 Mar 2011, 04:00
by Shetch
Parādi tos erorus vismaz.


Nē. Leveli nesaglabājas.

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

Posted: 23 Mar 2011, 08:31
by Disaster[1337]
Kads var iedot failu uz gatavo scriptu?

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

Posted: 23 Mar 2011, 10:08
by Briesmoniz[TITNS]
Aizmirsti tev neviens neko nedos, dari pats izlutinātais cilvēk!!!

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

Posted: 27 Mar 2011, 12:07
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)?

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

Posted: 28 Mar 2011, 20:20
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..

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

Posted: 11 Jun 2011, 03:17
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.
All times are UTC+03:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited