Setting Donator and Looking Config CMDs

[westrupp]

TEXTCMD\SEER\DONATORVIEW.SRC

Code: Select all

Use os;
Use uo;

Include "include/client";
Include "include/time";

Program TextCMD_Donator( Who )

SendSysMessage( who, "Selecione um Player!" );

    var donator2	 := Target( who );

    Var Account := donator2.acct;
    Var Donator := Account.getprop( "Donator" );
    
    If( !Donator )
    	Donator := 0;
    Endif

	var tempitem := (((donator - ReadGameClock())/86400) - 1);
    	if (tempitem<0) 
		tempitem:=0; 
	endif

	SendSysMessage( who, "Ele tem " + tempitem + " dias de Donator.", 3, 2595 );
	var classe := GetObjProperty (donator2, "DonatorClass");
	SendSysMessage( who, "Ele eh " + classe + " classe.",3, 2595 );

Endprogram

Donator with days and two differents classes...

TEXTCMD\GM\SETDONATOR.SRC

Code: Select all

use uo;

include "include/yesno";
Include "include/time";

program setdonator (me);

	SendSysMessage( me, "Selecione um Player!" );

	var who 	 := Target( me );
	var acc 	 := who.acct;
	var donator 	 := acc.getprop("Donator");
	var donatorclass := GetObjProperty(who,"DonatorClass");

	if( donator != 0 )
		if( YesNo( who, "Quer zerar o tempo de Donator?" ) )
			acc.setprop (who, "Donator", 0);
			acc.setprop (who, "DonatorClass", 0);
		else

			var timeremaining := ((Donator - ReadGameClock())/86400) - 1;
			SendSysMessage(who, "Voce tem " + timeremaining + " dia(s) de Donator.");
			SendSysMessage(who, "Voce eh da classe:", donatorclass);
			SendSysMessage(me, "Ele tem " + timeremaining + " dia(s) de Donator.");
			SendSysMessage(me, "Voce eh da classe:", donatorclass);
		endif

	endif
		var classe := SendTextEntryGump( me,"Qual Classe? Elite ou Ultra Elite?" ,
                        TE_CANCEL_ENABLE,
                        TE_STYLE_NORMAL);
		if(!classe)
			sendsysmessage(who , "Canceled.");
			return;
		endif
		SetObjProperty (who, "DonatorClass", classe);	

		var val := CInt(SendTextEntryGump( me, "Quantos dias esta conta sera Donator? (Max 31)", 40 ));
		var time:=0;
  		case(val)
		     	1: time := 86400;
     			2: time := 172800;
     			3: time := 259200;
     			4: time := 345600;
     			5: time := 432000;
     			6: time := 518400;
     			7: time := 604800;
     			8: time := 691200;
     			9: time := 777600;
    			10: time := 864000;
    			11: time := 950400;
    			12: time := 1036800;
    			13: time := 1123200;
    			14: time := 1382400;
    			15: time := 1468800;
    			16: time := 1555200;
    			17: time := 1641600;
    			18: time := 1728000;
    			19: time := 1814400;
    			20: time := 1900800;
    			21: time := 1987200;
    			22: time := 2073600;
    			23: time := 2160000;
    			24: time := 2246400;
    			25: time := 2332800;
    			26: time := 2419200;
    			27: time := 2505600;
    			28: time := 2592000;
    			29: time := 2678400;
    			30: time := 2764800;
    			31: time := 2851200;
    		endcase

  		if (time==0)
  			SendSysMessage(who, "Canceled.");
  			return;
  		endif

		acc.setprop("Donator", (ReadGameClock() + time));
  	


endprogram

Thanks for any comment,

[westrupp]

ITEMDESC.CFG

Code: Select all

Item 0x22a2
{
Name dgate
graphic 0x0F6C
Facing 29
movable 0
Color   1176
Tooltip This will take you to Donator Area
WalkOnScript donatorgate
desc Gate to Donator Area
}

DONATORGATE.SRC

Code: Select all

use os;
use uo;

include "include/yesno";
include "include/client";

program WJGate (who)

	var donator2    := who;
	Var Account 	:= donator2.acct;
    	Var Donator 	:= Account.getprop( "Donator" );
	var classe 	:= GetObjProperty (donator2, "DonatorClass");


	If( !Donator )	
       		Donator := 0;
    	Endif
	
	var tempitem := (((donator - ReadGameClock())/86400) - 1);

       	if (tempitem<0) 
      		tempitem:=0; 
   	endif
	if ((classe) == "Elite" || (tempitem) > 0) 
		MoveCharacterToLocation( who, 2620, 2283, 15,MOVECHAR_FORCELOCATION );
		SendSysMessage( who, "Bem vindo ao" + classe + " area.",3, 2595 );
		SendSysMessage( who, "Ainda lhe restam " + tempitem + " dias de Donator.", 3, 2595 );
		return 1;
	endif
	if ((classe) == "Ultra Elite" || (tempitem) > 0) 
		SendSysMessage( who, "Bem vindo ao" + classe + " area.",3, 2595 );		
		SendSysMessage( who, "Ainda lhe restam " + tempitem + " dias de Donator.", 3, 2595 );
		MoveCharacterToLocation( who, 2443, 1122, 5,MOVECHAR_FORCELOCATION );
		return 1;
	endif

	SendSysMessage( who, "Veja os beneficios de ser Donator no site.",3, 2595 );
 
endprogram

[goqsane]

Nothing better than pasting SysMessage's in your own language

[Tritan]

Translate this and you might get more people interested.