Macro SafeMoneyPay 0.1

$${

IFMATCHES("%CHATCLEAN%","^\[L\] (.+) (%PLAYER%) (.+)\: (.+)$");
    MATCH("%CHATCLEAN%","^\[L\] (.+) (%PLAYER%) (.+)\: (.+)$",{&idinho_chatdebug,&idinho_chatnick,&idinho_chatnivel,&idinho_chatmsgs});

	IFCONTAINS("%&idinho_chatdebug%",":");
	ELSE;

		IFMATCHES("%&idinho_chatnick%","^%PLAYER%$");
		 SET(&idinho_chatnick,"");

			IF(%&idinho_chatmsgs%="!smp add pin");

			 MATCH("%&idinho_listasdecontaspins%","%PLAYER%£[0-9]+",&idinho_r);

			 IF(%&idinho_r%="");
			  PROMPT(&pin,$$?,"Qual pin da conta %PLAYER%\, para adicionar no banco de dados SafeMoneyPay?");

			  IF(%&pin%="")
			   LOG(&6[Macro]&2[SafeMoneyPay&40.1&2] &4Você não colocou nenhum PIN no campo de resposta.);
			    SET(&idinho_chatnick,"");
				 SET(&idinho_chatdinheironick,"");
			  ELSE;
			   SET(&idinho_listasdecontaspins,"%&idinho_listasdecontaspins%%PLAYER%£%&pin%-");
				LOG("&6[Macro]&2[SafeMoneyPay&40.1&2] &eO PIN da conta &6%PLAYER%&e adicionando com sucesso. &8&o#iDinhoBR");
				 SET(&idinho_r,"");
				  SET(&idinho_chatnick,"");
				   SET(&idinho_chatdinheironick,"");
			  ENDIF;
			 ENDIF;
			 IF(%&idinho_r%!="");
			  PROMPT(&pin,$$?,"Qual o novo PIN da conta %PLAYER%\, para alterar no banco de dados?");

			  IF(%&pin%="");
			   LOG(&6[Macro]&2[SafeMoneyPay&40.1&2] &4Você não colocou nenhum PIN no campo de resposta.);
			    SET(&idinho_chatnick,"");
				 SET(&idinho_chatdinheironick,"");
			  ELSE;
			   REPLACE(&idinho_listasdecontaspins,"%&idinho_r%","%PLAYER%£%&pin%");
				LOG("&6[Macro]&2[SafeMoneyPay&40.1&2] &eO PIN da conta &6%PLAYER% &ealterado com sucesso. &8&o#iDinhoBR");
				 SET(&idinho_r,"");
				  SET(&idinho_chatnick,"");
				   SET(&idinho_chatdinheironick,"");
			  ENDIF;
			 ENDIF;

			ENDIF;

			IF(%&idinho_chatmsgs%="!smp meu pin");
			 PROMPT(&confirmarmostrarpin,$$?,"Você tem certeza que deseja mostrar o pin da conta %PLAYER% ?");
			  IF((%&confirmarmostrarpin%="sim")||(%&confirmarmostrarpin%="SIM")||(%&confirmarmostrarpin%="s")||(%&confirmarmostrarpin%="S"));
			   MATCH("%&idinho_listasdecontaspins%","%PLAYER%£(.+)-",{&meupin});
				IF(%&meupin%="");
				 LOG(&6[Macro]&2[SafeMoneyPay&40.1&2] &4Nenhum PIN cadastrado com o nick &c%PLAYER%&4. &8&o#iDinhoBR);
				ELSE;
				 LOG(&6[Macro]&2[SafeMoneyPay&40.1&2] &cNick: &e%PLAYER% &8&o#iDinhoBR);
				  LOG(&6[Macro]&2[SafeMoneyPay&40.1&2] &cPIN: &e%&meupin% &8&o#iDinhoBR);
				ENDIF;
				 SET(&meupin,"");
				  SET(&idinho_chatnick,"");
				   SET(&idinho_chatdinheironick,"");
			  ELSE;
			   LOG(&6[Macro]&2[SafeMoneyPay&40.1&2] &cVocê digiou nada/errado ou desistiu de mostrar o PIN. &8&o#iDinhoBR);
			    SET(&idinho_chatnick,"");
				 SET(&idinho_chatdinheironick,"");
			  ENDIF;
			ENDIF;

			IF(%&idinho_chatmsgs%="!smp reset pins");
			 PROMPT(&confirmarresetpins,$$?,"Você realmente quer resetar todos PINS armazenados no banco de dados?");
			  IF((%&confirmarresetpins%="sim")||(%&confirmarresetpins%="SIM")||(%&confirmarresetpins%="s")||(%&confirmarresetpins%="S"));
			   LOG(&6[Macro]&2[SafeMoneyPay&40.1&2] &cTodos PINS resetados, do banco de dados. &8&o#iDinhoBR);
				SET(&idinho_listasdecontaspins,"");
				 SET(&idinho_chatnick,"");
				  SET(&idinho_chatdinheironick,"");
			  ELSE;
			   LOG("&6[Macro]&2[SafeMoneyPay&40.1&2] &cVocê digitou nada/errado ou desistiu de resetar todos PINS. &8&o#iDinhoBR");
			    SET(&idinho_chatnick,"");
				 SET(&idinho_chatdinheironick,"");
			  ENDIF;
			ENDIF;
		ELSE;
		 SET(&idinho_chatnick,"");
		  SET(&idinho_chatdinheironick,"");
		ENDIF;

	ENDIF;

ENDIF;

IFMATCHES("%CHATCLEAN%","^\[L\] (.+)(%PLAYER%)(.+)\: \!(.+) (.+) (.+)$");
    MATCH("%CHATCLEAN%","^\[L\] (.+)(%PLAYER%)(.+)\: \!(.+) (.+) (.+)$",{&idinho_chatdinheirounbug,&idinho_chatdinheironick,&idinho_chatdinheironivel,&idinho_chatmsgpay,&idinho_chatnickpay,&idinho_chatdinheiro});

	IFCONTAINS("%&idinho_chatdebug%",":");
	ELSE;

		IFMATCHES("%&idinho_chatdinheironick%","^%PLAYER%$");
		 SET(&idinho_chatdinheironick,"");
		  SET(&idinho_chatnick,"");

			IF(%&idinho_chatmsgpay%="money pay");
		     SET(&idinho_chatdinheironick,"");
		      SET(&idinho_chatnick,"");
			 PROMPT(&certeza,$$?,"Você tem certeza que deseja enviar %&idinho_chatdinheiro%coins para o(a) %&idinho_chatnickpay% ?");
			  IF((%&certeza%="sim")||(%&certeza%="s")||(%&certeza%="SIM")||(%&certeza%="S"));
			   MATCH("%&idinho_listasdecontaspins%","%PLAYER%£(.+)-",{&pin_moneypay});
				DO(2);
				 ECHO("/money pay %&idinho_chatnickpay% %&idinho_chatdinheiro% %&pin_moneypay%");
				  WAIT(1);
				LOOP;
				 LOG("&6[Macro]&2[SafeMoneyPay&40.1&2] &eVocê enviou %&idinho_chatdinheiro%coins para o(a) %&idinho_chatnickpay%. &8&o#iDinhoBR");
				  SET(&pin_moneypay,"");
				   SET(&idinho_chatdinheironick,"");
				    SET(&idinho_chatnick,"");
			  ELSE;
			   LOG("&6[Macro]&2[SafeMoneyPay&40.1&2] &cVocê digitou nada/errado ou desistiu da transação. &8&o#iDinhoBR");
				SET(&pin_moneypay,"");
				 SET(&idinho_chatdinheironick,"");
				  SET(&idinho_chatnick,"");
			  ENDIF;
			ENDIF;
		ELSE;
		 SET(&idinho_chatdinheironick,"");
		  SET(&idinho_chatnick,"");
		ENDIF;

	ENDIF;

ENDIF;

}$$