Broadcast zeny fee

[Petey Pablo 0]

Help me to add 1m zeny fee to this script. Thank you
 

- script broadcast FAKE_NPC,{ OnCommand: if ( !getstrlen( .@atcmd_parameters$ ) ) { message strcharinfo(0), "Please, enter a message (usage: @bst )."; end; } if (agitcheck()){ message strcharinfo(0), "Unable to use this command,"; message strcharinfo(0), "War of Emperium is ongoing!"; close; } $@input$ = implode(.@atcmd_parameters$," " ); $@name$ = strcharinfo(0); .@symbol$ = substr( .@atcmd_parameters$, 0,1 ); if ( .@symbol$ != "B>" && .@symbol$ != "S>" && .@symbol$ != "T>" ) { message strcharinfo(0), "Market Symbol is Needed when using this command ( B> S> T> )"; end; } if ( bst_delay + 60 > gettimetick(2) ) { message strcharinfo(0), "There is a 60 seconds delay of using this command again"; end; } query_sql ("SELECT `char`.`account_id` FROM `char` JOIN `login` ON `char`.`account_id` = `login`.`account_id` WHERE `char`.`online` = 1", .@account_id); bst_delay = gettimetick(2); // delay while ( .@i < getarraysize(.@account_id) ) { if ( attachrid( .@account_id[.@i] ) ) dispbottom "[ Market ] " + $@name$ + " : " + $@input$,0xFFD700; // display to every character on the server. detachrid; .@i++; } end; OnInit: bindatcmd "bst",strnpcinfo(0)+"::OnCommand", 0, 1; // bind @bst command. end; }

- script broadcast FAKE_NPC,{
OnCommand: if ( !getstrlen( .@atcmd_parameters$ ) )
{
message strcharinfo(0), "Please, enter a message (usage: @bst ).";
end;
}
if (agitcheck()){
message strcharinfo(0), "Unable to use this command,";
message strcharinfo(0), "War of Emperium is ongoing!";
close;
}
$@input$ = implode(.@atcmd_parameters$," " );
$@name$ = strcharinfo(0);
.@symbol$ = substr( .@atcmd_parameters$, 0,1 );
if ( .@symbol$ != "B>" && .@symbol$ != "S>" && .@symbol$ != "T>" )
{
message strcharinfo(0), "Market Symbol is Needed when using this command ( B> S> T> )";
end;
}
if ( bst_delay + 60 > gettimetick(2) )
{
message strcharinfo(0), "There is a 60 seconds delay of using this command again";
end;
}
query_sql ("SELECT `char`.`account_id` FROM `char` JOIN `login` ON `char`.`account_id` = `login`.`account_id` WHERE `char`.`online` = 1", .@account_id);
bst_delay = gettimetick(2); // delay
while ( .@i < getarraysize(.@account_id) )
{
if ( attachrid( .@account_id[.@i] ) )
dispbottom "[ Market ] " + $@name$ + " : " + $@input$,0xFFD700; // display to every character on the server.
detachrid;
.@i++;
}
end;
OnInit:
bindatcmd "bst",strnpcinfo(0)+"::OnCommand", 0, 1; // bind @bst command.
end;
}

Edited December 26, 2016 by Will Su

[Asheraf 123]

I would suggest using the channel system for this npc instead of looping for every player, however here you go

- script broadcast FAKE_NPC,{ OnCommand: if (!getstrlen(.@atcmd_parameters$)) { message strcharinfo(PC_NAME), "Please, enter a message (usage: @bst)."; end; } if (agitcheck()) { message strcharinfo(PC_NAME), "Unable to use this command,"; message strcharinfo(PC_NAME), "War of Emperium is ongoing!"; close; } $@input$ = implode(.@atcmd_parameters$, " "); $@name$ = strcharinfo(PC_NAME); .@symbol$ = substr(.@atcmd_parameters$, 0, 1); if (.@symbol$ != "B>" && .@symbol$ != "S>" && .@symbol$ != "T>") { message strcharinfo(PC_NAME), "Market Symbol is Needed when using this command ( B> S> T>)"; end; } if (bst_delay + 60 > gettimetick(2)) { message strcharinfo(PC_NAME), "There is a 60 seconds delay of using this command again"; end; } if (Zeny < 1000000) { message strcharinfo(PC_NAME), "You need to pay a 1m fee before sending your message."; end; } Zeny -= 1000000; query_sql ("SELECT `char`.`account_id` FROM `char` JOIN `login` ON `char`.`account_id` = `login`.`account_id` WHERE `char`.`online` = 1", .@account_id); bst_delay = gettimetick(2); // delay while (.@i < getarraysize(.@account_id)) { if (attachrid( .@account_id[.@i])) dispbottom "[ Market ] " + $@name$ + " : " + $@input$,0xFFD700; // display to every character on the server. detachrid; ++.@i; } end; OnInit: bindatcmd "bst", strnpcinfo(NPC_NAME) + "::OnCommand", 0, 1; // bind @bst command. end; }

-	script	broadcast	FAKE_NPC,{
OnCommand: 
	if (!getstrlen(.@atcmd_parameters$)) {
		message strcharinfo(PC_NAME), "Please, enter a message (usage: @bst).";
		end;
	}
	if (agitcheck()) {
		message strcharinfo(PC_NAME), "Unable to use this command,";
		message strcharinfo(PC_NAME), "War of Emperium is ongoing!";
		close;
	}
	$@input$ = implode(.@atcmd_parameters$, " ");
	$@name$ = strcharinfo(PC_NAME);
	.@symbol$ = substr(.@atcmd_parameters$, 0, 1);
	if (.@symbol$ != "B>" && .@symbol$ != "S>" && .@symbol$ != "T>") {
		message strcharinfo(PC_NAME), "Market Symbol is Needed when using this command ( B> S> T>)";
		end;
	}
	if (bst_delay + 60 > gettimetick(2)) {
		message strcharinfo(PC_NAME), "There is a 60 seconds delay of using this command again";
		end;
	}
	if (Zeny < 1000000) {
		message strcharinfo(PC_NAME), "You need to pay a 1m fee before sending your message.";
		end;
	}
	Zeny -= 1000000;
	query_sql ("SELECT `char`.`account_id` FROM `char` JOIN `login` ON `char`.`account_id` = `login`.`account_id` WHERE `char`.`online` = 1", .@account_id);
	bst_delay = gettimetick(2); // delay
	while (.@i < getarraysize(.@account_id)) {
		if (attachrid( .@account_id[.@i]))
		dispbottom "[ Market ] " + $@name$ + " : " + $@input$,0xFFD700; // display to every character on the server.
		detachrid;
		++.@i;
	}
	end;

OnInit:
	bindatcmd "bst", strnpcinfo(NPC_NAME) + "::OnCommand", 0, 1; // bind @bst command.
	end;
}

 

[n0tttt 0]

I optimized it a bit.

http://pastebin.com/raw/wJPtYU6c

Edited December 26, 2016 by n0tttt