« előző következő »
Oldalak: [1]   Le

Szerző Téma: pénz átadása dialogban  (Megtekintve 1543 alkalommal)

Nem elérhető Sasori

pénz átadása dialogban
« Dátum: 2012. május 31. - 19:45:57 »
0 Show voters
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!
Naplózva

Nem elérhető Sasori

pénz átadása dialogban
« Válasz #1 Dátum: 2012. június 12. - 21:35:46 »
0 Show voters
Akkor tud valaki segíteni? Nagyon fontos lenne. (Bocsi hogy ilyen késõn írok, csak nem voltam itthon)
Naplózva

Kovacs_Bela

  • Vendég
pénz átadása dialogban
« Válasz #2 Dátum: 2012. június 15. - 07:10:11 »
+1 Show voters
delutan megirom neked :D
Dupla hozzászólás automatikusan összefûzve. ( 2012. június 15. - 17:04:02 )

E:
 

#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;
}
« Utoljára szerkesztve: 2012. június 15. - 17:04:02 írta danix99 »
Naplózva

Nem elérhető Sasori

pénz átadása dialogban
« Válasz #3 Dátum: 2012. június 16. - 13:55:42 »
0 Show voters
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.
Naplózva

Kovacs_Bela

  • Vendég
pénz átadása dialogban
« Válasz #4 Dátum: 2012. június 16. - 14:54:21 »
0 Show voters
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;
}
« Utoljára szerkesztve: 2012. június 16. - 17:09:10 írta danix99 »
Naplózva

Nem elérhető Sramm

  • 596
    • Profil megtekintése
pénz átadása dialogban
« Válasz #5 Dátum: 2012. június 16. - 16:52:08 »
0 Show voters
Törölve.
« Utoljára szerkesztve: 2012. június 16. - 17:05:04 írta Sramm »
Naplózva

Kovacs_Bela

  • Vendég
pénz átadása dialogban
« Válasz #6 Dátum: 2012. június 16. - 17:00:00 »
0 Show voters
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]
Naplózva

Nem elérhető Sramm

  • 596
    • Profil megtekintése
pénz átadása dialogban
« Válasz #7 Dátum: 2012. június 16. - 17:05:21 »
0 Show voters
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
Naplózva

Kovacs_Bela

  • Vendég
pénz átadása dialogban
« Válasz #8 Dátum: 2012. június 16. - 17:08:23 »
0 Show voters
E: javítottam a scriptem!
Naplózva

Nem elérhető Sasori

pénz átadása dialogban
« Válasz #9 Dátum: 2012. június 16. - 17:11:03 »
0 Show voters 
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.
« Utoljára szerkesztve: 2012. június 16. - 17:14:31 írta Sasori »
Naplózva

Kovacs_Bela

  • Vendég
pénz átadása dialogban
« Válasz #10 Dátum: 2012. június 16. - 17:19:39 »
0 Show voters
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;
}
« Utoljára szerkesztve: 2012. június 16. - 17:22:17 írta danix99 »
Naplózva

Nem elérhető Sramm

  • 596
    • Profil megtekintése
pénz átadása dialogban
« Válasz #11 Dátum: 2012. június 16. - 18:10:38 »
+3 Show voters 
#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...
Naplózva

Kovacs_Bela

  • Vendég
pénz átadása dialogban
« Válasz #12 Dátum: 2012. június 16. - 21:23:07 »
0 Show voters
?
Naplózva

Nem elérhető Sasori

pénz átadása dialogban
« Válasz #13 Dátum: 2012. június 16. - 22:21:46 »
0 Show voters
Köszi Sramm, hibátlan. Ilyen kellett nekem, adok pár +-t. :D Köszi.
Naplózva
Oldalak: [1]   Fel
« előző következő »
 
SimplePortal 2.3.7 © 2008-2024, SimplePortal