Input to Auto reading

Lenya · February 25, 2013

Hi,

I want to change this defalut Card Trader script which works with Input function to a automatic script, which can scan your card in your inventory.

I know that it's able because on other server they use this too.

Here is the script:

//===== rAthena Script ======================================= 
//= Card Trader
//===== By: ================================================== 
//= Elias (og2)
//===== Current Version: ===================================== 
//= 1.4
//===== Compatible With: ===================================== 
//= rAthena SVN r15340+
//===== Description: ========================================= 
//= Card and Points Trader
//===== Additional Comments: ================================= 
//= v1.0 Translated from the Official [Elias]
//= v1.1 Fixed variables and optimized script [Elias]
//= v1.2 Fixed char being stuck with breaks [Elias] (bugreport:5374)
//= v1.3 Optimized: reduced from 123kb to 7kb! [Euphy]
//= v1.4 Variables don't need to load OnInit. [Euphy]
//============================================================ 

prt_vilg,65,106,6	script	Putty#Card1	953,{
	if (!.card[1]) {
		setarray .card1[0], 4001,4006,4009,4019,4075,4033,4012,4016,4026,4022,
					4027,4028,4038,4025,4021,4050,4079,4081,4090,4094,
					4101,4104,4110,4114,4119,4108,4095,4231,4280,4008,
					4011,4013,4014,4015,4020,4032,4037,4039,4041,4045,
					4046,4010,4023,4029,4052,4048,4056,4071,4093,4031,
					4036,4034,4042,4055,4061,4087,4096,4116,4122,4170,
					4215,4220,4228,4226,4212,4227,4267,4257,4278,4286,
					4287,4292,4311,4315,4319,4322,4084,4078,4113,4149,
					4153,4196,4240,4247,4256,4057,4066,4067,4112,4150,
					4152,4186,4187,4181,4173,4167,4162,4176,4195,4193,
					4200,4223,4194,4190,4189,4192,4224,4244,4248,4261,
					4260,4259,4274,4275,4313,4299,4304,4294,4076,4127,
					4154,4157,4156,4213,4214,4225,4235;
		setarray .card2[0], 4293,4297,4288,4283,4295,4307,4308,4309,4132,4326,
					4341,4335,4337,4345,4344,4331,4333,4332,4089,4161,
					4177,4178,4180,4184,4191,4206,4199,4273,4282,4268,
					4289,4321,4316,4343,4339,4369,4377,4385,4383,4382,
					4380,4381,4378,4379,4390,4389,4388,4391,4405,4400,
					4401,4402,4404,4002,4003,4004,4005,4007,4017,4024,
					4030,4035,4040,4043,4044,4049,4051,4053,4058,4060,
					4062,4063,4064,4065,4068,4069,4070,4072,4073,4074,
					4077,4080,4082,4083,4085,4086,4088,4091,4092,4097,
					4098,4099,4100,4102,4103,4106,4107,4109,4111,4115,
					4117,4118,4120,4124,4125,4126,4138,4139,4141,4151,
					4158,4164,4165,4182,4185,4159,4160,4166,4172,4175,
					4188,4201,4202,4204,4205,4208,4209;
		setarray .card3[0], 4120,4216,4217,4219,4221,4222,4230,4234,4233,4232,
					4237,4238,4242,4243,4245,4246,4249,4252,4255,4258,
					4262,4264,4276,4270,4271,4218,4239,4251,4253,4269,
					4334,4105,4133,4136,4229,4272,4277,4279,4281,4284,
					4285,4290,4296,4298,4301,4310,4314,4317,4325,4327,
					4328,4329,4338,4340,4346,4347,4348,4349,4350,4351,
					4353,4354,4355,4356,4358,4360,4362,4364,4366,4368,
					4370,4371,4373,4375,4387,4406,4129,4155,4291,4392,
					4393,4394,4409,4410,4411,4412,4413,4414,4415,4416,
					4417,4418,4420,4421,4422,4423,4424,4427,4427,4428,
					4429,4431,4432,4433,4434,4435,4436,4437,4438,4439,
					4440,4442,4443,4444,4445,4447,4448,4449,4450,4452,
					4453;
		setarray .card[1],  getarraysize(.card1), getarraysize(.card2), getarraysize(.card3);
	}
	set .@points,oversea_event9;
	if (!.@points) {
		mes "[Putty]";
		mes "Hallo du!";
		mes "Ich sammle mein Leben gerne Cards aus aller Welt! ..";
		mes "... Das ist meine Leidenschaft!";
		next;
		switch(select("Nach mehr Information fragen!","Ich habe keine Cards bei mir.")) {
			case 1:
				mes "[Putty]";
				mes "Ich gebe dir einen Punkt für jede Card, die du mir bringt.";
				mes "Mit diesen Punkten kannst du dir später folgendes kaufen...";
				next;
				mes "[Putty]";
				mes "Für ^CC00001000 Punkte^000000: ^0000CC1 Pet Box^000000.";
				mes "Für ^CC00001500 Punkte^000000: ^0000CC1 Headgear Box^000000.";
				mes "Für ^CC00005000 Punkte^000000: ^0000CC1 Custom Box^000000.";
				mes "Für ^CC000010000 Punkte^000000: ^0000CC1 Diamond Dust^000000.";
				next;
			break;
			case 2:
				mes "[Putty]";
				mes "Schade .. ich brauche Cards!";
				close;
			break;
		}
	} else {
		mes "[Putty]";
		mes "Willkommen zurück";
		mes "Dein Punktestand beträgt ^00cc00" + .@points + "^000000 Punkte.";
		next;
		mes "[Putty]";
		mes "Möchtest du deine ^00cc00Punkte^000000 einlösen oder";
		mes "möchtest du Cards abgeben?";
		next;
	}
	switch(select("Ich möchte Cards abgeben.","Ich möchte meine Punkte einlösen.")) {
		case 1:
			mes "[Putty]";
			mes "Tippe ein, welche Card(s) du tauschen möchtest.";
			next;
			input .@i$;
			set .@input$, "_"+.@i$;
			set .@card,0;
			freeloop(1);
			for(set .@j,1; .@j<4; set .@j,.@j+1) {
				for(set .@i,0; .@i<.card[.@j]; set .@i,.@i+1)
					if (compare(.@input$,"_"+getitemname(getd(".card"+.@j+"["+.@i+"]")))) {
						set .@card, getd(".card"+.@j+"["+.@i+"]"); break; }
				sleep2 10; // For good measure
				if (.@card) break; }
			freeloop(0);
			mes "[Putty]";
			if (!.@card) mes "Bitte komm wieder wenn du eine Card tauschen möchtest.";
			else {
				set .@count, countitem(.@card);
				if (!.@count) {
					mes "Du hast keine ^0055FF"+getitemname(.@card)+"s^000000 bei dir!";
					close; }
				mes "Du hast ^0055FF"+.@count+" "+getitemname(.@card)+((.@count>1)?"s":"")+"^000000.";
				mes " ";
				mes "Möchtest du sie einlösen für 1 Punkt pro Card?";
				next;
				switch(select("Ja, bitte!","Nein, danke.")) {
					case 1:
						delitem .@card,.@count;
						set oversea_event9, (.@points+.@count);
						mes "[Putty]";
						mes "Prima, du hast ^CC0000"+.@count+"^000000 Punkte erhalten.";
						break;
					case 2:
						mes "[Putty]";
						mes "Okay, lass es mich wissen, wenn ich dir helfen kann.";
						break;
				}
			}
			close;
		case 2:
			if (.@points) {
				mes "[Putty]";
				mes "Diese Items kann ich dir anbieten.";
				next;
				switch(select("Pet Box - 1000 Punkte","Headgear Box - 1500 Punkte","Custom Box - 5000 Punkte","Diamond Dust - 10000 Punkte","^777777Nichts^000000")) {
					case 1:
						if (.@points < 1000) break;
						mes "[Putty]";
						mes "Pet Box? Bist du dir sicher?";
						mes "Wenn es das ist, was du möchtest dann hier!";
						set oversea_event9, .@points - 1000;
						getitem 22083,1;
						close;
					case 2:
						if (.@points < 1500) break;
						mes "[Putty]";
						mes "Headgear Box? Bist du dir sicher?";
						mes "Wenn es das ist, was du möchtest dann hier!";
						set oversea_event9, .@points - 1500;
						getitem 22077,1;
						close;
					case 3:
						if (.@points < 5000) break;
						mes "[Putty]";
						mes "Custom Box? Bist du dir sicher?";
						mes "Wenn es das ist, was du möchtest dann hier!";
						set oversea_event9, .@points - 5000;
						getitem 22078,1;
						close;
					case 4:
						if (.@points < 10000) break;
						mes "[Putty]";
						mes "Diamond Dust? Bist du dir sicher?";
						mes "Wenn es das ist, was du möchtest dann hier!";
						set oversea_event9, .@points - 10000;
						getitem 22104,1;
						close;
					case 5:
						mes "[Putty]";
						mes "Komm wieder wenn du mehr Punkte hast.";
						close;
					}
				mes "[Putty]";
				mes "Du hast leider zu wenig Punkte.";
				close;
			} else {
				mes "[Putty]";
				mes "Du hast 0 Punkte. Du benötigst mindestens 1000 Punkte um etwas zu kaufen.";
			}
		break;
		}
	close;
	
OnInit:
waitingroom "Kartensammler",0;
end;
}

Edited February 25, 2013 by Lenya

nanakiwurtz · February 26, 2013

Use Euphy's Card Trader script /no1

Emistry · February 26, 2013

@TS

i dunno what you want...i dont get it...

is this something like this ?

http://pastebin.com/raw.php?i=qYFz7jsh

or what ?

Lenya · February 26, 2013

Nanai, this is Euphys script if you can read.

Emistry, yes something like this but without MVP and Mini Boss Cards. Look at my posted script, there you can buy something with the points too but you have to put in the card name in the input disp. I want to change this Script to a auto recognizing script.

Emistry · February 26, 2013

you mean auto detect what card in your inventory ?

my script does...

and to remove mvp card..

// MVP Card
setarray .@CardLists,4342,4359,4357,4361,4363,4365,4367;

just left it empty..or remove it.

nanakiwurtz · February 26, 2013

Oh is it?
But in my script collection, the header says like this:

//===== rAthena Script =======================================
//= Card Trader
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.0 
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Exchange cards for points.
//============================================================

Lenya · February 26, 2013

//= v1.3 Optimized: reduced from 123kb to 7kb! [Euphy]
//= v1.4 Variables don't need to load OnInit. [Euphy]
//============================================================

Same.

But Emistry, I want a script where I can choose which item I want.

Euphy · February 27, 2013

No, that's the official script. My custom script is in my release topic, or here: http://pastebin.com/raw.php?i=AC0CquTa

Lenya · February 27, 2013

I'll try your script ...

Sign In

Input to Auto reading

Question

Lenya

Link to comment

Share on other sites

8 answers to this question

Recommended Posts

nanakiwurtz

Link to comment

Share on other sites

Emistry

Link to comment

Share on other sites

Lenya

Link to comment

Share on other sites

Emistry

Link to comment

Share on other sites

nanakiwurtz

Link to comment

Share on other sites

Lenya

Link to comment

Share on other sites

Euphy

Link to comment

Share on other sites

Lenya

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account