Oldal nyomtatása - pénz átadása dialogban

San Andreas Multiplayer (SA-MP) => SA-MP: Szerverfejlesztés => Szkript kérések => A témát indította: Sasori - 2012. május 31. - 19:45:57

Cím: pénz átadása dialogban
Írta: Sasori - 2012. május 31. - 19:45:57

udv
Valaki tudna nekem egy olyan szkriptet írni, ami /givecash paranccsal megjelenít egy dialog-ot, ahova annak az ID-jét kell beírni, akinek adni akarjuk a pénzt, aztán behoz még 1-et, ahova az összeget kell beírni, amennyit adni akarunk. Elõre is köszi!

Cím: pénz átadása dialogban
Írta: Sasori - 2012. június 12. - 21:35:46

Akkor tud valaki segíteni? Nagyon fontos lenne. (Bocsi hogy ilyen késõn írok, csak nem voltam itthon)

Cím: pénz átadása dialogban
Írta: Kovacs_Bela - 2012. június 15. - 07:10:11

delutan megirom neked :D

Dupla hozzászólás automatikusan összefûzve. ( 2012. június 15. - 17:04:02 )


#include <a_samp>
#include <zcmd>
#include <sscanf2>
stock MSG(p,c,s) return SendClientMessage(p,c,s);
#define d1 101
#define d2 102 // a két dialogid
CMD:penzkuldes(playerid,params[])
{
new kinek, mennyit;
if(sscanf(params,\"dd\",kinek,mennyit)) return MSG(playerid,0xff0000ff,\"Használd: /penzkuldes Kinek? Mennyit?\");
if(IsPlayerConnected(kinek))
{
if(GetPlayerMoney(playerid) < mennyit) return MSG(playerid,0xff0000ff,\"Nincs ennyid!!\");
GivePlayerMoney(playerid, -mennyit);
GivePlayerMoney(kinek, mennyit);
new n1[24],n2[24],str[128]; GetPlayerName(playerid,n1,24); GetPlayerName(kinek,n2,24);
format(str,128,\"{ff0000}%s {00ff00}[{ff0000}%d{00ff00}] küldött {ff0000}%s{00ff00} [{ff0000}%d{00ff00}] játékosnak {ff0000}%d{00ff00} értékû pénzt!\"); 
SendClientMessageToAll(-1,str);
} else MSG(playerid,-1,\"Invalid PlayerID\");
return 1;
}

Cím: pénz átadása dialogban
Írta: Sasori - 2012. június 16. - 13:55:42

Idézetet írta: Sasori date=1338486357\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"22237\" data-ipsquote-contentclass=\"forums_Topic

ami /givecash paranccsal megjelenít egy dialog-ot, ahova annak az ID-jét kell beírni, akinek adni akarjuk a pénzt, aztán behoz még 1-et, ahova az összeget kell beírni, amennyit adni akarunk.

Nekem dialogos kéne, de azért köszi.

Cím: pénz átadása dialogban
Írta: Kovacs_Bela - 2012. június 16. - 14:54:21

shit el felejtettem XDDD tegnap éjjeli 4ig fentvoltam

Dupla hozzászólás automatikusan összefûzve. ( 2012. június 16. - 15:34:52 )

Tessék megírtam tök f***a lett xd
remélem hibátlan mert nem tudom futtatni

#include <a_samp>
#include <zcmd>
#include <sscanf2>
stock MSG(p,c,const s[]){
return SendClientMessage(p,c,s);
}
#define d1 101
#define d2 102 // a két dialogid
CMD:penzkuldes(playerid,params[])
{
    new kinek, mennyit;
    if(sscanf(params,\"dd\",kinek,mennyit)) return MSG(playerid,0xff0000ff,\"Használd: /penzkuldes Kinek? Mennyit?\");
    if(IsPlayerConnected(kinek))
    {
            if(GetPlayerMoney(playerid) < mennyit) return MSG(playerid,0xff0000ff,\"Nincs ennyid!!\");
            GivePlayerMoney(playerid, -mennyit);
            GivePlayerMoney(kinek, mennyit);
            new n1[24],n2[24],str[128]; GetPlayerName(playerid,n1,24); GetPlayerName(kinek,n2,24);
            format(str,128,\"{ff0000}%s {00ff00}[{ff0000}%d{00ff00}] küldött {ff0000}%s{00ff00} [{ff0000}%d{00ff00}] játékosnak {ff0000}%d{00ff00} értékû pénzt!\");
            SendClientMessageToAll(-1,str);
    } else MSG(playerid,-1,\"Invalid PlayerID\");
    return 1;
}

Cím: pénz átadása dialogban
Írta: Sramm - 2012. június 16. - 16:52:08

Törölve.

Cím: pénz átadása dialogban
Írta: Kovacs_Bela - 2012. június 16. - 17:00:00

Idézetet írta: Sramm date=1339858328\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"22237\" data-ipsquote-contentclass=\"forums_Topic

#include <a_samp>
#include <zcmd>
#include <sscanf2>
#define diaid 878643
stock DGMoney(playerid,id,money)
{
new msg[128];
format(msg,128,\"%s küldött neked %d pénzt.\",id,money);
ShowPlayerDialog(playerid,diaid,DIALOG_STYLE_MSGBOX,msg,\"Ok\",\"\");
format(msg,128,\"Küldtél pénzt %s-nek\",playerid);
ShowPlayerDialog(id,diaid,DIALOG_STYLE_MSGBOX,msg,\"Ok\",\"\");
GivePlayerMoney(playerid,money);
GivePlayerMoney(id,-money);
return 1;
}
CMD:givemoney(playerid,params[])
{
new id,penz;
if(sscanf(params,\"ui\",id,penz)) return 1;
DGMoney(id,playerid,penz);
return 1;
}

ami /givecash paranccsal megjelenít egy dialog-ot, ahova annak az ID-jét kell beírni, akinek adni akarjuk a pénzt, aztán behoz még 1-et, ahova az összeget kell beírni, amennyit adni akarunk[/quote]

Cím: pénz átadása dialogban
Írta: Sramm - 2012. június 16. - 17:05:21

Idézetet írta: danix99 date=1339858800\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"22237\" data-ipsquote-contentclass=\"forums_Topic

#include <a_samp>
#include <zcmd>
#include <sscanf2>
#define diaid 878643
stock DGMoney(playerid,id,money)
{
new msg[128];
format(msg,128,\"%s küldött neked %d pénzt.\",id,money);
ShowPlayerDialog(playerid,diaid,DIALOG_STYLE_MSGBOX,msg,\"Ok\",\"\");
format(msg,128,\"Küldtél pénzt %s-nek\",playerid);
ShowPlayerDialog(id,diaid,DIALOG_STYLE_MSGBOX,msg,\"Ok\",\"\");
GivePlayerMoney(playerid,money);
GivePlayerMoney(id,-money);
return 1;
}
CMD:givemoney(playerid,params[])
{
new id,penz;
if(sscanf(params,\"ui\",id,penz)) return 1;
DGMoney(id,playerid,penz);
return 1;
}

ami /givecash paranccsal megjelenít egy dialog-ot, ahova annak az ID-jét kell beírni, akinek adni akarjuk a pénzt, aztán behoz még 1-et, ahova az összeget kell beírni, amennyit adni akarunk[/quote]

[/quote]
Tényleg, sorry

Cím: pénz átadása dialogban
Írta: Kovacs_Bela - 2012. június 16. - 17:08:23

E: javítottam a scriptem!

Cím: pénz átadása dialogban
Írta: Sasori - 2012. június 16. - 17:11:03

C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(24) : error 035: argument type mismatch (argument 1)
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(26) : error 006: must be assigned to an array
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(28) : error 035: argument type mismatch (argument 1)
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : warning 236: unknown parameter in substitution (incorrect #define pattern)
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : warning 236: unknown parameter in substitution (incorrect #define pattern)
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : warning 236: unknown parameter in substitution (incorrect #define pattern)
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : warning 236: unknown parameter in substitution (incorrect #define pattern)
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : error 029: invalid expression, assumed zero
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : warning 215: expression has no effect
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : error 029: invalid expression, assumed zero
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : warning 215: expression has no effect
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : error 001: expected token: \";\", but found \")\"
C:\\Documents and Settings\\x\\Asztal\\Untitled.pwn(30) : fatal error 107: too many error messages on one line

E: De amire javítottad, az már nem dialogos.

Cím: pénz átadása dialogban
Írta: Kovacs_Bela - 2012. június 16. - 17:19:39

hopp.. most nem tom mi a baja mert rosszat másoltam be..
de most mennem kell a nagyszüleimhez ott meg csak telefonom van xd + net NINCS

Dupla hozzászólás automatikusan összefûzve. ( 2012. június 16. - 17:22:17 )

E: megtaláltam de most mennem kell!

#include <a_samp>
#include <zcmd>
#include <sscanf2>
stock MSG(p,c,const s) return SendClientMessage(p,c,s);
#define d1 101
#define d2 102 // a két dialogid
#define d3 103 // kiírja a másiknak hogy kapott pént
#define d4 104 // sikeres tranzakció
CMD:penzkuldes(playerid,params[])
{
ShowPlayerDialog(playerid,d1,DIALOG_STYLE_INPUT,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",\"{ff0000}Írd be annak a játékosnak az IDjét, akinek pénzt akarsz küldeni!\",\"Tovább\",\"Mégse\");
return 1;
}
public OnDialogResponse(playerid,dialogid,response,listitem,inputtext[])
{
if(!response) return 0;
new kinek, mennyit;
if(dialogid == d1)
{
   if(IsPlayerConnected(inputtext))
   {
      kinek = inputtext;
      new kinekname[24], msg[128],dialogstr[128];
      GetPlayerName(inputtext,kinekname,24);
      format(msg,128,\"Tehát %s [%d]-nek küldöd a pénzt!\",kinekname,inputtext);
      MSG(playerid,0x00ff00ff,msg);
      format(dialogstr,128,\"{ff0000}Most pedig azt írd be, hogy mennyit szeretnél küldeni %s nevû felhasználónknak...\",kinekname);
      ShowPlayerDialog(playerid,d2,DIALOG_STYLE_INPUT,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",dialogstr,\"Küldés!\",\"Mégse\");
   }
   else MSG(playerid,-1,\"HIBA: Nem létezik ilyen ID-jû játékos\"), ShowPlayerDialog(playerid,d1,DIALOG_STYLE_INPUT,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",\"{ff0000}Írd be annak a játékosnak az IDjét, akinek pénzt akarsz küldeni!\",\"Tovább\",\"Mégse\");
}
else if(dialogid == d2)
{
   mennyit = inputtext;
   if(mennyit < 0 && !IsPlayerAdmin(playerid)) return MSG(playerid,0xff0000ff,\"Nem vagy admin!\");
   if(mennyit > GetPlayerMoney(playerid)) return MSG(playerid,0xff0000ff,\"Nincs ennyi pénzed!!\");
   GivePlayerMoney(playerid,-mennyit);
   GivePlayerMoney(kinek,mennyit);
   new name[24], dialogstr[128];
   GetPlayerName(playerid,name,128);
   format(dialogstr,128,\"Kaptál %d$-t %s-tõl!\",mennyit,name);
   ShowPlayerDialog(kinek,d3,DIALOG_STYLE_MSGBOX,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",dialogstr,\"Kilép\",\"\");
   ShowPlayerDialog(playerid,d4,DIALOG_STYLE_MSGBOX,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",\"{00ff00}Sikeres tranzakció!\");
return 1;
}

Cím: pénz átadása dialogban
Írta: Sramm - 2012. június 16. - 18:10:38

#include <a_samp>
#include <zcmd>
#include <sscanf2>
stock MSG(p,c,s[]) return SendClientMessage(p,c,s);
#define d1 101
#define d2 102 // a két dialogid
#define d3 103 // kiírja a másiknak hogy kapott pént
#define d4 104 // sikeres tranzakció
CMD:penzkuldes(playerid,params[])
{
    ShowPlayerDialog(playerid,d1,DIALOG_STYLE_INPUT,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",\"{ff0000}Írd be annak a játékosnak az IDjét, akinek pénzt akarsz küldeni!\",\"Tovább\",\"Mégse\");
   return 1;
}
public OnDialogResponse(playerid,dialogid,response,listitem,inputtext[])
{
   if(!response) return 0;
   new kinek, mennyit;
   if(dialogid == d1)
   {
      if(IsPlayerConnected(strval(inputtext)))
      {
         kinek = strlen(inputtext);
         new kinekname[24], msg[128],dialogstr[128];
         GetPlayerName(strval(inputtext),kinekname,24);
         format(msg,128,\"Tehát %s [%d]-nek küldöd a pénzt!\",kinekname,inputtext);
         MSG(playerid,0x00ff00ff,msg);
         format(dialogstr,128,\"{ff0000}Most pedig azt írd be, hogy mennyit szeretnél küldeni %s nevû felhasználónknak...\",kinekname);
         ShowPlayerDialog(playerid,d2,DIALOG_STYLE_INPUT,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",dialogstr,\"Küldés!\",\"Mégse\");
      }
      else MSG(playerid,-1,\"HIBA: Nem létezik ilyen ID-jû játékos\"),  ShowPlayerDialog(playerid,d1,DIALOG_STYLE_INPUT,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",\"{ff0000}Írd be annak a játékosnak az IDjét, akinek pénzt akarsz küldeni!\",\"Tovább\",\"Mégse\");
   }
   else if(dialogid == d2)
   {
      mennyit = strval(inputtext);
      if(mennyit < 0 && !IsPlayerAdmin(playerid)) return MSG(playerid,0xff0000ff,\"Nem vagy admin!\");
      if(mennyit > GetPlayerMoney(playerid)) return MSG(playerid,0xff0000ff,\"Nincs ennyi pénzed!!\");
      GivePlayerMoney(playerid,-mennyit);
      GivePlayerMoney(kinek,mennyit);
      new name[24], dialogstr[128];
      GetPlayerName(playerid,name,128);
      format(dialogstr,128,\"Kaptál %d$-t %s-tõl!\",mennyit,name);
      ShowPlayerDialog(kinek,d3,DIALOG_STYLE_MSGBOX,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",dialogstr,\"Kilép\",\"\");
      ShowPlayerDialog(playerid,d4,DIALOG_STYLE_MSGBOX,\"{ff0000}>{00ff00}Pénzküldõ{ff0000}<\",\"{00ff00}Sikeres tranzakció!\",\"ok\",\"\");
  }
   return 1;
}

Konvertálni néha kéne...

Cím: pénz átadása dialogban
Írta: Kovacs_Bela - 2012. június 16. - 21:23:07

Cím: pénz átadása dialogban
Írta: Sasori - 2012. június 16. - 22:21:46

Köszi Sramm, hibátlan. Ilyen kellett nekem, adok pár +-t. :D Köszi.

GTA Közösség - A magyar GTA fórum

San Andreas Multiplayer (SA-MP) => SA-MP: Szerverfejlesztés => Szkript kérések => A témát indította: Sasori - 2012. május 31. - 19:45:57