Hey Guys
I need some help with this script. I decided to open a new thread that will be global for the pottery Script I`m Working on. I might place some Request for help here from time to time, rather than creating a lot of different threads.
This is the Code I`m currently having a problem with:
Simba Code:
WithdrawItem(DTM_SoftClay,'dtm',28,['ft cl'],[]); // WithDraw item From Bank
It was Assigned this value:
Simba Code:
DTM_SoftClay := DTMFromString('mggAAAHicY2NgYEhjZmCIBuJEIM4G4iIgjgfifCYGhmIgrgDiciDOBuI0IA534AXjBDc+hgBrbgZzDQ4wZgOahQ0z4sAQAAADdgiv');
Declared Like This:
Simba Code:
DTM_SoftClay, DTM_Clay, DTM_PickAxe,DTM_SoftPot,DTM_FiredPot: Integer;
My problem is that I keep Getting a type mismatch error, and I just can`t see where or how
Here is the debug:
Simba Code:
[Error] (139:55): Type mismatch at line 138
Compiling failed.
So the code right at the top is line 138
I know it must be some stupid mistake, but for the life of me I just cant see it.
Here is the complete code for that procedure:
Simba Code:
// WithDraw Items and Equipment as needed from bank
// Select Case To Use To withdraw Item.
// If No Item Then Do Auto Switch Activity
procedure WithDrawItems;
var
Temp:Integer;
Begin
DTM_SoftClay := DTMFromString('mggAAAHicY2NgYEhjZmCIBuJEIM4G4iIgjgfifCYGhmIgrgDiciDOBuI0IA534AXjBDc+hgBrbgZzDQ4wZgOahQ0z4sAQAAADdgiv');
DTM_Clay := DTMFromString('mggAAAHicY2NgYEhjZmCIBuJEIM4G4iIgjgfifCYGhmIgrgDiciDOBuI0IA534AXjBDc+hgBrbgZzDQ4wZgOahQ0z4sAQAAADdgiv');
Temp := 0
Temp := CountInvItems('dtm', DTM_SoftClay, []);
// First do A Search For the Item That is to be Withdrawn
// SearchBank('oft clay');
// If Item Found WithDraw Item, If Not Found, Switch Activity To Do
// Rather Use DTM ?
If (Temp > 1) then
Begin
WithdrawItem(DTM_SoftClay,'dtm',28,['ft cl'],[]); // WithDraw item From Bank
Wait(500 + random(400));
CloseBank;
FreeDTM(DTM_SoftClay);
Exit;
End;
If (Temp = 0) then
Begin
Temp := 0;
Temp := CountInvItems('dtm', DTM_Clay, []);
If (Temp > 27) then
Begin
ChooseActivity := 8;
End;
ChooseActivity := 0;
End;
FreeDTM(DTM_SoftClay);
FreeDTM(DTM_Clay);
End;
I still need to make a dtm for the clay.
I need some advice here, all input will be appreciated. Yes the code is not streamlined I know, but this will only be a beta script. Once I understand all the procedures I need to create a successful Crafting Script for pottery. I will create a More Valuable script that is much more easier to follow and organized. Still learning the ropes and pascal as well.
Thanks for the help and advice.